Select Code to Download

Select or download this

#! /usr/bin/perl -w
use strict;
...
        }
    }
} # while 1

Select or download this

#! /usr/bin/perl -w
use strict;
...
    close PIPE;
    sleep 1;
}

Select or download this

    open FH, "<$config->{'pipe'}";
    my $data = <FH>;
    close FH;
    Log( { logfile => $log_file, text => 'trace: START: '. ( $data || 
+'$data no val' ) }) if TRACE;

Select or download this
```
if ( $has_files ) {

...

}
```

Select or download this

08:40:20.96244  PREOPEN /other/hosting/LIVE/127/out/3_304_127_21
08:40:20.96460 POSTOPEN /other/hosting/LIVE/127/out/3_304_127_21
...
08:53:38.319712 POSTCLOS /other/hosting/LIVE/127/out/3_304_127_21
08:53:38.319834 S: 08:40:19 H: 1 A: 08:53:32 M: 08:53:36 C: 08:53:36 S
+IG: 0 /other/hosting/LIVE/127/out/3_304_127_21
08:53:40.359719 S: 08:53:36 H: 0 A: 08:53:38 M: 08:53:38 C: 08:53:38 S
+IG: 0 /other/hosting/LIVE/127/out/3_304_127_21

Select or download this

080411 07:40:17.514797 [8625] trace: START: C,/other/hosting/toxml/LIV
+E/273/out/1_128_1,1ROSE
080411 07:40:22.248450 [8625] trace: START: C,/other/hosting/LIVE/251/
+out/3_128_251_3,1ROSE