| Current Path : /var/www/web-klick.de/dsh/90_akt/wlan/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/90_akt/wlan/wlan9 |
my $text = `iwlist wlan0 scan`;
print $text . "\n----------------------------------\n\n\n";
if ($text =~ /^(.*)Cell \d\d(.*?)ESSID\:\"(.*?)\"(.*?)Encryption key\:off/s) {
$text = $3;
print "$text\n";
system("iwconfig wlan0 essid \"$text\"");
system("ifconfig wlan0");
}