Return to conv.pm CVS log | Up to [local] / wpscripts / elist |
File: [local] / wpscripts / elist / conv.pm (download)
Revision 1.1.1.1 (vendor branch), Fri Jun 3 09:28:47 2011 UTC (13 years, 3 months ago) by yason
import scripts for fullprint |
#!/usr/bin/perl package conv; sub to_local($) { my $path = shift; my $searchpath; # truncate spaces while( index($path, ' ', 0) != -1 ) { chop($path); } $searchpath = substr($path, 23); # make local file path $searchpath =~ tr/\\/\//; $searchpath = '/WIDEPRINT/' . $searchpath; return($searchpath); } return(1);