#!/usr/bin/perl

package conv;

sub to_local($)
{
    my $path = shift;
    my $searchpath;

    # dirty hack to escape database' strange behaviors
    if ($path eq '') { return(0); }

    # truncate spaces
    while( index($path, ' ', 0) != -1 )
    {
	chop($path);
    }

    $searchpath = substr($path, 23);

    # make local file path
    $searchpath =~ tr/\\/\//; $searchpath = '/WIDEPRINT/' . $searchpath;

    return($searchpath);
}


sub basename($)
{
    # extract file name
    my $path = shift;

    my $path = `basename $path`;
    chomp($path);

    return($path);
}
	

sub dirname($)
{
    # extract file directory
    my $path = shift;

    my $path = `dirname $path`;
    chomp($path);

    return($path);
}

return(1);