[LON-CAPA-cvs] cvs: loncom /build piml_parse.pl

[matthew]

matthew		Tue Nov 26 10:25:21 2002 EDT

  Modified files:              
    /loncom/build	piml_parse.pl 
  Log:
  Documentation changes - it's always nice to see how things really work
  instead of how they claim to work.  Fixed bug which caused abortion when
  all four possible arguements were provided.
  
  
Index: loncom/build/piml_parse.pl
diff -u loncom/build/piml_parse.pl:1.7 loncom/build/piml_parse.pl:1.8
--- loncom/build/piml_parse.pl:1.7	Mon Apr  8 08:51:03 2002
+++ loncom/build/piml_parse.pl	Tue Nov 26 10:25:21 2002
@@ -8,7 +8,7 @@
 # The LearningOnline Network with CAPA
 # piml_parse.pl - Linux Packaging Markup Language parser
 #
-# $Id: piml_parse.pl,v 1.7 2002/04/08 12:51:03 harris41 Exp $
+# $Id: piml_parse.pl,v 1.8 2002/11/26 15:25:21 matthew Exp $
 #
 # Written by Scott Harrison, codeharrison@yahoo.com
 #
@@ -66,11 +66,12 @@
 my $usage=(<<END);
 **** ERROR ERROR ERROR ERROR ****
 Usage is for piml file to come in through standard input.
-1st argument is the category permissions to use (runtime or development)
-2nd argument is the distribution (default,redhat6.2,debian2.2,redhat7.1,etc).
-3rd argument is to manually specify a targetroot
+1st is install, configinstall, or build
+2st argument is the category permissions to use (runtime or development)
+3nd argument is the distribution (default,redhat6.2,debian2.2,redhat7.1,etc).
+4rd argument is to manually specify a targetroot
 
-Only the 1st argument is mandatory for the program to run.
+The first 3 arguments are required for the program to run.
 
 Example:
 
@@ -81,7 +82,7 @@
 # ------------------------------------------------- Grab command line arguments
 
 my $mode;
-if (@ARGV==3) {
+if (@ARGV>=3) {
     $mode = shift @ARGV;
 }
 else {