Converted the .forum command

[NDIRC.git] / Commands / Members.pm

diff --git a/Commands/Members.pm b/Commands/Members.pm
index a2f54eeb061e3990fdce93eb577609e608ff83b0..34ef7d605028efa790c8935fdf336a976019b3dc 100644 (file)
--- a/Commands/Members.pm
+++ b/Commands/Members.pm
@@ -116,4 +116,35 @@ SELECT username,COALESCE(sms,'nothing added') FROM users WHERE username ILIKE ?
        }
 }
 
+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;