From 25329d4f9c1b8bb16131dd2dada45a46b90a95c1 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 23 Aug 2004 03:13:05 +0000
Subject: protocol names, trademark and acronyms should be upcase

---
 perl-install/network/adsl.pm        | 10 +++++-----
 perl-install/network/adsl_consts.pm |  2 +-
 perl-install/network/netconnect.pm  |  4 ++--
 3 files changed, 8 insertions(+), 8 deletions(-)

(limited to 'perl-install/network')

diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index 197635e5d..00354e186 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -16,9 +16,9 @@ sub get_wizard {
     my $netc = $wiz->{var}{netc};
 
     my %l = (
-	     'pppoe' =>  N("use pppoe"),
-	     'pptp'  =>  N("use pptp"),
-	     'dhcp'  =>  N("use dhcp"),
+	     'pppoe' =>  N("use PPPoE"),
+	     'pptp'  =>  N("use PPTP"),
+	     'dhcp'  =>  N("use DHCP"),
 	     'speedtouch' => N("Alcatel Speedtouch USB") . if_($netc->{autodetect}{adsl}{speedtouch}, N(" - detected")),
 	     'sagem' =>  N("Sagem (using PPPOA) USB") . if_($netc->{autodetect}{adsl}{sagem}, N(" - detected")),
 	     'sagem_dhcp' =>  N("Sagem (using DHCP) USB") . if_($netc->{autodetect}{adsl}{sagem}, N(" - detected")),
@@ -34,8 +34,8 @@ sub get_wizard {
               adsl_old => {
                        name => N("Connect to the Internet") . "\n\n" .
                        N("The most common way to connect with adsl is pppoe.
-Some connections use pptp, a few use dhcp.
-If you don't know, choose 'use pppoe'"),
+Some connections use PPTP, a few use DHCP.
+If you don't know, choose 'use PPPoE'"),
                        data =>  [
                                  {
                                   label => N("ADSL connection type:"), val => \$wiz->{var}{adsl}{type}, list => [ sort values %l ] },
diff --git a/perl-install/network/adsl_consts.pm b/perl-install/network/adsl_consts.pm
index ee81efbf4..f4818eedd 100644
--- a/perl-install/network/adsl_consts.pm
+++ b/perl-install/network/adsl_consts.pm
@@ -22,7 +22,7 @@ our %adsl_data = (
                   #     5 RFC2364 PPPoA LLC,
                   #     6 RFC2364 PPPoA VCmux
                   # dns are provided for when !usepeerdns in peers config file
-                  # method : pppoa, pppoe or static
+                  # method : PPPoA, pppoe or static
                   # please forward updates to http://forum.eagle-usb.org
                   # order alphabetically by country (in English) / ISP (local language)
                   N("Austria") . "|Any" =>
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index e3ff84104..8a5fe8ae0 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -754,8 +754,8 @@ and copy the mgmt.o in /usr/share/speedtouch", 'http://prdownloads.sourceforge.n
                     },
                     name => N("Connect to the Internet") . "\n\n" .
                     N("The most common way to connect with adsl is pppoe.
-Some connections use pptp, a few use dhcp.
-If you don't know, choose 'use pppoe'"),
+Some connections use PPTP, a few use DHCP.
+If you don't know, choose 'use PPPoE'"),
                     data =>  [
                               { text => N("ADSL connection type:"), val => \$adsl_type, type => "list",
                                 list => [ sort { $adsl_types{$a} cmp $adsl_types{$b} } keys %adsl_types ],
-- 
cgit v1.2.1