Added cgi args parser

2026-03-20 16:50:24 +00:00 · 2009-06-05 19:51:11 +00:00
parent 1d65723888
commit d187079468
1 changed files with 13 additions and 0 deletions
--- a/lilo/cgi_args.pl
+++ 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;
+}