viewvc/pkg-gnupg/updchk.pl

#!/usr/bin/perl -w

use strict;
use warnings;

my $svncat = "/usr/bin/svnlook cat /svn/pkg-gnupg";
my $send = 0;
my $infomail;

open (TREE, "/usr/bin/svnlook tree -N /svn/pkg-gnupg |");
my @array = map { $_ =~ /^ ([[:graph:]]+)\/$/m ; }(grep { $_ =~ m/^ ([[:graph:]]+)\/$/m ; } <TREE>);
close (TREE);

if (! @array) { exit(0); }

$infomail  = "Report for packages of Debian GnuPG-Maintainers\n";
$infomail .= "***********************************************\n\n";

foreach (@array) {
        my $watchpath  = "$_" . "/" . "trunk" . "/" . "debian/watch";
        my $changepath = "$_" . "/" . "trunk" . "/" . "debian/changelog";
        my $changefile = `$svncat $changepath | /usr/bin/dpkg-parsechangelog -l-`;
        my ($package, $version) = ($changefile =~ /^Source: (.*?)$/m, $changefile =~ /^Version: ([^-]+)-.*$/m);

        if ( ! system("$svncat $watchpath >> /dev/null 2>&1") ) {
                my $watchfile = `$svncat $watchpath`;
                open (USCAN, "$svncat $watchpath | /usr/bin/uscan --no-download --watchfile -" .
                             " --package $package --upstream-version $version 2>&1 |");
                my @tmp = <USCAN>;
                if (@tmp) {
                        $infomail .= "@tmp\n";
                        $send = 1;
                }
                close (USCAN);
        }
}

$infomail .= "\n\n";

if ($send != 0) {
        open (INFOMAIL, "| /usr/bin/mail -s 'Package information for the pkg-gnupg project'" .
                        " 'Debian GnuPG-Maintainers <pkg-gnupg-maint\@lists.alioth.debian.org>'");
        print INFOMAIL $infomail;
        close (INFOMAIL);
}

exit(0);
1	#!/usr/bin/perl -w
2
3	use strict;
4	use warnings;
5
6	my $svncat = "/usr/bin/svnlook cat /svn/pkg-gnupg";
7	my $send = 0;
8	my $infomail;
9
10	open (TREE, "/usr/bin/svnlook tree -N /svn/pkg-gnupg \|");
11	my @array = map { $_ =~ /^ ([[:graph:]]+)\/$/m ; }(grep { $_ =~ m/^ ([[:graph:]]+)\/$/m ; } <TREE>);
12	close (TREE);
13
14	if (! @array) { exit(0); }
15
16	$infomail = "Report for packages of Debian GnuPG-Maintainers\n";
17	$infomail .= "***********************************************\n\n";
18
19	foreach (@array) {
20	my $watchpath = "$_" . "/" . "trunk" . "/" . "debian/watch";
21	my $changepath = "$_" . "/" . "trunk" . "/" . "debian/changelog";
22	my $changefile = `$svncat $changepath \| /usr/bin/dpkg-parsechangelog -l-`;
23	my ($package, $version) = ($changefile =~ /^Source: (.?)$/m, $changefile =~ /^Version: ([^-]+)-.$/m);
24
25	if ( ! system("$svncat $watchpath >> /dev/null 2>&1") ) {
26	my $watchfile = `$svncat $watchpath`;
27	open (USCAN, "$svncat $watchpath \| /usr/bin/uscan --no-download --watchfile -" .
28	" --package $package --upstream-version $version 2>&1 \|");
29	my @tmp = <USCAN>;
30	if (@tmp) {
31	$infomail .= "@tmp\n";
32	$send = 1;
33	}
34	close (USCAN);
35	}
36	}
37
38	$infomail .= "\n\n";
39
40	if ($send != 0) {
41	open (INFOMAIL, "\| /usr/bin/mail -s 'Package information for the pkg-gnupg project'" .
42	" 'Debian GnuPG-Maintainers <pkg-gnupg-maint\@lists.alioth.debian.org>'");
43	print INFOMAIL $infomail;
44	close (INFOMAIL);
45	}
46
47	exit(0);