Replace remaining paths with $RealBin.

diff --git a/cgi-bin/envtest.pl b/cgi-bin/envtest.pl
old mode 100644 (file)
new mode 100755 (executable)
index 998ff07..8dbd6d9
--- a/cgi-bin/envtest.pl
+++ b/cgi-bin/envtest.pl
@@ -1,8 +1,11 @@
 #!/usr/bin/perl
 
 #!/usr/bin/perl
 

+use FindBin qw($RealBin);
+require "$RealBin/../BuildFarmWeb.pl";
+

 print "Content-Type: text/plain\n\n";
 
 print "Content-Type: text/plain\n\n";
 

-print "Conf: /home/farm/server\n";
+print "Conf: $RealBin/../\n";

 
 print `pwd`;
 
 
 print `pwd`;
 

diff --git a/cgi-bin/eximstatus.pl b/cgi-bin/eximstatus.pl
index af68f109efb734f5347b57dff9eb0d0ec3290c7c..df25467a0ed0f945b052d247d96d873f35ad95cd 100755 (executable)
--- a/cgi-bin/eximstatus.pl
+++ b/cgi-bin/eximstatus.pl
@@ -33,7 +33,7 @@ use Storable qw(thaw);
 use FindBin qw($RealBin);
 require "$RealBin/../BuildFarmWeb.pl";
 
 use FindBin qw($RealBin);
 require "$RealBin/../BuildFarmWeb.pl";
 

-my $buildlogs = "/home/farm/server/buildlogs";
+my $buildlogs = "$RealBin/../buildlogs";

 
 die "no dbname" unless $dbname;
 die "no dbuser" unless $dbuser;
 
 die "no dbname" unless $dbname;
 die "no dbuser" unless $dbuser;

diff --git a/scripts/delete_unlisted_branches.pl b/scripts/delete_unlisted_branches.pl
index 2dba66ce6c95146a8d3d7192656ed35c6005ca1d..2ded4fbf6c0a0489a983c5fbbb5835f02018b847 100755 (executable)
--- a/scripts/delete_unlisted_branches.pl
+++ b/scripts/delete_unlisted_branches.pl
@@ -23,7 +23,7 @@ my $db = DBI->connect($dsn,$dbuser,$dbpass);
 die $DBI::errstr unless $db;
 
 my ($brhandle,@branches_of_interest);
 die $DBI::errstr unless $db;
 
 my ($brhandle,@branches_of_interest);

-if (open($brhandle,"/home/farm/server/htdocs/branches_of_interest.txt"))
+if (open($brhandle,"$RealBin/../htdocs/branches_of_interest.txt"))

 {
     @branches_of_interest = <$brhandle>;
     close($brhandle);
 {
     @branches_of_interest = <$brhandle>;
     close($brhandle);

diff --git a/scripts/purge_old_logs.pl b/scripts/purge_old_logs.pl
index ad267bdd0be4528c828c46b4c9e3d6e1556c62f8..f539f2fb877e87579a007d1289e925e50ca0308b 100755 (executable)
--- a/scripts/purge_old_logs.pl
+++ b/scripts/purge_old_logs.pl
@@ -37,7 +37,7 @@ my $del_recent_sth = $db->prepare(q[
 $del_sth->execute();
 $del_recent_sth->execute();
 
 $del_sth->execute();
 $del_recent_sth->execute();
 

-my $buildlogs = "/home/farm/server/buildlogs";
+my $buildlogs = "$RealBin/../buildlogs";

 
 my @dirs = `find $buildlogs -mindepth 1 -type d -ctime +95`;
 foreach my $dir (@dirs) {
 
 my @dirs = `find $buildlogs -mindepth 1 -type d -ctime +95`;
 foreach my $dir (@dirs) {