Guide@Debianizzati.Org

Gestire automaticamente configurazioni wifi multiple: differenze tra le versioni

Pagina Discussione

Gestire automaticamente configurazioni wifi multiple (visualizza wikitesto)

Versione delle 11:36, 10 nov 2015

2 549 byte aggiunti ,  10 nov 2015
nessun oggetto della modifica
(Aggiornato script)
Nessun oggetto della modifica
 
(3 versioni intermedie di 2 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: 29/11/2011
# ultima modifica: 18/11/2014


use strict;
use strict;
Riga 70: Riga 70:
my $interface2 = shift;
my $interface2 = shift;


my @knownNetwork = "";
# 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 $foundNetwork = "";
my @knownNetworks = "";
my $knownNetwork;
my $knownNetwork = "";
my @iwlist = "";
my %foundNetworks;
my $link = "";
my $link = "";
my $i = 0;
my $i = 0;
my $ref_value = 100;
my $best_network = "";
my $signal;


$interface = "wlan0" unless $interface;
$interface2 = "eth0" unless $interface2;
if ($interface eq "-h" or $interface eq "--help" or !$interface2) {
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";
        print "USO: wifiup.pl [interfaccia_wifi [interfaccia_eth]]\nOPZIONI:\n\t--h --help\tVisualizza questo messaggio\n";
exit 0;
        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
push(@knownNetwork,$1) if /iface\s+(.*)\s+inet/;
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");
        system("ifconfig $interface up");


for ($i=1; $i<11; $i++) {
        for ($i=1; $i<=$retry; $i++) {
@iwlist = "";
                foreach (`iwlist $interface sc`) {
push(@iwlist,$_) foreach (`iwlist $interface scan | grep ESSID`);
                        $signal = $1 if /.*Signal level=-([0-9]+)\sdBm/;
foreach $knownNetwork (@knownNetwork) {
                        if (/ESSID:\s*"(.*)"\n/) {
foreach (@iwlist) {
                                foreach $knownNetwork (@knownNetworks) {
$foundNetwork = $knownNetwork  if /$knownNetwork/;
                                        $foundNetworks{$1}=$signal if $1 eq $knownNetwork;
}
                                }
}
                        }
if ($foundNetwork eq "") {
                }
print "wifiup.pl: Nessuna rete wifi conosciuta al tentativo $i\n";
# ricerca della rete migliore in base al livello del segnale (nel caso ci fossero più reti conosciute a distanza di visibilità)
sleep 2;
        print "wifiup.pl: Ricerca della rete migliore.\n";
} else {
        foreach (keys %foundNetworks) {
$i = 11;
                print "* $_ - Signal level: -$foundNetworks{$_}dBm\n";
}
        }
}


if ($foundNetwork eq "") {
                if ((keys %foundNetworks) > 0){
print "wifiup.pl: Nessuna rete wifi conosciuta.\n";
                        foreach (keys %foundNetworks) {
$link = `ethtool $interface2 | grep "Link detected" | cut -d " " -f 3`;
                                if ( $foundNetworks{$_} < $ref_value ) {
chomp $link;
                                        $best_network = $_;
if ($link eq "yes") {
                                        $ref_value = $foundNetworks{$_};
print "wifiup.pl: Acquisizione dell'indirizzo di rete per $interface2.\n";
                                }
system ("dhclient $interface2");
                        }
}
                }
} else {
                if ($best_network eq "") {
print "wifiup.pl: Configuro $interface per la rete  $foundNetwork.\n";
                        print "wifiup.pl: Nessuna rete wifi conosciuta al tentativo $i\n";
system("ifup $interface=$foundNetwork");
                        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>
Rendiamo <code>wifiup.pl</code> eseguibile con
Rendiamo <code>wifiup.pl</code> eseguibile con
Riga 127: Riga 152:
# chmod +x wifiup.pl
# chmod +x wifiup.pl
</pre>
</pre>
A questo punto possiamo testarne il funzionamento tenendo presente che lo script richiede come argomento il nome dell'interfaccia wifi. Ad esempio
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>
Ora dobbiamo fare in modo che il nostro script venga eseguito ad ogni avvio di Debian. Per fare questo basta inserire il comando in <code>/etc/rc.local</code>.
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. }}
Metaldaze
24

contributi

Estratto da "https://guide.debianizzati.org/index.php/Speciale:DiffMobile/34766...40091"