Changeset 1048 for branches/stable/textrecs.cgi

Timestamp:

02/27/26 18:02:02 (4 hours ago)

Author:

Kris Deugau

Message:

/branches/stable

Rollup merge of changes to auxiliary scripts

Location:

branches/stable

Files:

• . (modified) (1 prop)
• textrecs.cgi (modified) (2 diffs)

branches/stable/textrecs.cgi

@@ -3 +3 @@
 ##
 # $Id$
-# Copyright 2012-2014,2020 Kris Deugau <kdeugau@deepnet.cx>
+# Copyright 2012-2014,2020,2022 Kris Deugau <kdeugau@deepnet.cx>
 # 
 #    This program is free software: you can redistribute it and/or modify
@@ -28 +28 @@
 use DBI;
 
-# push "the directory the script is in" into @INC
-use FindBin;
-use lib "$FindBin::RealBin/";
+# Taint-safe (ish) voodoo to push "the directory the script is in" into @INC.
+use File::Spec ();
+use File::Basename ();
+my $path;
+BEGIN {
+    $path = File::Basename::dirname(File::Spec->rel2abs($0));
+    if ($path =~ /(.*)/) {
+        $path = $1;
+    }
+}
+use lib $path;
 
 use DNSDB;