scripts/gen_alias_list.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use DBI;
   6 use Data::Dumper;
   7 use Getopt::Long;
   8
   9 use vars qw($dbhost $dbname $dbuser $dbpass $dbport
  10             $user_list_format
  11 );
  12 require "$ENV{BFConfDir}/BuildFarmWeb.pl";
  13
  14 die "no dbname" unless $dbname;
  15 die "no dbuser" unless $dbuser;
  16
  17 my %opts = ( outfile => "/etc/mail/lists/farmers" );
  18 GetOptions( \%opts,
  19   'outfile:s',
  20 );
  21
  22 my $dsn="dbi:Pg:dbname=$dbname";
  23 $dsn .= ";host=$dbhost" if $dbhost;
  24 $dsn .= ";port=$dbport" if $dbport;
  25
  26 my $db = DBI->connect($dsn,$dbuser,$dbpass);
  27
  28 die $DBI::errstr unless $db;
  29
  30 my $sth = $db->prepare(q[
  31        SELECT owner_email
  32        FROM buildsystems AS b
  33        ORDER BY owner_email ASC
  34       ]);
  35 $sth->execute();
  36
  37 my %list;
  38 while (my $row = $sth->fetchrow_hashref)
  39 {
  40   $list{$row->{owner_email}}++;
  41 }
  42 $db->disconnect();
  43
  44 open(my $fh, ">", $opts{outfile});
  45 if ($fh) {
  46   print $fh (join "\n", (keys %list));
  47 }
  48 close $fh;