Basic conversion to POE::Component::IRC

[NDIRC.git] / Commands / SMS.pm

diff --git a/Commands/SMS.pm b/Commands/SMS.pm
index 1b28dc71f094b157c1879ad78ab084317b8fa73a..bc0200c08403007300dfccfcc4adb6cda19a59af 100644 (file)
--- a/Commands/SMS.pm
+++ b/Commands/SMS.pm
@@ -43,8 +43,10 @@ sub sendsms
        if ($number =~ /^\+([1-9]\d+)$/){
                $number = $1;
        }else{
-               my ($sms) = $dbh->selectrow_array(q{SELECT sms FROM users WHERE username ilike $1}
-                       ,undef,$number);
+               my ($sms) = $dbh->selectrow_array(q{
+SELECT sms FROM users WHERE username ilike $1
+       AND uid IN (SELECT uid FROM groupmembers WHERE gid = 'M')
+                       },undef,$number);
                $sms //= 'No number, or invalid user';
                if ($sms =~ /^\+([1-9]\d+)$/){
                        $number = $1;