#!/usr/local/bin/expect --
set timeout -1
if {$argc <6} {
        puts "Usage: stp_priority <switch_ip> <ts_port> <stp_vlan> <port1> <port2>"
        } else {
                puts "Wrong number of arguments passed"
                exit
                }

        set switch_ip [lindex $argv 0]
        set ts_port [lindex $argv 1]
        set stp_vlan [lindex $argv 2]
        set port1 [lindex $argv 3]
        set port2 [lindex $argv 4]


proc gokcell { komut sonuc } {
 set i 0
while { $i == 0} {
   send -- $komut
   expect { 
         $sonuc { set i 1
                }
        -re "Error*" {          
                set result $expect_out(buffer)
                puts "THE LINE IS $result"
                puts "THE COMMAND is $komut"
                gokcell $komut $sonuc
                exp_continue
        }
 } 
}
}

        if {$ts_port != ""} {
                spawn telnet $switch_ip $ts_port
                } else {
                spawn telnet $switch_ip
                }       
        expect_after {
                timeout {puts "TIMEOUT"; continue}
                }
        gokcell "iscli\r"
        set timeout 20
        expect_after {
                timeout {puts "TIMEOUT"; continue}
                }
        gokcell "admin\r"
        expect {
         "):" {
                exp_gokcell "is\r"
              }
         ">"  {
                exp_gokcell "enable\r"
              }
         "#"  {
                exp_gokcell "conf t\r"
              }
          }
        expect "#"
        gokcell "terminal-length 0\r"
        expect "#"
        while {1} {
                expect "#"
                gokcell "sh mp cpu\r"
                sleep 30
                expect "#"
                gokcell "sh mp memory\r"
                sleep 30
                expect "#"
                gokcell "clear counters\r"
                expect -re ".*#"
                sleep 10
                expect "#"
                gokcell "\r"
                expect "#"
                gokcell "show interface port $port1 interface-rate\r"
                slsleep 30
                expect "#"
                set  buff $expect_out(buffer)
                puts "Buff: $buff"
                regexp {(UcastPkts:[\t ]+([0-9]+)[\t ]+([0-9]+))} $buff match
                puts "$match"
                gokcell "\r"
#               expect "#"
#               gokcell "no spanning-tree stp $stp_vlan enable\r"
#               sleep 30
#               expect "#"
#               gokcell "sh spanning-tree stp $stp_vlan information\r"
#               sleep 30
#               expect "#"
#               gokcell "spanning-tree stp $stp_vlan enable\r"
#               sleep 30
#               expect "#"
#               gokcell "sh spanning-tree stp $stp_vlan information\r"
#               sleep 30
        #       expect "#"
        #       gokcell "no ip igmp enable\r"
        #       sleep 30
        #       expect "#"
        #       gokcell "ip igmp enable\r"
        #       sleep 30
        #       expect "#"
        #       gokcell "sh ip igmp groups\r"
        #       sleep 30
                expect "#"
                gokcell "spanning-tree stp $stp_vlan bridge priority 64440\r"
                sleep 30
                expect "#"
                gokcell "sh spanning-tree stp $stp_vlan information\r"
                sleep 30
                expect "#"
                gokcell "spanning-tree stp $stp_vlan bridge priority 4096\r"
                sleep 30
                expect "#"
                gokcell "sh spanning-tree stp $stp_vlan information\r"
                sleep 30
                expect "#"
                gokcell "clear counters\r"
                expect -re ".*#"
                gokcell "\r"
                expect "#"
                gokcell "sh interface port $port1 interface-rate\r"
                sleep 30
                expect "#"
                set buff $expect_out(buffer)
                puts "Buff: $buff"
                regexp {(UcastPkts:[\t ]+([0-9]+)[\t ]+([0-9]+))} $buff match
                puts "$match"
                gokcell "\r"
                sleep 20
                expect eof
                }
sleep 5
gokcell "exit\r"
expect "(y/n)?"
gokcell "y\r"
sleep 5
close
wait