To run it on your box you should have perl interpreter and some perl modules. Such as:

LWP::UserAgent
Getopt::Long

You can get it directly from site or over the cpan util as well. The source of script here You have to put it on your computer. Also you need get the list of proxy(It can be easily done by google, just type “anonymous proxy list” and you will get a lot of links). Take list and put into the file. Like this :

agrytsenko:~/tmp$ cat proxy.2
64.66.192.61:80 0.8680  Transp. US      Y       65%     2008-12-04 09:51:23
89.114.36.221:8000      1.0750  Elite   RO      ?       30%     2008-12-04 09:39:18
74.65.65.195:8000       1.1030  Elite   US      Y       47%     2008-12-04 09:40:49
89.97.128.86:6588       1.1630  Elite   IT      N       33%     2008-12-04 09:37:52
200.179.72.132:80       1.1830  Transp. BR      Y       91%     2008-12-04 09:51:23
207.182.129.90:3128     1.2570  Transp. US      Y       54%     2008-12-04 09:51:23
207.182.129.91:3128     1.2850  Transp. US      Y       57%     2008-12-04 09:51:23
66.98.152.157:6654      1.4750  Elite   US      Y       11%     2008-12-04 09:37:52
92.48.119.220:6654      1.6100  Elite   GB      Y       29%     2008-12-04 09:36:26

or like this:

agrytsenko:~/tmp$ cat proxy
64.66.192.61:80
150.101.196.52:3128
114.30.47.10:80
114.127.246.36

The main rule of file format: the first field has to be ip:port of proxy.

The script has several keys. Here they are:

agrytsenko:~/tmp$ ./proxy_checker.pl -h
-f file         Specify file
-v              Turn on verbose mode
-h              Print this help

Okay, now you are ready to run it:

agrytsenko:~/tmp$ ./proxy_checker.pl -f ./proxy -v
Try to open proxy list ./proxy
Connect to site over 64.66.192.61:80...
Connection was not established. The reason is :
500 Can't connect to 64.66.192.61:80 (connect: timeout)

Connect to site over 150.101.196.52:3128...
Success connected with IP=150.101.196.52
Proxy 150.101.196.52:3128 is avaible for connections
The 150.101.196.52:3128 is not fully anonymous. You ip address is 79.124.129.220

Connect to site over 114.30.47.10:80...
Connection was not established. The reason is :
503 Service Unavailable

Connect to site over 114.127.246.36:8080...
Success connected with IP=114.127.246.36
Proxy 114.127.246.36:8080 is avaible for connections

As you can see we have only one fully anonymous proxy for now. It’s 114.127.246.36.

Done.

Set “rotation_period” by days at variable section to define log rotation period. Set to “0″ if you want to turn off rotation.

NOTICE: This script works only if perl interpreter is available on web server. You can check it in next way:
$ perl -v

Copyright 1987-2006, Larry Wall


You can view and download it from here.

This script should be put into the web server. My web-hoster doesn’t allow me send mail through shell. That’s why all lines concerning mail issue are commented out in my script. In case your hoster provides you this feature you can use it after drop comments and define variables related to mail.

Don’t forget to put script in the crontab. It’s should be executed at the end of the day:
$ crontab -l
# DO NOT EDIT THIS FILE - edit the master and reinstall.
# (/tmp/crontab.XXXXQpChAn installed on Sun Jun 14 21:56:42 2009)
# (Cron version V5.0 -- $Id: crontab.c,v 1.12 2004/01/23 18:56:42 vixie Exp $)
HOME=/home/virtwww/w_andriigrytse-net_9c210a4f
SHELL=/bin/bash
MAILTO=w_andriigrytse-net_9c210a4f

59 23 * * * $HOME/stat.pl


Good luck:)

To make it works you have to install next perl libraries :

Net::SSH::Expect;
Net::SCP::Expect;
Net::SFTP::Foreign;
Net::FTP;

It’s easy to do through cpan. For example:

# cpan i Net::SSH::Expect

or download directly from cpan

function exec_cmd__ :

This function execute command at remote host. Example:

exec_cmd__(hostname, username, password, port, command)

function sub transfer_file__ :

This function can get or put file to remote host via ssh. Example :

transfer_file__(hostname, username, password, port, source file|directory, destination file|directory, method)

where option “method” can be “fh”(means get file from somewhere and put to localhost) or “th”(send file to host)

function sub sftp_func__ :

This function can get and send file to remote computer via sftp protocol. Example
sftp_func__(hostname, username, password, port, source file|directory, destination file|directory, method)

Where option “method” can be ‘get’(get file from remote host) and ‘put’(put file to remote host) and ‘del’(delete file from remote host )
NOTICE: if you use method “del” please specify the target as “source_file” and skip “destination_file” option

function ftp_func__ :

This function get and delete remote file via ftp protocol. Example:

ftp_func__(hostname, username, password, port, source file|directory, destination file|directory, method)
where option “method” can be ‘get’ or ‘put’

function get_file_via_ftp__:

This function is the same to previous one EXCEPT its doesn’t put a file at remote computer and when its get a file doesn’t remove it at remote system. Example:

get_file_via_ftp(hostname, username, password, port, source file|directory, destination file|directory)

function get_yesterday__:

This function return date of yesterday in format which was got by function as first argument. Example:

get_yesterday__(”YYYYDDMM”), get_yesterday__(”DDMMYYYY”) and so on.

How it’s use? Good question :)

Download this library and put into the /usr/lib/perl5/Net/. Ex.:

# cp monitoring.pm /usr/lib/perl5/Net/

Create new test script :
$ cat > test.pl
#!/usr/bin/perl
use monitoring;
$yesterday=monitoring::get_yesterday__("DDMMYYYY");
print "$yesterday\n";


Set executable rights:
$ chmod +x test.pl

And run it:
$ ./test.pl
11062009

That’s all :)