Megatest

Check-in [134ed6b113]
Login
Overview
Comment:turn off ~/.spublishrc for safety
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: 134ed6b1134ac58b9e348a3d296e56159b2623b0
User & Date: mrwellan on 2015-12-04 14:33:08
Other Links: branch diff | manifest | tags
Context
2015-12-07
19:54
Initial version of rpctest directly from rpc egg page (plus minor changes to get it to work) check-in: f728a7aa95 user: matt tags: v1.60
18:52
added code for creating symbolic links and making new directories in target area check-in: 2ebee8a8b8 user: pjhatwal tags: v1.60
2015-12-04
14:33
turn off ~/.spublishrc for safety check-in: 134ed6b113 user: mrwellan tags: v1.60
11:52
Added crude log to spublish check-in: a0b0d675ef user: mrwellan tags: v1.60
Changes

Modified spublish.scm from [d8f854c68f] to [ec3d62cf1a].

343
344
345
346
347
348
349
350
351
352



353
354
355
356
357
358
359
343
344
345
346
347
348
349



350
351
352
353
354
355
356
357
358
359







-
-
-
+
+
+







			    (conc "\"" (time->string (seconds->local-time (vector-ref x 3))) "\"")
			    (conc "\"" (vector-ref x 4) "\""))
		    (print (vector-ref x 0))))
	      versions)))
      (else (print "Unrecognised command " action)))))
  
;; ease debugging by loading ~/.dashboardrc - REMOVE FROM PRODUCTION!
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.spublishrc")))
  (if (file-exists? debugcontrolf)
      (load debugcontrolf)))
;; (let ((debugcontrolf (conc (get-environment-variable "HOME") "/.spublishrc")))
;;   (if (file-exists? debugcontrolf)
;;       (load debugcontrolf)))

(define (main)
  (let* ((args      (argv))
	 (prog      (car args))
	 (rema      (cdr args))
	 (exe-name  (pathname-file (car (argv))))
	 (exe-dir   (or (pathname-directory prog)