<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Script to find untagged Vlan and what port it's on. in ExtremeCloud IQ- Site Engine Management Center</title>
    <link>https://community.extremenetworks.com/t5/extremecloud-iq-site-engine/script-to-find-untagged-vlan-and-what-port-it-s-on/m-p/42645#M5513</link>
    <description>Hi peeps&lt;BR /&gt;
&lt;BR /&gt;
 I was given this script by the kind guys at Extreme, but i now want to modify it to find untagged Vlans and which port they are on so i can feed it into a limit-learning command.&lt;BR /&gt;
&lt;BR /&gt;
My scripting knowledge is very basic so was wondering if there is any scripty guys out there that could give me a few pointers.&lt;BR /&gt;
&lt;BR /&gt;
#This script updates the interval on eljrp-client sessions&lt;BR /&gt;
# set the variable below&lt;BR /&gt;
#This only works on EXOS 16.1 forward&lt;BR /&gt;
set var int 3&lt;BR /&gt;
disable clip&lt;BR /&gt;
show elrp&lt;BR /&gt;
set var CLI.OUT 0&lt;BR /&gt;
show elrp &lt;BR /&gt;
set var s $TCL(split ${CLI.OUT} "\n")&lt;BR /&gt;
set var i $TCL(lsearch $s *----*)&lt;BR /&gt;
set var i ($i + 1)&lt;BR /&gt;
set var e $TCL(lsearch $s *Print,*)&lt;BR /&gt;
set var e ($e - 1)&lt;BR /&gt;
while ($i &amp;lt; $e) do&lt;BR /&gt;
   set var l $TCL(lindex $s $i)&lt;BR /&gt;
   set var v $TCL(lindex $l 1)&lt;BR /&gt;
   set var p $TCL(lindex $l 2)&lt;BR /&gt;
   set var n $TCL(lindex $l 3)&lt;BR /&gt;
   set var a $TCL(lindex $l &lt;span class="lia-unicode-emoji" title=":smiling_face_with_sunglasses:"&gt;😎&lt;/span&gt;&lt;BR /&gt;
   set var d $TCL(lindex $l 9)&lt;BR /&gt;
   set var t $TCL(regexp {\-} $d)&lt;BR /&gt;
   set var t1 $TCL(regexp {L} $a)&lt;BR /&gt;
   set var t2 $TCL(regexp {T} $a)&lt;BR /&gt;
   set var t3 $TCL(regexp {E} $a)&lt;BR /&gt;
   set var t4 $TCL(regexp {I} $a)&lt;BR /&gt;
   set var t5 $TCL(expr $t1 &amp;amp;&amp;amp; $t2)&lt;BR /&gt;
   set var lt "log"&lt;BR /&gt;
   set var ie ''&lt;BR /&gt;
   if ($t2) then&lt;BR /&gt;
      set var lt "trap"&lt;BR /&gt;
   endif&lt;BR /&gt;
   if ($t5) then&lt;BR /&gt;
      set var lt "log-and-trap"&lt;BR /&gt;
   endif&lt;BR /&gt;
   if ($t3) then&lt;BR /&gt;
      set var ie "egress"&lt;BR /&gt;
   endif&lt;BR /&gt;
   if ($t4) then&lt;BR /&gt;
      set var ie "ingress"&lt;BR /&gt;
   endif&lt;BR /&gt;
   set var recmd $TCL(concat "config elrp-client periodic" $v "ports" $p "interval" $int $lt)&lt;BR /&gt;
   if (!$t) then&lt;BR /&gt;
      set var recmd $TCL(concat $recmd "disable-port" $ie)&lt;BR /&gt;
      set var t $TCL(regexp {\d+} $d)&lt;BR /&gt;
      if ($t) then&lt;BR /&gt;
         set var d $TCL(concat "duration" $d)&lt;BR /&gt;
      endif&lt;BR /&gt;
      set var recmd $TCL(concat $recmd $d)&lt;BR /&gt;
   endif&lt;BR /&gt;
   unconfig elrp $v&lt;BR /&gt;
   $recmd&lt;BR /&gt;
   set var i ($i + 1)&lt;BR /&gt;
endwhile&lt;BR /&gt;
&lt;BR /&gt;
Any pointers would be gratelly appreciated.</description>
    <pubDate>Mon, 18 Apr 2016 19:30:00 GMT</pubDate>
    <dc:creator>Justsomebodi</dc:creator>
    <dc:date>2016-04-18T19:30:00Z</dc:date>
    <item>
      <title>Script to find untagged Vlan and what port it's on.</title>
      <link>https://community.extremenetworks.com/t5/extremecloud-iq-site-engine/script-to-find-untagged-vlan-and-what-port-it-s-on/m-p/42645#M5513</link>
      <description>Hi peeps&lt;BR /&gt;
&lt;BR /&gt;
 I was given this script by the kind guys at Extreme, but i now want to modify it to find untagged Vlans and which port they are on so i can feed it into a limit-learning command.&lt;BR /&gt;
&lt;BR /&gt;
My scripting knowledge is very basic so was wondering if there is any scripty guys out there that could give me a few pointers.&lt;BR /&gt;
&lt;BR /&gt;
#This script updates the interval on eljrp-client sessions&lt;BR /&gt;
# set the variable below&lt;BR /&gt;
#This only works on EXOS 16.1 forward&lt;BR /&gt;
set var int 3&lt;BR /&gt;
disable clip&lt;BR /&gt;
show elrp&lt;BR /&gt;
set var CLI.OUT 0&lt;BR /&gt;
show elrp &lt;BR /&gt;
set var s $TCL(split ${CLI.OUT} "\n")&lt;BR /&gt;
set var i $TCL(lsearch $s *----*)&lt;BR /&gt;
set var i ($i + 1)&lt;BR /&gt;
set var e $TCL(lsearch $s *Print,*)&lt;BR /&gt;
set var e ($e - 1)&lt;BR /&gt;
while ($i &amp;lt; $e) do&lt;BR /&gt;
   set var l $TCL(lindex $s $i)&lt;BR /&gt;
   set var v $TCL(lindex $l 1)&lt;BR /&gt;
   set var p $TCL(lindex $l 2)&lt;BR /&gt;
   set var n $TCL(lindex $l 3)&lt;BR /&gt;
   set var a $TCL(lindex $l &lt;span class="lia-unicode-emoji" title=":smiling_face_with_sunglasses:"&gt;😎&lt;/span&gt;&lt;BR /&gt;
   set var d $TCL(lindex $l 9)&lt;BR /&gt;
   set var t $TCL(regexp {\-} $d)&lt;BR /&gt;
   set var t1 $TCL(regexp {L} $a)&lt;BR /&gt;
   set var t2 $TCL(regexp {T} $a)&lt;BR /&gt;
   set var t3 $TCL(regexp {E} $a)&lt;BR /&gt;
   set var t4 $TCL(regexp {I} $a)&lt;BR /&gt;
   set var t5 $TCL(expr $t1 &amp;amp;&amp;amp; $t2)&lt;BR /&gt;
   set var lt "log"&lt;BR /&gt;
   set var ie ''&lt;BR /&gt;
   if ($t2) then&lt;BR /&gt;
      set var lt "trap"&lt;BR /&gt;
   endif&lt;BR /&gt;
   if ($t5) then&lt;BR /&gt;
      set var lt "log-and-trap"&lt;BR /&gt;
   endif&lt;BR /&gt;
   if ($t3) then&lt;BR /&gt;
      set var ie "egress"&lt;BR /&gt;
   endif&lt;BR /&gt;
   if ($t4) then&lt;BR /&gt;
      set var ie "ingress"&lt;BR /&gt;
   endif&lt;BR /&gt;
   set var recmd $TCL(concat "config elrp-client periodic" $v "ports" $p "interval" $int $lt)&lt;BR /&gt;
   if (!$t) then&lt;BR /&gt;
      set var recmd $TCL(concat $recmd "disable-port" $ie)&lt;BR /&gt;
      set var t $TCL(regexp {\d+} $d)&lt;BR /&gt;
      if ($t) then&lt;BR /&gt;
         set var d $TCL(concat "duration" $d)&lt;BR /&gt;
      endif&lt;BR /&gt;
      set var recmd $TCL(concat $recmd $d)&lt;BR /&gt;
   endif&lt;BR /&gt;
   unconfig elrp $v&lt;BR /&gt;
   $recmd&lt;BR /&gt;
   set var i ($i + 1)&lt;BR /&gt;
endwhile&lt;BR /&gt;
&lt;BR /&gt;
Any pointers would be gratelly appreciated.</description>
      <pubDate>Mon, 18 Apr 2016 19:30:00 GMT</pubDate>
      <guid>https://community.extremenetworks.com/t5/extremecloud-iq-site-engine/script-to-find-untagged-vlan-and-what-port-it-s-on/m-p/42645#M5513</guid>
      <dc:creator>Justsomebodi</dc:creator>
      <dc:date>2016-04-18T19:30:00Z</dc:date>
    </item>
    <item>
      <title>RE: Script to find untagged Vlan and what port it's on.</title>
      <link>https://community.extremenetworks.com/t5/extremecloud-iq-site-engine/script-to-find-untagged-vlan-and-what-port-it-s-on/m-p/42646#M5514</link>
      <description>I know in 16.x i use grep to find what I need on most things&lt;BR /&gt;
&lt;BR /&gt;
show config vlan | grep &lt;VLAN id=""&gt;&lt;BR /&gt;
&lt;BR /&gt;
Doing the above command will show you the VLAN you are looking for and will also show you them both tagged and untagged&lt;BR /&gt;&lt;/VLAN&gt;</description>
      <pubDate>Mon, 18 Apr 2016 20:21:00 GMT</pubDate>
      <guid>https://community.extremenetworks.com/t5/extremecloud-iq-site-engine/script-to-find-untagged-vlan-and-what-port-it-s-on/m-p/42646#M5514</guid>
      <dc:creator>Joseph_Burnswor</dc:creator>
      <dc:date>2016-04-18T20:21:00Z</dc:date>
    </item>
  </channel>
</rss>

