pts/bin/dump-tags.pl

#!/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 '/org/packages.qa.debian.org/perl';

use DB_File;

use strict;
use vars qw(%db_tags_content);

require "common.pl";

# Dump the tag database
open_db_read();
foreach (sort keys %db_tags_content) {
    print $_ . ":" . $db_tags_content{$_} . "\n";
}
close_db();
1	#!/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	use lib '/org/packages.qa.debian.org/perl';
8
9	use DB_File;
10
11	use strict;
12	use vars qw(%db_tags_content);
13
14	require "common.pl";
15
16	# Dump the tag database
17	open_db_read();
18	foreach (sort keys %db_tags_content) {
19	print $_ . ":" . $db_tags_content{$_} . "\n";
20	}
21	close_db();
Name	Value
svn:eol-style	native
svn:executable	*
svn:keywords	Author Date Id Revision