diff -r 227f7e2af525 -r b9668efb2ee3 install --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/install Thu Jul 11 21:57:11 2013 +0200 @@ -0,0 +1,23 @@ +#! /usr/bin/perl + +use 5.010; +use strict; +use warnings; + +die "$0: need filenames to install\n" if not @ARGV; + +install($_) foreach @ARGV; + +sub install { + my $file = shift; + + local @ARGV = ($file); + my $destination = (map { /->\s*(\S+)/ } grep { /# ->/ } <>)[0]; + + die "No destination for $file\n" if not $destination; + say "$file\n => $destination"; + + system("scp", $file => $destination); + die if $?; + +}