From 0d6e6e233601ba9b1dd9fe874e804424a10fa09c Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Tue, 4 Aug 2009 23:56:44 +0200
Subject: [PATCH] More info with .sms

---
 Commands/Members.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/Commands/Members.pm b/Commands/Members.pm
index 34ef7d6..44cfe79 100644
--- a/Commands/Members.pm
+++ b/Commands/Members.pm
@@ -107,10 +107,13 @@ sub sms
 	my ($self,$c,$msg) = @_;
 	my ($nick) = $msg =~ /(\S+)/ or die 'ARGS';
 	my $f = $c->model->prepare(q{
-SELECT username,COALESCE(sms,'nothing added') FROM users WHERE username ILIKE ?
+SELECT username,COALESCE(sms,'nothing added'), call_if_needed, timezone, sms_note
+	,to_char(NOW() AT TIME ZONE timezone,'HH24:MI') AS time
+FROM users WHERE username ILIKE ?
 		});
-	if (my ($username,$sms) = $c->model->selectrow_array($f,undef,$nick)){
-		$c->reply("<b>$username</b> has sms <b>$sms</b>");
+	if (my ($username,$sms, $call, $timezone, $note, $time) = $c->model->selectrow_array($f,undef,$nick)){
+		$call = $call ?  'Wake up if needed' : 'Do not wake up';
+		$c->reply("<b>$username</b> has sms <b>$sms</b>, $call, <b>$time</b> ($timezone), $note ");
 	}else{
 		$c->reply("No hit, maybe spelling mistake, or add % as wildcard");
 	}
-- 
2.39.2