package Plugins::2shared;
#
# 2shared.pm module is a part of Web Share Downloader
# Copyright (C) 2006 by Aleksey Luzin
#
#

use lib '..';
use WSD::Download qw/&direct_download &create_request/;
use Common;
use sql;
use strict;
use warnings;
use Exporter ();
use vars qw($VERSION);

our (@ISA, @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw(&check_link &download);
$VERSION = "1.2" ;


sub check_link {
    shift;
    my $link = shift;
    if ($link =~ /2shared\.com/) {
	return 1;
    }
    return 0;
}
sub get_directlink {
	my $link = shift;
	my $req = create_request($link);
	my $response = $browser->request($req);

	unless ($response->is_success) {return '';  }
	my $content = $response->content;
	unless ($content =~ /location\s*=\s*\"(.*?)\"/) {return '';}
	my $link1 = $1;
	$log->write(2, "link: $link1");
	return $link1;    
}

sub download {
    shift;
    my $id = shift;
    $links->setstatus($id, {status=>1});
    my $link = $links->getlink($id);    
    my $dlink = get_directlink($link->{link});
    if ($dlink) {
	$log->write(3,"Sleep(30)");
	sleep(30);
	my $req = create_request($dlink, 'GET', $link->{link});
	WSD::Download::direct_download($id, $req);    
    }  else {
	my $error = 'Не могу получить прямую ссылку';
	$links->setstatus($id, {status=>3, statustext=>$error, nexttry=>'5 minute'});
    }
}
1;