#!/usr/bin/perl -w

#http://www.google.com/search?q=%22list+is+only+available+to+the+list+members%22+mailman/listinfo&start=600&num=100
#2.1.4 "current archive" "private list which" mailman/listinfo site:org

$n=0;
$u=0;
for ($i=0;1;$i+=10) {
	$#urls=-1;
	$google=`wget -qO - -U 'any browser' 'http://www.google.com/search?q=%22Click+here+for+the+list%22+mailman%2Flistinfo&start=$i'`;
#	print $google;
	@urls=($google=~m*<p class=g><a href=(http://\S+?)>*g);
#	print join("\n",@urls);
	if ($#urls==-1) {last;}
#	print "\naoeu $#urls\n";
	
	foreach $url (@urls) {
		$u++;
		$url=~s*/listinfo/*/roster/*;
		print STDERR "$url...\n";
		$roster=`lynx -connect_timeout=10 -dump $url`;
	#	print $roster;
		@mails=$roster=~/^ +\* \(?\[\d+\](.* at .*?)\)?$/mgo;
		foreach $mail (@mails) {
			$mail=~s/ at /@/;
			print "$mail\n";
			$n++;
		}
	print STDERR "mails=".($#mails+1).", total=$n, url=$u, google=$i\n";
#		exit;
	} #foreach url

} #while google