do 'mount-lib.pl'; sub cgi_args { my ($cgi) = @_; if ($cgi eq 'edit_mount.cgi') { # Find root filesystem, or first mount my @mounts = &list_mounts(); return 'none' if (!@mounts); my $i = 0; foreach my $m (@mounts) { if ($m->[0] eq '/') { return 'index='.$i; } $i++; } return 'index=0'; } return undef; }