}
	if (!$trusted_site->{$host} || is_banned_type($page)) {
            print "[$host, $page] is banned\n";
            print $browser RES_400;
            close($browser);
        } else {
            if ($remote = new IO::Socket::INET(Proto => "tcp", PeerAddr => $host, PeerPort => 80)) {
                $remote->send($req);
            }
        }
    return $remote;
}

sub read_res {
    my $remote = shift;
    my $res;
    $remote->recv($res, 100000);
    if (!length($res)) {
        $res = undef;
    }
    return $res;
}

sub send_res {
    my ($browser, $res) = @_;
    $browser->send($res);
}


sub is_banned_type {
    my $tmp = lc(shift);
    if ($tmp ne "/") {
        $tmp = (split /\//, $tmp)[-1];
        my $type = (split /\./, $tmp)[-1];

        if ($type && exists($banned_type->{$type})) {
            return 1;
        } else {
            return 0;
        }
    }    
}