/www/configs/DB2/HLBROKDB/scripts/ScriptConfig.Driver.sh /www/configs/
+DB2/HLBROKDB/config/ScriptConfig.HLBROKDB-PROD.xml prodwxbat204as1l
Remove control-Ms from config script /www/configs/DB2/HLBROKDB/config/
+ScriptConfig.HLBROKDB-PROD.xml ...
Uncataloging items in /www/configs/DB2/HLBROKDB/config/ScriptConfig.HL
+BROKDB-PROD.xml
main::awc_db2_mgmt_kick running uncatalog for dcs entries
$VAR1 = {
'db' => {
'HLBROKDB' => {
'node' => 'HLBROKDB'
}
},
'dcs' => [
{}
],
'node' => {
'HLBROKDB' => {
'server' => 'produdbhlbrokdb',
'port' => '54042'
}
},
'changeLog' => [
'Created by Praveenkumar Sampath on 2015-01-
+06 05:05:59'
]
};
Not a HASH reference at /www/was50/bin/awc_db2_mgmt.pl line 58.
/www/was50/bin/awc_db2_mgmt.pl failed: Please investigate.
47 # OUTPUT returns true/false that the specified db2 configuration f
+ile could be processed appropriately for the given action.
48 my $log_pre = whatsub();
49 my ($action,$hashref,@type_order) = @_ or (warn "$log_pre
+Invalid arguments" and return 0);
50
51 # Iterate over the configuration types listed in @type_ord
+er
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 use Data::Dumper;
56 print Dumper($hashref);
57 my $type_hash = $hashref->{$type};
+ #shortcut to smaller hash
58 foreach my $item (keys %{$type_hash}) {
59 print "$log_pre running $action for $type
+$item\n";
60 my $item_hash = $type_hash->{$item};
+ #shortcut to smaller hash
61 #Add values for type and action into the h
+ash
62 $item_hash->{'name'} = $item;
63 $item_hash->{'type'} = $type;
64 $item_hash->{'action'} = $action;
65 print Dumper($hashref);
66 #execute action for the individual configu
+ration
67 unless (db2_mgmt_cat(\%{$item_hash})) {
68 #unless (db2_mgmt_cat(\%{$type_hash})) {
69 # Return false if the action could
+ not be completed successfully.
|