<%

sub browser_ie3()
{
    my $self = shift;
    $_ = $ENV{HTTP_USER_AGENT} || "";
    if (/Mozilla/ and /MSIE/)
    {
        my ($nb) = $_ =~ /MSIE.([0-9.]+)/;
        return ($nb < 4 and not $self->tv);
    }
}


sub browser_nn4()
{
    my $self = shift;
    $_ = $ENV{HTTP_USER_AGENT} || "";
    if (/Mozilla\/([0-9\.]+)/ and not /MSIE/) { return ($1 >= 4 and $1 < 5) }
    return;
}


sub browser_tv()
{
    my $self = shift;
    $_ = $ENV{HTTP_USER_AGENT} || "";
    return /WebTV/;
}

%>