/usr/share/perl5/FlashVideo/VideoPreferences/Account.pm is in get-flash-videos 1.25~git2012.06.27-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | # 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);
chomp($pass = <STDIN>);
Term::ReadKey::ReadMode(0);
print "\n";
} else {
print " (will be displayed): ";
chomp($pass = <STDIN>);
}
}
return bless {
username => $user,
password => $pass,
}, $class;
}
sub username {
my($self) = @_;
return $self->{username};
}
sub password {
my($self) = @_;
return $self->{password};
}
1;
|