Add cgi args parser

diff --git a/fsdump/cgi_args.pl b/fsdump/cgi_args.pl
new file mode 100644 (file)
index 0000000..bbffe90
--- /dev/null
+++ b/fsdump/cgi_args.pl
@@ -0,0 +1,17 @@
+
+do 'fsdump-lib.pl';
+
+sub cgi_args
+{
+my ($cgi) = @_;
+my @dumps = grep { &can_edit_dir($_) } &list_dumps();
+if ($cgi eq 'edit_dump.cgi') {
+       return @dumps ? 'id='.&urlize($dumps[0]->{'id'}) : 'dir=/etc';
+       }
+elsif ($cgi eq 'restore_form.cgi') {
+       return @dumps ? 'id='.&urlize($dumps[0]->{'id'}).
+                       '&fs='.$dumps[0]->{'fs'}
+                     : 'fs=tar';
+       }
+return undef;
+}