Help for this page

Select Code to Download


  1. or download this
     
sub read_database {
    #my ($dir) = @_;
...
    print "OK\n" if ($VERBOSE);
    return $sitedb;
}
  2. or download this
    
$VAR1 = {
...
                              }
                     }
        };
  3. or download this
        foreach my $site_name (keys %$sitedb) {
    print "Checking $site_name ... \n";
...
        print "Job ID: @jobid\n";
    }
    }