Changeset 439 for trunk/cgi-bin/search.cgi

Timestamp:

07/20/10 17:25:07 (15 years ago)

Author:

Kris Deugau

Message:

/trunk

History-conversion fixup - replace $$EXTRA0$$ in header in search.cgi

File:

• trunk/cgi-bin/search.cgi (modified) (2 diffs)

trunk/cgi-bin/search.cgi

@@ -24 +24 @@
 use MyIPDB;
 
+# Don't formally need a username or syslog here.  syslog left active for debugging.
+use Sys::Syslog;
+openlog "IPDBsearch","pid","$IPDB::syslog_facility";
+
+# ... but we do *use* the username on ACLs now.
+# Collect the username from HTTP auth.  If undefined, we're in
+# a test environment, or called without a username.
+my $authuser;
+if (!defined($ENV{'REMOTE_USER'})) {
+  $authuser = '__temptest';
+} else {
+  $authuser = $ENV{'REMOTE_USER'};
+}
+
 # Why not a global DB handle?  (And a global statement handle, as well...)
 # Use the connectDB function, otherwise we end up confusing ourselves
@@ -49 +63 @@
 }
 
-printHeader('Searching...');
+# Headerize!  Make sure we replace the $$EXTRA0$$ bit as needed.
+printHeader('', ($IPDBacl{$authuser} =~ /a/ ?
+        '<td align=right><a href="/ip/cgi-bin/main.cgi?action=assign">Add new assignment</a></td>' : ''
+        ));
 
 if ($webvar{stype} eq 'q') {