X-Git-Url: https://git.exim.org/buildfarm-server.git/blobdiff_plain/ee5bc1519ff7fc99022fa43408384da96daf98ed..20675f7503a7723da07eade5c2a08db981af25f5:/scripts/approve_system.pl

diff --git a/scripts/approve_system.pl b/scripts/approve_system.pl
index 32e2321..330fad0 100755
--- a/scripts/approve_system.pl
+++ b/scripts/approve_system.pl
@@ -12,7 +12,9 @@ use vars qw($dbhost $dbname $dbuser $dbpass $dbport
             $user_list_format
             $default_host $mail_from
 );
-require "$ENV{BFConfDir}/BuildFarmWeb.pl";
+
+use FindBin qw($RealBin);
+require "$RealBin/../BuildFarmWeb.pl";
 
 die "no dbname" unless $dbname;
 die "no dbuser" unless $dbuser;
@@ -35,7 +37,7 @@ my $sth = $db->prepare(q[
       ]);
 $sth->execute();
 
-sub send_welcome_message
+sub send_welcome_email
 {
   my $row = shift() or return;
   my $msg = new Mail::Send;