SoTZone Gaming Portal

Code: Select all

#!perl
#use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
use IO::Socket;

print "-" x 70 . "\n\n";

###############################################################
#Настройки скрипта
###############################################################
my $file_proxy = "proxy.txt";#Список прокси серверов
my $timeout    = 3;          #Время задержки между кликами,максимальное в сек.
       

###############################################################
#загрузка проксей
open(F1, $file_proxy) or die("Error: Can't open file $file_proxy");
my @proxy = <F1>;
close(F1);
chomp($_) foreach(@proxy);

#инициализация и настройка клиента



#Подключение чере прокси
my $k = 0;
foreach my $pr(@proxy)
	{
	 my $agent = LWP::UserAgent->new;
	 $agent->agent("Mozilla/5.0");
	 $agent->proxy(['http'],"http://$pr/");

	 my $respon = $agent->request(
	 				GET 'http://www.surfingindonesia.ru/index.php',
		 			type   => 'contest',
		 			action => 'vote',
		 			id     => '425'
	 			     );
	 
	 print "\n$pr \t == " . $respon->status_line;
	}


###############################################################
print "\n\n" ."-" x 70 . "\nPress Entre to exit... ";
my $end1 = <STDIN>;