Support search links

diff --git a/servers/cgi_args.pl b/servers/cgi_args.pl
new file mode 100644 (file)
index 0000000..9f4421b
--- /dev/null
+++ b/servers/cgi_args.pl
@@ -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;
+}