]> git.etc.gen.nz Git - spong.git/commitdiff
added confirmation of Spong VAR directory value to warning message
authorStephen L Johnson <sjohnson@monsters.org>
Fri, 8 Aug 2003 20:37:38 +0000 (20:37 +0000)
committerStephen L Johnson <sjohnson@monsters.org>
Fri, 8 Aug 2003 20:37:38 +0000 (20:37 +0000)
utils/convert-history

index b2f097d0253cb09bffb985f4668f2f0b4312a511..0e10556b21fb51b2ded5e54e20a8a94a86cabc45 100755 (executable)
@@ -9,18 +9,26 @@
 #      history    -> history file
 #      status/    -> status data for events
 #
-# $Id: convert-history,v 1.1 2002/12/17 21:22:34 sljohnson Exp $
+# $Id: convert-history,v 1.2 2003/08/08 20:37:38 sljohnson Exp $
 
 use strict;   # strict compiler
 $|++;         # disable buffering for stdin
 
-print "This utility will convert the Spong History files into the new format/\n";
-print "This utility should be run as the spong user in order to maintain ";
-print "proper ownerships.\n";
-print "\nPress enter to proceeded\n";
+my $VARDIR = "/usr/local/spong/var";
+
+print qq(
+This utility will convert the Spong History files into the new format.
+This utility should be run as the spong user in order to maintain 
+proper ownerships.
+
+The VAR directory is configured as $VARDIR
+If this not correct, stop the program with CTRL-C, and edit the \$VARDIR
+variable.
+
+Press enter to proceeded);
 my $t = <STDIN>;
 
-my $SPONG_ARCHIVE = "/usr/local/spong/var/archives";
+my $SPONG_ARCHIVE = "$VARDIR/archives";
 
 opendir(DIR,$SPONG_ARCHIVE) || die "Could not opendir $SPONG_ARCHIVE: $!";
 chdir $SPONG_ARCHIVE;