--- okuchuu/blue-oceans/katsudou/current.html.cgi	2001/12/03 06:19:46	1.1
+++ okuchuu/blue-oceans/katsudou/current.html.cgi	2002/04/02 05:20:47	1.2
@@ -1,27 +1,27 @@
-#!/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++ 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";