fix Port sort order for Extreme switches "1:10" format

2014-01-01 23:18:39 +00:00
parent 49b94e94ed
commit 6493b276bf
3 changed files with 19 additions and 1 deletions
--- a/Netdisco/lib/App/Netdisco/Util/Web.pm
+++ b/Netdisco/lib/App/Netdisco/Util/Web.pm
@@ -36,7 +36,7 @@ sub sort_port {

    my $numbers        = qr{^(\d+)$};
    my $numeric        = qr{^([\d\.]+)$};
-    my $dotted_numeric = qr{^(\d+)\.(\d+)$};
+    my $dotted_numeric = qr{^(\d+)[:.](\d+)$};
    my $letter_number  = qr{^([a-zA-Z]+)(\d+)$};
    my $wordcharword   = qr{^([^:\/.]+)[-\ :\/\.]+([^:\/.0-9]+)(\d+)?$}; #port-channel45
    my $netgear        = qr{^Slot: (\d+) Port: (\d+) }; # "Slot: 0 Port: 15 Gigabit - Level"