#! /usr/bin/perl


###############################################################################
#
# Fix mistakes from previous versions
#
$gnatsdir   = "/usr/lib/gnats";					# provided by 'init'
$gnatsdbpar = "/var/lib/gnats";					# provided by 'init'
$gnatsdbdir = "$gnatsdbpar/gnats-db";			# provided by 'init'

$baddir = "$gnatsdir/gnats-db";
if (-d $baddir) {
	print "- A previous version put the gnats database under $baddir\n";
	system "mkdir -p $gnatsdbpar";
	chown $gnatsid,$gnatsgid, $gnatsdbpar;
	if (rename($baddir,$gnatsdbdir)) {
		print "  It has now been moved to $gnatsdbdir\n";
	} else {
		print "  You must move it to $gnatsdbdir\n";
		$waitcr = 1;
	}
}

$baddir = "/var/gnats-db";
if (-d $baddir) {
	print "- A previous version put the gnats database under $baddir\n";
	system "mkdir -p $gnatsdbpar";
	chown $gnatsid,$gnatsgid, $gnatsdbpar;
	if (rename($baddir,$gnatsdbdir)) {
		print "  It has now been moved to $gnatsdbdir\n";
	} else {
		print "  You must move it to $gnatsdbdir\n";
		$waitcr = 1;
	}
}
