# HG changeset patch
# User Jaroslav Tulach <jtulach@netbeans.org>
# Date 1259262416 -3600
# Node ID ac818c32c6e9ce95ad872d25d214120f287fad71
# Parent  07e3bcb65c1d303df62fc4689ff31274fb4d8592
Scala version of an emailer. So far it finds the lazy players. It needs to send them email yet.

diff -r 07e3bcb65c1d -r ac818c32c6e9 emailer/pom.xml
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/emailer/pom.xml	Thu Nov 26 20:06:56 2009 +0100
@@ -0,0 +1,98 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<project xsi:schemaLocation="http://maven.apache.org/POM/4.0.0 http://maven.apache.org/xsd/maven-4.0.0.xsd" xmlns="http://maven.apache.org/POM/4.0.0"
+    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+  <modelVersion>4.0.0</modelVersion>
+  <parent>
+    <artifactId>all-quoridor</artifactId>
+    <groupId>org.apidesign</groupId>
+    <version>1.0</version>
+  </parent>
+  <groupId>org.apidesign</groupId>
+  <artifactId>emailer</artifactId>
+  <version>1.0</version>
+  <inceptionYear>2008</inceptionYear>
+  <build>
+    <sourceDirectory>src/main/scala</sourceDirectory>
+    <testSourceDirectory>src/test/scala</testSourceDirectory>
+    <plugins>
+      <plugin>
+        <groupId>org.scala-tools</groupId>
+        <artifactId>maven-scala-plugin</artifactId>
+        <executions>
+          <execution>
+            <goals>
+              <goal>compile</goal>
+              <goal>testCompile</goal>
+            </goals>
+          </execution>
+        </executions>
+        <configuration>
+          <scalaVersion>${scala.version}</scalaVersion>
+          <args>
+            <arg>-target:jvm-1.5</arg>
+          </args>
+        </configuration>
+      </plugin>
+    </plugins>
+  </build>
+  <repositories>
+    <repository>
+      <id>scala-tools.org</id>
+      <name>Scala-Tools Maven2 Repository</name>
+      <url>http://scala-tools.org/repo-releases</url>
+    </repository>
+  </repositories>
+  <pluginRepositories>
+    <pluginRepository>
+      <id>scala-tools.org</id>
+      <name>Scala-Tools Maven2 Repository</name>
+      <url>http://scala-tools.org/repo-releases</url>
+    </pluginRepository>
+  </pluginRepositories>
+  <dependencies>
+    <dependency>
+      <groupId>org.scala-lang</groupId>
+      <artifactId>scala-library</artifactId>
+      <version>${scala.version}</version>
+    </dependency>
+    <dependency>
+      <groupId>junit</groupId>
+      <artifactId>junit</artifactId>
+      <version>4.4</version>
+      <scope>test</scope>
+    </dependency>
+    <dependency>
+      <groupId>org.specs</groupId>
+      <artifactId>specs</artifactId>
+      <version>1.2.5</version>
+      <scope>test</scope>
+    </dependency>
+    <!--
+    <dependency>
+      <groupId>javax.mail</groupId>
+      <artifactId>mail</artifactId>
+      <version>1.4.2</version>
+    </dependency>
+    -->
+  </dependencies>
+  <reporting>
+    <plugins>
+      <plugin>
+        <groupId>org.scala-tools</groupId>
+        <artifactId>maven-scala-plugin</artifactId>
+        <configuration>
+          <scalaVersion>${scala.version}</scalaVersion>
+        </configuration>
+      </plugin>
+    </plugins>
+  </reporting>
+  <properties>
+    <scala.version>2.7.0</scala.version>
+  </properties>
+    <name>Emails lazy players</name>
+    <packaging>jar</packaging>
+    <description>Obtains list of players without any activity for a while and sends them an email.</description>
+</project>
+
+
+
diff -r 07e3bcb65c1d -r ac818c32c6e9 emailer/src/main/scala/cz/xelfi/quoridor/emailer/Main.scala
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/emailer/src/main/scala/cz/xelfi/quoridor/emailer/Main.scala	Thu Nov 26 20:06:56 2009 +0100
@@ -0,0 +1,111 @@
+/*
+ * 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
+
+object Main {
+  def main(args: Array[String]) {
+    val api = new URL("http://quoridor.xelfi.cz/api/");
+
+    val id = login(api, "emailer", "otravuj")
+    Console.println("id: " + id)
+    
+    val ret = allPlayers(
+      api,
+      3600 * 1000 * 24
+    )
+    for (val address <- emails(api, id, ret.keySet)) {
+        Console.println(address)
+    }
+  }
+
+  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
+  }
+}
diff -r 07e3bcb65c1d -r ac818c32c6e9 emailer/src/test/scala/cz/xelfi/quoridor/emailer/MainTest.scala
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/emailer/src/test/scala/cz/xelfi/quoridor/emailer/MainTest.scala	Thu Nov 26 20:06:56 2009 +0100
@@ -0,0 +1,17 @@
+package cz.xelfi.quoridor.emailer
+
+import org.junit._
+import Assert._
+
+@Test
+class AppTest {
+
+    @Test
+    def testOK() = assertTrue(true)
+
+//    @Test
+//    def testKO() = assertTrue(false)
+
+}
+
+
diff -r 07e3bcb65c1d -r ac818c32c6e9 emailer/src/test/scala/cz/xelfi/quoridor/emailer/MySpec.scala
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/emailer/src/test/scala/cz/xelfi/quoridor/emailer/MySpec.scala	Thu Nov 26 20:06:56 2009 +0100
@@ -0,0 +1,17 @@
+package org.apidesign.emailer
+
+import org.specs._
+import org.specs.runner.{ConsoleRunner, JUnit4}
+
+class MySpecTest extends JUnit4(MySpec)
+//class MySpecSuite extends ScalaTestSuite(MySpec)
+object MySpecRunner extends ConsoleRunner(MySpec)
+
+object MySpec extends Specification {
+  "This wonderful system" should {
+    "save the world" in {
+      val list = Nil
+      list must beEmpty
+    }
+  }
+}
diff -r 07e3bcb65c1d -r ac818c32c6e9 pom.xml
--- a/pom.xml	Thu Nov 19 09:35:29 2009 +0100
+++ b/pom.xml	Thu Nov 26 20:06:56 2009 +0100
@@ -38,6 +38,7 @@
     <module>visidor</module>
     <module>webidor</module>
     <module>freemarkerdor</module>
+    <module>emailer</module>
   </modules>
     <name>Quoridor related projects</name>
     <description>Master project that agregates all quoridor related functionality.