summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xrhimport-btl5
-rwxr-xr-xrhimport-dn5
-rwxr-xr-xrhimport-fe5
-rwxr-xr-xrhimport-fw5
-rwxr-xr-xrhimport-nw5
-rwxr-xr-xrhimport-o94n5
-rwxr-xr-xrhimport-oi6
-rwxr-xr-xrhimport-ra5
-rwxr-xr-xrhimport-rs5
-rwxr-xr-xrhimport-sm5
-rwxr-xr-xrhimport-sv5
-rwxr-xr-xrhimport-ut5
-rwxr-xr-xrhimport-zf2
-rwxr-xr-xrhimport-zfw5
14 files changed, 67 insertions, 1 deletions
diff --git a/rhimport-btl b/rhimport-btl
index ad177b9..e212793 100755
--- a/rhimport-btl
+++ b/rhimport-btl
@@ -112,6 +112,11 @@ for my $entry ($feed->entries) {
exit 0;
}
$out_file = $ff->output_file;
+ if(!rhimport::check_file_extension($out_file)) {
+ print "\n\nThe extension of the matching file '". $out_file . "' seems to be wrong - manual import necessary!!!\n";
+ $dbh->disconnect();
+ exit 1;
+ }
print $bdfile . ": downloading " . $entry->enclosure->url . " (" . $entry->enclosure->length . " Bytes) .. ";
$file = $ff->fetch( to => '/tmp' ) or die $ff->error;
diff --git a/rhimport-dn b/rhimport-dn
index 0468dc8..a23d32b 100755
--- a/rhimport-dn
+++ b/rhimport-dn
@@ -120,6 +120,11 @@ for my $entry ($files_feed->entries) {
exit 0;
}
$out_file = $path[-1];
+ if(!rhimport::check_file_extension($out_file)) {
+ print "\n\nThe extension of the matching file '". $out_file . "' seems to be wrong - manual import necessary!!!\n";
+ $dbh->disconnect();
+ exit 1;
+ }
print $1 . ": downloading " . $entry->enclosure->url . " (" . $entry->enclosure->length . " Bytes) .. ";
diff --git a/rhimport-fe b/rhimport-fe
index c6fba81..fbcaca1 100755
--- a/rhimport-fe
+++ b/rhimport-fe
@@ -127,6 +127,11 @@ for my $entry ($feed->entries) {
exit 0;
}
$out_file = $ff->output_file;
+ if(!rhimport::check_file_extension($out_file)) {
+ print "\n\nThe extension of the matching file '". $out_file . "' seems to be wrong - manual import necessary!!!\n";
+ $dbh->disconnect();
+ exit 1;
+ }
print $regexp . ": downloading " . $entry->enclosure->url . " (" . $entry->enclosure->length . " Bytes) .. ";
$file = $ff->fetch( to => '/tmp' ) or die $ff->error;
diff --git a/rhimport-fw b/rhimport-fw
index 7109198..8ce5ef5 100755
--- a/rhimport-fw
+++ b/rhimport-fw
@@ -138,6 +138,11 @@ for my $entry ($feed->entries) {
exit 0;
}
$out_file = $ff->output_file;
+ if(!rhimport::check_file_extension($out_file)) {
+ print "\n\nThe extension of the matching file '". $out_file . "' seems to be wrong - manual import necessary!!!\n";
+ $dbh->disconnect();
+ exit 1;
+ }
print " --> " . $bnum . ": downloading " . $url . " (" . $enclosure->length . " Bytes) .. ";
$file = $ff->fetch( to => '/tmp' ) or die $ff->error;
diff --git a/rhimport-nw b/rhimport-nw
index 12dd2df..42f4aac 100755
--- a/rhimport-nw
+++ b/rhimport-nw
@@ -121,6 +121,11 @@ for my $entry ($feed->entries) {
exit 0;
}
$out_file = $ff->output_file;
+ if(!rhimport::check_file_extension($out_file)) {
+ print "\n\nThe extension of the matching file '". $out_file . "' seems to be wrong - manual import necessary!!!\n";
+ $dbh->disconnect();
+ exit 1;
+ }
print " --> " . $bdfile . ": downloading " . $url . " (" . $enclosure->length . " Bytes) .. ";
$file = $ff->fetch( to => '/tmp' ) or die $ff->error;
diff --git a/rhimport-o94n b/rhimport-o94n
index 6299bc1..dc6ff54 100755
--- a/rhimport-o94n
+++ b/rhimport-o94n
@@ -140,6 +140,11 @@ for my $entry ($feed->entries) {
exit 0;
}
$out_file = $ff->output_file;
+ if(!rhimport::check_file_extension($out_file)) {
+ print "\n\nThe extension of the matching file '". $out_file . "' seems to be wrong - manual import necessary!!!\n";
+ $dbh->disconnect();
+ exit 1;
+ }
print " --> " . $bdfile . ": downloading " . $url . " (" . $enclosure->length . " Bytes) .. ";
$file = $ff->fetch( to => '/tmp' ) or die $ff->error;
diff --git a/rhimport-oi b/rhimport-oi
index d596c0b..a08490d 100755
--- a/rhimport-oi
+++ b/rhimport-oi
@@ -113,6 +113,12 @@ for my $entry ($feed->entries) {
my $ff = File::Fetch->new(uri => $entry->enclosure->url);
$out_file = $ff->output_file;
+ if(!rhimport::check_file_extension($out_file)) {
+ print "\n\nThe extension of the matching file '". $out_file . "' seems to be wrong - manual import necessary!!!\n";
+ $dbh->disconnect();
+ exit 1;
+ }
+
print $broadcast_num . ": downloading " . $entry->enclosure->url . " (" . $entry->enclosure->length . " Bytes) .. ";
$file = $ff->fetch( to => '/tmp' ) or die $ff->error;
print "ok\n";
diff --git a/rhimport-ra b/rhimport-ra
index 69f3310..c6c966f 100755
--- a/rhimport-ra
+++ b/rhimport-ra
@@ -123,6 +123,11 @@ for my $entry ($feed->entries) {
exit 0;
}
$out_file = $ff->output_file;
+ if(!rhimport::check_file_extension($out_file)) {
+ print "\n\nThe extension of the matching file '". $out_file . "' seems to be wrong - manual import necessary!!!\n";
+ $dbh->disconnect();
+ exit 1;
+ }
print " --> " . $bnum . ": downloading " . $url . " (" . $enclosure->length . " Bytes) .. ";
$file = $ff->fetch( to => '/tmp' ) or die $ff->error;
diff --git a/rhimport-rs b/rhimport-rs
index 49f9564..b0387b4 100755
--- a/rhimport-rs
+++ b/rhimport-rs
@@ -167,6 +167,11 @@ for my $entry ($feed->entries) {
exit 0;
}
$out_file = $ff->output_file;
+ if(!rhimport::check_file_extension($out_file)) {
+ print "\n\nThe extension of the matching file '". $out_file . "' seems to be wrong - manual import necessary!!!\n";
+ $dbh->disconnect();
+ exit 1;
+ }
print " --> " . $bdfile . ": downloading " . $url . " (" . $enclosure->length . " Bytes) .. ";
$file = $ff->fetch( to => '/tmp' ) or die $ff->error;
diff --git a/rhimport-sm b/rhimport-sm
index 12ed8e2..97e26ce 100755
--- a/rhimport-sm
+++ b/rhimport-sm
@@ -154,6 +154,11 @@ for my $entry ($feed->entries) {
exit 0;
}
$out_file = $ff->output_file;
+ if(!rhimport::check_file_extension($out_file)) {
+ print "\n\nThe extension of the matching file '". $out_file . "' seems to be wrong - manual import necessary!!!\n";
+ $dbh->disconnect();
+ exit 1;
+ }
print " --> " . $bdfile . ": downloading " . $url . " (" . $enclosure->length . " Bytes) .. ";
$file = $ff->fetch( to => '/tmp' ) or die $ff->error;
diff --git a/rhimport-sv b/rhimport-sv
index 22f182f..34c4b03 100755
--- a/rhimport-sv
+++ b/rhimport-sv
@@ -153,6 +153,11 @@ for my $entry ($feed->entries) {
exit 0;
}
$out_file = $ff->output_file;
+ if(!rhimport::check_file_extension($out_file)) {
+ print "\n\nThe extension of the matching file '". $out_file . "' seems to be wrong - manual import necessary!!!\n";
+ $dbh->disconnect();
+ exit 1;
+ }
print " --> " . $bdfile . ": downloading " . $url . " (" . $enclosure->length . " Bytes) .. ";
$file = $ff->fetch( to => '/tmp' ) or die $ff->error;
diff --git a/rhimport-ut b/rhimport-ut
index eb1cd3c..ef71c9c 100755
--- a/rhimport-ut
+++ b/rhimport-ut
@@ -123,6 +123,11 @@ for my $entry ($feed->entries) {
exit 0;
}
$out_file = $ff->output_file;
+ if(!rhimport::check_file_extension($out_file)) {
+ print "\n\nThe extension of the matching file '". $out_file . "' seems to be wrong - manual import necessary!!!\n";
+ $dbh->disconnect();
+ exit 1;
+ }
print " --> " . $bdexp . ": downloading " . $url . " (" . $enclosure->length . " Bytes) .. ";
$file = $ff->fetch( to => '/tmp' ) or die $ff->error;
diff --git a/rhimport-zf b/rhimport-zf
index c255519..c780540 100755
--- a/rhimport-zf
+++ b/rhimport-zf
@@ -118,7 +118,7 @@ for my $entry ($feed->entries) {
if(!rhimport::check_file_extension($out_file)) {
print "\n\nThe extension of the matching file '". $out_file . "' seems to be wrong - manual import necessary!!!\n";
$dbh->disconnect();
- exit 0;
+ exit 1;
}
print $regexp . ": downloading " . $entry->enclosure->url . " (" . $entry->enclosure->length . " Bytes) .. ";
diff --git a/rhimport-zfw b/rhimport-zfw
index afc6cf5..f068e8b 100755
--- a/rhimport-zfw
+++ b/rhimport-zfw
@@ -126,6 +126,11 @@ for my $entry ($feed->entries) {
exit 0;
}
$out_file = $ff->output_file;
+ if(!rhimport::check_file_extension($out_file)) {
+ print "\n\nThe extension of the matching file '". $out_file . "' seems to be wrong - manual import necessary!!!\n";
+ $dbh->disconnect();
+ exit 1;
+ }
print " --> " . $bdfile . ": downloading " . $url . " (" . $enclosure->length . " Bytes) .. ";
$file = $ff->fetch( to => '/tmp' ) or die $ff->error;