/[suikacvs]/okuchuu/blue-oceans/katsudou/current.html.cgi
Suika

Diff of /okuchuu/blue-oceans/katsudou/current.html.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by wakaba, Tue Apr 2 05:20:47 2002 UTC revision 1.4 by wakaba, Sun Aug 17 06:03:16 2003 UTC
# Line 1  Line 1 
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    my $y = 2002;
6    
7  $y += 1900 if $y < 1000;  $y += 1900 if $y < 1000;
 $m++ if $m < 9;  
8  $m = sprintf('%02d', $m);  $m = sprintf('%02d', $m);
9    
10  my $myuri = 'http://'.$main::ENV{SERVER_NAME}.':'.$main::ENV{SERVER_PORT}.  my $myuri = 'http://'.$main::ENV{SERVER_NAME}.':'.$main::ENV{SERVER_PORT}.
# Line 13  my $localpart; Line 14  my $localpart;
14  if ($main::ENV{QUERY_STRING} eq 'year') {  if ($main::ENV{QUERY_STRING} eq 'year') {
15    $localpart = $y.'/';    $localpart = $y.'/';
16  } elsif ($main::ENV{QUERY_STRING} eq 'theme') {  } elsif ($main::ENV{QUERY_STRING} eq 'theme') {
17      $y = 2001;
18    $localpart = $y.'/theme';    $localpart = $y.'/theme';
19  } elsif ($main::ENV{QUERY_STRING} eq 'taikai') {  } elsif ($main::ENV{QUERY_STRING} eq 'taikai') {
20      $y = 2001;
21    $localpart = $y.'/taikai';    $localpart = $y.'/taikai';
22  } elsif ($main::ENV{QUERY_STRING} eq 'part') {  } elsif ($main::ENV{QUERY_STRING} eq 'part') {
23    $localpart = $y.'/part/';    $y = 2001;
24      $localpart = $y.'/part/latest';
25  } elsif ($main::ENV{QUERY_STRING} eq 'newmember') {  } elsif ($main::ENV{QUERY_STRING} eq 'newmember') {
26      $y = 2001;
27    $localpart = $y.'/newmember';    $localpart = $y.'/newmember';
28  } else {  } else {
29    $localpart = $y.'/'.$m;    $localpart = $y.'/'.$m;
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24