# 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;