1 files changed, 8 insertions(+), 1 deletions(-)

M Main.hs

@@ 480,9 480,16 @@ viteltiy db chunks toVitelity toComponent componentHost = do
 	putStanza $ emptyPresence PresenceAvailable
 
 	forkXMPP $ forever $ flip catchError (liftIO . print) $ do
+		wait <- liftIO $ getStdRandom (randomR (400000,1500000))
 		stanza <- liftIO $ atomically $ readTChan toVitelity
+		forM_ (strNode <$> (jidNode =<< stanzaTo stanza)) $ \tel -> do
+			welcomed <- maybe False toEnum <$> liftIO (TC.runTCM $ TC.get db $ tcKey tel "welcomed")
+			when (not welcomed) $ do
+				putStanza $ mkSMS tel $ fromString "Welcome to CheoGram! You can chat with groups of your friends, right here by SMS. Send /help to learn more."
+				True <- liftIO (TC.runTCM $ TC.put db (tcKey tel "welcomed") (fromEnum True))
+				liftIO $ threadDelay wait
+
 		putStanza $ stanza
-		wait <- liftIO $ getStdRandom (randomR (400000,1500000))
 		liftIO $ threadDelay wait
 
 	forever $ flip catchError (liftIO . print) $ do