51 # Iterate over the configuration types listed in @type_order 52 foreach my $type (@type_order) { 53 print "$log_pre running $action for $type entries\n"; 54 # Iterate over all items of that type 55 my $type_hash = $hashref->{$type}; #shortcut to smaller hash 56 foreach my $item (keys %{$type_hash}) { 57 print "$log_pre running $action for $type $item\n"; 58 my $item_hash = $type_hash->{$item}; #shortcut to smaller hash 59 #Add values for type and action into the hash 60 $item_hash->{'name'} = $item; 61 $item_hash->{'type'} = $type; 62 $item_hash->{'action'} = $action; 63 #print Dumper($item_hash); 64 #execute action for the individual configuration 65 unless (db2_mgmt_cat(\%{$item_hash})) { 66 #unless (db2_mgmt_cat(\%{$type_hash})) { 67 # Return false if the action could not be completed successfully.