mount/cgi_args.pl

   1
   2 do 'mount-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 if ($cgi eq 'edit_mount.cgi') {
   8         # Find root filesystem, or first mount
   9         my @mounts = &list_mounts();
  10         return 'none' if (!@mounts);
  11         my $i = 0;
  12         foreach my $m (@mounts) {
  13                 if ($m->[0] eq '/') {
  14                         return 'index='.$i;
  15                         }
  16                 $i++;
  17                 }
  18         return 'index=0';
  19         }
  20 return undef;
  21 }