lilo/cgi_args.pl

   1
   2 do 'lilo-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 if ($cgi eq 'edit_image.cgi') {
   8         my $conf = &get_lilo_conf();
   9         my @images = ( &find("image", $conf), &find("other", $conf) );
  10         return @images ? 'idx='.$images[0]->{'index'} : 'new=1';
  11         }
  12 return undef;
  13 }