22a23,24
> # Foundry Development by Cliff Albert <cliff@unilogicnetworks.net>
> # (c) 2004 Unilogic Networks B.V.
109a112,120
> 		},
>         "foundry"           =>      {
>                 "ipv4"                  =>      {
>                         "bgp"                   =>      "show ip bgp %s",
>                         "advertised-routes"     =>      "show ip bgp neighbors %s advertised-routes detail",
>                         "summary"               =>      "show ip bgp summary",
>                         "ping"                  =>      "ping %s",
>                         "trace"                 =>      "traceroute %s"
>                         }
110a122
> 
702c714
< 			$telnet->waitfor('/(ogin|name|word):.*$/');
---
> 			$telnet->waitfor('/(ogin|ame|word):.*$/');
740c752,753
< 					Errmode => "return")
---
> 					Errmode => "return",
> 					Timeout => 1)
741a755,757
> 				if ($ostypes{$FORM{router}} eq "foundry") {
> 					$telnet->put(" ");
> 				};
744c760,764
< 					$telnet->print("quit");
---
> 					if ($ostypes{$FORM{router}} eq "foundry") {
> 					  $telnet->print("exit");
> 					} else {
> 					  $telnet->print("quit");
> 					}
747a768,772
> 				if ($ostypes{$FORM{router}} eq "foundry") {
> 				if ($prematch =~ /--More--/) {
> 					next;
> 				}
> 				}
776a802,805
> 			# Foundry Neighbors
> 			s/( Local AS Number : )(\d+)/($1 . as2link($2))/e;
> 			s/^\s+(\d+\.\d+\.\d+\.\d+)(\s+)([1-9]\d+)/"  " . (bgplink($1, "neighbors+$1") . $2 . as2link($3))/e;
>