From 3396e908b86c6fd1a15d80d72dbbabafa4897556 Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Wed, 26 Jun 2002 13:29:13 +0000
Subject: [PATCH] Installer creates a backup of httpd.conf

---
 installer.pl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/installer.pl b/installer.pl
index 045f5d58bc..420f8af559 100644
--- a/installer.pl
+++ b/installer.pl
@@ -395,8 +395,10 @@ while (<HC>) {
     $httpdconf.=$_;
 }
 
+my $apachebackupmade=0;
 if ($envmodule || $includesmodule) {
     system("mv -f $realhttpdconf $realhttpdconf\.prekoha");
+    $apachebackupmade=1;
     open HC, ">$realhttpdconf";
     print HC $httpdconf;
     close HC;
@@ -416,6 +418,9 @@ configuration.
     <STDIN>;
     print "\n";
 } else {
+    unless ($apachebackupmade) {
+	system("cp -f $realhttpdconf $realhttpdconf\.prekoha");
+    }
     my $includesdirectives='';
     if ($includesmodule) {
 	$includesdirectives.="Options +Includes\n";
-- 
2.39.5