Examine browser capabilities

#!/usr/bin/perl -w use strict; ################################################################################ # This code is Copyright 2004 Tony Lewis . # # This program is free software: you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by the Free # Software Foundation, either version 3 of the License, or (at your option) # any later version. # # This program is distributed in the hope that it will be useful, but WITHOUT # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or # FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for # more details. # # You should have received a copy of the GNU General Public License along with # this program. If not, see http://www.gnu.org/licenses/. # ################################################################################ use CGI qw(:unique_headers); my $q = new CGI; my $data = $q->param("data"); my $to = $ENV{SERVER_ADMIN}; my $from = $ENV{SERVER_ADMIN}; my $envTable = ""; foreach my $name (sort keys %ENV) { my $value = $ENV{$name} || "undefined"; $value =~ s/\n/
/g; $envTable .= "$name$value\n"; } my $message = <Examine browser capabilities $data

CGI Environment Variables

$envTable

Variable Name	Value

EndOfMail open MAIL, "| /usr/sbin/sendmail -t -i" or die "Cannot send mail: $!"; print MAIL $message; close MAIL; print < Mailed examiner results Results mailed to $to. EndOfHTML