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

print "DELETE FROM u5_psm WHERE galaxy=? AND system=?;";