#!/usr/bin/perl

use DB_File;
use Fcntl;

$|=1;

$redir_file = '/usr/lib/squid/redir.db' ;

tie (%redir_db, 'DB_File', $redir_file, O_RDONLY, 0644, $DB_HASH) || die ("Cannot open $redir_file");

while (<>) {

	chop ;
	# URL ip-address/fqdn ident method
	($url, $address, $ident, $method) = /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/ ;

	foreach $key (keys %redir_db) {
		if ($url =~ s/$key/$redir_db{$key}/i) {
			print $url ;
			last ;
		}		
	}

	print "\n";

}

untie %redir_db

