From 898bc67a14d44c885742fb697162ae7169f6076d Mon Sep 17 00:00:00 2001
From: christopherm <christopherm@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 11 Sep 2006 14:23:29 +0000
Subject: setup.pl adding basic HTTP header, adding Digest::MD5 as required
 package

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@68 4979c152-3d1c-0410-bac9-87ea11338e46
---
 setup.pl | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/setup.pl b/setup.pl
index acceebec..8302b5d1 100755
--- a/setup.pl
+++ b/setup.pl
@@ -31,17 +31,18 @@ if (!$@){
 
 $| = 1;
 
+#not sure how safe this is. If the browser sends a blank HTTP_USER_AGENT
+#will this script destroy part of the install? 
+#This script should probably be made inaccessible via HTTP until this feature is working
 if ($ENV{HTTP_USER_AGENT}) {
-  print "
-This does not work yet!
-use $0 from the command line";
-  exit;
+	print "Content-type: text/html\n\nThis does not work yet! use $0 from the command line";
+	exit;
 }
 
 # Make sure they have the required perl modules installed.
-my @req_modules=(qw(DBI 
-	DBD::Pg 
-));
+# bin/mozilla/admin.pl needs Digest::MD5 for session handling
+my @req_modules=(qw(DBI DBD::Pg Digest::MD5 ));
+
 foreach my $module(@req_modules){
   print "Checking for: $module ...\t";
   my @results=&check_module($module);
-- 
cgit v1.2.3