mirror of
https://github.com/webmin/webmin.git
synced 2025-08-01 15:36:00 +00:00
59 lines
1.3 KiB
Perl
Executable File
59 lines
1.3 KiB
Perl
Executable File
#!/usr/local/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();
|
|
|