[BACK]Return to elist.pl CVS log [TXT][DIR] Up to [local] / wpscripts / elist

File: [local] / wpscripts / elist / elist.pl (download)

Revision 1.1, Fri Jun 3 09:28:47 2011 UTC (11 years, 4 months ago) by yason
Branch point for: MAIN

Initial revision

#!/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();