Return to conv.pm CVS log

Up to [local] / wpscripts / elist

Annotation of wpscripts/elist/conv.pm, Revision 1.1.1.1

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);