# (c) 2007 by Ralf Ertzinger <ralf@camperquake.de>
#     2008 by Christian Garbs <mitch@cgarbs.de>
#
# licensed under GNU GPL v2
#
# A getter which will download the media to a local file storage
# in the background
#

package videosite::AsyncFileGetter;

use videosite::FileGetter;
@ISA = qw(videosite::FileGetter);

use strict;
use LWP::Simple qw(!get);
use File::Basename;
use MIME::Base64;

sub new {
    my $class = shift;
    my $self = $class->SUPER::new();

    $self->{'NAME'} = 'asyncfilegetter';

    bless($self, $class);
    $self->_prepare_parameters();

    return $self;
}

sub get {
    my $self = shift;
    my $video = shift;
    my $dlfile;
    my $dirname;

    $dlfile = sprintf($self->_getval('FILEPATTERN'),
        $self->_encode($video->{'SOURCE'}),
        $self->_encode($video->{'ID'}),
        $self->_encode($video->{'TITLE'}),
        $self->_encode($video->{'DLURL'}),
        $self->_encode($video)->{'URL'});

    $dirname = dirname($dlfile);
    if ($self->_diskfree($dirname) < $self->_getval('MINFREE')) {
        $self->error("Not enough free space to download");
        return 0;
    }

    $self->debug('Going to download %s to %s', $video->{'DLURL'}, $dlfile);

    my $cmdline = "GET \"$video->{'DLURL'}\" > \"$dlfile\" &";
    $self->debug(encode_base64($cmdline));
    system($cmdline);

    return 1;
}