--- okuchuu/blue-oceans/katsudou/current.html.cgi 2001/12/03 06:19:46 1.1
+++ okuchuu/blue-oceans/katsudou/current.html.cgi 2002/06/05 13:47:07 1.3
@@ -1,27 +1,26 @@
-#!/usr/bin/perl
-
-(undef, undef, undef, undef, $m, $y) = localtime; $m++;
-
-$y += 1900 if $y < 1000;
-$m++ if $m < 9;
-$m = sprintf('%02d', $m);
-
-my $myuri = 'http://'.$main::ENV{SERVER_NAME}.':'.$main::ENV{SERVER_PORT}.
- '/okuchuu/blue-oceans/';
-my $localpart;
-
-if ($main::ENV{QUERY_STRING} eq 'year') {
- $localpart = $y.'/';
-} elsif ($main::ENV{QUERY_STRING} eq 'theme') {
- $localpart = $y.'/theme';
-} elsif ($main::ENV{QUERY_STRING} eq 'taikai') {
- $localpart = $y.'/taikai';
-} elsif ($main::ENV{QUERY_STRING} eq 'part') {
- $localpart = $y.'/part/';
-} elsif ($main::ENV{QUERY_STRING} eq 'newmember') {
- $localpart = $y.'/newmember';
-} else {
- $localpart = $y.'/'.$m;
-}
-
-print "Location: ${myuri}${localpart}\n\n";
+#!/usr/bin/perl
+
+(undef, undef, undef, undef, $m, $y) = localtime; $m++;
+
+$y += 1900 if $y < 1000;
+$m = sprintf('%02d', $m);
+
+my $myuri = 'http://'.$main::ENV{SERVER_NAME}.':'.$main::ENV{SERVER_PORT}.
+ '/okuchuu/blue-oceans/';
+my $localpart;
+
+if ($main::ENV{QUERY_STRING} eq 'year') {
+ $localpart = $y.'/';
+} elsif ($main::ENV{QUERY_STRING} eq 'theme') {
+ $localpart = $y.'/theme';
+} elsif ($main::ENV{QUERY_STRING} eq 'taikai') {
+ $localpart = $y.'/taikai';
+} elsif ($main::ENV{QUERY_STRING} eq 'part') {
+ $localpart = $y.'/part/';
+} elsif ($main::ENV{QUERY_STRING} eq 'newmember') {
+ $localpart = $y.'/newmember';
+} else {
+ $localpart = $y.'/'.$m;
+}
+
+print "Location: ${myuri}${localpart}\n\n";