From 3e548c1965333d11337ee4f94643d385da17ac1b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 8 Dec 2000 16:20:39 +0000
Subject: (rotate_logs): created, rotates ddebug.log and install.log in /root

---
 perl-install/any.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 68d7ae8e9..3e8e04daa 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -249,6 +249,18 @@ sub setAutologin {
 	      { USER => $user, AUTOLOGIN => bool2yesno($user), EXEC => "/usr/X11R6/bin/startx" });
 }
 
+sub rotate_log {
+    my ($f) = @_;
+    if (-e $f) {
+	my $i = 1;
+	for (; -e "$f$i" || -e "$f$i.gz"; $i++) {}
+	rename $f, "$f$i";
+    }
+}
+sub rotate_logs {
+    my ($prefix) = @_;
+    rotate_log("$prefix/root/$_") foreach qw(ddebug.log install.log);
+}
 
 sub writeandclean_ldsoconf {
     my ($prefix) = @_;
-- 
cgit v1.2.1