[WWcvs] admintools: New script for creating a special Nat.

[jj v. a. <we...@ma...>]

Log Message:
-----------
New script for creating a special Nat. Problem Library file pointer
(i.e., a pg file which just tells webwork to use the contents of another
file).

Added Files:
-----------
    admintools:
        npl-problem-pointer

Revision Data
-------------
--- /dev/null
+++ npl-problem-pointer
@@ -0,0 +1,124 @@
+#!/usr/bin/perl
+
+# Make a Problem Library type pointer to the given problem
+
+# This new pg file will tell webwork to process the contents of
+# the existing pg file when used as a problem.  It includes the
+# tags which tell NPL-update to ignore it.
+
+# See the usage statements below.  The first argument is the
+# existing path.  The second argument is the place to put the
+# special file.  There should not be a file in that position
+# already.  This is a safety feature in case the script is
+# called with the arguments reversed.  So, if file1 is a duplicate
+# of file2 and you want to keep file1 and make file2 the linking
+# file, then delete file2 before calling this script.
+
+# This needs to be called from the top directory of the Problem
+# Library (so the directory containing 270, Indiana, Michigan, etc.
+
+# This script does not execute any cvs commands.  If a file really is
+# new, then you would need "cvs add".  If you just deleted a file and
+# are now putting in the linking file, then you would just need "cvs up"
+# If you have several files, you may want to deal with them all and
+# then call "cvs up" just once.
+
+# This could be made nicer in several ways:
+#  - pod style documentation
+#  - command line flag to delete the second argument if it already
+#    exists
+#  - command line flag to call cvs update
+#  - declare more variables with "my"
+
+use File::Basename;
+
+if(scalar(@ARGV) != 2) {
+	print "Usage: npl-problem-pointer existing/path new/path\n";
+	print "Paths should not start with Library\n";
+	print "Run me from the top of the problem library.\n";
+	exit();
+}
+
+$existpath = $ARGV[0];
+$newpath = $ARGV[1];
+
+
+if( -f $newpath ) {
+	print "I don't want to overwrite $newpath ... quitting\n";
+	exit();
+}
+
+sub surePathToFile($) {
+        # constructs intermediate directories enroute to the file 
+        # the input path must be the path relative to this starting directory
+        my $start_directory = "";
+        my $path = shift;
+        my $delim = "/"; 
+        unless ($path ) {
+                warn "missing directory<br> surePathToFile  start_directory   pa
+th ";
+                return '';
+        }
+        my ($perms, $groupID) = (stat ".")[2,5];
+        
+        #$path =~ s|^$start_directory|| if $path =~ m|^$start_directory|;
+
+        
+        # find the nodes on the given path
+        my @nodes = split("$delim",$path);
+        
+        # create new path
+        $path = $start_directory;
+        
+        while (@nodes>1) {  # the last node is the file name
+                $path = $path . shift (@nodes) . "/";
+                unless (-e $path) {
+                        mkdir($path, $perms)
+                                or warn "Failed to create directory $path with start directory $start_directory ";
+			system("cvs add $path");
+                }
+
+        }
+        
+        $path = $path . shift(@nodes);
+        return $path;
+}
+
+$dir = dirname($newpath);
+$fname = basename($newpath);
+
+surePathToFile($newpath);
+
+if(not open(OUF, ">$newpath")) {
+	print "Cannot write to $newpath ... quitting\n";
+	exit();
+}
+
+# Make the directory if we have to
+
+
+print OUF <<"HERE";
+# This file is just a pointer to the file
+#
+# "Library/$existpath"
+#
+# You may want to change your problem set to use that problem
+# directly, especially if you want to make a copy of the problem
+# for modification.
+
+DOCUMENT();
+includePGproblem("Library/$existpath");
+ENDDOCUMENT();
+
+## These tags keep this problem from being added to the NPL database
+## 
+## DBsubject('ZZZ-Inserted Text')
+## DBchapter('ZZZ-Inserted Text')
+## DBsection('ZZZ-Inserted Text')
+
+HERE
+
+close(OUF);
+
+#system("cvs add $newpath");
+