-----------                            		----------
       	|  R8  |         TFTP server      		| R9   |
       	|         |  		         		|         |
	------------				-----------
	   |				     |	
           	   |	                             		     |
                   |                                   		     |
	-----------				-------------
       	|  R10 |		IP CLOUD 	 |  R11 |
 TGN   	|         |                          		 |          |  TGN traffic dest.
	-----------				-------------

r9#sh call act vo
r9#sh call hist vo
************************************************************************************************
Expect:

In the script shown below we have had top break it down in to smaller pieces as the Linux box does not allow for a particular process to spawn more than 256 telnet sessions. (total, not at once). Also the script is not as modular as we would have liked it to be as we were having trouble with the telnet sessions there too.


ROUTERMAIN.EXPECT:

#!/bin/expect/
exec expect /data/routerpart1.expect
sleep 2
exec expect /data/routerpart2.expect
sleep 2
exec expect /data/routerpart3.expect
sleep 2
exec expect /data/routerpart4.expect
sleep 2
exec expect /data/routerpart5.expect
sleep 2
exec expect /data/routerpart6.expect

AND SO ON.................till routerpart24.expect.

ROUTERPART1.EXPECT:

here three parts cover all the codecs for a particular load level.
like part1, part2 and part3 for load 0.


#!/usr/bin/expect
set timeout 1

proc files codecname {
        #puts "am working on codec no. $codecname" 
        
	for {set filecount 1} {$filecount <= 2} {incr filecount} {
		set slpdur 20
		  switch $filecount {
			1	{
				#puts file as ref-f1.au
	set tpid [ spawn telnet 156.26.1.2 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
        			expect "#"
        		        send "callgen \r"
				expect "#"
				send "stop \r"
				expect "#"
				send "global type voice \r"
				expect "#"
			send "audio-file 1 tftp://130.10.10.100/ref-f1.au \r"
				  expect "#"
				  send "exit \r"
				  expect "#"
                          send "exit \r"
				  expect "#"
				  send "exit \r"
				  expect "Connection"
				  exec kill -9 $tpid	
				  wait
                                  
		    for {set i 1 } { $i <= 3 } { incr i } {
				  
			switch $i {
		        1 {
	set tpid [ spawn telnet 156.26.66.65 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
        			expect "#"
        		       	send "callgen \r"
				expect "#"
				send "stop \r"
				expect "#"
			        send "global type voice \r"
				expect "#"
               send "audio-file 1 tftp://130.10.10.100/ref-f11$codecname.au \r" 
				expect "#"
				send "exit \r"
				expect "#"
				send "start \r"
				expect "#"
				send "exit \r"
				expect "#"
                               	send "exit \r"
				expect "Connection"
				exec kill -9 $tpid
				wait

	set tpid [ spawn telnet 156.26.1.2 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
				expect "#"
				send "callgen \r"
				expect "#"
				send "start \r"
				sleep  $slpdur
				expect "#"
				send "stop \r"
				expect "#"
				send "exit \r"
				expect "#"
				send "exit \r"
				expect "Connection"
				exec kill -9 $tpid
 				wait
			        }	
			2  {							
		set tpid [ spawn telnet 156.26.66.65 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
        			expect "#"
        	       		send "callgen \r"
		 		expect "#"
		  		send "stop \r"
		  		expect "#"
				send "global type voice \r"
		  		expect "#"
		send "audio-file 1 tftp://130.10.10.100/ref-f12$codecname.au \r"
		  		expect "#"
		  		send "exit \r"
				expect "#"
				send "start \r"
				expect "#"
				send "exit \r"
				expect "#"
                               	send "exit \r"
				expect "Connection"
				exec kill -9 $tpid
                                wait

		set tpid [ spawn telnet 156.26.1.2 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
        			expect "#"
				send "callgen \r"
				expect "#"
				send "start \r"
				sleep $slpdur 
				expect "#"
				send "stop \r"
				expect "#"
				send "exit \r"
				expect "#"
				send "exit \r"
				expect "Connection"
				exec kill -9 $tpid
				wait
			   }
			3  {    
		set tpid [ spawn telnet 156.26.66.65 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
		  		expect "#"
        	       		send "callgen \r"
		 		expect "#"
		  		send "stop \r"
		  		expect "#"
				send "global type voice \r"
		  		expect "#"
	 send "audio-file 1 tftp://130.10.10.100/ref-f13$codecname.au \r"
				expect "#"
				send "exit \r"
				expect "#"
				send "start \r"
				expect "#"	
				send "exit \r"
				expect "#"
                               	send "exit \r"
				expect "Connection"
				exec kill -9 $tpid
				wait

		set tpid [ spawn telnet 156.26.1.2 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
        		        expect "#"
				send "callgen \r"
				expect "#"
				send "start \r"
				sleep $slpdur 
				expect "#"
				send "stop \r"
				expect "#"
				send "exit \r"
				expect "#"
				send "exit \r"
				expect "Connection"
				exec kill -9 $tpid
				wait
			   }
	              }
		}
	}
		2	{
	           		 #puts file as ref-m1.au
				  
		set tpid [ spawn telnet 156.26.1.2 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
        			expect "#"
        			expect "#"
        		        send "callgen \r"
				expect "#"
				send "stop \r"
				expect "#"
				send "global type voice \r"
				expect "#"
			send "audio-file 1 tftp://130.10.10.100/ref-m1.au \r"
			        expect "#"
				send "exit \r"
				expect "#"
                                send "exit \r"
				expect "#"
				send "exit \r"
				expect "Connection"
				exec kill -9 $tpid
				wait

				for {set i 1 } { $i <= 3 } { incr i } {
				  
			switch $i {
		        1 {
		set tpid [ spawn telnet 156.26.66.65 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
        			expect "#"
        	       		send "callgen \r"
		 		expect "#"
		  		send "stop \r"
		  		expect "#"
				send "global type voice \r"
		  		expect "#"
 	 send "audio-file 1 tftp://130.10.10.100/ref-m11$codecname.au \r" 
				expect "#"
				send "exit \r"
				expect "#"
				send "start \r"
				expect "#"	
				send "exit \r"
				expect "#"
                               	send "exit \r"
				expect "Connection"
				exec kill -9 $tpid
				wait

		set tpid [ spawn telnet 156.26.1.2 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
				expect "#"
				send "callgen \r"
				expect "#"
				send "start \r"
				sleep $slpdur
				expect "#"
				send "stop \r"
				expect "#"
				send "exit \r"
				expect "#"
			        send "exit \r"
				expect "Connection"
				exec kill -9 $tpid
				wait

			   }	
			2  {						
	set tpid [ spawn telnet 156.26.66.65 ]
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
        		        expect "#"              				  			
			expect "#"
        		    	send "callgen \r"
				expect "#"
				send "stop \r"
				expect "#"
				send "global type voice \r"
				expect "#"
	 send "audio-file 1 tftp://130.10.10.100/ref-m12$codecname.au \r" 
				expect "#"
				send "exit \r"
				expect "#"
				send "start \r"
				expect "#"	
				send "exit \r"
				expect "#"
                               	send "exit \r"
				expect "Connection"
				exec kill -9 $tpid
				wait

		set tpid [ spawn telnet 156.26.1.2 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
        			expect "#"
				send "callgen \r"
				expect "#"
				send "start \r"
				sleep $slpdur 
				expect "#"
				send "stop \r"
				expect "#"
				send "exit \r"
				expect "#"
				send "exit \r"
				expect "Connection"
				exec kill -9 $tpid
				wait

			   }
			3  {    
		set tpid [ spawn telnet 156.26.66.65 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
        			expect "#"
        		       	send "callgen \r"
				expect "#"
				send "stop \r"
				expect "#"
			        send "global type voice \r"
				expect "#"
	send "audio-file 1 tftp://130.10.10.100/ref-m13$codecname.au \r" 
				expect "#"
				send "exit \r"
				expect "#"
				send "start \r"
				expect "#"	
				send "exit \r"
				expect "#"
                               	send "exit \r"
				expect "Connection"
				exec kill -9 $tpid
				wait

		set tpid [ spawn telnet 156.26.1.2 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
        			expect "#"
				send "callgen \r"
				expect "#"
				send "start \r"
				sleep $slpdur
				expect "#"
				send "stop \r"
				expect "#"
				send "exit \r"
				expect "#"
				send "exit \r"
				expect "Connection"
				exec kill -9 $tpid
				wait
				}
			     }	
			   }
		    }				     
                 }
               }
return	     }	

# prcedure ends here	
proc codecconf load {
	
        for {set codcounter 1} {$codcounter <= 4 } {incr codcounter} {      
          switch $codcounter {
             1	{
		 #puts codec as g711alaw
		   set codecname "noloadg711a"
	set tpid [ spawn telnet 156.26.52.52 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
        			expect "#" 
		   send "conf t \r"
		   expect "#"
		   send "dial-peer voice 101 voip \r"	
		   expect "#"
                   send "codec g711alaw \r" 
		   expect "#"
		   send "end \r"
		   expect "#"
		   send "exit \r"
		   expect "Connection"
		   exec kill -9 $tpid	
		   wait	
		   	
                   #config r11 too
		 set tpid [ spawn telnet 156.26.52.53 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
        			expect "#" 
		   send "conf t \r"
		   expect "#"
		   send "dial-peer voice 101 voip \r"	
		   expect "#"
                   send "codec g711alaw \r" 
		   expect "#"
		   send "exit \r"
		   expect "#"
  	  	   send "exit \r"
		   expect "#"
                   send "wr m \r"
		   sleep 5
		   expect "#"	
		   send "exit \r"
		   expect "Connection"
		   exec kill -9 $tpid
		   wait
	
		   #call proc for file manip on r8 and r9
		   files $codecname
		 }

	     2   {
		  #puts codec as g711ulaw
		   set codecname "noloadg711u"
		 set tpid [ spawn telnet 156.26.52.52 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
        			expect "#"
		   send "conf t \r"
		   expect "#"
		   send "dial-peer voice 101 voip \r"	
		   expect "#"
                   send "codec g711ulaw \r" 
		   expect "#"
		   send "exit \r"
		   expect "#"
  	  	   send "exit \r"
		   expect "#"
                   send "wr m \r"
		   sleep 5
		   expect "#"	
		   send "exit \r"
	           expect "Connection"
		   exec kill -9 $tpid	
		   wait

                   #config r11 too
		   
		 set tpid [ spawn telnet 156.26.52.53 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
        			expect "#" 
		   send "conf t \r"
		   expect "#"
		   send "dial-peer voice 101 voip \r"	
		   expect "#"
                   send "codec g711ulaw \r" 
		   expect "#"
		   send "exit \r"
		   expect "#"
  	  	   send "exit \r"
		   expect "#"
                   send "wr m \r"
		   sleep 5
		   expect "#"
		   send "exit \r"
	           expect "Connection"
		   exec kill -9 $tpid
		   wait	

                   #call proc for file manip on r8 and r9
		   files $codecname	 	
		 }			  				

            3   {
		  #puts codec as g723ar53
		   set codecname "noloadg723ar53"
		  set tpid [ spawn telnet 156.26.52.52 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
		   expect "#"
		   send "conf t \r"
		   expect "#"
		   send "dial-peer voice 101 voip \r"	
		   expect "#"
                   send "codec g723ar53 \r" 
		   expect "#"
		   send "exit \r"
		   expect "#"
  	  	   send "exit \r"
		   expect "#"
                   send "wr m \r"
		   sleep 5
		   expect "#"
		   send "exit \r"
	           expect "Connection"
		   exec kill -9 $tpid
		   wait

		   #config r11 too
		 set tpid [ spawn telnet 156.26.52.53 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
        			expect "#" 
		   expect "#"
		   send "conf t \r"
		   expect "#"
		   send "dial-peer voice 101 voip \r"	
		   expect "#"
                   send "codec g723ar53 \r" 
		   expect "#"
		   send "exit \r"
		   expect "#"
  	  	   send "exit \r"
		   expect "#"
                   send "wr m \r"
		   sleep 5
		   expect "#"
		   send "exit \r"	
	           expect "Connection"
		   exec kill -9 $tpid
		   wait
	
                   #call proc for file manip on r8 and r9
		   files $codecname	 	
		 }

	   4     {
		  #puts codec as g723ar63
		   set codecname "noloadg723ar63"
		   set tpid [ spawn telnet 156.26.52.52 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
        			expect "#"  
		   expect "#"
		   send "conf t \r"
		   expect "#"
		   send "dial-peer voice 101 voip \r"	
		   expect "#"
                   send "codec g723ar63 \r" 
		   expect "#"
		   send "exit \r"
		   expect "#"
  	  	   send "exit \r"
		   expect "#"
                   send "wr m \r"
		   sleep 5
		   expect "#"
		   send "exit \r"
		   expect "Connection"
		   exec kill -9 $tpid	
		   wait

		   #config r11 too
		  set tpid [ spawn telnet 156.26.52.53 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
		   expect "#"
		   send "conf t \r"
		   expect "#"
		   send "dial-peer voice 101 voip \r"	
		   expect "#"
                   send "codec g723ar63 \r" 
		   expect "#"
		   send "exit \r"
		   expect "#"
  	  	   send "exit \r"
		   expect "#"
                   send "wr m \r"
		   sleep 5
		   expect "#"
		   send "exit \r"	
	           expect "Connection"
		   exec kill -9 $tpid 
		   wait
	
                   #call proc for file manip on r8 and r9
		   files $codecname 	
		 }

		}
	      }					 								    
        return
                    }  


                  #  puts "Zero Load Configuration"
		     set load "noload"
		     set tpid [ spawn telnet 156.26.26.26 ]
        			expect "Password" 
        			send "cisco\r"
        			expect ">"
        			send "en \r"
        			expect "Password"
        			send "cisco\r"
                     expect "#"
		     send "tgn \r"
		     expect "#"
         	     send "stop \r"
                     expect "#"
                     send "clear conf \r"
                     expect "#"
         	     send "quit \r"
                     expect "#"
		     send "exit \r"
	           expect "Connection"
		   exec kill -9 $tpid
		   wait
	
                     # calling procedure now to change config of
		     #	R10 and R11
		codecconf $load		

****************************************************************************************