#!/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", "$hibas hiba. $szoveg{$hiba}
\nKérem jelezze a webmesternek: nyelvor\@c3.hu\n"); exit;