Return to elist.pl CVS log

Up to [local] / wpscripts / elist

Annotation of wpscripts/elist/elist.pl, Revision 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();