Mirrors/dolibarr
1
0
Fork 0
mirror of https://github.com/Dolibarr/dolibarr.git synced 2025-02-20 13:46:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

Correction et re upload suivra pour contrer le probleme des bits d'execution

Browse Source
This commit is contained in:
Rodolphe Quiedeville 2003-03-25 14:48:35 +00:00
parent 4164eaadc9
commit 5b56865c82
1 changed files with 234 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

234
scripts/send-newsletter.pl Normal file
View File

@ -0,0 +1,234 @@
#!/usr/bin/perl
# Copyright (C) 2003 Rodolphe Quiedeville <rodolphe@quiedeville.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
# $Id$
# $Source$
$SYSLOG_LEVEL = 'local3';
use strict;
use vars qw($SYSLOG_LEVEL);
use DBI;
use Text::Wrap;
use Getopt::Long;
use Sys::Syslog qw(:DEFAULT setlogsock);
Getopt::Long::Configure("bundling");
my($debug,$verbose, $help) = (0,0,0);
exit unless GetOptions("v+", \$verbose, "debug", \$debug, "help", \$help);
print_help() if $help;
unless (defined $ENV{"DBI_DSN"}) {
print "Missing ENV var: DBI_DSN is not defined\n";
exit 0;
}
my($dbh, $sth, $sthi, $i, $sqli, $sql, $stha, $digest, $mesg);
print "Running in verbose mode level $verbose\n" if $verbose>0;
my $sl = Sys::Syslog::setlogsock('unix');
$sl = Sys::Syslog::openlog('send-newsletter.pl', 'pid', $SYSLOG_LEVEL);
$sl = Sys::Syslog::syslog('info', 'Start');
print "Start on " if $verbose>0;
print "Open DBI connection\n" if $verbose>3;
$dbh = DBI->connect() || die $DBI::errstr;
#
#
# Lecture des infos de la base
#
#
# email_subject varchar(32) NOT NULL,
# email_from_name varchar(255) NOT NULL,
# email_from_email varchar(255) NOT NULL,
# email_replyto varchar(255) NOT NULL,
# email_body text,
# target smallint,
# sql_target text,
# status smallint NOT NULL DEFAULT 0,
# date_send_request datetime, -- debut de l'envoi demandé
# date_send_begin datetime, -- debut de l'envoi
# date_send_end datetime, -- fin de l'envoi
# nbsent integer, -- nombre de mails envoyés
my $sqli = "SELECT rowid, email_subject, email_from_name, email_from_email, email_replyto, email_body, target, sql_target, status, date_send_request, date_send_begin, date_send_end, nbsent";
$sqli .= " FROM llx_newsletter WHERE status=1 AND date_send_request < now()";
$sthi = $dbh->prepare($sqli);
$sthi->execute;
my ($hsri);
while ( $hsri = $sthi->fetchrow_hashref )
{
#
# Update newsletter
#
if (!$debug)
{
$stha = $dbh->prepare("UPDATE llx_newsletter SET date_send_begin=now() WHERE rwoid=" . $hsri->{"rowid"});
$stha->execute;
$stha->finish;
}
#
#
#
$from = $hsri->{"email_from_name"} . "<" . $hsri->{"email_from_email"} . ">";
$replyto = $hsri->{"email_replyto"};
$mesg = $hsri->{"email_body"};
$subject = $hsri->{"email_subject"};
$sql = $hsri->{"sql_target"};
#
# Read dest
#
if ($sql)
{
$sth = $dbh->prepare($sql);
$sth->execute;
my($nbdest) = (0);
while ( $hsr = $sth->fetchrow_hashref )
{
if (length($hsr->{"email"}) > 0)
{
my $firstname = $hsr->{"prenom"};
my $name = $hsr->{"nom"};
my $gm = mail_it($hsr->{"email"},
$from,
$subject,
$mesg,
$replyto);
}
$nbdest++;
}
$sth->finish;
#
# Update newsletter
#
if (!$debug)
{
$stha = $dbh->prepare("UPDATE llx_newsletter SET status=3,date_send_end=now(), nbsent=$nbdest WHERE rowid=" . $hsri->{"rowid"});
$stha->execute;
$stha->finish;
}
}
}
$sthi->finish;
print "Close DBI connection\n" if $verbose>3;
$dbh->disconnect;
#
#
#
$sl = Sys::Syslog::syslog('info', 'End');
Sys::Syslog::closelog();
#
#
#
#
#
sub print_help {
print "Usage send-newsletter.pl [-v]\n";
exit 0;
}
sub mail_it {
my ($to, $from, $subject, $mesg, $replyto) = @_;
my ($smtp);
$mesg = wrap("","",$mesg);
$smtp = Net::SMTP->new('localhost',
Hello => 'localhost',
Timeout => 30);
if ($smtp)
{
$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend("From: $from\n");
$smtp->datasend("Reply-To: $replyto\n") if $replyto;
$smtp->datasend("Content-Type: text/plain; charset=\"iso-8859-1\"\n");
$smtp->datasend("To: $to\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("X-Mailer: Dolibarr\n");
$smtp->datasend("\n");
$smtp->datasend($mesg);
$smtp->dataend();
$smtp->quit;
}
}
__END__
# Below is the documentation for the script.
=head1 NAME
send-newsletter.pl -
=head1 SYNOPSIS
send-newsletter.pl [-v]
=head1 DESCRIPTION
send-newsletter.pl send newsletter from DB
=head1 OPTIONS
=over
=back
=head1 AUTHOR
Rodolphe Quiedeville (rodolphe@quiedeville.org)
=cut