From 5b56865c82467848b2036b7fa9db8b4018f12526 Mon Sep 17 00:00:00 2001
From: Rodolphe Quiedeville <rodolphe@quiedeville.org>
Date: Tue, 25 Mar 2003 14:48:35 +0000
Subject: [PATCH] Correction et re upload suivra pour contrer le probleme des
 bits d'execution

---
 scripts/send-newsletter.pl | 234 +++++++++++++++++++++++++++++++++++++
 1 file changed, 234 insertions(+)
 create mode 100644 scripts/send-newsletter.pl

diff --git a/scripts/send-newsletter.pl b/scripts/send-newsletter.pl
new file mode 100644
index 00000000000..38cb9e826f2
--- /dev/null
+++ b/scripts/send-newsletter.pl
@@ -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
+