DELETED ducttape/MANIFEST
Index: ducttape/MANIFEST
==================================================================
--- ducttape/MANIFEST
+++ /dev/null
@@ -1,10 +0,0 @@
-MANIFEST
-Makefile
-ducttape-lib.scm
-ducttape-lib.setup
-mimetypes.scm
-sample_ducttape.scm
-test_ducttape.scm
-test_example.scm
-useargs-example.scm
-workweekdate.scm

Index: ducttape/Makefile
==================================================================
--- ducttape/Makefile
+++ ducttape/Makefile
@@ -1,7 +1,5 @@
-SHELL=/bin/tcsh -f
-
 help:
 	@echo ""
 	@echo "make targets:"
 	@echo "============="
 	@echo "install      - build and install general_lib egg as icfadm"
@@ -20,11 +18,11 @@
 test:
 	chicken-install -no-install
 	csc test_ducttape.scm
 
 	./test_ducttape
-	if (-e foo) rm -f foo
+	rm -f foo
 
 test_example:
 	@csc test_example.scm
 	@./test_example
 	@rm test_example

ADDED   ducttape/README
Index: ducttape/README
==================================================================
--- /dev/null
+++ ducttape/README
@@ -0,0 +1,8 @@
+This directory holds the "ducttape" chicken scheme egg used by megatest.
+
+Run "make test" to ensure this egg works on your system.
+
+Run "make install" as your admin user with chicken on your $PATH to install this egg.
+
+
+

Index: ducttape/test_ducttape.scm
==================================================================
--- ducttape/test_ducttape.scm
+++ ducttape/test_ducttape.scm
@@ -30,11 +30,11 @@
 
 (define (reset-ducttape-with-cmdline-list cmdline-list)
   (reset-ducttape)
 
   (command-line-arguments cmdline-list)
-  (process-command-line)
+  (ducttape-process-command-line)
 )
 
 
 (define (direct-iputs-test)
   (ducttape-color-mode #f)
@@ -339,17 +339,17 @@
   ) ; end main()
 
 (main)
 (sendmail "brandon.j.barclay@intel.com" "6hello subject"  "test body" )
 
-(let* ((image-file "/nfs/site/home/bjbarcla/megatest-logo.png")
-       (cid "mtlogo")
-       (image-alist (list (cons image-file cid)))
-       (body  (conc "Hello world<br /><img cid:"cid" alt=\"test image\"><br>bye!")))
+;(let* ((image-file "/nfs/site/home/bjbarcla/megatest-logo.png")
+;       (cid "mtlogo")
+;       (image-alist (list (cons image-file cid)))
+;       (body  (conc "Hello world<br /><img cid:"cid" alt=\"test image\"><br>bye!")))
 
-  (sendmail "brandon.j.barclay@intel.com" "7hello subject"  body use_html: #t images-with-content-id-alist: image-alist)
-  (print "sent image mail"))
+;  (sendmail "brandon.j.barclay@intel.com" "7hello subject"  body use_html: #t images-with-content-id-alist: image-alist)
+;  (print "sent image mail"))
 ;(sendmail "bjbarcla" "2hello subject html"  "test body<h1>hello</h1><i>italics</i>" use_html: #t)
 ;(sendmail "bb" "4hello attach subject html"  "<h2>hmm</h2>" use_html: #t attach-files-list: '( "/Users/bb/Downloads/wdmycloud-manual-4779-705103.pdf" ) )
 
 ;(launch-repl)
 (test-exit)