Changeset 661 for trunk/cgi-bin/ipdb-rpc.cgi
- Timestamp:
- 12/29/14 17:52:03 (10 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk
- Property svn:mergeinfo changed
/branches/stable merged: 610
- Property svn:mergeinfo changed
-
trunk/cgi-bin/ipdb-rpc.cgi
-
Property svn:keywords
set to
Date Rev Author Id
r660 r661 37 37 } 38 38 39 syslog "debug", "$authuser active, $ENV{'REMOTE_ADDR'}";40 41 39 # Why not a global DB handle? (And a global statement handle, as well...) 42 40 # Use the connectDB function, otherwise we end up confusing ourselves … … 57 55 # main FCGI loop. 58 56 while (FCGI::accept >= 0) { 57 # done here to a) prevent $ENV{'REMOTE_ADDR'} from being empty and b) to collect 58 # the right user for the individual call (since we may be running with FCGI) 59 syslog "debug", "$authuser active, $ENV{'REMOTE_ADDR'}"; 60 59 61 # don't *think* we need any of these... 60 62 # %disp_alloctypes, %def_custids, %list_alloctypes … … 74 76 print $res->answer; 75 77 } 76 #last if $reqcnt++ > $IPDB::maxfcgi;78 last if $reqcnt++ > $IPDB::maxfcgi; 77 79 } # while FCGI::accept 78 80 … … 87 89 sub _aclcheck { 88 90 my $subsys = shift; 89 return 1; 90 return 1 if grep /$ENV{REMOTE_ADDR}/, $IPDB::rpcacl{$subsys}; 91 return 1 if grep /$ENV{REMOTE_ADDR}/, @{$IPDB::rpcacl{$subsys}}; 91 92 warn "$subsys/$ENV{REMOTE_ADDR} not in ACL\n"; # a bit of logging 92 93 return 0; -
Property svn:keywords
set to
Note:
See TracChangeset
for help on using the changeset viewer.