portindex -a should also require -o

[michaelm@…]

Making a portindex in the dports directory with the -a flag for archives doesn't make an index that works remotely. -a should imply -o with a sensible default (if we can think of one) or require -o explicitly

[landonf@…]

Index: portindex.tcl
===================================================================
RCS file: /cvs/od/proj/darwinports/base/src/port/portindex.tcl,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -b -r1.11 -r1.12
--- portindex.tcl       13 Oct 2002 10:24:52 -0000      1.11
+++ portindex.tcl       8 Dec 2002 14:35:15 -0000       1.12
@@ -12,7 +12,7 @@
 proc print_usage args {
     global argv0
     puts "Usage: $argv0 \[-a\] \[-o output directory\] \[directory\]"
-    puts "-a:\tArchive port directories (for remote sites)"
+    puts "-a:\tArchive port directories (for remote sites). Requires -o option"
     puts "-o:\tOutput all files to specified directory"
 }
 
@@ -88,6 +88,13 @@
        default { set directory $arg }
     }
 }
+
+if {$archive == 1 && ![info exists outdir]} {
+   puts "You must specify an output directory with -o when using the -a option"
+   print_usage
+   exit 1
+}
+
 if {![info exists directory]} {
     set directory .
 }