Help for this page

Select Code to Download


  1. or download this
    my $match = 'Do you want to unpack these archive files for processing?
+ [Y/N]: ';

...
    #unless ($exp->expect(5,"Do you want to process these health summa
+ry files? [Y/N]: ")) {};
    #print $exp "$response1\r";
    $exp->soft_close();
  2. or download this
    vtools@txslws1d03:/opt/vtools/Scripts$ ./Fullhealthprep.pl 
Spawned '/usr/bin/python /opt/vtools/Scripts/reportconsolidator.py /op
+t/vtools/Healthcheck/01_02_2014 > /opt/vtools/HealthReport.out'
...
        Expect::hard_close('Expect=GLOB(0x9f695bc)') called at /usr/lo
+cal/share/perl/5.14.2/Expect.pm line 1621
        Expect::DESTROY('Expect=GLOB(0x9f695bc)') called at ./Fullheal
+thprep.pl line 0
        eval {...} called at ./Fullhealthprep.pl line 0