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