summaryrefslogtreecommitdiff
path: root/rhimport.pm
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2010-04-29 11:36:49 (GMT)
committerChristian Pointner <equinox@helsinki.at>2010-04-29 11:36:49 (GMT)
commit08b97b640b2184c6ff286bd7e5a8989bd807c49e (patch)
tree29069223ab0fd0fdb1c920cffad4dbad165c5f2a /rhimport.pm
parentbdb567fbf2ef4892a65b86420ce54c5878de47d1 (diff)
check for Deleted stanza in rdimport output
ignore non-existent or unreadable files in m3u ignore directories in m3u git-svn-id: https://svn.helsinki.at/rhimport/trunk@58 7c65635b-ec39-4f67-a626-873dbafdd612
Diffstat (limited to 'rhimport.pm')
-rw-r--r--rhimport.pm14
1 files changed, 12 insertions, 2 deletions
diff --git a/rhimport.pm b/rhimport.pm
index b9a430a..6597fb4 100644
--- a/rhimport.pm
+++ b/rhimport.pm
@@ -159,12 +159,16 @@ sub import_playlist
next if($entry =~ /^#/);
next if($entry =~ /^\s/);
$entry =~ s/\n$//;
+ next if(-d $entry);
+ next if(!-r $entry);
push @entries, $entry;
}
close(FILE);
my $num_entries = scalar(@entries);
print " ($num_entries Files in list)\n";
+
+ return (0, "");
my $cnt = 0;
my $ret = 0;
my $log = "";
@@ -268,11 +272,17 @@ sub import_file
my ($volume, $directories, $remote_file) = File::Spec->splitpath($file);
$remote_file = "$ssh_dir/$user/$remote_file";
my ($out ,$error) = ssh_exec_command("$rdimport_wrapper --path \"$dropbox\" --file \"$remote_file\"");
- if($error ne "") {
+ my $lastline = $1 if $out =~ /\n(.*)$/;
+ if($error ne "" || $lastline !~ /^[0-9:\- ]+:\s+Deleted file/) {
print "Import Error\n";
delete_file($remote_file);
if($error_cb) {
- return $error_cb->("Import Fehler: $error");
+ if($error) {
+ return $error_cb->("Import Fehler: $error");
+ }
+ else {
+ return $error_cb->("Import Fehler: \n$out");
+ }
}
return 0;
}