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