pts/bin/add-tags.pl

#!/usr/bin/perl -w

# Copyright 2006 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;
use vars qw(%db_tags_content);

require "common.pl";

# Comment those two lines for the few times where this script may be needed
print "You shouldn't call this script.\n";
exit 1;

# Add buildd keyword to people with default keyword
open_db_write();
my $i = 0;
foreach (sort keys %db_tags_content) {
        if ($db_tags_content{$_} !~ m/buildd/) {
                if ($db_tags_content{$_} =~ m/default/) {
                        $db_tags_content{$_} =~ s/default/default,buildd/;
                        $i++;
                }
        }
}
print "$i entries updated.\n";
close_db();
1	#!/usr/bin/perl -w
2
3	# Copyright 2006 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 '/srv/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	# Comment those two lines for the few times where this script may be needed
17	print "You shouldn't call this script.\n";
18	exit 1;
19
20	# Add buildd keyword to people with default keyword
21	open_db_write();
22	my $i = 0;
23	foreach (sort keys %db_tags_content) {
24	if ($db_tags_content{$_} !~ m/buildd/) {
25	if ($db_tags_content{$_} =~ m/default/) {
26	$db_tags_content{$_} =~ s/default/default,buildd/;
27	$i++;
28	}
29	}
30	}
31	print "$i entries updated.\n";
32	close_db();
Name	Value
svn:eol-style	native
svn:executable	*
svn:keywords	Author Date Id Revision