Changeset 756 for branches/stable/dns-rpc.cgi

Timestamp:

06/13/17 13:58:57 (7 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Merge /trunk through r749 for 1.4.0

Location:

branches/stable

Files:

• . (modified) (1 prop)
• dns-rpc.cgi (modified) (3 diffs)

branches/stable/dns-rpc.cgi

@@ -3 +3 @@
 ##
 # $Id$
-# Copyright 2012,2013 Kris Deugau <kdeugau@deepnet.cx>
+# Copyright 2012-2016 Kris Deugau <kdeugau@deepnet.cx>
 # 
 #    This program is free software: you can redistribute it and/or modify
@@ -115 +115 @@
 
 my $reqcnt = 0;
-
-while (FCGI::accept >= 0) {
+my $req = FCGI::Request();
+
+while ($req->Accept() >= 0) {
   my $res = Frontier::Responder->new(
         methods => $methods
@@ -200 +201 @@
   my $modflag = 0;
   # order by most common change.  host should be first, due to rDNS RPC calls
-  for my $field qw(host type val) {
+  for my $field (qw(host type val)) {
     return 1 if (
         defined($newrec->{$field}) &&