enable 4.next during release run-up

[buildfarm-server.git] / scripts / rename_system.pl

diff --git a/scripts/rename_system.pl b/scripts/rename_system.pl
index cf1dbde55d6c72a912e09597b13b88a7547b91b1..9cee13fc635dba98530be37a8ff5fbd891201416 100755 (executable)
--- a/scripts/rename_system.pl
+++ b/scripts/rename_system.pl
@@ -10,7 +10,9 @@ die "Must pass current and new sysnames\n" unless scalar @ARGV == 2;
 use vars qw($dbhost $dbname $dbuser $dbpass $dbport
             $user_list_format
 );
-require "$ENV{BFConfDir}/BuildFarmWeb.pl";
+
+use FindBin qw($RealBin);
+require "$RealBin/../BuildFarmWeb.pl";
 
 die "no dbname" unless $dbname;
 die "no dbuser" unless $dbuser;
@@ -37,7 +39,6 @@ my $sth = $db->prepare(q[
       ]);
 $sth->execute();
 
-my $user_list_format = "%-10s %-10s %-18s %-20s %-18s %-s\n";
 printf $user_list_format,
        "SysName", "Status", "Owner", "Email", "Distro", "Version";
 while (my $row = $sth->fetchrow_hashref)