Changeset 20001 for gsdl/trunk/perllib/plugins/BaseMediaConverter.pm
- Timestamp:
- 2009-07-17T10:15:31+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/BaseMediaConverter.pm
r18555 r20001 98 98 99 99 my $collect_dir = $ENV{'GSDLCOLLECTDIR'}; 100 $collect_dir =~ s/\\/\//g; # Work in Unix style world 101 102 # if dirname is in collections tmp area, remove collect_dir prefix 103 $dirname =~ s/^$collect_dir//; 104 105 if ($ENV{'GSDLOS'} eq "windows") { 106 # if dirname starts with Windows drive letter, strip it off 107 $dirname =~ s/^[a-z]:\///i; 108 } 109 100 110 my $base_output_dir = &util::filename_cat($collect_dir,"cached",$dirname); 101 111 … … 117 127 118 128 $self->{'cached_dir'} = $output_dir; 119 $self->{'cached_file_root'} = $file_root; 120 129 $self->{'cached_file_root'} = $file_root; 121 130 } 122 131
Note:
See TracChangeset
for help on using the changeset viewer.