apeyroux

object rio2ter extends App {

  var lResultMySQL = List("PA0001", "PA0002", "PA0003", "PA0004", "PA005")
  var lTypeZone = List("zsp", "csp", "ddsp")
  var wsRio = new scala.util.Random;

  def mysql2lcodedialog(typeZone:String) = {
    def query(typeZone:String) = "SELECT idRio from ".concat(typeZone)
    println("Faire la requette : " + query(typeZone) + " puis en retourner la liste de code dialog.")
    lResultMySQL.foreach(r => r.concat(typeZone))

apeyroux

import Text.ParserCombinators.Parsec
import Control.Applicative
import System.Environment
import Data.Function
import Data.List

data LogLine = LogLine {
      getIP     :: String
    , getIdent  :: String
    , getUser   :: String

apeyroux

import HSlippyMap

main = do                                                                             
  mapM (\(x,y) -> mapM (\y'-> print $ "http://openstreetmap.asi.mi/" ++ show z ++ "/" ++ show x ++ "/" ++ show y' ++ ".png") y) [(x,\
[(minimum [tymin, tymax])..(maximum [tymin,tymax])]) | x <- [(minimum [txmin, txmax])..(maximum [txmin, txmax])]]
  where
      min = tileFromLatLong 49.13 3.05 8
      max = tileFromLatLong 48.57 1.66 8
      txmin = tx min
      txmax = tx max

apeyroux

{--
Bessans :
                min = tileFromLatLong 45.32 6.98 19
                max = tileFromLatLong 45.31 7.01 19  
--}

import HSlippyMap
import Network.Curl

lbbox = [[(49.13, 3.05),(48.57,1.66)]]

apeyroux

#!/usr/local/bin/runhaskell

import HSlippyMap

listLevel mi ma z = 
  mapM_ (\(x,y) -> mapM (\y'-> 
      print $ "http://127.0.0.1:20008/tile/openstreetmap-carto/" ++ show z ++ "/" ++ show x ++ "/" ++ show y' ++ ".png") y) 
      [(x,[(minimum [tymin, tymax])..(maximum [tymin,tymax])]) | x <- [(minimum [txmin, txmax])..(maximum [txmin, txmax])]]
  where
    min = tileFromLatLong (fst mi) (snd mi) z

apeyroux

import Network.Curl
import System.IO
import Data.List

main = do
    h <- openBinaryFile "lrues.txt" ReadMode 
    c <- hGetContents h
    mapM (\x -> do
        resp <- (curlGetResponse_ ("http://10.192.45.36/JDONREFv3JSON/Normalise?application=2&services=1&operation=1&donnees=&donnees=appartement%200%20entr%C3%A9e%20B&donnees=&donnees=24-26%20ter%20rue%20d" ++ x) [] :: IO CurlResponse)
        r <- (respGetInfo resp TotalTime)

apeyroux

(mapM (\l -> putStr ("Point for " ++ show l ++ " ? : ") >> getLine >>= (\p -> return (read p::Int))) "mot") >>= return . foldr (+) 0 >>= (\x->do r<-(putStr "Bonus coef ? : " >> getLine >>= (\b -> return (read b::Int))); print $ r*x)

apeyroux

-- | URL Doc : http://hackage.haskell.org/package/url-2.1.3/docs/Network-URL.html
module Page where

import Network.URL
import Network.Curl
import Text.XML.HXT.Core
import Text.HandsomeSoup

data Page = Page {
  title :: String,

apeyroux

// Server 

var http = require('http');
var fs = require('fs');
var redis = require('redis').createClient(6379, "10.73.0.1");

// Chargement du fichier index.html affiché au client
var server = http.createServer(function(req, res) {
    fs.readFile('./index.html', 'utf-8', function(error, content) {
        res.writeHead(200, {"Content-Type": "text/html"});

apeyroux

package main

import (
	"bytes"
	"encoding/json"
	"fmt"
	"io/ioutil"
	"net/http"
	"net/url"
	"os"