[SCM] Video extraction utility for YouTube, Google Video and other video sites (Debian packaging) branch, master, updated. upstream/2.1.7-214-g6762190

legatvs legatvs at gmail.com
Wed Apr 1 14:45:28 UTC 2009


The following commit has been merged in the master branch:
commit c1f52e58f499f2799e66edeadf4d942ce9fd1c9a
Author: legatvs <legatvs at gmail.com>
Date:   Sun Mar 29 17:30:55 2009 +0300

    Add --hosts option.

diff --git a/clive b/clive
index fbf6ff5..df09f82 100755
--- a/clive
+++ b/clive
@@ -136,6 +136,7 @@ GetOptions(
     'grep|g=s',   'agent|U=s',  'proxy|y=s',    'savedir|S=s',
     'cclass|l=s', 'exec|x=s',   'progress|G=s', 'clivepass|V=s',
     'stream=i',
+    'hosts'     => \&print_hosts,
     'version|v' => \&print_version,
 
     # Commented out until WWW::Curl is fixed:
@@ -1966,6 +1967,12 @@ sub emit
       if $opts{emitxml} and @emit_queue;
 }
 
+sub print_hosts
+{
+    print "$re_hosts{$_}\n" foreach (keys %re_hosts);
+    exit;
+}
+
 sub print_version
 {
     my $perl_v = sprintf("--with-perl=%vd-%s", $^V, $^O);
@@ -2000,6 +2007,7 @@ clive [options]... [URL]...
 
  -h, --help                 print help and exit
  -v, --version              print version and exit
+     --hosts                print supported hosts and exit
  -b, --background           go to background after startup
  -e, --emit-csv             emit video details as csv to stdout
  -E, --emit-xml             emit video details as csv to stdout

-- 
Video extraction utility for YouTube, Google Video and other video sites (Debian packaging)



More information about the Pkg-perl-cvs-commits mailing list