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;
print "Content-Type: text/plain\n\n";
print "request was on:\n$content\n";
-
-
-