X-Git-Url: https://git.exim.org/buildfarm-server.git/blobdiff_plain/95357bcc18daf291bbae476ef9b83815f4a0cec9..aedede4030eba1aea92af8cacd0f09dc8ec26169:/cgi-bin/register.pl?ds=sidebyside diff --git a/cgi-bin/register.pl b/cgi-bin/register.pl index 5d83e79..1e3aba4 100755 --- a/cgi-bin/register.pl +++ b/cgi-bin/register.pl @@ -85,6 +85,12 @@ foreach (split "" ,"$os$osv$comp$compv$arch$owner") } # reject junk with too many transitions into/outof upper case + +=comment + +# disable this check now, probably redundant with captchas +# and we just got a false positive + if ($counttrans > 20) { print @@ -93,6 +99,7 @@ if ($counttrans > 20) exit; } +=cut my $secret = ""; @@ -141,13 +148,13 @@ my $me = `id -un`; chomp($me); 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 Build Farm <$me\@$host>"; $from_addr =~ tr /\r\n//d; $msg->set('From',$from_addr); $msg->to(@$notifyapp); -$msg->subject('New Buildfarm Application'); +$msg->subject('New BuildFarm Application'); my $fh = $msg->open; print $fh "\n\nName: $dummyname\n", "OS: $os: $osv\n",