wpscripts/zlist/zlist - diff

Return to zlist CVS log

Up to [local] / wpscripts / zlist

version 1.2, 2011/07/19 16:12:10

version 1.3, 2011/07/19 16:49:24

Line 136

}

while( index($path[$i], ' ', 0) != -1 );

$searchpath = substr($path[$i], 23);

# remove first 13 symbols in SMB path (\\fileserver\)

$searchpath = substr($path[$i], 13);

# hardcoded

$path[$i] = substr($path[$i], 30) if ($type_file == 0);

# $path[$i] = substr($path[$i], 30) if ($type_file == 0);

$path[$i] = substr($path[$i], 34) if ($type_file == 1);

# $path[$i] = substr($path[$i], 34) if ($type_file == 1);

$path[$i] = substr($path[$i], 34) if ($type_file == 2);

# $path[$i] = substr($path[$i], 34) if ($type_file == 2);

# make local file path

$searchpath =~ tr/\\/\//; $searchpath = '/WIDEPRINT/' . $searchpath;

$searchpath =~ tr/\\/\//;

#$searchpath = '/mnt/maket/' . $searchpath;

# # follow symlink to achieve real path

# chomp( $_ = `dirname $searchpath | xargs /usr/bin/readlink` ); chomp( $searchpath = $_ . '/' . `basename $searchpath` );