# HG changeset patch
# User Jaroslav Tulach <jaroslav.tulach@apidesign.org>
# Date 1259519762 -3600
# Node ID 0d90e4cb917504ee31b46d3f9bbc20574dce162d
# Parent  e3d6e326eac14629c10b7b823123bdb2d284027f# Parent  0e8b21fcaeb0ae72d0f5413f2d6233273f3ee9c8
Merging the scala-emailer to default branch as things seem to work OK.

diff -r e3d6e326eac1 -r 0d90e4cb9175 emailer/all-zip.xml
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/emailer/all-zip.xml	Sun Nov 29 19:36:02 2009 +0100
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<assembly>
+ <id>all</id>
+  <formats>
+    <format>zip</format>
+  </formats>
+  <dependencySets>
+    <dependencySet>
+        <useProjectArtifact>false</useProjectArtifact>
+        <outputDirectory>lib</outputDirectory>
+    </dependencySet>
+  </dependencySets>
+  <files>
+    <file>
+      <source>target/emailer-${version}.jar</source>
+      <outputDirectory>/</outputDirectory>
+    </file>
+  </files>
+</assembly>
diff -r e3d6e326eac1 -r 0d90e4cb9175 emailer/pom.xml
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/emailer/pom.xml	Sun Nov 29 19:36:02 2009 +0100
@@ -0,0 +1,128 @@
+<?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>
+      <plugin>
+          <artifactId>maven-assembly-plugin</artifactId>
+          <version>2.2-beta-2</version>
+          <executions>
+              <execution>
+                  <id>create-executable-jar</id>
+                  <phase>package</phase>
+                  <goals>
+                      <goal>single</goal>
+                  </goals>
+                  <configuration>
+                      <descriptors>
+                          <descriptor>all-zip.xml</descriptor>
+                      </descriptors>
+                      <finalName>emailer-${version}</finalName>
+                  </configuration>
+              </execution>
+          </executions>
+      </plugin>
+      <plugin>
+          <groupId>org.apache.maven.plugins</groupId>
+          <artifactId>maven-jar-plugin</artifactId>
+          <configuration>
+              <archive>
+                  <manifest>
+                      <addClasspath>true</addClasspath>
+                      <classpathPrefix>lib/</classpathPrefix>
+                      <mainClass>cz.xelfi.quoridor.emailer.Main</mainClass>
+                  </manifest>
+              </archive>
+          </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.1</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 e3d6e326eac1 -r 0d90e4cb9175 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	Sun Nov 29 19:36:02 2009 +0100
@@ -0,0 +1,133 @@
+/*
+ * 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]) {
+    if (args == null || args.size != 4) {
+      Console.println("Usage: emailer.jar <quoridor API URL> <login name> <password> <smtp server IP>")
+      return
+    }
+
+    val api = new URL(args(0));
+
+    val id = login(api, args(1), args(2))
+    
+    val ret = allPlayers(
+      api,
+      3600 * 1000 * 24
+    )
+
+    val props = java.lang.System.getProperties
+    props.put("mail.smtp.host", args(3));
+
+    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
+  }
+}
diff -r e3d6e326eac1 -r 0d90e4cb9175 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	Sun Nov 29 19:36:02 2009 +0100
@@ -0,0 +1,41 @@
+/*
+ * 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 org.junit._
+import Assert._
+
+@Test
+class MainTest {
+
+    @Test
+    def testCheckLazyPlayers() = {
+      Main.main(null)
+    }
+}
+
+
diff -r e3d6e326eac1 -r 0d90e4cb9175 pom.xml
--- a/pom.xml	Sun Nov 29 09:12:55 2009 +0100
+++ b/pom.xml	Sun Nov 29 19:36:02 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.