$default_host
);
-require "$ENV{BFConfDir}/BuildFarmWeb.pl";
+
+use FindBin qw($RealBin);
+require "$RealBin/BuildFarmWeb.pl";
die "no dbname" unless $dbname;
die "no dbuser" unless $dbuser;
my $host = `hostname`; chomp ($host);
$host = $default_host unless ($host =~ m/[.]/ || !defined($default_host));
-my $from_addr = "PG Build Farm <$me\@$host>";
+my $from_addr = "Exim BuildFarm <$me\@$host>";
$from_addr =~ tr /\r\n//d;
# $sth->finish;
$msg->to($mailto);
- $msg->subject("PGBuildfarm member $animal Branch $branch Alert cleared");
+ $msg->subject("Exim BuildFarm member $animal Branch $branch Alert cleared");
my $fh = $msg->open;
print $fh "\n\n$text\n";
$fh->close;
$msg->to($mailto);
- $msg->subject("PGBuildfarm member $animal Branch $branch " .
+ $msg->subject("Exim BuildFarm member $animal Branch $branch " .
"Alert notification");
my $fh = $msg->open;
print $fh "\n\n$text\n";