Remove some join annoucements

diff --git a/Delling.pm b/Delling.pm
index bed84f4bf3843cf3c3e2a2450aeab82603aee99a..c6d06fa1ac500ccaf92e14c5efed3476c99bb5b1 100644 (file)
--- a/Delling.pm
+++ b/Delling.pm
@@ -117,18 +117,6 @@ FROM users u WHERE hostmask = ?
                        unless ($user->{password}) {
                                $irc->yield(privmsg => $channel, "$nick: Get a new random password with /msg delling !getpass . If you don't know your username, then you can get it with .points");
                        }
-                       if ($tick > 12 && not defined $user->{pid}){
-                               $irc->yield(privmsg => $channel, "$nick: go to https://nd.ruin.nu/ and enter your coords.");
-                       }
-
-                       if (not defined $user->{last_forum_visit}){
-                               $irc->yield(privmsg => $channel, "$nick: Go read the forum! https://nd.ruin.nu/forum");
-                       }else {
-                               my $unread = $dbh->selectrow_hashref(q{SELECT * FROM unread_posts($1)},undef,$user->{uid});
-                               if ($unread && $unread->{new}){
-                                       $irc->yield(notice => $nick, "$unread->{new} posts since your last forum visit ($unread->{unread} unread posts in total) https://nd.ruin.nu/forum/allUnread");
-                               }
-                       }
                }
                if (time - $last_announcement < 2){
                        $last_announcement = time;