diff options
Diffstat (limited to 'INF/DSRx020.pm')
| -rw-r--r-- | INF/DSRx020.pm | 54 |
1 files changed, 25 insertions, 29 deletions
diff --git a/INF/DSRx020.pm b/INF/DSRx020.pm index c68274c..94396ed 100644 --- a/INF/DSRx020.pm +++ b/INF/DSRx020.pm @@ -399,27 +399,28 @@ sub port_name_set($$$) { if ( $port =~ /P(\d+)\.(\d+)/ ) { return $self->spc_set_name( $1, $2, $name ); } - elsif ($port =~ /K(\d+)/ ) { - my $index= $1; - my $res = $self->do_post( - { file => 'view-units-by-target-devices' }, - [ - file => 'overview-dsr', - saveParms => 'overview-dsr', - name => '', - index => $index, - targetname => $name, - action => 'SAVE', - ] - ); + elsif ( $port =~ /K(\d+)/ ) { + my $index = $1; + my $res = $self->do_post( + { file => 'view-units-by-target-devices' }, + [ + file => 'overview-dsr', + saveParms => 'overview-dsr', + name => '', + index => $index, + targetname => $name, + action => 'SAVE', + ] + ); - #oid => '141057', + #oid => '141057', - $self->flush(); + $self->flush(); - return undef unless $res->is_success; - return "Success"; - } else { + return undef unless $res->is_success; + return "Success"; + } + else { return undef; } } @@ -463,8 +464,7 @@ sub port_count($) { return scalar( @{ $self->{ports} } ); } -sub port_get_topology($$) -{ +sub port_get_topology($$) { my ( $self, $port ) = @_; return unless $port =~ /K(\d+)/; @@ -492,23 +492,19 @@ sub port_get_topology($$) return undef unless defined $args; - my $ret = undef ; + my $ret = undef; for my $arg (@$args) { - - next unless $arg =~ /^path=a:[^,]*,p:([0-9]+),c:([0-9]+),/; - print $arg," -> ", $1, " ",$2 ,"\n"; - return [$1,$2]; + next unless $arg =~ /^path=a:[^,]*,p:([0-9]+),c:([0-9]+),/; + print $arg, " -> ", $1, " ", $2, "\n"; + return [ $1, $2 ]; } - - return undef; + return undef; } - - sub view($$) { my ( $self, $port ) = @_; |