]> gitweb @ CieloNegro.org - sugar.git/blob - tools/import.pl
b722db17b651fdeda31fb3717b90e6bb44e536f6
[sugar.git] / 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);