Return to conv.pm CVS log | Up to [local] / wpscripts / elist |
1.1 yason 1: #!/usr/bin/perl 2: 3: package conv; 4: 5: sub to_local($) 6: { 7: my $path = shift; 8: my $searchpath; 9: 10: # truncate spaces 11: while( index($path, ' ', 0) != -1 ) 12: { 13: chop($path); 14: } 15: 16: $searchpath = substr($path, 23); 17: 18: # make local file path 19: $searchpath =~ tr/\\/\//; $searchpath = '/WIDEPRINT/' . $searchpath; 20: 21: return($searchpath); 22: } 23: 24: 25: return(1);