clivefeed

   1 #!/usr/bin/env perl
   2 # -*- coding: ascii -*-
   3 ###########################################################################
   4 # clivefeed, the feed parsing utility for clive
   5 # Copyright (C) 2008 Toni Gundogdu.
   6 #
   7 # This file is part of clive-utils.
   8 #
   9 # clivefeed is free software: you can redistribute it and/or modify
  10 # it under the terms of the GNU General Public License as published by
  11 # the Free Software Foundation, either version 3 of the License, or
  12 # (at your option) any later version.
  13 #
  14 # clivefeed is distributed in the hope that it will be useful,
  15 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 # GNU General Public License for more details.
  18 #
  19 # You should have received a copy of the GNU General Public License
  20 # along with clivefeed.  If not, see <http://www.gnu.org/licenses/>.
  21 ###########################################################################
  22
  23 # Keep it simple.
  24
  25 use warnings;
  26 use strict;
  27
  28 binmode(STDOUT, ":utf8");
  29
  30 use XML::RSS::LibXML;
  31 use WWW::Curl::Easy;
  32 use Tk::FontDialog;
  33 use Tk::DialogBox;
  34 use Config::Tiny;
  35 use HTML::Strip;
  36 use Tk::Tree;
  37 use Tk;
  38
  39 # Core modules:
  40 use Getopt::Long qw(:config bundling);
  41 use File::Spec;
  42 use File::Find;
  43 use File::Path;
  44 use Pod::Usage;
  45 use Encode;
  46 use Cwd;
  47
  48 # Non-essentials
  49 my %opted_mods = (Clipboard => 1);
  50 eval "use Clipboard"; $opted_mods{Clipboard}=0 if $@;
  51
  52 my $VERSION     = "2.0beta2";
  53 my $CONFIGDIR   = $ENV{CLIVEFEED_CONFIGDIR}
  54     || File::Spec->catfile($ENV{HOME}, ".config/clivefeed");
  55 my $CONFIGFILE  = File::Spec->catfile($CONFIGDIR, "config");
  56 my $PREFSFILE   = File::Spec->catfile($CONFIGDIR, "prefs");
  57
  58 my %opts;       # Holds the options
  59 my @queue;      # Holds the current URL queue
  60 my $curl;       # Holds the curl handle (reused throught lifespan)
  61 my @channels;   # Holds parsed channel data
  62 my $mw;         # Holds the main window handle (GUI)
  63 my $pwmain;     # Holds the handle to the main paned window
  64 my $pwtop;      # Holds the handle to the top paned window
  65 my $pwbottom;   # Holds the handle to the bottom paned window
  66 my $lbchann;    # Listbox: channels
  67 my $lbitems;    # Listbox: (channel) items
  68 my $lbqueue;    # Listbox: queued video items
  69 my $txtdescr;   # Text: video description
  70 my %usersel;    # Holds user-selected videos
  71
  72 # Parse config
  73 my $conf = Config::Tiny->read($CONFIGFILE);
  74 my $prefs = Config::Tiny->read($PREFSFILE);
  75 %opts = (
  76     clive   => $conf->{clive}->{path},
  77     opts    => $conf->{clive}->{opts},
  78     agent   => $conf->{http}->{agent},
  79     proxy   => $conf->{http}->{proxy},
  80
  81     geometry=> $prefs->{gui}->{geometry},
  82     pwmain  => $prefs->{gui}->{pwmain},
  83     pwtop   => $prefs->{gui}->{pwtop},
  84     pwbottom=> $prefs->{gui}->{pwbottom},
  85     mainfont=> $prefs->{gui}->{mainfont},
  86 );
  87
  88 # Parse cmdline
  89 # Define those not read from config, init with defaults
  90 $opts{quiet}    = 0;
  91 $opts{paste}    = 0;
  92 $opts{all}      = 0;
  93 $opts{debug}    = 0;
  94 $opts{help}     = 0;
  95 $opts{manual}   = 0;
  96 $opts{version}  = 0;
  97 $opts{mainfont} = $opts{mainfont} || "{helvetica} -12 bold";
  98
  99 GetOptions(\%opts,
 100     'debug|d', 'help|h',  'manual|m',  'version|v',  'all|a',
 101     'paste|x', 'quiet|q', 'clive|c=s', 'opts|o=s',   'agent|U=s',
 102     'proxy|y=s',
 103     # Workaround since '$longopt|shortopt' is a no-no.
 104     'noproxy|X' => sub { $opts{proxy} = ""; },
 105 ) or pod2usage(1);
 106
 107 # Since 'version|v' => \&print_version and exit cannot tango with tk
 108 print_version(0) if $opts{version};
 109 pod2usage(-exitstatus => 0, -verbose => 1) if $opts{help};
 110 pod2usage(-exitstatus => 0, -verbose => 2) if $opts{manual};
 111
 112 $opts{clive} = $opts{clive} || $ENV{CLIVE_PATH};
 113 find_clive() unless $opts{clive};
 114
 115 get_queue();
 116 select STDERR; $| = 1; # => unbuffered
 117 select STDOUT; $| = 1;
 118 process_queue();
 119
 120 unless ( $opts{all} ) { init_gui(); }
 121 else                  { grab_all(); }
 122
 123
 124 ## Subroutines: Connection
 125
 126 sub init_curl {
 127     $curl = WWW::Curl::Easy->new;
 128     $curl->setopt(CURLOPT_USERAGENT, $opts{agent} || "Mozilla/5.0");
 129     $curl->setopt(CURLOPT_PROXY, $opts{proxy}) if defined $opts{proxy};
 130     $curl->setopt(CURLOPT_VERBOSE, 1) if $opts{debug};
 131     $curl->setopt(CURLOPT_FOLLOWLOCATION, 1);
 132     $curl->setopt(CURLOPT_AUTOREFERER, 1);
 133     $curl->setopt(CURLOPT_HEADER, 0);
 134     $curl->setopt(CURLOPT_NOBODY, 0);
 135 }
 136
 137 sub fetch_feed {
 138     my ($url, $response, $rc) = (shift, "", 0);
 139     open my $rfh, ">", \$response;
 140
 141     print "Fetching $url ..." unless $opts{quiet};
 142     $curl->setopt(CURLOPT_URL, $url);
 143     $curl->setopt(CURLOPT_ENCODING, "");
 144     $curl->setopt(CURLOPT_WRITEDATA, $rfh);
 145     $rc = $curl->perform;
 146     $rc = $curl->getinfo(CURLINFO_RESPONSE_CODE);
 147
 148     if ( $rc == 200 ) {
 149         print "done.\n";
 150         process_feed($url, $response);
 151     } else {
 152         print STDERR "\nerror: " .$curl->strerror($rc)." (http/$rc)\n";
 153     }
 154     close $rfh;
 155 }
 156
 157
 158 ## Subroutines: Queue
 159
 160 sub get_queue {
 161     if ( $opts{paste} ) {
 162         print STDERR "error: Clipboard module not found" and exit
 163             unless $opted_mods{Clipboard};
 164         my $data = Clipboard->paste();
 165         if ( $data ) {
 166             parse_input($_) foreach split/\n/,$data;
 167         }
 168     }
 169
 170     parse_input($_) foreach @ARGV;
 171     unless ( @queue ) { parse_input($_) while ( <STDIN> ); }
 172
 173     my %h = map {$_,1} @queue; # Remove duplicates
 174     @queue = keys %h;
 175 }
 176
 177 sub process_queue {
 178     init_curl();
 179     fetch_feed($_) foreach (@queue);
 180 }
 181
 182 sub process_feed {
 183     my ($url, $response) = @_;
 184     print "=> Processing feed ..." unless $opts{quiet};
 185
 186     my $rss = XML::RSS::LibXML->new;
 187     $rss->parse($response);
 188     push @channels, $rss;
 189
 190     print "done.\n" unless $opts{quiet};
 191 }
 192
 193 sub grab_all {
 194     my @q;
 195     foreach my $rss ( @channels ) {
 196         foreach my $item ( @{$rss->{items}} ) {
 197             push @q, $item->{link};
 198         }
 199     }
 200     run_clive(@q);
 201 }
 202
 203
 204 ## Subroutines: Helpers
 205
 206 sub parse_input {
 207     my $url = shift;
 208
 209     return if $url =~ /^$/;
 210     chomp $url;
 211
 212     $url = "http://$url" if $url !~ m!^http://!i;
 213     push @queue, $url;
 214 }
 215
 216 sub find_clive {
 217     print "Trying to locate 'clive' ...";
 218
 219     find ( sub { $opts{clive} = $File::Find::name if ( $_ eq 'clive' ) },
 220         split /:/, $ENV{PATH} || getcwd);
 221
 222     if   ( $opts{clive} ) { print "$opts{clive}\n"; }
 223     else { print STDERR "error: not found, use --clive=path\n"; exit; }
 224 }
 225
 226 sub run_clive {
 227     my (@q) = @_;
 228     system "$opts{clive} $opts{opts} " . join(' ', @q);
 229 }
 230
 231 sub print_version {
 232     my $noexit  = shift;
 233     my $perl_v  = sprintf "%vd", $^V;
 234     my $clipb_v = $opted_mods{Clipboard} ? $Clipboard::VERSION : "-";
 235     my $s       = sprintf
 236 "clivefeed version $VERSION.  Copyright (C) 2008 Toni Gundogdu.
 237
 238 Perl: $perl_v ($^O)
 239 Modules:
 240   * Config::Tiny/$Config::Tiny::VERSION\t\t* WWW::Curl/$WWW::Curl::VERSION
 241   * XML::RSS::LibXML/$XML::RSS::LibXML::VERSION\t* Clipboard/$clipb_v
 242   * Tk/$Tk::VERSION\t\t\t* Tk::Tree/$Tk::Tree::VERSION
 243   * Tk::DialogBox/$Tk::DialogBox::VERSION\t\t* HTML::Strip/$HTML::Strip::VERSION
 244   * Tk::FontDialog/$Tk::FontDialog::VERSION
 245 Core modules:
 246   * Getopt::Long/$Getopt::Long::VERSION\t\t* Digest::SHA/$Digest::SHA::VERSION
 247   * File::Spec/$File::Spec::VERSION\t\t* File::Find/$File::Find::VERSION
 248   * File::Path/$File::Path::VERSION\t\t* Encode/$Encode::VERSION
 249   * Pod::Usage/$Pod::Usage::VERSION\t\t* Cwd/$Cwd::VERSION
 250
 251 This program comes with ABSOLUTELY NO WARRANTY. You may redistribute copies of
 252 clivefeed under the terms of the GNU General Public License as published by the
 253 Free Software Foundation, either version 3 of the License, or (at your option)
 254 any later version. You should have received a copy of the General Public License
 255 along with this program. If not, see http://www.gnu.org/licenses/.
 256 ";
 257 return $s if $noexit;
 258 print $s; exit;
 259 }
 260
 261
 262 # GUI:
 263
 264 sub init_gui {
 265     return unless @channels;
 266
 267     $mw = MainWindow->new;
 268     $mw->geometry($opts{geometry}) if defined $opts{geometry};
 269     $mw->title('clivefeed');
 270     $mw->protocol('WM_DELETE_WINDOW', sub { save_prefs(); $mw->destroy } );
 271
 272     # Menubar
 273     my $mb = $mw->Menu;
 274     $mw->configure(-menu => $mb);
 275
 276     # Menu: File
 277     my $file = $mb->cascade(-label => 'File', -underline => 0, -tearoff => 0);
 278     $file->command(-label => 'Extract videos in queue...',
 279         -underline => 0, -command =>  \&on_extract);
 280     $file->separator;
 281     $file->command(-label => 'Quit', -underline => 0,
 282         -command => sub { save_prefs(); exit; } );
 283
 284     # Menu: Edit
 285     my $edit = $mb->cascade(-label => 'Edit', -underline => 0, -tearoff => 0);
 286     $edit->command(-label => 'Preferences...',
 287         -underline => 0, -command => \&on_prefs);
 288
 289     # Menu: Help
 290     my $help = $mb->cascade(-label => 'Help', -underline => 0, -tearoff => 0);
 291     $help->command(-label => 'About...',
 292         -underline => 0, -command => \&on_about);
 293
 294     # The GUI has an upper and a lower part
 295     $pwmain = $mw->Panedwindow(-orient => 'v', -opaqueresize => 0);
 296
 297     # Upper part
 298     $pwtop = $pwmain->Panedwindow(-orient => 'h', -opaqueresize => 0);
 299
 300     # Upper: Channels
 301     my $lbar = $pwtop->Frame;
 302
 303     $lbchann = $lbar->Scrolled('Tree',
 304         -scrollbars => 'osoe',
 305         -itemtype   => 'text',
 306         -selectmode => 'extended',
 307         -browsecmd  => \&on_chann,
 308         -indicator  => 1,
 309         -drawbranch => 1,
 310     )->pack(-side => 'top', -expand => 1, -fill => 'both');
 311
 312     foreach my $rss ( @channels ) {
 313         my $chann = $rss->{channel}->{title};
 314         $chann =~ tr{.}{}d;
 315
 316         $lbchann->add($chann);
 317         $lbchann->itemCreate($chann, 0, -text => $chann, -itemtype => 'text');
 318
 319         foreach my $item ( @{$rss->{items}} ) {
 320             my $title = $item->{title};
 321             $title =~ tr{.}{}d;
 322
 323             my $path;
 324             for ( my $i=0;; ++$i ) {
 325                 $path = "$chann.$title (#$i)";
 326                 last unless $lbchann->infoExists($path);
 327             }
 328
 329             $lbchann->add($path, -data => $item);
 330             $lbchann->itemCreate($path, 0,
 331                 -text => $item->{title}, -itemtype => 'text');
 332         }
 333     }
 334     $lbchann->autosetmode;
 335     $lbchann->close($_) foreach ( $lbchann->infoChildren('') );
 336
 337     $lbar->Button(-text => 'Grab video', -command => \&on_grab
 338     )->pack(-fill => 'x', -side => 'left');
 339     $lbar->Button(-text => 'Grab channel', -command => \&on_grab_chann
 340     )->pack(-fill => 'x', -side => 'left');
 341     $lbar->Button(-text => 'Grab everything', -command => \&on_grab_all
 342     )->pack(-fill => 'x', -side => 'left');
 343
 344     my $rbar = $pwtop->Frame;
 345     $txtdescr = $rbar->Scrolled('Text', -scrollbars => 'osoe',
 346         )->pack(-fill => 'both', -expand => 1);
 347
 348     $pwtop->add($lbar, $rbar, -width => $opts{pwtop} ? $opts{pwtop}:200);
 349
 350     # Lower part
 351     $pwbottom = $pwmain->Panedwindow(-orient => 'h', -opaqueresize => 0);
 352
 353     $lbqueue = $pwbottom->Scrolled('Tree',
 354         -scrollbars => 'osoe',
 355         -itemtype   => 'text',
 356         -selectmode => 'extended',
 357         -browsecmd  => \&on_queue,
 358         -indicator  => 1,
 359         -drawbranch => 1,
 360     );
 361
 362     my $bar = $pwbottom->Frame; # Button toorbar
 363     $bar->Button(-text => 'Remove', -command=> \&on_remove,
 364     )->pack(-fill => 'x');
 365
 366     $bar->Button(-text => 'Clear', -command=> \&on_clear,
 367     )->pack(-fill => 'x');
 368
 369     $bar->Button(-text => 'Extract videos...', -command=> \&on_extract,
 370     )->pack(-fill => 'x', -side => 'bottom');
 371
 372     $pwbottom->add($lbqueue, $bar, -width => $opts{pwbottom} || 200);
 373
 374     # Add upper and lower parts to main paned window
 375     $pwmain->add($pwtop, $pwbottom, -height => $opts{pwmain} || 200);
 376
 377     $mw->RefontTree(-font => $opts{mainfont});
 378     $pwmain->pack(-expand => 1, -fill => 'both');
 379
 380     MainLoop;
 381 }
 382
 383 sub set_descr {
 384     my ($lb, $path) = @_;
 385
 386     $txtdescr->delete('1.0', 'end');
 387
 388     my $item = $lb->infoData($path);
 389     return unless defined $item;
 390
 391     my $strip = HTML::Strip->new;
 392     my $descr = $strip->parse($item->{description});
 393     $descr =~ s/^\s+|\s+$//g;
 394
 395     $txtdescr->insert('end', $descr);
 396 }
 397
 398 sub on_chann {
 399     set_descr($lbchann, shift);
 400 }
 401
 402 sub on_queue {
 403     set_descr($lbqueue, shift);
 404 }
 405
 406 sub queue_item {
 407     my $path = shift;
 408     return if $path !~ /\./;
 409     return if $lbqueue->infoExists($path);
 410
 411     my $item = $lbchann->infoData($path);
 412     my ($chann) = split /\./, $path;
 413
 414     unless ( $lbqueue->infoExists($chann) ) {
 415         $lbqueue->add($chann);
 416         $lbqueue->itemCreate($chann, 0,
 417             -text => $chann, -itemtype => 'text');
 418     }
 419
 420     $lbqueue->add($path, -data => $item);
 421     $lbqueue->itemCreate($path, 0,
 422         -text => $item->{title}, -itemtype => 'text');
 423 }
 424
 425 sub on_grab {
 426     queue_item($_) foreach ( $lbchann->infoSelection );
 427     $lbqueue->autosetmode;
 428 }
 429
 430 sub on_grab_chann {
 431     foreach ( $lbchann->infoSelection ) {
 432         my ($parent) = split /\./;
 433         queue_item($_)
 434             foreach ( $lbchann->infoChildren($parent) );
 435     }
 436     $lbqueue->autosetmode;
 437 }
 438
 439 sub on_grab_all {
 440     foreach ( $lbchann->infoChildren("") ) {
 441         my ($parent) = split /\./;
 442         queue_item($_)
 443             foreach ($lbchann->infoChildren($parent) );
 444     }
 445     $lbqueue->autosetmode;
 446 }
 447
 448 sub on_remove {
 449     $lbqueue->deleteEntry($_)
 450         foreach ( $lbqueue->infoSelection );
 451 }
 452
 453 sub on_clear {
 454     $lbqueue->deleteAll;
 455 }
 456
 457 sub on_about {
 458     my $dlg = $mw->DialogBox(-title => 'About', -buttons => ['OK']);
 459     my $txt = $dlg->add('Text')->pack;
 460     $txt->insert('end', print_version(1));
 461     $dlg->Show;
 462 }
 463
 464 sub change_font {
 465     my ($top, $lblv, $lbl) = @_;
 466     my $font = $top->FontDialog(-initfont => $$lblv)->Show;
 467
 468     if ( defined $font ) {
 469         my $descr = $top->FontDialog->GetDescriptiveFontName($font);
 470         $lbl->configure(-font => $descr);
 471         $$lblv =  $descr;
 472     }
 473 }
 474
 475 sub on_prefs {
 476     my $dlg = $mw->DialogBox(-title => 'clivefeed preferences',
 477         -buttons => ['OK','Cancel']);
 478
 479     $dlg->add('Label', -text => 'Fonts: press to choose'
 480     )->grid(-sticky => 'w', -pady => 10);
 481
 482     my ($mainfont) = ($opts{mainfont});
 483     my $mainfontl = $dlg->Label(-textvariable => \$mainfont);
 484
 485     $dlg->add('Button', -text => 'Main font',
 486         -command => sub { change_font($dlg, \$mainfont, $mainfontl) }
 487     )->grid($mainfontl, -sticky => 'w', -padx => '5');
 488
 489     on_prefs_ok($mainfont) if $dlg->Show eq 'OK';
 490 }
 491
 492 sub on_prefs_ok {
 493     ($opts{mainfont}) = @_;
 494     $mw->RefontTree(-font => $opts{mainfont});
 495     save_prefs();
 496 }
 497
 498 sub save_prefs {
 499     mkpath( [$CONFIGDIR], 1, 0700);
 500
 501     my $c = Config::Tiny->new;
 502     $c->{gui}->{geometry} = $mw->geometry();
 503
 504     # FIXME: +7 is added to the coords even if the sashes have not been
 505     # dragged. Unsure why. The increase is probably system specific.
 506     $c->{gui}->{pwmain}   = ($pwmain->sashCoord(0))[1]-7;
 507     $c->{gui}->{pwtop}    = ($pwtop->sashCoord(0))[0]-7;
 508     $c->{gui}->{pwbottom} = ($pwbottom->sashCoord(0))[0]-7;
 509     $c->{gui}->{mainfont} = $opts{mainfont};
 510
 511     $c->write($PREFSFILE);
 512 }
 513
 514 sub on_extract {
 515     my @q;
 516     foreach ( $lbqueue->infoChildren('') ) {
 517         foreach ( $lbqueue->infoChildren($_) ) {
 518             my $item = $lbqueue->infoData($_);
 519             push @q, $item->{link};
 520         }
 521     }
 522     return unless @q;
 523
 524     # Prompt for clive(1) options
 525     my $dlg = $mw->DialogBox(-title => 'clive(1) options',
 526         -buttons => ['OK','Cancel']);
 527
 528     $dlg->add('Label', -text => 'Path to clive'
 529     )->grid(my $clivepath = $dlg->Entry(-width => 60),
 530         -sticky => 'w', -padx => '5');
 531
 532     $dlg->add('Label', -text => 'Runtime options'
 533     )->grid(my $cliveopts = $dlg->Entry(-width => 60),
 534         -sticky => 'w', -padx => '5');
 535
 536     $clivepath->insert('end', $opts{clive});
 537     $cliveopts->insert('end', $opts{opts});
 538
 539     if ( $dlg->Show() eq 'OK' ) {
 540         $opts{clive} = $clivepath->get;
 541         $opts{opts}  = $cliveopts->get;
 542         $mw->destroy;
 543         run_clive(@q);
 544     }
 545 }
 546
 547
 548 __END__
 549
 550 =head1 NAME
 551
 552 clivefeed - the feed parsing utility for clive
 553
 554 =head1 SYNOPSIS
 555
 556 clivefeed [option]... [URL]...
 557
 558 =head1 DESCRIPTION
 559
 560 clivefeed is an utility that parses RSS feeds containing video page links and
 561 uses L<clive(1)> to extract them.
 562
 563 Historically, the feed parsing function was part of L<clive(1)>
 564 and it was written in Python/Newt. The clivefeed utility was written
 565 in Perl/Tk to replace the feature that was removed in clive 2.0. This
 566 utility is part of the B<clive-utils> project.
 567
 568 =head1 OPTIONS
 569
 570 You may freely specify options after the command-line arguments. For example:
 571
 572     % clivefeed -a URL --opts=--noextract
 573
 574 B<Basic Options>
 575
 576 =over 4
 577
 578 =item B<-h --help>
 579
 580 Show help and exit.
 581
 582 =item B<--version>
 583
 584 Show version and exit.
 585
 586 =item B<--clive=>I<path>
 587
 588 I<path> to L<clive(1)> command. If unspecified, clivefeed will attempt to
 589 locate it in the $PATH. Additionally, the B<CLIVE_PATH> environment variable
 590 can be used. See also L</CONFIG>.
 591
 592 =item B<--opts=>I<opts>
 593
 594 I<opts> to append to clive call. See L<clive(1)> for more on the available
 595 options.
 596
 597 =item B<-a --all>
 598
 599 Grab all videos without prompting the GUI.
 600
 601 =back
 602
 603 B<HTTP Options>
 604
 605 =over 4
 606
 607 =item B<-U --agent=>I<string>
 608
 609 Identify as I<string> to the HTTP server. Defaults to "Mozilla/5.0".
 610
 611 =item B<-y --proxy=>I<address>
 612
 613 Use I<address> for HTTP proxy, e.g. http://foo:1234. If http_proxy
 614 environment variable is defined, it will be used.
 615
 616 =item B<-X --noproxy>
 617
 618 Do not use the defined HTTP proxy (B<--proxy>, config or http_proxy).
 619
 620 =back
 621
 622 =head1 EXAMPLES
 623
 624 =over 4
 625
 626 =item % clivefeed "http://youtube.com/rss/user/communitychannel/videos.rss"
 627
 628 Parses the feed at the specified URL.
 629
 630 =item % cat E<gt>E<gt> url.lst
 631
 632  http://youtube.com/rss/user/googletechtalks/videos.rss
 633  http://youtube.com/rss/user/theonion/videos.rss
 634  http://youtube.com/rss/user/lisanova/videos.rss
 635  http://youtube.com/rss/user/clipcritics/videos.rss
 636  http://youtube.com/rss/user/communitychannel/videos.rss
 637  http://youtube.com/rss/user/manintheboxshow/videos.rss
 638
 639 =item % cat url.lst | clivefeed
 640
 641 Reads input from UNIX pipe.
 642
 643 =item % clivefeed --opts="-f mp4"
 644
 645 Append the I<opts> to the L<clive(1)> call.
 646
 647 =item % clivefeed --all URL
 648
 649 Grabs all found videos without prompting.
 650
 651 =back
 652
 653 =head1 FILES
 654
 655 By default, clivefeed searches the ~/.config/clivefeed directory for the
 656 config file. The B<CLIVEFEED_CONFIGDIR> environment variable can be used
 657 to override this behaviour.
 658
 659 =over 4
 660
 661 =item ~/.config/clivefeed/config
 662
 663 Configuration file.
 664
 665 =item ~/.config/clivefeed/prefs
 666
 667 GUI preferences (e.g. fonts, window position, sash coords, ...).
 668
 669 =back
 670
 671 =head1 CONFIG
 672
 673  ## Example config file for clivefeed.
 674
 675  [clive]
 676    path = /usr/local/bin/clive
 677    opts = -f mp4
 678
 679  [http]
 680    agent = Mozilla/5.0
 681    proxy = http://foo:1234
 682
 683 =head1 SEE ALSO
 684
 685 L<clive(1)> L<clivescan(1)>
 686
 687 =head1 OTHER
 688
 689 Project: http://googlecode.com/p/clive-utils/
 690
 691 A clive-utils development repository can be obtained from:
 692
 693     % git clone git://repo.or.cz/clive-utils.git
 694
 695 Patches welcome.
 696
 697 =head1 AUTHOR
 698
 699 Written by Toni Gundogdu <legatvs@gmail.com>
 700
 701 =cut