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 .

}