sync-home

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

my $host = `n9`;
chomp $host;

my $dir = "$ENV{HOME}/Code/n9";
my $myDocsLocal = "$dir/backup/backup-home";
my $myDocsRemote = "/home/user";

my $local = $myDocsLocal;
my $remote = "user\@$host:$myDocsRemote";

my @excludes = qw(
mms-pix
openvpn
pixmirror
revtun-port
to-do-o
xbestddr
xgnuplotddr
.0dcim-pix-rev
.brightness
.emumaster
.FBReader
.bash_history
.gntpositions
.gnupg
.gpg
.klomp
.lftp
.lpsmagic
.mozilla
.mplayer
.purple
.secrets
.sqlite_history
.ssh
.status-menu
.stellarium-n9
.twip
.vim
.viminfo
.vimrc


MyDocs
private
.accounts
.aegis
.ash_history
.bashrc
.cache
.calendar
.cities
.commhistoryd
.config
.contacts
.cpan/
.emoticonthemecache
.emoticonthemepreview
.facebook
.fontconfig
.gntrc
.grob
.gstreamer-0.10
.kde
.local
.meego-im-engines
.messaging-ui
.mms
.mtp
.mtpdeviceinfo.xml
.nfc/
.obex-root
.odnp
.odnp-fpcd
.omb
.osso-cud-scripts
.positioningd
.profile
.profiled
.pulse-cookie
.qmf
.ring-tones
.rtcom-accounts
.signon
.slpgwd
.smartsearch
.swype
.sync
.thumbnails
.transferui
.usetime
);

my @rsyncOpts = qw(
  -a --no-owner --no-group
  -v -P
);
for my $exclude(@excludes){
  push @rsyncOpts, "--exclude=$exclude";
}

sub run(@){
  print "@_\n";
  system @_;
  die "failed" if $? != 0;
}

run "rsync", @rsyncOpts, "$remote/", $local;
run "rsync", @rsyncOpts, "$local/", $remote;