On Fri, 11 Feb 2000, Marco A P D' Andrade wrote:
> O proxy pode ser "escondido" tranquilamente, a exemplo no squid tem
> OP��O, para mostrar ou n�o os valores de proxy :(
>
> A proposito...
>
> Alguem se habilita a montar + um script para mostrar os valores ?
>
> Uso proxy com acesso a proxy da Embratel, e a um bom tempo atras vi que
> ele colocava 2 valores em FORWARD ... queria certificar isto novamente !
>
> Para quem quiser consultar os seus valores:
> http://www.FiscoData.com.br/cgi-bin/proxy
>
> Se alguem se propuser, eu passo o script ...
eu tenho um bem simples que fiz nao lembro pra que.
E, aahhh, ta'horrivel ....
mas ai vai :)
quem quiser ver o resultado na tela -> http://vodka.eep.br/cgi-bin/log.pl
#!/usr/bin/perl
# Nome do Arquivo log.pl
# (c) Alex Eduardo Chiaranda
# Pegar Variaveis CGI
$HTTP_USER_AGENT = $ENV{'HTTP_USER_AGENT'};
$REQUEST_METHOD = $ENV{'REQUEST_METHOD'};
$SCRIPT_NAME = $ENV{'SCRIPT_NAME'};
$QUERY_STRING = $ENV{'QUERY_STRING'};
$REMOTE_ADDR = $ENV{'HTTP_X_FORWARDED_FOR'};
$REMOTE_HOST = $ENV{'REMOTE_ADDR'};
$CONTENT_TYPE = $ENV{'CONTENT_TYPE'};
$CONTENT_LENGTH = $ENV{'CONTENT_LENGTH'};
open(FILE,">>/tmp/teste.txt");
print(FILE "Navegador -> $HTTP_USER_AGENT\n");
print(FILE "Metodo -> $REQUEST_METHOD\n");
print(FILE "Script -> $SCRIPT_NAME\n");
print(FILE "Query String -> $QUERY_STRING\n");
print(FILE "Remote Address -> $REMOTE_ADDR\n");
print(FILE "Remote Host -> $REMOTE_HOST\n");
print(FILE "Content Type -> $CONTENT_TYPE\n");
print(FILE "Content Length -> $CONTENT_LENGTH\n");
rint(FILE "---------------------\n");
close(FILE);
if(length($ENV{'HTTP_X_FORWARDED_FOR'}) > 1)
{ $men = length($ENV{'HTTP_X_FORWARDED_FOR'}); }
print "Content-type: text/html \n\n";
print "<html><title>Resposta ao Form</title>\n\n";
print "<body BgColor=black Text=white>\n\n";
print "<center>\n";
print "<h3>HTTP_USER_AGENT = $HTTP_USER_AGENT<br>\n\n";
print "<h3>REQUEST_METHOD = $REQUEST_METHOD<br>\n\n";
print "<h3>SCRIPT_NAME = $SCRIPT_NAME<br>\n\n";
print "<h3>QUERY_STRING = $QUERY_STRING<br>\n\n";
print "<h3>REMOTE_HOST = $REMOTE_HOST<br>\n\n";
print "<h3>REMOTE_ADDR = $REMOTE_ADDR<br>\n\n";
print "<h3>CONTENT_TYPE = $CONTENT_TYPE<br>\n\n";
print "<h3>CONTENT_LENGTH = $CONTENT_LENGTH<br>\n\n";
print "<h3>$men\n\n";
print "</body></html>";
/"\
\ /
X ASCII RIBBON CAMPAIGN - AGAINST HTML MAIL
/ \ CAMPANHA DA FITA ASCII - CONTRA MAIL EM HTML
Linux ... a nice place to live
*******************************************
* Alex Eduardo Chiaranda *
* mail: [EMAIL PROTECTED] *
* [EMAIL PROTECTED] *
* [EMAIL PROTECTED] *
* Pagina => http://www.eep.br/~aechiara *
* ICQ => UIN 13070511 *
* 4o Ano de Ciencia da Computacao *
* Escola de Engenharia de Piracicaba *
* Piracicaba - SP *
*******************************************
http://www.mrweb.com.br/perl/
�������������
>>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
�������������
