site/cgi-bin/modules/BSE/SubscriptionTypes.pm

   1 package BSE::SubscriptionTypes;
   2 use strict;
   3 use Squirrel::Table;
   4 use vars qw(@ISA $VERSION);
   5 @ISA = qw(Squirrel::Table);
   6 use BSE::SubscriptionType;
   7
   8 our $VERSION = "1.000";
   9
  10 sub rowClass {
  11   return 'BSE::SubscriptionType';
  12 }
  13
  14 sub filters {
  15   my ($class, $cfg) = @_;
  16
  17   local @INC = @INC;
  18
  19   my $local_inc = $cfg->entry('paths', 'libraries');
  20   unshift @INC, $local_inc if $local_inc;
  21
  22   my @filters;
  23
  24   for my $index (1..10) {
  25     my $entry = $cfg->entry('newsletter filters', "criteria$index");
  26     $entry or last;
  27
  28     my ($load_class, $data) = split /;/, $entry, 2;
  29     (my $file = $load_class . ".pm") =~ s!::!/!g;
  30
  31     require $file;
  32
  33     my $filter = $load_class->new(cfg=>$cfg, data => $data, index => $index);
  34     push @filters, $filter;
  35   }
  36
  37   @filters;
  38 }
  39
  40 1;