blue-oceans/katsudou/current.html.cgi

#!/usr/bin/perl

#(undef, undef, undef, undef, $m, $y) = localtime;  $m++;
my $m = 4;
my $y = 2002;

$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') {
  $y = 2001;
  $localpart = $y.'/theme';
} elsif ($main::ENV{QUERY_STRING} eq 'taikai') {
  $y = 2001;
  $localpart = $y.'/taikai';
} elsif ($main::ENV{QUERY_STRING} eq 'part') {
  $y = 2001;
  $localpart = $y.'/part/latest';
} elsif ($main::ENV{QUERY_STRING} eq 'newmember') {
  $y = 2001;
  $localpart = $y.'/newmember';
} else {
  $localpart = $y.'/'.$m;
}

print "Location: ${myuri}${localpart}\n\n";
1	wakaba	1.2	#!/usr/bin/perl
2
3	wakaba	1.4	#(undef, undef, undef, undef, $m, $y) = localtime; $m++;
4			my $m = 4;
5			my $y = 2002;
6	wakaba	1.2
7			$y += 1900 if $y < 1000;
8			$m = sprintf('%02d', $m);
9
10			my $myuri = 'http://'.$main::ENV{SERVER_NAME}.':'.$main::ENV{SERVER_PORT}.
11			'/okuchuu/blue-oceans/';
12			my $localpart;
13
14			if ($main::ENV{QUERY_STRING} eq 'year') {
15			$localpart = $y.'/';
16			} elsif ($main::ENV{QUERY_STRING} eq 'theme') {
17	wakaba	1.4	$y = 2001;
18	wakaba	1.2	$localpart = $y.'/theme';
19			} elsif ($main::ENV{QUERY_STRING} eq 'taikai') {
20	wakaba	1.4	$y = 2001;
21	wakaba	1.2	$localpart = $y.'/taikai';
22			} elsif ($main::ENV{QUERY_STRING} eq 'part') {
23	wakaba	1.4	$y = 2001;
24			$localpart = $y.'/part/latest';
25	wakaba	1.2	} elsif ($main::ENV{QUERY_STRING} eq 'newmember') {
26	wakaba	1.4	$y = 2001;
27	wakaba	1.2	$localpart = $y.'/newmember';
28			} else {
29			$localpart = $y.'/'.$m;
30			}
31
32			print "Location: ${myuri}${localpart}\n\n";