wpscripts/zlist/zlist - diff

Return to zlist CVS log

Up to [local] / wpscripts / zlist

Diff for /wpscripts/zlist/zlist between version 1.6 and 1.7

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

version 1.7, 2011/08/04 12:48:31

Line 38

my $time2 = [gettimeofday];

print GREEN "Время отклика от базы данных: " . tv_interval($time1, $time2) . " секунд\n". RESET;

print GREEN "DB response time: " . tv_interval($time1, $time2) . " seconds\n". RESET;

if( ! -e "/var/run/ztransfer.lock")

{

print YELLOW "ztransfer сейчас не запущен\n" . RESET;

print YELLOW "ztransfer is not running\n" . RESET;

}

else

{

Line 59

print "DEBUG: $file $action\n";

print YELLOW "ztransfer выполняется [ " . ($action eq 'rar' ? "сжимается " : "копируется ") . "$file ]\n" . RESET;

print YELLOW "ztransfer is running [ " . ($action eq 'rar' ? "compressing " : "copying ") . "$file ]\n" . RESET;

}

else

{

print YELLOW "ztransfer выполняется\n" . RESET;

print YELLOW "ztransfer is running\n" . RESET;

}

# print out zayavki info

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

print BOLD WHITE ON_BLUE "Zayavki queue". RESET . " ($#numcard pcs.) :\n";

$i = 0;

while( ($numcard[$i]) )

{

print "$numcard[$i]\t[ оформлено $time[$i], приоритет=$pri[$i], файл=$path[$i] (размер=$size[$i]), счётчик передач=$tx_count[$i] ]\n";

print "$numcard[$i]\t[ executed $time[$i], priority=$pri[$i], file=$path[$i] (size=$size[$i]), transfer counter=$tx_count[$i] ]\n";

$i++;

$total++;

}

Line 83

db_fetch(1);

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

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

print BOLD WHITE ON_BLUE "Probas queue". RESET . " ($#numcard pcs.) :\n";

$i = 0;

while( ($numcard[$i]) )

{

print "$numcard[$i]\t[ оформлено $time[$i], приоритет=$pri[$i], файл=$path[$i] (размер=$size[$i]) ]\n";

print "$numcard[$i]\t[ executed $time[$i], priority=$pri[$i], file=$path[$i] (size=$size[$i]) ]\n";

$i++;

$total++;

}

Line 95

# print summary information

print BOLD WHITE . "Всего: " . RESET . "$total файлов в очереди на копирование в Заборье.\n";

print BOLD WHITE . "Total: " . RESET . "$total files in queue.\n";

# close connection

db_disconnect();

Line 154

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

# this should work fine

$size[$i] = WHITE ON_RED . "файл не найден" . RESET if (! -e $searchpath);

$size[$i] = WHITE ON_RED . "File not found" . RESET if (! -e $searchpath);

$i++;

}

CVSweb