mount/smb_share.cgi

   1 #!/usr/local/bin/perl
   2 # smb_share.cgi
   3 # Displays a list of shares available on some host
   4
   5 require './mount-lib.pl';
   6 &ReadParse();
   7 &header(&text('smb_choose2', $in{'server'}));
   8 print <<EOF;
   9 <script>
  10 function choose(f)
  11 {
  12 top.opener.ifield.value = f;
  13 window.close();
  14 }
  15 </script>
  16 EOF
  17
  18 &execute_command("$config{'smbclient_path'} -d 0 -L $in{'server'} -N",
  19                  undef, \$out, \$out);
  20 if ($?) {
  21         print "<b>",&text('smb_elist2', $in{'server'}),"</b>\n";
  22         exit;
  23         }
  24 elsif ($out =~ /Unknown host/) {
  25         print "<b>",&text('smb_ehost', $in{'server'}),"</b>\n";
  26         exit;
  27         }
  28 elsif ($out =~ /error connecting|connect error/) {
  29         print "<b>",&text('smb_edown', $in{'server'}),"</b>\n";
  30         exit;
  31         }
  32
  33 if ($out =~ /Sharename\s+Type\s+Comment\n((.+\n)+)/) {
  34         @shlist = split(/\n/, $1);
  35         foreach $sh (@shlist) {
  36                 if ($sh =~ /^\s+(.{1,7}\S+)\s+Disk\s*(.*)$/) {
  37                         push(@names, $1); push(@comms, $2);
  38                         }
  39                 }
  40         }
  41 if (@names) {
  42         print "<b>$text{'smb_sel2'}</b><br>\n";
  43         print "<table border width=100%>\n";
  44         print "<tr $tb> <td><b>$text{'smb_share'}</b></td> ",
  45               "<td><b>$text{'smb_comment'}</b></td> </tr>\n";
  46         for($i=0; $i<@names; $i++) {
  47                 print "<tr $cb> <td><a href=\"\" ",
  48                       "onClick='choose(\"$names[$i]\"); ".
  49                       "return false'>$names[$i]</a></td>\n";
  50                 printf "<td>%s</td> </tr>\n",
  51                         $comms[$i] =~ /\S/ ? $comms[$i] : "<br>";
  52                 }
  53         print "</table>\n";
  54         }
  55 else {
  56         print "<b>",&text('smb_noshares', $in{'server'}),"</b>\n";
  57         }
  58
  59 &popup_footer();
  60