diff options
Diffstat (limited to 'french/facturier/files/patch-lib_Util.pm')
| -rw-r--r-- | french/facturier/files/patch-lib_Util.pm | 29 |
1 files changed, 23 insertions, 6 deletions
diff --git a/french/facturier/files/patch-lib_Util.pm b/french/facturier/files/patch-lib_Util.pm index 9ade15d..7474616 100644 --- a/french/facturier/files/patch-lib_Util.pm +++ b/french/facturier/files/patch-lib_Util.pm @@ -1,5 +1,5 @@ ---- lib/Util.pm.orig Sat Feb 1 15:54:45 2003 -+++ lib/Util.pm Sat Feb 1 16:26:12 2003 +--- lib/Util.pm.orig Mon Sep 22 11:39:16 2003 ++++ lib/Util.pm Mon Oct 13 23:27:53 2003 @@ -67,6 +67,7 @@ =cut @@ -8,10 +8,27 @@ 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"; +@@ -82,23 +83,24 @@ + + my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, + $atime,$mtime,$ctime,$blksize,$blocks) +- = stat("$BASEAD/log/debug.txt"); ++ = stat("/var/log/facturier.log"); + if ( $size >= $LOGSIZE ) + { + for ( my $i=$MAXLOG;$i>1;$i--) + { +- unlink "$BASEAD/log/debug$i.txt"; ++ unlink "/var/log/facturier$i.log"; + my $j=$i-1; +- rename ("$BASEAD/log/debug$j.txt","$BASEAD/log/debug$i.txt"); ++ rename ("/var/log/facturier$j.log","/var/log/facturier$i.log"); + } +- rename ( "$BASEAD/log/debug.txt", "$BASEAD/log/debug1.txt" ); ++ rename ( "/var/log/facturier.log", "/var/log/facturier1.log" ); + } + + ############# - open (DEBUG , ">>$BASEAD/log/debug.txt") || + open (DEBUG , ">>/var/log/facturier.log") || &alert ("Probleme d'ouverture du fichier de debug"); |
