X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fsctweb;h=4b1c0b1e7ae1aeae33b0290117d3cf9632099d1c;hp=3c26cee263497b5f65a59f85bbd2417db60ea052;hb=ac5c17344fb558643239ce256af0c69b55ae60ac;hpb=9763dbc57f2890e6de599be36a88bbe0a1022bd7

diff --git a/perl/sctweb b/perl/sctweb
index 3c26cee..4b1c0b1 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -61,7 +61,7 @@ sub US_Labor # First Monday after the first Sunday in September
 }
 
 my $config = $ENV{HOME} . "/.sctwebrc";
-if ($ARGV[0] eq '-f') {
+if ($ARGV[0] eq '-F') {
     shift;
     $config = shift;
 }
@@ -232,7 +232,7 @@ sub get_schedule_terms {
     } elsif ($localtime[4]<10) { # through Oct 31
 	@sterms=((1900+$localtime[5]).$a[0]);
     } else {
-	@sterms=((1900+$localtime[5])."1",(1901+$localtime[5])."2");
+	@sterms=((1900+$localtime[5]).$a[0],(1901+$localtime[5]).$a[1]);
     }
     return @sterms;
 }