[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Savannah-cvs] administration/infra/bin sv_gatekpr.pl
From: |
Sylvain Beucler |
Subject: |
[Savannah-cvs] administration/infra/bin sv_gatekpr.pl |
Date: |
Wed, 12 Jan 2005 16:46:41 -0500 |
CVSROOT: /cvsroot/administration
Module name: administration
Branch:
Changes by: Sylvain Beucler <address@hidden> 05/01/12 21:31:32
Modified files:
infra/bin : sv_gatekpr.pl
Log message:
Fixed a bug in database access
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/administration/administration/infra/bin/sv_gatekpr.pl.diff?tr1=1.2&tr2=1.3&r1=text&r2=text
Patches:
Index: administration/infra/bin/sv_gatekpr.pl
diff -u administration/infra/bin/sv_gatekpr.pl:1.2
administration/infra/bin/sv_gatekpr.pl:1.3
--- administration/infra/bin/sv_gatekpr.pl:1.2 Mon Jan 10 23:08:48 2005
+++ administration/infra/bin/sv_gatekpr.pl Wed Jan 12 21:31:32 2005
@@ -51,23 +51,24 @@
my ($group) = @_;
my @download_keys;
- my %group_savannah = GetGroupAdmins($group);
+ my @group_savannah = GetGroupAdmins($group);
open(EMAIL, ">/home/gatekpr/projects/$group/email")
or die "failed to open /home/gatekpr/projects/$group/email";
flock(EMAIL, LOCK_EX) or die "flock failed";
- for my $user (keys (%group_savannah)) {
+ for my $user (@group_savannah) {
# user is group admin and gets to upload files
- my ($gpg_keys, $gpg_count, $email) = GetDBSettings('user',
- "user_id=$user",
-
'gpg_key,gpg_key_count,email');
+
+ my ($gpg_keys, $email) = GetDBSettings('user',
+ "user_id=$user",
+ 'gpg_key,email');
+
# Count is really a 0/1 status right now.
- if ($gpg_count) {
+ if ($gpg_keys) {
push @download_keys, $gpg_keys;
print EMAIL "$email\n";
- #print "Add key:\n$gpg_keys\n";
}
}