version 1.7, 2011/08/04 12:48:31 |
version 1.10, 2012/04/01 06:53:02 |
|
|
print "\n"; |
print "\n"; |
|
|
|
|
# fetch probas |
# fetch probas |
db_fetch(1); |
db_fetch(1); |
|
|
# print "****** probas ($#numcard) ******\n"; |
#print "****** probas ($#numcard) ******\n"; |
print BOLD WHITE ON_BLUE "Probas queue". RESET . " ($#numcard pcs.) :\n"; |
print BOLD WHITE ON_BLUE "Probas queue". RESET . " ($#numcard pcs.) :\n"; |
$i = 0; |
$i = 0; |
while( ($numcard[$i]) ) |
while( ($numcard[$i]) ) |
{ |
{ |
|
|
$i++; |
$i++; |
$total++; |
$total++; |
} |
} |
print "\n"; |
print "\n"; |
|
|
|
# fetch TT |
|
db_fetch(2); |
|
|
|
print BOLD WHITE ON_BLUE "TT queue". RESET . " ($#numcard pcs.) :\n"; |
|
$i = 0; |
|
while( ($numcard[$i]) ) |
|
{ |
|
print "$numcard[$i]\t[ executed $time[$i], priority=$pri[$i], file=$path[$i] (size=$size[$i]) ]\n"; |
|
$i++; |
|
$total++; |
|
} |
|
print "\n"; |
|
|
|
# fetch zayavki_jpg |
|
db_fetch(3); |
|
|
|
print BOLD WHITE ON_BLUE "zayavki_jpg queue". RESET . " ($#numcard pcs.) :\n"; |
|
$i = 0; |
|
while( ($numcard[$i]) ) |
|
{ |
|
print "$numcard[$i]\t[ executed $time[$i], priority=$pri[$i], file=$path[$i] (size=$size[$i]) ]\n"; |
|
$i++; |
|
$total++; |
|
} |
|
print "\n"; |
|
|
|
# fetch proba_jpg |
|
db_fetch(4); |
|
|
|
print BOLD WHITE ON_BLUE "proba_jpg queue". RESET . " ($#numcard pcs.) :\n"; |
|
$i = 0; |
|
while( ($numcard[$i]) ) |
|
{ |
|
print "$numcard[$i]\t[ executed $time[$i], priority=$pri[$i], file=$path[$i] (size=$size[$i]) ]\n"; |
|
$i++; |
|
$total++; |
|
} |
|
print "\n"; |
|
|
|
|
# print summary information |
# print summary information |
print BOLD WHITE . "Total: " . RESET . "$total files in queue.\n"; |
print BOLD WHITE . "Total: " . RESET . "$total files in queue.\n"; |
|
|
|
|
# remove first symbols to get only filename (i.e. \\fileserver\zayavki\ - 21 symbols) |
# remove first symbols to get only filename (i.e. \\fileserver\zayavki\ - 21 symbols) |
$path[$i] = substr($path[$i], 21) if ($type_file == 0); #zayavki |
$path[$i] = substr($path[$i], 21) if ($type_file == 0); #zayavki |
$path[$i] = substr($path[$i], 19) if ($type_file == 1); #proba |
$path[$i] = substr($path[$i], 19) if ($type_file == 1); #proba |
|
$path[$i] = substr($path[$i], 16) if ($type_file == 2); #TT |
|
$path[$i] = substr($path[$i], 25) if ($type_file == 3); #zayavki_jpg |
|
$path[$i] = substr($path[$i], 23) if ($type_file == 4); #proba_jpg |
|
|
# make local file path |
# make local file path |
$searchpath =~ tr/\\/\//; |
$searchpath =~ tr/\\/\//; |