W3C home > Mailing lists > Public > www-validator-cvs@w3.org > November 2009

validator/misc docs_errors.pl,1.11,1.12 spmpp.pl,1.2,1.3

From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
Date: Mon, 23 Nov 2009 22:15:21 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1NChBp-0002UJ-0z@lionel-hutz.w3.org>
Update of /sources/public/validator/misc
In directory hutz:/tmp/cvs-serv9510/misc

Modified Files:
	docs_errors.pl spmpp.pl 
Log Message:
Run perltidy on perl sources.

Index: spmpp.pl
===================================================================
RCS file: /sources/public/validator/misc/spmpp.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- spmpp.pl	9 May 2004 15:56:55 -0000	1.2
+++ spmpp.pl	23 Nov 2009 22:15:18 -0000	1.3
@@ -23,14 +23,14 @@
 #
 # Snarf OpenSP's ParserMessages.rc and populate @msg.
 my $msgfile = $ARGV[0] || "/usr/local/validator/htdocs/config/verbosemsg.rc";
-open FH, $msgfile
-  or die "Can't open OpenSP ParserMessages file '$msgfile': $!";
+open FH, $msgfile or
+    die "Can't open OpenSP ParserMessages file '$msgfile': $!";
 while (<FH>) {
-  next if /^\s*$/;
-  my($id, $s) = split /, /, $_, 2;
-  $id += 0; # Force numerical (kill leading space)...
-  chomp $s; # Strip newline from end of message...
-  push @msg, [$id, $s];
+    next if /^\s*$/;
+    my ($id, $s) = split /, /, $_, 2;
+    $id += 0;    # Force numerical (kill leading space)...
+    chomp $s;    # Strip newline from end of message...
+    push @msg, [$id, $s];
 }
 close FH;
 
@@ -53,7 +53,7 @@
 # the last digit of the "muid" is replaced at runtime).
 #
 for (@msg) {
-  print <<"_.EOF._";
+    print <<"_.EOF._";
 <msg $_->[0]>
   original = $_->[1]
   verbose <<.EOF.

Index: docs_errors.pl
===================================================================
RCS file: /sources/public/validator/misc/docs_errors.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- docs_errors.pl	29 Jun 2009 14:37:08 -0000	1.11
+++ docs_errors.pl	23 Nov 2009 22:15:18 -0000	1.12
@@ -8,137 +8,142 @@
 use strict;
 use warnings;
 
-
 ## Modules.  See also the BEGIN block further down below.
 
 use File::Spec::Functions qw(catfile);
-use HTML::Template   2.6  qw();
-use Config::General  2.32 qw(); # Need 2.32 for <msg 0>, rt.cpan.org#17852
+use HTML::Template 2.6 qw();
+use Config::General 2.32 qw();    # Need 2.32 for <msg 0>, rt.cpan.org#17852
 
 use vars qw($DEBUG $CFG $VERSION);
+
 # Define global constants
 use constant TRUE  => 1;
 use constant FALSE => 0;
 
 BEGIN {
-  # Launder data for -T; -AutoLaunder doesn't catch this one.
-  if (exists $ENV{W3C_VALIDATOR_HOME}) {
-    $ENV{W3C_VALIDATOR_HOME} =~ /^(.*)$/;
-    $ENV{W3C_VALIDATOR_HOME} = $1;
-  }
 
-  #
-  # Read Config Files.
-  eval {
-    my %config_opts = (
-       -ConfigFile => ($ENV{W3C_VALIDATOR_CFG} || '/etc/w3c/validator.conf'),
-       -MergeDuplicateOptions => TRUE,
-       -MergeDuplicateBlocks  => TRUE,
-       -SplitPolicy      => 'equalsign',
-       -UseApacheInclude => TRUE,
-       -IncludeRelative  => TRUE,
-       -InterPolateVars  => TRUE,
-       -AutoLaunder      => TRUE,
-       -AutoTrue         => TRUE,
-       -DefaultConfig    => {
-          Paths => {
-            Base => ($ENV{W3C_VALIDATOR_HOME} || '/usr/local/validator'),
-          },
-       },
-      );
-    my %cfg = Config::General->new(%config_opts)->getall();
-    $CFG = \%cfg;
-  };
-  if ($@) {
-    die <<".EOF.";
+    # Launder data for -T; -AutoLaunder doesn't catch this one.
+    if (exists $ENV{W3C_VALIDATOR_HOME}) {
+        $ENV{W3C_VALIDATOR_HOME} =~ /^(.*)$/;
+        $ENV{W3C_VALIDATOR_HOME} = $1;
+    }
+
+    #
+    # Read Config Files.
+    eval {
+        my %config_opts = (
+            -ConfigFile =>
+                ($ENV{W3C_VALIDATOR_CFG} || '/etc/w3c/validator.conf'),
+            -MergeDuplicateOptions => TRUE,
+            -MergeDuplicateBlocks  => TRUE,
+            -SplitPolicy           => 'equalsign',
+            -UseApacheInclude      => TRUE,
+            -IncludeRelative       => TRUE,
+            -InterPolateVars       => TRUE,
+            -AutoLaunder           => TRUE,
+            -AutoTrue              => TRUE,
+            -DefaultConfig         => {
+                Paths => {
+                    Base =>
+                        ($ENV{W3C_VALIDATOR_HOME} || '/usr/local/validator'),
+                },
+            },
+        );
+        my %cfg = Config::General->new(%config_opts)->getall();
+        $CFG = \%cfg;
+    };
+    if ($@) {
+        die <<".EOF.";
 Could not read configuration.  Set the W3C_VALIDATOR_CFG environment variable
 or copy conf/* to /etc/w3c/. Make sure that the configuration file and all
 included files are readable by the web server user. The error was:\n'$@'
 .EOF.
-  }
-} # end of BEGIN block.
+    }
+}    # end of BEGIN block.
 
 #
 # Get rid of (possibly insecure) $PATH.
 delete $ENV{PATH};
 
-our $lang = 'en_US'; # @@@ TODO: conneg
+our $lang = 'en_US';    # @@@ TODO: conneg
 
 # Read error message + explanations file
-our $error_messages_file = catfile($CFG->{Paths}->{Templates}, $lang, 'error_messages.cfg');
-our %config_errs = ( -MergeDuplicateBlocks => 1,
-        -ConfigFile => $error_messages_file);
+our $error_messages_file =
+    catfile($CFG->{Paths}->{Templates}, $lang, 'error_messages.cfg');
+our %config_errs = (
+    -MergeDuplicateBlocks => 1,
+    -ConfigFile           => $error_messages_file
+);
 our %rsrc = Config::General->new(%config_errs)->getall();
 
-
 our $T = HTML::Template->new(
-  filename => catfile($CFG->{Paths}->{Templates}, $lang, 'docs_errors.tmpl'),
-  die_on_bad_params => FALSE,
+    filename => catfile($CFG->{Paths}->{Templates}, $lang, 'docs_errors.tmpl'),
+    die_on_bad_params => FALSE,
 );
 
 $T->param(list_errors_hasverbose => &list_errors_hasverbose(\%rsrc));
-$T->param(list_errors_noverbose => &list_errors_noverbose(\%rsrc));
+$T->param(list_errors_noverbose  => &list_errors_noverbose(\%rsrc));
 print $T->output;
 
-sub list_errors_hasverbose{
-    my $rsrc = shift;
+sub list_errors_hasverbose
+{
+    my $rsrc   = shift;
     my $errors = [];
     my $error_id;
-    my $max_error_id=500; # where to stop
-    for ($error_id=0;$error_id<$max_error_id;$error_id++)
-    {
-	my %single_error;
-	if ($rsrc->{msg}->{$error_id})
-	{
-	    my $verbose = $rsrc->{msg}->{$error_id}->{verbose};
-	    if ($verbose)
-	    {
-		my $original = $rsrc->{msg}->{$error_id}->{original};
-		$original = &de_template_explanation($original);
-		$single_error{original} = $original;
-		$single_error{id} = $error_id;
-		$single_error{verbose} = $rsrc->{msg}->{$error_id}->{verbose};
-		$single_error{verbose} =~ s/<!--CFG_HOME_PAGE-->/$CFG->{'Home Page'}/g;
+    my $max_error_id = 500;    # where to stop
+    for ($error_id = 0; $error_id < $max_error_id; $error_id++) {
+        my %single_error;
+        if ($rsrc->{msg}->{$error_id}) {
+            my $verbose = $rsrc->{msg}->{$error_id}->{verbose};
+            if ($verbose) {
+                my $original = $rsrc->{msg}->{$error_id}->{original};
+                $original               = &de_template_explanation($original);
+                $single_error{original} = $original;
+                $single_error{id}       = $error_id;
+                $single_error{verbose}  = $rsrc->{msg}->{$error_id}->{verbose};
+                $single_error{verbose} =~
+                    s/<!--CFG_HOME_PAGE-->/$CFG->{'Home Page'}/g;
+
+                push @{$errors}, \%single_error;
 
-		push @{$errors}, \%single_error;
                 # Fix up relative paths (/check vs /docs/errors.html)
                 s/href="docs\//href="/
                     for $single_error{original}, $single_error{verbose};
-	    }
+            }
 
-	}
+        }
     }
-    return  $errors;
+    return $errors;
 }
 
-sub list_errors_noverbose{
-    my $rsrc = shift;
+sub list_errors_noverbose
+{
+    my $rsrc   = shift;
     my $errors = [];
     my $error_id;
-    my $max_error_id=500; # where to stop
-    for ($error_id=0;$error_id<$max_error_id;$error_id++)
-    {
-	my %single_error;
-	if ($rsrc->{msg}->{$error_id})
-	{
-	    my $verbose = $rsrc->{msg}->{$error_id}->{verbose};
-	    if (! $verbose)
-	    {
-		my $original = $rsrc->{msg}->{$error_id}->{original};
-		$original = &de_template_explanation($original);
-		$single_error{original} = $original;
-		$single_error{id} = $error_id;
-		$single_error{verbose} = $rsrc->{msg}->{$error_id}->{verbose};
-		push @{$errors}, \%single_error;
-	    }
+    my $max_error_id = 500;    # where to stop
+    for ($error_id = 0; $error_id < $max_error_id; $error_id++) {
+        my %single_error;
+        if ($rsrc->{msg}->{$error_id}) {
+            my $verbose = $rsrc->{msg}->{$error_id}->{verbose};
+            if (!$verbose) {
+                my $original = $rsrc->{msg}->{$error_id}->{original};
+                $original               = &de_template_explanation($original);
+                $single_error{original} = $original;
+                $single_error{id}       = $error_id;
+                $single_error{verbose}  = $rsrc->{msg}->{$error_id}->{verbose};
+                push @{$errors}, \%single_error;
+            }
 
-	}
+        }
     }
-    return  $errors;
+    return $errors;
 }
 
-sub de_template_explanation {
-# takes the error message template, and replace "template keywords" with real life keywords
+sub de_template_explanation
+{
+
+    # takes the error message template, and replace "template keywords" with real life keywords
     my $explanation = shift;
     if ($explanation) {
         $explanation =~ s/\%1/X/;
Received on Monday, 23 November 2009 22:15:32 UTC

This archive was generated by hypermail 2.3.1 : Wednesday, 7 January 2015 15:17:40 UTC