#!/usr/local/bin/perl


#usage: erstatt.pl "<search>" "<replace>"

$log = "url_filter.log";
$to_do_file = "filer.txt";

$search = $ARGV[0];
$replace = $ARGV[1];

if(($search ne "") && ($replace ne ""))
{
	open(LISTE, "$to_do_file");
	foreach $_ (<LISTE>)
	{
		$file = $_; chop($file);
    		$old_file = "$file".".old";
	
    		system("cp -p $file $old_file");
    		system("rm -f $file");

		open(LOG, ">>"."$log");
		print LOG "lest: $file\ngenerert: $old_file\n\n";
		close(LOG);

    		$innhold = "";
    		open(IN, "$old_file") || die "Can't open $old_file\n";
    		while(<IN>)
    		{
			$innhold .= $_;
    		}
    		close(IN);

		$/ = ""; $* = 1;
		$innhold =~ s/$search/$replace/gi;

    		open(OUT, ">"."$file") || die "Can't write to $file\n";
    		print OUT "$innhold";
    		close(OUT);
	}
	close(LISTE);
}
else 
{ 
	print "ERROR: Needs 2 args!\n Usage: erstatt.pl \"<search_expr>\"
\"<replace_expr>\"\n"; 
}