PAL.C.T MINI SHELL
#!/usr/bin/perl
# conf_net.cgi
# Display Unix networking options
require './samba-lib.pl';
# check acls
&error_setup("$text{'eacl_aviol'}ask_epass.cgi");
&error("$text{'eacl_np'} $text{'eacl_pcn'}") unless $access{'conf_net'};
&ui_print_header(undef, $text{'net_title'}, "");
&get_share("global");
print &ui_form_start("save_net.cgi", "post");
print &ui_table_start($text{'net_title'}, undef, 2);
print &ui_table_row($text{'net_idle'},
&ui_opt_textbox("dead_time", &getval("deadtime"), 5,
$text{'config_never'})." ".$text{'config_mins'});
print &ui_table_row($text{'net_trustlist'},
&ui_opt_textbox("hosts_equiv", &getval("hosts equiv"), 40,
$text{'config_none'})." ".
&file_chooser_button("hosts_equiv", 0));
$ifaces = &getval("interfaces");
$itable = &ui_columns_start([ $text{'net_interface'}, $text{'net_netmask'} ]);
@iflist = split(/\s+/, $ifaces);
$len = @iflist ? @iflist+1 : 2;
for($i=0; $i<$len; $i++) {
my ($ip, $nm);
if ($iflist[$i] =~ /^([0-9\.]+)\/([0-9]+)$/) {
$ip = $1;
for($j=0; $j<$2; $j++) { $pw += 2**(31-$j); }
$nm = sprintf "%u.%u.%u.%u",
($pw>>24)&0xff, ($pw>>16)&0xff,
($pw>>8)&0xff, ($pw)&0xff;
}
elsif ($iflist[$i] =~ /^([0-9\.]+)\/([0-9\.]+)$/) {
$ip = $1;
$nm = $2;
}
elsif ($iflist[$i] =~ /^(\S+)$/) {
$ip = $1;
$nm = "";
}
$itable .= &ui_columns_row([
&ui_textbox("interface_ip$i", $ip, 15),
&ui_textbox("interface_nm$i", $nm, 15),
]);
}
$itable .= &ui_columns_end();
print &ui_table_row($text{'net_netinterface'},
&ui_radio("interfaces_def", $ifaces ? 0 : 1,
[ [ 1, $text{'net_auto'} ],
[ 0, $text{'net_uselist'} ] ])."<br>\n".
$itable);
print &ui_table_row($text{'net_keepalive'},
&ui_opt_textbox("keepalive", &getval("keepalive"), 5,
$text{'net_notsend'})." ".$text{'config_secs'});
print &ui_table_row($text{'net_maxpacket'},
&ui_opt_textbox("max_xmit", &getval("max xmit"), 5,
$text{'default'})." ".$text{'config_bytes'});
print &ui_table_row($text{'net_listen'},
&ui_opt_textbox("socket_address", &getval("socket address"), 15,
$text{'config_all'}, $text{'net_ip'}));
foreach (split(/\s+/, &getval("socket options"))) {
if (/^([A-Z\_]+)=(.*)/) { $sopts{$1} = $2; }
else { $sopts{$_} = ""; }
}
@grid = ( );
for($i=0; $i<@sock_opts; $i++) {
$sock_opts[$i] =~ /^([A-Z\_]+)(.*)$/;
$f = &ui_checkbox("$1", 1, "$1", defined($sopts{$1}));
if ($2 eq "*") {
$f .= " ".&ui_textbox("${1}_val", $sopts{$1}, 5);
}
push(@grid, $f);
print "</td>\n";
}
print &ui_table_row($text{'net_socket'},
&ui_grid_table(\@grid, 2));
print &ui_table_end();
print &ui_form_end([ [ undef, $text{'save'} ] ]);
&ui_print_footer("", $text{'index_sharelist'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`