Added cgi args parser

diff --git a/tcpwrappers/cgi_args.pl b/tcpwrappers/cgi_args.pl
new file mode 100644 (file)
index 0000000..f819a20
--- /dev/null
+++ b/tcpwrappers/cgi_args.pl
@@ -0,0 +1,18 @@
+
+do 'tcpwrappers-lib.pl';
+
+sub cgi_args
+{
+my ($cgi) = @_;
+if ($cgi eq 'edit_rule.cgi') {
+       my @rules = &list_rules($config{'hosts_allow'});
+       my $type = 'allow';
+       if (!@rules) {
+               @rules = &list_rules($config{'hosts_deny'});
+               $type = 'deny';
+               }
+       return @rules ? 'edit_rule.cgi?'.$type.'=1'.
+                       '&id='.$rules[0]->{'id'} : 'new=1&allow=1';
+       }
+return undef;
+}