X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=Commands%2FMembers.pm;h=1a759b7495348a9cb08cee7003f5988e821fb974;hb=ae37bc6b64270f8c65298a36fce1f4bad761231f;hp=a2f54eeb061e3990fdce93eb577609e608ff83b0;hpb=66ce902aff4400269e2c2de3b9dbeee61448e3d5;p=NDIRC.git
diff --git a/Commands/Members.pm b/Commands/Members.pm
index a2f54ee..1a759b7 100644
--- a/Commands/Members.pm
+++ b/Commands/Members.pm
@@ -35,11 +35,10 @@ sub def
SELECT (c.landing_tick - tick()) AS eta, concat(i.shiptype||'/') AS shiptype
, dc.username
FROM calls c
- JOIN incomings i ON i.call = c.id
+ JOIN incomings i USING (call)
LEFT OUTER JOIN users dc ON dc.uid = c.dc
- JOIN users u ON u.uid = c.member
-WHERE open AND (c.landing_tick - tick()) >= 7
-GROUP BY c.id,c.landing_tick,dc.username
+WHERE status = 'Open' AND (c.landing_tick - tick()) >= 7
+GROUP BY call,c.landing_tick,dc.username
ORDER BY c.landing_tick;
});
$f->execute();
@@ -107,13 +106,47 @@ 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("$username has sms $sms");
+ 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("$username has sms $sms, $call, $time ($timezone), $note ");
}else{
$c->reply("No hit, maybe spelling mistake, or add % as wildcard");
}
}
+sub links
+ : Help(Shows link to webbie and maybe more links later)
+{
+ my ($self,$c,$msg) = @_;
+ $c->reply("https://nd.ruin.nu/");
+}
+
+sub forum
+ : Help(syntax: .forum [nick] | not everyone have access to check for others.)
+{
+ my ($self,$c,$msg) = @_;
+ my $dbh = $c->model;
+
+ my $user;
+ if ($msg =~ /(\S+)/ && $c->check_user_roles('irc_forum_others')){
+ $user = $dbh->selectrow_hashref(q{
+SELECT uid,username FROM users WHERE username ILIKE ?
+ }, undef, $1);
+ }else{
+ $user = $dbh->selectrow_hashref(q{
+SELECT uid,username FROM users WHERE hostmask ILIKE ?
+ }, undef, $c->host);
+ }
+ if ($user){
+ my $unread = $dbh->selectrow_hashref(q{SELECT * FROM unread_posts($1)},undef,$user->{uid});
+ if ($unread){
+ $c->reply("$user->{username} has $unread->{new} posts since your last forum visit ($unread->{unread} unread posts in total) https://nd.ruin.nu/forum/allUnread");
+ }
+ }
+}
+
1;