[Slashcode-development] [ slashcode-Patches-428381 ] email pending submissions in slash 1.x

[<no...@so...>]

Patches item #428381, was updated on 2001-05-29 10:43
You can respond by visiting: 
http://sourceforge.net/tracker/?func=detail&atid=304421&aid=428381&group_id=4421

Category: MAIN branch
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Nobody/Anonymous (nobody)
Assigned to: Nobody/Anonymous (nobody)
Summary: email pending submissions in slash 1.x

Initial Comment:
Grr, sourceforge won't let me log in using IE5 Mac, 
the only browser that works with my OS (X)....

Cron it with 'quiet' as the first arg.

#!/usr/bin/perl

# by na...@th...

# run once a day, with a glass of water.
# usage:  email_new_submissions.pl [quietflag] 
[email] [subjectline]
# by default sends mail to all the authors in yer 
authors table.

use vars '%I';
use lib '..';
use Slash;
*I = getSlashConf();

my $usage = "usage:  $0 [quiet] [email] 
[subjectline]\n" ;

my $QUIET = 0;
if ($ARGV[0] =~ m/quiet/i) {
        shift @ARGV;
        $QUIET = 1;
}

my @to;
my $subject = $ARGV[2] || "$I{'sitename'} 
submissions";

if ($ARGV[1]) {
        push @to, $ARGV[1];
}
else {
        # get the authors to whom we should send 
mail...
        my $authors = sqlSelectMany(
                "email", 
                "authors", 
                "NOT ISNULL(email)"
        );
        while (my $a = $authors->fetchrow()) {
                push @to, $a;
        }
}

# this'll select all non-approved submissions that 
were submitted in the last 24 hours.
my $where = "del=0 AND time > 
DATE_SUB(NOW(), INTERVAL 1 DAY)";  

my ($count) = sqlSelect('count(*)', 'submissions', 
$where);

if ( $count > 0 ) {
        my $body = "$count new submission". 
($count>1?'s':'') . " today:\n";

        my $newsubs = sqlSelectMany(
                "name, subj, section, story", 
                "submissions", 
                $where
        );

        # put them into $body
        while ( my ($name, $subj, $section, $story) = 
$newsubs->fetchrow() ) {
                my $first50 = join ' ', (split m/\s+/, 
$story)[0..49];
                $body .= "\n" . '-' x 60 . "
Subject:  $subj
Submitted by:  $name
Section:  $section
First 50 words:  $first50
";
        }

        my $baseurl = $I{rootdir} || "http://
$I{basedomain}";
        $body .= '-' x 60 ."\nGo to $baseurl/admin.pl to 
post or delete.";

        foreach (@to) {
                sendEmail($_, $subject, $body);
                print "I just sent mail to $_\n" unless 
$QUIET;
        }

        print "and here's the gist of it:
Subject: $subject

$body
        " unless $QUIET;

}
else {
        print "No new submissions; not sending mail.\
n" unless $QUIET;
}


__END__

----------------------------------------------------------------------

You can respond by visiting: 
http://sourceforge.net/tracker/?func=detail&atid=304421&aid=428381&group_id=4421