';
print "idp\">$objp->nom\n" if ($verbose > 1 && $html); -# -# -# Fetch datas -# -Sys::Syslog::syslog('info', '['.$idfiche.'] Fetch data'); -my ($numfiche, $societe, $date, $ville, $destinataire, $address, $note, $duree); - -my $dbh = DBI->connect("","","") || die $DBI::errstr ; - -my $sql = "SELECT f.rowid, f.ref, s.nom, s.address, s.cp, s.ville, unix_timestamp(f.datei) as di, f.duree, f.note"; -$sql .= " FROM llx_fichinter as f, societe as s"; -$sql .= " WHERE s.idp = f.fk_soc AND f.rowid = $idfiche"; - -my $sth = $dbh->prepare("$sql") || die $dbh->errstr ; -if ( $sth->execute ) { - - if (! $sth->rows ) { - $sth->finish; - $dbh->disconnect if $dbh; - print "\n" . $dbh->errstr; - print "\n$sql\n"; - exit ; - } - - while (my $hsr = $sth->fetchrow_hashref ) { - $numfiche = $hsr->{"ref"}; - $societe = $hsr->{"nom"}; - $destinataire = $hsr->{"firstname"} . " " . $hsr->{"name"}; - $date = $hsr->{"di"}; - $duree = $hsr->{"duree"}; - $note = $hsr->{"note"}; - $address = $hsr->{"address"}; - $ville = $hsr->{"cp"} . " " . $hsr->{"ville"}; - } - $sth->finish; -} else { - die $dbh->errstr; -} - -$outputdir .= "/".$numfiche; - -Sys::Syslog::syslog('info', '['.$idfiche.'] Outputdir : ' . $outputdir); -unless (-d $outputdir) { - print "Make dir : $outputdir\n" if $verbose > 1; - mkdir($outputdir,0777) || die "cannot mkdir " . $outputdir . ": $!"; -} - -print "Output in : $outputdir\n" if $verbose > 1; -print "
\n" if ($verbose > 1 && $html); -# -# Decoupage de l'adresse en 2 lignes -# -# -my ($adresse2, $adresse1) = ("",$address); -$_ = $address; -if (/^(.*)\n(.*)/) { - $adresse1 = "$1"; - $adresse2 = "$2"; - print "|$adresse1|\n"; - print "|$adresse2|\n"; -} -print "|$address|\n"; -print "
\n" if ($verbose > 1 && $html); - -# -# - -my $tempfilename = "$outputdir/temp"; -open (FT, ">$tempfilename") || die "can't open $tempfilename: $!"; -print FT $note; -close (FT); - -# - - -unless (open (FC, ">$outputdir/$numfiche.tex") ) { - print "can't write in $outputdir/$numfiche.tex: $!"; - Sys::Syslog::syslog('info', '['.$idfiche.'] ' . $!); -} else { - Sys::Syslog::syslog('info', '['.$idfiche.'] ' . $outputdir.'/'.$numfiche.'.tex opened'); -} - -$date = strftime("%A %d %B %Y", localtime($date)); -# -# Body -# -my $bodyfilename = "$templatesdir/header.tex"; -open (FH, "<$bodyfilename") || die "can't open $bodyfilename: $!"; -while (
Generate pdf file\n"; -if (-r "$outputdir/recode-$numfiche.tex") { - system("cd $outputdir/ ; pdflatex recode-$numfiche.tex > /dev/null"); -} - -if (-r "$outputdir/recode-$numfiche.tex") { - system("cd $outputdir/ ; mv recode-$numfiche.pdf $numfiche.pdf > /dev/null"); -} - -if (-r "$outputdir/recode-$numfiche.dvi") { - print "Generate ps file\n"; - system("cd $outputdir/ ; dvips recode-$numfiche.dvi -o $numfiche.ps "); -} - - -Sys::Syslog::syslog('info', 'End ficheinter '.$idfiche); -Sys::Syslog::closelog(); - diff --git a/htdocs/fichinter/texview.php3 b/htdocs/fichinter/texview.php3 deleted file mode 100644 index 2346dfc82eb..00000000000 --- a/htdocs/fichinter/texview.php3 +++ /dev/null @@ -1,60 +0,0 @@ - - * - * 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$ - * - */ -require("./pre.inc.php3"); -require("../contact.class.php3"); - -llxHeader(); - -?> - - -fichinter->outputdir . "/$fichinter_ref/$fichinter_ref.tex"; - -print $file .'
';
-
-$fcontents = file ($file);
-
-if (file_exists($file)) {
-
-
- while (list ($line_num, $line) = each ($fcontents)) {
- echo htmlspecialchars ($line), "
\n";
- }
-
-
-
-// readfile($file);
-}
-print "