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