#
# Kawaihiko /16 networks
#
define Auckland_B =
   130.216/16;  # Auckland
define AIT_B =
   156.62/16;   # AIT
define Waikato_B =
   130.217/16,  # Waikato
   163.7/16,    # FRI
   166.83/16;   # Health Waikato
define Canterbury_B =
   132.181/16,  # Canterbury
   153.111/16,  # CCNET2
   155.32/16;   # CCNET3
define Lincoln_B =
   138.75/16;   # Lincoln
define Otago_B =
   139.80/16;   # Otago
define Kawaihiko_B =
   Auckland_B, AIT_B, Waikato_B, Canterbury_B, Lincoln_B, Otago_B;


   if SourcePeerType == IP save;
   else ignore;

   if DestPeerAddress == (Kawaihiko_B) nomatch;
         # We want the Kawaihiko site as source

   if SourcePeerAddress == (Auckland_B)
      save, store FlowKind := 'A';
   else if SourcePeerAddress == (AIT_B)
      save, store FlowKind := 'T';
   else if SourcePeerAddress == (Waikato_B)
      save, store FlowKind := 'W';
   else if SourcePeerAddress == (Canterbury_B)
      save, store FlowKind := 'C';
   else if SourcePeerAddress == (Lincoln_B)
      save, store FlowKind := 'L';
   else if SourcePeerAddress == (Otago_B)
      save, store FlowKind := 'O';
   else {
      save SourcePeerAddress;
      store FlowKind := '?';
      }

   save DestPeerAddress;
   count;


set 3;
format 
   FlowKind "  "
   SourcePeerType SourcePeerAddress DestPeerAddress "  "
   SourceTransType SourceTransAddress DestTransAddress;