HDL-GTRX化のための調査 その3

/usr/local/www/gate/service_set.cgi の中にこのような部分がある。

ここで、GTRとGTの差異をWeb画面上に出しているように思える。
なので、GTR側に $serv->set ( 'dlna' => $servhash{"dlna"} );　を追加すれば
 Web上で設定できるのではないかと思う。
&HDLcgi::table_header ( __('サービス設定') );

$str_en  = __('有効');
$str_dis = __('無効');


if( $modelname eq 'HDL-GTR' ) {
        $p = &HDLcgi::table_row ( $p, 40, __('Microsoftネットワーク共有')               , ($servhash{"samba"} == 1)?    $str_en: $str_dis );
        $p = &HDLcgi::table_row ( $p, 40, __('Microsoftネットワーク共有アクセスログ')     , ($sambalog == 1)?             $str_en: $str_dis );
        $p = &HDLcgi::table_row ( $p, 40, __('AppleShareネットワーク共有')              , ($servhash{"netatalk"} == 1)? $str_en: $str_dis );
        $p = &HDLcgi::table_row ( $p, 40, __('FTP')                                     , ($servhash{"vsftpd"} == 1)?   $str_en: $str_dis );
}else{
        $p = &HDLcgi::table_row ( $p, 40, __('Microsoftネットワーク共有')               , ($servhash{"samba"} == 1)?    $str_en: $str_dis );
        $p = &HDLcgi::table_row ( $p, 40, __('AppleShareネットワーク共有')              , ($servhash{"netatalk"} == 1)? $str_en: $str_dis );
        $p = &HDLcgi::table_row ( $p, 40, __('FTP')                                     , ($servhash{"vsftpd"} == 1)?   $str_en: $str_dis );
        $p = &HDLcgi::table_row ( $p, 40, __('DLNA Server')                             , ($servhash{"dlna"} == 1)?     $str_en: $str_dis );
}

ついでに、 /usr/local/www/gate/service.cgi にも同じように条件分けされてる部分があるので編集の必要がありそうだ。 &HDLcgi::table_header( __('共有サービスの設定') );


if( $modelname eq 'HDL-GTR' ) {

&HDLcgi::table_row( $p, 40, "<center>" . __('有効にするサービスの選択') . "</center>"
        , &HDLcgi::popup_help( qq||
        . qq|<input type="checkbox" name="samba"  value="1" $samba_on > |
        .  __('Microsoftネットワーク ファイル共有') . qq|　　　　|
        . qq|<input type="checkbox" name="sambalog"  value="1" $sambalog_on >|. __('アクセスログを記録') . "<p>", "svc_sambalog" )
        . &HDLcgi::popup_help( qq|<input type="checkbox" name="atalk"  value="1" $atalk_on > |
        . __('AppleShareネットワーク ファイル共有') . "<p>", "svc_netatalk" )
        . &HDLcgi::popup_help( qq|<input type="checkbox" name="vsftpd" value="1" $vsftpd_on> |
        . __('FTP') . "<p>", "svc_ftp" )
        , ( $modelname eq 'HDL-GTR' )?  "select_gtr" : "select"
        );

}else{

&HDLcgi::table_row( $p, 40, "<center>" . __('有効にするサービスの選択') . "</center>"
        , &HDLcgi::popup_help( qq|<input type="checkbox" name="samba"  value="1" $samba_on > |
        .  __('Microsoftネットワーク ファイル共有') . "<p>", "svc_samba" )
        . &HDLcgi::popup_help( qq|<input type="checkbox" name="atalk"  value="1" $atalk_on > |
        . __('AppleShareネットワーク ファイル共有') . "<p>", "svc_netatalk" )
        . &HDLcgi::popup_help( qq|<input type="checkbox" name="vsftpd" value="1" $vsftpd_on> |
        . __('FTP') . "<p>", "svc_ftp" )
        . &HDLcgi::popup_help( qq|<input type="checkbox" name="dlnasv" value="1" $dlnasv_on> |
        . __('DLNA Server') . qq|  <a href="/gate/dlnafilter.cgi">| . __('アクセス制限') . qq|</a></div><DIV><IMG Src="/img/dixim_logo.gif" Style="height: 38px; width: 50px;">|, "svc_dlna" )

        , "select"
        );
}