/*

 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.

 *

 * The contents of this file are subject to the terms of either the GNU

 * General Public License Version 2 only ("GPL") or the Common

 * Development and Distribution License("CDDL") (collectively, the

 * "License"). You may not use this file except in compliance with the

 * License. You can obtain a copy of the License at

 * http://www.netbeans.org/cddl-gplv2.html

 * or nbbuild/licenses/CDDL-GPL-2-CP. See the License for the

 * specific language governing permissions and limitations under the

 * License.  When distributing the software, include this License Header

 * Notice in each file and include the License file at

 * nbbuild/licenses/CDDL-GPL-2-CP.  Sun designates this

 * particular file as subject to the "Classpath" exception as provided

 * by Sun in the GPL Version 2 section of the License file that

 * accompanied this code. If applicable, add the following below the

 * License Header, with the fields enclosed by brackets [] replaced by

 * your own identifying information:

 * "Portions Copyrighted [year] [name of copyright owner]"

 *

 * Contributor(s):

 *

 * Portions Copyrighted 2009 Jaroslav Tulach

 */

package cz.xelfi.quoridor.emailer

import scala.xml._

import java.net.URL

import scala.io._

import scala.collection.Map

import scala.collection.mutable.HashMap

import javax.mail.internet._

import javax.mail.Message

import javax.mail.Transport

object Main {

  def main(args: Array[String]) {

    val api = new URL("http://quoridor.xelfi.cz/api/");

    val id = login(api, "emailer", "otravuj")

    val ret = allPlayers(

      api,

      3600 * 1000 * 24

    )

    val props = java.lang.System.getProperties

    props.put("mail.smtp.host", "192.168.1.1");

    val session = javax.mail.Session.getDefaultInstance(props, null)

    for (val address <- emails(api, id, ret.keySet)) {

        Console.println("Sending message to " + address)

        val message = new MimeMessage(session)

        message.setFrom(new InternetAddress("quoridor@xelfi.cz"))

        message.addRecipient(Message.RecipientType.TO, new InternetAddress(address))

        message.setSubject("Play Quoridor!")

        message.setText("Visit http://quoridor.xelfi.cz")

        Transport.send(message)

    }

  }

  def login(url : URL, name : String, password : String) : String = {

    val u = new URL(url, "login?name=" + name + "&password=" + password);

    val conn = u.openConnection.asInstanceOf[java.net.HttpURLConnection]

    conn.setRequestMethod("PUT")

    conn.setDoInput(true)

    conn.connect

    val reply = Source.fromInputStream(conn.getInputStream)

    return reply.mkString("")

  }

  def allPlayers(url : URL, okDelay : Long): Map[String,List[Node]] = {

    val u = new URL(url, "games");

    val conn = u.openConnection

    conn.setRequestProperty("Accept", "text/xml")

    val ret = new HashMap[String,List[Node]]

    val before = System.currentTimeMillis - okDelay

    val games = XML.load(conn.getInputStream)

    for (val g : Node <- games \\ "gameId") {

      val modified = (g \\ "@modified").text.toLong

      if (modified < before) {

        val status = (g \\ "@status").text;

        val name =

          if (status == "blackMove") {

            (g \\ "@black").text

          } else if (status == "whiteMove") {

            (g \\ "@white").text

          } else {

            null

          }

        if (name != null) {

          val prev = ret.getOrElse(name, Nil)

          val next = g :: prev

          ret.put(name, next);

        }

      }

    }

    return ret;

  }

  def emails(url : URL, loginID : String, ids : Collection[String]): List[String] = {

    var ret : List[String] = Nil;

    for (val p <- ids) {

      val u = new URL(url, "users/" + p + "?loginID=" + loginID)

      val conn = u.openConnection

      conn.setRequestProperty("Accept", "text/xml")

      val xml = XML.load(conn.getInputStream)

      val res = (xml \\ "property").filter({

          n => n.attribute("name") match {

            case Some(attr) => attr.text == "email"

            case _ => false

          }

      })

      if (!res.isEmpty) {

        ret = res(0).text :: ret;

      }

    }

    return ret

  }

}