--- lib/PXElator/store.pm 2010/01/23 18:58:18 483 +++ lib/PXElator/store.pm 2010/01/23 20:47:17 487 @@ -4,17 +4,16 @@ use strict; use POSIX; +use Time::HiRes qw/time/; -use CouchDB; - -=for MongoDB +#use CouchDB; use MongoDB; + my $conn = MongoDB::Connection->new; my $db = $conn->get_database( 'pxelator' ); our $audit = $db->get_collection( 'audit' ); -=cut sub audit { my $data = pop @_; @@ -54,10 +53,22 @@ $time = strftime("%Y-%m-%d.%H:%M:%S", localtime $time); my $package = $caller[0]; - CouchDB::_store_audit( "$time.$package.$url" => $data ); +# CouchDB::_store_audit( "$time.$package.$url" => $data ); -# $data->{_id} = "$time.$package.$url"; $audit->insert( $data ); +# $data->{_id} = "$time.$package.$url"; + $audit->insert( $data ); } +use Data::Dumper; + +sub query { + my $callback = shift; + my $cursor = $audit->query->sort({ '$natural' => -1 })->limit( 25 ); + while( my $o = $cursor->next ) { +# $callback->( $o ); +warn Dumper( $o ); + $callback->( $o ); + } +} 1;