minor cleanup
authorTroy Sankey <sankeytms@gmail.com>
Sat, 8 Feb 2014 06:55:52 +0000 (22:55 -0800)
committerTroy Sankey <sankeytms@gmail.com>
Sat, 8 Feb 2014 06:55:52 +0000 (22:55 -0800)
index.pl

index 28e97f3..23df7a8 100755 (executable)
--- a/index.pl
+++ b/index.pl
@@ -56,7 +56,7 @@ $rel_url =~ s/\Q$base_url\///;      #   => some/path/
 ###############################################################################
 
 if ($q->param) {
-  handle_submit();
+  handle_submit(); # somebody RSVP'd
 } elsif ($rel_url =~ /^lists(\/.*)?$/) {
   $rel_url =~ s/^lists(\/)?//;
   print_body_keylists();
@@ -122,7 +122,7 @@ sub print_head {
 <h2 style="display:inline;">LUG\@UCLA Keysigning Party</h2> &nbsp; &bull; &nbsp;
 <a href="$home_url">home</a> &nbsp; &bull; &nbsp;
 <a href="https://linux.ucla.edu/wiki/index.php/Keysigning_party">wiki</a> &nbsp; &bull; &nbsp;
-<a href="lists">keylists</a>
+<a href="$home_url/lists">keylists</a>
 <!-- <a href="rings">keyrings</a> &nbsp; &bull; &nbsp; -->
 <!-- <a href="stats">statistics</a> -->
 <br>
@@ -144,6 +144,11 @@ This app is written in Perl. See the
 END
 }
 
+###############################################################################
+# Function: connect_cache
+# Parameters:
+# Description: connect to the cache and set the global $cacheh variable.
+###############################################################################
 sub connect_cache {
   if (!defined $cacheh) {
     $cacheh = CHI->new( driver => 'File', root_dir => $cache_dir );
@@ -166,7 +171,7 @@ sub connect_db {
 
 ###############################################################################
 # Function: get_next_party
-# Parameters: database
+# Parameters:
 # Return: tuple contianing the party index and datetime.
 # Description:
 #   Get the index and date of the upcoming party. If there are two or more