guilespi

Datomic pro with Postgresql Setup

Prep

• Get evaluation license key : http://my.datomic.com/eval/request
• Download pro version : http://downloads.datomic.com/pro.html

Setups

1. Dev mode setup

guilespi

(defn validate-mappings
  "Validates each mapped import is for an
   existent field in the specified company"
  [fields headers mappings]
  (letfn [(found? [list element] (< (.indexOf list element) 0))]
    (filter (fn [[header field]]
              (or (found? headers header)
                  (found? fields field)))
            mappings)))

guilespi

;; Datomic example code
(use '[datomic.api :only (db q) :as d])

;; ?answer binds a scalar
(q '[:find ?answer :in ?answer]
   42)

;; of course you can bind more than one of anything
(q '[:find ?last ?first :in ?last ?first]
   "Doe" "John")

guilespi

(defmethod validation/valid-field? :document-MX
  [{value :value}]
  (let [match (re-find #"(?i)(^[a-z]{2})([a-z])([a-z])(\d{6})(H|M)([a-z]{2})([a-z]{3})(\d{2})$" value)]
    match))

(defmethod validation/valid-field? :document-UY
  [{value :value}]
  (when-let [[_ number digit] (re-find #"^(\d{7})-(\d)$" value)]
    (let [m [2 9 8 7 6 3 4]
          c (map #(utils/str->int (str %)) number)

guilespi

Might also be the dv163 P1: http://help.dvr163.com/index.php/P1

Based on Ankya AK3918 HD IP Camera SoC http://caxapa.ru/thumbs/914089/ak3818ds.pdf http://caxapa.ru/thumbs/914089/ak3818ds.pdf

Firmware => Telnet/FTP

Check/download latest firmware (site blocked for malware in Chrome/Firefox) http://42.96.185.60:8088/XVR/common/checkCommonUpdate.php?DevModel=IPCAM&SWVersion=1.4.47.0&DeviceSN=F2731110583936&ODMNum=391802&FirmwareMagic=SlVBTiBJUENBTSBGSVJNV0FSRSBERVNJR05FRCBCWSBMQVc=&Release=1&app_version=2.3.13 Response: