From: Stephen L Johnson Date: Fri, 8 Aug 2003 20:37:38 +0000 (+0000) Subject: added confirmation of Spong VAR directory value to warning message X-Git-Tag: spong-2_8_0-beta1~28 X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7cb34a4bf8133849d1017f081abc04e3d7ace1d8;p=spong.git added confirmation of Spong VAR directory value to warning message --- diff --git a/utils/convert-history b/utils/convert-history index b2f097d..0e10556 100755 --- a/utils/convert-history +++ b/utils/convert-history @@ -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 = ; -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;