bugfix

[ndwebbie.git] / main.pl

diff --git a/main.pl b/main.pl
index 57dc9ff1f86eb0e1df8fae254affc2090cbe53f7..345b1bea4dd112d8791ca13a3d55dcf889d56b4b 100644 (file)
--- a/main.pl
+++ b/main.pl
@@ -80,7 +80,7 @@ if (param('sms')){
        my $query = $DBH->prepare('UPDATE users SET sms = ? WHERE uid = ?');
        $query->execute(escapeHTML(param('sms')),$ND::UID);
 }
-if (isMember() && !$ND::PLANET && (param('planet') =~ m/(\d+)(?: |:)(\d+)(?: |:)(\d+)/)){
+if (isMember() && !$ND::PLANET && defined param('planet') && (param('planet') =~ m/(\d+)(?: |:)(\d+)(?: |:)(\d+)/)){
        my $query = $DBH->prepare(q{
 UPDATE users SET planet = 
        (SELECT id from current_planet_stats where x = ? AND y = ? AND z = ?)