nxos.pm: add show interface transceiver

rancid/CHANGES

@@ -1,4 +1,6 @@
 3.99.99
+	nxos.pm: add show interface transceiver
+
 	mrv.pm: add show inventory
 
 	ios.pm: filter new "% free" string from dir slot in new ASA code

rancid/etc/rancid.types.base

@@ -208,6 +208,7 @@ cisco-nx;command;nxos::ShowModule;show module xbar
 #cisco-nx;command;nxos::ShowModule;show module X;add, but wait for show all
 #cisco-nx;command;nxos::ShowModule;show module X epld;add, but wait for show all
 cisco-nx;command;nxos::ShowInventory;show inventory
+cisco-nx;command;nxos::ShowIntTransceiver;show interface transceiver
 cisco-nx;command;nxos::ShowVTP;show vtp status;drop?
 cisco-nx;command;nxos::ShowVLAN;show vlan
 cisco-nx;command;nxos::ShowDebug;show debug

rancid/lib/nxos.pm.in

@@ -550,6 +550,30 @@ sub ShowModule {
     return(0);
 }
 
+# This routine parses "show interface transceiver".
+sub ShowIntTransceiver {
+    my($INPUT, $OUTPUT, $cmd) = @_;
+    print STDERR "    In ShowtTransceiver: $_" if ($debug);
+
+    while (<$INPUT>) {
+	tr/\015//d;
+	return if (/^\s*\^$/);
+	last if (/^$prompt/);
+	next if (/^(\s*|\s*$cmd\s*)$/);
+	return(1) if /Line has invalid autocommand /;
+	return(1) if /(Invalid input detected|Type help or )/;
+	return(1) if (/\% Invalid command at /);
+	return(-1) if (/No token match at /);	# 1000v
+	return(-1) if (/\% Permission denied/);
+	return(-1) if (/command authorization failed/i);
+
+	ProcessHistory("COMMENTS","","","!$_");
+    }
+    ProcessHistory("COMMENTS","","","!\n");
+
+    return(0);
+}
+
 # This routine parses "show inventory".
 sub ShowInventory {
     my($INPUT, $OUTPUT, $cmd) = @_;