Line # Revision Author
1 3 ahitrov@rambler.ru <% $strtime %>
2 <%ONCE>
3
4 my @smonth = (
5 '���',
6 '���',
7 '���',
8 '���',
9 '���',
10 '���',
11 '���',
12 '���',
13 '���',
14 '���',
15 '���',
16 '���',
17 );
18
19 </%ONCE>
20 <%ARGS>
21
22 $dtime
23 $digital_month => undef
24
25 </%ARGS>
26 <%INIT>
27
28 return unless $dtime;
29
30 use locale;
31
32 my @cur_time = localtime();
33 my ($sdate, $stime) = split( ' ', $dtime );
34 my @time = split( ':', $stime );
35 @time = ($time[0], $time[1]);
36 my @date = split( '-', $sdate );
37
38 my $strtime = $date[2]; # ����
39 $strtime .= ( $digital_month ? '.'.$date[1] : ' '.$smonth[$date[1]-1] );
40 $strtime .= ( $cur_time[5]+1900 == $date[0] ? '' : ($digital_month?'.':' ').$date[0] );
41 $strtime .= ' ['.join( ':', @time ).']';
42
43 </%INIT>