Nouveau script

scripts/import-csv.pl

+#!/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 Net::SMTP;
+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;
+
+my($dbh, $sth, $hsr, $sthi, $i, $sqli, $sql, $stha, $digest);
+
+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\n"  if $verbose>0;
+
+print "DBI connection : open\n" if $verbose>3;
+$dbh = DBI->connect() || die $DBI::errstr;
+
+my $file = "/tmp/importf.csv";
+my @line;
+my $i = 0;
+my ($civ, $rubrique,$civilite,$nom,$prenom,$num,$type,$voie,$complement,$cp,$ville,$tel,$fax,$mobile,$email,$web,$commentaire);
+open (FH, "<$file") || die "can't open $file: $!";
+while (<FH>) 
+{
+    $civ = 0;
+    $civilite = '';
+
+    s|\'|\\\'|g;
+    @line = split /\t/, $_;
+    $rubrique    = $line[0];
+    $civilite    = $line[1];
+    $nom         = $line[2];
+    $prenom      = $line[3];
+    $num         = $line[4];
+    $type        = $line[5];
+    $voie        = $line[6];
+    $complement  = $line[7];
+    $cp          = $line[8];
+    $ville       = $line[9];
+    $tel         = $line[10];
+    $fax         = $line[11];
+    $mobile      = $line[12];
+    $email       = $line[13];
+    $web         = $line[14];
+    $commentaire = $line[15];
+
+    if ($i > 0 )
+    {	
+	my $sql = "INSERT INTO llx_societe (datec, client, nom, address,cp,ville,tel,fax,url,note,rubrique,fk_user_creat) ";
+	$sql .= "VALUES (now(),2,'$nom $prenom','$num $type $voie\n$complement','$cp','$ville','$tel','$fax','$web','$commentaire','$rubrique',1)";
+
+	$stha = $dbh->prepare($sql);
+	$stha->execute;
+	
+	$sql = "SELECT MAX(idp) as co FROM llx_societe";
+	$sth = $dbh->prepare("$sql") || die $dbh->errstr ;
+	if ( $sth->execute ) {
+	    if ( $sth->rows ) {
+	        $hsr = $sth->fetchrow_hashref;
+	    }
+	    $sth->finish;
+	}
+
+	if ($civilite = 'Mme')
+	{
+	    $civ = 2 ;
+	}
+	if ($civilite = 'M')
+	{
+	    $civ = 1 ;
+	}
+
+	if ($civ > 0)
+	{
+	    my $sql = "INSERT INTO llx_socpeople (datec, fk_soc, name, firstname,phone,fax,email, fk_user) ";
+	    $sql .= "VALUES (now(),".$hsr->{"co"}.",'$nom', '$prenom','$tel','$fax','$email',1)";
+	    
+	    $stha = $dbh->prepare($sql);
+	    $stha->execute;	    
+	}
+
+
+    }
+    print $i . " ";
+    $i++;
+}
+close (FH);
+
+print "DBI connection : close\n" if $verbose>3;
+
+if ($dbh)
+{
+    $dbh->disconnect;
+}
+
+print "End\n" if $verbose>0;
+#
+# 
+#
+    
+    
+$sl = Sys::Syslog::syslog('info', 'End');
+
+Sys::Syslog::closelog();
+
+#
+#
+#
+#
+#
+sub print_help {
+    print "Usage send-newsletter.pl [-v]\n";
+    exit 0;
+}
+
+
+__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
+