cleanup code depends and description generation

[MojoFacets.git] / lib / MojoFacets.pm

diff --git a/lib/MojoFacets.pm b/lib/MojoFacets.pm
index c80e748..fb45ed5 100644 (file)
--- a/lib/MojoFacets.pm
+++ b/lib/MojoFacets.pm
@@ -20,9 +20,17 @@ sub save_tx {
        if ( $parts->[0] eq 'data' ) {
                if ( my $params = $tx->req->params ) {
 
-                       my $path = '/tmp/changes/';
+                       warn "# params ",dump($params);
+
+                       my $time = time();
+                       if ( my $time_travel = $params->param('time') ) {
+                               warn "# time-travel to $time_travel from ", $tx->remote_address;
+                               $time = $time_travel;
+                       }
+
+                       my $path = '/tmp/actions/';
                        mkdir $path unless -e $path;
-                       $path .= sprintf '%.4f.%s', time(), join('.', @$parts);
+                       $path .= sprintf '%.4f.%s', $time, join('.', @$parts);
 
                        store $params, $path;
                        warn "$path ", -s $path, " bytes\n";
@@ -39,7 +47,7 @@ sub startup {
     my $r = $self->routes;
 
     # Default route
-    $r->route('/:controller/:action/:id')->to('data#index', id => 1);
+    $r->route('/:controller/:action/:id')->to('data#index', id => 0);
 
 #      $self->plugin( 'request_timer' );