use vars qw($dbhost $dbname $dbuser $dbpass $dbport
);
-require "$ENV{BFConfDir}/BuildFarmWeb.pl";
+
+use FindBin qw($RealBin);
+require "$RealBin/../BuildFarmWeb.pl";
die "no dbname" unless $dbname;
die "no dbuser" unless $dbuser;
$del_sth->execute();
$del_recent_sth->execute();
-my $buildlogs = "$ENV{BFConfDir}/buildlogs";
+my $buildlogs = "$RealBin/../buildlogs";
my @dirs = `find $buildlogs -mindepth 1 -type d -ctime +95`;
foreach my $dir (@dirs) {