13 |
use Scalar::Util qw/blessed/; |
use Scalar::Util qw/blessed/; |
14 |
use Storable qw/dclone/; |
use Storable qw/dclone/; |
15 |
use Carp qw/carp/; |
use Carp qw/carp/; |
16 |
|
use POSIX; |
17 |
|
|
18 |
sub new { |
sub new { |
19 |
my ($class, $host, $port, $options) = @_; |
my ($class, $host, $port, $options) = @_; |
145 |
|
|
146 |
# carp 'audit ', dump($data); |
# carp 'audit ', dump($data); |
147 |
|
|
148 |
$time = int($time); # reduce granularity for url |
# $time = int($time); # reduce granularity for url |
149 |
|
$time = strftime("%Y-%m-%d.%H:%M:%S", localtime $time); |
150 |
my $package = $caller[0]; |
my $package = $caller[0]; |
151 |
$audit->put( "pxelator/$time.$package.$url", $data ); |
$audit->put( "pxelator/$time.$package.$url", $data ); |
152 |
|
|