Help for this page

Select Code to Download


  1. or download this
    sub get_rc_site_information {
    for my $instance ( keys %site_information ) {
        print $instance;
        for my $schema ( keys %{ $site_information->{ $instance } } ) 
+{
            print $schema;
            my $channel_query = qq(select
  2. or download this
    Instance1Instance2
$VAR1 = {
          'Instance1' => {
...
                         'schema2' => {
                                      'tomcat' => 'aus02tc087'