webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-27 03:07:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

index.cgi: Show WiFi properties on front page

Browse Source 
Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
This commit is contained in:
Michael Tremer
2017-05-16 16:02:25 +02:00
parent 0628d956a7
commit c335b0cd8e
12 changed files with 127 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
html/cgi-bin/index.cgi
View File

@@ -217,7 +217,48 @@ END
</td>
<td></td>
</tr>
</table>
END
if (&General::RedIsWireless()) {
my $iface = $netsettings{"RED_DEV"} || "red0";
my $essid = &Network::wifi_get_essid($iface);
my $frequency = &Network::wifi_get_frequency($iface);
my $access_point = &Network::wifi_get_access_point($iface);
my $bit_rate = &Network::wifi_get_bit_rate($iface);
my $link_quality = &Network::wifi_get_link_quality($iface);
my $signal_level = &Network::wifi_get_signal_level($iface);
print <<END;
<tr>
<td>
<strong>$Lang::tr{'wireless network'}:</strong>
</td>
<td style="text-align: center">
$essid
</td>
<td style="text-align: center">
$access_point @ $frequency
</td>
</tr>
<tr>
<td>
<strong>
$Lang::tr{'uplink bit rate'}:
</strong>
</td>
<td style="text-align: center">
$bit_rate
</td>
<td style="text-align: center">
$link_quality% @ $signal_level
</td>
</tr>
END
}
print <<END;
</table>
END
#Dial profiles