Drop 4.next

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

diff --git a/cgi-bin/addnotes.pl b/cgi-bin/addnotes.pl
index acab114a346753f5f129defafcc91133e008df0c..3a760a2683a9f571bfec6cf47c48380971a73789 100755 (executable)
--- a/cgi-bin/addnotes.pl
+++ b/cgi-bin/addnotes.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;
@@ -21,7 +29,8 @@ my $sysnotes = $query->param('sysnotes');
 
 my $content = "animal=$animal\&sysnotes=$sysnotes";
 
-require "$ENV{BFConfDir}/BuildFarmWeb.pl";
+use FindBin qw($RealBin);
+require "$RealBin/../BuildFarmWeb.pl";
 
 die "no dbname" unless $dbname;
 die "no dbuser" unless $dbuser;
@@ -111,6 +120,3 @@ $db->disconnect;
 
 print "Content-Type: text/plain\n\n";
 print "request was on:\n$content\n";
-
-
-