[Savannah-cvs] administration/infra/bin sv_gatekpr.pl

[Sylvain Beucler]

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";
        }
     }