![([^]()
new;
my $cookies = new HTTP::Cookies();
$ua->cookie_jar($cookies);
$ua->requests_redirectable (['GET', 'HEAD', 'POST']);
my $mp4_file;
my $mp4_dir="";
if(defined $video_dir){
$mp4_dir = abs_path($video_dir);
if (not $mp4_dir =~ m/\/$/) {
$mp4_dir = $mp4_dir.'/';
}
#TODO check this directory is accessible
}
if(not defined $file) {
$file = $pid.' - '.$heading.' - '.$heading2.'.mov';
}
$mp4_file = $mp4_dir.$file;
open(FILE, ">$mp4_file") || die "Can't open $mp4_file: $!\n";
binmode FILE;
my $url = $stream_base.$pid;
$| = 1; # autoflush
print qq{Saving to file $mp4_file from $url\n0% Downloaded};
my $length; # total number of bytes to download
my $size = 0; # number of bytes received
my $percent = 0; # percent downloaded
my $last_print = 0; # last percent printed
my $freq = 0.05; # print every X%
my $formatted_current; # current percentage complete
my $formatted_length; # length in Mbytes
my $res = $ua->request(HTTP::Request->new(GET => $url),
sub{
my $res = $_[1];
if (not defined $res->content_length) {
print "\nCould not download $url\n";
exit (0);
}
if (not defined $length) {
$length = $res->content_length;
$formatted_length = int($length/(10.24*1024))/100
}
my $current = $size / $length * 100;
# if debuging only download 0.2%
if ($debug and $current > 0.2) {die;}
if ($current > $last_print + $freq) {
$last_print = $current;
my $formatted_current;
$formatted_current = int($current*100)/100;
print "\r".$formatted_current."% of ".
$formatted_length." MBytes downloaded";
}
print FILE $_[0] or die "Can't write to $mp4_file: $!\n";
$size += length($_[0]);
}
);
print "\nDownload Complete\n";
close (FILE);
if ($myth_video) {
# download the programe's image for the video cover file
my $img = get($img_url);
my $img_file;
if (defined $img_dir) {
$img_dir = abs_path($img_dir);
if (not $img_dir =~ m/\/$/) {
$img_dir = $img_dir.'/';
}
#TODO check this directory is accessible
$img_file = $img_dir.$file.'.jpg';
} else {
$img_file = $mp4_file.'.jpg';
}
print qq{Downloading cover image to $img_file from $img_url\n};
open (IFILE, ">$img_file") || die "Can't open $img_file: $!\n";
print IFILE $img or die "Can't write to $img_file: $!\n";
close (IFILE);
# update the myth database
print "Inserting video details into $database database\n";
my $dbh = DBI->connect("dbi:mysql:database=$database:host=$dbhost",
"$user","$pass") or die "Cannot connect to database ($!)\n";
my $title = "$heading - $heading2";
# create a videometadata record for video with details from bbc
# or update the relevant record in videometadata if it exists
my $q = "SELECT * FROM videometadata WHERE filename = ?";
my $sth = $dbh->prepare($q);
$sth->execute ($mp4_file) or die "Could not execute ($q)\n";
if (my @row = $sth->fetchrow_array) {
print "Video metadata already exists for video file - Updating\n";
$q = "UPDATE videometadata ".
"SET title = ?, plot = ?, coverfile = ?, ".
"length = ?, browse = 1, showlevel = 1 ".
"WHERE filename = ?";
$sth = $dbh->prepare($q);
$sth->execute ($title, $synopsis, $img_file, $duration, $mp4_file)
or die "Could not execute ($q)\n";
} else {
$q = "INSERT into ".
"videometadata (title, plot, filename, ".
"coverfile, length, browse, showlevel) ".
"VALUES (?, ?, ?, ?, ?, 1, 1)";
$sth = $dbh->prepare($q);
$sth->execute ($title, $synopsis, $mp4_file, $img_file, $duration)
or die "Could not execute ($q)\n";
}
# if imagedir option not provided and mythvideo is set then the jpg image
# will be saved to the same directory as the mp4 file. Therefore create a
# videometadata record for the jpg file so it is not visible in myth video
if (not defined $img_dir) {
$q = "SELECT * from videometadata WHERE filename = ?";
$sth = $dbh->prepare($q);
$sth->execute ($img_file) or die "Could not execute ($q)\n";
my $cf_title = "CoverFile for $title";
if (my @row = $sth->fetchrow_array) {
print "Video metadata already exists for image file - Updating\n";
$q = "UPDATE videometadata ".
"SET title = ?, browse = 0, showlevel = 0 ".
"WHERE filename = ?";
$sth = $dbh->prepare($q);
$sth->execute ($cf_title, $img_file)
or die "Could not execute ($q)\n";
} else {
$q = "INSERT into ".
"videometadata (title, filename, browse, showlevel) ".
"VALUES (?, ?, 0, 0)";
$sth = $dbh->prepare($q);
$sth->execute ($cf_title, $img_file)
or die "Could not execute ($q)\n";
}
}
}
exit(1);