Support search links

This commit is contained in:
Jamie Cameron
2009-06-04 23:22:28 +00:00
parent c28b8fd2a0
commit facc697582

12
servers/cgi_args.pl Normal file
View File

@@ -0,0 +1,12 @@
do 'servers-lib.pl';
sub cgi_args
{
my ($cgi) = @_;
if ($cgi eq 'edit_serv.cgi' && $access{'edit'}) {
my @servers = &list_servers();
return @servers ? 'id='.&urlize($servers[0]->{'id'}) : 'none';
}
return undef;
}