fix mtime iso

diff --git a/rsync-piper.pl b/rsync-piper.pl
index 076634c..57a591e 100755 (executable)
--- a/rsync-piper.pl
+++ b/rsync-piper.pl
@@ -116,6 +116,10 @@ while(1) {
                        my @k = keys %$transfer_log;
                        my @v = split(/\|/,$1);
                        @data{@k} = @v ; # FIXME validate?
+
+                       # fixup data
+                       $data{mtime} =~ s|^(\d\d\d\d)/(\d\d)/(\d\d)-(\d\d:\d\d:\d\d)|$1-$2-$3 $4| && warn "fixed mtime ISO $data{mtime}\n";
+
                        print "transfer-log:",dump(\%data),$/;
 
                        my $path = sprintf "users/%s/data/%.5f-%d",
@@ -129,7 +133,7 @@ while(1) {
                                join(',',@k), join(',', map { '?' } @v);
                        warn "# $sql";
                        my $sth = $dbh->prepare($sql);
-                       $sth->execute( @v );
+                       $sth->execute( map { $data{$_} } @k ); # use fixup values
                }
        }
        close($log);