remove unpack

[MojoFacets.git] / lib / MojoFacets.pm

diff --git a/lib/MojoFacets.pm b/lib/MojoFacets.pm
index f353f33..c80e748 100644 (file)
--- a/lib/MojoFacets.pm
+++ b/lib/MojoFacets.pm
@@ -7,6 +7,30 @@ our $VERSION = '0.0001';
 
 use base 'Mojolicious';
 
+use Data::Dump qw(dump);
+use Storable;
+use Time::HiRes qw(time);
+
+
+sub save_tx {
+       my ($self,$tx) = @_;
+#      warn "## before_dispatch req ",dump($tx->req->url, $tx->req->params);
+       my $parts = $tx->req->url->path->parts;
+       warn "# parts ",dump( $parts );
+       if ( $parts->[0] eq 'data' ) {
+               if ( my $params = $tx->req->params ) {
+
+                       my $path = '/tmp/changes/';
+                       mkdir $path unless -e $path;
+                       $path .= sprintf '%.4f.%s', time(), join('.', @$parts);
+
+                       store $params, $path;
+                       warn "$path ", -s $path, " bytes\n";
+               }
+       }
+}
+
+
 # This method will run once at server start
 sub startup {
     my $self = shift;
@@ -16,6 +40,18 @@ sub startup {
 
     # Default route
     $r->route('/:controller/:action/:id')->to('data#index', id => 1);
+
+#      $self->plugin( 'request_timer' );
+
+       $self->plugins->add_hook(
+                       before_dispatch => sub {
+                               my ($self, $c) = @_;
+                               my $tx = $c->tx;
+                               save_tx( $self, $tx );
+                       }
+       );
 }
 
+
+
 1;