#!/usr/bin/perl

# A script for making a list of all proxies listed on samair.ru, for
# mass-banning purposes.

for ( my $i = 1; $i < 57; $i++ ) {
	my $padded = sprintf("%2d", $i);
	$padded=~ tr/ /0/;
	my $get_command = "wget -q --output-document=- 'http://www.samair.ru/proxy/proxy-$padded.htm'";
	my $html = `$get_command`;
	$html =~ s/\n//gi;
	while ( $html =~ /<tr><td><span class="proxy(?:[0-9]*)">([0-9]*)<\/span>\.<span 
class="proxy(?:[0-9]*)">([0-9]*)<\/span>\.([0-9]*)\.([0-9]*):([0-9]*)<\/td>/gi ) {
		print $1 . '.' . $2 . '.' . $3 . '.' . $4 . "\n";
	}
}