[mirrors/Programs.git] / php / crawler / old / url2mail.phps

#!/usr/bin/php
<?php
//HTML Mail parser 0.4
//<-Harvie 2oo7
/*
 *This thing checks URLs from STDIN and printing found E-Mails to STDOUT.
 *Use it well...
 */
 
 $in = fopen('php://stdin', 'r');
 while(!feof($in)) {
	$url = trim(fgets($in)); //echo($url); //Debug
	$page = @file($url);
	if(!$page) continue;
	foreach($page as $line) {
		if(!eregi('(mailto:|@)', $line)) continue;
		$line = spliti('mailto:', $line);
		array_shift($line);
		foreach($line as $mail) {
			$mail = spliti('(<|>| |\?|")', htmlspecialchars_decode($mail));
			echo(trim($mail[0])."\n");
		}
	}
 }
Commit	Line	Data
84aff5c8 H	1	#!/usr/bin/php
	2	<?php
	3	//HTML Mail parser 0.4
	4	//<-Harvie 2oo7
	5	/*
	6	*This thing checks URLs from STDIN and printing found E-Mails to STDOUT.
	7	*Use it well...
	8	*/
	9
	10	$in = fopen('php://stdin', 'r');
	11	while(!feof($in)) {
	12	$url = trim(fgets($in)); //echo($url); //Debug
	13	$page = @file($url);
	14	if(!$page) continue;
	15	foreach($page as $line) {
	16	if(!eregi('(mailto:\|@)', $line)) continue;
	17	$line = spliti('mailto:', $line);
	18	array_shift($line);
	19	foreach($line as $mail) {
	20	$mail = spliti('(<\|>\| \|\?\|")', htmlspecialchars_decode($mail));
	21	echo(trim($mail[0])."\n");
	22	}
	23	}
	24	}