Changeset 43

Timestamp:

Jul 9, 2007, 9:29:00 PM (17 years ago)

Author:

simon

Message:

• Move code to get the list of UIDs into a function

File:

• keysigning/gpg-challenge.pl (modified) (2 diffs)

keysigning/gpg-challenge.pl

@@ -27 +27 @@
 my $occasion="something";
 
-foreach my $keyID (@ARGV) {
-    if ( $keyID !~ /[A-F0-9]{8}/i )
-    {
-        die "\"$keyID\" doesn't look like a valid Key-ID!\n";
-    }
-
-    printf stderr "Key ID: $keyID\n";
+sub get_uids ($)
+{
+    my $keyID = shift;
 
     my (%uids);
@@ -78 +74 @@
     }
 
-    foreach $uid ( keys %uids )
+    return %uids;
+}
+
+foreach my $keyID (@ARGV) {
+    if ( $keyID !~ /[A-F0-9]{8}/i )
+    {
+        die "\"$keyID\" doesn't look like a valid Key-ID!\n";
+    }
+
+    printf STDERR "Key ID: $keyID\n";
+    my (%uids) = get_uids($keyID);
+
+    foreach my $uid ( keys %uids )
     {
         # Get a random string: