mirror of
				https://github.com/Telecominfraproject/wlan-lanforge-scripts.git
				synced 2025-11-03 20:27:54 +00:00 
			
		
		
		
	These scripts will now be publicly available in a git repo for easier shared development and change tracking.
		
			
				
	
	
		
			10 lines
		
	
	
		
			126 B
		
	
	
	
		
			Perl
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			10 lines
		
	
	
		
			126 B
		
	
	
	
		
			Perl
		
	
	
		
			Executable File
		
	
	
	
	
#!/usr/bin/perl
 | 
						|
 | 
						|
my $i = 0;
 | 
						|
while (1) {
 | 
						|
	`/home/lanforge/telnet.expect`;
 | 
						|
	print "Completed telnet connection $i\n";
 | 
						|
	$i++;
 | 
						|
}
 | 
						|
 |