subroutines.cgi

#!/usr/local/bin/perl;

sub cap {
	$captext = $_[0];
	$captext =~ tr/a-z/A-Z/;
	return $captext;
}

sub which {
	$browser = $ENV{'HTTP_USER_AGENT'};
	if ($browser =~ /MSIE/) {
		$browser = "Explorer";
	} elsif ($browser =~/Mozilla/) {
		$browser = "Netscape";
	} else {
		$browser = "something besides Netscape and Explorer";
	}
}

sub header {
	print "<HTML><HEAD><TITLE>";
	print "$_[0]";
	print "</TITLE></HEAD><BODY>"
}

sub footer {
	print "</BODY></HTML>";
}

sub mime {
	print "Content-type: text/html\n\n";
}

1;