Changeset 610 for branches/stable/cgi-bin

Timestamp:

10/10/13 14:20:30 (11 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Cleanup on some configuration for RPC and FastCGI

Location:

branches/stable/cgi-bin

Files:

• IPDB.pm (modified) (3 diffs)
• MyIPDB.pm (modified) (1 diff)
• ipdb-rpc.cgi (modified) (4 diffs, 1 prop)

branches/stable/cgi-bin/IPDB.pm

@@ -24 +24 @@
 @EXPORT_OK    = qw(
         %disp_alloctypes %list_alloctypes %def_custids @citylist @poplist
-        %IPDBacl %aclmsg %rpcacl
+        %IPDBacl %aclmsg %rpcacl $maxfcgi
         &initIPDBGlobals &connectDB &finish &checkDBSanity
         &addMaster &touchMaster
@@ -38 +38 @@
 %EXPORT_TAGS    = ( ALL => [qw(
                 %disp_alloctypes %list_alloctypes %def_custids @citylist @poplist
-                %IPDBacl %aclmsg %rpcacl
+                %IPDBacl %aclmsg %rpcacl $maxfcgi
                 &initIPDBGlobals &connectDB &finish &checkDBSanity
                 &addMaster &touchMaster
@@ -69 +69 @@
 
 our %rpcacl;
+our $maxfcgi = 3;
 
 our $org_name = 'Example Corp';

branches/stable/cgi-bin/MyIPDB.pm

@@ -29 +29 @@
 #       devel => ['10.0.10.5'],
 #       );
+# Only you can prevent memory leaks!
+#$IPDB::maxfcgi = 100;
 
 # Quick workaround for fixed web path.  Set this to the absolute web path to

branches/stable/cgi-bin/ipdb-rpc.cgi

@@ -37 +37 @@
 }
 
-syslog "debug", "$authuser active, $ENV{'REMOTE_ADDR'}";
-
 # Why not a global DB handle?  (And a global statement handle, as well...)
 # Use the connectDB function, otherwise we end up confusing ourselves
@@ -57 +55 @@
 # main FCGI loop.
 while (FCGI::accept >= 0) {
+  # done here to a) prevent $ENV{'REMOTE_ADDR'} from being empty and b) to collect
+  # the right user for the individual call (since we may be running with FCGI)
+  syslog "debug", "$authuser active, $ENV{'REMOTE_ADDR'}";
+
   # don't *think* we need any of these...
   # %disp_alloctypes, %def_custids, %list_alloctypes
@@ -74 +76 @@
     print $res->answer;
   }
-#  last if $reqcnt++ > $IPDB::maxfcgi;
+  last if $reqcnt++ > $IPDB::maxfcgi;
 } # while FCGI::accept
 
@@ -87 +89 @@
 sub _aclcheck {
   my $subsys = shift;
-  return 1;
-  return 1 if grep /$ENV{REMOTE_ADDR}/, $IPDB::rpcacl{$subsys};
+  return 1 if grep /$ENV{REMOTE_ADDR}/, @{$IPDB::rpcacl{$subsys}};
   warn "$subsys/$ENV{REMOTE_ADDR} not in ACL\n";        # a bit of logging
   return 0;