filter/ann/GB7MBC.pl.issue

   1 #
   2 # This is an example announce or filter allowing only West EU announces
   3 #
   4 # The element list is:-
   5 # 0 - callsign of announcer
   6 # 1 - destination * = all, <callsign> = routed to the node
   7 # 2 - text
   8 # 3 - * - sysop, <some text> - special list eg 6MUK, ' ', normal announce
   9 # 4 - origin
  10 # 5 - 0 - announce, 1 - wx
  11 # 6 - channel callsign (the interface from which this spot came)
  12 # 7 - announcer country no (as from sh/prefix)
  13 # 8 - announcer itu no
  14 # 9 - announcer cq zone
  15 # 10 - origin country no (as from sh/prefix)
  16 # 11 - origin itu no
  17 # 12 - origin cq zone
  18
  19 $in = [
  20         [ 1, 0, 'a', '^(P[ABCDE]|G|M|2|EI|F|ON|LX|HB9)' ],
  21         [ 0, 0, 'd', 0 ]
  22 ];
  23