JFIFxxC      C  " }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr#!/usr/bin/perl # smb_server.cgi # Called in a pop-up javascript window to display a list of known SMB # servers, by calling smbclient to request the browse list from some server require './mount-lib.pl'; use Socket; &popup_header($text{'smb_choose'}); print < function choose(f) { top.opener.ifield.value = f; window.close(); } EOF # call smbclient if ($config{'browse_server'} eq "*") { # Get from workgroup if ($config{'browse_group'}) { # Find master for workgroup $out = &backquote_command( $config{'nmblookup_path'}." -N ". $config{'browse_group'}." 2>&1 ",&text('smb_emaster', $config{'browse_group'}),"\n"; exit; } } else { # No idea what to do print "",&text('smb_eworkgroup'),"\n"; exit; } } elsif ($config{'browse_server'}) { # Fixed host $host = $config{'browse_server'}; } else { # Poll local samba $host = "localhost"; } &execute_command("$config{'smbclient_path'} -d 0 -L $host -N", undef, \$out, \$out); if ($?) { print "",&text('smb_elist', $host),"\n"; exit; } elsif ($out =~ /Unknown host/) { print "",&text('smb_ehost', $host),"\n"; exit; } elsif ($out =~ /error connecting|connect error/) { print "",&text('smb_edown', $host),"\n"; exit; } # parse server list if ($out =~ /Server\s+Comment\n.*\n((.+\n)+)/) { @svlist = split(/\n/, $1); foreach $sv (@svlist) { if ($sv =~ /^\s+(\S+)\s*(.*)$/) { push(@names, $1); push(@comms, $2); } } } if (@names) { print "$text{'smb_sel'}

\n"; print &ui_columns_start([ $text{'smb_name'}, $text{'smb_desc'} ]); 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_none'}.

\n"; } &popup_footer();