Return to conv.pm CVS log

Up to [local] / wpscripts / elist

Annotation of wpscripts/elist/conv.pm, Revision 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);