Minor adjustments

[buildfarm-server.git] / cgi-bin / register.pl

diff --git a/cgi-bin/register.pl b/cgi-bin/register.pl
index 5d83e7961f68391860c5c69b1a2fc71c56724381..1e3aba48ad382e7ab87ff138a5736d701f2a4527 100755 (executable)
--- 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
 }
 
 # 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 
 if ($counttrans > 20)
 {
     print 


@@ -93,6 +99,7 @@ if ($counttrans > 20)
     exit;   
 }
 
     exit;   
 }
 

+=cut

 
 
 my $secret = "";
 
 
 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 $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);
 $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",
 my $fh = $msg->open;
 print $fh "\n\nName: $dummyname\n",
     "OS: $os: $osv\n",