24
contributi
(Tolti gli apici dagli esempi di configurazione) |
Nessun oggetto della modifica |
||
(7 versioni intermedie di 5 utenti non mostrate) | |||
Riga 1: | Riga 1: | ||
{{Versioni compatibili| | {{Versioni compatibili|Squeeze|Wheezy|Jessie|Testing_2015}} | ||
__TOC__ | __TOC__ | ||
==Introduzione== | ==Introduzione== | ||
Riga 63: | Riga 63: | ||
# # | # # | ||
#################################################################################### | #################################################################################### | ||
# ultima modifica: | # ultima modifica: 18/11/2014 | ||
use strict; | use strict; | ||
my $interface = shift | my $interface = shift; | ||
my $interface2 = shift; | |||
my | # Valori modificabili dall'utente ######################################### | ||
my $retry = 10; # numero di tentativi per la ricerca di una rete conosciuta | |||
$interface = "wlan0" unless $interface; # è possibile sostituire wlan0 | |||
$interface2 = "eth0" unless $interface2; # è possibile sostituire eth0 | |||
########################################################################### | |||
my $ | my @knownNetworks = ""; | ||
my $ | my $knownNetwork = ""; | ||
my | my %foundNetworks; | ||
my $link = ""; | |||
my $i = 0; | |||
my $ref_value = 100; | |||
my $best_network = ""; | |||
my $signal; | |||
if ($interface eq "-h" or $interface eq "--help") { | if ($interface eq "-h" or $interface eq "--help" or !$interface2) { | ||
print "USO: wifiup.pl [interfaccia_wifi [interfaccia_eth]]\nOPZIONI:\n\t--h --help\tVisualizza questo messaggio\n"; | |||
exit 0; | |||
} | } | ||
die "ERRORE: L\'interfaccia $interface non fa riferimento ad un dispositivo wifi\n" if ( `iwconfig $interface 2>&1` !~ /ESSID/ ); | die "ERRORE: L\'interfaccia $interface non fa riferimento ad un dispositivo wifi\n" if ( `iwconfig $interface 2>&1` !~ /ESSID/ ); | ||
foreach (`grep iface /etc/network/interfaces`) { | # Se il cavo di rete è connesso e il link è attivo, configuro la rete cablata con DHCP | ||
print "wifiup.pl: Verifico se il link su $interface2 è attivo... "; | |||
} | system("ifconfig $interface2 up"); | ||
sleep 5; | |||
$link = `ethtool $interface2 | grep "Link detected" | cut -d " " -f 3`; | |||
chomp $link; | |||
print "$link\n"; | |||
if ($link eq "yes") { | |||
print "wifiup.pl: Acquisizione dell'indirizzo di rete per $interface2.\n"; | |||
system ("dhclient $interface2"); | |||
} else { | |||
# scansione delle reti wifi e selezione delle reti conosciute | |||
foreach (`grep ^iface /etc/network/interfaces`) { | |||
push (@knownNetworks,$1) if /iface\s+([^\s]*)\s+inet/; | |||
} | |||
system("ifconfig $interface up"); | |||
for ($i=1; $i<=$retry; $i++) { | |||
foreach (`iwlist $interface sc`) { | |||
$signal = $1 if /.*Signal level=-([0-9]+)\sdBm/; | |||
if (/ESSID:\s*"(.*)"\n/) { | |||
foreach $knownNetwork (@knownNetworks) { | |||
$foundNetworks{$1}=$signal if $1 eq $knownNetwork; | |||
} | |||
} | |||
} | |||
# ricerca della rete migliore in base al livello del segnale (nel caso ci fossero più reti conosciute a distanza di visibilità) | |||
print "wifiup.pl: Ricerca della rete migliore.\n"; | |||
foreach (keys %foundNetworks) { | |||
print "* $_ - Signal level: -$foundNetworks{$_}dBm\n"; | |||
} | |||
if ((keys %foundNetworks) > 0){ | |||
foreach (keys %foundNetworks) { | |||
foreach | if ( $foundNetworks{$_} < $ref_value ) { | ||
$best_network = $_; | |||
$ref_value = $foundNetworks{$_}; | |||
} | |||
} | } | ||
if ($ | } | ||
if ($best_network eq "") { | |||
} else { | print "wifiup.pl: Nessuna rete wifi conosciuta al tentativo $i\n"; | ||
sleep 2; | |||
} else { | |||
$i = 11; | |||
} | |||
} | |||
# Attivazione della configurazione per la migliore rete wifi a distanza di visibilità | |||
unless ($best_network eq "") { | |||
print "wifiup.pl: Configuro $interface per la rete $best_network.\n"; | |||
$best_network =~ s/ /_/g; | |||
system("ifup $interface=$best_network"); | |||
} | |||
} | } | ||
</pre> | </pre> | ||
Riga 104: | Riga 152: | ||
# chmod +x wifiup.pl | # chmod +x wifiup.pl | ||
</pre> | </pre> | ||
A questo punto possiamo testarne il funzionamento | A questo punto possiamo testarne il funzionamento. Se lo script viene eseguito senza argomenti, l'interfaccia wifi considerata sarà wlan0, mentre verrà usata la eth0 come interfaccia cablata. Nel caso in cui in nomi delle interfacce da usare non fossero quelli di default, possiamo specificarne il nome indicando come primo argomento l'interfaccia wifi e come secondo argomento l'interfaccia cablata (attenzione a non invertire l'ordine). | ||
Nel caso in cui lo script rilevasse un link attivo sull'interfaccia cablata (cavo connesso), questa verrebbe direttamente configurata in DHCP, senza nemmeno effettuare la ricerca delle reti wifi. | |||
Possiamo, quindi, eseguire lo script nel seguente modo: | |||
<pre> | <pre> | ||
# /root/wifiup.pl wlan0 | # /root/wifiup.pl wlan0 eth0 | ||
</pre> | </pre> | ||
Nel caso in cui ci fossero più reti conosciute a distanza di visibilità, lo script tenterà di selezionare quella con il segnale migliore. | |||
Per fare in modo che il nostro script venga eseguito ad ogni avvio di Debian, basta inserire il comando in <code>/etc/rc.local</code>. | |||
{{ warningbox|Lo script funziona solo nel caso in cui l'access point non nasconda lo SSID della rete wifi. }} | {{ warningbox|Lo script funziona solo nel caso in cui l'access point non nasconda lo SSID della rete wifi. }} | ||
Autore | {{Autori | ||
[[Categoria: | |Autore = [[Utente:Metaldaze|Metaldaze]] | ||
[[Categoria: | }} | ||
[[Categoria:Configurazione wireless]] | |||
[[Categoria:Perl]] |
contributi