diff options
Diffstat (limited to 'INF.pm')
-rw-r--r-- | INF.pm | 24 |
1 files changed, 15 insertions, 9 deletions
@@ -2,13 +2,12 @@ package INF; use INF::APC; use INF::DSRx020; use INF::ILO2; -use INF::ILO; #ilo 4 confusingly +use INF::ILO; #ilo 4 confusingly use INF::ILO5; use INF::SuperMicro; use INF::ASRock; use INF::Cyclades; - #$infs = [ # { # host => 'ms2.foo.com', @@ -35,19 +34,26 @@ sub new ($;$) { } elsif ( $inf->{inf_type} eq 'apc' ) { return INF::APC->new($inf); - } elsif ( $inf->{inf_type} eq 'supermicro' ) { + } + elsif ( $inf->{inf_type} eq 'supermicro' ) { return INF::SuperMicro->new($inf); - } elsif ( $inf->{inf_type} eq 'asrock' ) { + } + elsif ( $inf->{inf_type} eq 'asrock' ) { return INF::ASRock->new($inf); - } elsif ( $inf->{inf_type} eq 'ilo2' ) { + } + elsif ( $inf->{inf_type} eq 'ilo2' ) { return INF::ILO2->new($inf); - } elsif ( $inf->{inf_type} eq 'ilo' ) { + } + elsif ( $inf->{inf_type} eq 'ilo' ) { return INF::ILO->new($inf); - } elsif ( $inf->{inf_type} eq 'ilo4' ) { + } + elsif ( $inf->{inf_type} eq 'ilo4' ) { return INF::ILO->new($inf); - } elsif ( $inf->{inf_type} eq 'ilo5' ) { + } + elsif ( $inf->{inf_type} eq 'ilo5' ) { return INF::ILO5->new($inf); - } elsif ( $inf->{inf_type} eq 'cyclades' ) { + } + elsif ( $inf->{inf_type} eq 'cyclades' ) { return INF::Cyclades->new($inf); } else { |