#!/usr/bin/perl

# este script segue o procedimento descrito em:
# http://www.vivaolinux.com.br/artigos/verArtigo.php?codigo=1183
# testado com um router DSLink 200E ligao a um ap WAP1963
# antes de usar vc deve configurar o seu ip para algo na faixa 192.168.0.0/mask 255.255.255.0
# (eh so usar a linha comentada e comentar as linhas com # * )
# vc vai no browser e configura pro AP usar o ip na faixa que o seu router usa (sem ser o ip do router/modem)
# depois vc descomenta as linhas e coloca esse script pra ser chamado pelo rc.local
# agora o dhcp vai pegar todas as configuracoes automaticamente...
# esse script e liberado pela GPL

print "Wireless Network installer by _m4n14c_\nwait...\n";
print `modprobe ndiswrapper; sleep 5`;
@scan = `iwlist wlan0 scanning`;
if(grep /No scan results/i, @scan)
{
print "Nao encontrou nenhuma rede\n";
exit;
}
else
{
# print @scan;
$p = -1;
foreach $line (@scan)
{
  chop($line);
  if($line =~ /ESSID:(.+)/i) { $essid[$p] = $1; };
  if($line =~ /Frequency:(.+)/i) { $freq[$p] = $1; };
  if($line =~ /Mode:(.+)/i) { $mode[$p] = $1; };
  if($line =~ /Encryption key:(.+)/i) { $enc[$p] = $1; };
  if($line =~ /Cell/) { $p++; }
}
$freq =~ s/Hz//g;
$mode = lc ($mode);
print "iwconfig wlan0 essid $essid[0] mode $mode[0] freq $freq[0] rate auto enc $enc[0]\n";
print `iwconfig wlan0 essid $essid[0] mode $mode[0] freq $freq[0] rate auto enc $enc[0]`;
sleep 1;
print "ifconfig wlan0 up\n";
# print `ifconfig wlan0 192.168.0.2 netmask 255.255.255.0 up`;
print `ifconfig wlan0 up`;   # *
print `dhcpcd -d -t 10 wlan0`; # *
# print `ping -c1 192.168.0.1`; # ip default do AP...
print `ping -c1 192.168.1.2`; # * pingando o AP, se nao retornar nada aki nao funcionou.. esse ip eh o q vc coloca no browser..
print "A rede wireless deve estar funcionando...\n";
}