git://git.exim.org
/
buildfarm-server.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
URI encode branch parameter.
[buildfarm-server.git]
/
scripts
/
approve_system.pl
diff --git
a/scripts/approve_system.pl
b/scripts/approve_system.pl
index 32e23218215ac67b402c5c722c9639315c6b78a0..330fad027f253618ef5f8181d0b8e2828d2aed3c 100755
(executable)
--- 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
);
$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;
die "no dbname" unless $dbname;
die "no dbuser" unless $dbuser;
@@
-35,7
+37,7
@@
my $sth = $db->prepare(q[
]);
$sth->execute();
]);
$sth->execute();
-sub send_welcome_
message
+sub send_welcome_
email
{
my $row = shift() or return;
my $msg = new Mail::Send;
{
my $row = shift() or return;
my $msg = new Mail::Send;