PAL.C.T MINI SHELL
#!/usr/bin/perl
# smb_share.cgi
# Displays a list of shares available on some host
require './mount-lib.pl';
&ReadParse();
&header(&text('smb_choose2', $in{'server'}));
print <<EOF;
<script>
function choose(f)
{
top.opener.ifield.value = f;
window.close();
}
</script>
EOF
&execute_command("$config{'smbclient_path'} -d 0 -L $in{'server'} -N",
undef, \$out, \$out);
if ($?) {
print "<b>",&text('smb_elist2', $in{'server'}),"</b>\n";
exit;
}
elsif ($out =~ /Unknown host/) {
print "<b>",&text('smb_ehost', $in{'server'}),"</b>\n";
exit;
}
elsif ($out =~ /error connecting|connect error/) {
print "<b>",&text('smb_edown', $in{'server'}),"</b>\n";
exit;
}
if ($out =~ /Sharename\s+Type\s+Comment\n((.+\n)+)/) {
@shlist = split(/\n/, $1);
foreach $sh (@shlist) {
if ($sh =~ /^\s+(.{1,7}\S+)\s+Disk\s*(.*)$/) {
push(@names, $1); push(@comms, $2);
}
}
}
if (@names) {
print "<b>$text{'smb_sel2'}</b><p>\n";
print &ui_columns_start([ $text{'smb_share'},
$text{'smb_comment'} ]);
for($i=0; $i<@names; $i++) {
print &ui_columns_row([
&ui_link("#", $names[$i], undef, "onClick='choose(\"$names[$i]\");return false;'" ),
&html_escape($comms[$i]),
]);
}
print &ui_columns_end();
}
else {
print "<b>",&text('smb_noshares', $in{'server'}),"</b><p>\n";
}
&popup_footer();
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`