version 1.2, 2011/07/19 16:12:10 |
version 1.5, 2011/07/19 20:23:44 |
|
|
} |
} |
while( index($path[$i], ' ', 0) != -1 ); |
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 |
# hardcoded |
$path[$i] = substr($path[$i], 30) if ($type_file == 0); |
# remove first symbols to get only filename (i.e. \\fileserver\zayavki\ - 20 symbols) |
$path[$i] = substr($path[$i], 34) if ($type_file == 1); |
$path[$i] = substr($path[$i], 21) if ($type_file == 0); |
$path[$i] = substr($path[$i], 34) if ($type_file == 2); |
# $path[$i] = substr($path[$i], 34) if ($type_file == 1); |
|
# $path[$i] = substr($path[$i], 34) if ($type_file == 2); |
|
|
# make local file path |
# 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` ); |
|
|
|
# finally, get file size |
# finally, get file size |
$size[$i] = -s $searchpath; |
$size[$i] = -s $searchpath; |
$size[$i] = ($size[$i] > 1048576 ? int($size[$i] / 1024 / 1024) . " MB" : int($size[$i] / 1024) . " KB"); |
$size[$i] = ($size[$i] > 1048576 ? int($size[$i] / 1024 / 1024) . " MB" : int($size[$i] / 1024) . " KB"); |