From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 23 Jan 2010 19:46:19 +0000 (+0000)
Subject: store data in MongoDB
X-Git-Url: http://git.rot13.org/?p=pxelator;a=commitdiff_plain;h=d2b11fce3b0543855b86ffd15461ffd7055f4438;ds=sidebyside

store data in MongoDB
---

diff --git a/lib/PXElator/CouchDB.pm b/lib/PXElator/CouchDB.pm
index 1d1401b..7e9e8fd 100644
--- a/lib/PXElator/CouchDB.pm
+++ b/lib/PXElator/CouchDB.pm
@@ -8,7 +8,6 @@ use warnings;
 use LWP::UserAgent;
 use JSON;
 use Data::Dump qw/dump/;
-use Time::HiRes qw/time/;
 use Data::Structure::Util qw(unbless);
 use Scalar::Util qw/blessed/;
 use Storable qw/dclone/;
diff --git a/lib/PXElator/store.pm b/lib/PXElator/store.pm
index 0da25d4..e1d4fef 100644
--- a/lib/PXElator/store.pm
+++ b/lib/PXElator/store.pm
@@ -4,17 +4,16 @@ use warnings;
 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,9 +53,10 @@ sub audit {
 	$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 );
 }