[BACK]Return to zlist CVS log [TXT][DIR] Up to [local] / wpscripts / zlist

Diff for /wpscripts/zlist/zlist between version 1.5 and 1.8

version 1.5, 2011/07/19 20:23:44 version 1.8, 2011/12/21 09:33:05
Line 38 
Line 38 
   
 my $time2 = [gettimeofday];  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")  if( ! -e "/var/run/ztransfer.lock")
 {  {
         print YELLOW "ztransfer сейчас не запущен\n" . RESET;          print YELLOW "ztransfer is not running\n" . RESET;
 }  }
 else  else
 {  {
Line 59 
Line 59 
   
             print "DEBUG: $file $action\n";              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          else
         {          {
             print YELLOW "ztransfer выполняется\n" . RESET;              print YELLOW "ztransfer is running\n" . RESET;
         }          }
 }  }
   
 # print out zayavki info  # 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;      $i = 0;
     while( ($numcard[$i]) )      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++;          $i++;
         $total++;          $total++;
     }      }
 print "\n";  print "\n";
   
   
         # fetch probas  # fetch probas
         db_fetch(2);  db_fetch(1);
   
 #       print "****** probas ($#numcard) ******\n";  #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;          $i = 0;
         while( ($numcard[$i]) )          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++;              $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 jpeg
   db_fetch(3);
   
   print BOLD WHITE ON_BLUE "jpeg 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 . "Всего: " . RESET . "$total файлов в очереди на копирование в Заборье.\n";  print BOLD WHITE . "Total: " . RESET . "$total files in queue.\n";
   
 # close connection  # close connection
 db_disconnect();  db_disconnect();
Line 140 
Line 166 
         $searchpath = substr($path[$i], 13);          $searchpath = substr($path[$i], 13);
   
         # hardcoded          # hardcoded
         # remove first symbols to get only filename (i.e. \\fileserver\zayavki\ - 20 symbols)          # remove first symbols to get only filename (i.e. \\fileserver\zayavki\ - 21 symbols)
         $path[$i] = substr($path[$i], 21) if ($type_file == 0);          $path[$i] = substr($path[$i], 21) if ($type_file == 0); #zayavki
 #       $path[$i] = substr($path[$i], 34) if ($type_file == 1);          $path[$i] = substr($path[$i], 19) if ($type_file == 1); #proba
 #       $path[$i] = substr($path[$i], 34) if ($type_file == 2);          $path[$i] = substr($path[$i], 16) if ($type_file == 2); #TT
           $path[$i] = substr($path[$i], 18) if ($type_file == 2); #jpeg
   
             # make local file path              # make local file path
             $searchpath =~ tr/\\/\//;              $searchpath =~ tr/\\/\//;
Line 155 
Line 182 
             $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");
   
             # this should work fine              # 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++;      $i++;
     }      }
   
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.8
CVSweb