# Ruleset to get 10-second data rates for SDSC link
#
# Nevil Brownlee, Sat 2 Jun 00

define PP_TCP           = 192;  # 0xC0 plus low-order bits as follows .. 
define PP_OK_SYNACK     =   1;  #   ->SYN,  <-SYN+ACK pairs
define PP_OK_SYNRST     =   2;  #   ->SYN,  <-SYN+RST pairs

define PP_OK_MULTI      =   8;  #   ->DATA, <-ACK for more than one packet
define PP_OK_SINGLE     =  16;  #   ->DATA, <-ACK 'lone' packet
define PP_OK_INGROUP    =  32;  #   ->DATA, <-ACK single packet in a group


define UCSD_SUB       = 132.239/16;
define UCSD_EXTRN     = 137.110/16;
define UCSD_CERF      = 199.105.0/18;

define CAIDA          = 192.172.226/24;
define SDSC_APOLLO    = 192.31.21/24;
define SDSCNET_CBLK   = 198.202.64/18;   # Salk Institute

define UCSD           = 128.54/16;
define MPL106         = 192.135.237/24;
define MPL4           = 192.135.238/24;

define SDSC2          = 132.249/16;
define SCRIPPSNET_BIG = 137.131/16;      # Scripps Research Institute
define HYPERNET       = 153.105/16;      # Dimension Systems, Poway
define NET_NSI        = 198.133.185/24;  # Neurosciences institute
define SDSCFDDIDMZ    = 198.17.46/24;

define UCSD_NETS = 
   UCSD, UCSD_SUB, UCSD_EXTRN, UCSD_CERF, MPL106, MPL4;
define SDSC_NETS =
   SDSC2, SCRIPPSNET_BIG, HYPERNET, SDSC_APOLLO, CAIDA, SDSCFDDIDMZ, 
   SDSCNET_CBLK, NET_NSI;


optimise 3;

   if SourcePeerType == IPv4 save;
   else ignore;

   if SourcePeerAddress == (UCSD_NETS) {  # 'to' = UCSD -> SDSC | Internet

      save ToBitRate   = 90.10.0!0 & 1.4.1100!10000;
      save FromBitRate = 90.10.0!0 & 1.4.1100!10000;
           # 90 buckets (+1 oflow), 10s rates, linear, **4 => 11M..100Mbps
      count;
      }

set data_rate_ucsd;
format
  FlowRuleSet FlowIndex FirstTime SourcePeerType
  "  " ToPDUs FromPDUs "  " ToOctets FromOctets
  "  " ToLostPDUs FromLostPdus
  "  (" ToBitRate
  ") (" FromBitRate
  ")";