autenticacao automatica no iG

[Mario Olimpio de Menezes <mario@curiango.ipen.br>]

Olá,

	Sei que alguns aqui utilizam Speedy/Virtua, etc e não precisam
utilizar um iG para diminuir a conta do provedor.
	Mas, para os outros mortais, como eu, ai vai um trecho de Perl
que fiz para automatizar a autenticacao do iG e não precisar ir para
aquela página idiota de login.

---------------------------
/usr/bin/perl -MHTTP::Request::Common -MLWP::UserAgent \
-e '$ua = new  LWP::UserAgent(); $provedor = "ig";
$ipparam = $ENV{'PPP_IPPARAM'}; if ($ipparam eq $provedor) {
$url = "http://auth.ig.com.br/cgi-bin/login-ig.cgi";;
my $req = POST "$url", [ action => 'login', username => 'USERNAME',
password => 'PASSWORD']; print $ua->request($req)->as_string; }
else { print STDERR "erro: provedor: $ipparam ";}'
----------------------------

	Eu coloquei este trecho em um dos meus scripts em
/etc/ppp/ip-up.d. Tudo tem que estar em uma linha ou devem ser
utilizadas barras invertidas para a continuação. Substitua USERNAME e
PASSWORD pelos valores apropriados.
	O valor de PPP_IPPARAM é definido no script
/etc/ppp/peers/PROVEDOR e voce deve ajustá-lo adequadamente e substituir
o valor da variável $provedor pelo valor apropriado.
	Espero que seja útil e melhorado por todos.
	Abraços,


Mario O.de Menezes            "Many are the plans in a man's heart, but
    IPEN-CNEN/SP                 is the Lord's purpose that prevails"
http://curiango.ipen.br/~mario                 Prov. 19.21