New server, FileBin instead of $ENV{BFConfDir}, and custom Captcha

[buildfarm-server.git] / scripts / approve_system.pl

diff --git a/scripts/approve_system.pl b/scripts/approve_system.pl
index 7a36db716759d3e200a5590f7c2c44429120b70b..330fad027f253618ef5f8181d0b8e2828d2aed3c 100755 (executable)
--- a/scripts/approve_system.pl
+++ b/scripts/approve_system.pl
@@ -3,13 +3,18 @@
 use strict;
 use warnings;
 use DBI;
+use Mail::Send;
 use Data::Dumper;
 
 die "Must pass current sysname and new sysname\n" unless scalar @ARGV == 2;
 
 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;
@@ -22,25 +27,61 @@ my $db = DBI->connect($dsn,$dbuser,$dbpass);
 
 die $DBI::errstr unless $db;
 
-#my $sth_up = $db->prepare(q[
-#       SELECT approve(?, ?)
-#      ]);
-#$sth_up->execute(@ARGV);
 $db->do('SELECT approve(?, ?)', undef, @ARGV);
 
 my $sth = $db->prepare(q[ 
-       SELECT name, status, operating_system, os_version, sys_owner, owner_email
+       SELECT name, status, operating_system, os_version, sys_owner, owner_email,
+              secret, compiler, compiler_version, architecture
        FROM buildsystems AS b
        ORDER BY name ASC
       ]);
 $sth->execute();
 
-my $format = "%-10s %-10s %-18s %-20s %-18s %-s\n";
-printf $format, "SysName", "Status", "Owner", "Email", "Distro", "Version";
+sub send_welcome_email
+{
+  my $row = shift() or return;
+  my $msg = new Mail::Send;
+  my $me = `id -un`; chomp($me);
+  my $host = `hostname`; chomp($host);
+  $host = $default_host unless ($host =~ m/[.]/ || !defined($default_host));
+  my $from_addr = $mail_from ?
+                  "Exim BuildFarm <$mail_from>" :
+                  "Exim BuildFarm <$me\@$host>" ;
+  $from_addr =~ tr /\r\n//d;
+  $msg->set('From',$from_addr);
+  $msg->to($row->{owner_email});
+  $msg->subject('Exim BuildFarm Application Approved');
+  my $fh = $msg->open;
+  print $fh "\n\nCongratulations $row->{sys_owner},\n",
+            "Your application for the Exim BuildFarm has been accepted.\n\n",
+            "Please set the following in your build-farm.conf:\n",
+            "Animal:  $row->{name}\n",
+            "Secret:  $row->{secret}\n\n",
+            "BuildFarm machine details:\n",
+            "Distro  : $row->{operating_system}\n",
+            "+Version: $row->{os_version}\n",
+            "Arch    : $row->{architecture}\n",
+            "Compiler: $row->{compiler}\n",
+            "+Version: $row->{compiler_version}\n\n",
+            "If you update your system, either the Distro or compiler version\n",
+            "you can use the update_personality.pl script to update the\n",
+            "version stored in the BuildFarm database.\n\n",
+            "-- The Exim BuildFarm Maintainers";
+  $fh->close;
+}
+
+printf $user_list_format,
+       "SysName", "Status", "Owner", "Email", "Distro", "Version";
 while (my $row = $sth->fetchrow_hashref)
 {
-  printf $format, $row->{name}, $row->{status}, $row->{sys_owner},
+  printf $user_list_format,
+                  $row->{name}, $row->{status}, $row->{sys_owner},
                   $row->{owner_email}, $row->{operating_system},
                   $row->{os_version};
+  if ($row->{name} eq $ARGV[1])
+  {
+    &send_welcome_email($row);
+  }
 }
 $db->disconnect();
+