hectorqlucero / cbc

Ciclismo BC

sk

A Clojure skeleton web application.

Pre-requisites

1. leiningen 2.0.0 or above installed
2. jdk8 or above
3. mySQL or MariaDB

Usage

1. Create a database "xxxxxxxxxx" in mySQL or MariaDB. Note: "xxxxxxxxxx" refers to what you will call your database, so replace with your database name created.
2. Clone the repository
3. Copy resources/private/config_example to config.clj and change all of the "xxxxxxxxxx" to what applies to you setup Example of resources/private/config_example.clj

{:db-protocol    "mysql"
:db-name        "//localhost:3306/xxxxxxxxxxx?characterEncoding=UTF-8"
:db-user        "root"
:db-pwd         "xxxxxxxxxx"
:db-class       "com.mysql.cj.jdbc.Driver"
:email-host     "smtp.gmail.com"
:email-user     "[email protected]"
:email-password "xxxxxxxxxx"
:port           3000
:tz             "US/Pacific"
:site-name      "xxxxxxxxxx"
:base-url       "http://0.0.0.0:3000/"
:uploads        "./uploads"
:path           "/uploads/"}

4. To create the tables needed you can find the information here:

   src/sk/models/cdb.clj

   Example of /src/sk/models.cdb.clj

    (ns sk.models.cdb
      (:require [sk.models.crud :refer :all]
                [noir.util.crypt :as crypt]))
   
   
    ;; Start users table
    (def users-sql
      "CREATE TABLE users (
      id int(11) NOT NULL AUTO_INCREMENT PRIMARY KEY,
      lastname varchar(45) DEFAULT NULL,
      firstname varchar(45) DEFAULT NULL,
      username varchar(45) DEFAULT NULL,
      password TEXT DEFAULT NULL,
      dob varchar(45) DEFAULT NULL,
      cell varchar(45) DEFAULT NULL,
      phone varchar(45) DEFAULT NULL,fax varchar(45) DEFAULT NULL,
      email varchar(100) DEFAULT NULL,
      level char(1) DEFAULT NULL COMMENT 'A=Administrador,U=Usuario,S=Sistema',
      active char(1) DEFAULT NULL COMMENT 'T=Active,F=Not active'
      ) ENGINE=InnoDB DEFAULT CHARSET=utf8")
   
    (def users-rows
      [{:lastname  "User"
        :firstname "Regular"
        :username  "[email protected]"
        :password  (crypt/encrypt "user")
        :dob       "1957-02-07"
        :email     "[email protected]"
        :level     "U"
        :active    "T"}
      {:lastname "User"
        :firstname "Admin"
        :username "[email protected]"
        :password (crypt/encrypt "admin")
        :dob "1957-02-07"
        :email "[email protected]"
        :level "S"
        :active "T"}])
    ;; End users table
   
    (defn create-database []
      "Create database tables and default admin users
      Note: First create the database on MySQL with any client"
      (Query! db users-sql)
      (Query! db "LOCK TABLES users WRITE;")
      (Insert-multi db :users users-rows)
      (Query! db "UNLOCK TABLES;"))
   
    (defn reset-database []
      "Removes existing tables and re-creates them"
      (Query! db "DROP table IF EXISTS users")
      (Query! db users-sql)
      (Query! db "LOCK TABLES users WRITE;")
      (Insert-multi db :users users-rows))
   
    (defn migrate [])
   

Running

Go to project directory and type: Lein run

License

Copyright © 2019 LS

This program and the accompanying materials are made available under the terms of the Eclipse Public License 2.0 which is available at http://www.eclipse.org/legal/epl-2.0.

This Source Code may also be made available under the following Secondary Licenses when the conditions for such availability set forth in the Eclipse Public License, v. 2.0 are satisfied: GNU General Public License as published by the Free Software Foundation, either version 2 of the License, or (at your option) any later version, with the GNU Classpath Exception which is available at https://www.gnu.org/software/classpath/license.html.