#!/usr/bin/perl
#####################################
#                                   #
#  HTTP-hibaüzenet generálása       #
#                                   #
#  Mártonfi Attila, 2000. 06. 10.   #
#                                   #
#####################################

use nyr;
$hiba = $ENV{'QUERY_STRING'};
%szoveg = (
 "400" => "Az Ön böngészője hibás szintaktikát használt.",
 "401" => "Nem azonosította magát.",
 "402" => "Nem fizette be a felhasználói díjat.",
 "403" => "Nincs jogosultsága az oldal megtekintésére.",
 "404" => "A keresett oldal nem létezik.",
 "500" => "Belső rendszerhiba történt.",
 "501" => "Nem támogatott adatelérési módszert használt.",
);
if (($hiba == 400) || ($hiba == 403) || ($hiba == 500)) {
 $hibas = "$hiba-as";
}
else {
 $hibas = "$hiba-es";
}
$cim = "HTTP-hibaüzenet";
die &nyr::hiba($cim, "Rendkívüli szerverhiba!\n$!\n") unless ($hiba && $szoveg{$hiba});
&nyr::hiba("$cim: $hiba", "<BIG>$hibas hiba. <B>$szoveg{$hiba}</B></BIG> </P>\n<P class=kozep><SMALL>Kérem jelezze a webmesternek: <A HREF=\"../vissza.htm\"><I>nyelvor\@c3.hu</I></A></SMALL>\n");
exit;