X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=lib%2FMojoFacets.pm;h=9a5b315831fb6d195e102f13f2cf8083c25805e4;hb=059840bfd2dac09295b043ec979fad18c738e84b;hp=c80e7489416b26566a8478c085c623f394b5b691;hpb=b0d2178ef6767587f99341bbdc245eb65bd31b63;p=MojoFacets.git

diff --git a/lib/MojoFacets.pm b/lib/MojoFacets.pm
index c80e748..9a5b315 100644
--- 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";