NAME
    Tie::Eudora - encode/decode emails, read/write emails in Eudora mailbox
    files

SYNOPSIS
     ####
     # Subroutine interface
     #
     \$encoded_email  = decode_record(\$mailbox_email); 
     \@email          = decode_field(\$encoded_email);

     \$encoded_email  = encode_field (\@email);
     \$mailbox_email  = encode_record(\$encoded_email);

     #####
     # Object Interface
     # 
     $eudora = Tie::Form->new(@options);

     \$encoded_email   = $eudora->decode_record(\$record); 
     \@email           = $eudora->decode_field(\$encoded_email);

     \$encoded_email   = $eudora->encode_field (\@email);
     \$mailbox_email   = $eudora->encode_record(\$encoded_email);

     $mailbox_email    = $eudora->get_record();
     $success          = $eudora->put_record($mailbox_email);

     ####
     # use file subroutines to write/read Eudora mailbox files
     #
     tie *MAILBOX, 'Tie::Eudora';
     open MAILBOX,'>',$mbx;
     print MAILBOX @mailbox;
     close MAILBOX;

     open MAILBOX,'<',$mbx;
     @mailbox = <MAILBOX>;
     close MAILBOX;

DESCRIPTION
    The "Tie::Eudora" program module provides a File Handle Tie package for
    reading and writing of Eudora mailbox files. The "Tie::Eudora" package
    handles each email in Eudora mailbox files as a record. Each record is
    read and written not as a scalar text string but as an array of
    "field-name, field-body" pairs corresponding to the header and body
    fields in the email.

  Email Array

    An email array, "@email", is an array of "field-name, field-body" pairs
    where the even index array members are the "field-name" and the odd
    index array members are the field-values. The "field-name, field-body"
    pairs, except for the last pair, are as specified in RFC 822,
    http://www.ietf.org/rfc/rfc822.txt, and are in the order that they
    appear in an "$encoded_email" encoded in accordance with RFC 822. The
    last "field-name, field-body" pair has a "field-name" of 'X-Body' and
    the "field-body" contents is the body of the "$encoded_email".

  Mailbox Array

    A mailbox array, "@mailbox", is a list of references to email arrays.

REQUIREMENTS
  Eudora Mailbox Format

    A "@mailbox" array, written using the appropriate "Tie::Eudora" package
    file subroutines, shall[1] produce a Eudora mailbox file that can be
    read by *Eudora 5.0*. One appropriate use of the "Tie::Eudora" package
    subroutines to create a Eudora mailbox file is as follows:

     tie *MAILBOX, 'Tie::Eudora';
     open MAILBOX,'>',$mbx;
     print MAILBOX @Write_mailbox;
     close MAILBOX;

  Eudora Mailbox Lossless

    The "@read_mailbox" array from reading a mailbox file in accordance with
    Eudora Mailbox Format using the appropriate "Tie::Eudora" package file
    subroutines, shall[1] be exactly the same as the mailbox array
    "@write_mailbox" used to write the Eudora mailbox file. One appropriate
    use of the "Tie::Eudora" package subroutines to read a Eudora mailbox
    file is as follows:

     tie *MAILBOX, 'Tie::Eudora';
     open MAILBOX,'<',$mbx;
     @read_mailbox = <MAILBOX>;
     close MAILBOX;

  RFC822 Email Format

    A "@mailbox" array, written using the "Tie::Eudora" package file
    subroutines, shall[1] create a Eudora mailbox file that can be read by
    Eudora 5.0. A typical use of the "Tie::Eudora" package subroutines are
    as follows:

     tie *MAILBOX, 'Tie::Eudora';
     open MAILBOX,'>',$mbx;
     print MAILBOX @Write_mailbox;
     close MAILBOX;

  RFC822 Email Lossless

    The "@read_mailbox" array from reading a mailbox file in accordance with
    Eudora[1] using the "Tie::Eudora" package file subroutines, shall[1] be
    exactly the same as the mailbox array "@write_mailbox" used to write the
    Eudora mailbox file.

     tie *MAILBOX, 'Tie::Eudora';
     open MAILBOX,'<',$mbx;
     @read_mailbox = <MAILBOX>;
     close MAILBOX;

DEMONSTRATION
     #########
     # perl Eudora.d
     ###

    ~~~~~~ Demonstration overview ~~~~~

    The results from executing the Perl Code follow on the next lines as
    comments. For example,

     2 + 2
     # 4

    ~~~~~~ The demonstration follows ~~~~~

         use File::Package;
         use File::SmartNL;
         use File::Spec;
         use Data::Dumper;
         $Data::Dumper::Sortkeys = 1; # dump hashes sorted
         $Data::Dumper::Terse = 1; # avoid Varn Variables

         my $uut = 'Tie::Eudora'; # Unit Under Test
         my $fp = 'File::Package';
         my $snl = 'File::SmartNL';
         my $loaded;

         my (@fields);  # force context

         my $mbx = 'Eudora1.mbx';

     ##################
     # Load UUT
     # 

     my $errors = $fp->load_package($uut, qw(is_handle encode_field decode_field
                     encode_record decode_record));
     $errors

     # ''
     # 

     ##################
     # Tie::Eudora Version 0.01 loaded
     # 

     $fp->is_package_loaded($uut)

     # 1
     # 

     ##################
     # Write Eudora Mailbox
     # 

         tie *MAILBOX, 'Tie::Eudora';
         open MAILBOX,'>',$mbx;
         print MAILBOX @test_data;
         close MAILBOX;
     $snl->fin($mbx)

     # 'From ???@??? Wed Jul 24 20:20:19 2002
     # X-Persona: <support@SoftwareDiamonds.com>
     # Return-Path: somebody@compuserve.com
     # Delivered-To: support@SoftwareDiamonds.com
     # Received: (qmail 7321 invoked from network); 24 Jul 2002 17:26:21 -0000
     # Received: from unknown (HELO mail.hbhosting.com) (66.28.88.4)
     #   by mail.ixpres.com with SMTP; 24 Jul 2002 17:26:21 -0000
     # Received: (qmail 17747 invoked by uid 89); 24 Jul 2002 17:38:56 -0000
     # Delivered-To: softwarediamonds.com-support@softwarediamonds.com
     # Received: (qmail 17745 invoked from network); 24 Jul 2002 17:38:56 -0000
     # Received: from unknown (HELO compuserve.com) (66.28.118.5)
     #   by 66.28.88.9 with SMTP; 24 Jul 2002 17:38:56 -0000
     # X-Mailer: SoftwareDiamonds.com/software/ Inetdia::sdmailit sdmailit() 1.0.005 May 9, 2002
     # Date: Wed, 24 Jul 2002 12:30:37 -0500
     # To: support@SoftwareDiamonds.com
     # From: somebody@compuserve.com
     # Subject: *~~* Software Diamonds sdform.pl *~~*
     # 
     # Comments:
     # i read an interesting article many years ago about the effects of drugs on spiders in National Geographic Magazine. %0Ait showed webs woven by spiders ""under the influence.""  spiders high on marijuana wove bad webs; spiders on LSD wove exceptionally geometrical webs.%0Aanyone know how i can locate the date of and issue this appeared in?%0A %0Amany thanks in advance to someone who has walked at least a mile in my shoes.
     # ^
     # 
     # Email:
     # sombody@compuserve.com
     # ^
     # 
     # REMOTE_ADDR:
     # 216.192.88.155
     # ^
     # 
     # HTTP_USER_AGENT:
     # Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
     # ^
     # 
     # HTTP_REFERER:
     # http://www.spiderdiamonds.com/spider.htm
     # ^
     # 
     # From ???@??? Wed Sep 25 21:49:29 2002
     # X-Persona: <support@SoftwareDiamonds.com>
     # Return-Path: <everybody@hotmail.com>
     # Delivered-To: support@SoftwareDiamonds.com
     # Received: (qmail 24171 invoked from network); 25 Sep 2002 20:59:11 -0000
     # Received: from unknown (HELO mail.hbhosting.com) (66.28.88.4)
     #   by mail.ixpres.com with SMTP; 25 Sep 2002 20:59:11 -0000
     # Received: (qmail 75277 invoked by uid 89); 25 Sep 2002 21:10:22 -0000
     # Delivered-To: softwarediamonds.com-support@softwarediamonds.com
     # Received: (qmail 75275 invoked from network); 25 Sep 2002 21:10:22 -0000
     # Received: from unknown (HELO hotmail.com) (66.28.118.5)
     #   by 66.28.88.9 with SMTP; 25 Sep 2002 21:10:22 -0000
     # X-Mailer: SoftwareDiamonds.com/software/ Inetdia::sdmailit sdmailit() 1.0.005 May 9, 2002
     # Date: Wed, 25 Sep 2002 16:06:27 -0500
     # To: support@SoftwareDiamonds.com
     # From: everybody@hotmail.com
     # Subject: *~~* Software Diamonds sdform.pl *~~*
     # 
     # 
     # Comments:
     # Can I order a personalized stamp pad (name and address??
     # ^
     # 
     # Email:
     # everybody@hotmail.com
     # ^
     # 
     # Name:
     # Paul
     # ^
     # 
     # REMOTE_ADDR:
     # 24.165.157.193
     # ^
     # 
     # HTTP_USER_AGENT:
     # Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; Win 9x 4.90)
     # ^
     # 
     # HTTP_REFERER:
     # http://stationary.merchantdiamonds.com/
     # ^
     # 
     # From ???@??? Tue Dec 31 10:19:58 2002
     # X-Persona: <support@SoftwareDiamonds.com>
     # Return-Path: <girl@hotmail.com>
     # Delivered-To: support@SoftwareDiamonds.com
     # Received: (qmail 6236 invoked from network); 31 Dec 2002 09:04:00 -0000
     # Received: from one.nospam.ixpres.com (216.240.160.191)
     #   by mail.ixpres.com with SMTP; 31 Dec 2002 09:04:00 -0000
     # Received: (qmail 18721 invoked by uid 106); 30 Dec 2002 10:03:56 -0000
     # Received: from unknown (HELO mail.hbhosting.com) (66.28.88.4)
     #   by one.nospam.ixpres.com with SMTP; 30 Dec 2002 10:03:55 -0000
     # Received: (qmail 91583 invoked by uid 89); 31 Dec 2002 09:05:52 -0000
     # Received: (qmail 91581 invoked from network); 31 Dec 2002 09:05:52 -0000
     # Received: from unknown (HELO hotmail.com) (66.28.118.5)
     #   by zeus with SMTP; 31 Dec 2002 09:05:52 -0000
     # X-Spam-Status: No, hits=2.9 required=8.0 source=66.28.88.4 from=janigeorg@hotmail.com addr=1
     # Delivered-To: softwarediamonds.com-support@softwarediamonds.com
     # X-Mailer: SoftwareDiamonds.com/software/ Inetdia::sdmailit sdmailit() 1.0.005 May 9, 2002
     # Date: Tue, 31 Dec 2002 03:20:52 -0600
     # To: support@SoftwareDiamonds.com
     # From: girl@hotmail.com
     # Subject: *~~* Software Diamonds sdform.pl *~~*
     # X-Qmail-Scanner-Message-ID: <104124263551318713@one.nospam.ixpres.com>
     # X-AntiVirus: checked by Vexira MailArmor (version: 2.0.1.6; VAE: 6.17.0.2; VDF: 6.17.0.10; host: one.nospam.ixpres.com)
     # 
     # 
     # Email:
     # girl@hotmail.com
     # ^
     # 
     # Tutorial:
     # *~~* Better Health thru Biochemistry *~~*
     # ^
     # 
     # REMOTE_ADDR:
     # 81.26.160.109
     # ^
     # 
     # HTTP_USER_AGENT:
     # Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
     # ^
     # 
     # HTTP_REFERER:
     # http://camera.merchantdiamonds.com/
     # ^
     # 
     # '
     # 

     ##################
     # Read Eudora Mailbox
     # 

         open MAILBOX,'<',$mbx;
         @fields = <MAILBOX>;
         close MAILBOX;
     [@fields]

     # [
     #           [
     #             'X-Pickup-Date',
     #             'Wed Jul 24 20:20:19 2002',
     #             'X-Persona',
     #             '<support@SoftwareDiamonds.com>',
     #             'Return-Path',
     #             'somebody@compuserve.com',
     #             'Delivered-To',
     #             'support@SoftwareDiamonds.com',
     #             'Received',
     #             '(qmail 7321 invoked from network); 24 Jul 2002 17:26:21 -0000',
     #             'Received',
     #             'from unknown (HELO mail.hbhosting.com) (66.28.88.4)
     #   by mail.ixpres.com with SMTP; 24 Jul 2002 17:26:21 -0000',
     #             'Received',
     #             '(qmail 17747 invoked by uid 89); 24 Jul 2002 17:38:56 -0000',
     #             'Delivered-To',
     #             'softwarediamonds.com-support@softwarediamonds.com',
     #             'Received',
     #             '(qmail 17745 invoked from network); 24 Jul 2002 17:38:56 -0000',
     #             'Received',
     #             'from unknown (HELO compuserve.com) (66.28.118.5)
     #   by 66.28.88.9 with SMTP; 24 Jul 2002 17:38:56 -0000',
     #             'X-Mailer',
     #             'SoftwareDiamonds.com/software/ Inetdia::sdmailit sdmailit() 1.0.005 May 9, 2002',
     #             'Date',
     #             'Wed, 24 Jul 2002 12:30:37 -0500',
     #             'To',
     #             'support@SoftwareDiamonds.com',
     #             'From',
     #             'somebody@compuserve.com',
     #             'Subject',
     #             '*~~* Software Diamonds sdform.pl *~~*',
     #             'X-Body',
     #             'Comments:
     # i read an interesting article many years ago about the effects of drugs on spiders in National Geographic Magazine. %0Ait showed webs woven by spiders ""under the influence.""  spiders high on marijuana wove bad webs; spiders on LSD wove exceptionally geometrical webs.%0Aanyone know how i can locate the date of and issue this appeared in?%0A %0Amany thanks in advance to someone who has walked at least a mile in my shoes.
     # ^
     # 
     # Email:
     # sombody@compuserve.com
     # ^
     # 
     # REMOTE_ADDR:
     # 216.192.88.155
     # ^
     # 
     # HTTP_USER_AGENT:
     # Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
     # ^
     # 
     # HTTP_REFERER:
     # http://www.spiderdiamonds.com/spider.htm
     # ^
     # 
     # '
     #           ],
     #           [
     #             'X-Pickup-Date',
     #             'Wed Sep 25 21:49:29 2002',
     #             'X-Persona',
     #             '<support@SoftwareDiamonds.com>',
     #             'Return-Path',
     #             '<everybody@hotmail.com>',
     #             'Delivered-To',
     #             'support@SoftwareDiamonds.com',
     #             'Received',
     #             '(qmail 24171 invoked from network); 25 Sep 2002 20:59:11 -0000',
     #             'Received',
     #             'from unknown (HELO mail.hbhosting.com) (66.28.88.4)
     #   by mail.ixpres.com with SMTP; 25 Sep 2002 20:59:11 -0000',
     #             'Received',
     #             '(qmail 75277 invoked by uid 89); 25 Sep 2002 21:10:22 -0000',
     #             'Delivered-To',
     #             'softwarediamonds.com-support@softwarediamonds.com',
     #             'Received',
     #             '(qmail 75275 invoked from network); 25 Sep 2002 21:10:22 -0000',
     #             'Received',
     #             'from unknown (HELO hotmail.com) (66.28.118.5)
     #   by 66.28.88.9 with SMTP; 25 Sep 2002 21:10:22 -0000',
     #             'X-Mailer',
     #             'SoftwareDiamonds.com/software/ Inetdia::sdmailit sdmailit() 1.0.005 May 9, 2002',
     #             'Date',
     #             'Wed, 25 Sep 2002 16:06:27 -0500',
     #             'To',
     #             'support@SoftwareDiamonds.com',
     #             'From',
     #             'everybody@hotmail.com',
     #             'Subject',
     #             '*~~* Software Diamonds sdform.pl *~~*',
     #             'X-Body',
     #             '
     # Comments:
     # Can I order a personalized stamp pad (name and address??
     # ^
     # 
     # Email:
     # everybody@hotmail.com
     # ^
     # 
     # Name:
     # Paul
     # ^
     # 
     # REMOTE_ADDR:
     # 24.165.157.193
     # ^
     # 
     # HTTP_USER_AGENT:
     # Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; Win 9x 4.90)
     # ^
     # 
     # HTTP_REFERER:
     # http://stationary.merchantdiamonds.com/
     # ^
     # 
     # '
     #           ],
     #           [
     #             'X-Pickup-Date',
     #             'Tue Dec 31 10:19:58 2002',
     #             'X-Persona',
     #             '<support@SoftwareDiamonds.com>',
     #             'Return-Path',
     #             '<girl@hotmail.com>',
     #             'Delivered-To',
     #             'support@SoftwareDiamonds.com',
     #             'Received',
     #             '(qmail 6236 invoked from network); 31 Dec 2002 09:04:00 -0000',
     #             'Received',
     #             'from one.nospam.ixpres.com (216.240.160.191)
     #   by mail.ixpres.com with SMTP; 31 Dec 2002 09:04:00 -0000',
     #             'Received',
     #             '(qmail 18721 invoked by uid 106); 30 Dec 2002 10:03:56 -0000',
     #             'Received',
     #             'from unknown (HELO mail.hbhosting.com) (66.28.88.4)
     #   by one.nospam.ixpres.com with SMTP; 30 Dec 2002 10:03:55 -0000',
     #             'Received',
     #             '(qmail 91583 invoked by uid 89); 31 Dec 2002 09:05:52 -0000',
     #             'Received',
     #             '(qmail 91581 invoked from network); 31 Dec 2002 09:05:52 -0000',
     #             'Received',
     #             'from unknown (HELO hotmail.com) (66.28.118.5)
     #   by zeus with SMTP; 31 Dec 2002 09:05:52 -0000',
     #             'X-Spam-Status',
     #             'No, hits=2.9 required=8.0 source=66.28.88.4 from=janigeorg@hotmail.com addr=1',
     #             'Delivered-To',
     #             'softwarediamonds.com-support@softwarediamonds.com',
     #             'X-Mailer',
     #             'SoftwareDiamonds.com/software/ Inetdia::sdmailit sdmailit() 1.0.005 May 9, 2002',
     #             'Date',
     #             'Tue, 31 Dec 2002 03:20:52 -0600',
     #             'To',
     #             'support@SoftwareDiamonds.com',
     #             'From',
     #             'girl@hotmail.com',
     #             'Subject',
     #             '*~~* Software Diamonds sdform.pl *~~*',
     #             'X-Qmail-Scanner-Message-ID',
     #             '<104124263551318713@one.nospam.ixpres.com>',
     #             'X-AntiVirus',
     #             'checked by Vexira MailArmor (version: 2.0.1.6; VAE: 6.17.0.2; VDF: 6.17.0.10; host: one.nospam.ixpres.com)',
     #             'X-Body',
     #             '
     # Email:
     # girl@hotmail.com
     # ^
     # 
     # Tutorial:
     # *~~* Better Health thru Biochemistry *~~*
     # ^
     # 
     # REMOTE_ADDR:
     # 81.26.160.109
     # ^
     # 
     # HTTP_USER_AGENT:
     # Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
     # ^
     # 
     # HTTP_REFERER:
     # http://camera.merchantdiamonds.com/
     # ^
     # 
     # '
     #           ]
     #         ]
     # 

     ##################
     # Object encode email fields
     # 

     my $eudora = new Tie::Eudora
     my $email = ${$eudora->encode_field($test_data[0])}

     # 'X-Pickup-Date: Wed Jul 24 20:20:19 2002
     # X-Persona: <support@SoftwareDiamonds.com>
     # Return-Path: somebody@compuserve.com
     # Delivered-To: support@SoftwareDiamonds.com
     # Received: (qmail 7321 invoked from network); 24 Jul 2002 17:26:21 -0000
     # Received: from unknown (HELO mail.hbhosting.com) (66.28.88.4)
     #   by mail.ixpres.com with SMTP; 24 Jul 2002 17:26:21 -0000
     # Received: (qmail 17747 invoked by uid 89); 24 Jul 2002 17:38:56 -0000
     # Delivered-To: softwarediamonds.com-support@softwarediamonds.com
     # Received: (qmail 17745 invoked from network); 24 Jul 2002 17:38:56 -0000
     # Received: from unknown (HELO compuserve.com) (66.28.118.5)
     #   by 66.28.88.9 with SMTP; 24 Jul 2002 17:38:56 -0000
     # X-Mailer: SoftwareDiamonds.com/software/ Inetdia::sdmailit sdmailit() 1.0.005 May 9, 2002
     # Date: Wed, 24 Jul 2002 12:30:37 -0500
     # To: support@SoftwareDiamonds.com
     # From: somebody@compuserve.com
     # Subject: *~~* Software Diamonds sdform.pl *~~*
     # 
     # Comments:
     # i read an interesting article many years ago about the effects of drugs on spiders in National Geographic Magazine. %0Ait showed webs woven by spiders ""under the influence.""  spiders high on marijuana wove bad webs; spiders on LSD wove exceptionally geometrical webs.%0Aanyone know how i can locate the date of and issue this appeared in?%0A %0Amany thanks in advance to someone who has walked at least a mile in my shoes.
     # ^
     # 
     # Email:
     # sombody@compuserve.com
     # ^
     # 
     # REMOTE_ADDR:
     # 216.192.88.155
     # ^
     # 
     # HTTP_USER_AGENT:
     # Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
     # ^
     # 
     # HTTP_REFERER:
     # http://www.spiderdiamonds.com/spider.htm
     # ^
     # 
     # '
     # 

     ##################
     # Object decode email fields
     # 

     $eudora->decode_field(\$email)

     # [
     #           'X-Pickup-Date',
     #           'Wed Jul 24 20:20:19 2002',
     #           'X-Persona',
     #           '<support@SoftwareDiamonds.com>',
     #           'Return-Path',
     #           'somebody@compuserve.com',
     #           'Delivered-To',
     #           'support@SoftwareDiamonds.com',
     #           'Received',
     #           '(qmail 7321 invoked from network); 24 Jul 2002 17:26:21 -0000',
     #           'Received',
     #           'from unknown (HELO mail.hbhosting.com) (66.28.88.4)
     #   by mail.ixpres.com with SMTP; 24 Jul 2002 17:26:21 -0000',
     #           'Received',
     #           '(qmail 17747 invoked by uid 89); 24 Jul 2002 17:38:56 -0000',
     #           'Delivered-To',
     #           'softwarediamonds.com-support@softwarediamonds.com',
     #           'Received',
     #           '(qmail 17745 invoked from network); 24 Jul 2002 17:38:56 -0000',
     #           'Received',
     #           'from unknown (HELO compuserve.com) (66.28.118.5)
     #   by 66.28.88.9 with SMTP; 24 Jul 2002 17:38:56 -0000',
     #           'X-Mailer',
     #           'SoftwareDiamonds.com/software/ Inetdia::sdmailit sdmailit() 1.0.005 May 9, 2002',
     #           'Date',
     #           'Wed, 24 Jul 2002 12:30:37 -0500',
     #           'To',
     #           'support@SoftwareDiamonds.com',
     #           'From',
     #           'somebody@compuserve.com',
     #           'Subject',
     #           '*~~* Software Diamonds sdform.pl *~~*',
     #           'X-Body',
     #           'Comments:
     # i read an interesting article many years ago about the effects of drugs on spiders in National Geographic Magazine. %0Ait showed webs woven by spiders ""under the influence.""  spiders high on marijuana wove bad webs; spiders on LSD wove exceptionally geometrical webs.%0Aanyone know how i can locate the date of and issue this appeared in?%0A %0Amany thanks in advance to someone who has walked at least a mile in my shoes.
     # ^
     # 
     # Email:
     # sombody@compuserve.com
     # ^
     # 
     # REMOTE_ADDR:
     # 216.192.88.155
     # ^
     # 
     # HTTP_USER_AGENT:
     # Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
     # ^
     # 
     # HTTP_REFERER:
     # http://www.spiderdiamonds.com/spider.htm
     # ^
     # 
     # '
     #         ]
     # 

     ##################
     # Subroutine encode email fields
     # 

     $email = ${encode_field($test_data[0])}

     # 'X-Pickup-Date: Wed Jul 24 20:20:19 2002
     # X-Persona: <support@SoftwareDiamonds.com>
     # Return-Path: somebody@compuserve.com
     # Delivered-To: support@SoftwareDiamonds.com
     # Received: (qmail 7321 invoked from network); 24 Jul 2002 17:26:21 -0000
     # Received: from unknown (HELO mail.hbhosting.com) (66.28.88.4)
     #   by mail.ixpres.com with SMTP; 24 Jul 2002 17:26:21 -0000
     # Received: (qmail 17747 invoked by uid 89); 24 Jul 2002 17:38:56 -0000
     # Delivered-To: softwarediamonds.com-support@softwarediamonds.com
     # Received: (qmail 17745 invoked from network); 24 Jul 2002 17:38:56 -0000
     # Received: from unknown (HELO compuserve.com) (66.28.118.5)
     #   by 66.28.88.9 with SMTP; 24 Jul 2002 17:38:56 -0000
     # X-Mailer: SoftwareDiamonds.com/software/ Inetdia::sdmailit sdmailit() 1.0.005 May 9, 2002
     # Date: Wed, 24 Jul 2002 12:30:37 -0500
     # To: support@SoftwareDiamonds.com
     # From: somebody@compuserve.com
     # Subject: *~~* Software Diamonds sdform.pl *~~*
     # 
     # Comments:
     # i read an interesting article many years ago about the effects of drugs on spiders in National Geographic Magazine. %0Ait showed webs woven by spiders ""under the influence.""  spiders high on marijuana wove bad webs; spiders on LSD wove exceptionally geometrical webs.%0Aanyone know how i can locate the date of and issue this appeared in?%0A %0Amany thanks in advance to someone who has walked at least a mile in my shoes.
     # ^
     # 
     # Email:
     # sombody@compuserve.com
     # ^
     # 
     # REMOTE_ADDR:
     # 216.192.88.155
     # ^
     # 
     # HTTP_USER_AGENT:
     # Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
     # ^
     # 
     # HTTP_REFERER:
     # http://www.spiderdiamonds.com/spider.htm
     # ^
     # 
     # '
     # 

     ##################
     # Subroutine decode email fields
     # 

     decode_field(\$email)

     # [
     #           'X-Pickup-Date',
     #           'Wed Jul 24 20:20:19 2002',
     #           'X-Persona',
     #           '<support@SoftwareDiamonds.com>',
     #           'Return-Path',
     #           'somebody@compuserve.com',
     #           'Delivered-To',
     #           'support@SoftwareDiamonds.com',
     #           'Received',
     #           '(qmail 7321 invoked from network); 24 Jul 2002 17:26:21 -0000',
     #           'Received',
     #           'from unknown (HELO mail.hbhosting.com) (66.28.88.4)
     #   by mail.ixpres.com with SMTP; 24 Jul 2002 17:26:21 -0000',
     #           'Received',
     #           '(qmail 17747 invoked by uid 89); 24 Jul 2002 17:38:56 -0000',
     #           'Delivered-To',
     #           'softwarediamonds.com-support@softwarediamonds.com',
     #           'Received',
     #           '(qmail 17745 invoked from network); 24 Jul 2002 17:38:56 -0000',
     #           'Received',
     #           'from unknown (HELO compuserve.com) (66.28.118.5)
     #   by 66.28.88.9 with SMTP; 24 Jul 2002 17:38:56 -0000',
     #           'X-Mailer',
     #           'SoftwareDiamonds.com/software/ Inetdia::sdmailit sdmailit() 1.0.005 May 9, 2002',
     #           'Date',
     #           'Wed, 24 Jul 2002 12:30:37 -0500',
     #           'To',
     #           'support@SoftwareDiamonds.com',
     #           'From',
     #           'somebody@compuserve.com',
     #           'Subject',
     #           '*~~* Software Diamonds sdform.pl *~~*',
     #           'X-Body',
     #           'Comments:
     # i read an interesting article many years ago about the effects of drugs on spiders in National Geographic Magazine. %0Ait showed webs woven by spiders ""under the influence.""  spiders high on marijuana wove bad webs; spiders on LSD wove exceptionally geometrical webs.%0Aanyone know how i can locate the date of and issue this appeared in?%0A %0Amany thanks in advance to someone who has walked at least a mile in my shoes.
     # ^
     # 
     # Email:
     # sombody@compuserve.com
     # ^
     # 
     # REMOTE_ADDR:
     # 216.192.88.155
     # ^
     # 
     # HTTP_USER_AGENT:
     # Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)
     # ^
     # 
     # HTTP_REFERER:
     # http://www.spiderdiamonds.com/spider.htm
     # ^
     # 
     # '
     #         ]
     # 

QUALITY ASSURANCE
    The module "t::Tie::Eudora" is the Software Test Description(STD) module
    for the "Tie::CVS" program module.

    To generate all the test output files, run the generated test script,
    run the demonstration script, execute the following in any directory:

     tmake -verbose -demo -run -test_verbose -pm=t::Tie::Eudora

    Note that tmake.pl must be in the execution path "$ENV{PATH}" and the
    "t" directory on the same level as the "lib" that contains the
    "Tie::Eudora" program module. The "tmake" subroutine is in the
    "Test::STDmaker|Test::STDmaker" distribution file.

NOTES
  Binding Requirements

    In accordance with the License, Software Diamonds is not liable for any
    requirement, binding or otherwise.

  Author

    The author, holder of the copyright and maintainer is

    <support@SoftwareDiamonds.com>

  Copyright

    copyright © 2003 SoftwareDiamonds.com

  License

    Software Diamonds permits the redistribution and use in source and
    binary forms, with or without modification, provided that the following
    conditions are met:

    1   Redistributions of source code, modified or unmodified must retain
        the above copyright notice, this list of conditions and the
        following disclaimer.

    2   Redistributions in binary form must reproduce the above copyright
        notice, this list of conditions and the following disclaimer in the
        documentation and/or other materials provided with the distribution.

    3   Commercial installation of the binary or source must visually
        present to the installer the above copyright notice, this list of
        conditions intact, that the original source is available at
        http://softwarediamonds.com and provide means for the installer to
        actively accept the list of conditions; otherwise, a license fee
        must be paid to Softwareware Diamonds.

    SOFTWARE DIAMONDS, http://www.SoftwareDiamonds.com, PROVIDES THIS
    SOFTWARE 'AS IS' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT
    NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
    FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SOFTWARE
    DIAMONDS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
    SPECIAL,EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
    TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,DATA, OR
    PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
    LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING USE
    OF THIS SOFTWARE, EVEN IF ADVISED OF NEGLIGENCE OR OTHERWISE) ARISING IN
    ANY WAY OUT OF THE POSSIBILITY OF SUCH DAMAGE.

SEE ALSO
    RFC 821, http://www.ietf.org/rfc/rfc821.txt
    RFC 822, http://www.ietf.org/rfc/rfc822.txt
    Tie::Layers
    Test::STDmaker
    Tie::Forms
    Tie::Eudora
    Data::Query
NAME
    Docs::Site_SVD::Tie_Eudora - encode/decode emails, read/write emails in
    Eudora mailbox files

Title Page
     Software Version Description

     for

     Docs::Site_SVD::Tie_Eudora - encode/decode emails, read/write emails in Eudora mailbox files

     Revision: -

     Version: 0.01

     Date: 2004/05/29

     Prepared for: General Public 

     Prepared by:  SoftwareDiamonds.com E<lt> support@SoftwareDiamonds.comE <gt>

     Copyright: copyright © 2004 Software Diamonds

     Classification: NONE

1.0 SCOPE
    This paragraph identifies and provides an overview of the released
    files.

  1.1 Identification

    This release, identified in 3.2, is a collection of Perl modules that
    extend the capabilities of the Perl language.

  1.2 System overview

    The "Tie::Eudora" program module provides a File Handle Tie package for
    reading and writing of Eudora mailbox files. The "Tie::Eudora" package
    handles each email in Eudora mailbox files as a record. Each record is
    read and written not as a scalar text string but as an array of
    "field-name, field-body" pairs corresponding to the header and body
    fields in the email.

  1.3 Document overview.

    This document releases Tie::Eudora version 0.01 providing description of
    the inventory, installation instructions and other information necessary
    to utilize and track this release.

3.0 VERSION DESCRIPTION
    All file specifications in this SVD use the Unix operating system file
    specification.

  3.1 Inventory of materials released.

    This document releases the file

     Tie-Eudora-0.01.tar.gz

    found at the following repository(s):

      http://www.softwarediamonds/packages/
      http://www.perl.com/CPAN/authors/id/S/SO/SOFTDIA/

    Restrictions regarding duplication and license provisions are as
    follows:

    Copyright.
        copyright © 2004 Software Diamonds

    Copyright holder contact.
         603 882-0846 E<lt>support@SoftwareDiamonds.comE<gt>

    License.
        Software Diamonds permits the redistribution and use in source and
        binary forms, with or without modification, provided that the
        following conditions are met:

        1   Redistributions of source code, modified or unmodified must
            retain the above copyright notice, this list of conditions and
            the following disclaimer.

        2   Redistributions in binary form must reproduce the above
            copyright notice, this list of conditions and the following
            disclaimer in the documentation and/or other materials provided
            with the distribution.

        3   Commercial installation of the binary or source must visually
            present to the installer the above copyright notice, this list
            of conditions intact, that the original source is available at
            http://softwarediamonds.com and provide means for the installer
            to actively accept the list of conditions; otherwise, a license
            fee must be paid to Softwareware Diamonds.

        SOFTWARE DIAMONDS, http://www.SoftwareDiamonds.com, PROVIDES THIS
        SOFTWARE 'AS IS' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING,
        BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
        FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
        SOFTWARE DIAMONDS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
        SPECIAL,EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
        LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
        USE,DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
        ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
        OR TORT (INCLUDING USE OF THIS SOFTWARE, EVEN IF ADVISED OF
        NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE POSSIBILITY
        OF SUCH DAMAGE.

  3.2 Inventory of software contents

    The content of the released, compressed, archieve file, consists of the
    following files:

     file                                                         version date       comment
     ------------------------------------------------------------ ------- ---------- ------------------------
     lib/Docs/Site_SVD/Tie_Eudora.pm                              0.01    2004/05/29 new
     MANIFEST                                                     0.01    2004/05/29 generated new
     Makefile.PL                                                  0.01    2004/05/29 generated new
     README                                                       0.01    2004/05/29 generated new
     lib/Tie/Eudora.pm                                            0.01    2004/05/29 new
     t/Tie/Eudora.d                                               0.01    2004/05/29 new
     t/Tie/Eudora.pm                                              0.01    2004/05/29 new
     t/Tie/Eudora.t                                               0.01    2004/05/29 new
     t/Tie/Eudora2.mbx                                            0.01    2004/05/29 new
     t/Tie/File/SmartNL.pm                                        1.16    2004/05/29 new
     t/Tie/File/Package.pm                                        1.18    2004/05/29 new
     t/Tie/Test/Tech.pm                                           1.27    2004/05/29 new
     t/Tie/Data/Secs2.pm                                          1.26    2004/05/29 new
     t/Tie/Data/Str2Num.pm                                        0.08    2004/05/29 new

  3.3 Changes

    Changes to previous revisions are as follows:

    Tie::Eudora 0.01
        Originated

  3.4 Adaptation data.

    This installation requires that the installation site has the Perl
    programming language installed. There are no other additional
    requirements or tailoring needed of configurations files, adaptation
    data or other software needed for this installation particular to any
    installation site.

  3.5 Related documents.

    There are no related documents needed for the installation and test of
    this release.

  3.6 Installation instructions.

    Instructions for installation, installation tests and installation
    support are as follows:

    Installation Instructions.
        To installed the release file, use the CPAN module pr PPM module in
        the Perl release or the INSTALL.PL script at the following web site:

         http://packages.SoftwareDiamonds.com

        Follow the instructions for the the chosen installation software.

        If all else fails, the file may be manually installed. Enter one of
        the following repositories in a web browser:

          http://www.softwarediamonds/packages/
          http://www.perl.com/CPAN/authors/id/S/SO/SOFTDIA/

        Right click on 'Tie-Eudora-0.01.tar.gz' and download to a temporary
        installation directory. Enter the following where $make is 'nmake'
        for microsoft windows; otherwise 'make'.

         gunzip Tie-Eudora-0.01.tar.gz
         tar -xf Tie-Eudora-0.01.tar
         perl Makefile.PL
         $make test
         $make install

        On Microsoft operating system, nmake, tar, and gunzip must be in the
        exeuction path. If tar and gunzip are not install, download and
        install unxutils from

         http://packages.softwarediamonds.com

    Prerequistes.
         'Tie::Layers' => '0.06',
         'Data::Startup' => '0.08',

    Security, privacy, or safety precautions.
        None.

    Installation Tests.
        Most Perl installation software will run the following test
        script(s) as part of the installation:

         t/Tie/Eudora.t

    Installation support.
        If there are installation problems or questions with the
        installation contact

         603 882-0846 E<lt>support@SoftwareDiamonds.comE<gt>

  3.7 Possible problems and known errors

    There are no known open issues.

4.0 NOTES
    The following are useful acronyms:

    .d  extension for a Perl demo script file

    .pm extension for a Perl Library Module

    .t  extension for a Perl test script file

2.0 SEE ALSO
    Tie::Eudora