#!/usr/bin/perl
#use strict;
#use warnings;
#use diagnostics;
use HTTP::ProxyCheck;
use WWW::Mechanize;

my $url = "http://www.rapidshare.com";
open (FILE, "<proxies.txt") or die $!;
while (my $proxy = <FILE>) {
        chomp $proxy;
        my $proxy_check = new HTTP::ProxyCheck(
    proxy       => $proxy,
    url         => $url,
    answer_size => 'short',
    print_error => 0,
    )
    or die $HTTP::ProxyCheck::error;

    print "Trying to connect to '$proxy' and retrieve '$url'\n";

    if ( $proxy_check->check() ) {
        my $answer = $proxy_check->get_answer();
        print "'$proxy' returns:\n\n", $answer, "\n\n";
        if ($answer =~ /HTTP\/1.0 200 OK/ or $answer =~ /HTTP\/1.1 200 OK/)
        {
            my $mech = WWW::Mechanize->new;
            
            $mech->timeout(10);

            $mech->add_header( 'accept-language' => 'de') or die();

            $mech->proxy(['http', 'ftp'], 'http://$proxy/') or die();

            $mech->get("http://www.rapidshare.com/files/47486343/PowerOptions.pdf") or die();

            $mech->click_button( number => '2' ) or die();
           
            warn $mech->content;

            my $content = $mech->content;

            if ( $content =~ /\(\w+\s\w+\s(.*)\s\w+\)/i ) {
                print "warte $1 Minute(n).\n";
            }
            elsif ( $content =~ /Kein Premium-User/i ) {
                print "Kein Premium-User.\n";
            }
            elsif ( $content =~ /Zu viele Benutzer laden gerade Dateien runter./i ) {
                print "Zu viele Benutzer laden gerade Dateien runter.\n"
            }
            elsif ( $content =~ /Du musst warten, bis der Download fertig ist./i ) {
                print "Du musst warten, bis der Download fertig ist.\n"
            }
            else { print "Unknown error"; }
                }
    }
    else {
        print "Error: ", $proxy_check->get_error(), "\n";
    }
}
close (FILE);
exit;