Megatest

Check-in [7cb9fcca30]
Login
Overview
Comment:TODO: send email to notify admin contact listed in the config that the listener got killed
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: 7cb9fcca308241b8ee47ac03fbe225f34e4eab44
User & Date: pjhatwal on 2017-12-13 23:54:22
Original Comment: TODO: send email to notify admin contact listed in the config that the lisner got killed
Other Links: branch diff | manifest | tags
Context
2017-12-20
17:53
wip check-in: ddb7261be3 user: bjbarcla tags: 1.65-subrun-ancilliary-usecases
2017-12-15
16:47
added css to static html genration check-in: 4a97fe2a81 user: pjhatwal tags: v1.65
2017-12-13
23:54
TODO: send email to notify admin contact listed in the config that the listener got killed check-in: 7cb9fcca30 user: pjhatwal tags: v1.65
23:49
added rmt get-steps-info-by-id and get-test-info-by-id to readonly list added static html generation; check-in: dabd344efb user: pjhatwal tags: v1.65
Changes

Modified common.scm from [ca5edad55b] to [933bab82d3].

808
809
810
811
812
813
814

815
816
817
818
819
820
821
  (exit))

(define (special-signal-handler signum)
  ;; (signal-mask! signum)
  (set! *time-to-exit* #t)
  ;;(debug:print-info 13 *default-log-port* "got signal "signum)
  (debug:print-error 0 *default-log-port* "Received signal " signum " sending email befor exiting!!")

  ;; (std-exit-procedure) ;; shouldn't need this since we are exiting and it will be called anyway
  (exit))


(set-signal-handler! signal/int  std-signal-handler)  ;; ^C
(set-signal-handler! signal/term std-signal-handler)








>







808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
  (exit))

(define (special-signal-handler signum)
  ;; (signal-mask! signum)
  (set! *time-to-exit* #t)
  ;;(debug:print-info 13 *default-log-port* "got signal "signum)
  (debug:print-error 0 *default-log-port* "Received signal " signum " sending email befor exiting!!")
  ;;TODO send email to notify admin contact listed in the config that the lisner got killed
  ;; (std-exit-procedure) ;; shouldn't need this since we are exiting and it will be called anyway
  (exit))


(set-signal-handler! signal/int  std-signal-handler)  ;; ^C
(set-signal-handler! signal/term std-signal-handler)