Gestire automaticamente configurazioni wifi multiple: differenze tra le versioni

Vai alla navigazione Vai alla ricerca

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
(Aggiornato script)
Nessun oggetto della modifica
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>.
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>.
Metaldaze
24

contributi

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

Menu di navigazione