[WWcvs] wwmoodle: Combining wwlink and wwassignment with new setup file.

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

Log Message:
-----------
Combining wwlink and wwassignment with new setup file.

Added Files:
-----------
    wwmoodle/wwassignment3:
        CHANGES
        README
    wwmoodle/wwassignment3/bin/setup:
        setup.pl
    wwmoodle/wwassignment3/moodle/blocks/wwlink:
        block_wwlink.php
        config_instance.html
    wwmoodle/wwassignment3/moodle/lang/en_utf8:
        block_wwlink.php
        wwassignment.php
    wwmoodle/wwassignment3/moodle/mod/wwassignment:
        backuplib.php
        config.html
        icon.gif
        index.php
        javascript.php
        lib.php
        locallib.php
        restorelib.php
        version.php
        view.php
    wwmoodle/wwassignment3/moodle/mod/wwassignment/db:
        install.xml
    wwmoodle/wwassignment3/moodle/mod/wwassignment/simpletest:
        testwwassignment.php

Revision Data
-------------
--- /dev/null
+++ wwassignment3/bin/setup/setup.pl
@@ -0,0 +1,105 @@
+#!/usr/bin/env perl
+
+use Cwd;
+
+sub promptUser {
+
+   #-------------------------------------------------------------------#
+   #  two possible input arguments - $promptString, and $defaultValue  #
+   #  make the input arguments local variables.                        #
+   #-------------------------------------------------------------------#
+
+   local($promptString,$defaultValue) = @_;
+
+   #-------------------------------------------------------------------#
+   #  if there is a default value, use the first print statement; if   #
+   #  no default is provided, print the second string.                 #
+   #-------------------------------------------------------------------#
+
+   if ($defaultValue) {
+      print $promptString, "[", $defaultValue, "]: ";
+   } else {
+      print $promptString, ": ";
+   }
+
+   $| = 1;               # force a flush after our print
+   $_ = <STDIN>;         # get the input from STDIN (presumably the keyboard)
+
+
+   #------------------------------------------------------------------#
+   # remove the newline character from the end of the input the user  #
+   # gave us.                                                         #
+   #------------------------------------------------------------------#
+
+   chomp;
+
+   #-----------------------------------------------------------------#
+   #  if we had a $default value, and the user gave us input, then   #
+   #  return the input; if we had a default, and they gave us no     #
+   #  no input, return the $defaultValue.                            #
+   #                                                                 #
+   #  if we did not have a default value, then just return whatever  #
+   #  the user gave us.  if they just hit the <enter> key,           #
+   #  the calling routine will have to deal with that.               #
+   #-----------------------------------------------------------------#
+
+   if ("$defaultValue") {
+      return $_ ? $_ : $defaultValue;    # return $_ if it has a value
+   } else {
+      return $_;
+   }
+}
+
+print "###################################\n";
+print "#WeBWorK Assignment in Moodle     #\n";
+print "###################################\n";
+
+#Continue?
+print "This script will setup the WeBWorK Assignment Type.\n";
+$continue = promptUser('Continue','y');
+if($continue ne "y") {
+    exit;
+}
+
+#Program Root
+print "Please enter the root directory where wwassignment3 module is located. \n";
+print "Example: /tmp/wwmoodle/wwassignment3\n";
+$wwassignmentRoot = promptUser('');
+
+#Moodle Root
+print "Please enter the root directory where Moodle is installed. \n";
+print "Example: /var/www/moodle \n";
+$moodleRoot = promptUser('');
+
+#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 help files or soft link them.(copy,link)','link');
+   if($doWhat eq 'link') {
+      $action = 'ln -sf ';
+   } elsif ($doWhat eq 'copy') {
+      print "Remember to rerun setup when/if you update from the CVS\n";
+      $action = 'cp -R ';
+   } else {
+      exit;
+   }
+   #wipe existing directories
+   system("rm -rf $moodleRoot/mod/wwassignment");
+   system("rm -rf $moodleRoot/blocks/wwlink");
+   system("rm -rf $moodleRoot/lang/en_utf8/help/wwassignment");
+
+   #copy php code directories
+   system("cp -R $wwassignmentRoot/moodle/mod/wwassignment " . $moodleRoot . '/mod/');
+   system("cp -R $wwassignmentRoot/moodle/blocks/wwlink " . $moodleRoot . '/blocks/');
+
+   #help files
+   system($action . "$wwassignmentRoot/moodle/lang/en_utf8/wwassignment.php " . $moodleRoot . '/lang/en_utf8/wwassignment.php');
+   system($action . "$wwassignmentRoot/moodle/lang/en_utf8/block_wwlink.php " . $moodleRoot . '/lang/en_utf8/block_wwlink.php');
+   system($action . "$wwassignmentRoot/moodle/lang/en_utf8/help/wwassignment " . $moodleRoot . '/lang/en_utf8/help/');
+
+   print "Setup Successful!\n";
+
+
+}
+
+1;