add title (with date) to keylist
authorTroy Sankey <sankeytms@gmail.com>
Sat, 10 May 2014 05:46:44 +0000 (22:46 -0700)
committerTroy Sankey <sankeytms@gmail.com>
Sat, 10 May 2014 05:46:44 +0000 (22:46 -0700)
index.pl

index 521949c..ad9da97 100755 (executable)
--- a/index.pl
+++ b/index.pl
@@ -283,10 +283,12 @@ sub get_party_from_datestr {
 #   A keylist follows this format:
 #
 #   <------------------------------------- 80 ------------------------------------->
+#   LUG@UCLA Keysigning Party of 2014-05-17
+#   =======================================
 #   Name: Joe Bruin <jbruin@ucla.edu>
 #   Fingerprint: 0101 0101 0101 0101 0101  0101 0101 0101 0101 0101
 #                                                         ^^^^ ^^^^
-#   Name: Joe Bruin <jbruin@ucla.edu>
+#   Name: Tommy Trojan <ttrojan@usc.edu>
 #   Fingerprint: 0101 0101 0101 0101 0101  0101 0101 0101 0101 0101
 #                                                         ^^^^ ^^^^
 ###############################################################################
@@ -307,6 +309,13 @@ sub render_keylist {
     $keylist_string .= "DO NOT PRINT. THIS IS A PRELIMINARY LIST.\n".
                        "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n";
   }
+
+  # print title
+  my $title_string = "LUG\@UCLA Keysigning Party of " . $party_datetime->strftime("%F");
+  $title_string .= "\n" . ("=" x length($title_string)) . "\n";
+  $keylist_string .= $title_string;
+
+  # generate list of attendees with emails and fingerprints
   my $key_it = $dbh->prepare("SELECT name,email,fingerprint FROM key WHERE party_idx = $party_idx;")
     or die "Couldn't prepare statement: " . $dbh->errstr;
   $key_it->execute()