===================================================================
RCS file: /cvs/wpscripts/zlist/zlist,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- wpscripts/zlist/zlist	2011/07/19 16:12:10	1.2
+++ wpscripts/zlist/zlist	2011/07/19 16:49:24	1.3
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: zlist,v 1.2 2011/07/19 16:12:10 yason Exp $
+# $Id: zlist,v 1.3 2011/07/19 16:49:24 yason Exp $
 use DBI;
 use Term::ANSIColor qw(:constants);
 use Time::HiRes qw(gettimeofday tv_interval);
@@ -136,15 +136,19 @@
 	} 
 	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], 34) if ($type_file == 1);
-	$path[$i] = substr($path[$i], 34) if ($type_file == 2);
+#	$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 == 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` );