<commit_before>;; -*- mode: common-lisp; coding: utf-8 -*-
(in-package :hhub)
(clsql:file-enable-sql-reader-syntax)


;; You must set these variables to appropriate values.
(defvar *crm-database-type* :odbc
  "Possible values are :postgresql :postgresql-socket, :mysql,
:oracle, :odbc, :aodbc or :sqlite")
(defvar *crm-database-name* "DAIRYONDEMAND"
  "The name of the database we will work in.")
(defvar *crm-database-user* "TESTCRMCORE"
  "The name of the database user we will work as.")
(defvar *crm-database-server* "localhost"
  "The name of the database server if required")
(defvar *crm-database-password* "<PASSWORD>"
  "The password if required")
(defvar *dod-dbconn-spec* (list *crm-database-server* *crm-database-name* *crm-database-user* *crm-database-password*))


(defvar *HHUB-CUSTOMER-ORDER-CUTOFF-TIME* NIL)
(defvar *HHUB-DEMO-TENANT-ID* 2)

(defvar *HHUB-EMAIL-CSS-FILE* "/data/www/highrisehub.com/public/css")
(defvar *HHUB-EMAIL-CSS-CONTENTS* NIL)
(defvar *HHUB-EMAIL-TEMPLATES-FOLDER* "~/dairyondemand/hhub/email/templates")
(defvar *HHUB-CUST-REG-TEMPLATE-FILE* "cust-reg.html")
(defvar *HHUB-CUST-PASSWORD-RESET-FILE* "cust-pass-reset.html")
(defvar *HHUB-CUST-TEMP-PASSWORD-FILE* "temppass.html")
(defvar *HHUB-NEW-COMPANY-REQUEST* "newcompanyrequest.html")
(defvar *HHUB-CONTACTUS-EMAIL-TEMPLATE* "contactustemplate.html")
(defvar *HHUB-GUEST-CUST-ORDER-TEMPLATE-FILE* "guestcustorder.html")


(defvar *dod-db-instance*)
(defvar *sitepass* (encrypt "<PASSWORD>" "<EMAIL>"))
(defvar *current-customer-session* nil) 
(defvar *customer-page-title* nil) 
(defvar *vendor-page-title* nil) 
(defvar *admin-page-title* nil) <commit_msg>Read TNC and Privacy HTML files and use them in functions<commit_after>;; -*- mode: common-lisp; coding: utf-8 -*-
(in-package :hhub)
(clsql:file-enable-sql-reader-syntax)


;; You must set these variables to appropriate values.
(defvar *crm-database-type* :odbc
  "Possible values are :postgresql :postgresql-socket, :mysql,
:oracle, :odbc, :aodbc or :sqlite")
(defvar *crm-database-name* "DAIRYONDEMAND"
  "The name of the database we will work in.")
(defvar *crm-database-user* "TESTCRMCORE"
  "The name of the database user we will work as.")
(defvar *crm-database-server* "localhost"
  "The name of the database server if required")
(defvar *crm-database-password* "<PASSWORD>"
  "The password if required")
(defvar *dod-dbconn-spec* (list *crm-database-server* *crm-database-name* *crm-database-user* *crm-database-password*))


(defvar *HHUB-CUSTOMER-ORDER-CUTOFF-TIME* NIL)
(defvar *HHUB-DEMO-TENANT-ID* 2)

(defvar *HHUB-EMAIL-CSS-FILE* "/data/www/highrisehub.com/public/css")
(defvar *HHUB-EMAIL-CSS-CONTENTS* NIL)
(defvar *HHUB-EMAIL-TEMPLATES-FOLDER* "~/dairyondemand/hhub/email/templates")
(defvar *HHUB-CUST-REG-TEMPLATE-FILE* "cust-reg.html")
(defvar *HHUB-CUST-PASSWORD-RESET-FILE* "cust-pass-reset.html")
(defvar *HHUB-CUST-TEMP-PASSWORD-FILE* "temppass.html")
(defvar *HHUB-NEW-COMPANY-REQUEST* "newcompanyrequest.html")
(defvar *HHUB-CONTACTUS-EMAIL-TEMPLATE* "contactustemplate.html")
(defvar *HHUB-GUEST-CUST-ORDER-TEMPLATE-FILE* "guestcustorder.html")
(defvar *HHUB-TERMSANDCONDITIONS-FILE* "tnc.html")
(defvar *HHUB-PRIVACY-FILE* "privacy.html")
(defvar *HHUB-STATIC-FILES* "dairyondemand/site/public")

(defvar *dod-db-instance*)
(defvar *sitepass* (encrypt "<PASSWORD>" "highrisehub.<EMAIL>"))
(defvar *current-customer-session* nil) 
(defvar *customer-page-title* nil) 
(defvar *vendor-page-title* nil) 
(defvar *admin-page-title* nil) 
{'fraction_non_alphanumeric': 0.16860961046346318, 'fraction_numerical': 0.0011373329542223485, 'mean_word_length': 5.443223443223443, 'pattern_counts': {'":': 0, '<': 9, '<?xml version=': 0, '>': 9, 'https://': 0, 'lorem ipsum': 0, 'www.': 2, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3354787', 'n_tokens_mistral': 1410, 'n_tokens_neox': 1397, 'n_words': 283}