Parent Directory
| 
Revision Log
| 
Patch
| revision 1.2 by wakaba, Tue Apr 2 05:20:47 2002 UTC | revision 1.3 by wakaba, Wed Jun 5 13:47:07 2002 UTC | |
|---|---|---|
| # | Line 3 | Line 3 |
| 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; |
| $m++ if $m < 9; | ||
| 6 | $m = sprintf('%02d', $m); | $m = sprintf('%02d', $m); |
| 7 | ||
| 8 | my $myuri = 'http://'.$main::ENV{SERVER_NAME}.':'.$main::ENV{SERVER_PORT}. | my $myuri = 'http://'.$main::ENV{SERVER_NAME}.':'.$main::ENV{SERVER_PORT}. |
|
||||||||
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |