pts/bin/unsub-all.pl

#!/usr/bin/perl -w

# Copyright 2006 Raphael Hertzog <hertzog@debian.org>
# Available under the terms of the General Public License version 2
# or (at your option) any later version

use lib '/org/packages.qa.debian.org/perl';

use DB_File;
use strict;

require "common.pl";

my $email = shift;
my $count = 0;

foreach my $pkg (which($email)) {
    if (unsubscribe($email, $pkg)) {
        print "Unsubscription of $email from $pkg.\n";
        $count++;
    }
}
if (! $count) {
    print "No subscriptions cancelled (bad email?).\n";
    print "Usage: bin/unsub-all.pl <email>\n";
}

1	hertzog	1324	#!/usr/bin/perl -w
2
3			# Copyright 2006 Raphael Hertzog <hertzog@debian.org>
4			# Available under the terms of the General Public License version 2
5			# or (at your option) any later version
6
7			use lib '/org/packages.qa.debian.org/perl';
8
9			use DB_File;
10			use strict;
11
12			require "common.pl";
13
14			my $email = shift;
15			my $count = 0;
16
17			foreach my $pkg (which($email)) {
18			if (unsubscribe($email, $pkg)) {
19			print "Unsubscription of $email from $pkg.\n";
20			$count++;
21			}
22			}
23			if (! $count) {
24			print "No subscriptions cancelled (bad email?).\n";
25			print "Usage: bin/unsub-all.pl <email>\n";
26			}
27
Name	Value
svn:eol-style	native
svn:executable	*
svn:keywords	Author Date Id Revision