summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorchristopherm <christopherm@4979c152-3d1c-0410-bac9-87ea11338e46>2006-09-11 14:23:29 +0000
committerchristopherm <christopherm@4979c152-3d1c-0410-bac9-87ea11338e46>2006-09-11 14:23:29 +0000
commit898bc67a14d44c885742fb697162ae7169f6076d (patch)
tree3643404367f5431059afd140454c2c6a49de0d52
parentf4974bee41c948747b5650150daefa60c6fd383d (diff)
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
-rwxr-xr-xsetup.pl15
1 files 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);