]> git.decadent.org.uk Git - dak.git/blob - tools/gen-emails.pl
Add a missing print in report_multiple_source().
[dak.git] / tools / gen-emails.pl
1 #!/usr/bin/perl
2
3 # Copyright (C) 2010 Alexander Wirt <formorer@debian.org>
4 #
5 # This program is free software; you can redistribute it and/or modify it under
6 # the terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 2 of the License, or (at your option) any later
8 # version.
9 #
10 # This program is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
12 # PARTICULAR PURPOSE. See the GNU General Public License for more details.
13 #
14 # You should have received a copy of the GNU General Public License along with
15 # this program; if not, see <http://www.gnu.org/licenses/>.
16
17 use warnings;
18 use strict;
19 use DBI;
20
21 my $outfile = shift;
22
23 if (! $outfile) {
24         print "Output Filename needed\n";
25         exit 1;
26 }
27
28 my $dbh = DBI->connect("DBI:Pg:dbname=backports");
29
30
31 my $sth = $dbh->prepare( "
32         SELECT  maintainer.name,
33                 source.source,
34                 max(source.version)
35         FROM    source,source_suite,
36                 maintainer
37         WHERE   source.id = source_suite.src
38         AND     source.changedby = maintainer.id
39         AND     ( suite_name = 'lenny-backports' or suite_name = 'squeeze-backports' )
40         GROUP BY source.source,maintainer.name;
41 ");
42
43 if ( !defined $sth ) {
44         die "Cannot prepare statement: $DBI::errstr\n";
45 }
46
47 $sth->execute or die "Could not execute query: $DBI::errstr\n";
48
49 open (my $fh, '>', $outfile) or die "Could not open File $outfile for writing: $!";
50
51 while (my $row = $sth->fetchrow_hashref) {
52         my $email;
53         if ($row->{'name'} =~ /<([^>]+)>/) {
54                 $email = $1;
55         } else {
56                 next;
57         }
58         printf($fh "%s: %s\n", $row->{'source'}, $email);
59 }
60
61 close($fh);
62