projects
/
tpope-extra.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9763dbc
)
-f to -F
author
Tim Pope
<code@tpope.net>
Thu, 5 May 2005 17:27:23 +0000
(17:27 +0000)
committer
Tim Pope
<code@tpope.net>
Thu, 5 May 2005 17:27:23 +0000
(17:27 +0000)
perl/sctweb
patch
|
blob
|
history
diff --git
a/perl/sctweb
b/perl/sctweb
index 3c26cee263497b5f65a59f85bbd2417db60ea052..4b1c0b1e7ae1aeae33b0290117d3cf9632099d1c 100755
(executable)
--- 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";
}
my $config = $ENV{HOME} . "/.sctwebrc";
-if ($ARGV[0] eq '-
f
') {
+if ($ARGV[0] eq '-
F
') {
shift;
$config = shift;
}
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 {
} 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;
}
}
return @sterms;
}