X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=tools%2Fimport.pl;h=8946e090d9b42c2b632dc13ee11070efe240f7e4;hb=HEAD;hp=b722db17b651fdeda31fb3717b90e6bb44e536f6;hpb=ed4d72a28e9df4da16e644b73514129c2f2d3e56;p=sugar.git

diff --git a/tools/import.pl b/tools/import.pl
index b722db1..8946e09 100644
--- a/tools/import.pl
+++ b/tools/import.pl
@@ -5,18 +5,24 @@ use lib 'tools';
 require 'utils.pl';
 use File::Spec;
 use File::Copy;
+use File::Path;
 
 sub main {
-    my @args = @_;
+    while (defined(my $arg = <>)) {
+        chomp $arg;
 
-    foreach my $arg (@args) {
-        my $rel   = File::Spec->abs2rel($arg, $ENV{HOME});
+        my $rel   = File::Spec->file_name_is_absolute($arg)
+                      ? File::Spec->abs2rel($arg, $ENV{HOME})
+                      : $arg;
         my $abs   = File::Spec->rel2abs($rel, $ENV{HOME});
         my $saved = rel2saved($rel);
 
         print "Copying $abs to $saved...\n";
+        my @path = File::Spec->splitdir($saved);
+        pop @path;
+        mkpath(File::Spec->catdir(@path));
         copy($abs, $saved) or die $!;
     }
 }
 
-main(@ARGV);
+main();