home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 18_14.tcl < prev    next >
Text File  |  2003-04-16  |  377b  |  23 lines
  1. #
  2. # Example 18-14
  3. # Processing mail sent by /mail/forminfo.
  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. # Process the message.
  20. eval $X
  21.  
  22.  
  23.