From 777101d1fc654a7d592bd77f8c6dccf281303f21 Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Mon, 1 Jan 2007 21:24:16 +0000
Subject: [PATCH] bugfix

---
 main.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/main.pl b/main.pl
index 57dc9ff..345b1be 100644
--- 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 = ?)
-- 
2.39.2