home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume32 / envelope / part01 / README < prev   
Text File  |  1992-09-20  |  3KB  |  63 lines
  1. Envelope Addresser tool, Perl script.
  2. Given an address, either from stdin or a file argument,
  3. addresses a commercial envelope, including generating postal
  4. bar codes, on your HP Laserjet II or III printer or compatible.
  5.  
  6. You may want to adapt this to print your return address, as shown
  7. in the commented-out example.
  8. You may have to adjust the X-Y coordinates if your envelopes are
  9. non-standard (or you don't like where I put things!)
  10.  
  11. In order for the barcode stuff to function properly, the last address
  12. line must end in a zip code, either 5 digits or (zip+4 format)
  13. 5 digits, a dash, and 4 digits.  Well, ok, I don't check specifically
  14. for that format, but am looking for the end of the last line, minus
  15. white space, to consist of 5 to 10 dashes and/or digits.  It is up
  16. to you to provide the garbage-in in the right format for me to
  17. generate the right garbage-out.
  18.  
  19. The barcode portion of this perl script was inspired by a recent posting
  20. to alt.sources:
  21.  
  22.     From: todd@toolz.uucp (Todd Merriman)
  23.     Newsgroups: alt.sources
  24.     Subject: Generate postal barcodes on HPLJ
  25.     Message-ID: <1991Aug13.220925.28106@toolz.uucp>
  26.     Date: 13 Aug 91 22:09:25 GMT
  27.     Organization: Software Toolz, Inc.
  28.  
  29. Todd wrote a C program to generate the barcodes only, and mentioned
  30. how useful it would be to any U.S.P.S. mail program:
  31.  
  32.     barcode.c
  33.  
  34.     This is a program to produce postal barcodes on an HPLJ.  It was
  35.     printed in the Winter '90 issue of the C Gazette (a fine publication).
  36.     For a complete technical description, see that issue of the magazine.
  37.  
  38.     This code could probable be easily adapted to almost any mailing
  39.     list manager, as it accepts the zip code digits in ASCII and outputs
  40.     the required HPLJ graphics commands to product a properly formatted
  41.     postal bar code.
  42.  
  43. Dave Buck Caveats:
  44. I haven't read the article mentioned by Todd, and only attempted to verify
  45. the implementation by visual comparison to the barcodes I've actually seen
  46. added by the U.S.P.S. themselves on three commercial envelopes I received
  47. in yesterday's mail.  So you KNOW what the warranty's worth on this one.
  48.  
  49.  
  50.     {aeras,amdahl,ames,daver,netcomsv,sun,zygot}!dlb!dave
  51. D. L. Buck and Associates, Inc.; San Jose, California 95119; (408)972-2825
  52.  
  53. Andy Rabagliati ported this to PostScript. I corrected a bug on the
  54. check digit calculation. I use labels, as my printer seals envelopes
  55. put through it !! You may have to twiddle the PostScript stuff if you
  56. want envelopes. I hope I have made this easy.
  57.  
  58. I stuck in the #ifdef conditional stuff, and you will notice that the
  59. script invocation includes a -P option - this is so Perl runs it all
  60. through the PreProcessor to get the HP or PostScript version.
  61.  
  62. Enjoy,   Andy.
  63.