Forum Discussion
jzhyc5_48613
Oct 01, 2013Nimbostratus
Used when troubleshootign wioth telnet in a vrd environemnt (as per SOL10467)
!/usr/bin/perl
telnetvrd: Simple perl wrapper when trying to troubleshoot using telnet and Virtual Route
Domains, (See VRD, SOL10467)
Use as you would with ping, e.g. telnet 192.168.99.1%1902 8080
It'll save going through the Hex conversion.
There are plenty of ways to improve it but its simple enough for my needs.
Easily converted to bash shell if required.
Note: If BigIP is running code pre 10.1.0, the baseStr value should be changed to:
"2610:0000:0C10:F501:0000:";
$baseStr="2620:0000:0C10:F501:0000:";
$vrd = ""; $hexvrd = ""; $ip = ""; $port = ""; $arg = "";
($ip, $vrd) = split(/%/, $ARGV[0]); $port = $ARGV[1];
$hexvrd = sprintf("%04x", $vrd); $arg = $baseStr.$hexvrd.":".$ip." ".$port;
`telnet $arg`;