#!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); my $request = $ENV{HTTP_HOST}; #my $request = "autoprices.co.nz"; open REDIRECT, "redirect.conf" or die "cannot open my config file $!\n"; while () { chomp; if ($_=~/(.*?)=(.*)/) { my $from = $1; my $to = $2; if ($from=~/^$request$/) { doprint($from, $to); close REDIRECT; exit; } } } close REDIRECT; exit; sub doprint { my ($from, $to) = @_; $to=~s/\s+//g; print < $from <body bgcolor="#FFFFFF" text="#000000"> <a href="$to">Click here to continue</a> </body> END }