script/actions-to-changes

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Storable;
   7 use Mojo::Client;
   8 use Data::Dump qw(dump);
   9
  10 my $url = 'http://localhost:3000/data/edit';
  11 my $max = 1;
  12
  13 my @actions = @ARGV;
  14
  15 my $t = Mojo::Client->new;
  16 $t->max_redirects( 1 );
  17
  18 foreach my $c ( sort {
  19         my $at = $1 if $a =~ m/(\d+\.\d+)/;
  20         my $bt = $1 if $b =~ m/(\d+\.\d+)/;
  21         $at <=> $bt
  22 } @actions ) {
  23
  24         print "# $c\n";
  25
  26         my $params = retrieve $c;
  27         my $hash = $params->to_hash;
  28         $hash->{time} = $1 if $c =~ m{/(\d+\.\d+)\.data\.edit};
  29
  30         warn "# hash ",dump($hash);
  31
  32         my $tx = $t->post_form( $url => $hash );
  33         if ( my $res = $tx->success) { print $res->body }
  34         else {
  35                 my ($code, $message) = $tx->error;
  36                 die "Error: $message";
  37         }
  38
  39 #       last if $max-- == 0;
  40 }