mod_perlify maps for APs, ports, power and uplinks

4 files changed, 12 insertions, 4 deletions

diff --git a/web/nms.gathering.org/apkart.pl b/web/nms.gathering.org/apkart.pl
index 3eef59b..1d905ba 100755
--- a/web/nms.gathering.org/apkart.pl
+++ b/web/nms.gathering.org/apkart.pl
@@ -6,7 +6,9 @@ use lib '../../include';
 use nms;
 use strict;
 use warnings;
+use File::Basename;
 my $cgi = CGI->new;
+my $cwd = dirname($0);
 
 #my $greentimeout = 7200;
 my $greentimeout = 15*60;
@@ -16,7 +18,7 @@ my $dbh = nms::db_connect();
 
 GD::Image->trueColor(1);
 
-my $img = GD::Image->new('tg14-salkart.png');
+my $img = GD::Image->new($cwd.'/tg14-salkart.png');
 
 my $blk = $img->colorResolve(0, 0, 0);
 my $red = $img->colorResolve(255, 0, 0);
diff --git a/web/nms.gathering.org/portkart.pl b/web/nms.gathering.org/portkart.pl
index a7cafef..455278e 100755
--- a/web/nms.gathering.org/portkart.pl
+++ b/web/nms.gathering.org/portkart.pl
@@ -4,12 +4,14 @@ use GD;
 use DBI;
 use lib '../../include';
 use nms;
+use File::Basename;
 my $cgi = CGI->new;
+my $cwd = dirname($0);
 
 my $dbh = nms::db_connect();
 
 GD::Image->trueColor(1);
-$img = GD::Image->new('tg14-salkart.png');
+$img = GD::Image->new($cwd.'/tg14-salkart.png');
 
 my $blk = $img->colorResolve(0, 0, 0);
 
diff --git a/web/nms.gathering.org/stromkart.pl b/web/nms.gathering.org/stromkart.pl
index cfceb21..9660dec 100755
--- a/web/nms.gathering.org/stromkart.pl
+++ b/web/nms.gathering.org/stromkart.pl
@@ -6,7 +6,9 @@ use lib '../../include';
 use nms;
 use strict;
 use warnings;
+use File::Basename;
 my $cgi = CGI->new;
+my $cwd = dirname($0);
 
 #my $greentimeout = 7200;
 my $greentimeout = 15*60;
@@ -15,7 +17,7 @@ my $maxtimeout = $greentimeout*9;
 my $dbh = nms::db_connect();
 
 GD::Image->trueColor(1);
-my $img = GD::Image->new('tg14-salkart.png');
+my $img = GD::Image->new($cwd.'/tg14-salkart.png');
 
 my $blk = $img->colorResolve(0, 0, 0);
 
diff --git a/web/nms.gathering.org/uplinkkart.pl b/web/nms.gathering.org/uplinkkart.pl
index 96ceb54..135cd61 100755
--- a/web/nms.gathering.org/uplinkkart.pl
+++ b/web/nms.gathering.org/uplinkkart.pl
@@ -6,7 +6,9 @@ use lib '../../include';
 use nms;
 use strict;
 use warnings;
+use File::Basename;
 my $cgi = CGI->new;
+my $cwd = dirname($0);
 
 #my $greentimeout = 7200;
 my $greentimeout = 15*60;
@@ -15,7 +17,7 @@ my $maxtimeout = $greentimeout*9;
 my $dbh = nms::db_connect();
 
 GD::Image->trueColor(1);
-my $img = GD::Image->new('tg14-salkart.png');
+my $img = GD::Image->new($cwd.'/tg14-salkart.png');
 
 my $blk = $img->colorResolve(0, 0, 0);