Changeset 933 for trunk/cgi-bin/main.cgi

Timestamp:

12/08/22 13:44:35 (18 months ago)

Author:

Kris Deugau

Message:

/trunk

Merge inexplicably unmerged get-pool-IPs-as-CSV feature from production
Fix long-missing VLAN display snafu on allocation update "done OK" page
Update @INC-munger in main.cgi
Update copyright block and style

File:

• trunk/cgi-bin/main.cgi (modified) (5 diffs)

trunk/cgi-bin/main.cgi

@@ -1 +1 @@
 #!/usr/bin/perl
 # ipdb/cgi-bin/main.cgi
-###
-# SVN revision info
-# $Date$
-# SVN revision $Rev$
-# Last update by $Author$
-###
-# Copyright (C) 2004-2016 - Kris Deugau
+##
+# $Id$
+# Copyright (C) 2004-2018,2022 - Kris Deugau <kdeugau@deepnet.cx>
+#
+#    This program is free software: you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation, either version 3 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+##
 
 use strict;             
@@ -24 +34 @@
 ##uselib##
 
-# 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 CustIDCK;
@@ -458 +476 @@
   $page->param(vlan => $poolinfo->{vlan});
   $page->param(poolpctfree => sprintf("%0.1f", $poolinfo->{nfree}/2**(32-$poolinfo->{masklen}) * 100 ) );
+  $page->param(csvlink => $IPDB::enablecsv);
 
   # Tree navigation
@@ -485 +504 @@
   my $plist = listPool($ip_dbh, $webvar{pool}, 1);
   $page->param(poolips => $plist);
+  # CSV voodoo
+  $page->param(poolid => $webvar{pool});
 
   # retrieve any notices
@@ -1409 +1430 @@
   $page->param(city => $webvar{city});
   $page->param(disptype => $disp_alloctypes{$webvar{alloctype}});
+  $page->param(vlan => $webvar{vlan});
   $page->param(custid => $webvar{custid});
   $page->param(swip => $webvar{swip} eq 'on' ? 'Yes' : 'No');