JFIFxxC      C  " }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr#!/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 < function choose(f) { top.opener.ifield.value = f; window.close(); } EOF &execute_command("$config{'smbclient_path'} -d 0 -L $in{'server'} -N", undef, \$out, \$out); if ($?) { print "",&text('smb_elist2', $in{'server'}),"\n"; exit; } elsif ($out =~ /Unknown host/) { print "",&text('smb_ehost', $in{'server'}),"\n"; exit; } elsif ($out =~ /error connecting|connect error/) { print "",&text('smb_edown', $in{'server'}),"\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 "$text{'smb_sel2'}

\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 "",&text('smb_noshares', $in{'server'}),"

\n"; } &popup_footer();