#!/usr/bin/perl -w

use strict;

open LOG, ">>", "/home/pegasus/logfile";

print LOG "$ENV{REMOTE_ADDR}: $ENV{HTTP_USER_AGENT}\n";

close LOG;

if (

$ENV{REMOTE_ADDR} =~ /^144\.217\./ ||

$ENV{REMOTE_ADDR} =~ /^35\.192\./ ||

$ENV{REMOTE_ADDR} =~ /^35\.193\./ ||

$ENV{REMOTE_ADDR} =~ /^35\.194\./ ||

$ENV{REMOTE_ADDR} =~ /^35\.195\./ ||

$ENV{REMOTE_ADDR} =~ /^35\.196\./ ||

$ENV{REMOTE_ADDR} =~ /^35\.197\./ ||

$ENV{REMOTE_ADDR} =~ /^35\.198\./ ||

$ENV{REMOTE_ADDR} =~ /^35\.199\./ ||

$ENV{REMOTE_ADDR} =~ /^35\.200\./ ||

$ENV{REMOTE_ADDR} =~ /^35\.201\./ ||

$ENV{REMOTE_ADDR} =~ /^35\.202\./ ||

$ENV{REMOTE_ADDR} =~ /^35\.203\./ ||

$ENV{REMOTE_ADDR} =~ /^35\.204\./ ||

$ENV{REMOTE_ADDR} =~ /^35\.205\./ ||

$ENV{REMOTE_ADDR} =~ /^35\.206\./ ||

$ENV{REMOTE_ADDR} =~ /^35\.207\./

) {

open IMG, "<", "/home/pegasus/public_html/images/favicon.old.png";

} else {

open IMG, "<", "/home/pegasus/public_html/images/favicon.png";

}

print "Content-type: image/png\n\n";

print <IMG>;

close IMG;