#!/usr/bin/perl

($var,$id) = split("=", $ENV{'QUERY_STRING'});

print "Content-type: text/html\n";
print "\n";

$ERRO{''} = "Erro nao especificado";
$ERRO{'001'} = "Erro criando sessao";
$ERRO{'002'} = "Erro procesando arquivo de configuracao";
$ERRO{'003'} = "URL invalida";
$ERRO{'004'} = "Erro carregando modulo";
$ERRO{'005'} = "Erro criando link para funcao do modulo";
$ERRO{'006'} = "O video requisitado nao esta disponivel";
$ERRO{'007'} = "Erro buscando dados do video";
$ERRO{'008'} = "Erro abrindo template";
$ERRO{'009'} = "Erro requisitando niveis de acesso";
$ERRO{'010'} = "Nao existe nenhum servico relacionado a editoria deste video";

print "<pre>";
print "<b>ERRO ($id)</b>\n\n";
print "- " . $ERRO{$id} . "\n";