SF.net SVN: ledger-smb: [68] trunk/setup.pl

[..hidden..]

Revision: 68
          http://svn.sourceforge.net/ledger-smb/?rev=68&view=rev
Author:   christopherm
Date:     2006-09-11 07:23:29 -0700 (Mon, 11 Sep 2006)

Log Message:
-----------
setup.pl adding basic HTTP header, adding Digest::MD5 as required package

Modified Paths:
--------------
    trunk/setup.pl

Modified: trunk/setup.pl
===================================================================
--- trunk/setup.pl	2006-09-11 07:12:59 UTC (rev 67)
+++ trunk/setup.pl	2006-09-11 14:23:29 UTC (rev 68)
@@ -31,17 +31,18 @@
 
 $| = 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);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.