home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 18_15.tcl < prev    next >
Text File  |  2003-04-15  |  609b  |  30 lines
  1. #
  2. # Example 18-15
  3. # Processing mail sent by /mail/forminfo, Safe-Tcl version.
  4. #
  5.  
  6. # Assume the mail message is on standard input
  7.  
  8. set X [read stdin]
  9.  
  10. # Strip off the mail headers, when end with a blank line
  11. if {[regsub {.*?\n\ndata} $X {data} X] != 1} {
  12.     error "Malformed mail message"
  13. }
  14. proc data {fields} {
  15.     foreach {name value} $fields {
  16.         # Do something
  17.     }
  18. }
  19. # Create the safe interpreter
  20. set i [interp create -safe]
  21.  
  22. # Link the data command in the safe interpreter to the
  23. # data procedure in this interpreter
  24. interp alias $i data {} data
  25.  
  26. # Process the message in the safe interpreter
  27. interp eval $i $X
  28.  
  29.  
  30.