www.pudn.com > madengine.zip > update.pl

#!/usr/bin/perl 
 
    require './network.pl';                             ## required for www.pl 
    require './www.pl';                                 ## main routines 
    require './filter.pl';				## filter routines 
    require './config.pl';				## Configuration file	 
##################################################################### 
##update.pl 1.0 Copyright  1998, Tom and Linda Myro, 
##all rights reserved.  Permission granted to use and modify 
##for any good use, as long as you agree to hold Tom and Linda  
##Myro and cyber-nurse.com harmless, in the event of any disaster 
##either real or imagined, resulting from the use of this software. 
##Modification and/or installation of this software shall be  
##considered agreement of you, the user with the above conditions. 
#####################################################################  
 
##Fabrication 
$urllist = $datadirectorypath . "/" . "urlbase\.dat"; 
 
 
	open(URLBASE, "$urllist"); 
	$line = ; 
	while($line ne ""){ 
		@urlline = split(/\|/, $line); 
		$entrynumber = @urlline[0]; 
		$url = @urlline[1]; 
		$webfile = $datadirectorypath . "/" . "webfile" . $entrynumber . "\.dat"; 
	        $datfile = $datadirectorypath . "/" . "indexfile" . $entrynumber . "\.dat"; 
		($status, $memo) = &www'open_http_url(*IN, $url); ## connect 
        	open(WEBFILE, ">$webfile");	 
         	print WEBFILE while ;       
		close(WEBFILE);                           ## dump contents 
	        &filter; 
		$line = ;	 
		} 
exit;