Changeset 20320 for gsdl/trunk/perllib/plugouts/BasePlugout.pm
- Timestamp:
- 2009-08-18T16:42:28+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugouts/BasePlugout.pm
r19829 r20320 58 58 'type' => "string", 59 59 'reqd' => "no", 60 'deft' => "", 60 61 'hiddengli' => "no"}, 61 62 { 'name' => "output_handle", … … 96 97 push(@$plugoutlist, $class); 97 98 98 my $ strPlugoutName = (defined $plugoutlist->[0]) ? $plugoutlist->[0] : $class;99 my $plugout_name = (defined $plugoutlist->[0]) ? $plugoutlist->[0] : $class; 99 100 100 101 push(@{$hashArgOptLists->{"ArgList"}},@{$arguments}); … … 122 123 { 123 124 my $classTempClass = bless $self, $class; 124 print STDERR "<BadPlugout d=$ self->{'plugout_name'}>\n";125 &gsprintf(STDERR, "\n{BasPlugout.bad_general_option}\n", $ self->{'plugout_name'});125 print STDERR "<BadPlugout d=$plugout_name>\n"; 126 &gsprintf(STDERR, "\n{BasPlugout.bad_general_option}\n", $plugout_name); 126 127 $classTempClass->print_txt_usage(""); # Use default resource bundle 127 128 die "\n"; … … 131 132 if(defined $self->{'xslt_file'} && $self->{'xslt_file'} ne "") 132 133 { 133 ##$self->{'xslt_file'} =~ s/\"//g;##working on Windows??? 134 print STDERR "Can not find $self->{'xslt_file'}, please make sure you have supplied the correct file path\n" and die "\n" unless (-e $self->{'xslt_file'}); 134 my $full_file_path = &util::locate_config_file($self->{'xslt_file'}); 135 if (!defined $full_file_path) { 136 print STDERR "Can not find $self->{'xslt_file'}, please make sure you have supplied the correct file path\n"; 137 die "\n"; 138 } 139 $self->{'xslt_file'} = $full_file_path; 135 140 } 136 141 … … 828 833 my ($output_file_name, $xslt_file)=@_; 829 834 830 return unless defined $xslt_file and $xslt_file ne "" and -e $xslt_file;831 835 return unless defined $xslt_file and $xslt_file ne "" and -e $xslt_file; 836 832 837 my $java_class_path = &util::filename_cat ($ENV{'GSDLHOME'},"bin","java"); 833 838 … … 836 841 if ($ENV{'GSDLOS'} eq "windows"){ 837 842 $java_class_path .=";".&util::filename_cat ($ENV{'GSDLHOME'},"bin","java","xalan.jar"); 838 $xslt_file = "\"file:///".$xslt_file."\""; 839 $mapping_file_path = "\"file:///"; 843 # this file:/// bit didn't work for me on windows XP 844 #$xslt_file = "\"file:///".$xslt_file."\""; 845 #$mapping_file_path = "\"file:///"; 840 846 } 841 847 else{ … … 852 858 $cmd .= "-m $mapping_file_path"; 853 859 } 854 860 855 861 open(*XMLWRITER, $cmd) 856 862 or die "can't open pipe to xslt: $!";
Note:
See TracChangeset
for help on using the changeset viewer.