1 package FS::Cron::send_subscribed;
6 use FS::Record qw(qsearch);
9 our @EXPORT_OK = qw( send_subscribed );
14 my @subs = qsearch('saved_search', {
16 'freq' => { op => '!=', value => '' },
18 foreach my $saved_search (@subs) {
19 my $date = $saved_search->next_send_date;
20 warn "checking '".$saved_search->searchname."' with date $date\n"
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 );