wpscripts/zlist/zlist - diff

Return to zlist CVS log

Up to [local] / wpscripts / zlist

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

version 1.6, 2011/07/25 14:28:51

Line 80

# fetch probas

db_fetch(2);

db_fetch(1);

# print "****** probas ($#numcard) ******\n";

print BOLD WHITE ON_BLUE "Очередь цветопроб". RESET . " ($#numcard штук) :\n";

Line 140

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

# hardcoded

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

# remove first symbols to get only filename (i.e. \\fileserver\zayavki\ - 21 symbols)

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

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

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

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

# make local file path

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

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

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

# # follow symlink to achieve real path

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

# finally, get file size

$size[$i] = -s $searchpath;

$size[$i] = ($size[$i] > 1048576 ? int($size[$i] / 1024 / 1024) . " MB" : int($size[$i] / 1024) . " KB");