Select Code to Download

Select or download this

my $config = GlobalConfig->new;

...

# This works
if ( $config->mis_dbtype == 'db2' ) { ... }

Select or download this

     if( &readFileContents( $logFile, $ContentsLoadMsg ) == $FALSE )
     {
...
 
         return $FALSE;
     }

Select or download this

sub do_logging {
    my ($rescode, $browsecode, $summarycode) = @_;
...
    do_logging( 'E_LOADMSG_ERROR', 'Could not open "$logFile"', 'E_MIS
+LOAD_ERROR' );
    return $FALSE;
}

Select or download this

my ($bday, $bmon, $byear, $bhour, $bmin, $bsec);
     my ($eday, $emon, $eyear, $ehour, $emin, $esec);
...
         ($eyear, $emon, $eday, $ehour, $emin, $esec) =
           $finishedLine =~ /^(.){10} (\d){4}-(\d){2}-(\d)}-(\d){2}\.(
+\d){2}\.(\d){2}/;
     }

Select or download this

$finishedLine = ${ $ContentsLoadMsg }[ $ind ] . " " . ${ $ContentsLoad
+Msg }[ $ind + 1 ];

Select or download this

$finishedLine = join ' ', @{$ContentsLoadMsg}[ $ind, $ind + 1 ];