freifunk.cgi: Save adhoc network settings in settings file

diff --git a/html/cgi-bin/freifunk.cgi b/html/cgi-bin/freifunk.cgi
index 489c0dfd1dd56605306e8ae045fbbc209d9fcbcf..0ce300b40f7addc46fb7b99bc09569b6939ec88a 100755 (executable)
--- a/html/cgi-bin/freifunk.cgi
+++ b/html/cgi-bin/freifunk.cgi
@@ -249,6 +249,27 @@ sub BuildConfiguration() {
        }
        $settings{"FREIFUNK_HOSTNAME"} = $hostname;
 
+       # Save adhoc network settings
+       my $adhocs = $network->{'adhoc'};
+
+       # Clear everything
+       $settings{"FREIFUNK_ADHOC_BSSID"} = "";
+       $settings{"FREIFUNK_ADHOC_SSID"}  = "";
+       $settings{"FREIFUNK_ADHOC_FREQ"}  = "";
+
+       foreach my $adhoc (@$adhocs) {
+               # We will only care about mesh networks
+               # in the 2.4 GHz band
+               next if ($adhoc->{"channel"} > 13);
+
+               $settings{"FREIFUNK_ADHOC_BSSID"} = $adhoc->{"bssid"};
+               $settings{"FREIFUNK_ADHOC_SSID"}  = $adhoc->{"ssid"};
+               $settings{"FREIFUNK_ADHOC_FREQ"}  = $adhoc->{"channel"} * 5 + 2407;
+
+               # Do not process any more entries
+               last;
+       }
+
        &General::writehash("${General::swroot}/freifunk/settings", \%settings);
 
        # Write configuration bits...