454a455,456
> 
> 
459a462
> 
1628,1690d1630
< sub anonymize_header {
< 	my $msg = shift;
< 	my $remote_smtp_ip = shift;
< 	my $returnpath = shift;
< 	my $recips = shift;
< 
< 	# Dichiara il nome del messaggio temporaneo
< 	my $tmpmsg = "$msg.tmp";
< 
< 	# WARN: Uncomment source code lines if you would to enable original email store!!!!!
< 	#######
< 	
< 	# Dichiara la directory dei messaggi originali (tmp a causa del taint mode di perl)
< 	#my $destfolder = "/var/spool/qmailscan/originalmails";
< 
< 	# Crea la directory se non esiste
< 	#if ( ! -e $destfolder) {
< 	#	mkdir($destfolder);
< 	#}
< 
< 	# Preleva il timestamp
< 	#my $date = `/bin/date +%s`;
< 	my $date = `/bin/date +%c`;
< 	chomp $date;
< 
< 	# Preleva il nome del messaggio senza il path
< 	#my $msgname = `basename $msg`;
< 	#chomp $msgname;
< 
< 	# Legge il contenuto del messaggio originale
< 	open(LE, "<$msg");
< 	        my @lines = <LE>;
< 	close(LE);
< 
< 	open(WR, ">$tmpmsg");
< 	foreach(@lines) {
< 		my $line = $_;
< 
< 		if (($line =~ /Received: from/) || ($line =~ /Received: by/)) {
< 			#my $from = "Received: from techfusion.it by base (62.149.204.159/Orig: $destfolder/$msgname.$date)\n";
< 			my $from = "Received: from techfusion.it by base (62.149.204.159/Hideen Mail Routing)\n";
< 			print WR $from;
< 		} else {
< 			print WR $line;
< 		}
< 	}
< 	close(WR);
< 
< 
< 	# Untaint data
< 	#my $name = "$destfolder/$msgname.$date";
< 	#$name =~ m/(.*)/;
< 	#
< 	#my $result = `/bin/mv $msg $1`;
< 
< 	# Scrive il warning nei log
< 	my $debugmessage = "qqs-patch: $date Message from $remote_smtp_ip ($returnpath) sent to $recips";
< 	&debug($debugmessage);
< 
< 	# Copia il messaggio modificato su quello originale
< 	my $result = `/bin/mv $tmpmsg $msg`;
< }
< 
1722,1724d1661
<     # Anonymize Message
<     anonymize_header($msg, $remote_smtp_ip, $returnpath, $recips);
< 
1735,1739c1672
< 
<     # Modificato causa controlli RBL
<     #print QMQ "Received: from $remote_smtp_ip by $hostname (envelope-from <$returnpath>, uid $real_uid) with qmail-scanner-$VERSION \n";
<     print QMQ "Received: from techfusion.it by $hostname (envelope-from <$returnpath>, uid $real_uid with Tech Fusion IT-c Scanner)\n";
<     
---
>     print QMQ "Received: from $remote_smtp_ip by $hostname (envelope-from <$returnpath>, uid $real_uid) with qmail-scanner-$VERSION \n";
1782d1714
< 
1784d1715
<