Added cgi args parser

diff --git a/lilo/cgi_args.pl b/lilo/cgi_args.pl
new file mode 100644 (file)
index 0000000..c417ea1
--- /dev/null
+++ b/lilo/cgi_args.pl
@@ -0,0 +1,13 @@
+
+do 'lilo-lib.pl';
+
+sub cgi_args
+{
+my ($cgi) = @_;
+if ($cgi eq 'edit_image.cgi') {
+       my $conf = &get_lilo_conf();
+       my @images = ( &find("image", $conf), &find("other", $conf) );
+       return @images ? 'idx='.$images[0]->{'index'} : 'new=1';
+       }
+return undef;
+}