Add dane to flags icons

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

diff --git a/cgi-bin/addnotes.pl b/cgi-bin/addnotes.pl
index 11186ddc2bce9490516e0274a4a7fd9663dc4863..3a760a2683a9f571bfec6cf47c48380971a73789 100755 (executable)
--- a/cgi-bin/addnotes.pl
+++ b/cgi-bin/addnotes.pl
@@ -29,7 +29,8 @@ my $sysnotes = $query->param('sysnotes');
 
 my $content = "animal=$animal\&sysnotes=$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;
 
 die "no dbname" unless $dbname;
 die "no dbuser" unless $dbuser;


@@ -119,6 +120,3 @@ $db->disconnect;
 
 print "Content-Type: text/plain\n\n";
 print "request was on:\n$content\n";
 
 print "Content-Type: text/plain\n\n";
 print "request was on:\n$content\n";

-
-
-