}
}
+my %wireless_status = ();
+
+sub _get_wireless_status($) {
+ my $intf = shift;
+
+ if (!$wireless_status{$intf}) {
+ $wireless_status{$intf} = `iwconfig $intf`;
+ }
+
+ return $wireless_status{$intf};
+}
+
+sub wifi_get_essid($) {
+ my $status = &_get_wireless_status(shift);
+
+ my ($essid) = $status =~ /ESSID:\"(.*)\"/;
+
+ return $essid;
+}
+
+sub wifi_get_frequency($) {
+ my $status = &_get_wireless_status(shift);
+
+ my ($frequency) = $status =~ /Frequency:(\d+\.\d+ GHz)/;
+
+ return $frequency;
+}
+
+sub wifi_get_access_point($) {
+ my $status = &_get_wireless_status(shift);
+
+ my ($access_point) = $status =~ /Access Point: ([0-9A-F:]+)/;
+
+ return $access_point;
+}
+
+sub wifi_get_bit_rate($) {
+ my $status = &_get_wireless_status(shift);
+
+ my ($bit_rate) = $status =~ /Bit Rate=(\d+ [GM]b\/s)/;
+
+ return $bit_rate;
+}
+
+sub wifi_get_link_quality($) {
+ my $status = &_get_wireless_status(shift);
+
+ my ($cur, $max) = $status =~ /Link Quality=(\d+)\/(\d+)/;
+
+ return $cur * 100 / $max;
+}
+
+sub wifi_get_signal_level($) {
+ my $status = &_get_wireless_status(shift);
+
+ my ($signal_level) = $status =~ /Signal level=(\-\d+ dBm)/;
+
+ return $signal_level;
+}
1;
# Remove the next line to enable the testsuite
WARNING: untranslated string: unblock all
WARNING: untranslated string: uncheck all
WARNING: untranslated string: uplink
+WARNING: untranslated string: uplink bit rate
WARNING: untranslated string: upload dh key
WARNING: untranslated string: uptime load average
WARNING: untranslated string: urlfilter redirect template
WARNING: untranslated string: vpn statistic rw
WARNING: untranslated string: vpn statistics n2n
WARNING: untranslated string: vpn weak
+WARNING: untranslated string: wireless network
WARNING: untranslated string: wlan client
WARNING: untranslated string: wlan client advanced settings
WARNING: untranslated string: wlan client and
WARNING: untranslated string: unblock all
WARNING: untranslated string: uncheck all
WARNING: untranslated string: uplink
+WARNING: untranslated string: uplink bit rate
WARNING: untranslated string: upload dh key
WARNING: untranslated string: upload new ruleset
WARNING: untranslated string: uptime load average
WARNING: untranslated string: vpn statistic rw
WARNING: untranslated string: vpn statistics n2n
WARNING: untranslated string: vpn weak
+WARNING: untranslated string: wireless network
WARNING: untranslated string: wlan client
WARNING: untranslated string: wlan client advanced settings
WARNING: untranslated string: wlan client and
WARNING: untranslated string: unblock
WARNING: untranslated string: unblock all
WARNING: untranslated string: uncheck all
+WARNING: untranslated string: uplink bit rate
WARNING: untranslated string: vpn broken
WARNING: untranslated string: vpn connecting
WARNING: untranslated string: vpn force mobike
WARNING: untranslated string: vpn statistic rw
WARNING: untranslated string: vpn statistics n2n
WARNING: untranslated string: vpn weak
+WARNING: untranslated string: wireless network
WARNING: untranslated string: wlan client anonymous identity
WARNING: untranslated string: wlan client auth auto
WARNING: untranslated string: wlan client auth peap
WARNING: untranslated string: unblock
WARNING: untranslated string: unblock all
WARNING: untranslated string: uncheck all
+WARNING: untranslated string: uplink bit rate
WARNING: untranslated string: upload dh key
WARNING: untranslated string: vendor
WARNING: untranslated string: vpn broken
WARNING: untranslated string: vpn statistic rw
WARNING: untranslated string: vpn statistics n2n
WARNING: untranslated string: vpn weak
+WARNING: untranslated string: wireless network
WARNING: untranslated string: wlan client anonymous identity
WARNING: untranslated string: wlan client auth auto
WARNING: untranslated string: wlan client auth peap
WARNING: untranslated string: unblock all
WARNING: untranslated string: uncheck all
WARNING: untranslated string: uplink
+WARNING: untranslated string: uplink bit rate
WARNING: untranslated string: upload dh key
WARNING: untranslated string: uptime load average
WARNING: untranslated string: urlfilter redirect template
WARNING: untranslated string: vpn statistic rw
WARNING: untranslated string: vpn statistics n2n
WARNING: untranslated string: vpn weak
+WARNING: untranslated string: wireless network
WARNING: untranslated string: wlan client
WARNING: untranslated string: wlan client advanced settings
WARNING: untranslated string: wlan client and
WARNING: untranslated string: unblock all
WARNING: untranslated string: uncheck all
WARNING: untranslated string: uplink
+WARNING: untranslated string: uplink bit rate
WARNING: untranslated string: upload dh key
WARNING: untranslated string: uptime load average
WARNING: untranslated string: urlfilter redirect template
WARNING: untranslated string: vpn statistic rw
WARNING: untranslated string: vpn statistics n2n
WARNING: untranslated string: vpn weak
+WARNING: untranslated string: wireless network
WARNING: untranslated string: wlan client
WARNING: untranslated string: wlan client advanced settings
WARNING: untranslated string: wlan client and
WARNING: untranslated string: routing config added
WARNING: untranslated string: routing config changed
WARNING: untranslated string: routing table
+WARNING: untranslated string: uplink bit rate
WARNING: untranslated string: vpn broken
WARNING: untranslated string: vpn connecting
WARNING: untranslated string: vpn on-demand
WARNING: untranslated string: vpn start action start
WARNING: untranslated string: vpn statistics n2n
WARNING: untranslated string: vpn weak
+WARNING: untranslated string: wireless network
WARNING: untranslated string: wlan client anonymous identity
WARNING: untranslated string: wlan client auth auto
WARNING: untranslated string: wlan client auth peap
< updxlrtr sources
< updxlrtr standard view
< uplink
+< uplink bit rate
< upload dh key
< upload new ruleset
< uptime
< vpn statistic n2n
< vpn statistic rw
< vpn weak
+< wireless network
< wlanap access point
< wlanap channel
< wlanap country
< updxlrtr sources
< updxlrtr standard view
< uplink
+< uplink bit rate
< upload dh key
< uptime
< uptime load average
< vpn statistic n2n
< vpn statistic rw
< vpn weak
+< wireless network
< wlanap country
< wlan client
< wlan client advanced settings
< updxlrtr sources
< updxlrtr standard view
< uplink
+< uplink bit rate
< upload dh key
< uptime
< uptime load average
< vpn statistic n2n
< vpn statistic rw
< vpn weak
+< wireless network
< wlanap country
< wlan client
< wlan client advanced settings
< updxlrtr sources
< updxlrtr standard view
< uplink
+< uplink bit rate
< upload dh key
< uptime
< uptime load average
< vpn statistic rw
< vpn weak
< week-graph
+< wireless network
< wlanap country
< wlan client
< wlan client advanced settings
</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
'updxlrtr year' => 'einem Jahr',
'upgrade' => 'upgrade',
'uplink' => 'Uplink',
+'uplink bit rate' => 'Ausgehende Datenrate',
'uplink speed' => 'Uplink-Geschwindigkeit (kbit/sek)',
'uplink std class' => 'Uploadstandardklasse',
'upload' => 'Hochladen',
'wireless config added' => 'Wireless-Konfiguration hinzugefügt',
'wireless config changed' => 'Wireless-Konfiguration geändert',
'wireless configuration' => 'Wireless-Konfiguration',
+'wireless network' => 'WLAN-Netzwerk',
'wlan client' => 'WLAN-Client',
'wlan client advanced settings' => 'Erweiterte Einstellungen',
'wlan client and' => 'und',
'updxlrtr year' => 'one year',
'upgrade' => 'upgrade',
'uplink' => 'Uplink',
+'uplink bit rate' => 'Uplink Bit Rate',
'uplink speed' => 'Uplink speed (kbit/sec)',
'uplink std class' => 'uplink standard class',
'upload' => 'Upload',
'wireless config added' => 'Wireless config added',
'wireless config changed' => 'Wireless config changed',
'wireless configuration' => 'Wireless Configuration',
+'wireless network' => 'WiFi Network',
'wlan client' => 'Wireless client',
'wlan client advanced settings' => 'Advanced settings',
'wlan client and' => 'and',