Rozdiely pre scripts/perl/accounting/netacct-stats.cgi medzi verziami 1.4 a 1.5
| verzia 1.4, 2005/03/27 22:12:15 |
verzia 1.5, 2005/03/27 22:15:13 |
|
|
| # 2005-03-14 - created |
# 2005-03-14 - created |
| # |
# |
| |
|
| # $Platon: scripts/perl/accounting/netacct-stats.cgi,v 1.3 2005/03/27 00:34:51 rajo Exp $ |
# $Platon: scripts/perl/accounting/netacct-stats.cgi,v 1.4 2005/03/27 22:12:15 rajo Exp $ |
| |
|
| use strict; |
use strict; |
| umask 002; |
umask 002; |
| Riadok 110 $log_tables = $db->selectall_hashref("/* |
|
| Riadok 110 $log_tables = $db->selectall_hashref("/* |
|
| |
|
| foreach my $key (keys %$log_tables) { |
foreach my $key (keys %$log_tables) { |
| $log_tables->{$key}->{Date} = join('-', $key =~ m/(\d+)_(\d+)$/g); |
$log_tables->{$key}->{Date} = join('-', $key =~ m/(\d+)_(\d+)$/g); |
| warn "$key = $log_tables->{$key}->{Date}"; |
|
| } |
} |
| |
|
| $template_data = { |
$template_data = { |
Platon Group <platon@platon.sk> http://platon.sk/
|
|
Prihlásiť
Registrácia
English
![[BACK]](http://cvsweb.platon.sk/icons/back.gif){kind=icon}
![[TXT]](http://cvsweb.platon.sk/icons/text.gif){kind=icon}
![[DIR]](http://cvsweb.platon.sk/icons/dir.gif){kind=icon}
Vyššie na