From: Ralf Ertzinger <ralf@skytale.net>
Date: Sat, 3 Sep 2011 20:18:54 +0000 (+0200)
Subject: videosite-dl: Add -d switch for debug messages
X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=commitdiff_plain;h=828bd4a062beaea4f43b4d161803b6152e6b65b2;hp=f7d9b22c4ff03be4a8d241015686f09d01a68289;p=videosite.git

videosite-dl: Add -d switch for debug messages
---

diff --git a/videosite-dl.pl b/videosite-dl.pl
index 7313bf5..15e1bca 100755
--- a/videosite-dl.pl
+++ b/videosite-dl.pl
@@ -56,8 +56,9 @@ my $m;
 my @g;
 my $bp;
 my $info = 0;
+my $debug = 0;
 
-GetOptions("i" => \$info);
+GetOptions("i" => \$info, "d" => \$debug);
 
 # This is some dark magic to find out our real base directory,
 # where we hope to find our plugins.
@@ -72,6 +73,14 @@ unless(@g and defined($f)) {
     exit 1;
 }
 
+foreach (@g, $f) {
+    $_->setio(sub { printf(@_); print("\n"); } );
+
+    if ($debug) {
+        $_->setdebug(1);
+    }
+}
+
 $f->setval('FILEPATTERN', './%3$s' . $ext);
 
 foreach (@ARGV) {