#!/usr/bin/perl -w use strict; use CGI qw(:standard); my $q = new CGI; my $In_Code = $q->param('Code'); Output(); #------------------------------------------------------------------------------ sub Output { my %Codes = ( '400','Bad Request', '401','Authorization Required', '402','Payment Required (not used yet)', '403','Forbidden', '404','Not Found', '405','Method Not Allowed', '406','Not Acceptable (encoding)', '407','Proxy Authentication Required', '408','Request Timed Out', '409','Conflicting Request', '410','Gone', '411','Content Length Required', '412','Precondition Failed', '413','Request Entity Too Long', '414','Request URI Too Long', '415','Unsupported Media Type', '500','Internal Server Error', '501','Not Implemented', '502','Bad Gateway', '503','Service Unavailable', '504','Gateway Timeout', '505','HTTP Version Not Supported' ); print "Content-type: text/html\n\n"; print < DAROGAN.COM: Error $In_Code

Error: $Codes{"$In_Code"}
[www.darogan.co.uk]
END_OF_PAGE } #------------------------------------------------------------------------------ # FIN #------------------------------------------------------------------------------