mount/nfs_server.cgi

   1 #!/usr/local/bin/perl
   2 # nfs_server.cgi
   3 # Called in a pop-up javascript window to display a list of known NFS
   4 # servers, generated by broadcasting on the NFS port
   5
   6 $trust_unknown_referers = 1;
   7 require './mount-lib.pl';
   8 use Socket;
   9 &popup_header($text{'nfs_server'});
  10 print <<EOF;
  11 <script>
  12 function choose(f)
  13 {
  14 top.opener.ifield.value = f;
  15 window.close();
  16 }
  17 </script>
  18 EOF
  19
  20 # send NFS null procedure call to broadcast address, and wait for
  21 # 2 seconds for all replies
  22 $msg = pack("NNNNNNNNNN",
  23         time(), # xid
  24         0,      # CALL
  25         2,      # RPC version 2
  26         100003, # nfs program
  27         2,      # nfs version
  28         0,      # null procedure
  29         0, 0,   # no authority
  30         0, 0,   # no credentials
  31         );
  32 socket(SOCK, PF_INET, SOCK_DGRAM, getprotobyname("udp"));
  33 setsockopt(SOCK, SOL_SOCKET, SO_BROADCAST, pack("l", 1));
  34 send(SOCK, $msg, 0, pack_sockaddr_in(2049, inet_aton(&broadcast_addr())));
  35 $tmstart = time();
  36 while(time()-$tmstart < 2) {
  37         $rin = '';
  38         vec($rin, fileno(SOCK), 1) = 1;
  39         if (select($rout = $rin, undef, undef, 1)) {
  40                 $from = recv(SOCK, $buf, 1024, 0);
  41                 ($fromport, $fromaddr) = unpack_sockaddr_in($from);
  42                 $fromip = inet_ntoa($fromaddr);
  43                 if ($fromip !~ /\.(255|0)$/ && !$already{$fromip}++) {
  44                         push(@fromip, $fromip);
  45                         push(@fromaddr, $fromaddr);
  46                         }
  47                 }
  48         }
  49
  50 if (@fromip) {
  51         print "<b>$text{'nfs_select'}</b><br>\n";
  52         print "<table border width=100%>\n";
  53         print "<tr $tb> <td><b>$text{'nfs_ip'}</b></td> ",
  54               "<td><b>$text{'nfs_host'}</b></td> </tr>\n";
  55         for($i=0; $i<@fromip; $i++) {
  56                 $fromhost = gethostbyaddr($fromaddr[$i], AF_INET);
  57                 printf "<tr $cb> <td><a href=\"\" onClick='choose(\"%s\"); ".
  58                        "return false'>$fromip[$i]</a></td>\n",
  59                         $fromhost ? $fromhost : $fromip[$i];
  60                 printf "<td>%s</td> </tr>\n",
  61                         $fromhost ? $fromhost : "<br>";
  62                 }
  63         print "</table>\n";
  64         }
  65 else {
  66         print "<b>$text{'nfs_none'}</b>.<p>\n";
  67         }
  68
  69 &popup_footer();
  70
  71