File: [local] / wpscripts / elist / elist.pl (download)
Revision 1.1.1.1 (vendor branch), Fri Jun 3 09:28:47 2011 UTC (12 years, 11 months ago) by yason
Branch: yason, MAIN
CVS Tags: import, HEAD Changes since 1.1: +0 -0 lines
import scripts for fullprint
|
#!/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();