1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
--- lib/Util.pm.orig Sat Feb 1 15:54:45 2003
+++ lib/Util.pm Sat Feb 1 16:26:12 2003
@@ -67,6 +67,7 @@
=cut
sub debug {
+=port-FreeBSD sans trace
my (@DATE) = ("Janvier","F�vrier", "Mars","Avril", "Mai", "Juin", "Juillet","Ao�t","Septembre", "Octobre","Novembre","D�cembre");
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900;
@@ -78,10 +79,11 @@
$date .= "mn";
$date .= (length($sec) > 1)?$sec:"0$sec";
$date .= "s";
- open (DEBUG , ">>$BASEAD/log/debug.txt") ||
+ open (DEBUG , ">>/var/log/facturier.log") ||
&alert ("Probleme d'ouverture du fichier de debug");
print DEBUG "$date:",@_,"\n";
close (DEBUG);
+=cut
return;
}
|
