Changeset 9957

Timestamp:

2005-05-25T17:30:23+12:00 (19 years ago)

Author:

davidb

Message:

Introduction of XSLT support to XML based plugins. This is done through
a minus option (-xslt) that allows the input XML to be transformed before it
is processed by the plugin.

File:

• trunk/gsdl/perllib/plugins/XMLPlug.pm (modified) (6 diffs)

trunk/gsdl/perllib/plugins/XMLPlug.pm

@@ -41 +41 @@
     'type' => "regexp",
     'deft' => &get_default_process_exp(),
+    'reqd' => "no" },
+      { 'name' => "xslt",
+    'desc' => "{XMLPlug.xslt}",
+    'type' => "string",
+    'deft' => "",
     'reqd' => "no" } ];
 
@@ -61 +66 @@
     push( @{$option_list}, $options );
     
+    if (!parsargv::parse(\@_, 
+             q^xslt/.*/^, \$self->{'xslt'},
+             "allow_extra_options")) {
+
+    print STDERR "\nIncorrect options passed to XSLTPlug, check your collect.cfg configuration file\n";
+    $self->print_txt_usage("");  # Use default resource bundle
+    die "\n";
+    }
+
+
     my $parser = new XML::Parser('Style' => 'Stream',
                  'Handlers' => {'Char' => \&Char,
@@ -76 +91 @@
 }
 
+sub apply_xslt
+{
+    my $self = shift @_;
+    my ($xslt,$filename) = @_;
+    
+    my $outhandle = $self->{'outhandle'};
+
+    my $xslt_filename = $xslt;
+
+    if (! -e $xslt_filename) {
+    # Look in main site directory
+    my $gsdlhome = $ENV{'GSDLHOME'};
+    $xslt_filename = &util::filename_cat($gsdlhome,$xslt);
+    }
+
+    if (! -e $xslt_filename) {
+    # Look in collection directory
+    my $coldir = $ENV{'COLLECTDIR'};
+    $xslt_filename = &util::filename_cat($coldir,$xslt);
+    }
+
+    if (! -e $xslt_filename) {
+    print $outhandle "Warning: Unable to find XSLT $xslt\n";
+    if (open(XMLIN,"<$filename")) {
+
+        $untransformed_xml = "";
+        while (defined (my $line = <XMLIN>)) {
+
+        $untransformed_xml .= $line;
+        }
+        close(XMLIN);
+        
+        return $untransformed_xml;
+    }
+    else {
+        print $outhandle "Error: Unable to open file $filename\n";
+        print $outhandle "       $!\n";
+        return "";
+    }
+    
+    }
+
+    my $bin_java = &util::filename_cat($ENV{'GSDLHOME'},"bin","java");
+    my $jar_filename = &util::filename_cat($bin_java,"xalan.jar");
+    my $xslt_base_cmd = "java -jar $jar_filename";
+    my $xslt_cmd = "$xslt_base_cmd -IN \"$filename\" -XSL \"$xslt_filename\"";
+
+    my $transformed_xml = "";
+
+    if (open(XSLT_IN,"$xslt_cmd |")) {
+    while (defined (my $line = <XSLT_IN>)) {
+
+        $transformed_xml .= $line;
+    }
+    close(XSLT_IN);
+    }
+    else {
+    print $outhandle "Error: Unable to run command $xsl_cmd\n";
+    print $outhandle "       $!\n";
+    }
+
+    return $transformed_xml;
+
+}
+
 
 sub read {
-    # this must be global!
+    # $self must be global to work with XML callback routines.
     $self = shift (@_);  
   
@@ -93 +173 @@
     return undef;
     }
+
     $file =~ s/^[\/\\]+//; # $file often begins with / so we'll tidy it up
     $self->{'file'} = $file;
@@ -99 +180 @@
     $self->{'metadata'} = $metadata;
     $self->{'gli'} = $gli;
+
     eval {
-    $self->{'parser'}->parsefile($filename);
+    my $xslt = $self->{'xslt'};
+    if (defined $xslt && ($xslt ne "")) {
+        # perform xslt
+        my $transformed_xml = $self->apply_xslt($xslt,$filename);
+
+        # feed transformed file (now in memory as string) into XML parser
+        $self->{'parser'}->parse($transformed_xml);
+    }
+    else {
+        $self->{'parser'}->parsefile($filename);
+    }
     };
   
@@ -126 +218 @@
     return -1; # error during processing
     }
+
     return 1; # processed the file
 }