Add cgi args parser

mount/cgi_args.pl

@@ -0,0 +1,21 @@
+
+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;
+}