Contents of /trunk/pts/bin/pts-list

#!/usr/bin/perl -w

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

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

use DB_File;
use strict;

=head1 List of subscribers

pts-list <package> returns the list of subscribers to a given package.

=cut

require "common.pl";

my $p = shift;
die "Usage: pts-list <package>\n" if (! defined $p);

my ($package, @m) = map_package(lc($p));
print STDERR join("", @m);
print STDOUT join("\n", list($package)) . "\n";

1	hertzog	283	#!/usr/bin/perl -w
2
3			# Copyright 2002 Raphaël 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	geissert	2738	use lib '/srv/packages.qa.debian.org/perl';
8	hertzog	283
9	hertzog	295	use DB_File;
10	hertzog	283	use strict;
11
12			=head1 List of subscribers
13
14			pts-list <package> returns the list of subscribers to a given package.
15
16			=cut
17
18	hertzog	295	require "common.pl";
19	hertzog	283
20			my $p = shift;
21			die "Usage: pts-list <package>\n" if (! defined $p);
22
23			my ($package, @m) = map_package(lc($p));
24			print STDERR join("", @m);
25			print STDOUT join("\n", list($package)) . "\n";
26
Name	Value
svn:eol-style	native
svn:executable	*
svn:keywords	Author Date Id Revision