rackey

#lang racket

(require web-server/servlet
         web-server/servlet-env)
(require net/uri-codec)

(require db)
(define pgc
(mysql-connect #:user "root"
           #:password "root"
           #:database "worldcup"
           #:server "localhost"  )
 )

 (define (world-cup req)

  (define uri(request-uri req))

  (define path (map path/param-path (url-path uri)))

  (define page (car path ))

  (cond
    [(equal? page "index") ; pagina 1

     (response/xexpr
      `(html
        (head (title "World Cup Simulation - Icaro e Eduardo"))
        (body (center(h1  "World Cup Simulation")
               (center(h3 "Programação Lógica e Funcional"))
           (p "Alunos: Ícaro Peretti e Eduardo Rampon Meireles")
           (center(h2 "Cadastro de times"))
           ;envia os dados do form via post para a pagina de registro
           (form ([method "POST"] [action "/register-team"])
                "Nome do time: " (input ([type "text"] [name "nome"]))
                (br)
                (br)
               (input ([type "submit"] [value "Cadastrar"])))))))]

      [(equal? page "register-team")

       (define post-data (bytes->string/utf-8 (request-post-data/raw req)))

        ; convert to an alist:
        (define form-data (form-urlencoded->alist post-data))

        ; pull out the team name:
        (define teamName  (cdr (assq 'nome form-data)))


        ; insert to database:
       (query-exec pgc
        "insert into teams (nome) values (?)"
        (list teamName))




    (response/xexpr
      `(html
        (body
         (p "Your team name is: " ,teamName)
         )))]
  )

 )



 (serve/servlet world-cup
                #:servlet-path "/index"
                #:port 8001 ;porta que a pagina ira rodar
                #:servlet-regexp #rx""
)