#!/usr/bin/perl
use Term::ANSIColor qw(:constants);
use dbops;
use conv;
#use warnings;
#use strict;
my $i;
my @OrderNO;
my @win_path;
my @setDate;
my @ReadyDate;
my $OrderNO_ref;
my $win_path_ref;
my $setDate_ref;
my $ReadyDate_ref;
$| = 1;
dbops::db_connect();
dbops::db_select();
# no bulk database i/o
($OrderNO_ref, $win_path_ref, $setDate_ref, $ReadyDate_ref) = dbops::db_fetch($dbops::EPD_ZAYAVKA_T, 1);
@OrderNO = @$OrderNO_ref;
@win_path = @$win_path_ref;
@setDate = @$setDate_ref;
@ReadyDate = @$ReadyDate_ref;
print BOLD WHITE ON_YELLOW "Готовые, но НЕ забэкапленные EPD-заявки " . RESET . "($#OrderNO):\n";
for ($i = 0; $i < scalar(@OrderNO) - 1; $i++)
{
$win_path[$i] = conv::to_local($win_path[$i]);
print "$OrderNO[$i]\tПуть: $win_path[$i] Отпечатано: $ReadyDate[$i]\n";
}
print "\n";
($OrderNO_ref, $win_path_ref, $setDate_ref, $ReadyDate_ref) = dbops::db_fetch($dbops::EPD_PROBA_T, 1);
@OrderNO = @$OrderNO_ref;
@win_path = @$win_path_ref;
@setDate = @$setDate_ref;
@ReadyDate = @$ReadyDate_ref;
print BOLD WHITE ON_YELLOW "Готовые, но НЕ забекапленные EPD-цветопробы " . RESET . "($#OrderNO):\n";
for ($i = 0; $i < scalar(@OrderNO) - 1; $i++)
{
$win_path[$i] = conv::to_local($win_path[$i]);
print "$OrderNO[$i]\tПуть: $win_path[$i] Отпечатано: $ReadyDate[$i]\n";
}
print "\n";
print CYAN "Все остальные напечатанные файлы либо на DVD либо в /usr/backup/spool_epd_zayavki, /usr/backup/spool_epd_proba" . RESET . "\n";
dbops::db_disconnect();