diff options
Diffstat (limited to 'bin/francid.in')
-rw-r--r-- | bin/francid.in | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/bin/francid.in b/bin/francid.in index e1fd284..cc3acd6 100644 --- a/bin/francid.in +++ b/bin/francid.in @@ -1,6 +1,6 @@ #! @PERLV_PATH@ ## -## $Id: francid.in,v 1.26 2004/01/11 03:49:13 heas Exp $ +## $Id: francid.in,v 1.28 2004/03/03 00:33:48 heas Exp $ ## ## Copyright (C) 1997-2004 by Terrapin Communications, Inc. ## All rights reserved. @@ -154,7 +154,7 @@ sub ShowVersion { s/^\s*(HW|SW)/$1/; s/^\s*(Compiled on)/SW: $1/; #s/^(HW.*)/$1\n/; - if (/^SL (\d)/) { + if (/^SL (\d+)/) { $slot = "Slot $1"; s/^SL \d+/$slot/; } @@ -301,6 +301,23 @@ sub WriteTerm { next; } + # reorder listing of ports in a vlan + if (/^ (?:un)?tagged ethe/) { + chomp; + s/^\s+//; + s/\s+$//; + + my @list = split /\s+ethe\s+/, $_; + my $tagtype = shift @list; + + while (@list) { + ProcessHistory("","","", + " $tagtype ethe " . (shift @list) . "\n"); + } + next; + } + + ProcessHistory("","","","$_"); # end of config if (/^end$/) { |