home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / metamail / contrib / ServiceMail / src / services / retrieve.tcl < prev    next >
Encoding:
Text File  |  1993-05-08  |  475 b   |  13 lines
  1. # retrieve: a WAIS retrieval gatway; requires waisget script
  2. #
  3. # Jim Davis (davis@dri.cornell.edu) Aug 25 1992 modified to retrieve all
  4. # salil@eitech.com
  5.  
  6. proc retrieve {switches envelope inputs } {
  7.   setfield response DESCRIPTION "Results of your retrive.";
  8.   setfield response TYPE "multipart";
  9.   setfield response SUBTYPE "mixed;boundary=DOCUMENT";
  10.   setfield response STRING [exec waisget [getfield $inputs FILE]];
  11.   return [mailout [turnaround $envelope] $response];
  12. }
  13.