- tcpprobe "tcp:::send", ">";
- tcpprobe "tcp:::receive", "<";
+ tcpprobe "tcp:::send", "tx";
+ tcpprobe "tcp:::receive", "rx";
+ print $dfh '
+profile:::tick-1sec
+{
+ printa("< [%s]:%d [%s]:%d %@d\n", @rx);
+ clear(@rx);
+ printa("> [%s]:%d [%s]:%d %@d\n", @tx);
+ clear(@tx);
+ printf("I %d\n", rxpkts);
+ printf("O %d\n", txpkts);
+ rxpkts = 0;
+ txpkts = 0;
+ printf("T\n");
+}';