use N("...") rather than N('...') for perl_checker

1 files changed, 28 insertions, 28 deletions

diff --git a/dns_wizard/Bind.pm b/dns_wizard/Bind.pm
index 1cc58f2f..e5d210b4 100644
--- a/dns_wizard/Bind.pm
+++ b/dns_wizard/Bind.pm
@@ -101,7 +101,7 @@ sub list_hosts {
 
 $o->{pages} = {
 	       welcome => {
-			   name => N('DNS Master configuration wizard') . "\n\n" . N('DNS (Domain Name Server) is the service that maps an IP address of a machine with an internet host name.') . "\n\n" . N('This wizard will help you configuring the DNS services of your server. This configuration will provide a local DNS service for local computers names, with non-local requests forwarded to an outside DNS.'),
+			   name => N("DNS Master configuration wizard") . "\n\n" . N("DNS (Domain Name Server) is the service that maps an IP address of a machine with an internet host name.") . "\n\n" . N("This wizard will help you configuring the DNS services of your server. This configuration will provide a local DNS service for local computers names, with non-local requests forwarded to an outside DNS."),
 			   no_back => 1,
 			   pre => sub {
 			     $o->{var}{wiz_level} ||= 1;
@@ -130,7 +130,7 @@ $o->{pages} = {
 			   next => 'summaryadd',
 			  },
 	       removehost => {
-			      name => N('Remove host:') . "\n\n" . N('Remove a host in existing dns configuration.') . "\n\n" . N('Choose the host you want to remove in the following list.'),
+			      name => N("Remove host:") . "\n\n" . N("Remove a host in existing dns configuration.") . "\n\n" . N("Choose the host you want to remove in the following list."),
 			      data => [
 				       { label => N("Name of the machine:"), val => \$o->{var}{CLIENTNAME}, fixed_list => \@list_hosts },
 				      ],
@@ -138,42 +138,42 @@ $o->{pages} = {
 			      next => 'summaryremove',
 			     },
 	       slave => {
-			 name => N('Slave DNS server') . "\n\n" . N("A slave name server will take some of the burden away from your primary name server, and will also function as a backup server, in case your master server is unreachable."),
+			 name => N("Slave DNS server") . "\n\n" . N("A slave name server will take some of the burden away from your primary name server, and will also function as a backup server, in case your master server is unreachable."),
 			 data => [
-				  { label => N('IP of master DNS server:'), val => \$o->{var}{IPMASTER} },
+				  { label => N("IP of master DNS server:"), val => \$o->{var}{IPMASTER} },
 				 ],
 			 post => \&check_ipm,
 			 next => 'summaryslave',
 			},
 
 	       ipforward => {
-			     name => N('IP of your forwarders') . "\n\n" . N('Forwarding occurs on only those queries for which the server is not authoritative and  does not have the answer in its cache.') . "\n\n" . N('So if you need it and know your ip forwarder enter IP address of it, if you dont know leave it blank'),
+			     name => N("IP of your forwarders") . "\n\n" . N("Forwarding occurs on only those queries for which the server is not authoritative and  does not have the answer in its cache.") . "\n\n" . N("So if you need it and know your ip forwarder enter IP address of it, if you dont know leave it blank"),
 			     data => [
-				      { label => N('IP forwarders:'), val => \$o->{var}{IPOFFORWARDER} },
+				      { label => N("IP forwarders:"), val => \$o->{var}{IPOFFORWARDER} },
 				     ],
 			     post => \&check_ipf,
 			     next => 'addsearch',
 			    },
 	       addsearch => {
-			     name => N('Add search domain') . "\n\n" . N('Search list for host-name lookup.  The search list is normally determined from the local domain name; by default, it contains only the local domain name. This may be changed by listing the desired domain search path following the search keyword') . "\n\n" . N('Domainname of this server is automatically added, and you dont need to add it here.'),
+			     name => N("Add search domain") . "\n\n" . N("Search list for host-name lookup.  The search list is normally determined from the local domain name; by default, it contains only the local domain name. This may be changed by listing the desired domain search path following the search keyword") . "\n\n" . N("Domainname of this server is automatically added, and you dont need to add it here."),
 
 			     data => [
-				      { label => N('Add search domain:'), val => \$o->{var}{ADDSEARCH} },
+				      { label => N("Add search domain:"), val => \$o->{var}{ADDSEARCH} },
 				     ],
 			     next => 'summary',
 			    },
 	       error_ipf => {
-			     name => N('Error IP of forwarder.') . "\n\n" . N('This is not a valid IP address for your forwarder... press next to continue'),
+			     name => N("Error IP of forwarder.") . "\n\n" . N("This is not a valid IP address for your forwarder... press next to continue"),
 			     ignore => 1,
 			     next => 'ipforward',
 			    },
 	       error_ipm => {
-			     name => N('Error Ip of DNS master.') . "\n\n" . N('This is not a valid Master DNS IP address... press next to continue'),
+			     name => N("Error Ip of DNS master.") . "\n\n" . N("This is not a valid Master DNS IP address... press next to continue"),
 			     ignore => 1,
 			     next => 'slave',
 			    },
 	       error_iph => {
-			     name => N('Error Ip of new host.') . "\n\n" . N('This is not a valid IP address... press next to continue'),
+			     name => N("Error Ip of new host.") . "\n\n" . N("This is not a valid IP address... press next to continue"),
 			     ignore => 1,
 			     next => 'addhost',
 			    },
@@ -183,12 +183,12 @@ $o->{pages} = {
 				next => 'client_id'
 			       },
 	       error_add => {
-			     name => N('Error add host.') . "\n\n" . N('It seems that host is already in your DNS configuration... press next to continue'),
+			     name => N("Error add host.") . "\n\n" . N("It seems that host is already in your DNS configuration... press next to continue"),
 			     ignore => 1,
 			     next => 'addhost',
 			    },
 	       error_remove => {
-				name => N('Error remove host.') . "\n\n" . N('It seems that this is not present in your DNS configuration... press next to continue'),
+				name => N("Error remove host.") . "\n\n" . N("It seems that this is not present in your DNS configuration... press next to continue"),
 				ignore => 1,
 				next => 'removehost',
 			       },
@@ -203,15 +203,15 @@ $o->{pages} = {
 				   end => 1,
 				  },
 	       summaryslave => {
-				name => N('Ok Now building your DNS slave configuration') . "\n\n" . N('with this configuration:'),
+				name => N("Ok Now building your DNS slave configuration") . "\n\n" . N("with this configuration:"),
 				data => [ 
-					 { label => N('Ip of master DNS server:'), fixed_val => \$o->{var}{IPMASTER} },
+					 { label => N("Ip of master DNS server:"), fixed_val => \$o->{var}{IPMASTER} },
 					],
 				post => \&do_it_slave,
 				next => 'end',
 			       },
 	       summaryadd => {
-			      name => N('Client with this identification will be added to your DNS'),
+			      name => N("Client with this identification will be added to your DNS"),
 			      data => [
 				       { label => N("Name of the machine:"), fixed_val => \$o->{var}{CLIENTNAME} },
 				       { label => N("IP number of the machine:"), fixed_val => \$o->{var}{CLIENTIP} },
@@ -220,7 +220,7 @@ $o->{pages} = {
 			      next => 'endadd',
 			     },
 	       summaryremove => {
-				 name => N('Client with this identification will be removed to your DNS'),
+				 name => N("Client with this identification will be removed to your DNS"),
 				 data => [
 					  { label => N("Name of the machine:"), val => \$o->{var}{CLIENTNAME}, fixed_list => \@list_hosts },
 					 ],
@@ -228,30 +228,30 @@ $o->{pages} = {
 				 next => 'endremove',
 				},
 	       summary => {
-			   name => N('Ok Now building your DNS configuration') . "\n\n" . N('with this configuration:'),
+			   name => N("Ok Now building your DNS configuration") . "\n\n" . N("with this configuration:"),
 			   data => [
-				    { label => N('Server Hostname:'), fixed_val => \$o->{var}{SHORTHOSTNAME} },
-				    { label => N('Domainname:'), fixed_val => \$o->{var}{DOMAINNAME} },
-				    { label => N('IP forwarders:'), fixed_val => \$o->{var}{IPOFFORWARDER} },
-				    { label => N('add search domain:'), fixed_val => \$o->{var}{ADDSEARCH} },
+				    { label => N("Server Hostname:"), fixed_val => \$o->{var}{SHORTHOSTNAME} },
+				    { label => N("Domainname:"), fixed_val => \$o->{var}{DOMAINNAME} },
+				    { label => N("IP forwarders:"), fixed_val => \$o->{var}{IPOFFORWARDER} },
+				    { label => N("add search domain:"), fixed_val => \$o->{var}{ADDSEARCH} },
 				   ],
 			   post => \&do_it_master,
 			   next => 'end',
 			  },
 	       endadd => {
-			  name => N('Congratulations'),
-			  data => [ { label => N('The wizard successfully add host in your DNS.') } ],
+			  name => N("Congratulations"),
+			  data => [ { label => N("The wizard successfully add host in your DNS.") } ],
 			  next => 'addhost',
 			 },
 	       endremove => {
-			     name => N('Congratulations'),
-			     data => [ { label => N('The wizard successfully remove host in your DNS.') } ],
+			     name => N("Congratulations"),
+			     data => [ { label => N("The wizard successfully remove host in your DNS.") } ],
 			     end => 1,
 			     next => 0,
 			 },
 	       end => {
-		       name => N('Congratulations'),
-		       data => [ { label => N('The wizard successfully configured the DNS service of your server.') } ],
+		       name => N("Congratulations"),
+		       data => [ { label => N("The wizard successfully configured the DNS service of your server.") } ],
 		       no_back => 1,
 		       end => 1,
 		       next => 0,