# -sam k (commport5@lucidx.com)

# variables for colors for all packets (but a few not used with icmp packets):
# hour, semicolon1, minute, semicolon2, second, dot, millisecond, source_ip, dot,
# source_port, to, destination_ip, dot, destination_port, semicolon3
#
# tcp packet:
# 20:49:11.869837 203.166.230.115.1044 > LucidX.com.http: P ack 56475827 win 17520 (tcp)
#
# tcp specific:
# headers2, urg_ptr (if urg), ack (if any), ack_number (if ack), win2, window_size,
# paren3, tcp, paren4
#
# udp packet:
# 01:29:10.658222 W20NS.MIT.EDU.domain > LucidX.com.3174: length 195 check 29392 (udp)
#
# udp specific:
# length, length2, check, check2, paren1, udp, paren2
#
# icmp packet:
# 01:30:15.540700 LucidX.com > surf15-21-42.blk.adelphia.net: icmp: type 0 code 0 check 7884 gateway 79415 id 13879 mtu 1
#
# icmp specific:
# icmp, semicolon4, type2, type3, code2, code3, check3, check4, gateway1, gateway2,
# id1, id2, mtu1, mtu2
#
# on kill:
# 65334 packets recieved by filter (tcp)
#
# kill specific:
# totpkts, packets, rec, by, filter, paren5, proto1, paren6
#
# valid colors/types: bold underline underscore blink reverse concealed black red 
# green yellow blue magneta cyan white on_black on_red on_green on_yellow on_blue
# on_magneta on_cyan on_white
#
# here are the colors for what the packet will look like ONLY if you use -u option
# just keep $variable = ""; if you don't want any color and just want default

sub ansi {
 $hour = "bold yellow";
 $semicolon1 = "yellow";
 $minute = "bold yellow";
 $semicolon2 = "yellow";
 $second = "bold yellow";
 $dot1 = "green";
 $millisecond = "bold green";
 $source_ip = "bold cyan";
 $dot2 = "blue";
 $source_port = "red";
 $to = "bold";
 $destination_ip = "bold red";
 $dot3 = "yellow";
 $destination_port = "cyan";
 $semicolon3 = "bold";
# tcp specific
 $headers2 = "underline";
 $urg_ptr = "yellow";
 $ack2 = "bold red";
 $ack_number = "cyan";
 $win2 = "green";
 $window_size = "bold green";
 $paren3 = "underline";
 $tcp = "bold";
 $paren4 = "underline";
# udp specific
 $length = "yellow";
 $length2 = "bold red";
 $check = "cyan";
 $check2 = "green";
 $paren1 = "underline";
 $udp = "bold";
 $paren2 = "underline";
# icmp specific
 $icmp = "bold";
 $semicolon4 = "green";
 $type2 = "cyan";
 $type3 = "bold cyan";
 $code2 = "red";
 $code3 = "bold red";
 $check3 = "green";
 $check4 = "bold green";
 $gateway1 = "yellow";
 $gateway2 = "bold yellow";
 $id1 = "green";
 $id2 = "bold green";
 $mtu1 = "cyan";
 $mtu2 = "bold cyan";
# on kill
 $totpkts = "bold underline red";
 $packets = "bold cyan";
 $rec = "bold cyan";
 $by = "cyan";
 $filter = "bold cyan";
 $paren5 = "underline";
 $proto1 = "bold";
 $paren6 = "underline";
}

1;