[WWcvs] wwmoodle: Added Robust Installation Script

[Matt L. v. a. <we...@ma...>]

Log Message:
-----------
Added Robust Installation Script

Modified Files:
--------------
    wwmoodle/wwquestion/bin/setup:
        config.php.base
        setup.pl
    wwmoodle/wwquestion/moodle/question/type/webwork:
        config.php

Revision Data
-------------
Index: config.php.base
===================================================================
RCS file: /webwork/cvs/system/wwmoodle/wwquestion/bin/setup/config.php.base,v
retrieving revision 1.1
retrieving revision 1.2
diff -Lwwquestion/bin/setup/config.php.base -Lwwquestion/bin/setup/config.php.base -u -r1.1 -r1.2
--- wwquestion/bin/setup/config.php.base
+++ wwquestion/bin/setup/config.php.base
@@ -1,7 +1,7 @@
 <?php
 
 //Path to the WSDL file on the Webwork Server
-define('WWQUESTION_WSDL','ENTER YOUR WSDL PATH HERE','WSDL Path Test');
+define('WWQUESTION_WSDL','MARKER_FOR_WSDL');
 
 //Leave the rest alone
 define('WWQUESTION_PREFIX','/wwquestions');
Index: setup.pl
===================================================================
RCS file: /webwork/cvs/system/wwmoodle/wwquestion/bin/setup/setup.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -Lwwquestion/bin/setup/setup.pl -Lwwquestion/bin/setup/setup.pl -u -r1.1 -r1.2
--- wwquestion/bin/setup/setup.pl
+++ wwquestion/bin/setup/setup.pl
@@ -1,7 +1,6 @@
 #!/usr/bin/env perl
 
-use CPAN;
-use File::Which;  die "You do not have File::Which installed.\n Run perl -MCPAN -e 'install File::Which' to install. Then rerun this." if $@;
+use Cwd;
 
 sub promptUser {
 
@@ -62,10 +61,56 @@
     exit;
 }
 
+#Program Root
+print "Please enter the root directory where wwquestion module is located. \n";
+print "Example: /tmp/wwmoodle/wwquestion\n";
+$wwquestionRoot = promptUser('');
+
+#Moodle Root
 print "Please enter the root directory where Moodle is installed. \n";
 print "Example: /var/www/moodle \n";
 $moodleRoot = promptUser('');
 
+#WSDL Root Directory
 print "Please enter the WSDL Path given in the server setup. \n";
 print "Example: http://myserver/problemserver_files/WSDL.wsdl\n";
 $wsdlPath = promptUser('');
+
+#Writing Configuration File
+open(INPUT2, "<config.php.base");
+$content = "";
+while(<INPUT2>)
+{
+    my($line) = $_;
+    $content .= $line;
+}
+close INPUT2;
+
+$content =~ s/MARKER_FOR_WSDL/$wsdlPath/;
+open(OUTP3, ">config.php") or die("Cannot open file 'config.php' for writing.\n");
+print OUTP3 $content;
+close OUTP3;
+
+system("cp config.php $wwquestionRoot/moodle/question/type/webwork/config.php");
+print "config.php file generated.\n";
+
+#File Moving/Linking
+$files = promptUser('Would you like me to place the files into proper directories (y,n)','y');
+if($files eq 'y') {
+   $doWhat = promptUser('Would you like me to copy the files or soft link them.(copy,link)','link');
+   if($doWhat eq 'link') {
+      $action = 'ln -sf ';
+   } elsif ($doWhat eq 'copy') {
+      $action = 'cp -R ';
+   } else {
+      exit;
+   }
+   system($action . "$wwquestionRoot/moodle/question/type/webwork " .$moodleRoot . '/question/type/webwork');
+   system($action . "$wwquestionRoot/moodle/lang/en_utf8/qtype_webwork.php " . $moodleRoot . '/lang/en_utf8/qtype_webwork.php');
+   system($action . "$wwquestionRoot/moodle/lang/en_utf8/help/quiz/webwork.html " . $moodleRoot . '/lang/en_utf8/help/quiz/webwork.html');
+   system($action . "$wwquestionRoot/moodle/lang/en_utf8/help/webwork " . $moodleRoot . '/lang/en_utf8/help/webwork');
+
+
+}
+
+1;