#!/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

#para configurara a partir da conf default use ./wlan 1

$cell = shift or 0;

$setup = shift or 0;
if($ENV{'PATH'} !~ /sbin/) { $ENV{'PATH'} .= ":/sbin"; }
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:([\.\d]+)/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);

if($p > 0)
{
  print "multiplas escolhas:\n";
  $k = 0;
  foreach $name (@essid)
  {
   print $k . ") " . $essid[$k] . "(" . $mode[$k] . ")\n";
   $k ++;
  }
  print "Celula: ";
  $cell = <stdin>;
}

print "iwconfig wlan0 essid $essid[$cell] mode $mode[$cell] freq $freq[$cell] rate auto enc $enc[$cell]\n";
print `iwconfig wlan0 essid $essid[$cell] mode $mode[$cell] freq $freq[$cell] rate auto enc $enc[$cell]`;
sleep 1;
if($setup)
{
  print "ifconfig wlan0 192.168.0.2 netmask 255.255.255.0 up\n";
  print `ifconfig wlan0 192.168.0.2 netmask 255.255.255.0 up`;
  print `ping -c1 192.168.0.1`; # ip default do AP...
}
else
{
  print "ifconfig wlan0 up\n";
  print `ifconfig wlan0 up`;   # *
  print `dhcpcd -d -t 10 wlan0`; # *
  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";
}
if(!$setuo)
{
# sincroniza o relogio com o relogio da hoggar
print "Sincronizando relogio com o da hoggar..\n";
`/etc/cron.hourly/horacerta`;
# atualiza DNS
print "Atualizando DNS..\n";
# print `/home/m4n14c/ddclient 2>&1`;
}