projects
/
MojoFacets.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
3882ca0
)
extract time from filename
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 1 Jun 2010 19:02:08 +0000
(21:02 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 1 Jun 2010 19:02:08 +0000
(21:02 +0200)
script/changes
patch
|
blob
|
history
diff --git
a/script/changes
b/script/changes
index
94bd426
..
38e12dc
100755
(executable)
--- a/
script/changes
+++ b/
script/changes
@@
-5,6
+5,7
@@
use warnings;
use Storable;
use Mojo::Client;
+use Data::Dump qw(dump);
my $url = 'http://localhost:3000/data/edit';
my $max = 1;
@@
-19,6
+20,10
@@
foreach my $c ( @changes ) {
print "# $c\n";
my $params = retrieve $c;
+ my $hash = $params->to_hash;
+ $hash->{time} = $1 if $c =~ m{/(\d+\.\d+)\.data\.edit};
+
+ warn "# hash ",dump($hash);
my $tx = $t->post_form( $url => $params->to_hash );
if ( my $res = $tx->success) { print $res->body }