[aix-pm-cvs] modules/san/emc/EMC Config.pm,1.33,1.34
Status: Alpha
Brought to you by:
gonter
|
From: Gerhard G. <go...@us...> - 2009-09-05 00:59:03
|
Update of /cvsroot/aix-pm/modules/san/emc/EMC In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv22666/modules/san/emc/EMC Modified Files: Config.pm Log Message: propagate SG info as well as project label from MetaLUN to component LUNsmodules/san/emc/EMC/Config.pm Index: Config.pm =================================================================== RCS file: /cvsroot/aix-pm/modules/san/emc/EMC/Config.pm,v retrieving revision 1.33 retrieving revision 1.34 diff -C2 -d -r1.33 -r1.34 *** Config.pm 26 Aug 2009 15:18:25 -0000 1.33 --- Config.pm 5 Sep 2009 00:58:54 -0000 1.34 *************** *** 730,734 **** my $project= $sg_p->{'project'}; - next unless ($project); my @alus= keys %{$sg_p->{'alu_hlu'}}; --- 730,733 ---- *************** *** 738,743 **** $l->{'Storage_Group'}= $sg; my ($lun, $rg_id, $prv)= $l->get ('LUN', 'RAIDGroup ID', 'Is Private'); ! ## print __LINE__, " ZX4 sg=$sg alu=$alu rg_id=$rg_id prv=$prv project=$project\n"; ! $l->{'project'}= $project; if ($prv eq 'Meta') --- 737,742 ---- $l->{'Storage_Group'}= $sg; my ($lun, $rg_id, $prv)= $l->get ('LUN', 'RAIDGroup ID', 'Is Private'); ! ## print __LINE__, " ZX4 sg='$sg' alu=$alu rg_id=$rg_id prv='$prv' project='$project'\n"; ! $l->{'project'}= $project if ($project); if ($prv eq 'Meta') *************** *** 755,759 **** ## &main::print_refs (*STDOUT, 'metalun', $ml); ## my ($cp_ln, $cp_rg_id, $cp_prv)= $l->get ('LUN', 'RAIDGroup ID', 'Is Private'); not really relevant ! $cp_l->{'project'}= $project; } } --- 754,759 ---- ## &main::print_refs (*STDOUT, 'metalun', $ml); ## my ($cp_ln, $cp_rg_id, $cp_prv)= $l->get ('LUN', 'RAIDGroup ID', 'Is Private'); not really relevant ! $cp_l->{'project'}= $project if ($project); ! $cp_l->{'Storage_Group'}= $sg; } } |