msg/forward.pl.issue

   1 #
   2 # this is an example message forwarding file for the system
   3 #
   4 # The format of each line is as follows
   5 #
   6 #     type    to/from/at pattern action  destinations
   7 #     P/B/F     T/F/A     regex   I/F    [ call [, call ...] ]
   8 #
   9 # type: P - private, B - bulletin (msg), F - file (ak1a bull)
  10 # to/from/at: T - to field, F - from field, A - home bbs, O - origin
  11 # pattern: a perl regex on the field requested
  12 # action: I - ignore, F - forward
  13 # destinations: a reference to an array containing node callsigns
  14 #
  15 # if it is non-private and isn't in here then it won't get forwarded
  16 #
  17 # Currently only type B msgs are affected by this code.
  18 #
  19 # The list is read from the top down, the first pattern that matches
  20 # causes the action to be taken.
  21 #
  22 # The pattern can be undef or 0 in which case it will always be selected
  23 # for the action specified
  24 #
  25 # If the BBS list is undef or 0 and the action is 'F' (and it matches the
  26 # pattern) then it will always be forwarded to every node that doesn't have
  27 # it (I strongly recommend you don't use this unless you REALLY mean it, if
  28 # you allow a new link with this on EVERY bull will be forwarded immediately
  29 # on first connection)
  30 #
  31
  32 package DXMsg;
  33
  34 @forward = (
  35 'B',    'O',    'K1XX', 'I',    0,
  36 'B',    'T',    'LOCAL',        'F',    [ qw(GB7TLH GB7DJK-1) ],
  37 'B',    'T',    'ALL',  'F',    [ qw(GB7TLH GB7DJK-1 GB7BAA) ],
  38 'B',    'T',    'UK',   'F',    [ qw(GB7TLH GB7DJK-1 GB7BAA) ],
  39 );