App-get_flash_videos

 view release on metacpan or  search on metacpan

doc/get_flash_videos.pod  view on Meta::CPAN

run this as a user with permission to write to the location of the
F<get_flash_videos> program. If you installed using a packaging system it is
recommended to use that to upgrade, not this option.

=item I<-v>, I<--version>

Print the version of B<get_flash_videos>.

=item I<-y>, I<--yes>

Do not prompt with any questions, just say 'yes'. This means either literally
yes, or the default or first option if choosing from a list.

=item I<--add-plugin=C<URL>>

Add an external plugin from a specified URL or local file.

=back

=head1 CONFIGURATION

doc/get_flash_videos.pod  view on Meta::CPAN

  # Always play the video
  play

Options given on the command line will override these options, with the
exception that it is not currently possible to disable an option enabled in the
configuration file from the command line.

=head1 EXAMPLES

Play a video (may prompt for filename still, override with I<-y>):

    get_flash_videos -p http://some.site/video 

Download a video (note quotes are required for URLs with special characters
like C<&> in):

    get_flash_videos "http://some.site/video?f=1&v=1234" 

Play the URL on the clipboard (UNIX):

get_flash_videos  view on Meta::CPAN

  -d --debug      Print extra debugging information.
  -f --filename   Filename to save the video as.
  -p --play       Start playing the video once enough has been downloaded.
     --player     Player to use for the video (default: $opt{player}).
     --proxy      Proxy to use, use host:port for SOCKS, or URL for HTTP.
     --subtitles  Download subtitles where available.
  -q --quiet      Be quiet (only print errors).
  -r --quality    Quality to download at (high|medium|low, or site specific).
  -u --update     Update to latest version.
  -v --version    Print version.
  -y --yes        Say yes to any questions (don't prompt for any information).

EOF

use constant REQ_INFO => <<EOF;

A required Perl module for downloading this video is not installed.
EOF

use constant FRIENDLY_FAILURE => <<EOF;

lib/FlashVideo/VideoPreferences.pm  view on Meta::CPAN

  return FlashVideo::VideoPreferences::Quality->new($self->{quality});
}

sub subtitles {
  my($self) = @_;

  return $self->{subtitles};
}

sub account {
  my($self, $site, $prompt) = @_;

  return FlashVideo::VideoPreferences::Account->new($site, $prompt);
}

1;

lib/FlashVideo/VideoPreferences/Account.pm  view on Meta::CPAN

# Part of get-flash-videos. See get_flash_videos for copyright.
package FlashVideo::VideoPreferences::Account;

use strict;

sub new {
  my($class, $site, $prompt) = @_;

  require Net::Netrc; # Core since 5.8

  my $record = Net::Netrc->lookup($site);
  my($user, $pass) = $record ? $record->lpa : ();

  # Allow only setting user in .netrc if wanted

  if(!$user) {
    print $prompt;

    print "Username: ";
    chomp($user = <STDIN>);
  }

  if(!$pass) {
    print "Ok, need your password";
    if(eval { require Term::ReadKey }) {
      print ": ";
      Term::ReadKey::ReadMode(2);