[BACK]Return to conv.pm CVS log [TXT][DIR] Up to [local] / wpscripts / elist

File: [local] / wpscripts / elist / conv.pm (download)

Revision 1.1, Fri Jun 3 09:28:47 2011 UTC (11 years, 2 months ago) by yason
Branch point for: MAIN

Initial revision

#!/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);