/[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.1 by wakaba, Mon Dec 3 06:19:46 2001 UTC revision 1.3 by wakaba, Wed Jun 5 13:47:07 2002 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    
5  $y += 1900 if $y < 1000;  $y += 1900 if $y < 1000;
6  $m++ if $m < 9;  $m = sprintf('%02d', $m);
7  $m = sprintf('%02d', $m);  
8    my $myuri = 'http://'.$main::ENV{SERVER_NAME}.':'.$main::ENV{SERVER_PORT}.
9  my $myuri = 'http://'.$main::ENV{SERVER_NAME}.':'.$main::ENV{SERVER_PORT}.              '/okuchuu/blue-oceans/';
10              '/okuchuu/blue-oceans/';  my $localpart;
11  my $localpart;  
12    if ($main::ENV{QUERY_STRING} eq 'year') {
13  if ($main::ENV{QUERY_STRING} eq 'year') {    $localpart = $y.'/';
14    $localpart = $y.'/';  } elsif ($main::ENV{QUERY_STRING} eq 'theme') {
15  } elsif ($main::ENV{QUERY_STRING} eq 'theme') {    $localpart = $y.'/theme';
16    $localpart = $y.'/theme';  } elsif ($main::ENV{QUERY_STRING} eq 'taikai') {
17  } elsif ($main::ENV{QUERY_STRING} eq 'taikai') {    $localpart = $y.'/taikai';
18    $localpart = $y.'/taikai';  } elsif ($main::ENV{QUERY_STRING} eq 'part') {
19  } elsif ($main::ENV{QUERY_STRING} eq 'part') {    $localpart = $y.'/part/';
20    $localpart = $y.'/part/';  } elsif ($main::ENV{QUERY_STRING} eq 'newmember') {
21  } elsif ($main::ENV{QUERY_STRING} eq 'newmember') {    $localpart = $y.'/newmember';
22    $localpart = $y.'/newmember';  } else {
23  } else {    $localpart = $y.'/'.$m;
24    $localpart = $y.'/'.$m;  }
25  }  
26    print "Location: ${myuri}${localpart}\n\n";
 print "Location: ${myuri}${localpart}\n\n";  
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24