FS/FS/Cron/send_subscribed.pm

   1 package FS::Cron::send_subscribed;
   2
   3 use strict;
   4 use base 'Exporter';
   5 use FS::saved_search;
   6 use FS::Record qw(qsearch);
   7 use FS::queue;
   8
   9 our @EXPORT_OK = qw( send_subscribed );
  10 our $DEBUG = 1;
  11
  12 sub send_subscribed {
  13
  14   my @subs = qsearch('saved_search', {
  15     'disabled'  => '',
  16     'freq'      => { op => '!=', value => '' },
  17   });
  18   foreach my $saved_search (@subs) {
  19     my $date = $saved_search->next_send_date;
  20     warn "checking '".$saved_search->searchname."' with date $date\n"
  21       if $DEBUG;
  22
  23     if ( $^T > $saved_search->next_send_date ) {
  24       warn "queueing delivery\n";
  25       my $job = FS::queue->new({ job => 'FS::saved_search::queueable_send' });
  26       $job->insert( $saved_search->searchnum );
  27     }
  28   }
  29
  30 }
  31
  32 1;