#!/usr/local/bin/perl

# written by Ben Adida(benjamin@media.mit.edu)
# Procedure for finding the User Agent.


sub get_user_agent {
    $USER_AGENT=$ENV{'HTTP_USER_AGENT'};
}

sub is_netscape2_compatible {
    &get_user_agent;
    if (grep(/Mozilla\/2.0/i,$USER_AGENT)) {
	return true;
    } else {
	return false;
    }
}

sub get_http_referer {
    local($HTTP_REFERER)=$ENV{'HTTP_REFERER'};
    return $HTTP_REFERER;
}

