Changeset 6332 for trunk/gsdl/perllib/plugins/HTMLPlug.pm

Timestamp:

2003-12-19T15:16:29+13:00 (20 years ago)

Author:

jmt12

Message:

When -gli argument is provided to calling script these modules will now output gli specific, non-language nor verbosity specific, messages

File:

• trunk/gsdl/perllib/plugins/HTMLPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -194 +194 @@
 sub process {
     my $self = shift (@_);
-    my ($textref, $pluginfo, $base_dir, $file, $metadata, $doc_obj) = @_;
+    my ($textref, $pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli) = @_;
     my $outhandle = $self->{'outhandle'};
+
+    print STDERR "<Processing n='$file' p='HTMLPlug'>\n" if ($gli);
+
     print $outhandle "HTMLPlug: processing $file\n"
     if $self->{'verbosity'} > 1;
@@ -648 +651 @@
         if (defined $1) {
             my $title = $1;
+            # Arg. This allows only ascii value characters in titles
             if ($title =~ /\w/) {
             $title =~ s/<[^>]*>/ /g;