Annotation of wpscripts/elist/elist.pl, Revision 1.1.1.1
1.1 yason 1: #!/usr/bin/perl
2:
3: use Term::ANSIColor qw(:constants);
4: use dbops;
5: use conv;
6: #use warnings;
7: #use strict;
8:
9: my $i;
10:
11: my @OrderNO;
12: my @win_path;
13: my @setDate;
14: my @ReadyDate;
15:
16: my $OrderNO_ref;
17: my $win_path_ref;
18: my $setDate_ref;
19: my $ReadyDate_ref;
20:
21:
22: $| = 1;
23:
24:
25: dbops::db_connect();
26:
27: dbops::db_select();
28:
29: # no bulk database i/o
30: ($OrderNO_ref, $win_path_ref, $setDate_ref, $ReadyDate_ref) = dbops::db_fetch($dbops::EPD_ZAYAVKA_T, 1);
31: @OrderNO = @$OrderNO_ref;
32: @win_path = @$win_path_ref;
33: @setDate = @$setDate_ref;
34: @ReadyDate = @$ReadyDate_ref;
35:
36: print BOLD WHITE ON_YELLOW "Готовые, но НЕ забэкапленные EPD-заявки " . RESET . "($#OrderNO):\n";
37:
38: for ($i = 0; $i < scalar(@OrderNO) - 1; $i++)
39: {
40: $win_path[$i] = conv::to_local($win_path[$i]);
41: print "$OrderNO[$i]\tПуть: $win_path[$i] Отпечатано: $ReadyDate[$i]\n";
42: }
43:
44: print "\n";
45:
46: ($OrderNO_ref, $win_path_ref, $setDate_ref, $ReadyDate_ref) = dbops::db_fetch($dbops::EPD_PROBA_T, 1);
47: @OrderNO = @$OrderNO_ref;
48: @win_path = @$win_path_ref;
49: @setDate = @$setDate_ref;
50: @ReadyDate = @$ReadyDate_ref;
51:
52: print BOLD WHITE ON_YELLOW "Готовые, но НЕ забекапленные EPD-цветопробы " . RESET . "($#OrderNO):\n";
53:
54: for ($i = 0; $i < scalar(@OrderNO) - 1; $i++)
55: {
56: $win_path[$i] = conv::to_local($win_path[$i]);
57: print "$OrderNO[$i]\tПуть: $win_path[$i] Отпечатано: $ReadyDate[$i]\n";
58: }
59:
60: print "\n";
61:
62: print CYAN "Все остальные напечатанные файлы либо на DVD либо в /usr/backup/spool_epd_zayavki, /usr/backup/spool_epd_proba" . RESET . "\n";
63:
64: dbops::db_disconnect();
CVSweb