more site specific placeholder files and updates to deploy script

aux/DIU-deploy-site-specific

@@ -34,6 +34,16 @@
 BASEDIR="data"
 SSH_FILE=$BASEDIR/id_rsa
 COM_VAL=$BASEDIR/common_values.sh
+
+SRV_LST=$BASEDIR/server_list
+SYNC_PORT=$BASEDIR/sync_port
+SYNC_SRV_DESC=$BASEDIR/sync_server_desc
+SYNC_TARGET=$BASEDIR/sync_target
+
+DRIVER_FN=$BASEDIR/drivers.txt
+EQUIP_FN=$BASEDIR/equipnum.txt
+RULE_FN=$BASEDIR/rules.scm
+
 DIU_UI=$BASEDIR/diu_ui_site_specific.js
 
 if [[ -e "$SSH_FILE" ]] ; then
@@ -47,11 +57,70 @@ fi
 
 if [[ -e "$COM_VAL" ]] ; then
   echo "# deploying common_values.sh file $COM_VAL to /home/bus/config/common_values.sh"
-  cp -L -f "$COM_VAL" /home/bus/config
+  cp -L -f "$COM_VAL" /home/bus/bin/common_values.sh
 else
   echo "# FILE NOT FOUND (COMMON VALUES): $COM_VAL"
 fi
 
+###
+
+if [[ -e "$SRV_LST" ]] ; then
+  echo "# deploying server list file: $SRV_LST -> /home/bus/config/server/server_list"
+  cp -L -f "$SRV_LST" /home/bus/config/server/server_list
+else
+  echo "# FILE NOT FOUND (SERVER LIST): $SRV_LST"
+fi
+
+if [[ -e "$SYNC_PORT" ]] ; then
+  echo "# deploying sync port file: $SRV_PORT -> /home/bus/config/server/sync_port"
+  cp -L -f "$SYNC_PORT" /home/bus/config/server/sync_port
+else
+  echo "# FILE NOT FOUND (SYNC PORT): $SYNC_PORT"
+fi
+
+if [[ -e "$SYNC_SRV_DESC" ]] ; then
+  echo "# deploying server list file: $SRV_SRV_DESC -> /home/bus/config/server/sync_server_desc"
+  cp -L -f "$SYNC_SRV_DESC" /home/bus/config/server/sync_server_desc
+else
+  echo "# FILE NOT FOUND (SYNC DESC): $SYNC_SRV_DESC"
+fi
+
+if [[ -e "$SYNC_TARGET" ]] ; then
+  echo "# deploying server list file: $SRV_TARGET -> /home/bus/config/server/sync_target"
+  cp -L -f "$SYNC_TARGET" /home/bus/config/server/sync_target
+else
+  echo "# FILE NOT FOUND (SYNC TARGET): $SYNC_TARGET"
+fi
+
+
+###
+
+if [[ -e "$DRIVER_FN" ]] ; then
+  echo "# deploying drivers.txt file $DRIVER_FN to /home/bus/config/drivers.txt"
+  cp -L -f "$DRIVER_FN" /home/bus/config/drivers.txt
+else
+  echo "# FILE NOT FOUND (DRIVERS): $DRIVER_FN"
+fi
+
+if [[ -e "$EQUIP_FN" ]] ; then
+  echo "# deploying equipnum.txt file $EQUIP_FN to /home/bus/config/equipnum.txt"
+  cp -L -f "$EQUIP_FN" /home/bus/bin/equipnum.txt
+else
+  echo "# FILE NOT FOUND (EQUIPNUM): $EQUIP_FN"
+fi
+
+if [[ -e "$RULE_FN" ]] ; then
+  echo "# deploying rules.scm file $RULE_FN to /home/bus/config/rules.scm"
+  cp -L -f "$RULE_FN" /home/bus/config/rules.scm
+else
+  echo "# FILE NOT FOUND (RULES): $RULE_FN"
+fi
+
+
+
+###
+
+
 if [[ -e "$DIU_UI" ]] ; then
   echo "# deploying diu_site_specific file: $DIU_UI -> /home/bus/config/html/js/diu_site_sepcific.js"
   cp -L -f "$DIU_UI" /home/bus/config/html/js/diu_site_specific.js

aux/data/drivers.txt

@@ -0,0 +1,2 @@
+00078	00078	Foo Bar
+4111	4111	AdminMode

aux/data/equipnum.txt

@@ -0,0 +1 @@
+9999

aux/data/rules.scm

@@ -0,0 +1,267 @@
+(define (hours)   (car (gettime)))
+(define (mins)    (car (cdr (gettime))))
+(define (year)    (car (getdate)))
+(define (month)   (car (cdr (getdate))))
+(define (day)     (car (cdr (cdr (getdate)))))
+(define (lat x)   (car x))
+(define (lon x)   (car (cdr x)))
+
+(define (eastof x)  (> (lon (gps)) (lon x)))
+(define (westof x)  (< (lon (gps)) (lon x)))
+(define (northof x) (> (lat (gps)) (lat x)))
+(define (southof x) (< (lat (gps)) (lat x)))
+
+; DD  - Decimal Degree format
+; DMS - Degree/Minute/Second format
+; DMM - Degree/Decimal Minute format
+;
+; defined in DMM-ish style (call it DMMt).
+; Most significant digts are degree, remaining are in minute, so:
+;
+; q = floor(DMMt/100)
+; DD = q + ((DMMt - (100*q))/60)
+;
+; for example:
+;
+; x = 4229.532
+; q = floor(x/100)
+; q + ((x - (100*q))/60)
+;
+; --> 42.49220
+;
+
+(define bound0 '(4227.139 -7641.424))
+(define bound1 '(4222.689 -7616.695))
+
+
+(define city_bounds
+  '(
+    (and (= (routenum) 1) (westeof bound0))
+    (and (= (routenum) 2) (eastof bound1))
+  )
+)
+
+; ---
+
+(define (dec_local_balance)
+  (let ((balance (string->number (lookaside_param))))
+    (cond
+      ( (< balance 1)
+        "0"
+      )
+      ( else
+        (let ((foo (number->string (- balance 1))))
+          (set_lookaside foo)
+          foo
+        )
+      )
+    )
+  )
+)
+
+; ----
+
+(define (rule_TEST-ORG-NRIDE)
+  ;;accept all
+  (let ((rides_left (dec_local_balance)))
+    (tell_rider (string-append rides_left " Rides left"))
+    (accept_fare_no_passback
+      (string-append rides_left " Rides left")
+      (string-append rides_left " Rides left")
+      0
+    )
+  )
+)
+
+(define (rule_TEST-ORG-NDAY)
+  ;;accept all
+  (let ((tokens (strtok (param) " ")))
+    (cond
+      ( (pair? (cdr tokens))
+        (tell_rider (string-append "Expires " (car (cdr tokens))) )
+        (accept_fare
+          (string-append "Expires " (car (cdr tokens)))
+          (string-append "Expires " (car (cdr tokens)))
+          0
+        )
+      )
+      ( else
+        (tell_rider (string-append (car tokens) " Day pass"))
+        (accept_fare
+          (string-append (car tokens) " Day pass")
+          (string-append (car tokens) " Day pass")
+          0
+        )
+      )
+    )
+  )
+)
+
+(define (rule_CASH-ADULT)
+  (accept_fare_no_passback "Adult Cash Fare" "Adult Cash Fare" 150)
+  (drop_vault)
+)
+
+(define (rule_CASH-YOUTH)
+  (accept_fare_no_passback "Youth Cash Fare" "Youth Cash Fare" 75)
+  (drop_vault)
+)
+
+(define (rule_CASH-HALF)
+  (accept_fare_no_passback "ADA/Senior Cash" "ADA/Senior Cash" 75)
+  (drop_vault)
+)
+
+(define (rule_MISC-INTERLINE)
+  (accept_fare_no_passback "Interline" "Interline" 0)
+)
+
+(define (rule_MISC-TRANSFER)
+  (accept_fare_no_passback "Transfer" "Transfer" 0)
+)
+
+(define (rule_MISC-BIKE)
+  (accept_fare_no_passback "Bike" "Bike" 0)
+)
+
+(define (rule_MISC-WHEELCHAIR)
+  (accept_fare_no_passback "Wheelchair" "Wheelchair" 0)
+)
+
+(define (rule_MISC-EVENT)
+  (accept_fare_no_passback "Special Event" "Special Event" 0)
+)
+
+(define (rule_OVR-CITY)
+  (accept_fare_no_passback "City Override" "City Override" 0)
+)
+
+(define (rule_OVR-CARD)
+  (accept_fare_no_passback "Card Override" "Card Override" 0)
+)
+
+(define (bulk_generic rule times)
+  (cond
+    ((= times 0) 0)
+    (else
+      (rule)
+      (bulk_generic rule (- times 1))
+    )
+  )
+)
+
+(define (rule_BULK-CASH-ADULT)
+  (bulk_generic rule_CASH-ADULT (string->number (param)))
+)
+
+(define (rule_BULK-CASH-YOUTH)
+  (bulk_generic rule_CASH-YOUTH (string->number (param)))
+)
+
+(define (rule_BULK-CASH-HALF)
+  (bulk_generic rule_CASH-HALF (string->number (param)))
+)
+
+(define (rule_BULK-MISC-EVENT)
+  (bulk_generic rule_MISC-EVENT (string->number (param)))
+)
+(define (rule_BULK-MISC-INTERLINE)
+  (bulk_generic rule_MISC-INTERLINE (string->number (param)))
+)
+
+(define (rule_BULK-MISC-TRANSFER)
+  (bulk_generic rule_MISC-TRANSFER (string->number (param)))
+)
+
+(define (rule_BULK-OVR-CITY)
+  (bulk_generic rule_OVR-CITY (string->number (param)))
+)
+
+(define (rule_BULK-OVR-CARD)
+  (bulk_generic rule_OVR-CARD (string->number (param)))
+)
+
+;---
+
+(define (rule_BULK-OVR-SCHOOLA)
+  (bulk_generic rule_OVR-SCHOOLA (string->number (param)))
+)
+
+(define (rule_BULK-OVR-SCHOOLB)
+  (bulk_generic rule_OVR-SCHOOLB (string->number (param)))
+)
+
+(define (rule_BULK-OVR-SCHOOLC)
+  (bulk_generic rule_OVR-SCHOOLC (string->number (param)))
+)
+
+;---
+
+(define (rule_BULK-OVR-ORGA)
+  (bulk_generic rule_OVR-ORGA (string->number (param)))
+)
+
+(define (rule_BULK-OVR-ORGB)
+  (bulk_generic rule_OVR-ORGB (string->number (param)))
+)
+
+(define (rule_BULK-OVR-ORGC)
+  (bulk_generic rule_OVR-ORGC (string->number (param)))
+)
+
+;-----
+
+(define (rule_TEST-ORG-TEST)
+  (tell_rider "Test Org Pass")
+  (accept_fare "Test Org Pass" "Test Org Pass" 0)
+)
+
+
+(define (rule_TEST-SCHOOL-PASS)
+  (tell_rider "Test School Pass")
+  (accept_fare "Test School Pass" "Test School Pass" 0)
+)
+
+(define (rule_OVR-SCHOOLA)
+  (accept_fare_no_passback "School A Override" "School A Override" 0)
+)
+
+(define (rule_OVR-SCHOOLB)
+  (accept_fare_no_passback "School B Override" "School B Override" 0)
+)
+
+(define (rule_OVR-SCHOOLC)
+  (accept_fare_no_passback "School C Override" "School C Override" 0)
+)
+
+(define (rule_OVR-ORGA)
+  (accept_fare_no_passback "Org A Override" "Org A Override" 0)
+)
+
+(define (rule_OVR-ORGB)
+  (accept_fare_no_passback "Org B Override" "Org B Override" 0)
+)
+
+(define (rule_OVR-ORGC)
+  (accept_fare_no_passback "Org C Override" "Org C Override" 0)
+)
+
+
+(define (rule_TEST-GOV-PASS)
+  (tell_rider "Test Gov Pass")
+  (accept_fare "Test Gov Pass" "Test Gov Pass" 0)
+)
+
+(define (rule_TEST-OTHER-ORG-PASS)
+  (tell_rider "Test Other Org Pass")
+  (accept_fare "Test Other Org Pass" "Test Other Org Pass" 0)
+)
+
+
+;------------------ blanket reject (used for domain card rejections as well)
+
+(define (rule_TEST-ORG-REJECT)
+  (tell_rider "No Passes on Card")
+  (reject_fare "No Passes on Card" "No Passes on Card" 0)
+)
+