if ( grep /^$func$/, @domain_manager ) { use VMA::DomainManager qw\createDomainHome removeDomainHome\; # # Set varibles from input # my $facility = "domainmgr"; my $cachedir = $argarray[3]; my $uid = $argarray[4]; my $gid = $argarray[5]; my $home = $argarray[6]; my $host = $argarray[7]; my $system = $argarray[8]; if ( $func eq 1001 ) { createDomainHome($home,$host,$uid,$gid,$system,$is_logging,$logdir,$facility); } elsif ( $func eq 1002 ) { removeDomainHome($home,$host,$cachedir,$is_logging,$logdir,$facility); } }