From add69ce8e2648169a47364a705927c69299263cf Mon Sep 17 00:00:00 2001 From: Eugeni Dodonov Date: Tue, 27 Jan 2009 20:30:25 +0000 Subject: Added support for DNS server in tooltip. --- bin/net_applet | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'bin/net_applet') diff --git a/bin/net_applet b/bin/net_applet index b2c3f7d..03aa809 100755 --- a/bin/net_applet +++ b/bin/net_applet @@ -1,6 +1,6 @@ #!/usr/bin/perl -use strict; + use lib qw(/usr/lib/libDrakX); # i18n: IMPORTANT: to get correct namespace (drakx-net instead of libDrakX) BEGIN { unshift @::textdomains, 'drakx-net' } @@ -94,6 +94,7 @@ sub get_state_message { N("Network is up on interface %s.", get_interface_name($interface)) . "\n\n" . N("IP address: %s", network::tools::get_interface_ip_address($net, $interface)) . "\n\n" . N("Gateway: %s", [ network::tools::get_interface_status($interface) ]->[1]) . + "\n\n" . N("DNS: %s", $net->{resolv}{dnsServer}) . ($network && "\n\n" . N("Connected to %s (link level: %d %%)", $network->{name}, $network->{signal_strength})) : $current_state eq 'disconnected' ? N("Network is down on interface %s.", get_interface_name($interface)) -- cgit v1.2.1