Yes, the path is absolute :-)
The callback doesn't seem to get called.
The code looks like this (with lots of stuff snipped) use XML::LibXSLT;
#...
$XSLT = XML::LibXSLT->new();
$Stylesheet = $XSLT->parse_stylesheet_file($path)
or die "Failed to parse the template.\n";
#...
XML::LibXSLT->debug_callback(\&logmsg);
my $results = eval {
$Stylesheet->transform_file($source)
};
if ($@) {
die "LibXSLT died with: $@\nDebug info: $debug";
}
$Stylesheet->output_file($results, $dest);
#...
You can see the whole source of the Perl DLL here.
The VB code (don't ask) that calls the object looks like this: ' ...
Dim XSLT As Object, StyleSheet As Variant
Set XSLT = CreateObject("Viper.XSLTransform")
StyleSheet = "http://xsl.tmp.de/Jobpilot.de/tmpw-1.0.xsl"
If XSLT.LoadTemplate(StyleSheet) Then
XSLT.TransformFile tempFilename, tempFilename & ".tmp"
' ...
where tempFilename is an absolute path to a file that was just created.
Thanks, Jenda
Always code as if the guy who ends up maintaining your code
will be a violent psychopath who knows where you live.
-- Rick Osborne
Edit by castaway: Closed small tag in signature |