my $sth;
	if ($runner >= 15) {
		$sth = $dbh->prepare("DELETE FROM u5_psm WHERE galaxy=? AND system=?;");
		$sth->execute($gal, $sys);
	
		foreach my $planet (sort {int $a <=> int $b} keys %sys) {
			$sth = $dbh->prepare("INSERT INTO u5_psm SET last_update=NOW(), planet='$planet', "
			  . join(", ", map {$_."='".$sys{$planet}{$_}."'"} sort keys %{$sys{$planet}}) . ";");
			$sth->execute();
			print "INSERT INTO u5_psm SET planet='$planet', ". join(", ", map {$_."='".$sys{$planet}{$_}."'"} sort keys %{$sys{$planet}}) . ";";
		}	
	}
	return (scalar keys %sys > 0 ? 0 : 4);
}

sub translate {
	my $what = shift;
	if (defined($config{'TRANSLATE'}{$what})) {
		return $config{'TRANSLATE'}{$what};
	} else {
		return $what;
	}
}