annotate status-bar code

[buildfarm-server.git] / cgi-bin / upgrade.pl

diff --git a/cgi-bin/upgrade.pl b/cgi-bin/upgrade.pl
old mode 100644 (file)
new mode 100755 (executable)
index f4cbb99..e16fe8e
--- a/cgi-bin/upgrade.pl
+++ b/cgi-bin/upgrade.pl
@@ -1,5 +1,13 @@
 #!/usr/bin/perl
 
+=comment
+
+Copyright (c) 2003-2010, Andrew Dunstan
+
+See accompanying License file for license details
+
+=cut 
+
 use strict;
 
 use CGI;
@@ -25,7 +33,8 @@ my $content = "animal=$animal\&ts=$ts";
 $content .= "\&new_os=$os_version" if $os_version;
 $content .= "\&new_compiler=$compiler_version" if $compiler_version;
 
-require "$ENV{BFConfDir}/BuildFarmWeb.pl";
+use FindBin qw($RealBin);
+require "$RealBin/../BuildFarmWeb.pl";
 
 die "no dbname" unless $dbname;
 die "no dbuser" unless $dbuser;
@@ -144,6 +153,3 @@ $db->disconnect;
 
 print "Content-Type: text/plain\n\n";
 print "request was on:\n$content\n";
-
-
-