sync-klomp-books

#!/usr/bin/perl
use strict;
use warnings;

system "klomp-playlist main";
system "n9u", "-s", "klomp-playlist main";

sub modS($$){
  my $file = shift;
  my $remote = shift;
  my $cmd = "stat -c %Y $file";
  my $fs;
  if($remote eq 'remote'){
    $fs = `n9u -b "$cmd"`;
  }elsif($remote eq 'local'){
    $fs = `$cmd`;
  }
  if($fs =~ /^(\d+)/){
    return $1;
  }else{
    return 0;
  }
}

my $dir = "~/.klomp/list-books";

my $localCur = modS "$dir/cur", "local";
my $remoteCur = modS "$dir/cur", "remote";
my $localList = modS "$dir/list", "local";
my $remoteList = modS "$dir/list", "remote";

print "        cur                        list\n";
print "loc: " . localtime($localCur) . "   " . localtime($localList) . "\n";
print "rem: " . localtime($remoteCur) . "   " . localtime($remoteList) . "\n";

system "mkdir -p $dir";
system "n9u", "-b", "mkdir -p $dir";

if($localCur < $remoteCur and $localList <= $remoteList){
  print "remote => local\n";
  system "rsync -avP user@`n9`:$dir/ $dir";
  print "books on local\n";
  system "klomp-playlist", "books";
}elsif($localCur > $remoteCur and $localList >= $remoteList){
  print "local => remote\n";
  system "rsync -avP $dir/ user@`n9`:$dir";
  print "books on remote\n";
  system "n9u", "-s", "klomp-playlist", "books";
}else{
  print "not updating\n";
}