Added cgi args parser

This commit is contained in:
Jamie Cameron
2009-06-07 22:53:31 +00:00
parent 228bb31b07
commit 9d2012762d

13
logrotate/cgi_args.pl Normal file
View File

@@ -0,0 +1,13 @@
do 'logrotate-lib.pl';
sub cgi_args
{
my ($cgi) = @_;
if ($cgi eq 'edit_log.cgi') {
my $conf = &get_config();
my ($l) = grep { $_->{'members'} } @$conf;
return $l ? 'idx='.$l->{'index'} : 'new=1';
}
return undef;
}