From abbf1a554a66380d6ffc90b7789d548bba835813 Mon Sep 17 00:00:00 2001 From: pate Date: Sun, 21 Apr 2002 01:58:26 +0000 Subject: [PATCH] general cleanups --- installer.pl | 110 +++++++++++++++++++++++++++++++++++---------------- 1 file changed, 76 insertions(+), 34 deletions(-) diff --git a/installer.pl b/installer.pl index 75a496532f..15f9831aa2 100644 --- a/installer.pl +++ b/installer.pl @@ -1,55 +1,93 @@ -#!perl - -print "**********************************\n"; -print "* Welcome to the Koha Installer *\n"; -print "**********************************\n"; -print "\n\n\n"; -print "This installer will prompt you with a series of questions.\n"; -print "It assumes you (or your system administrator) has installed: \n"; -print " * Apache (http://www.apache.org) \n"; -print " * Perl (http://www.perl.org) \n \n"; -print "and one of the following database applications:"; -print " * MySql (http://www.mysql.org) \n\n"; -print "on some type of Unix or Unix-like operating system \n"; -print "\n\n"; -print "Is Apache, Perl, and a database from the list above installed on this system?\n"; -print "\n"; -$answer = chomp $_; -if ($answer eq "Y") { +#!/usr/bin/perl -w # please develop with -w + +use strict; # please develop with the strict pragma + +print < @@ -62,4 +100,8 @@ print "includes=/usr/local/www/koha/htdocs/includes\n"; ###RESTART APACHE +# FIXME +# this is a pretty rude thing to do on a system ... +# perhaps asking the user first would be better. +# system('/etc/rc.d/init.d/httpd restart'); -- 2.39.5