Gestire automaticamente configurazioni wifi multiple: differenze tra le versioni

Gestire automaticamente configurazioni wifi multiple (visualizza wikitesto)

Versione delle 17:53, 18 nov 2014

2 398 byte aggiunti , 18 nov 2014

nessun oggetto della modifica

Metaldaze

24

contributi

@@ Riga 63: / Riga 63: @@
 #                                                                                  #
 ####################################################################################
-# ultima modifica: 29/11/2011
+# ultima modifica: 18/11/2014
 use strict;
@@ Riga 70: / Riga 70: @@
 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 $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) {
-	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/ );
-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>
 Rendiamo <code>wifiup.pl</code> eseguibile con
@@ Riga 127: / Riga 152: @@
 # chmod +x wifiup.pl
 </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>
-# /root/wifiup.pl wlan0
+# /root/wifiup.pl wlan0 eth0
 </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>.