PAL.C.T MINI SHELL
# iface-monitor.pl
# Check if a network interface is up or down
sub get_iface_status
{
return { 'up' => -1 } if (!&foreign_check("net"));
&foreign_require("net", "net-lib.pl");
local @act = &net::active_interfaces(1);
local $a;
foreach $a (@act) {
if ($a->{'fullname'} eq $_[0]->{'iface'} &&
$a->{'up'}) {
return { 'up' => 1 };
}
}
return { 'up' => 0 };
}
sub show_iface_dialog
{
&foreign_require("net", "net-lib.pl");
local %done;
local @ifaces = grep { !$done{$_->{'fullname'}}++ }
sort { $a->{'fullname'} cmp $b->{'fullname'} }
(&net::boot_interfaces(), &net::active_interfaces());
print &ui_table_row($text{'iface_iface'},
&ui_select("iface", $_[0]->{'iface'},
[ map { [ $_->{'fullname'},
$_->{'fullname'}.
" (".&net::iface_type($_->{'fullname'}).")" ] } @ifaces]));
}
sub parse_iface_dialog
{
&depends_check($_[0], "net");
$_[0]->{'iface'} = $in{'iface'};
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`