Return to elist.pl CVS log

Up to [local] / wpscripts / elist

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();