tools/import.pl

   1 use strict;
   2 use warnings;
   3 use Smart::Comments;
   4 use lib 'tools';
   5 require 'utils.pl';
   6 use File::Spec;
   7 use File::Copy;
   8
   9 sub main {
  10     my @args = @_;
  11
  12     foreach my $arg (@args) {
  13         my $rel   = File::Spec->abs2rel($arg, $ENV{HOME});
  14         my $abs   = File::Spec->rel2abs($rel, $ENV{HOME});
  15         my $saved = rel2saved($rel);
  16
  17         print "Copying $abs to $saved...\n";
  18         copy($abs, $saved) or die $!;
  19     }
  20 }
  21
  22 main(@ARGV);