File Coverage

blib/lib/Mail/Digest/Tools.pm

Criterion	Covered	Total	%
statement	572	854	66.9
branch	166	422	39.3
condition	9	68	13.2
subroutine	30	34	88.2
pod	7	7	100.0
total	784	1385	56.6

package Mail::Digest::Tools;
$VERSION = 2.12;        # 05/14/2011
use strict;
use warnings;
use Time::Local;
our @ISA = ("Exporter");
our @EXPORT_OK = qw(
    process_new_digests
    reprocess_ALL_digests
    reply_to_digest_message
    repair_message_order
    consolidate_threads_multiple
    consolidate_threads_single
    delete_deletables
);
our %EXPORT_TAGS = (
    all => \@EXPORT_OK,
);

########################## Package Variables ###################################

our %month30 = map {$_, 1} (4,6,9,11);
our %month31 = map {$_, 1} (1,3,5,7,8,10,12);
our %unix    = map {$_, 1}
    qw| Unix linux darwin freebsd netbsd openbsd mirbsd cygwin solaris |;

############################### Initializer ###################################

sub _config_check {
    my ($config_in_ref, $config_out_ref) = @_;
    die "Cannot find ${$config_out_ref}{'dir_digest'}: $!"
        unless (-d ${$config_out_ref}{'dir_digest'});
    die "Missing threads directory: $!"
        unless (-d ${$config_out_ref}{'dir_threads'});
    die "Except for '\n' newline, backslashes are not permitted\n  in Thread Message Delimiter: $!"
        if (${$config_out_ref}{'thread_msg_delimiter'} =~ /\\[^n]|\\$/);
    # to do:
    # here do error checking on other digest.data info that is
    # absolutely necessary for all conceivable uses of Mail::Digest::Tools
}

############################ Public Methods ####################################

sub process_new_digests {
    my ($config_in_ref, $config_out_ref) = @_;
    _config_check($config_in_ref, $config_out_ref);
    my $choice = _start_new_only(${$config_out_ref}{'title'});
    _main_processor($config_in_ref, $config_out_ref, $choice);
}

sub reprocess_ALL_digests {
    my ($config_in_ref, $config_out_ref) = @_;
    _config_check($config_in_ref, $config_out_ref);
    my $choice = _start_ALL(${$config_out_ref}{'title'});
    _main_processor($config_in_ref, $config_out_ref, $choice);
}

sub reply_to_digest_message {
    my ($config_in_ref, $config_out_ref,
        $dig_number, $dig_entry, $dir_for_reply) = @_;
    _config_check($config_in_ref, $config_out_ref);
    my $digests_ref = _get_digest_list(
        $config_in_ref,
        $config_out_ref,
    );
    my $digest_verified = _identify_target_digest(
        $config_in_ref,
        $config_out_ref,
        $dig_number,
        $dig_entry,
        $digests_ref
    );
    my $replyfile = _strip_down_for_reply(
        $config_in_ref,
        $config_out_ref,
        $digest_verified,
        $dig_entry,
        $dir_for_reply,
    );
    return $replyfile;
}

sub repair_message_order {
    # But what about todays_topics.txt?  It will be out of order as well.
    my ($config_in_ref, $config_out_ref, $error_date_ref) = @_;
    _config_check($config_in_ref, $config_out_ref);
    local $_;
    my $date_threshold = _verify_date($error_date_ref);
    my $delimiter   = ${$config_out_ref}{'thread_msg_delimiter'};
    my $dir_threads = ${$config_out_ref}{'dir_threads'};
    my (@threadfiles, @resorted_threadfiles);
    chdir $dir_threads or die "Unable to change to $dir_threads: $!";
    opendir DIR, $dir_threads or die "Unable to open $dir_threads: $!";
    @threadfiles = grep {! m/^\./ } readdir DIR;
    closedir DIR or die "Unable to close $dir_threads: $!";
    foreach my $in (@threadfiles) {
        my (@msgids);
        my (%messages);
        my $mtime = (stat($in))[9];
        if ($date_threshold < $mtime) {
            my $msgs_ref = _get_array_of_messages($in, $delimiter);
            foreach my $msg (@{$msgs_ref}) {
                my @lines = split(/\n/, $msg);
                my ($ln);
                while (defined($ln = shift(@lines))) {
                    if ($ln =~ /^Message:      ([\d_]+)$/) {
                        push(@msgids, $1);
                        $messages{$1} = $msg;
                        last;
                    }
                }
            }
            my ($need_resort_flag);
            for (my $el = 1; $el <= $#msgids; $el++) {
                if ($msgids[$el] lt $msgids[$el-1]) {
                    $need_resort_flag++;
                    last;
                }
            }
            if ($need_resort_flag) {
                my $out = "$in.bak";
                open OUT, ">$out" or die "Couldn't open $out for writing: $!";
                foreach my $msg (sort keys %messages) {
                    print OUT $messages{$msg}, $delimiter;
                }
                close OUT or die "Couldn't close $out after writing: $!";
                rename($out, $in) or die "Couldn't rename $out to $in: $!";
                push(@resorted_threadfiles, $in);
            }
        }
    }
    if (@resorted_threadfiles) {
        print "Message order has been re-sorted in\n";
        print "  $_\n" foreach @resorted_threadfiles;
    }
}

sub consolidate_threads_multiple {
    my ($config_in_ref, $config_out_ref);
    $config_in_ref  = shift;
    $config_out_ref = shift;
    my $first_common_letters = defined $_[0] ? $_[0] : 20;
    my $delimiter   = ${$config_out_ref}{'thread_msg_delimiter'};
    my $dir_threads = ${$config_out_ref}{'dir_threads'};
    local $_;
    my (@threadfiles, %threadstubs, %stubs_for_consol);
    chdir $dir_threads or die "Unable to change to $dir_threads: $!";
    opendir DIR, $dir_threads or die "Unable to open $dir_threads: $!";
    @threadfiles = map {/(.*)\.thr\.txt$/} readdir DIR;
    closedir DIR or die "Unable to close $dir_threads: $!";
    foreach (@threadfiles) {
        my $stub = substr($_, 0, $first_common_letters);
        push @{$threadstubs{$stub}}, "$_.thr.txt";
    }
    my ($k,$v, $consolcount);
    CONSOL: while ( ($k,$v) = each(%threadstubs)) {
        if (@{$v} > 1) {
            $consolcount++;
            print "Candidates for consolidation:\n";
            foreach my $thrfile (@{$v}) {
                print "  $thrfile\n";
            }
            while () {
                my ($selection);
                print "\nTo consolidate, type YES:  ";
                chomp ($selection = <>);
                if ($selection eq 'YES') {
                    print "\n  Files will be consolidated\n\n";
                    $stubs_for_consol{$k} = $v;
                } else {
                    print "\n  Files will not be consolidated\n\n";
                }
                next CONSOL;
            }
        }
    }
    unless ($consolcount) {
        warn "\nAnalysis of the first $first_common_letters letters of each file in\n  $dir_threads\n  shows no candidates for consolidation.  Please hard-code\n  names of files you wish to consolidate as arguments to\n  \&consolidate_threads_single:\n $!";
    }
    foreach my $k (keys %stubs_for_consol) {
        consolidate_threads_single(
            $config_in_ref,
            $config_out_ref,
            \@{$stubs_for_consol{$k}}
        );
    }
}

sub consolidate_threads_single {
    my ($config_in_ref, $config_out_ref, $filesref) = @_;
    my $delimiter   = ${$config_out_ref}{'thread_msg_delimiter'};
    my $dir_threads = ${$config_out_ref}{'dir_threads'};
    local $_;
    my (%messages, @superseded);
    foreach my $in (@{$filesref}) {
        unless ($in =~ /^$dir_threads/) {
            $in = "$dir_threads/$in";
        }
        my $msgs_ref = _get_array_of_messages($in, $delimiter);
        foreach my $msg (@{$msgs_ref}) {
            my @lines = split(/\n/, $msg);
            my ($ln);
            while (defined($ln = shift(@lines))) {
                if ($ln =~ /^Message:      ([\d_]+)$/) {
                    die "Message $1 already exists: $!"
                        if (exists $messages{$1});
                    $messages{$1} = [ $msg, $in ];
                    last;
                }
            }
        }
        push(@superseded, $in);
    }
    my @msgids = sort keys %messages;
    my $first_in_thread = "$messages{$msgids[0]}[1]";
    my $out =  $first_in_thread . '.bak';
    open OUT, ">$out" or die "Couldn't open $out for writing: $!";
    foreach (sort keys %messages) {
        print OUT $messages{$_}[0], $delimiter;
    }
    close OUT or die "Couldn't close $out after writing: $!";
    foreach (@superseded) {
        rename($_, $_ . '.DELETABLE') or die "Couldn't rename $_: $!";
    }
    rename($out, $first_in_thread)
        || die "Couldn't rename $out to $first_in_thread: $!";
}

sub delete_deletables {
    my $config_out_ref = shift;
    my $dir_threads = ${$config_out_ref}{'dir_threads'};
    local $_;
    my (@deletables);
    chdir $dir_threads or die "Unable to change to $dir_threads: $!";
    opendir DIR, $dir_threads or die "Unable to open $dir_threads: $!";
    @deletables = grep { /\.DELETABLE$/ } readdir DIR;
    closedir DIR or die "Unable to close $dir_threads: $!";
    foreach (@deletables) {
        print "Deleting $_\n";
        unlink $_ or die "Couldn't unlink $_: $!";
    }
}

############################ Private Methods ###################################

sub _start_new_only {
    my $full_title = shift;
    print "\nProcessing new $full_title digest files only!\n\n";
    return '';
}

sub _start_ALL {
    # prints screen prompts which ask user to choose between
    # default version (process newly arrived digests only) and
    # full version (process or re-process all digests)
    my $full_title = shift @_;
    my ($choice);
    print "\n                            " . uc($full_title) . "\n";
    print <

     By default, this program processes only NEWLY ARRIVED
     $full_title files found in this directory.  Messages in
     these new digests are sorted and appended to the appropriate
     ".thr.txt" files in the "Threads" subdirectory.

     However, by choosing method 'reprocess_ALL_digests()' you have
     indicated that you wish to process ALL digest files found in this
     directory -- regardless of whether or not they have previously been
     processed.  This is recommended ONLY for initialization and testing
     of this program.

     Since this will wipe out all threads files ('.thr.txt') as well --
     including threads files for which you no longer have their source
     digest files -- please confirm that this is your intent by typing
     ALL at the prompt.


                               GOT IT?

XQ18

    print qq{Hit 'Enter' -- or, to process ALL digests in this directory,
type 'ALL' and hit 'Enter':  };
    chomp ($choice = );
    if ($choice eq 'ALL') {
        print qq{
     You have chosen to WIPE OUT all '.thr.txt' files currently
     existing in the 'Threads' subdirectory and reprocess all
     $full_title digest files from scratch.

     Please re-confirm your choice by once again typing 'ALL'
         and hitting 'Enter': };

        chomp (my $confirm = );
        if ($choice eq $confirm) {
            print "\n              Processing ALL digests in this directory!\n";
        } else {
            die "\n              Choice not confirmed; exiting program.  $!\n";
        }
    } else {
        print "\n                  Processing new digest files only!\n";
        $choice = '';
    }
    print "\n";
    return $choice;
}

sub _main_processor {
    my ($config_in_ref, $config_out_ref, $choice) = @_;

    my $recentref   = _archive_or_kill($config_out_ref);

    my $digests_ref = _get_digest_list($config_in_ref, $config_out_ref);

    my $in_out_ref  = _prep_source_file(
        $config_in_ref, $config_out_ref, $digests_ref);  #v1.94

    $in_out_ref     = _get_log_data($config_out_ref, $choice, $in_out_ref);

    my ($message_count, $thread_count);
    ($in_out_ref, $message_count, $thread_count) = _strip_down(
        $in_out_ref,
        $config_in_ref,
        $config_out_ref,
        $recentref,
    );

    _update_all_topics($choice, $config_out_ref, $in_out_ref);

    _print_results(
        scalar(keys %$in_out_ref),
        $message_count,
        $config_out_ref,
        $thread_count,
    );
}

sub _archive_or_kill {
    my $config_out_ref = shift;
    my $dir_threads = ${$config_out_ref}{'dir_threads'};
    my $trigger = ${$config_out_ref}{'archive_kill_trigger'};
    my $threshold = defined ${$config_out_ref}{'archive_kill_days'}
                  ? ${$config_out_ref}{'archive_kill_days'}
                  : 14;  # v1.95
    my ($thr, %recent, %nonrecent, $recentref);
    chdir($dir_threads) || die "cannot chdir to $dir_threads $!";
    opendir THR, $dir_threads or die "cannot open $dir_threads: $!";
    while ($thr = readdir THR) {
        next unless ( ($thr =~ /\.thr\.txt$/) and (-f $thr) );
        if ($trigger == 0) {
            $recent{$thr}++;
        } else {
            -M $thr <= $threshold  # v1.95
                ? $recent{$thr}++
                : $nonrecent{$thr}++;
        }
    }
    closedir THR or die "Cannot close $dir_threads: $!";
    return \%recent if ($trigger == 0);
    if ($trigger == 1) {
        _archive_old_files($config_out_ref, \%nonrecent);
    } elsif ($trigger == -1) {
        _kill_old_files($config_out_ref, \%nonrecent);
    } else {
        die "$trigger is invalid value for archive_kill_trigger: $!";
    }
    return \%recent;
}

sub _archive_old_files {
    my ($config_out_ref, $nonrecentref) = @_;
    my $dir_threads     = ${$config_out_ref}{'dir_threads'};
    my $archfile        = defined ${$config_out_ref}{'archived_today'}
                        ? ${$config_out_ref}{'archived_today'}
                        : "${$config_out_ref}{'dir_digest'}/archived_today.txt";
    my $dir_archive_top = ${$config_out_ref}{'dir_archive_top'};
    die "Missing top archive directory: $!" unless (-d $dir_archive_top);
    foreach ('a'..'z') {
        die "Missing archive subdirectory $_: $!" unless (-d "$dir_archive_top/$_");
    }
    die "Missing archive subdirectory 'other': $!" unless (-d "$dir_archive_top/other");

    open ARCH, ">$archfile" or die "Couldn't open $archfile for writing: $!";
    print ARCH 'Archived today (', scalar(localtime), "):\n";
    print ARCH '-' x 41, "\n";

    my ($thr, $archstr);
    my $toarchive = 0;
    foreach $thr (sort keys %{$nonrecentref}) {
        my $initial = lc(substr $thr, 0, 1);
        print "Archiving: $thr\n";
        $archstr .= $thr . "\n";
        if ($initial =~ /[a-zA-Z]/) {
            rename($thr, "$dir_archive_top/$initial/$thr") or die "Couldn't move $thr: $!";
        } else {
            rename($thr, "$dir_archive_top/other/$thr") or die "Couldn't move $thr: $!";
        }
        $toarchive++;
        print "$toarchive files archived\n\n" if ($toarchive % 100 == 0);
    }
    print "$toarchive files archived\n\n";
    $toarchive ? print ARCH $archstr : print ARCH "[None.]\n";
    close ARCH or die "Couldn't close $archfile after writing: $!";
}

sub _kill_old_files {
    my ($config_out_ref, $nonrecentref) = @_;
    my $dir_threads = ${$config_out_ref}{'dir_threads'};
    my $killfile = defined ${$config_out_ref}{'deleted_today'}
                 ? ${$config_out_ref}{'deleted_today'}
                 : "${$config_out_ref}{'dir_digest'}/deleted_today.txt"; # v1.95
    open KILL, ">$killfile" or die "Couldn't open $killfile for writing: $!";
    print KILL 'Deleted today (', scalar(localtime), "):\n";
    print KILL '-' x 40, "\n";

    my ($thr, $killstr);
    my $tokill = 0;
    foreach $thr (sort keys %{$nonrecentref}) {
        print "Unlinking: $thr\n";
        $killstr .= $thr . "\n";
        unlink $thr or die "Couldn't unlink $thr: $!";
        $tokill++;
        print "$tokill files deleted\n" if ($tokill % 100 == 0);
    }
    print "$tokill files deleted\n";
    $tokill ? print KILL $killstr : print KILL "[None.]\n";
    close KILL or die "Couldn't close $killfile after writing: $!";
}

sub _get_digest_list {
    my ($config_in_ref, $config_out_ref) = @_;
    opendir(DIR, ${$config_out_ref}{'dir_digest'}) || die "no ${$config_out_ref}{'dir_digest'}?: $!";
    my @digests =
        sort { lc($a) cmp lc($b) }
        grep { /${$config_in_ref}{'grep_formula'}/ }
        readdir(DIR);
    closedir(DIR) || die "Could not close ${$config_out_ref}{'dir_digest'}: $!";
    return \@digests;
}

sub _prep_source_file {
    my ($config_in_ref, $config_out_ref, $digests_ref) = @_;  # v1.94
    # %in_out: hash of all instances in directory of a given digest,
    # value refers to digest's title and its message topics
    my (%in_out, $id);
    foreach (@{$digests_ref}) {
        $_ =~ m/${$config_in_ref}{'pattern_target'}/;
        $id = eval(${$config_out_ref}{'id_format'});  # v1.94
        $in_out{$id} = [ $_ ];
    }
    return \%in_out;
}

sub _identify_target_digest {
    my ($config_in_ref, $config_out_ref,
            $dig_number, $dig_entry, $digests_ref) = @_;
    my ($hit);
    foreach my $digfile (@{$digests_ref}) {
        $digfile =~ m/${$config_in_ref}{'pattern_target'}/;
        if (defined $2) {
            next unless ($2 == $dig_number);
            $hit = $digfile;
            last;
        } elsif ((defined $1) and (! defined $2)) {
            next unless ($1 == $dig_number);
            $hit = $digfile;
            last;
        } else {
            die "Could'nt process digest filename to identify target digest: $!";
        }
    }
    if (defined $hit) {
        return $hit;
    } else {
        print STDERR "No ${$config_out_ref}{'title'} digest numbered $dig_number could be found in directory\n";
        print STDERR "  ${$config_out_ref}{'dir_digest'}\n";
        exit 0;
    }
}

sub _get_log_data {
    my ($config_out_ref, $choice, $in_out_ref) = @_;
    my $dir_digest  = ${$config_out_ref}{'dir_digest'};
    my $dir_threads = ${$config_out_ref}{'dir_threads'};
    my $logfile     = ${$config_out_ref}{'digests_log'};
    my $readfile    = defined ${$config_out_ref}{'digests_read'}  # new in 1.95
                    ? ${$config_out_ref}{'digests_read'}
                    : "$dir_digest/digests_read.txt";

    # hash which pulls in data from an external log file that
    # records which digests have been previously processed
    my (%hashlog);
    open(LOG, $logfile) || die "cannot open $logfile for reading: $!";
    while () {
        chomp;
        my @entrydata = split(/;/);
        $hashlog{$entrydata[0]} = [ @entrydata[1..$#entrydata] ];
    }
    close(LOG) || die "cannot close $logfile: $!";

    foreach ( sort keys %$in_out_ref ) {
        # if this is 1st time this digest has been seen for processing ...
        if (! exists $hashlog{$_}) {
            $hashlog{$_}[1] = $hashlog{$_}[0] = scalar localtime;

        # if this digest has been seen for processing already ...
        } else {

            # either we're going to re-process every digest ...
            if ($choice eq 'ALL') {
                chdir($dir_threads) || die "cannot chdir to $dir_threads $!";
                my ($thrfile);
                opendir(THREADS, $dir_threads) || die "no $dir_threads?: $!";
                while ($thrfile = readdir(THREADS) ) {
                    next unless $thrfile =~ /\.thr\.txt$/;
                    unlink $thrfile || warn "having trouble deleting $thrfile: $!";
                }
                closedir(THREADS) or die "Couldn't close $dir_threads: $!";
                chdir($dir_digest) || die "cannot chdir to $dir_digest $!";
                $hashlog{$_}[1] = scalar localtime;

            # or we're only going to process new digest files
            } else {
                delete ${$in_out_ref}{$_};
            }
        }
    }
    _update_digests_log(\%hashlog, $logfile);
    _update_digests_read(
        ${$config_out_ref}{'title'},
        \%hashlog,
        $readfile,  # new in v1.95
    ) if ${$config_out_ref}{'digests_read_flag'};
    return ($in_out_ref);
}

sub _update_digests_log {    # must be supplied with ref to %hashlog
    my ($hashlog_ref, $logfile) = @_;
    my ($logstring);
    foreach ( sort keys %$hashlog_ref ) {
#        $logstring .= $_ . ';' . ${%$hashlog_ref}{$_}[0] . ';' .
#            ${%$hashlog_ref}{$_}[1]. "\n";
        $logstring .= $_ . ';' . ${$hashlog_ref}{$_}[0] . ';' .
            ${$hashlog_ref}{$_}[1]. "\n";
    }
    open(LOG, ">$logfile") || die "cannot open $logfile for writing: $!";
    print LOG $logstring;
    close(LOG) || die "cannot close $logfile: $!";
}

sub _update_digests_read {    # must be supplied with $title and ref to %hashlog
    my ($title, $hashlog_ref, $readfile) = @_;
    my $readstring = '';
    $readstring .= "$title Digest\n";
    foreach ( sort keys %$hashlog_ref ) {
       $readstring .= "\n$_:\n";
#       $readstring .= "    first processed at          ${%$hashlog_ref}{$_}[0]\n";
#       $readstring .= "    most recently processed at  ${%$hashlog_ref}{$_}[1]\n";
       $readstring .= "    first processed at          ${$hashlog_ref}{$_}[0]\n";
       $readstring .= "    most recently processed at  ${$hashlog_ref}{$_}[1]\n";
    }
    open(READ, ">$readfile") || die "cannot open $readfile for writing: $!";
    print READ $readstring;
    close(READ) || die "can't close $readfile:$!";
}

sub _strip_down {
    my ($in_out_ref, $config_in_ref, $config_out_ref, $recentref) = @_;
    my $MIME_cleanup_flag      = ${$config_in_ref}{'MIME_cleanup_flag'};
    my $topics_intro           = ${$config_in_ref}{'topics_intro'};
    my $post_topics_delimiter  = ${$config_in_ref}{'post_topics_delimiter'};
    my $source_msg_delimiter   = ${$config_in_ref}{'source_msg_delimiter'};
    my $subject_constant       = ${$config_in_ref}{'subject_constant'}
        if (defined ${$config_in_ref}{'subject_constant'});
    my $archive_kill_trigger   = ${$config_out_ref}{'archive_kill_trigger'};
    my $dir_digest             = ${$config_out_ref}{'dir_digest'};
    my $dir_threads            = ${$config_out_ref}{'dir_threads'};
    my $thread_msg_delimiter   = ${$config_out_ref}{'thread_msg_delimiter'};
    my $optional_fields_ref    = ${$config_out_ref}{'optional_fields'}
        if (defined ${$config_out_ref}{'optional_fields'});
    my $MIME_cleanup_log_flag  = ${$config_out_ref}{'MIME_cleanup_log_flag'}
        if (defined ${$config_out_ref}{'MIME_cleanup_log_flag'});

    my (%recent, $mimelog, %optional_fields);
    %recent = defined $recentref ? %$recentref : ();
    if (defined $optional_fields_ref) {
        my $i = 0;
        foreach my $opt (@{$optional_fields_ref}) {
            my $longkey = $opt . '_style_flag';
            if (defined ${$config_in_ref}{$longkey}) {
                next unless (${$config_in_ref}{$longkey} =~ /\^(.*?):/);
                $optional_fields{$i} = [ $opt, $1 ];
                $i++;
            } else {
                warn "WARNING:\n  '$opt' is not available as a header field for digest ${$config_out_ref}{'title'}\n";
            }
        }
    }

    # Analysis of source message delimiter:
    my $delimiter_core =
        substr( $source_msg_delimiter, 0, index($source_msg_delimiter, "\n") );

    my $message_count = 0;
    my %seen = ();
    my $seen_ref = \%seen;
    my ($output_ref);
    if ($MIME_cleanup_flag) {
        $mimelog = defined ${$config_out_ref}{'mimelog'} # v1.96
                   ? ${$config_out_ref}{'mimelog'}
                   : "${$config_out_ref}{'dir_digest'}/mimelog.txt";
        if ($MIME_cleanup_log_flag) {
            open MIME, ">$mimelog" or die "Couldn't open $mimelog for writing: $!";
            print MIME <
Processed                     Problem

MIMELOG
        }
    }
    chdir($dir_digest) || die "cannot chdir to $dir_digest $!";
    foreach my $digest_no ( sort keys %$in_out_ref ) {
        my (@newfile, %messages_sorted_by_thread);
        my $file = ${$in_out_ref}{$digest_no}[0];
        my ($bigstr, $digest_head, $digest_bal, @digest_header, @digest_balance);
        open(IN, $file) || die "cannot open $file for reading: $!";
        {
            local $/ = undef;
            $bigstr = ;
        }
        close (IN) || die "can't close $file:$!";

        if ($bigstr =~ /(.*?)$post_topics_delimiter(.*)/s) {
            $digest_head = $1;
            $digest_bal = $2;
        } else {
            die "Couldn't extract: $!";
        }

        @digest_header = split(/\n/, $digest_head);

        @digest_balance = split(/$source_msg_delimiter/, $digest_bal);
        pop @digest_balance;
        $message_count += scalar(@digest_balance);

        # extract topics listing
        $in_out_ref = _prepare_todays_topics(
            \@digest_header,
            $topics_intro,
            $delimiter_core,
            $in_out_ref,
            $digest_no,
        );

        # process each message in a digest file
        foreach my $el (@digest_balance) {
            # analyze message's header
            my $header_ref = _analyze_message_header(
                $el, $config_in_ref, $config_out_ref
            );
            # clean up message's title to eliminate characters
            # forbidden as filenames on this system
            my $thread = _clean_up_thread_title(
                ${$header_ref}{'subject'}, $subject_constant);
            my $full_id = $digest_no . '_' . ${$header_ref}{'message_no'};
            my $thread_full_id = lc($thread . $full_id);

            # clean up message's text to eliminate MIME multiparts
            my $text = _analyze_message_body(
                $el, $MIME_cleanup_flag, $full_id, $MIME_cleanup_log_flag);


            # add info to hash from which output will be generated
            $messages_sorted_by_thread{$thread_full_id} = [
                $thread,
                $full_id,
                $header_ref,
                $text,
            ];
        }
        # prepare output for this digest file
        foreach ( sort keys %messages_sorted_by_thread ) {
            ($seen_ref, $output_ref) = _prepare_output_string(
                \%messages_sorted_by_thread,
                $seen_ref,
                $dir_threads,
                $thread_msg_delimiter,
                $output_ref,
                \%optional_fields, # new in v1.67
            );
        }
    }
    if ($MIME_cleanup_log_flag) {
        close MIME, ">$mimelog" or die "Couldn't close $mimelog after writing: $!";
    }

    # If I am not archiving a particular digest, then I would never be calling a
    # thread file for that digest back from the archive.
    # Hence, I can simply append.
    if ($archive_kill_trigger == 0 or $archive_kill_trigger = -1) {
        foreach (keys %{$output_ref}) {
           open(NOARCH, ">>$_") || die "cannot open $_ for appending: $!";
           print NOARCH ${$output_ref}{$_};
           close(NOARCH) || die "can't close $_: $!";
        }
    } elsif ($archive_kill_trigger == 1) {
        my $fromarchive = 0;
        my $dearchfile  = defined ${$config_out_ref}{'de_archived_today'}
                        ? ${$config_out_ref}{'de_archived_today'}
                        : "${$config_out_ref}{'dir_digest'}/de_archived_today.txt";
        my $dir_archive_top = ${$config_out_ref}{'dir_archive_top'};
        my ($dearchstr);
        open DEARCH, ">$dearchfile"
            or die "Couldn't open $dearchfile for writing: $!";
        print DEARCH 'De-archived today (', scalar(localtime), "):\n";
        print DEARCH '-' x 44, "\n";

        # 1st:  See if recent thread exists; if so, open for appending
        # 2nd:  See if archive thread exists;
        # if so, move from archive to current and open for appending
        # [of course, if a thread has not been active for 14 days,
        # we may wish to treat a message
        # with the same name as a temporarily new thread and only append it
        # when archiving once it's stale ]
        # 3rd:  If no recent/archive thread can be found, open new file for writing

        foreach (keys %{$output_ref}) {
           my ($stub);
           if ($_ =~ m|[/\\]([^/\\]*)$|) {
               $stub = $1;
           } else {
               die "Couldn't extract stub from $_:  $!";
           }
           if ($recent{$stub}) {
               open(OUT2, ">>$_") || die "cannot open $_ for appending: $!";
           } else {
               my ($initial, $newstub);
               $initial = lc(substr $stub, 0, 1);
               $newstub = "$dir_threads/$stub";
               if ( ($initial =~ /[a-zA-Z]/) and
                 (-f "$dir_archive_top/$initial/$stub") ) {
                   rename("$dir_archive_top/$initial/$stub", $newstub ) or
                       die "Couldn't de-archive $stub: $!";
                   print "De-archiving:  $stub\n";
                   $dearchstr .= $stub . "\n";
                   $fromarchive++;
                   open(OUT2, ">>$newstub") ||
                       die "cannot open $newstub for appending: $!";
               } elsif (-f "$dir_archive_top/other/$stub") {
                   rename("$dir_archive_top/other/$stub", $newstub ) or
                       die "Couldn't de-archive $stub: $!";
                   print "De-archiving:  $stub\n";
                   $dearchstr .= $stub . "\n";
                   $fromarchive++;
                   open(OUT2, ">>$newstub") ||
                       die "cannot open $newstub for appending: $!";
               } else {
                   open(OUT2, ">$_") || die "cannot open $_ for writing: $!";
               }
           }
           print OUT2 ${$output_ref}{$_};
           close(OUT2) || die "can't close $_: $!";
        }
        print "$fromarchive files de-archived\n";
        $fromarchive ? print DEARCH $dearchstr : print DEARCH "[None.]\n";
        close DEARCH or die "Couldn't close $dearchfile after writing: $!";
    } else {
        die "Bad value for archive/kill trigger: $!";
    }
    return ($in_out_ref, $message_count, scalar(keys %{$seen_ref}));
}

sub _strip_down_for_reply {
    my ($config_in_ref, $config_out_ref,
        $digest_verified, $dig_entry, $dir_for_reply) = @_;
    my $MIME_cleanup_flag      = ${$config_in_ref}{'MIME_cleanup_flag'};
    my $post_topics_delimiter  = ${$config_in_ref}{'post_topics_delimiter'};
    my $source_msg_delimiter   = ${$config_in_ref}{'source_msg_delimiter'};
    my $subject_constant       = ${$config_in_ref}{'subject_constant'}
        if (defined ${$config_in_ref}{'subject_constant'});
    my $dir_digest             = ${$config_out_ref}{'dir_digest'};

    chdir($dir_digest) || die "cannot chdir to $dir_digest $!";

    # slurp the digest file in, splitting on message delimiters
    # so that each message is an array element
    my ($bigstr, $digest_head, $digest_bal, @digest_header, @digest_balance);
    open(IN, $digest_verified) ||
        die "cannot open $digest_verified for reading: $!";
    {
        local $/ = undef;
        $bigstr = ;
    }
    close (IN) || die "can't close $digest_verified:$!";

    if ($bigstr =~ /(.*?)$post_topics_delimiter(.*)/s) {
        $digest_head = $1;
        $digest_bal = $2;
    } else {
        die "Couldn't extract: $!";
    }

    @digest_balance = split(/$source_msg_delimiter/, $digest_bal);
    pop @digest_balance;

    my ($el, $replyfile);
    while (defined ($el = shift @digest_balance)) {
        # analyze message's header
        my $header_ref =
            _analyze_message_header($el, $config_in_ref, $config_out_ref);  # v1.94
        next unless (${$header_ref}{'message_no'} == $dig_entry);

        # clean up message's title to eliminate characters
        # forbidden as filenames on this system
        my $thread = _clean_up_thread_title(
            ${$header_ref}{'subject'}, $subject_constant);
        $replyfile = "$dir_for_reply/${thread}.reply.txt";

        # clean up message's text to eliminate MIME multiparts
        my $text = _analyze_message_body($el, $MIME_cleanup_flag, undef, 0);
        my @lines = split(/\n/, $text);
        my ($replytext);
        foreach my $l (@lines) {
            chomp($l);
            $replytext .= '> ' . $l . "\n";
        }

        # print reply
        my $old_fh = select(REPLY);
        open REPLY, ">$replyfile" or die "Couldn't open $replyfile: $!";
        if (defined ${$header_ref}{'reply_to'}) {
            print "Reply-To:\n";
            print "${$header_ref}{'reply_to'}\n\n";
        } elsif (defined ${$header_ref}{'to'}) {
            print "To:\n";
            print "${$header_ref}{'to'}\n\n";
        }
        if (defined ${$header_ref}{'subject'}) {
            my ($subject_clean);
            if (${$header_ref}{'subject'} =~
                /^(?:(Re2?|RE2?|re2?|FWD?|Fwd?|AW):?\s+)*(.*)$/) {
                $subject_clean = $2;
            } else {
                $subject_clean = ${$header_ref}{'subject'};
            }
            print "Subject:\n";
            print "$subject_clean\n\n";
        }
        print "On ${$header_ref}{'date'}, ${$header_ref}{'from'} wrote:\n\n";
        print $replytext;
        print "\n";
        close REPLY or die "Couldn't close $replyfile: $!";
        select $old_fh;
        last;
    }
    return $replyfile;
}

sub _prepare_todays_topics {
    my ($digest_header_ref, $topics_intro,
        $delimiter_core, $in_out_ref, $digest_no) = @_;
    my $counter = 0;
    my @todays_topics = (); # empty out @todays_topics
    foreach ( @{$digest_header_ref} ) {
        if (m/^$topics_intro/) {    # digest-specific
            $counter = 1;
        }
        if ($counter == 1) {
            if (m/^$topics_intro|^$/) { next; }    # digest-specific
            elsif ($_ !~ m/$delimiter_core/)
                { push (@todays_topics, $_); }
            else { last; }
        }
#        ${%$in_out_ref}{$digest_no}[1] = [ @todays_topics ];
#        # Note:  this is 1st point at which ${%$in_out_ref}{$digest_no}[1]
        ${$in_out_ref}{$digest_no}[1] = [ @todays_topics ];
        # Note:  this is 1st point at which ${$in_out_ref}{$digest_no}[1]
        # gets meaningful content
    }
    return $in_out_ref;
}

sub _analyze_message_header {
    my ($el, $config_in_ref, $config_out_ref) = @_;  # v1.94
    my @all = split(/\n/, $el);
    my ($hl, @lines);
    while (defined ($hl = shift(@all)) ) {
        last if $hl =~ /^\s*$/;
        push(@lines, $hl);
    }
    my (%header, %init, $last_analyzed);
    foreach my $key (keys %{$config_in_ref}) {
        next unless ($key =~ /_style_flag$/);
        my ($shortkey);
        if ($key =~ /(.*)_style_flag$/) {
            $shortkey = $1;
        } else {
            warn "Problem in analyzing message header: $!";
        }
        $init{$shortkey}++ unless defined ${$config_in_ref}{$key};
    }
    foreach (@lines) {
        chomp;
        my ($matched);
        unless ($init{'message'}) {
            if (/${$config_in_ref}{'message_style_flag'}/) {
                $header{'message_no'} =
                    eval(${$config_out_ref}{'output_id_format'});
                $init{'message'}++;
                $last_analyzed = 'message';
                $matched++;
            }
        }
        unless ($init{'from'}) {
            if (/${$config_in_ref}{'from_style_flag'}/) {
                $header{'from'} = $1;
                $init{'from'}++;
                $last_analyzed = 'from';
                $matched++;
            }
        }
        unless ($init{'subject'}) {
            if (/${$config_in_ref}{'subject_style_flag'}/) {
                $header{'subject'} = $1;
                $init{'subject'}++;
                $last_analyzed = 'subject';
                $matched++;
            }
        }
        unless ($init{'to'}) {
            if (/${$config_in_ref}{'to_style_flag'}/) {
                $header{'to'} = $1;
                $init{'to'}++;
                $last_analyzed = 'to';
                $matched++;
            }
        }
        unless ($init{'reply_to'}) {
            if (/${$config_in_ref}{'reply_to_style_flag'}/) {
                $header{'reply_to'} = $1;
                $init{'reply_to'}++;
                $last_analyzed = 'reply_to';
                $matched++;
            }
        }
        unless ($init{'cc'}) {
            if (/${$config_in_ref}{'cc_style_flag'}/i) {
                $header{'cc'} = $1;
                $init{'cc'}++;
                $last_analyzed = 'cc';
                $matched++;
            }
        }
        unless ($init{'date'}) {
            if (/${$config_in_ref}{'date_style_flag'}/) {
                $header{'date'} = $1;
                $init{'date'}++;
                $last_analyzed = 'date';
                $matched++;
            }
        }
        unless ($init{'org'}) {
            if (/${$config_in_ref}{'org_style_flag'}/) {
                $header{'org'} = $1;
                $init{'org'}++;
                $last_analyzed = 'org';
                $matched++;
            }
        }
        unless ($matched) {
            if ($last_analyzed ne 'subject') {
                $_ =~ s/^\s+//;
                $header{$last_analyzed} .= "\n" . ' ' x 14 . $_;
            }
        }
    }
    return \%header;
}

sub _clean_up_thread_title {
    my $subj = shift;
    my $subject_constant = shift if defined $_[0];
    my ($thread, @thread);
    $subj = "No subject" unless $subj; #messages on some lists can be subject-less

    $subj =~
      /^(?:(Re\d?|RE\d?|re\d?|Re\[\d?\]|RE\[\d?\]|re\[\d?\]|FWD?|Fwd?|AW):?\s+)*(.*)$/;
    $thread = $2;
    if (defined $subject_constant and $thread =~ /^$subject_constant\s+(.*)/) {
        $thread = $1;
    }
    @thread = split(//, $thread);
    if ($^O eq 'MSWin32') {
        $thread = join("", (grep m/[^*|\\:"<>?\/]/, @thread) ); #"
    }
    if ($unix{$^O}) {  # v2.08
        $thread = join("", (grep m/[^\/]/, @thread) );
    }
    # squish repeated periods anywhere in file name
    $thread =~ tr/././s;
    # Win32 allows periods in file names,
    # but I don't want any periods or spaces immediately before '.thr.txt'
    # or at the beginning of the file name
    $thread =~ s/[.\s]+$//;
    $thread =~ s/^[.\s]+//;
    # squish repeated whitespace anywhere in file name (EPP, Item 20, p. 76)
    $thread =~ tr/ \n\r\t\f/ /s;
    $thread = '[Illegal subject]' unless $thread;
    return $thread;
}

sub _analyze_message_body {
    my ($el, $MIME_cleanup_flag, $postid, $MIME_cleanup_log_flag) = @_;
    my @chunks = split(/\n{2,}/, $el);
    return join("\n\n", @chunks[1 .. ($#chunks)] )
        unless $MIME_cleanup_flag;
    my (@nextparts);
    if ($chunks[1] =~ /Content-Type:\smultipart\/alternative/o) {
        # New in v1.84 1/23/04
        for (my $i=1; $i<=$#chunks; $i++) {
            push(@nextparts, $i) if ($chunks[$i] =~ /Content-Type:/);
        }
        if (@nextparts == 4) {
            print MIME "$postid CASE I\n" if $MIME_cleanup_log_flag;
            splice @chunks, $nextparts[2], $nextparts[3] - $nextparts[2] + 1;
            splice @chunks, 1, 2;
            return join("\n\n", @chunks[1 .. ($#chunks-1)] );
        } else {
            print MIME ' ' x 30,
              "$postid; count:  ", sprintf("%3d", scalar(@nextparts)), " CASE I\n"
                if $MIME_cleanup_log_flag;
            return join("\n\n", @chunks );
        }
    } elsif ($chunks[1] =~ /--Apple-Mail-/o) {    # New in v1.85 1/23/04
        for (my $i=1; $i<=$#chunks; $i++) {
            push(@nextparts, $i) if ($chunks[$i] =~ /--Apple-Mail-/o);
        }
        if (@nextparts == 3 or @nextparts == 4) {
            print MIME "$postid CASE J\n" if $MIME_cleanup_log_flag;
            my ($fragment);
            if (@nextparts == 4) {
                splice @chunks, $nextparts[-1], 1;
            }
            if ($chunks[$nextparts[1]] =~ /(.*?)--Apple-Mail-/os) {
                $fragment = $1;
            }
            splice @chunks, $nextparts[1];
            push @chunks, $fragment if ($fragment);
            splice @chunks, $nextparts[0], 1;
            return join("\n\n", @chunks[1 .. $#chunks] );
        } else {
            print MIME ' ' x 30, "$postid; count:  ",
              sprintf("%3d", scalar(@nextparts)), " CASE J\n"
                if $MIME_cleanup_log_flag;
            return join("\n\n", @chunks );
        }
    } elsif ($chunks[1] !~ /^This.+?message.+?MIME format/o) {
        return join("\n\n", @chunks[1 .. ($#chunks)] );
    } else {
        if ($chunks[1] =~ /--=_alternative/) {
            for (my $i=1; $i<=$#chunks; $i++) {
                push(@nextparts, $i) if ($chunks[$i] =~ /--=_alternative/);
            }
            if (@nextparts == 3) {
                print MIME "$postid CASE A\n" if $MIME_cleanup_log_flag;
                splice @chunks,
                    $nextparts[1] + 1, $nextparts[2] - $nextparts[1] + 1;
                $nextparts[1] =~ /^(.*\n)--=_alternative/s;
                my $fragment = $1;
                $chunks[$nextparts[1]] = $fragment;
                splice @chunks, 1, 2;
                return join("\n\n", @chunks[1 .. ($#chunks-1)] );
            } else {
                print MIME ' ' x 30, "$postid; count:  ",
                  sprintf("%3d", scalar(@nextparts)), " CASE B\n"
                    if $MIME_cleanup_log_flag;
                return join("\n\n", @chunks );
            }
        } elsif ($chunks[1] =~ /cryptographically\ssigned/) {
            print MIME "$postid CASE H\n" if $MIME_cleanup_log_flag;
            splice @chunks, -3, 2;
            splice @chunks, 1, 2;
            return join("\n\n", @chunks[1 .. ($#chunks-1)] );
        } else {
            for (my $i=2; $i<=$#chunks; $i++) {
                push(@nextparts, $i) if (
                    $chunks[$i] =~ /-{4,6}[_\s]?=_NextPart|
                                    --Boundary_|
                                    --------------InterScan_NT_MIME_Boundary/x
                 );
            }
            if (@nextparts == 3) {
                print MIME "$postid CASE C\n" if $MIME_cleanup_log_flag;
                splice @chunks, $nextparts[1], $nextparts[2] - $nextparts[1] + 1;
                splice @chunks, 1, 2;
                return join("\n\n", @chunks[1 .. ($#chunks-1)] );
            } elsif (@nextparts == 1) {
                print MIME "$postid CASE D\n" if $MIME_cleanup_log_flag;
                splice @chunks, 1, 1;
                return join("\n\n", @chunks[1 .. ($#chunks-1)] );
            } elsif (@nextparts == 5 or @nextparts == 6) {
                print MIME "$postid CASE E\n" if $MIME_cleanup_log_flag;
                splice @chunks, $nextparts[2], $nextparts[-1] - $nextparts[2] + 1;
                splice @chunks, 1, 3;
                return join("\n\n", @chunks[1 .. ($#chunks-1)] );
            } elsif (@nextparts == 7 or @nextparts == 8) {
                print MIME "$postid CASE F\n" if $MIME_cleanup_log_flag;
                splice @chunks, $nextparts[3], $nextparts[-1] - $nextparts[3] + 1;
                splice @chunks, 1, 3;
                return join("\n\n", @chunks[1 .. ($#chunks-1)] );
            } else {
                print MIME ' ' x 30, "$postid; count:  ",
                  sprintf("%3d", scalar(@nextparts)), " CASE G\n"
                    if $MIME_cleanup_log_flag;
                return join("\n\n", @chunks[1 .. ($#chunks-1)] );
            }
        }
    }
}

sub _prepare_output_string {
    my ($threads_hash_ref, $seen_ref, $dir_threads, $thread_msg_delimiter,
        $output_ref, $optional_fields_ref) = @_;
    my %messages = %{$threads_hash_ref};
    my %seen = %{$seen_ref};
    my (%output, %opt_fields);
    %output = %{$output_ref} if defined $output_ref;
    %opt_fields = %{$optional_fields_ref};
    my ($pathsep, $out, $lc_out, $outstr);
    $pathsep = ($^O eq 'MSWin32') ? "\\" : '/';
    $out = $dir_threads . $pathsep . $messages{$_}[0] . '.thr.txt';
    $lc_out = lc($out);
    $seen{$lc_out}++;
    $outstr  = "Thread:       $messages{$_}[0]\n";
    $outstr .= "Message:      $messages{$_}[1]\n";
    $outstr .= "From:         $messages{$_}[2]{'from'}\n";
    foreach my $i (sort keys %opt_fields) {
        next unless (defined $messages{$_}[2]{$opt_fields{$i}[0]});
        my $space = 13 - length($opt_fields{$i}[1]);
        $outstr .= $opt_fields{$i}[1] . ':' . ' ' x $space .
            "$messages{$_}[2]{$opt_fields{$i}[0]}\n";
    }
    $outstr .= 'Text:'    . "\n\n" . $messages{$_}[3] . "\n";
    $outstr .= "\n";
    $outstr .= "$thread_msg_delimiter"
        unless (! defined $thread_msg_delimiter);
    $output{$out} .= $outstr;
    return \%seen, \%output;
}

sub _update_all_topics {
    my ($choice, $config_out_ref, $in_out_ref) = @_;
    my $title      = ${$config_out_ref}{'title'};
    my $topicsfile = defined ${$config_out_ref}{'todays_topics'} # v1.96
                     ? ${$config_out_ref}{'todays_topics'}
                     : "${$config_out_ref}{'dir_digest'}/todays_topics.txt";
    my ($topic, $topicstring);
    if ($choice eq 'ALL') {
        $topicstring = "$title Digest:  Today's Topics\n";
        foreach ( sort keys %$in_out_ref ) {
           $topicstring .= "\n${$in_out_ref}{$_}[0]\n";
           foreach $topic ( @{${$in_out_ref}{$_}[1]} ) {
               $topicstring .= "$topic\n";
           }
        }
        open(TOPICS, ">$topicsfile")
            || die "cannot open $topicsfile for writing: $!";
        print TOPICS $topicstring;
        close(TOPICS) || die "can't close $topicsfile:$!";
    } else {
        $topicstring = '';
        foreach ( sort keys %$in_out_ref ) {
           $topicstring .= "\n${$in_out_ref}{$_}[0]\n";
           foreach $topic ( @{${$in_out_ref}{$_}[1]} ) {
               $topicstring .= "$topic\n";
           }
        }
        open(TOPICS, ">>$topicsfile")
            || die "cannot open $topicsfile for appending: $!";
        print TOPICS $topicstring;
        close(TOPICS) || die "can't close $topicsfile:$!";
    }
}

sub _print_results {
    my ($total_digests_processed, $message_count,
        $config_out_ref, $thread_count) = @_;
print <


                               RESULTS

  Digests processed:\t\t$total_digests_processed
  Messages processed:\t\t$message_count
  Threads directory:\t\t${$config_out_ref}{'dir_threads'}
  Threads created/modified:\t$thread_count
XQ19
}

sub _verify_date {
    my $dateref = shift;
    die "Incorrect date specification: $!"
        unless (
            (exists ${$dateref}{'year'})  &&
            (exists ${$dateref}{'month'}) &&
            (exists ${$dateref}{'day'})
        );
    die "${$dateref}{'year'} is incorrect year specification: $!"
        unless (1900 <= ${$dateref}{'year'});
    die "${$dateref}{'month'} is incorrect month specification: $!"
        unless (
            (1 <= ${$dateref}{'month'})   &&
            (${$dateref}{'month'} <= 12)
        );
    die "${$dateref}{'day'} is incorrect day of month specification: $!"
        unless (
            (
                ${$dateref}{'day'} >=  1  and
                ${$dateref}{'day'} <= 28
            )
            ||
            (
                $month31{${$dateref}{'month'}} and
                ${$dateref}{'day'} >= 29       and
                ${$dateref}{'day'} <= 31
            )
            ||
            (
                $month30{${$dateref}{'month'}} and
                ${$dateref}{'day'} >= 29       and
                ${$dateref}{'day'} <= 30
            )
            ||
            (
                ${$dateref}{'month'} ==  2  and
                ${$dateref}{'day'}   == 29  and
                  (
                      ${$dateref}{'year'} % 400 == 0   or
                      (
                          ${$dateref}{'year'} % 100 != 0   and
                          ${$dateref}{'year'} %   4 == 0
                      )
                  )
            )
    );
    return timelocal(
        0, 0, 0,
        ${$dateref}{'day'},
        ${$dateref}{'month'} - 1,
        ${$dateref}{'year'}
    );
}

sub _get_array_of_messages {
    my ($in, $delimiter) = @_;
    my ($fh, $bigstr);
    open $fh, $in or die "Couldn't open $in for reading: $!";
    {
        local $/ = undef;
        $bigstr = <$fh>;
    }
    close $fh or die "Couldn't close $in after reading: $!";
    my @messages = split(/$delimiter/, $bigstr);
    return \@messages;
}

1;

############################ DOCUMENTATION #####################################

=head1 NAME

Mail::Digest::Tools - Tools for digest versions of mailing lists

=head1 VERSION

This document refers to version 2.12 of digest.pl, released May 14, 2011.

=head1 SYNOPSIS

    use Mail::Digest::Tools qw(
        process_new_digests
        reprocess_ALL_digests
        reply_to_digest_message
        repair_message_order
        consolidate_threads_multiple
        consolidate_threads_single
        delete_deletables
    );

C<%config_in> and C<%config_out> are two configuration hashes whose setup
is discussed in detail below.

    process_new_digests(\%config_in, \%config_out);

    reprocess_ALL_digests(\%config_in, \%config_out);

    $full_reply_file = reply_to_digest_message(
        \%config_in,
        \%config_out,
        $digest_number,
        $digest_entry,
        $directory_for_reply,
    );

    repair_message_order(
        \%config_in,
        \%config_out,
        {
            year   => 2004,
            month  => 01,
            day    => 27,
        }
    );

    consolidate_threads_multiple(
        \%config_in,
        \%config_out,
        $first_common_letters,  # optional integer argument; defaults to 20
    );

    consolidate_threads_single(
        \%config_in,
        \%config_out,
        [
            'first_dummy_file_for_consolidation.thr.txt',
            'second_dummy_file_for_consolidation.thr.txt',
        ],
    );

    delete_deletables(\%config_out);

=head1 DESCRIPTION

Mail::Digest::Tools provides useful tools for processing mail which an
individual receives in a 'daily digest' version from a mailing list.
Digest versions of mailing lists are provided by a variety of mail processing
programs and by a variety of list hosts.  Within the Perl community, digest
versions of mailing lists are offered by such sponsors as Active State,
Sourceforge, Yahoo! Groups and London.pm.  However, you do not have to be
interested in Perl to make use of Mail::Digest::Tools.  Mail from I of
the thousands of Yahoo! Groups, for example, may be processed with this module.

If, when you receive e-mail from the digest version of a mailing list, you
simply read the digest in an e-mail client and then discard it, you may stop
reading here.  If, however, you wish to read or store such mail by subject,
read on.  As printed in a normal web browser, this document contains 40
pages of documentation.  You are urged to print this documentation out and
study it before using this module.

To understand how to use Mail::Digest::Tools, we will first take a look at a
typical mailing list digest.  We will then sketch how that digest looks once
processed by Mail::Digest::Tool.  We will then discuss Mail::Digest::Tool's
exportable functions.  Next, we will study how to prepare the two configuration
hashes which hold the configuration data.  Finally, we will provide some tips
for everyday use of Mail::Digest::Tools.

=head1 A TYPICAL MAILING LIST DIGEST

Here is a dummied-up version of a typical mailing list digest as it appears
once saved to a plain-text file.  For illustrative purposes, let us suppose
that the file is named:  'Perl-Win32-Users Digest, Vol 1 Issue 9999.txt'

    Send Perl-Win32-Users mailing list submissions to
    [e-mail]

    When replying, please edit your Subject line so it is more specific
    than "Re: Contents of Perl-Win32-Users digest..."

    Today's Topics:

      1. Introducing Mail::Digest::Tools (James E Keenan)
      2. A Different Discussion (steve)
      3. Re:  Introducing Mail::Digest::Tools (David H Adler)

    ----------------------------------------------------------------------

    Message: 1
    From: "James E Keenan"
    To:
    Subject: Introducing Mail::Digest::Tools
    Date: Sat, 31 Jan 2004 14:10:20 -0600

    Mail::Digest::Tools is the greatest thing since sliced bread.
    Go download it now!

    ------------------------------

    Message: 2
    From: "steve"
    To:
    Subject: A Different Discussion
    Date: Sat, 31 Jan 2004 14:40:20 -0600

    This is a new topic.  I am not discussing Mail::Digest::Tools in this
    submission.

    ------------------------------

    Message: 3
    From: "David H Adler"
    To:
    Subject: Re: Introducing Mail::Digest::Tools
    Date: Sat, 31 Jan 2004 14:50:20 -0600

    Jim, what's this nonsense about sliced bread.  Weren't you on the Atkins
    diet?  Unlike beer, sliced bread is Off Topic.

    ------------------------------

    _______________________________________________
    Perl-Win32-Users mailing list
    [e-mail]
    To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

    End of Perl-Win32-Users Digest

Note that the digest has an I structure, while each message I
the digest has its own structure.

The digest's overall structure consists of:

=over 4

=item *

I

The digest header consists of one or more paragraphs providing instructions
on how to subscribe, post messages, unsubscribe and contact the list
administrator.

In processing a digest, Mail::Digest::Tools generally discards the digest
header.

=item *

I

Next, each daily digest contains a list of the subjects of the messages found
in that particular digest.  This list is introduced by a paragraph such as:

    Today's Topics

and is followed by a numbered list of the message subjects and authors.  Some
digests break the authors into two lines for names and e-mail addresses.
Others, such as the example above, list only names.

When Mail::Digest::Tools process a digest, it extracts the list of topics as a
single chunk and appends it to a file containing the topics from all previous
digests which the user has similarly processed.

=item *

I

The list of topics is separated from the first message by a string of
characters which the list sponsor has, we hope, determined is not likely to
occur in the text of any message posted to that list.  In the example above,
the source message delimiter is the string:

    ----------------------------------------------------------------------

followed by two C<\n> newlines (so that the delimiter is a paragraph unto
itself).  Other digests may use a two-line delimiter such as:

    _______________________________________________________
    _______________________________________________________

or

    --__--__--

=item *

I

Most mailing list digests use the same string to delimit individual messages
within the digest that they use to delimit the list of today's topics from the
very first message in the digest.  (The author tracked one digest for more
than three-and-a-half years that used the same string for both functions --
only to see that digest's provider change its format while this module was
being prepared for CPAN!)  But the digest may use a different string to
separate individual messages from each other.  In the sample digest above,
the source message delimiter is the string:

    ------------------------------

followed by two C<\n> newlines (so that the delimiter is a paragraph unto
itself).

As we shall see below, correctly identifying the post-topics delimiter and
source message delimiter used in a particular digest is essential to correct
configuration of Mail::Digest::Tools, as the module will repeatedly C
digests on this delimiter.

=item *

I

Individual messages have their own structure.

=over 4

=item *

I

In addition to normal mail headers, a message in a digest must have a
message number representing its position within that day's digest.  So a
message in a digest will typically have some or all of the following headers:

    Message:
    From:
    Organization:
    Reply-To:
    To:
    CC:
    Date:
    Subject:

=item *

I

One of more paragraphs of text, frequently including citations from earlier
postings to the mailing list.

The main objective of Mail::Digest::Tools is to extract headers and bodies
from particular digest entries and to append them to plain-text files which
hold all postings on a particular subject.  See discussion of
C below.

Many mailing lists allow subscribers to post in either plain-text or HTML.
Some allow users to post attachments; others do not.  Others still
incorporate the attachments into the message body, often using 'multipart
MIME' format.  Regrettably, certain mailing list digest programs fail to
eliminate redundant MIME parts before posting a message to a digest.  This
leads to severe bloat once Mail::Digest::Tools extracts a message's content
and posts it to a thread file.  Mail::Digest::Tools, however, provides its
users with the option of stripping redundant MIME parts from a message
before posting.

=item *

I

As discussed above, each message within a digest is delimited by a string
which may or may not be the same string which separates the list of Today's
Topics from the first message in the digest.

=back

=item *

I

The digest footer consists of one or more paragraphs containing
additional information on the digest and signaling the end of the digest.  It
follows the source message delimiter corresponding to the last message in a
particular digest.

In processing a given digest, Mail::Digest::Tools generally discards the
digest footer.

=back

=head2 The Typical Digest After Processing with Mail::Digest::Tools

Using the dummy messages provided above, typical use of Mail::Digest::Tools
would produce (in a bare-bones configuration) the following results:

=over 4

=item *

Two plain-text 'thread' files holding the ongoing discussion of each topic:

=over 4

=item *

F

    Thread:       Introducing Mail::Digest::Tools
    Message:      001_9999_001
    From:         "James E Keenan"
    Text:

    Mail::Digest::Tools is the greatest thing since sliced bread.
    Go download it now!

    --__--__--

    Thread:       Introducing Mail::Digest::Tools
    Message:      001_9999_003
    From: "David H Adler"
    Text:

    Jim, what's this nonsense about sliced bread.  Weren't you on the Atkins
    diet?  Unlike beer, sliced bread is Off Topic.

    --__--__--

=item *

F

    Thread:       A Different Discussion
    Message:      001_9999_002
    From: "steve"
    Text:

    This is a new topic.  I am not discussing Mail::Digest::Tools in this
    submission.

    --__--__--

=back

=item *

A new entry at the end of file F:

    Today's Topics

    ...

    Perl-Win32-Users digest, Vol 1 #9999 - 3 msgs.txt
      1. Introducing Mail::Digest::Tools (James E Keenan)
      2. A Different Discussion (steve)
      3. Re:  Introducing Mail::Digest::Tools (David H Adler)

=item *

A new entry at the end of file F:

    001_9999;Fri Feb  6 18:57:41 2004;Fri Feb  6 18:57:41 2004

=back

=head1 FUNCTIONS

Mail::Digest::Tools exports no functions by default.  Each of its current
seven functions is imported only on request by your script.

In everyday use, you will probably call just I of Mail::Digest::Tool's
exportable functions in a particular Perl script.  Typically, you will import
the function as described in the SYNOPSIS above, populate two configuration
hashes, and finally call the one function you have imported.

As will become evident, the most challenging part of using Mail::Digest::Tools
is I calling the functions.  Rather, it is the initial setup and testing
of configuration files from which the two configuration hashes passed as
arguments to the various Mail::Digest::Tools functions are drawn.

More on those configuration hashes later.  For now, let's look at the
exportable functions.

=head2 C

    process_new_digests(\%config_in, \%config_out);

C is the Mail::Digest::Tools function which you will
use most frequently on a daily basis.  Based on information supplied in the
two configuration hashes passed to it as arguments, C
does the following:

=over 4

=item *

Validates the configuration data.

=item *

Conducts an analysis of the directory in which thread files for a given
digest are stored to determine are old enough:

=over 4

=item *

I to be moved to a subdirectory for archiving -- if you have told the
configuration file that you wish to archive older threads in a subdirectory

=item *

I to be deleted -- if you have told the configuration file that you do
I wish to archive older threads

=back

=item *

Conducts an analysis of the directory in which digest files (I the
plain-text versions of mailing list digests you have received) are stored to
determine which digest files are new and need processing and which have
previously been processed.

=item *

Updates a log file to put a timestamp on the processing of the new digest
file or files.  Based on options set in the configuration file, this function
may also update a more human-readable version of this log file.

=item *

Opens each of the digest files identified as needing processing and proceeds
to 'strip down' those files.  This 'stripping down' includes the following:

=over 4

=item *

The digest file's name is analyzed to extract the digest's number as issued by
the provider's mailing list program.  This number is used to form part of the
unique identifier which Mail::Digest::Tools assigns to each message within
each digest.

=item *

The list of today's topics in the digest is extracted and appended to a
permanent log file of such topics.

=item *

The digest's contents are split into individual messages.  Each message, in
turn, is split into headers and body.

=item *

If you have requested in the configuration file that superfluous multipart
MIME content be purged from messages before posting to thread files, this
purging is now conducted.

=item *

Each message is appended to an appropriate, plain-text thread file which
holds the ongoing discussion of that topic.  The following factors are taken
into consideration:

=over 4

=item *

The name of the thread file is derived from the message's subject, though
characters in the message's subject which would not be valid in file names
on your operating system are skipped over.

=item *

To the greatest extent possible, extraneous words in a message's subject
such as 'Re:' or 'Fwd:' are deleted so that all relevant postings on a given
subject can be included in a single thread file.  (Should this not succeed
and a new thread file beginning with 'Re:' or some similar term be created,
you can fix this later by using Mail::Digest::Tool's
C function discussed below.)

=back

=item *

A brief summation of results is printed to standard output.

=back

=back

=head2 C

    reprocess_ALL_digests(\%config_in, \%config_out);

C is the Mail::Digest::Tools function which you
should use ONLY when you are setting up and fine-tuning Mail::Digest::Tools
to process a given digest -- and you should NEVER use it thereafter!

Why?  Read on!

C does almost exactly the same things as does
C, but it does them on ALL digest files found in the
directory in which you store such digests -- not just on those previously
processed.  But in the process it does not merely append new messages to
already existing thread files, leaving older thread files untouched.  Instead,
C WIPES OUT your entire directory of thread files and
rebuilds it from scratch.

That's cool if you have retained all instances of a given digest which you
wish to process into thread files.  But if you've thrown out older instances
of a given digest and call C, you will not be able
to process the messages contained in those discarded digests.  The message
sources are gone.  That's cool once you're certain that you've got a given
digest configured just the way you want it -- but not until that moment.

=over 4

=item * Example

Let's make this more concrete.  Suppose that you have begun to subscribe to
the digest version of the London Perlmongers mailing list.  When you receive
e-mails from this provider, you store them in a directory whose contents look
like this:

    london.pm digest, Vol 1 #1856 - 7 msgs.txt
    london.pm digest, Vol 1 #1857 - 18 msgs.txt
    london.pm digest, Vol 1 #1858 - 15 msgs.txt
    london.pm digest, Vol 1 #1859 - 17 msgs.txt
    london.pm digest, Vol 1 #1860 - 11 msgs.txt

Initially, you decide that you want to post the messages in these digests
to thread files that are discarded after three days.  You set up your
configuration files to do precisely this.  (See below for how this is done.)
You then write a script which calls

    reprocess_ALL_digests(\%config_in, \%config_out);

Three days go by. One or two new london.pm digests arrive each day.  You
want to process only the newly arrived files, so each day you simply call:

    process_new_digests(\%config_in, \%config_out);

and on Day 4 Mail::Digest::Tools starts to notify you on standard output
that it is discarding thread files which have not been changed (I
received new postings) in three days.

But then you decide that London.pm's contributors are the most witty and
erudite Perlmongers anywhere and you wish to archive their contributions
until the end of time (or until the first production release of
Perl 6, whichever comes first).  Fortunately, you've still got all your
London.pm digest files going back to the beginning of your subscription.
You make appropriate changes to your configuration setup to say, ''Instead
of killing these thread files after 3 days of inactivity, archive them after
3 days instead.''  (Again, we'll see how to do this below.)  You then call:

    reprocess_ALL_digests(\%config_in, \%config_out);

one last time.  All your previously existing thread files are wiped out, and
all your London.pm digests are reprocessed from scratch.  But that's okay,
because you've decided to live with your configuration decisions.  So you
can now begin to discard older digest files and process newly arrived files
only with

    process_new_digests(\%config_in, \%config_out);

Your London.pm thread archive grows exponentially, and you live happily ever
after.

=back

The ALL CAPS in C is a little warning that this
Mail::Digest::Tools function is very powerful, but potentially very dangerous.
You are also alerted to this danger by this screen prompt which appears when
you call this function:

     By default, this program processes only NEWLY ARRIVED
     [London.pm/other digest] files found in this directory.  Messages in
     these new digests are sorted and appended to the appropriate
     '.thr.txt' files in the 'Threads' subdirectory.

     However, by choosing method 'reprocess_ALL_digests()' you have
     indicated that you wish to process ALL digest files found in this
     directory -- regardless of whether or not they have previously been
     processed.  This is recommended ONLY for initialization and testing
     of this program.

     Since this will wipe out all threads files ('.thr.txt') as well --
     including threads files for which you no longer have their source
     digest files -- please confirm that this is your intent by typing
     ALL at the prompt.


                               GOT IT?

To proceed, you must type C in ALL CAPS, hit C<[Enter]>, then respond to
yet another prompt:

     You have chosen to WIPE OUT all '.thr.txt' files currently
     existing in the 'Threads' subdirectory and reprocess all
     [London.pm/other digest] digest files from scratch.

     Please re-confirm your choice by once again typing 'ALL'
         and hitting [Enter]:

You must again type C in ALL CAPS and hit C<[Enter]> to reprocess all
digests.  Should you fail to type C at both of these prompts, your
script will default to C and only process newly
arrived digest files.

=head2 C

    $full_reply_file = reply_to_digest_message(
        \%config_in,
        \%config_out,
        $digest_number,
        $digest_entry,
        $directory_for_reply,
    );

Once you have begun to follow discussion threads on a mailing list with the
aid of Mail::Digest::Tools, you may wish to join the discussion and reply to
a message.

If you tried to do this by hitting the 'Reply' button in your e-mail client,
you would probably end up with a 'Subject' line in your e-mail that looked
this:

    Re: london.pm digest, Vol 1 #1814 - 2 msgs

Needless to say, this is tacky.  So tacky that many mailing list digest
programs insert this message into each digest's headers:

    When replying, please edit your Subject line so it is more specific
    than "Re: Contents of london.pm digest, Vol 1, #xxxx..."

You don't want to be tacky; you want to be lazy.  You want Perl to do the
work of initiating an e-mail with a meaningful subject header for you.
Mail::Digest::Tool's C does just this.  It creates
a plain-text file for you that has a meaningful subject line and prepends
each line of the body of the message with C<\> >.  You then open this
plain-text file, edit it to reply to its contents, copy-and-paste it into
your e-mail client, and send it.

The arguments passed to C are:

=over 4

=item *

a reference to the 'in' configuration hash

=item *

a reference to the 'out' configuration hash

=item *

the number of the digest containing the message to which you are replying

=item *

the number of the message to which you are replying within that digest

=item *

a path to the directory in which you want the plain-text reply file to be
created

=back

=over 4

=item * Example

Suppose that you wished to reply to message #2 in London.pm digest #1814:

    Message: 2
    From:     James E Keenan
    To:       London Perlmongers
    Date: Fri, 2 Jan 2004 23:41:01 -0500
    Subject: re: language courses
    Reply-To: [e-mail]

    On Fri, 2 Jan 2004 22:38:40 +0000 (GMT), Ali Young wrote concerning:
        language courses

    > Depends what you count as useful. Learning Esperanto means that you
    > can read the current London.pm website.

    BTW, wasn't the Esperanto on the website supposed to expire on 31 Dec?

    Jim Keenan
    Brooklyn, NY

You would call the function as follows:

    $full_reply_file = reply_to_digest_message(
        \%config_in,
        \%config_out,
        1814,
        2,
        '/home/jimk/mail/digest/london',
    );

Mail::Digest::Tools will then create a plain-text file which you can use as
the first draft of your reply.  It will print this screen prompt:

    To complete reply, edit text in:
      /home/jimk/mail/digest/london/language_courses.reply.txt

When you open F in your text editor, it will look
like this:

    Reply-To:
    [e-mail]

    Subject:
    language courses

    On Fri, 2 Jan 2004 23:41:01 -0500, James E Keenan
     wrote:

    > On Fri, 2 Jan 2004 22:38:40 +0000 (GMT), Ali Young wrote concerning:
    >     language courses
    >
    > > Depends what you count as useful. Learning Esperanto means that you
    > can
    > > read the current London.pm website.
    >
    > BTW, wasn't the Esperanto on the website supposed to expire on 31 Dec?
    >
    > Jim Keenan
    > Brooklyn, NY
    >

The 'Reply-To' and 'Subject' paragraphs are provided simply to give you
something to cut-and-paste into a GUI e-mail client.  The 'Reply-To'
paragraph will only appear if in C<%config_in> the key
C is defined for a particular digest.

You edit this plain-text file, pop it into the body of your e-mail
window and send it.  Not elegant, but it at least gives you a first draft.

=back

=head2 C

    repair_message_order(
        \%config_in,
        \%config_out,
        {
            year   => 2004,
            month  => 01,
            day    => 27,
        }
    );

From time to time you may receive digest versions of mailing lists out of
chronological/numerical sequence.  This is especially true when e-mail
traffic is being disrupted by worms or viruses.  You may discover that you
have received and processed

    london.pm digest, Vol 1 #1856 - 7 msgs
    london.pm digest, Vol 1 #1858 - 15 msgs

before realizing that you were missing

    london.pm digest, Vol 1 #1857 - 18 msgs

If you were to now process digest 1857 with C, messages
from that digest would be appended to their respective thread files I
messages from digest 1858.  Since the whole point of Mail::Digest::Tools is to
be able to read a discussion thread in chronological order, this would not be
desirable.

Fortunately, you can fix this problem as follows:

=over 4

=item * Apply C

Call C as you normally would.  In the above example,
go ahead and call it on digest 1857 even though it creates thread files with
messages out of chronological order.

=item * Determine date where need for repair begins

Examine the timestamps on your digest files for the date of the first digest
you received out of sequence.  In the above example, that would be the date
of digest 1858.  Since digest files were received out of proper sequence on or
after that date, all thread files generated after that date may have
out-of-sequence messages and need re-ordering.

=item * Apply C with the repair date

Call C with the following arguments:

=over 4

=item *

a reference to the 'in' configuration hash

=item *

a reference to the 'out' configuration hash

=item *

a reference to an anonymous hash whose keys are C, C and C,
the values for which keys are the elements of the repair date.

=back

Mail::Digest::Tools will examine all thread files from midnight local time on
that date.  Where messages have been posted to the thread files out of proper
sequence, they will be reposted in the correct order.  The thread file with
the correct sequence will overwrite the file with the incorrect sequence.

=back

=head2 C

    consolidate_threads_multiple(
        \%config_in,
        \%config_out,
    );

or

    consolidate_threads_multiple(
        \%config_in,
        \%config_out,
        $first_common_letters,  # optional integer argument
    );

As described above, Mail::Digest::Tool's C function
will, to the greatest extent possible, delete extraneous words such as 'Re:'
or 'Fwd:' from a message's subject so that all relevant postings on a given
subject can be included in a single thread file.  What happens when this is
not sufficient? For example, suppose someone posts a message to a list with a
slightly misspelled or altered subject line:

=over 4

=item * Original thread file:

   Help telnetting to remote host through CGI.thr.txt

=item * Thread file created due to altered subject line:

   Help telnetting to remote host thru CGI.thr.txt

=back

Mail::Digest::Tools offers two functions to address this problem.
C is the easier to use and will be discussed
first.  This function presumes that people who re-type e-mail subject lines
when replying tend to type the first several words correctly, then make errors
or alterations toward the end of the subject line.  If the first I letters
of the subject line of two or more messages are identical, there is a strong
chance that the messages are discussing the same topic and should be posted to
the same discussion thread.  Mail::Digest::Tool's default value for I is
20, but you can set a different value for a particular digest by passing an
optional third argument as shown above.  C
accordingly:

=over 4

=item *

Makes a list of all thread files for a particular digest.

=item *

Identifies groups of thread files whose names share the first 20 letters.

=item *

Displays a prompt on standard output asking you whether you wish to
consolidate the files in each such group:

    Candidates for consolidation:
      Help telnetting to remote host through CGI.thr.txt
      Help telnetting to remote host thru CGI.thr.txt

    To consolidate, type YES:

=over 4

=item *

If you type C in ALL CAPS, the files will be consolidated into a single
thread file whose name will be derived from the Subject line of the very first
posting to the discussion thread.  Standard output will display:

      Files will be consolidated

=item *

If you type anything other than C in ALL CAPS -- or simply hit C<[Enter]>,
then the files will not be consolidated and standard output will display:

      Files will not be consolidated

=item *

If the files are consolidated, the original thread files will not automatically
be deleted.  Rather, they are renamed with the extension C<.DELETABLE>.

    Help telnetting to remote host through CGI.thr.txt.DELETABLE
    Help telnetting to remote host thru CGI.thr.txt.DELETABLE

This is a safety precaution.  The user can then delete the deletable files
by calling the C function discussed below.

=back

=item *

If there are no files in the threads directory which share the first 20 letters
in common (or the first I letters if you have passed the optional third
argument), then you are warned at standard output:

    Analysis of the first 20 letters of each file in
      [threads directory]
      shows no candidates for consolidation.  Please hard-code
      names of files you wish to consolidate as arguments to
      &consolidate_threads_single

=back

=head2 C

    consolidate_threads_single(
        \%config_in,
        \%config_out,
        [
            'first_dummy_file_for_consolidation.thr.txt',
            'second_dummy_file_for_consolidation.thr.txt',
        ],
    );

Suppose that the thread files which you wish to consolidate have names whose
spelling diverges before the 21st letter.  The algorithm which
C applies would not detect the potential
rationale for consolidation.  This could happen when someone tries to change
the subject of discussion from:

    Best book for extreme Newbie to programming

to:

    De incunabula nostra (Was Best book for extreme Newbie to programming)

I  Hard-code the files to be consolidated as elements of an
anonymous array.  Pass a reference to that anonymous array as the third
argument to C as shown above.

As with C, the resulting consolidated file
will bear the name of the source file containing the very first posting to
the discussion thread.  The files so consolidated will not automatically be
deleted.  Rather, they will be renamed with the extension C<.DELETABLE> as a
safety precaution and left for you to delete with C.

=head2 C

    delete_deletables(\%config_out);

Mail::Digest::Tools function C tidies up after use of
either C or C.
Unlike all other public functions provided by Mail::Digest::Tools,
C needs to be passed a reference to only one of the
two configuration hashes, I the 'out' configuration hash.  The
function simply changes to the directory where thread files for a given
digest are stored and deletes all files with the extension C<.DELETABLE>.

=head1 CONFIGURATION SETUP OVERVIEW

To use a Mail::Digest::Tool function, you need to answer two fundamental
questions:

=over 4

=item 1

What internal structure has the mailing list sponsor provided for a given
digest?

=item 2

How do I want to structure the results of applying Mail::Digest::Tools to a
particular digest on my system?

=back

Each of these two questions breaks down into sub-parts.  Their answers
supply you with the information with which you will construct the two
configuration hashes passed to most Mail::Digest::Tools functions.
Let us take each in turn.

=head1 C<%config_in>: THE INTERNAL STRUCTURE OF A DIGEST

The best way to learn about the internal structure of a mailing list digest
(other than to study the application which created the digest in the first
place) is to accumulate several instances of the digest on your system in a
directory devoted to that purpose.  Examine the way the digest's filename is
formed.  Then examine the digest file itself.  You will soon pick up a feel
for the structure of the digest, which will guide you in configuring
Mail::Digest::Tools for your system.  That configuration will take the form
of a Perl hash which, for illustrative purposes, we shall here call
C<%xxx_config_in> where C is a short-hand title for a particular digest.

For heuristic purposes we will examine the characteristics of two mailing
list digests which the author has been following and archiving for several
years:  ActiveState's 'Perl-Win32-Users' digest and Yahoo! Groups' Perl
Beginners group digest.

=head2 Analysis of Digest's File Name

We must study a digest's file name in order to be able to write a pattern
with which we will be able to distinguish a digest file from any non-digest
file sitting in the same directory, as well as to be able to extract the
digest number from that file name.

Once saved as plain-text files, Perl-Win32-Users digest files typically look
like this in a directory:

    Perl-Win32-Users Digest, Vol 1 Issue 1771.txt
    Perl-Win32-Users Digest, Vol 1 Issue 1772.txt

Similarly, the Perl Beginner digest files look like this:

    [PBML] Digest Number 1491.txt
    [PBML] Digest Number 1492.txt

To correctly identify Perl-Win32-Users digest files from any other files in
the same directory, we compose a string which would form the core of a Perl
regular expression, I everything in a pattern except the outer
delimiters.  Internally, Mail::Digest::Tools passes the file name through a
C pattern, so the first key is called C.

    %pw32u_config_in = (
        grep_formula            => 'Perl-Win32-Users Digest',
        ...
    );

The equivalent pattern for the Perl Beginners digest would be:

    %pbml_config_in = (
        grep_formula            => '\[PBML\]',
        ...
    );

Note that the C<[> and C<]> characters have to be escaped with a C<\>
backslash because they are normally metacharacters inside Perl regular
expressions.

We next have to extract the digest number from the digest's file name.
Certain mailing list programs give individual digests both a 'Volume' number
as well as an individual digest number.  Perl-Win32-Users typifies this.  In
the example above we need to capture both the C<1> as volume number and C<1771>
as digest number.  The next key in our configuration hash is called
C:

    %pw32u_config_in = (
        grep_formula            => 'Perl-Win32-Users Digest',
        pattern_target          => '.*Vol\s(\d+),\sIssue\s(\d+)\.txt',
        ...
    );

Note the two sets of capturing parentheses.

Other digests, such as those at Yahoo! Groups, dispense with a volume number
and simply increment each digest number:

    %pbml_config_in = (
        grep_formula            => '\[PBML\]',
        pattern_target          => '.*\s(\d+)\.txt$',
        ...
    );

Note that this C contains only one pair of capturing
parentheses.

=head2 Analysis of Digest's Internal Structure

A digest's internal structure is discussed in detail above (see
'A TYPICAL MAILING LIST DIGEST').  Here we need to identify two
characteristics:  the way the digest introduces its list of today's topics
and the string it uses to delimit the list of today's topics from the first
individual message in the digest and all subsequent messages from one another.
Continuing with our two examples from above, we provide values for keys
C and C:

    %pw32u_config_in = (
        grep_formula            => 'Perl-Win32-Users digest',
        pattern_target          => '.*Vol\s(\d+),\sIssue\s(\d+)\.txt',
        topics_intro            => 'Today\'s Topics:',
        source_msg_delimiter    => "--__--__--\n\n",
        ...
    );

Note the escaped C<'> apostrophe character in the value for key
C.

    %pbml_config_in = (
        grep_formula            => '\[PBML\]',
        pattern_target          => '.*\s(\d+)\.txt$',
        topics_intro            => 'Topics in this digest:',
        source_msg_delimiter    => "________________________________________________________________________\n________________________________________________________________________\n\n",
        ...
    );

Note that the values provided for the respective C keys
had to be double-quoted strings.  That's because all such delimiters include
two or more C<\n> newline characters so that they form paragraphs unto
themselves.  Unless indicated otherwise, the values for all other values in
the configuration hash are single-quoted strings.

Note:  In early 2004, while Mail::Digest::Tools was being prepared for its
initial distribution on CPAN, ActiveState changed certain features in the
daily digest versions of its mailing lists.  Hence, the code example presented
above should not be 'copied-and-pasted' into a configuration hash with which
you, the user, might follow the current Perl-Win32-Users digest.  In
particular, the source message delimiter was changed to a string of 30
hyphens followed by 2 C<\n> newline characters:

    "------------------------------\n\n"

However, since it is not unheard of for contributors to a mailing list to use
such a string of hyphens within their postings or signatures, using a string
of hyphens is not a particularly apt choice for a source message delimiter.
In this particular case, the author is getting better (but not fully tested)
results by including an additional newline I the hyphen string in
order to more uniquely identify the source message delimiter:

    "\n------------------------------\n\n"

=head2 Analysis of Individual Messages

The internal structure of an individual message within a digest is also
discussed in detail above.  Here we need to identify patterns with which we
can extract the content of the message's headers.

Certain mailing list digest programs allow a wide variety of headers to appear
in digested messages.  The Perl-Win32-Users digest typifies this.  Each
message in a Perl-Win32_Users digest I have a message number and headers
for the message's author, recipients, subject and date.

    Message: 1
    From: Chris Smithson
    To: "'Carter Kraus'" ,
           "Perl-Win32-Users (E-mail)"
    Subject: RE: OO Perl Issue.
    Date: Wed, 4 Feb 2004 14:17:24 -0600

But a message in this digest may have additional headers for the author's
organization, reply address and/or carbon-copy recipients.

    Message: 5
    Date: Wed, 4 Feb 2004 15:15:44 -0800
    From: Sam Spade
    Organization: Some Web Address
    Reply-To: Sam Spade
    To: "Time"
    CC: "Perl List"
    Subject: Re: New IE Update causes script problems

Patterns are easily developed to capture this information and store it in the
configuration hash:

    %pw32u_config_in = (
        grep_formula            => 'Perl-Win32-Users digest',
        pattern_target          => '.*Vol\s(\d+),\sIssue\s(\d+)\.txt',
        topics_intro            => 'Today\'s Topics:',
        source_msg_delimiter    => "--__--__--\n\n",
        message_style_flag      => '^Message:\s+(\d+)$',
        from_style_flag         => '^From:\s+(.+)$',
        org_style_flag          => '^Organization:\s+(.+)$',
        to_style_flag           => '^To:\s+(.+)$',
        cc_style_flag           => '^CC:\s+(.+)$',
        subject_style_flag      => '^Subject:\s+(.+)$',
        date_style_flag         => '^Date:\s+(.+)$',
        reply_to_style_flag     => '^Reply-To:\s+(.+)$',
        ...
    );

Other mailing list digest programs allow much fewer headers in digested
messages.  The Yahoo! Groups digests such as Perl Beginner typify this.

    Message: 4
       Date: Sun, 7 Dec 2003 19:24:03 +1100
       From: Philip Streets
    Subject: RH9.0, perl 5.8.2 and qmail-localfilter question

The patterns developed to capture this information and store it in the
configuration hash would be as follows:

    %pbml_config_in = (
        grep_formula            => '\[PBML\]',
        pattern_target          => '.*\s(\d+)\.txt$',
        topics_intro            => 'Topics in this digest:',
        source_msg_delimiter    => "________________________________________________________________________\n________________________________________________________________________\n\n",
        message_style_flag      => '^Message:\s+(\d+)$',
        from_style_flag         => '^\s+From:\s+(.+)$',
        subject_style_flag      => '^Subject:\s+(.+)$',
        date_style_flag         => '^\s+Date:\s+(.+)$',
        ...
    );

Note that this pattern is written to expect 1 or more whitespaces at the
beginning of the C and the C.

We could -- but do not need to -- add the following key-value pairs to the
C<%pbml_config_in> hash.

        org_style_flag          => undef,
        to_style_flag           => undef,
        cc_style_flag           => undef,
        reply_to_style_flag     => undef,

=head2 Inspection of Messages for Multipart MIME Content

Certain mailing lists allow subscribers to post messages in either plain-text
or HTML.  Certain lists allow subscribers to post attachments; others do not.
When it comes to preparing digests of these messages, the programs which
different lists take lead to different results.  The most annoying situation
occurs when a list allows a subscriber to post in 'multipart MIME format' and
then fails to strip out the redundant HTML part after printing the needed
plain-text part.

I  An all too typical example from an older version of an ActiveState
list digest.  (ActiveState changed the format of its digests in early 2004 to
strip out HTML attachments.  Hence, the following code no longer accurately
represents what a subscriber to an ActiveState digest will see.  Other mailing
lists still suffer from MIME bloat, however, so treat the following code as
illustrative.)  The message begins:

    Message: 1
    To: [e-mail]
    Subject: Can not tie STDOUT to scolled Tk widget
    From: [e-mail]
    Date: Thu, 15 Jan 2004 16:25:17 -0500
    This is a multipart message in MIME format.
    --=_alternative 00750F0485256E1C_=
    Content-Type: text/plain; charset="US-ASCII"
    Hi;
    I am trying to implement a scrolling text widget to capture output for for
    at tk app. Without scrolling:
    my $text = $mw->Text(-width => 78,
           -height => 32,
           -wrap => 'word',
           -font => ['Courier New','11']
    )->pack(-side => 'bottom',
           -expand => 1,
           -fill => 'both',
    );
    ...

When the plain-text part of the message is finished, it is then repeated in
HTML:

    --=_alternative 00750F0485256E1C_=
    Content-Type: text/html; charset="US-ASCII"
    Hi;
    I am trying to implement a scrolling text
    widget to capture output for for at tk app. Without scrolling:
    my $text = $mw->Text(-width
    => 78,

    -height => 32,

    -wrap => 'word',

    -font => ['Courier New','11']
    )->pack(-side =>
    'bottom',

    -expand => 1,

    -fill => 'both',

There is no reason to retain this bloat in your thread file.  The digest
providers should have stripped it out, but the program they were using failed
to do so.  Other digests, such as those at Yahoo! Groups, eliminate all this
blather.

Now, with Mail::Digest::Tools, you can eliminate much of the bloat yourself.
After examining 6-10 instances of a particular mailing list digest, you should
be able to determine whether the digest needs a dose of digital castor oil or
not, and you set key C accordingly.  If the digest contains
unnecessary multipart MIME content, you set this flag to C<1>; otherwise, to
C<0>.

And with that you have completed your analysis of the internal structure of a
given digest and entered the relevant information into the first configuration
hash:

    %pw32u_config_in = (
        grep_formula            => 'Perl-Win32-Users digest',
        pattern_target          => '.*Vol\s(\d+),\sIssue\s(\d+)\.txt',
        topics_intro            => 'Today\'s Topics:',
        source_msg_delimiter    => "--__--__--\n\n",
        message_style_flag      => '^Message:\s+(\d+)$',
        from_style_flag         => '^From:\s+(.+)$',
        org_style_flag          => '^Organization:\s+(.+)$',
        to_style_flag           => '^To:\s+(.+)$',
        cc_style_flag           => '^CC:\s+(.+)$',
        subject_style_flag      => '^Subject:\s+(.+)$',
        date_style_flag         => '^Date:\s+(.+)$',
        reply_to_style_flag     => '^Reply-To:\s+(.+)$',
        MIME_cleanup_flag       => 1,
    );

    %pbml_config_in = (
        grep_formula            => '\[PBML\]',
        pattern_target          => '.*\s(\d+)\.txt$',
        topics_intro            => 'Topics in this digest:',
        source_msg_delimiter    => "________________________________________________________________________\n________________________________________________________________________\n\n",
        message_style_flag      => '^Message:\s+(\d+)$',
        from_style_flag         => '^\s+From:\s+(.+)$',
        subject_style_flag      => '^Subject:\s+(.+)$',
        date_style_flag         => '^\s+Date:\s+(.+)$',
        MIME_cleanup_flag       => 0,
    );

=head1 C<%config_out>: HOW TO PROCESS A DIGEST ON YOUR SYSTEM

C<%config_in> holds the answers to the question:  What internal structure has
the mailing list sponsor provided for a given digest?  In contrast,
C<%config_out> will hold the answer to this question:  How do I want to
structure the results of applying Mail::Digest::Tools to a particular digest
on my system?

For purpose of illustration, we will continue to assume that we are processing
digest files received from the Perl-Win32-Users and Perl Beginner lists.  We
will make slightly different choices as to how we process those digest files
so as to illustrate different options available from Mail::Digest::Tools.

We shall also assume that we going to place the scripts from which we call
Mail::Digest::Tools functions in the directory I the directories in
which we store the digest files once they have been saved as plain-text files.
If we call this directory C and place the scripts in that directory,
then we will have a directory structure that starts out like this:

    digest/
        process_new.pl
        process_ALL.pl
        reply_digest_message.pl
        repair_digest_order.pl
        consolidate_threads.pl
        deletables.pl
        pw32u/
            Perl-Win32-Users Digest, Vol 1 Issue 1771.txt
            Perl-Win32-Users Digest, Vol 1 Issue 1772.txt
        pbml/
            [PBML] Digest Number 1491.txt
            [PBML] Digest Number 1492.txt

=head2 Required C<%config_out> Keys

There are 9 keys which are required in C<%config_out> in order for
Mail::Digest::Tools to function properly.  They correspond to 9 decisions
which you must make in setting up a Mail::Digest::Tools configuration on
your system.

=over 4

=item 1 Title

Each digest must be given a title which is used whenever Mail::Digest::Tools
needs to prompt or warn you on standard output.  The key which holds this
information in C<%config_out> must be called C; the value for this  </td>
</tr>

<tr>
<td  class="h" >
<a name="2653">2653</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> element should be sensible. </td>
</tr>

<tr>
<td  class="h" >
<a name="2654">2654</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2655">2655</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pw32u_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2656">2656</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl-Win32-Users', </td>
</tr>

<tr>
<td  class="h" >
<a name="2657">2657</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="2658">2658</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2659">2659</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2660">2660</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pbml_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2661">2661</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl Beginner', </td>
</tr>

<tr>
<td  class="h" >
<a name="2662">2662</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="2663">2663</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2664">2664</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2665">2665</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 2 Digest Directory </td>
</tr>

<tr>
<td  class="h" >
<a name="2666">2666</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2667">2667</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> For each digest a directory must be designated where individual digest files  </td>
</tr>

<tr>
<td  class="h" >
<a name="2668">2668</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> are stored in plain-text format.  The key which holds this information in  </td>
</tr>

<tr>
<td  class="h" >
<a name="2669">2669</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<%config_out> must be called C<dir_digest>.  In the examples below  </td>
</tr>

<tr>
<td  class="h" >
<a name="2670">2670</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> directories are named relative to the 'current' directory (C<..>),  </td>
</tr>

<tr>
<td  class="h" >
<a name="2671">2671</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> I<i.e.,> the directory where the script invoking a  </td>
</tr>

<tr>
<td  class="h" >
<a name="2672">2672</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Mail::Digest::Function is stored. </td>
</tr>

<tr>
<td  class="h" >
<a name="2673">2673</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2674">2674</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pw32u_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2675">2675</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl-Win32-Users', </td>
</tr>

<tr>
<td  class="h" >
<a name="2676">2676</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pw32u", </td>
</tr>

<tr>
<td  class="h" >
<a name="2677">2677</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="2678">2678</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2679">2679</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2680">2680</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pbml_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2681">2681</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl Beginner', </td>
</tr>

<tr>
<td  class="h" >
<a name="2682">2682</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pbml", </td>
</tr>

<tr>
<td  class="h" >
<a name="2683">2683</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="2684">2684</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2685">2685</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2686">2686</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 3 Threads Directory </td>
</tr>

<tr>
<td  class="h" >
<a name="2687">2687</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2688">2688</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> For each digest a directory must be designated where the thread files created  </td>
</tr>

<tr>
<td  class="h" >
<a name="2689">2689</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> by use of Mail::Digest::Tools functions are stored.  The key which holds this  </td>
</tr>

<tr>
<td  class="h" >
<a name="2690">2690</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> information in C<%config_out> must be called C<dir_threads>.  In the examples  </td>
</tr>

<tr>
<td  class="h" >
<a name="2691">2691</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> below the threads directory is a subdirectory of the digest directory, but  </td>
</tr>

<tr>
<td  class="h" >
<a name="2692">2692</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> you may make other choices. </td>
</tr>

<tr>
<td  class="h" >
<a name="2693">2693</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2694">2694</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pw32u_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2695">2695</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl-Win32-Users', </td>
</tr>

<tr>
<td  class="h" >
<a name="2696">2696</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pw32u", </td>
</tr>

<tr>
<td  class="h" >
<a name="2697">2697</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pw32u/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="2698">2698</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="2699">2699</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2700">2700</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2701">2701</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pbml_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2702">2702</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl Beginner', </td>
</tr>

<tr>
<td  class="h" >
<a name="2703">2703</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pbml", </td>
</tr>

<tr>
<td  class="h" >
<a name="2704">2704</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pbml/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="2705">2705</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="2706">2706</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2707">2707</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2708">2708</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 4 Digests Log File </td>
</tr>

<tr>
<td  class="h" >
<a name="2709">2709</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2710">2710</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> For each digest a file must be kept which logs whether a given digest file  </td>
</tr>

<tr>
<td  class="h" >
<a name="2711">2711</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> has already been processed or not and, if so, when.  The key which holds this  </td>
</tr>

<tr>
<td  class="h" >
<a name="2712">2712</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> information in C<%config_out> must be called C<digests_log>.  It has been  </td>
</tr>

<tr>
<td  class="h" >
<a name="2713">2713</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> found convenient to keep this file in the digests directory, but you may make  </td>
</tr>

<tr>
<td  class="h" >
<a name="2714">2714</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> other choices. </td>
</tr>

<tr>
<td  class="h" >
<a name="2715">2715</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2716">2716</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pw32u_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2717">2717</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl-Win32-Users', </td>
</tr>

<tr>
<td  class="h" >
<a name="2718">2718</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pw32u", </td>
</tr>

<tr>
<td  class="h" >
<a name="2719">2719</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pw32u/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="2720">2720</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_log                => "../pw32u/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2721">2721</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="2722">2722</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2723">2723</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2724">2724</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pbml_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2725">2725</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl Beginner', </td>
</tr>

<tr>
<td  class="h" >
<a name="2726">2726</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pbml", </td>
</tr>

<tr>
<td  class="h" >
<a name="2727">2727</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pbml/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="2728">2728</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_log                => "../pbml/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2729">2729</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="2730">2730</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2731">2731</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2732">2732</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 5 Today's Topics </td>
</tr>

<tr>
<td  class="h" >
<a name="2733">2733</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2734">2734</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> For each digest a file must be kept which holds an ongoing record of the  </td>
</tr>

<tr>
<td  class="h" >
<a name="2735">2735</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> list of topics found in each individual digest file.  The key which holds this  </td>
</tr>

<tr>
<td  class="h" >
<a name="2736">2736</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> information in C<%config_out> must be called <todays_topics>.  It has been  </td>
</tr>

<tr>
<td  class="h" >
<a name="2737">2737</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> found convenient to keep this file in the digests directory, but you may make  </td>
</tr>

<tr>
<td  class="h" >
<a name="2738">2738</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> other choices. </td>
</tr>

<tr>
<td  class="h" >
<a name="2739">2739</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2740">2740</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pw32u_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2741">2741</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl-Win32-Users', </td>
</tr>

<tr>
<td  class="h" >
<a name="2742">2742</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pw32u", </td>
</tr>

<tr>
<td  class="h" >
<a name="2743">2743</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pw32u/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="2744">2744</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_log                => "../pw32u/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2745">2745</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         todays_topics              => "../pw32u/todays_topics.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2746">2746</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="2747">2747</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2748">2748</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2749">2749</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pbml_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2750">2750</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl Beginner', </td>
</tr>

<tr>
<td  class="h" >
<a name="2751">2751</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pbml", </td>
</tr>

<tr>
<td  class="h" >
<a name="2752">2752</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pbml/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="2753">2753</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_log                => "../pbml/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2754">2754</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         todays_topics              => "../pbml/todays_topics.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2755">2755</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="2756">2756</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2757">2757</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2758">2758</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 6 Format for Identifying Digest Number in Output </td>
</tr>

<tr>
<td  class="h" >
<a name="2759">2759</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2760">2760</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> For each digest you must choose how to format the number(s) of the individual  </td>
</tr>

<tr>
<td  class="h" >
<a name="2761">2761</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> digest file being processed when messages from that file are written to a  </td>
</tr>

<tr>
<td  class="h" >
<a name="2762">2762</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> threads file.  What you are doing here is formatting the information captured  </td>
</tr>

<tr>
<td  class="h" >
<a name="2763">2763</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> by the C<pattern_target> key in a given digest's C<%config_in> (see above).   </td>
</tr>

<tr>
<td  class="h" >
<a name="2764">2764</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> You express this choice as a single-quoted string which formats the data  </td>
</tr>

<tr>
<td  class="h" >
<a name="2765">2765</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> captured by Perl regular expression which in C<pattern_target>.  This  </td>
</tr>

<tr>
<td  class="h" >
<a name="2766">2766</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> formatting is done via the Perl C<sprintf> function.  The resulting string  </td>
</tr>

<tr>
<td  class="h" >
<a name="2767">2767</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> is assigned to be the value of C<%config_out> key <id_format>. </td>
</tr>

<tr>
<td  class="h" >
<a name="2768">2768</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2769">2769</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> We saw above that digests from the Perl-Win32-Users list carried both a volume  </td>
</tr>

<tr>
<td  class="h" >
<a name="2770">2770</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> number and an individual digest number. </td>
</tr>

<tr>
<td  class="h" >
<a name="2771">2771</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2772">2772</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     Perl-Win32-Users Digest, Vol 1 Issue 1771.txt </td>
</tr>

<tr>
<td  class="h" >
<a name="2773">2773</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     Perl-Win32-Users Digest, Vol 1 Issue 1772.txt </td>
</tr>

<tr>
<td  class="h" >
<a name="2774">2774</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2775">2775</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Both numbers were captured by the Perl regular expression in  </td>
</tr>

<tr>
<td  class="h" >
<a name="2776">2776</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<%pw32u_config_in> key <pattern_target>. </td>
</tr>

<tr>
<td  class="h" >
<a name="2777">2777</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2778">2778</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     '.*Vol\s(\d+),\sIssue\s(\d+)\.txt', </td>
</tr>

<tr>
<td  class="h" >
<a name="2779">2779</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2780">2780</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Here we have chosen to format the volume number as a 3-digit, 0-padded number  </td>
</tr>

<tr>
<td  class="h" >
<a name="2781">2781</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> and the individual digest number as a 4-digit, 0-padded number.  We then join  </td>
</tr>

<tr>
<td  class="h" >
<a name="2782">2782</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> these two data with an underscore. </td>
</tr>

<tr>
<td  class="h" >
<a name="2783">2783</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2784">2784</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pw32u_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2785">2785</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl-Win32-Users', </td>
</tr>

<tr>
<td  class="h" >
<a name="2786">2786</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pw32u", </td>
</tr>

<tr>
<td  class="h" >
<a name="2787">2787</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pw32u/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="2788">2788</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_log                => "../pw32u/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2789">2789</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         todays_topics              => "../pw32u/todays_topics.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2790">2790</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         id_format                  => 'sprintf("%03d",$1) . \'_\' . sprintf("%04d",$2)', </td>
</tr>

<tr>
<td  class="h" >
<a name="2791">2791</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="2792">2792</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2793">2793</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2794">2794</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> We saw above that digests from the Perl Beginners list carried only an  </td>
</tr>

<tr>
<td  class="h" >
<a name="2795">2795</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> digest number -- no volume number. </td>
</tr>

<tr>
<td  class="h" >
<a name="2796">2796</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2797">2797</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     [PBML] Digest Number 1491.txt </td>
</tr>

<tr>
<td  class="h" >
<a name="2798">2798</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     [PBML] Digest Number 1492.txt </td>
</tr>

<tr>
<td  class="h" >
<a name="2799">2799</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2800">2800</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This number was captured by the Perl regular expression in C<%pbml_config_in>  </td>
</tr>

<tr>
<td  class="h" >
<a name="2801">2801</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> key <pattern_target>. </td>
</tr>

<tr>
<td  class="h" >
<a name="2802">2802</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2803">2803</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     '.*\s(\d+)\.txt$' </td>
</tr>

<tr>
<td  class="h" >
<a name="2804">2804</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2805">2805</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Here we have chosen to format the digest number as a 5-digit, 0-padded number. </td>
</tr>

<tr>
<td  class="h" >
<a name="2806">2806</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2807">2807</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pbml_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2808">2808</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl Beginner', </td>
</tr>

<tr>
<td  class="h" >
<a name="2809">2809</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pbml", </td>
</tr>

<tr>
<td  class="h" >
<a name="2810">2810</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pbml/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="2811">2811</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_log                => "../pbml/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2812">2812</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         todays_topics              => "../pbml/todays_topics.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2813">2813</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         id_format                  => 'sprintf("%05d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="2814">2814</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="2815">2815</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2816">2816</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2817">2817</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Note that if you allow for a 4-digit number, the highest numbered digest you  </td>
</tr>

<tr>
<td  class="h" >
<a name="2818">2818</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> can process off a given mailing list will be C<9999>.  If you allow for a  </td>
</tr>

<tr>
<td  class="h" >
<a name="2819">2819</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 5-digit number, the upper limit will be C<99999>.  The latter should be  </td>
</tr>

<tr>
<td  class="h" >
<a name="2820">2820</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> sufficient for a lifetime even for a mailing list (I<e.g.,> London.pm) which  </td>
</tr>

<tr>
<td  class="h" >
<a name="2821">2821</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> generates 3 or 4 digest files per day or over 1000 per year. </td>
</tr>

<tr>
<td  class="h" >
<a name="2822">2822</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2823">2823</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 7 Format for Numbering Individual Messages in Output </td>
</tr>

<tr>
<td  class="h" >
<a name="2824">2824</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2825">2825</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> For each digest you must choose how to format the number which the digest  </td>
</tr>

<tr>
<td  class="h" >
<a name="2826">2826</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> assigns to its individual messages.  Experience suggests that 2 digits should  </td>
</tr>

<tr>
<td  class="h" >
<a name="2827">2827</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> be more than sufficient to format this number, as all digests which the author  </td>
</tr>

<tr>
<td  class="h" >
<a name="2828">2828</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> has observed have fewer than 100 entries.  However, below we have arbitrarily  </td>
</tr>

<tr>
<td  class="h" >
<a name="2829">2829</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> decided to allow for up to 9999 entries in a given digest.  As with the digest  </td>
</tr>

<tr>
<td  class="h" >
<a name="2830">2830</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> number, the formatting is accomplished via the Perl C<sprintf> function.   </td>
</tr>

<tr>
<td  class="h" >
<a name="2831">2831</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> The result is stored in a C<%config_out> key which must be called  </td>
</tr>

<tr>
<td  class="h" >
<a name="2832">2832</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<output_id_format>. </td>
</tr>

<tr>
<td  class="h" >
<a name="2833">2833</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2834">2834</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pw32u_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2835">2835</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl-Win32-Users', </td>
</tr>

<tr>
<td  class="h" >
<a name="2836">2836</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pw32u", </td>
</tr>

<tr>
<td  class="h" >
<a name="2837">2837</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pw32u/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="2838">2838</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_log                => "../pw32u/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2839">2839</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         todays_topics              => "../pw32u/todays_topics.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2840">2840</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         id_format                  => 'sprintf("%03d",$1) .  </td>
</tr>

<tr>
<td  class="h" >
<a name="2841">2841</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                                            \'_\' . sprintf("%04d",$2)', </td>
</tr>

<tr>
<td  class="h" >
<a name="2842">2842</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         output_id_format           => 'sprintf("%04d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="2843">2843</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="2844">2844</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2845">2845</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2846">2846</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pbml_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2847">2847</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl Beginner', </td>
</tr>

<tr>
<td  class="h" >
<a name="2848">2848</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pbml", </td>
</tr>

<tr>
<td  class="h" >
<a name="2849">2849</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pbml/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="2850">2850</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_log                => "../pbml/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2851">2851</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         todays_topics              => "../pbml/todays_topics.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2852">2852</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         id_format                  => 'sprintf("%05d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="2853">2853</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         output_id_format           => 'sprintf("%04d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="2854">2854</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="2855">2855</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2856">2856</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2857">2857</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 8 Thread Message Delimiter </td>
</tr>

<tr>
<td  class="h" >
<a name="2858">2858</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2859">2859</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> For each digest you must compose a string which will separate one message in  </td>
</tr>

<tr>
<td  class="h" >
<a name="2860">2860</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> a threads file from its successor.  This string must be double-quoted and  </td>
</tr>

<tr>
<td  class="h" >
<a name="2861">2861</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> assigned to C<%config_out> key C<thread_msg_delimiter>.  For readability, this  </td>
</tr>

<tr>
<td  class="h" >
<a name="2862">2862</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> string should terminate in two or more C<\n\n> newline characters so that the  </td>
</tr>

<tr>
<td  class="h" >
<a name="2863">2863</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> delimiter is always a paragraph unto itself. </td>
</tr>

<tr>
<td  class="h" >
<a name="2864">2864</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2865">2865</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This delimiter may -- or may not -- be the same string which the mailing list  </td>
</tr>

<tr>
<td  class="h" >
<a name="2866">2866</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> provider uses to separate messages in the digest files themselves.  In other  </td>
</tr>

<tr>
<td  class="h" >
<a name="2867">2867</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> words, you may choose to use the same string for C<thread_msg_delimiter> in  </td>
</tr>

<tr>
<td  class="h" >
<a name="2868">2868</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<%config_out> as you reported the list provider used in C<%config_in> key  </td>
</tr>

<tr>
<td  class="h" >
<a name="2869">2869</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<source_msg_delimiter>. </td>
</tr>

<tr>
<td  class="h" >
<a name="2870">2870</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2871">2871</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> In the example below we make the C<thread_msg_delimiter> for the output from  </td>
</tr>

<tr>
<td  class="h" >
<a name="2872">2872</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Perl-Win32-Users to be the same as its C<source_msg_delimiter>. </td>
</tr>

<tr>
<td  class="h" >
<a name="2873">2873</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2874">2874</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pw32u_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2875">2875</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl-Win32-Users', </td>
</tr>

<tr>
<td  class="h" >
<a name="2876">2876</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pw32u", </td>
</tr>

<tr>
<td  class="h" >
<a name="2877">2877</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pw32u/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="2878">2878</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_log                => "../pw32u/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2879">2879</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         todays_topics              => "../pw32u/todays_topics.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2880">2880</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         id_format                  => 'sprintf("%03d",$1) .  </td>
</tr>

<tr>
<td  class="h" >
<a name="2881">2881</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                                            \'_\' . sprintf("%04d",$2)', </td>
</tr>

<tr>
<td  class="h" >
<a name="2882">2882</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         output_id_format           => 'sprintf("%04d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="2883">2883</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         thread_msg_delimiter       => "--__--__--\n\n", </td>
</tr>

<tr>
<td  class="h" >
<a name="2884">2884</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="2885">2885</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2886">2886</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2887">2887</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Note:  In light of the earlier discussion of the changes ActiveState made  </td>
</tr>

<tr>
<td  class="h" >
<a name="2888">2888</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> to its mailing list digests in early 2004, the reader is cautioned that the  </td>
</tr>

<tr>
<td  class="h" >
<a name="2889">2889</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> code above should not be directly 'copied-and-pasted' into a configuration  </td>
</tr>

<tr>
<td  class="h" >
<a name="2890">2890</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> hash with which you might follow an ActiveState mailing list.  Treat it as  </td>
</tr>

<tr>
<td  class="h" >
<a name="2891">2891</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> educational.  In particular, the author is now testing the following as a  </td>
</tr>

<tr>
<td  class="h" >
<a name="2892">2892</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> setting for C<$pw32u_config_out{'thread_msg_delimiter'}>: </td>
</tr>

<tr>
<td  class="h" >
<a name="2893">2893</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2894">2894</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     "\n--__--__--\n\n", </td>
</tr>

<tr>
<td  class="h" >
<a name="2895">2895</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2896">2896</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> For threads generated by appling Mail::Digest::Tools to the Perl  </td>
</tr>

<tr>
<td  class="h" >
<a name="2897">2897</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Beginners list, we choose an output message delimiter which differs from the  </td>
</tr>

<tr>
<td  class="h" >
<a name="2898">2898</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> source message delimiter. </td>
</tr>

<tr>
<td  class="h" >
<a name="2899">2899</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2900">2900</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pbml_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2901">2901</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl Beginner', </td>
</tr>

<tr>
<td  class="h" >
<a name="2902">2902</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pbml", </td>
</tr>

<tr>
<td  class="h" >
<a name="2903">2903</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pbml/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="2904">2904</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_log                => "../pbml/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2905">2905</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         todays_topics              => "../pbml/todays_topics.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2906">2906</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         id_format                  => 'sprintf("%05d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="2907">2907</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         output_id_format           => 'sprintf("%04d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="2908">2908</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         thread_msg_delimiter       => "_*_*_*_*_*_\n_*_*_*_*_*_\n\n\n", </td>
</tr>

<tr>
<td  class="h" >
<a name="2909">2909</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="2910">2910</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2911">2911</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2912">2912</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Whatever choice you make for the C<thread_msg_delimiter> it should be a string  </td>
</tr>

<tr>
<td  class="h" >
<a name="2913">2913</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> unlikely to occur within the text of a message and should terminate in two or  </td>
</tr>

<tr>
<td  class="h" >
<a name="2914">2914</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> more newlines. </td>
</tr>

<tr>
<td  class="h" >
<a name="2915">2915</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2916">2916</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 9 Archive or Delete Threads? </td>
</tr>

<tr>
<td  class="h" >
<a name="2917">2917</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2918">2918</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> For each digest you process with Mail::Digest::Tools, you must decide whether  </td>
</tr>

<tr>
<td  class="h" >
<a name="2919">2919</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> to retain the resulting thread files in an archive them in a separate  </td>
</tr>

<tr>
<td  class="h" >
<a name="2920">2920</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> directory after a specified period of time, to delete them from disk  </td>
</tr>

<tr>
<td  class="h" >
<a name="2921">2921</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> after a specified period of time, or to do neither and allow them to  </td>
</tr>

<tr>
<td  class="h" >
<a name="2922">2922</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> accumulate indefinitely in the threads directory.  Your decision is represented  </td>
</tr>

<tr>
<td  class="h" >
<a name="2923">2923</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> as the value of C<%config_out> key <archive_kill_trigger>.  This value must  </td>
</tr>

<tr>
<td  class="h" >
<a name="2924">2924</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> be expressed as one of three numerical values: </td>
</tr>

<tr>
<td  class="h" >
<a name="2925">2925</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2926">2926</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">      0    Thread files are neither archived nor deleted </td>
</tr>

<tr>
<td  class="h" >
<a name="2927">2927</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2928">2928</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">      1    Thread files are archived in a separate directory (or directories)  </td>
</tr>

<tr>
<td  class="h" >
<a name="2929">2929</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           after the number of days specified by key 'archive_kill_days'  </td>
</tr>

<tr>
<td  class="h" >
<a name="2930">2930</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           (see below) </td>
</tr>

<tr>
<td  class="h" >
<a name="2931">2931</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2932">2932</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     -1    Thread files are deleted after I<n> days as specified by key  </td>
</tr>

<tr>
<td  class="h" >
<a name="2933">2933</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">           'archive_kill_days'  </td>
</tr>

<tr>
<td  class="h" >
<a name="2934">2934</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2935">2935</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> In the examples below we have chosen to archive all threads generated by the  </td>
</tr>

<tr>
<td  class="h" >
<a name="2936">2936</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Perl-Win32-Users list but to kill all threads generated by the Perl Beginner  </td>
</tr>

<tr>
<td  class="h" >
<a name="2937">2937</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> list after a number of days whose specification we shall come to shortly. </td>
</tr>

<tr>
<td  class="h" >
<a name="2938">2938</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2939">2939</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pw32u_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2940">2940</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl-Win32-Users', </td>
</tr>

<tr>
<td  class="h" >
<a name="2941">2941</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pw32u", </td>
</tr>

<tr>
<td  class="h" >
<a name="2942">2942</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pw32u/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="2943">2943</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_log                => "../pw32u/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2944">2944</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         todays_topics              => "../pw32u/todays_topics.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2945">2945</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         id_format                  => 'sprintf("%03d",$1) . \'_\' .  </td>
</tr>

<tr>
<td  class="h" >
<a name="2946">2946</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                                            sprintf("%04d",$2)', </td>
</tr>

<tr>
<td  class="h" >
<a name="2947">2947</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         output_id_format           => 'sprintf("%04d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="2948">2948</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         thread_msg_delimiter       => "--__--__--\n\n", </td>
</tr>

<tr>
<td  class="h" >
<a name="2949">2949</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         archive_kill_trigger       => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="2950">2950</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="2951">2951</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2952">2952</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2953">2953</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pbml_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="2954">2954</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl Beginner', </td>
</tr>

<tr>
<td  class="h" >
<a name="2955">2955</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pbml", </td>
</tr>

<tr>
<td  class="h" >
<a name="2956">2956</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pbml/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="2957">2957</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_log                => "../pbml/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2958">2958</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         todays_topics              => "../pbml/todays_topics.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="2959">2959</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         id_format                  => 'sprintf("%05d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="2960">2960</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         output_id_format           => 'sprintf("%04d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="2961">2961</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         thread_msg_delimiter       => "_*_*_*_*_*_\n_*_*_*_*_*_\n\n\n", </td>
</tr>

<tr>
<td  class="h" >
<a name="2962">2962</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         archive_kill_trigger       => -1, </td>
</tr>

<tr>
<td  class="h" >
<a name="2963">2963</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="2964">2964</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="2965">2965</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2966">2966</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =back </td>
</tr>

<tr>
<td  class="h" >
<a name="2967">2967</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2968">2968</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This completes the 9 required keys for C<%config_out>.  We now turn to keys  </td>
</tr>

<tr>
<td  class="h" >
<a name="2969">2969</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> which are either optional or which are required if you have assigned a value  </td>
</tr>

<tr>
<td  class="h" >
<a name="2970">2970</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> of C<1> or C<-1> to key C<archive_kill_trigger>. </td>
</tr>

<tr>
<td  class="h" >
<a name="2971">2971</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2972">2972</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 Optional C<%config_out> Keys </td>
</tr>

<tr>
<td  class="h" >
<a name="2973">2973</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2974">2974</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =over 4 </td>
</tr>

<tr>
<td  class="h" >
<a name="2975">2975</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2976">2976</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item * Digests Read File </td>
</tr>

<tr>
<td  class="h" >
<a name="2977">2977</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2978">2978</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> As an option, Mail::Digest::Tools offers file to log which instances of a  </td>
</tr>

<tr>
<td  class="h" >
<a name="2979">2979</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> particular digest have previously been processed which is more  </td>
</tr>

<tr>
<td  class="h" >
<a name="2980">2980</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> human-readable than the file named in C<%config_out> key C<digests_log>.   </td>
</tr>

<tr>
<td  class="h" >
<a name="2981">2981</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> That file logs a digest as follows: </td>
</tr>

<tr>
<td  class="h" >
<a name="2982">2982</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2983">2983</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     001_9999;Fri Feb  6 18:57:41 2004;Fri Feb  6 18:57:41 2004 </td>
</tr>

<tr>
<td  class="h" >
<a name="2984">2984</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2985">2985</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> It is probably easier to read this data like this: </td>
</tr>

<tr>
<td  class="h" >
<a name="2986">2986</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2987">2987</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     09999: </td>
</tr>

<tr>
<td  class="h" >
<a name="2988">2988</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         first processed at            Fri Feb  6 18:57:41 2004 </td>
</tr>

<tr>
<td  class="h" >
<a name="2989">2989</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         most recently processed at    Fri Feb  6 18:57:41 2004 </td>
</tr>

<tr>
<td  class="h" >
<a name="2990">2990</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2991">2991</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> To choose this option you need to set I<two> keys in C<%config_out>: </td>
</tr>

<tr>
<td  class="h" >
<a name="2992">2992</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2993">2993</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =over 4 </td>
</tr>

<tr>
<td  class="h" >
<a name="2994">2994</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2995">2995</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 1 C<digests_read_flag> </td>
</tr>

<tr>
<td  class="h" >
<a name="2996">2996</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="2997">2997</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This must be assigned a true value such as C<1>.  This tells  </td>
</tr>

<tr>
<td  class="h" >
<a name="2998">2998</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Mail::Digest::Tools that you indeed want a 'digests read' file. </td>
</tr>

<tr>
<td  class="h" >
<a name="2999">2999</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3000">3000</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 2 C<digests_read> </td>
</tr>

<tr>
<td  class="h" >
<a name="3001">3001</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3002">3002</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This should be assigned the name of the 'digests read' file, but it will  </td>
</tr>

<tr>
<td  class="h" >
<a name="3003">3003</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> default to a file F<digests_read.txt> placed in the directory named by key  </td>
</tr>

<tr>
<td  class="h" >
<a name="3004">3004</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<dir_digest>. </td>
</tr>

<tr>
<td  class="h" >
<a name="3005">3005</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3006">3006</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =back </td>
</tr>

<tr>
<td  class="h" >
<a name="3007">3007</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3008">3008</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Adding these keys to our C<%config_out>, we get: </td>
</tr>

<tr>
<td  class="h" >
<a name="3009">3009</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3010">3010</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pw32u_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3011">3011</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl-Win32-Users', </td>
</tr>

<tr>
<td  class="h" >
<a name="3012">3012</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pw32u", </td>
</tr>

<tr>
<td  class="h" >
<a name="3013">3013</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pw32u/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="3014">3014</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_log                => "../pw32u/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3015">3015</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         todays_topics              => "../pw32u/todays_topics.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3016">3016</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         id_format                  => 'sprintf("%03d",$1) . \'_\' .  </td>
</tr>

<tr>
<td  class="h" >
<a name="3017">3017</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                                            sprintf("%04d",$2)', </td>
</tr>

<tr>
<td  class="h" >
<a name="3018">3018</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         output_id_format           => 'sprintf("%04d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="3019">3019</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         thread_msg_delimiter       => "--__--__--\n\n", </td>
</tr>

<tr>
<td  class="h" >
<a name="3020">3020</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         archive_kill_trigger       => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3021">3021</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_read_flag          => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3022">3022</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_read               => "../pw32u/digests_read.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3023">3023</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="3024">3024</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3025">3025</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3026">3026</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pbml_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3027">3027</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl Beginner', </td>
</tr>

<tr>
<td  class="h" >
<a name="3028">3028</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pbml", </td>
</tr>

<tr>
<td  class="h" >
<a name="3029">3029</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pbml/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="3030">3030</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_log                => "../pbml/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3031">3031</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         todays_topics              => "../pbml/todays_topics.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3032">3032</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         id_format                  => 'sprintf("%05d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="3033">3033</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         output_id_format           => 'sprintf("%04d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="3034">3034</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         thread_msg_delimiter       => "_*_*_*_*_*_\n_*_*_*_*_*_\n\n\n", </td>
</tr>

<tr>
<td  class="h" >
<a name="3035">3035</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         archive_kill_trigger       => -1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3036">3036</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_read_flag          => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3037">3037</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_read               => "../pbml/digests_read.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3038">3038</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="3039">3039</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3040">3040</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3041">3041</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item * Keys Needed When Archiving Thread Files </td>
</tr>

<tr>
<td  class="h" >
<a name="3042">3042</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3043">3043</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> If, as discussed above, you have assigned the value C<1> to the  </td>
</tr>

<tr>
<td  class="h" >
<a name="3044">3044</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<<archive_kill_trigger> key in C<%config_out>, then Mail::Digest::Tools  </td>
</tr>

<tr>
<td  class="h" >
<a name="3045">3045</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> will archive older thread files, I<i.e.,> it will move thread files from the  </td>
</tr>

<tr>
<td  class="h" >
<a name="3046">3046</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> directory specified in key C<dir_threads> to an archive directory if the  </td>
</tr>

<tr>
<td  class="h" >
<a name="3047">3047</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> thread file has not been modified in a specified number of days.  If new  </td>
</tr>

<tr>
<td  class="h" >
<a name="3048">3048</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> messages need to be posted to a thread file which has been archived, that  </td>
</tr>

<tr>
<td  class="h" >
<a name="3049">3049</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> file will be de-archived and brought back to the C<dir_threads> directory.   </td>
</tr>

<tr>
<td  class="h" >
<a name="3050">3050</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Thread files which are either archived or de-archived via a call to  </td>
</tr>

<tr>
<td  class="h" >
<a name="3051">3051</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<process_new_digests()> or C<reprocess_ALL_digests()> will be logged in  </td>
</tr>

<tr>
<td  class="h" >
<a name="3052">3052</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> appropriately named files. </td>
</tr>

<tr>
<td  class="h" >
<a name="3053">3053</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3054">3054</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Hence, the keys you will need to define when archiving thread files are: </td>
</tr>

<tr>
<td  class="h" >
<a name="3055">3055</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3056">3056</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =over 4 </td>
</tr>

<tr>
<td  class="h" >
<a name="3057">3057</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3058">3058</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 1 C<archive_kill_days> </td>
</tr>

<tr>
<td  class="h" >
<a name="3059">3059</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3060">3060</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This key must be assigned the number of days after which a thread file sitting  </td>
</tr>

<tr>
<td  class="h" >
<a name="3061">3061</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> in the C<dir_threads> directory is moved to an archive directory.  If not  </td>
</tr>

<tr>
<td  class="h" >
<a name="3062">3062</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> specified, will default to 14 days. </td>
</tr>

<tr>
<td  class="h" >
<a name="3063">3063</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3064">3064</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 2 C<dir_archive_top> </td>
</tr>

<tr>
<td  class="h" >
<a name="3065">3065</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3066">3066</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This key must be assigned the name of the I<top> archive directory, I<i.e.,>  </td>
</tr>

<tr>
<td  class="h" >
<a name="3067">3067</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the directory at the top of a tree of archive directories. </td>
</tr>

<tr>
<td  class="h" >
<a name="3068">3068</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3069">3069</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> When you track a particular mailing list digest for a number of years, the  </td>
</tr>

<tr>
<td  class="h" >
<a name="3070">3070</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> number of different thread files can grow to enormous proportions.  For  </td>
</tr>

<tr>
<td  class="h" >
<a name="3071">3071</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> example, the author has tracked over 10,000 distinct thread files from the  </td>
</tr>

<tr>
<td  class="h" >
<a name="3072">3072</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Perl-Win32-Users list over a three-and-a-half year period.  10,000 files in a  </td>
</tr>

<tr>
<td  class="h" >
<a name="3073">3073</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> single directory is completely unwieldy and slows directory read-times  </td>
</tr>

<tr>
<td  class="h" >
<a name="3074">3074</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> tremendously.  Mail::Digest::Tools therefore by default provides a tree of  </td>
</tr>

<tr>
<td  class="h" >
<a name="3075">3075</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> archive directories:  a top directory which contains no thread files but  </td>
</tr>

<tr>
<td  class="h" >
<a name="3076">3076</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> instead holds 27 subdirectories , one for each letter of the English alphabet  </td>
</tr>

<tr>
<td  class="h" >
<a name="3077">3077</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> and one for thread files which start with any other character (guaranteed to  </td>
</tr>

<tr>
<td  class="h" >
<a name="3078">3078</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> work with ASCII only; not tested with other character sets). </td>
</tr>

<tr>
<td  class="h" >
<a name="3079">3079</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3080">3080</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     dir_archive_top </td>
</tr>

<tr>
<td  class="h" >
<a name="3081">3081</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         a </td>
</tr>

<tr>
<td  class="h" >
<a name="3082">3082</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         b </td>
</tr>

<tr>
<td  class="h" >
<a name="3083">3083</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         c </td>
</tr>

<tr>
<td  class="h" >
<a name="3084">3084</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="3085">3085</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         z </td>
</tr>

<tr>
<td  class="h" >
<a name="3086">3086</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         other </td>
</tr>

<tr>
<td  class="h" >
<a name="3087">3087</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3088">3088</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> The user gets to choose where to place the top archive directory but the 27  </td>
</tr>

<tr>
<td  class="h" >
<a name="3089">3089</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> subdirectories are automatically placed beneath that one.  The top archive  </td>
</tr>

<tr>
<td  class="h" >
<a name="3090">3090</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> directory is the value assigned to C<%config_out> key C<dir_archive_top>. </td>
</tr>

<tr>
<td  class="h" >
<a name="3091">3091</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3092">3092</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 3 C<archived_today> </td>
</tr>

<tr>
<td  class="h" >
<a name="3093">3093</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3094">3094</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This key should be assigned the name of a file which will log any and all  </td>
</tr>

<tr>
<td  class="h" >
<a name="3095">3095</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> files archived by a single call to C<process_new_digests()> or  </td>
</tr>

<tr>
<td  class="h" >
<a name="3096">3096</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<reprocess_ALL_digests()>.  (By 'single' call is meant that this is I<not>  </td>
</tr>

<tr>
<td  class="h" >
<a name="3097">3097</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> an ongoing log; it only shows what happened today.)  If not assigned a value,  </td>
</tr>

<tr>
<td  class="h" >
<a name="3098">3098</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> it will default to a file called F<archived_today.txt> located in the  </td>
</tr>

<tr>
<td  class="h" >
<a name="3099">3099</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> directory named by key C<dir_digest>. </td>
</tr>

<tr>
<td  class="h" >
<a name="3100">3100</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3101">3101</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 4 C<de_archived_today> </td>
</tr>

<tr>
<td  class="h" >
<a name="3102">3102</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3103">3103</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This key should be assigned the name of a file which will log any and all  </td>
</tr>

<tr>
<td  class="h" >
<a name="3104">3104</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> files de-archived by a single call to C<process_new_digests()> or  </td>
</tr>

<tr>
<td  class="h" >
<a name="3105">3105</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<reprocess_ALL_digests()>.  (By 'single' call is meant that this is I<not>  </td>
</tr>

<tr>
<td  class="h" >
<a name="3106">3106</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> an ongoing log; it only shows what happened today.)  If not assigned a value,  </td>
</tr>

<tr>
<td  class="h" >
<a name="3107">3107</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> it will default to a file called F<de_archived_today.txt> located in the  </td>
</tr>

<tr>
<td  class="h" >
<a name="3108">3108</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> directory named by key C<dir_digest>. </td>
</tr>

<tr>
<td  class="h" >
<a name="3109">3109</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3110">3110</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 5 C<archive_config> </td>
</tr>

<tr>
<td  class="h" >
<a name="3111">3111</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3112">3112</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This key is reserved for future use.  In the current version of  </td>
</tr>

<tr>
<td  class="h" >
<a name="3113">3113</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Mail::Digest::Tools it does not need to be set, but, should you be obsessive  </td>
</tr>

<tr>
<td  class="h" >
<a name="3114">3114</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> about this, set it to C<0>. </td>
</tr>

<tr>
<td  class="h" >
<a name="3115">3115</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3116">3116</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =back </td>
</tr>

<tr>
<td  class="h" >
<a name="3117">3117</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3118">3118</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Adding these keys to our sample C<%config_out> hashes, we get: </td>
</tr>

<tr>
<td  class="h" >
<a name="3119">3119</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3120">3120</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pw32u_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3121">3121</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl-Win32-Users', </td>
</tr>

<tr>
<td  class="h" >
<a name="3122">3122</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pw32u", </td>
</tr>

<tr>
<td  class="h" >
<a name="3123">3123</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pw32u/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="3124">3124</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_log                => "../pw32u/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3125">3125</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         todays_topics              => "../pw32u/todays_topics.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3126">3126</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         id_format                  => 'sprintf("%03d",$1) . \'_\' .  </td>
</tr>

<tr>
<td  class="h" >
<a name="3127">3127</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                                            sprintf("%04d",$2)', </td>
</tr>

<tr>
<td  class="h" >
<a name="3128">3128</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         output_id_format           => 'sprintf("%04d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="3129">3129</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         thread_msg_delimiter       => "--__--__--\n\n", </td>
</tr>

<tr>
<td  class="h" >
<a name="3130">3130</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         archive_kill_trigger       => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3131">3131</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_read_flag          => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3132">3132</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_read               => "../pw32u/digests_read.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3133">3133</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         archive_kill_days          => 14, </td>
</tr>

<tr>
<td  class="h" >
<a name="3134">3134</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_archive_top            => "../pw32u/Threads/archive", </td>
</tr>

<tr>
<td  class="h" >
<a name="3135">3135</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         archived_today             => "../pw32u/archived_today.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3136">3136</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         de_archived_today          => "../pw32u/de_archived_today.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3137">3137</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="3138">3138</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3139">3139</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3140">3140</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pbml_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3141">3141</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl Beginner', </td>
</tr>

<tr>
<td  class="h" >
<a name="3142">3142</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pbml", </td>
</tr>

<tr>
<td  class="h" >
<a name="3143">3143</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pbml/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="3144">3144</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_log                => "../pbml/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3145">3145</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         todays_topics              => "../pbml/todays_topics.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3146">3146</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         id_format                  => 'sprintf("%05d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="3147">3147</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         output_id_format           => 'sprintf("%04d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="3148">3148</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         thread_msg_delimiter       => "_*_*_*_*_*_\n_*_*_*_*_*_\n\n\n", </td>
</tr>

<tr>
<td  class="h" >
<a name="3149">3149</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         archive_kill_trigger       => -1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3150">3150</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_read_flag          => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3151">3151</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_read               => "../pbml/digests_read.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3152">3152</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="3153">3153</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3154">3154</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3155">3155</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Note that since in our example we chose I<not> to archive thread files from  </td>
</tr>

<tr>
<td  class="h" >
<a name="3156">3156</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the Perl Beginner list -- as evinced by the assignment of C<-1> to key  </td>
</tr>

<tr>
<td  class="h" >
<a name="3157">3157</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<archive_kill_trigger> -- we do not need to assign any values to  </td>
</tr>

<tr>
<td  class="h" >
<a name="3158">3158</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<dir_archive_top>, C<archived_today> or C<de_archived_today> in  </td>
</tr>

<tr>
<td  class="h" >
<a name="3159">3159</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<%pbml_config_out>. </td>
</tr>

<tr>
<td  class="h" >
<a name="3160">3160</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3161">3161</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item * Keys Needed When Deleting Thread Files </td>
</tr>

<tr>
<td  class="h" >
<a name="3162">3162</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3163">3163</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> The keys needed for C<%config_out> when you have chosen to delete thread  </td>
</tr>

<tr>
<td  class="h" >
<a name="3164">3164</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> files after a specified interval parallel those you would have needed if you  </td>
</tr>

<tr>
<td  class="h" >
<a name="3165">3165</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> had chosen to archive those files instead. </td>
</tr>

<tr>
<td  class="h" >
<a name="3166">3166</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3167">3167</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =over 4 </td>
</tr>

<tr>
<td  class="h" >
<a name="3168">3168</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3169">3169</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 1 C<archive_kill_days> </td>
</tr>

<tr>
<td  class="h" >
<a name="3170">3170</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3171">3171</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This key must be assigned the number of days after which a thread file sitting  </td>
</tr>

<tr>
<td  class="h" >
<a name="3172">3172</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> in the C<dir_threads> directory is deleted.  If not specified, will default  </td>
</tr>

<tr>
<td  class="h" >
<a name="3173">3173</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> to 14 days. </td>
</tr>

<tr>
<td  class="h" >
<a name="3174">3174</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3175">3175</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 2 C<deleted_today> </td>
</tr>

<tr>
<td  class="h" >
<a name="3176">3176</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3177">3177</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This key should be assigned the name of a file which will log any and all  </td>
</tr>

<tr>
<td  class="h" >
<a name="3178">3178</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> files deleted by a single call to C<process_new_digests()> or  </td>
</tr>

<tr>
<td  class="h" >
<a name="3179">3179</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<reprocess_ALL_digests()>.  (By 'single' call is meant that this is I<not>  </td>
</tr>

<tr>
<td  class="h" >
<a name="3180">3180</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> an ongoing log; it only shows what happened today.)  If not assigned a value,  </td>
</tr>

<tr>
<td  class="h" >
<a name="3181">3181</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> it will default to a file called F<deleted_today.txt> located in the  </td>
</tr>

<tr>
<td  class="h" >
<a name="3182">3182</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> directory named by key C<dir_digest>. </td>
</tr>

<tr>
<td  class="h" >
<a name="3183">3183</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3184">3184</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =back </td>
</tr>

<tr>
<td  class="h" >
<a name="3185">3185</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3186">3186</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Adding these keys to our sample C<%config_out> hashes, we get: </td>
</tr>

<tr>
<td  class="h" >
<a name="3187">3187</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3188">3188</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pw32u_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3189">3189</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl-Win32-Users', </td>
</tr>

<tr>
<td  class="h" >
<a name="3190">3190</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pw32u", </td>
</tr>

<tr>
<td  class="h" >
<a name="3191">3191</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pw32u/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="3192">3192</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_log                => "../pw32u/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3193">3193</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         todays_topics              => "../pw32u/todays_topics.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3194">3194</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         id_format                  => 'sprintf("%03d",$1) . \'_\' .  </td>
</tr>

<tr>
<td  class="h" >
<a name="3195">3195</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                                            sprintf("%04d",$2)', </td>
</tr>

<tr>
<td  class="h" >
<a name="3196">3196</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         output_id_format           => 'sprintf("%04d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="3197">3197</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         thread_msg_delimiter       => "--__--__--\n\n", </td>
</tr>

<tr>
<td  class="h" >
<a name="3198">3198</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         archive_kill_trigger       => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3199">3199</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_read_flag          => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3200">3200</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_read               => "../pw32u/digests_read.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3201">3201</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         archive_kill_days          => 14, </td>
</tr>

<tr>
<td  class="h" >
<a name="3202">3202</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_archive_top            => "../pw32u/Threads/archive", </td>
</tr>

<tr>
<td  class="h" >
<a name="3203">3203</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         archived_today             => "../pw32u/archived_today.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3204">3204</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         de_archived_today          => "../pw32u/de_archived_today.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3205">3205</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="3206">3206</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3207">3207</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3208">3208</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pbml_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3209">3209</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl Beginner', </td>
</tr>

<tr>
<td  class="h" >
<a name="3210">3210</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pbml", </td>
</tr>

<tr>
<td  class="h" >
<a name="3211">3211</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pbml/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="3212">3212</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_log                => "../pbml/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3213">3213</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         todays_topics              => "../pbml/todays_topics.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3214">3214</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         id_format                  => 'sprintf("%05d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="3215">3215</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         output_id_format           => 'sprintf("%04d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="3216">3216</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         thread_msg_delimiter       => "_*_*_*_*_*_\n_*_*_*_*_*_\n\n\n", </td>
</tr>

<tr>
<td  class="h" >
<a name="3217">3217</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         archive_kill_trigger       => -1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3218">3218</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_read_flag          => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3219">3219</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_read               => "../pbml/digests_read.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3220">3220</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         archive_kill_days          => 14, </td>
</tr>

<tr>
<td  class="h" >
<a name="3221">3221</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         deleted_today              => "../pbml/deleted_today.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3222">3222</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ... </td>
</tr>

<tr>
<td  class="h" >
<a name="3223">3223</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3224">3224</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3225">3225</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Note that since in our example we chose to archive thread files from  </td>
</tr>

<tr>
<td  class="h" >
<a name="3226">3226</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the Perl-Win32-Users list -- as evinced by the assignment of C<1> to key  </td>
</tr>

<tr>
<td  class="h" >
<a name="3227">3227</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<archive_kill_trigger> -- we do not need to assign any values to  </td>
</tr>

<tr>
<td  class="h" >
<a name="3228">3228</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<deleted_today> in C<%pw32u_config_out>. </td>
</tr>

<tr>
<td  class="h" >
<a name="3229">3229</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3230">3230</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item * Keys Needed When Stripping Multipart MIME Content from Thread Files </td>
</tr>

<tr>
<td  class="h" >
<a name="3231">3231</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3232">3232</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Recall from above that you had to study a given digest to determine whether or  </td>
</tr>

<tr>
<td  class="h" >
<a name="3233">3233</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> not it contained multipart MIME content in need of stripping out.  If a digest,  </td>
</tr>

<tr>
<td  class="h" >
<a name="3234">3234</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> such as the ActiveState Perl-Win32-Users digest, contained a lot of such bloat,  </td>
</tr>

<tr>
<td  class="h" >
<a name="3235">3235</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> you set key C<MIME_cleanup_flag> in C<%config_in> to a value of C<1>.  If, on  </td>
</tr>

<tr>
<td  class="h" >
<a name="3236">3236</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the other hand, the mailing list provider stripped out the multipart MIME  </td>
</tr>

<tr>
<td  class="h" >
<a name="3237">3237</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> content before distributing the digest, you set that key to a value of C<0>. </td>
</tr>

<tr>
<td  class="h" >
<a name="3238">3238</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3239">3239</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Mail::Digest::Tools will automatically strip out multipart MIME content once  </td>
</tr>

<tr>
<td  class="h" >
<a name="3240">3240</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> you have set C<MIME_cleanup_flag> to C<1>.  All that is left for you to decide  </td>
</tr>

<tr>
<td  class="h" >
<a name="3241">3241</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> is:  Do I want to view a log of which messages processed in a I<single> call of  </td>
</tr>

<tr>
<td  class="h" >
<a name="3242">3242</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<process_new_digests()> or C<reprocess_ALL_digests()> had multipart MIME  </td>
</tr>

<tr>
<td  class="h" >
<a name="3243">3243</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> content stripped out -- or not?  If so, you must set two keys in  </td>
</tr>

<tr>
<td  class="h" >
<a name="3244">3244</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<%config_out>: </td>
</tr>

<tr>
<td  class="h" >
<a name="3245">3245</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3246">3246</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =over 4 </td>
</tr>

<tr>
<td  class="h" >
<a name="3247">3247</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3248">3248</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 1 C<MIME_cleanup_log_flag> </td>
</tr>

<tr>
<td  class="h" >
<a name="3249">3249</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3250">3250</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This key must be set to a true value such as C<1>. </td>
</tr>

<tr>
<td  class="h" >
<a name="3251">3251</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3252">3252</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 2 C<mimelog> </td>
</tr>

<tr>
<td  class="h" >
<a name="3253">3253</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3254">3254</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This key should be assigned the name of the 'mimelog' file, but if you do not  </td>
</tr>

<tr>
<td  class="h" >
<a name="3255">3255</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> specify a value it will default to a file F<mimelog.txt> placed in the  </td>
</tr>

<tr>
<td  class="h" >
<a name="3256">3256</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> directory named by key C<dir_digest>. </td>
</tr>

<tr>
<td  class="h" >
<a name="3257">3257</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3258">3258</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =back </td>
</tr>

<tr>
<td  class="h" >
<a name="3259">3259</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3260">3260</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> The logfile so created looks like this: </td>
</tr>

<tr>
<td  class="h" >
<a name="3261">3261</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3262">3262</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     Processed                     Problem </td>
</tr>

<tr>
<td  class="h" >
<a name="3263">3263</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3264">3264</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     001_1775_0003 CASE C </td>
</tr>

<tr>
<td  class="h" >
<a name="3265">3265</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     001_1775_0015 CASE C </td>
</tr>

<tr>
<td  class="h" >
<a name="3266">3266</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     001_1775_0018 CASE C </td>
</tr>

<tr>
<td  class="h" >
<a name="3267">3267</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     001_1775_0021 CASE E </td>
</tr>

<tr>
<td  class="h" >
<a name="3268">3268</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3269">3269</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> where items in the 'Processed' column were either (a) successfully stripped of  </td>
</tr>

<tr>
<td  class="h" >
<a name="3270">3270</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> multipart MIME content by Mail::Digest::Tools as specified by the internal rule  </td>
</tr>

<tr>
<td  class="h" >
<a name="3271">3271</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> denoted by the 'CASE'; or (b) were recognized by Mail::Digest::Tools as  </td>
</tr>

<tr>
<td  class="h" >
<a name="3272">3272</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> containing multipart MIME content that could not be stripped out. </td>
</tr>

<tr>
<td  class="h" >
<a name="3273">3273</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3274">3274</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This is relatively esoteric and probably of interest mainly to the module's  </td>
</tr>

<tr>
<td  class="h" >
<a name="3275">3275</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> developer.  So if you are not interested in this feature set  </td>
</tr>

<tr>
<td  class="h" >
<a name="3276">3276</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<MIME_cleanup_log_flag> to C<0> and no mimelog will be created -- but  </td>
</tr>

<tr>
<td  class="h" >
<a name="3277">3277</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Mail::Digest::Tools will still do its best to strip out extraneous multipart  </td>
</tr>

<tr>
<td  class="h" >
<a name="3278">3278</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> MIME content. </td>
</tr>

<tr>
<td  class="h" >
<a name="3279">3279</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3280">3280</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Our sample C<%config_out> hashes are now complete.  They look like this: </td>
</tr>

<tr>
<td  class="h" >
<a name="3281">3281</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3282">3282</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pw32u_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3283">3283</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl-Win32-Users', </td>
</tr>

<tr>
<td  class="h" >
<a name="3284">3284</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pw32u", </td>
</tr>

<tr>
<td  class="h" >
<a name="3285">3285</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pw32u/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="3286">3286</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_log                => "../pw32u/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3287">3287</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         todays_topics              => "../pw32u/todays_topics.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3288">3288</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         id_format                  => 'sprintf("%03d",$1) . \'_\' .  </td>
</tr>

<tr>
<td  class="h" >
<a name="3289">3289</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                                            sprintf("%04d",$2)', </td>
</tr>

<tr>
<td  class="h" >
<a name="3290">3290</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         output_id_format           => 'sprintf("%04d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="3291">3291</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         thread_msg_delimiter       => "--__--__--\n\n", </td>
</tr>

<tr>
<td  class="h" >
<a name="3292">3292</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         archive_kill_trigger       => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3293">3293</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_read_flag          => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3294">3294</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_read               => "../pw32u/digests_read.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3295">3295</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         archive_kill_days          => 14, </td>
</tr>

<tr>
<td  class="h" >
<a name="3296">3296</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_archive_top            => "../pw32u/Threads/archive", </td>
</tr>

<tr>
<td  class="h" >
<a name="3297">3297</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         archived_today             => "../pw32u/archived_today.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3298">3298</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         de_archived_today          => "../pw32u/de_archived_today.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3299">3299</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         mimelog                    => "../pw32u/mimelog.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3300">3300</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         MIME_cleanup_log_flag      => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3301">3301</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3302">3302</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3303">3303</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %pbml_config_out = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3304">3304</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         title                      => 'Perl Beginner', </td>
</tr>

<tr>
<td  class="h" >
<a name="3305">3305</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_digest                 => "../pbml", </td>
</tr>

<tr>
<td  class="h" >
<a name="3306">3306</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         dir_threads                => "../pbml/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="3307">3307</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_log                => "../pbml/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3308">3308</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         todays_topics              => "../pbml/todays_topics.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3309">3309</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         id_format                  => 'sprintf("%05d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="3310">3310</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         output_id_format           => 'sprintf("%04d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="3311">3311</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         thread_msg_delimiter       => "_*_*_*_*_*_\n_*_*_*_*_*_\n\n\n", </td>
</tr>

<tr>
<td  class="h" >
<a name="3312">3312</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         archive_kill_trigger       => -1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3313">3313</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_read_flag          => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3314">3314</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digests_read               => "../pbml/digests_read.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3315">3315</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         archive_kill_days          => 14, </td>
</tr>

<tr>
<td  class="h" >
<a name="3316">3316</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         deleted_today              => "../pbml/deleted_today.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3317">3317</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3318">3318</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3319">3319</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Note that C<%pbml_config_out> does not have C<MIME_cleanup_log_flag> or  </td>
</tr>

<tr>
<td  class="h" >
<a name="3320">3320</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<mimelog> keys.  It doesn't need them, because in providing the Perl  </td>
</tr>

<tr>
<td  class="h" >
<a name="3321">3321</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Beginners mailing list Yahoo! Groups strips out unnecessary multipart  </td>
</tr>

<tr>
<td  class="h" >
<a name="3322">3322</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> MIME content before sending the digest to you. </td>
</tr>

<tr>
<td  class="h" >
<a name="3323">3323</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3324">3324</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =back         </td>
</tr>

<tr>
<td  class="h" >
<a name="3325">3325</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3326">3326</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head1 HELPFUL HINTS </td>
</tr>

<tr>
<td  class="h" >
<a name="3327">3327</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3328">3328</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> ... in which the module author shares what he has learned using  </td>
</tr>

<tr>
<td  class="h" >
<a name="3329">3329</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Mail::Digest::Tools and its predecessors since August 2000. </td>
</tr>

<tr>
<td  class="h" >
<a name="3330">3330</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3331">3331</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 Initial Configuration and Testing </td>
</tr>

<tr>
<td  class="h" >
<a name="3332">3332</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3333">3333</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> As mentioned above, if you are considering creating a local archive of threads  </td>
</tr>

<tr>
<td  class="h" >
<a name="3334">3334</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> originating in daily digest versions of a mailing list, you should first  </td>
</tr>

<tr>
<td  class="h" >
<a name="3335">3335</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> accumulate 6-10 instances of such digests and both: </td>
</tr>

<tr>
<td  class="h" >
<a name="3336">3336</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3337">3337</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =over 4 </td>
</tr>

<tr>
<td  class="h" >
<a name="3338">3338</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3339">3339</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 1 </td>
</tr>

<tr>
<td  class="h" >
<a name="3340">3340</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3341">3341</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> study the internal structure of the digest -- needed to develop a  </td>
</tr>

<tr>
<td  class="h" >
<a name="3342">3342</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<%config_in> for the digest; and </td>
</tr>

<tr>
<td  class="h" >
<a name="3343">3343</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3344">3344</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 2 </td>
</tr>

<tr>
<td  class="h" >
<a name="3345">3345</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3346">3346</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> carefully consider how you wish to structure the output from the module's  </td>
</tr>

<tr>
<td  class="h" >
<a name="3347">3347</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> use on your system -- needed to develop C<%config_out> for the digest </td>
</tr>

<tr>
<td  class="h" >
<a name="3348">3348</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3349">3349</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =back </td>
</tr>

<tr>
<td  class="h" >
<a name="3350">3350</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3351">3351</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Once you have developed the initial configuration, you should call  </td>
</tr>

<tr>
<td  class="h" >
<a name="3352">3352</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<reprocess_ALL_digests()> on the digests, then open the files created to see  </td>
</tr>

<tr>
<td  class="h" >
<a name="3353">3353</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> if the results are what you want.  If they are I<not> what you want, then you  </td>
</tr>

<tr>
<td  class="h" >
<a name="3354">3354</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> need to think about what you should change in C<%config_in> and/or  </td>
</tr>

<tr>
<td  class="h" >
<a name="3355">3355</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<%config_out>.  Make those changes, then call C<reprocess_ALL_digests()>  </td>
</tr>

<tr>
<td  class="h" >
<a name="3356">3356</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> again.  Repeat as needed, making sure not to delete any of the digest files  </td>
</tr>

<tr>
<td  class="h" >
<a name="3357">3357</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> you are using as sources until you are completely satisfied with your  </td>
</tr>

<tr>
<td  class="h" >
<a name="3358">3358</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> configuration. </td>
</tr>

<tr>
<td  class="h" >
<a name="3359">3359</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3360">3360</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Once, however, you I<are> satisfied with your configuration, you should call  </td>
</tr>

<tr>
<td  class="h" >
<a name="3361">3361</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<process_new_digests()> on new instances of digests and I<never> call  </td>
</tr>

<tr>
<td  class="h" >
<a name="3362">3362</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<reprocess_ALL_digests()> for that digest again (lest you not be able to  </td>
</tr>

<tr>
<td  class="h" >
<a name="3363">3363</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> regenerate threads containing messages from digests you have deleted over  </td>
</tr>

<tr>
<td  class="h" >
<a name="3364">3364</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> time). </td>
</tr>

<tr>
<td  class="h" >
<a name="3365">3365</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3366">3366</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 Where to Store the Configuration Hashes </td>
</tr>

<tr>
<td  class="h" >
<a name="3367">3367</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3368">3368</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> As mentioned above, you will probably find it convenient to write separate  </td>
</tr>

<tr>
<td  class="h" >
<a name="3369">3369</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Perl scripts to call each one of Mail::Digest::Tool's public functions.  You  </td>
</tr>

<tr>
<td  class="h" >
<a name="3370">3370</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> could code C<%config_in> and C<%config_out> in each of those scripts just  </td>
</tr>

<tr>
<td  class="h" >
<a name="3371">3371</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> before the respective function calls.  But that would violate the principle of  </td>
</tr>

<tr>
<td  class="h" >
<a name="3372">3372</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 'Repeated Code Is a Mistake' and multiply maintenance problems.  It's far  </td>
</tr>

<tr>
<td  class="h" >
<a name="3373">3373</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> better to code the two configuration hashes in a separate plain-text file and  </td>
</tr>

<tr>
<td  class="h" >
<a name="3374">3374</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 'require' that file into your script.  That way, any changes you make in the  </td>
</tr>

<tr>
<td  class="h" >
<a name="3375">3375</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> configuration will be automatically picked up by each script that calls a  </td>
</tr>

<tr>
<td  class="h" >
<a name="3376">3376</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Mail::Digest::Tools function. </td>
</tr>

<tr>
<td  class="h" >
<a name="3377">3377</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3378">3378</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Here is an example of such a file holding the configuration hashes governing  </td>
</tr>

<tr>
<td  class="h" >
<a name="3379">3379</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> use of the Perl-Win32-Users digest, along with a script making use of that file. </td>
</tr>

<tr>
<td  class="h" >
<a name="3380">3380</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3381">3381</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # file:  pw32u.digest.data </td>
</tr>

<tr>
<td  class="h" >
<a name="3382">3382</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $topdir = "E:/Digest/pw32u"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3383">3383</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %config_in =  ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3384">3384</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          grep_formula           => 'Perl-Win32-Users digest', </td>
</tr>

<tr>
<td  class="h" >
<a name="3385">3385</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          pattern_target          => '.*Vol\s(\d+),\sIssue\s(\d+)\.txt', </td>
</tr>

<tr>
<td  class="h" >
<a name="3386">3386</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          # next element's value must be double-quoted </td>
</tr>

<tr>
<td  class="h" >
<a name="3387">3387</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          source_msg_delimiter   => "--__--__--\n\n", </td>
</tr>

<tr>
<td  class="h" >
<a name="3388">3388</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          topics_intro           => 'Today\'s Topics:', </td>
</tr>

<tr>
<td  class="h" >
<a name="3389">3389</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          message_style_flag     => '^Message:\s+(\d+)$', </td>
</tr>

<tr>
<td  class="h" >
<a name="3390">3390</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          from_style_flag        => '^From:\s+(.+)$', </td>
</tr>

<tr>
<td  class="h" >
<a name="3391">3391</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          org_style_flag         => '^Organization:\s+(.+)$', </td>
</tr>

<tr>
<td  class="h" >
<a name="3392">3392</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          to_style_flag          => '^To:\s+(.+)$', </td>
</tr>

<tr>
<td  class="h" >
<a name="3393">3393</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          cc_style_flag          => '^CC:\s+(.+)$', </td>
</tr>

<tr>
<td  class="h" >
<a name="3394">3394</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          subject_style_flag     => '^Subject:\s+(.+)$', </td>
</tr>

<tr>
<td  class="h" >
<a name="3395">3395</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          date_style_flag        => '^Date:\s+(.+)$', </td>
</tr>

<tr>
<td  class="h" >
<a name="3396">3396</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          reply_to_style_flag    => '^Reply-To:\s+(.+)$', </td>
</tr>

<tr>
<td  class="h" >
<a name="3397">3397</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          MIME_cleanup_flag      => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3398">3398</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3399">3399</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3400">3400</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %config_out =  ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3401">3401</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          title                  => 'Perl-Win32-Users', </td>
</tr>

<tr>
<td  class="h" >
<a name="3402">3402</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          dir_digest             => $topdir, </td>
</tr>

<tr>
<td  class="h" >
<a name="3403">3403</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          dir_threads            => "$topdir/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="3404">3404</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          dir_archive_top        => "$topdir/Threads/archive", </td>
</tr>

<tr>
<td  class="h" >
<a name="3405">3405</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          archived_today         => "$topdir/archived_today.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3406">3406</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          de_archived_today      => "$topdir/de_archived_today.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3407">3407</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          deleted_today          => "$topdir/deleted_today.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3408">3408</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          digests_log            => "$topdir/digests_log.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3409">3409</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          digests_read           => "$topdir/digests_read.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3410">3410</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          todays_topics          => "$topdir/todays_topics.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3411">3411</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          mimelog                => "$topdir/mimelog.txt", </td>
</tr>

<tr>
<td  class="h" >
<a name="3412">3412</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          id_format              => 'sprintf("%03d",$1) . \'_\' .  </td>
</tr>

<tr>
<td  class="h" >
<a name="3413">3413</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                                         sprintf("%04d",$2)', </td>
</tr>

<tr>
<td  class="h" >
<a name="3414">3414</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          output_id_format       => 'sprintf("%04d",$1)', </td>
</tr>

<tr>
<td  class="h" >
<a name="3415">3415</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          MIME_cleanup_log_flag  => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3416">3416</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          # next element's value must be double-quoted </td>
</tr>

<tr>
<td  class="h" >
<a name="3417">3417</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          thread_msg_delimiter   => "--__--__--\n\n", </td>
</tr>

<tr>
<td  class="h" >
<a name="3418">3418</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          archive_kill_trigger   => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3419">3419</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          archive_kill_days      => 14, </td>
</tr>

<tr>
<td  class="h" >
<a name="3420">3420</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          digests_read_flag      => 1, </td>
</tr>

<tr>
<td  class="h" >
<a name="3421">3421</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">          archive_config         => 0, </td>
</tr>

<tr>
<td  class="h" >
<a name="3422">3422</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3423">3423</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3424">3424</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # script:  dig.pl </td>
</tr>

<tr>
<td  class="h" >
<a name="3425">3425</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # USAGE:  perl dig.pl </td>
</tr>

<tr>
<td  class="h" >
<a name="3426">3426</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     #!/usr/bin/perl </td>
</tr>

<tr>
<td  class="h" >
<a name="3427">3427</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     use strict; </td>
</tr>

<tr>
<td  class="h" >
<a name="3428">3428</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     use warnings; </td>
</tr>

<tr>
<td  class="h" >
<a name="3429">3429</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     use Mail::Digest::Tools qw( process_new_digests ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3430">3430</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3431">3431</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     our (%config_in, %config_out); </td>
</tr>

<tr>
<td  class="h" >
<a name="3432">3432</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     my $data_file = 'pw32u.digest.data'; </td>
</tr>

<tr>
<td  class="h" >
<a name="3433">3433</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     require $data_file; </td>
</tr>

<tr>
<td  class="h" >
<a name="3434">3434</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3435">3435</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     process_new_digests(\%config_in, \%config_out); </td>
</tr>

<tr>
<td  class="h" >
<a name="3436">3436</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3437">3437</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     print "\nFinished\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3438">3438</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3439">3439</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 Maintaining Local Archives of More than One Digest </td>
</tr>

<tr>
<td  class="h" >
<a name="3440">3440</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3441">3441</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> The module author has maintained local archives of more than a half dozen  </td>
</tr>

<tr>
<td  class="h" >
<a name="3442">3442</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> different mailing list digests over the past several years.  He has found it  </td>
</tr>

<tr>
<td  class="h" >
<a name="3443">3443</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> convenient to maintain the configuration information for I<all> the digests  </td>
</tr>

<tr>
<td  class="h" >
<a name="3444">3444</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> he is following at a given time in a I<single> configuration file.  The  </td>
</tr>

<tr>
<td  class="h" >
<a name="3445">3445</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> advantage to this approach is that if two digests share a similar internal  </td>
</tr>

<tr>
<td  class="h" >
<a name="3446">3446</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> structure (perhaps due to being generated by the same mailing list program or  </td>
</tr>

<tr>
<td  class="h" >
<a name="3447">3447</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> list provider) and if the user chooses to structure the output from the two  </td>
</tr>

<tr>
<td  class="h" >
<a name="3448">3448</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> digests in similar or identical ways, then getting the configuration hashes  </td>
</tr>

<tr>
<td  class="h" >
<a name="3449">3449</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> becomes much easier and the potential for error is reduced. </td>
</tr>

<tr>
<td  class="h" >
<a name="3450">3450</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3451">3451</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Here is a sample directory and file structure for maintaining archives of  </td>
</tr>

<tr>
<td  class="h" >
<a name="3452">3452</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> two different digests on a Win32 system: </td>
</tr>

<tr>
<td  class="h" >
<a name="3453">3453</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3454">3454</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     digest/ </td>
</tr>

<tr>
<td  class="h" >
<a name="3455">3455</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     digest.data </td>
</tr>

<tr>
<td  class="h" >
<a name="3456">3456</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     process_new.pl </td>
</tr>

<tr>
<td  class="h" >
<a name="3457">3457</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     process_ALL.pl </td>
</tr>

<tr>
<td  class="h" >
<a name="3458">3458</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     reply_digest_message.pl </td>
</tr>

<tr>
<td  class="h" >
<a name="3459">3459</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     repair_digest_order.pl </td>
</tr>

<tr>
<td  class="h" >
<a name="3460">3460</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     consolidate_threads.pl </td>
</tr>

<tr>
<td  class="h" >
<a name="3461">3461</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     deletables.pl </td>
</tr>

<tr>
<td  class="h" >
<a name="3462">3462</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     pw32u/ </td>
</tr>

<tr>
<td  class="h" >
<a name="3463">3463</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         Perl-Win32-Users Digest, Vol 1 Issue 1771.txt </td>
</tr>

<tr>
<td  class="h" >
<a name="3464">3464</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         Perl-Win32-Users Digest, Vol 1 Issue 1772.txt </td>
</tr>

<tr>
<td  class="h" >
<a name="3465">3465</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digest_log.txt </td>
</tr>

<tr>
<td  class="h" >
<a name="3466">3466</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digest_read.txt </td>
</tr>

<tr>
<td  class="h" >
<a name="3467">3467</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         mimelog.txt </td>
</tr>

<tr>
<td  class="h" >
<a name="3468">3468</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         Threads/ </td>
</tr>

<tr>
<td  class="h" >
<a name="3469">3469</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     pbml/ </td>
</tr>

<tr>
<td  class="h" >
<a name="3470">3470</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         [PBML] Digest Number 1491.txt </td>
</tr>

<tr>
<td  class="h" >
<a name="3471">3471</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         [PBML] Digest Number 1492.txt </td>
</tr>

<tr>
<td  class="h" >
<a name="3472">3472</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         digest_log.txt </td>
</tr>

<tr>
<td  class="h" >
<a name="3473">3473</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         Threads/ </td>
</tr>

<tr>
<td  class="h" >
<a name="3474">3474</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3475">3475</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> File F<digest.data> would look like this: </td>
</tr>

<tr>
<td  class="h" >
<a name="3476">3476</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3477">3477</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # digest.data </td>
</tr>

<tr>
<td  class="h" >
<a name="3478">3478</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $topdir = "E:/Digest"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3479">3479</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %digest_structure = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3480">3480</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         pbml =>    { </td>
</tr>

<tr>
<td  class="h" >
<a name="3481">3481</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">              grep_formula   => '\[PBML\]', </td>
</tr>

<tr>
<td  class="h" >
<a name="3482">3482</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">              pattern_target => '.*\s(\d+)\.txt$', </td>
</tr>

<tr>
<td  class="h" >
<a name="3483">3483</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">              ... </td>
</tr>

<tr>
<td  class="h" >
<a name="3484">3484</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">            }, </td>
</tr>

<tr>
<td  class="h" >
<a name="3485">3485</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         pw32u =>   { </td>
</tr>

<tr>
<td  class="h" >
<a name="3486">3486</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">              grep_formula   => 'Perl-Win32-Users digest', </td>
</tr>

<tr>
<td  class="h" >
<a name="3487">3487</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">              pattern_target => '.*Vol\s(\d+),\sIssue\s(\d+)\.txt', </td>
</tr>

<tr>
<td  class="h" >
<a name="3488">3488</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">              ... </td>
</tr>

<tr>
<td  class="h" >
<a name="3489">3489</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">            }, </td>
</tr>

<tr>
<td  class="h" >
<a name="3490">3490</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3491">3491</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     %digest_output_format = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3492">3492</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         pbml =>    { </td>
</tr>

<tr>
<td  class="h" >
<a name="3493">3493</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">              title          => 'Perl Beginner', </td>
</tr>

<tr>
<td  class="h" >
<a name="3494">3494</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">              dir_digest     => "$topdir/pbml", </td>
</tr>

<tr>
<td  class="h" >
<a name="3495">3495</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">              dir_threads    => "$topdir/pbml/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="3496">3496</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">              ... </td>
</tr>

<tr>
<td  class="h" >
<a name="3497">3497</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">            }, </td>
</tr>

<tr>
<td  class="h" >
<a name="3498">3498</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         pw32u =>   { </td>
</tr>

<tr>
<td  class="h" >
<a name="3499">3499</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">              title          => 'Perl-Win32-Users', </td>
</tr>

<tr>
<td  class="h" >
<a name="3500">3500</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">              dir_digest     => "$topdir/pw32u", </td>
</tr>

<tr>
<td  class="h" >
<a name="3501">3501</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">              dir_threads    => "$topdir/pw32u/Threads", </td>
</tr>

<tr>
<td  class="h" >
<a name="3502">3502</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">              ... </td>
</tr>

<tr>
<td  class="h" >
<a name="3503">3503</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">            }, </td>
</tr>

<tr>
<td  class="h" >
<a name="3504">3504</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3505">3505</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3506">3506</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> To accomodate this slightly more complex structure in the configuration file,  </td>
</tr>

<tr>
<td  class="h" >
<a name="3507">3507</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the calling script might be modified as follows: </td>
</tr>

<tr>
<td  class="h" >
<a name="3508">3508</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3509">3509</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # script:  dig.pl </td>
</tr>

<tr>
<td  class="h" >
<a name="3510">3510</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # USAGE:  perl dig.pl [short-name for digest] </td>
</tr>

<tr>
<td  class="h" >
<a name="3511">3511</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     #!/usr/bin/perl </td>
</tr>

<tr>
<td  class="h" >
<a name="3512">3512</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     use Mail::Digest::Tools qw( process_new_digests ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3513">3513</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3514">3514</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     my ($this_key, %config_in, %config_out); </td>
</tr>

<tr>
<td  class="h" >
<a name="3515">3515</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # variables imported from $data_file </td>
</tr>

<tr>
<td  class="h" >
<a name="3516">3516</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     our (%digest_structure, %digest_output_format);     </td>
</tr>

<tr>
<td  class="h" >
<a name="3517">3517</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3518">3518</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     my $data_file = 'digest.data'; </td>
</tr>

<tr>
<td  class="h" >
<a name="3519">3519</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     require $data_file; </td>
</tr>

<tr>
<td  class="h" >
<a name="3520">3520</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3521">3521</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $this_key = shift @ARGV; </td>
</tr>

<tr>
<td  class="h" >
<a name="3522">3522</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     die "\n     The command-line argument you typed:  $this_key\n     does not call an accessible digest$!"  </td>
</tr>

<tr>
<td  class="h" >
<a name="3523">3523</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         unless (defined $digest_structure{$this_key} </td>
</tr>

<tr>
<td  class="h" >
<a name="3524">3524</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             and defined $digest_output_format{$this_key}); </td>
</tr>

<tr>
<td  class="h" >
<a name="3525">3525</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3526">3526</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     my ($k,$v); </td>
</tr>

<tr>
<td  class="h" >
<a name="3527">3527</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     while ( ($k, $v) = each %{$digest_structure{$this_key}} ) { </td>
</tr>

<tr>
<td  class="h" >
<a name="3528">3528</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         $config_in{$k} = $v; </td>
</tr>

<tr>
<td  class="h" >
<a name="3529">3529</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3530">3530</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     while ( ($k, $v) = each %{$digest_output_format{$this_key}} ) { </td>
</tr>

<tr>
<td  class="h" >
<a name="3531">3531</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         $config_out{$k} = $v; </td>
</tr>

<tr>
<td  class="h" >
<a name="3532">3532</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3533">3533</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3534">3534</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     process_new_digests(\%config_in, \%config_out); </td>
</tr>

<tr>
<td  class="h" >
<a name="3535">3535</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3536">3536</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     print "\nFinished\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3537">3537</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3538">3538</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 Getting Your Mail to the Right Place on Your System </td>
</tr>

<tr>
<td  class="h" >
<a name="3539">3539</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3540">3540</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> For several years the module author used the scripts which were predecessors  </td>
</tr>

<tr>
<td  class="h" >
<a name="3541">3541</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> to Mail::Digest::Tools on a Win32 system where mail was read with Microsoft  </td>
</tr>

<tr>
<td  class="h" >
<a name="3542">3542</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Outlook Express.  He would do a "File/Save as.." on an instance of a digest,  </td>
</tr>

<tr>
<td  class="h" >
<a name="3543">3543</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> select text format (*.txt) and save it to an appropriate directory.  Later,  </td>
</tr>

<tr>
<td  class="h" >
<a name="3544">3544</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the author used the shareware e-mail client Poco, in which the same operation  </td>
</tr>

<tr>
<td  class="h" >
<a name="3545">3545</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> was accomplished by highlighting a file and keying "Ctrl+S". </td>
</tr>

<tr>
<td  class="h" >
<a name="3546">3546</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3547">3547</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> But as the number of digests the author was tracking grew, this procedure  </td>
</tr>

<tr>
<td  class="h" >
<a name="3548">3548</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> became more and more tedious.  Fortunately, about that time the author was  </td>
</tr>

<tr>
<td  class="h" >
<a name="3549">3549</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> assigned to write a review of the second edition of the Perl Cookbook, and he  </td>
</tr>

<tr>
<td  class="h" >
<a name="3550">3550</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> learned how to use the Net::POP3 module to receive his e-mail directly.  So  </td>
</tr>

<tr>
<td  class="h" >
<a name="3551">3551</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> now he uses a Perl script to get all his digests and save them as text files  </td>
</tr>

<tr>
<td  class="h" >
<a name="3552">3552</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> to appropriate directories -- and then lets a GUI e-mail client take care of  </td>
</tr>

<tr>
<td  class="h" >
<a name="3553">3553</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the rest. </td>
</tr>

<tr>
<td  class="h" >
<a name="3554">3554</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3555">3555</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Here is a script which more or less accomplishes this: </td>
</tr>

<tr>
<td  class="h" >
<a name="3556">3556</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3557">3557</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     # script:  get_digests.pl </td>
</tr>

<tr>
<td  class="h" >
<a name="3558">3558</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     #!/usr/bin/perl </td>
</tr>

<tr>
<td  class="h" >
<a name="3559">3559</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     use strict; </td>
</tr>

<tr>
<td  class="h" >
<a name="3560">3560</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     use warnings; </td>
</tr>

<tr>
<td  class="h" >
<a name="3561">3561</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     use Net::POP3; </td>
</tr>

<tr>
<td  class="h" >
<a name="3562">3562</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     use Term::ReadKey; </td>
</tr>

<tr>
<td  class="h" >
<a name="3563">3563</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3564">3564</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     my ($site, $username, $password); </td>
</tr>

<tr>
<td  class="h" >
<a name="3565">3565</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     my ($verref, $pop3, $messagesref, $undeleted, $msgnum, $message); </td>
</tr>

<tr>
<td  class="h" >
<a name="3566">3566</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     my ($k,$v); </td>
</tr>

<tr>
<td  class="h" >
<a name="3567">3567</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     my ($oldfh, $output); </td>
</tr>

<tr>
<td  class="h" >
<a name="3568">3568</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3569">3569</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     my %digests = ( </td>
</tr>

<tr>
<td  class="h" >
<a name="3570">3570</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         'pbml'   => "E:/Digest/pbml", </td>
</tr>

<tr>
<td  class="h" >
<a name="3571">3571</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         'pw32u'  => "E:/Digest/pw32u", </td>
</tr>

<tr>
<td  class="h" >
<a name="3572">3572</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         'london' => "E:/Digest/london", </td>
</tr>

<tr>
<td  class="h" >
<a name="3573">3573</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ); </td>
</tr>

<tr>
<td  class="h" >
<a name="3574">3574</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3575">3575</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $site = 'pop3.someISP.com'; </td>
</tr>

<tr>
<td  class="h" >
<a name="3576">3576</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $username = 'myuserid'; </td>
</tr>

<tr>
<td  class="h" >
<a name="3577">3577</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3578">3578</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $pop3 = Net::POP3->new($site) </td>
</tr>

<tr>
<td  class="h" >
<a name="3579">3579</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             or die "Couldn't open connection to $site: $!"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3580">3580</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3581">3581</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     print "Enter password for $username at $site:  "; </td>
</tr>

<tr>
<td  class="h" >
<a name="3582">3582</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ReadMode('noecho'); </td>
</tr>

<tr>
<td  class="h" >
<a name="3583">3583</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $password = ReadLine(0); </td>
</tr>

<tr>
<td  class="h" >
<a name="3584">3584</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     chomp $password; </td>
</tr>

<tr>
<td  class="h" >
<a name="3585">3585</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     ReadMode(0); </td>
</tr>

<tr>
<td  class="h" >
<a name="3586">3586</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     print "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3587">3587</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3588">3588</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     defined ($pop3->login($username, $password)) </td>
</tr>

<tr>
<td  class="h" >
<a name="3589">3589</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         or die "Can't authenticate: $!"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3590">3590</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3591">3591</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $messagesref = $pop3->list  </td>
</tr>

<tr>
<td  class="h" >
<a name="3592">3592</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         or die "Can't get list of undeleted messages: $!"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3593">3593</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3594">3594</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     while ( ($k,$v) = each %$messagesref ) { </td>
</tr>

<tr>
<td  class="h" >
<a name="3595">3595</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         my ($messageref, $line, %headers); </td>
</tr>

<tr>
<td  class="h" >
<a name="3596">3596</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         print "$k:\t$v\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3597">3597</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         $messageref = $pop3->top($k); </td>
</tr>

<tr>
<td  class="h" >
<a name="3598">3598</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         local $_; </td>
</tr>

<tr>
<td  class="h" >
<a name="3599">3599</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         foreach (@$messageref) { </td>
</tr>

<tr>
<td  class="h" >
<a name="3600">3600</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             chomp; </td>
</tr>

<tr>
<td  class="h" >
<a name="3601">3601</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             last if (/^\s*$/); </td>
</tr>

<tr>
<td  class="h" >
<a name="3602">3602</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             next unless (/^\s*(Date:|From:|Subject:|To:)/); </td>
</tr>

<tr>
<td  class="h" >
<a name="3603">3603</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             if (/^\s*Date:\s*(.*)/) { </td>
</tr>

<tr>
<td  class="h" >
<a name="3604">3604</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 $headers{'Date'} = $1; </td>
</tr>

<tr>
<td  class="h" >
<a name="3605">3605</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="3606">3606</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             if (/^\s*From:\s*(.*)/) { </td>
</tr>

<tr>
<td  class="h" >
<a name="3607">3607</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 $headers{'From'} = $1; </td>
</tr>

<tr>
<td  class="h" >
<a name="3608">3608</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="3609">3609</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             if (/^\s*Subject:\s*(.*)/) { </td>
</tr>

<tr>
<td  class="h" >
<a name="3610">3610</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 $headers{'Subject'} = $1; </td>
</tr>

<tr>
<td  class="h" >
<a name="3611">3611</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="3612">3612</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             if (/^\s*To:\s*(.*)/) { </td>
</tr>

<tr>
<td  class="h" >
<a name="3613">3613</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 $headers{'To'} = $1; </td>
</tr>

<tr>
<td  class="h" >
<a name="3614">3614</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="3615">3615</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3616">3616</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         if ($headers{'Subject'} =~ /^\[PBML\]/) { </td>
</tr>

<tr>
<td  class="h" >
<a name="3617">3617</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             get_digest($pop3, $k, 'pbml', $headers{'Subject'}); </td>
</tr>

<tr>
<td  class="h" >
<a name="3618">3618</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3619">3619</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         if ($headers{'Subject'} =~ /^Perl-Win32-Users/) { </td>
</tr>

<tr>
<td  class="h" >
<a name="3620">3620</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             get_digest($pop3, $k, 'pw32u', $headers{'Subject'}); </td>
</tr>

<tr>
<td  class="h" >
<a name="3621">3621</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3622">3622</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         if ($headers{'Subject'} =~ /^london\.pm/) { </td>
</tr>

<tr>
<td  class="h" >
<a name="3623">3623</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             get_digest($pop3, $k, 'london', $headers{'Subject'}); </td>
</tr>

<tr>
<td  class="h" >
<a name="3624">3624</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3625">3625</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3626">3626</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3627">3627</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $pop3->quit() or die "Couldn't quit cleanly: $!"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3628">3628</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3629">3629</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     print "Finished!\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3630">3630</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3631">3631</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     sub get_digest { </td>
</tr>

<tr>
<td  class="h" >
<a name="3632">3632</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         my ($pop3, $msgnum, $digest, $subj) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="3633">3633</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         print "Retrieving $msgnum: $subj"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3634">3634</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         my $message =  </td>
</tr>

<tr>
<td  class="h" >
<a name="3635">3635</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             $pop3->get($msgnum) or die "Couldn't get message $msgnum: $!"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3636">3636</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         if ($message) { </td>
</tr>

<tr>
<td  class="h" >
<a name="3637">3637</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             print "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3638">3638</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             my $digestfile = "$digests{$digest}/$subj.txt"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3639">3639</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             _print_message($digestfile, $message); </td>
</tr>

<tr>
<td  class="h" >
<a name="3640">3640</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             print "Marking $msgnum for deletion\n";; </td>
</tr>

<tr>
<td  class="h" >
<a name="3641">3641</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             $pop3->delete($msgnum) or die "Couldn't delete message $msgnum: $!"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3642">3642</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="3643">3643</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             print "Failed:  $!\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3644">3644</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3645">3645</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3646">3646</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3647">3647</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     sub _print_message { </td>
</tr>

<tr>
<td  class="h" >
<a name="3648">3648</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         my ($digestfile, $message) = @_; </td>
</tr>

<tr>
<td  class="h" >
<a name="3649">3649</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         my @lines = @{$message}; </td>
</tr>

<tr>
<td  class="h" >
<a name="3650">3650</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         my $counter = 0; </td>
</tr>

<tr>
<td  class="h" >
<a name="3651">3651</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         open(FH, ">$digestfile")  </td>
</tr>

<tr>
<td  class="h" >
<a name="3652">3652</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             or die "Couldn't open $digestfile for writing: $!"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3653">3653</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         for (my $i = 0; $i<=$#lines; $i++) { </td>
</tr>

<tr>
<td  class="h" >
<a name="3654">3654</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             chomp($lines[$i]); </td>
</tr>

<tr>
<td  class="h" >
<a name="3655">3655</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # Identify the first blank line in the digest, </td>
</tr>

<tr>
<td  class="h" >
<a name="3656">3656</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # i.e., the end of the headers </td>
</tr>

<tr>
<td  class="h" >
<a name="3657">3657</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             if ($lines[$i] =~ /^$/) { </td>
</tr>

<tr>
<td  class="h" >
<a name="3658">3658</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 $counter = $i; </td>
</tr>

<tr>
<td  class="h" >
<a name="3659">3659</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 last; </td>
</tr>

<tr>
<td  class="h" >
<a name="3660">3660</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="3661">3661</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         }; </td>
</tr>

<tr>
<td  class="h" >
<a name="3662">3662</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # Transfer digest to appropriate directory, skipping over digest header </td>
</tr>

<tr>
<td  class="h" >
<a name="3663">3663</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         # so as to start just above Today's Topics </td>
</tr>

<tr>
<td  class="h" >
<a name="3664">3664</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         foreach my $line (@lines[$counter+1 .. $#lines]) { </td>
</tr>

<tr>
<td  class="h" >
<a name="3665">3665</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             chomp($line); </td>
</tr>

<tr>
<td  class="h" >
<a name="3666">3666</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # For some reason the $pop3->get() puts a single whitespace at the  </td>
</tr>

<tr>
<td  class="h" >
<a name="3667">3667</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # start of most (all but the first?) lines </td>
</tr>

<tr>
<td  class="h" >
<a name="3668">3668</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # That has to be cleaned up so digest.pl can correctly process  </td>
</tr>

<tr>
<td  class="h" >
<a name="3669">3669</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             # header info and identify beginning of Today's Topics </td>
</tr>

<tr>
<td  class="h" >
<a name="3670">3670</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             if ($line =~ /^\s(.*)/) { </td>
</tr>

<tr>
<td  class="h" >
<a name="3671">3671</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 print FH $1, "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3672">3672</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } else { </td>
</tr>

<tr>
<td  class="h" >
<a name="3673">3673</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">                 print FH $line, "\n"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3674">3674</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">             } </td>
</tr>

<tr>
<td  class="h" >
<a name="3675">3675</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         } </td>
</tr>

<tr>
<td  class="h" >
<a name="3676">3676</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         close FH or die "Couldn't close after writing: $!"; </td>
</tr>

<tr>
<td  class="h" >
<a name="3677">3677</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     } </td>
</tr>

<tr>
<td  class="h" >
<a name="3678">3678</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3679">3679</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> No promise is made that this script or any script contained in this  </td>
</tr>

<tr>
<td  class="h" >
<a name="3680">3680</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> documentation will work correctly on your system.  Hack it up to get it to  </td>
</tr>

<tr>
<td  class="h" >
<a name="3681">3681</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> work the way you want it to. </td>
</tr>

<tr>
<td  class="h" >
<a name="3682">3682</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3683">3683</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head1 ASSUMPTIONS AND QUALIFICATIONS </td>
</tr>

<tr>
<td  class="h" >
<a name="3684">3684</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3685">3685</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =over 4 </td>
</tr>

<tr>
<td  class="h" >
<a name="3686">3686</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3687">3687</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 1 No Change in Mailing List Digest Software </td>
</tr>

<tr>
<td  class="h" >
<a name="3688">3688</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3689">3689</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> The main assumption on which Mail::Digest::Tools depends for its success is  </td>
</tr>

<tr>
<td  class="h" >
<a name="3690">3690</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> that the provider of a particular digest continues to use the same mailing  </td>
</tr>

<tr>
<td  class="h" >
<a name="3691">3691</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> list software to produce the digest.  If the provider changes his/her software,  </td>
</tr>

<tr>
<td  class="h" >
<a name="3692">3692</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> you must modify Mail::Digest::Tools' configuration data accordingly. </td>
</tr>

<tr>
<td  class="h" >
<a name="3693">3693</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3694">3694</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 2 Digest Must Be One E-mail Without Attachments </td>
</tr>

<tr>
<td  class="h" >
<a name="3695">3695</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3696">3696</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> At its current stage of development Mail::Digest::Tools is only applicable to  </td>
</tr>

<tr>
<td  class="h" >
<a name="3697">3697</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> mailing list digests which arrive as one continuous file.  It is C<not>  </td>
</tr>

<tr>
<td  class="h" >
<a name="3698">3698</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> applicable to digests (e.g., Cygwin, [e-mail]) which are  </td>
</tr>

<tr>
<td  class="h" >
<a name="3699">3699</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> supplied in a format consisting of (a) one file with instructions and a table  </td>
</tr>

<tr>
<td  class="h" >
<a name="3700">3700</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> of contents and (b) all the individual messages provided as e-mail attachments. </td>
</tr>

<tr>
<td  class="h" >
<a name="3701">3701</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3702">3702</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 3 Perl 5.6+ Only </td>
</tr>

<tr>
<td  class="h" >
<a name="3703">3703</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3704">3704</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> The program was created with Perl 5.6.  Certain features, such as the use of  </td>
</tr>

<tr>
<td  class="h" >
<a name="3705">3705</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the C<our> modifier, were not available prior to 5.6.  Modifications to  </td>
</tr>

<tr>
<td  class="h" >
<a name="3706">3706</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> account for pre-5.6 features are left as an exercise for the user. </td>
</tr>

<tr>
<td  class="h" >
<a name="3707">3707</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3708">3708</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =item 4 Time::Local </td>
</tr>

<tr>
<td  class="h" >
<a name="3709">3709</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3710">3710</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Mail::Digest::Tools internally uses Perl core extension Time::Local.  If at  </td>
</tr>

<tr>
<td  class="h" >
<a name="3711">3711</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> some future point this module is not included as part of a Perl core  </td>
</tr>

<tr>
<td  class="h" >
<a name="3712">3712</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> distribution, you would have to install it manually from CPAN. </td>
</tr>

<tr>
<td  class="h" >
<a name="3713">3713</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3714">3714</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =back </td>
</tr>

<tr>
<td  class="h" >
<a name="3715">3715</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3716">3716</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head1 HISTORY AND FUTURE DEVELOPMENT </td>
</tr>

<tr>
<td  class="h" >
<a name="3717">3717</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3718">3718</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 PRE-CPAN HISTORY </td>
</tr>

<tr>
<td  class="h" >
<a name="3719">3719</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3720">3720</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> ActiveState maintains Perl for Windows-based platforms and also maintains a </td>
</tr>

<tr>
<td  class="h" >
<a name="3721">3721</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> variety of mailing lists for users of its Windows-compatible versions of Perl. </td>
</tr>

<tr>
<td  class="h" >
<a name="3722">3722</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Subscribers to these lists can receive messages either as individual e-mails </td>
</tr>

<tr>
<td  class="h" >
<a name="3723">3723</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> or as part of a daily digest which contains a listing of the day's topics and </td>
</tr>

<tr>
<td  class="h" >
<a name="3724">3724</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the complete text of each message.  The messages are often best followed as </td>
</tr>

<tr>
<td  class="h" >
<a name="3725">3725</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> discussion 'threads' which may extend over several days' worth of digests. </td>
</tr>

<tr>
<td  class="h" >
<a name="3726">3726</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3727">3727</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> In June of 2000, however, ActiveState had to temporarily take its mailing lists </td>
</tr>

<tr>
<td  class="h" >
<a name="3728">3728</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> off-line for technical reasons.  When these lists were restored to service, </td>
</tr>

<tr>
<td  class="h" >
<a name="3729">3729</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> their archive capacities were not immediately restored.  I had just begun my  </td>
</tr>

<tr>
<td  class="h" >
<a name="3730">3730</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> study of Perl and had come to enjoy reading the Perl-Win32-Users digest.  As  </td>
</tr>

<tr>
<td  class="h" >
<a name="3731">3731</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> I set off for the Yet Another Perl Conference in Pittsburgh, I shouted out,  </td>
</tr>

<tr>
<td  class="h" >
<a name="3732">3732</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> 'I want my Perl-Win32-Users digest!'  I wrote a Perl script called C<digest.pl>  </td>
</tr>

<tr>
<td  class="h" >
<a name="3733">3733</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> to fill that gap. </td>
</tr>

<tr>
<td  class="h" >
<a name="3734">3734</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3735">3735</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> ActiveState has since restored archiving capacity to their lists.  For reasons  </td>
</tr>

<tr>
<td  class="h" >
<a name="3736">3736</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> that would perhaps best be explored in a psychotherapeutic context, however, I  </td>
</tr>

<tr>
<td  class="h" >
<a name="3737">3737</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> had become attached to my local archive of the 'pw32u' list, so I continued to  </td>
</tr>

<tr>
<td  class="h" >
<a name="3738">3738</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> maintain this program and fine-tune its coding. </td>
</tr>

<tr>
<td  class="h" >
<a name="3739">3739</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3740">3740</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> In early 2001 it became apparent that this program could be applied to a wide </td>
</tr>

<tr>
<td  class="h" >
<a name="3741">3741</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> variety of mailing list digests -- not just those provided by ActiveState.  In </td>
</tr>

<tr>
<td  class="h" >
<a name="3742">3742</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> particular, valuable digests provided by Yahoo Groups (formerly E-groups) such </td>
</tr>

<tr>
<td  class="h" >
<a name="3743">3743</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> as NT Emacs Users, Perl 5 Porters and Perl Beginners could also be archived if </td>
</tr>

<tr>
<td  class="h" >
<a name="3744">3744</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<digest.pl> were modified appropriately.  I made those modifications and  </td>
</tr>

<tr>
<td  class="h" >
<a name="3745">3745</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> began to track several other digests.  I was able to use the archive I had  </td>
</tr>

<tr>
<td  class="h" >
<a name="3746">3746</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> developed as a window into one part of the Perl community in a Lightning Talk  </td>
</tr>

<tr>
<td  class="h" >
<a name="3747">3747</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> I gave at YAPC::North America in Montreal in June 2001, ''An Index of  </td>
</tr>

<tr>
<td  class="h" >
<a name="3748">3748</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Incivility in the Perl Community.'' </td>
</tr>

<tr>
<td  class="h" >
<a name="3749">3749</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3750">3750</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Maintaining C<digest.pl> was, to a considerable extent, the way I taught myself  </td>
</tr>

<tr>
<td  class="h" >
<a name="3751">3751</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Perl.  Along the way I incorporated my first profiler into the script -- and  </td>
</tr>

<tr>
<td  class="h" >
<a name="3752">3752</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> then discarded it.  Some of the subroutines I had written for early versions of  </td>
</tr>

<tr>
<td  class="h" >
<a name="3753">3753</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the program had applicability to other scripts -- and thus was born my first  </td>
</tr>

<tr>
<td  class="h" >
<a name="3754">3754</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> module -- also since discarded.  By July 2003 I was up to version 1.3.   </td>
</tr>

<tr>
<td  class="h" >
<a name="3755">3755</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Following a suggestion by Uri Guttman at the YAPC::EU conference held in Paris  </td>
</tr>

<tr>
<td  class="h" >
<a name="3756">3756</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> in July 2003, wherever possible the use of separate </td>
</tr>

<tr>
<td  class="h" >
<a name="3757">3757</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> print statements for each line to be printed was eliminated in favor of </td>
</tr>

<tr>
<td  class="h" >
<a name="3758">3758</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> concatenating strings to be printed into much larger strings which could be </td>
</tr>

<tr>
<td  class="h" >
<a name="3759">3759</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> printed all at once.  This revision reduced the number of times filehandles  </td>
</tr>

<tr>
<td  class="h" >
<a name="3760">3760</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> had to be opened for writing.  A given thread file was now opened only once  </td>
</tr>

<tr>
<td  class="h" >
<a name="3761">3761</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> per call of this program, rather than once for each message in each digest  </td>
</tr>

<tr>
<td  class="h" >
<a name="3762">3762</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> processed per call of the program.   </td>
</tr>

<tr>
<td  class="h" >
<a name="3763">3763</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3764">3764</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Various other improvements, such as the possibility of stripping out  </td>
</tr>

<tr>
<td  class="h" >
<a name="3765">3765</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> unnecessary multipart MIME content and the introduction of subdirectories  </td>
</tr>

<tr>
<td  class="h" >
<a name="3766">3766</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> for archiving, were made in late 2003.  At that point I  </td>
</tr>

<tr>
<td  class="h" >
<a name="3767">3767</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> decided to transform the script into a full-fledged Perl module.  At first I  </td>
</tr>

<tr>
<td  class="h" >
<a name="3768">3768</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> tried out an object-oriented structure (with which I was familiar from my first  </td>
</tr>

<tr>
<td  class="h" >
<a name="3769">3769</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> two CPAN modules, F<List::Compare> and F<Data::Presenter>).  That OO structure  </td>
</tr>

<tr>
<td  class="h" >
<a name="3770">3770</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> necessitated one constructor and one method call per typical script, but since  </td>
</tr>

<tr>
<td  class="h" >
<a name="3771">3771</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the constructor did nothing but some cursory validation of the configuration  </td>
</tr>

<tr>
<td  class="h" >
<a name="3772">3772</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> data, it was mostly superfluous.  Hence, I jettisoned the OO structure in favor  </td>
</tr>

<tr>
<td  class="h" >
<a name="3773">3773</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> of a functional approach.  The result:  Mail::Digest::Tools. </td>
</tr>

<tr>
<td  class="h" >
<a name="3774">3774</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3775">3775</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head2 CPAN </td>
</tr>

<tr>
<td  class="h" >
<a name="3776">3776</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3777">3777</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> After these revisions, I was up to version 1.96.  Why revert to a lower  </td>
</tr>

<tr>
<td  class="h" >
<a name="3778">3778</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> version number at this point?  That is why Mail::Digest::Tools makes its CPAN  </td>
</tr>

<tr>
<td  class="h" >
<a name="3779">3779</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> debut in version 2.04. </td>
</tr>

<tr>
<td  class="h" >
<a name="3780">3780</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3781">3781</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> v1.97 (2/18/2004):  Dealing with problem that Win32 and Unix/Linux may create  </td>
</tr>

<tr>
<td  class="h" >
<a name="3782">3782</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> different thread names for the same set of source messages because they have  </td>
</tr>

<tr>
<td  class="h" >
<a name="3783">3783</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> different lists of characters forbidden in file names.  This became a problem  </td>
</tr>

<tr>
<td  class="h" >
<a name="3784">3784</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> while writing tests for C<process_new_digests()> because it made predicting  </td>
</tr>

<tr>
<td  class="h" >
<a name="3785">3785</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the names of thread files created via that function more difficult to predict. </td>
</tr>

<tr>
<td  class="h" >
<a name="3786">3786</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Tests adjusted appropriately. </td>
</tr>

<tr>
<td  class="h" >
<a name="3787">3787</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3788">3788</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> v1.98 (2/19/2004):  Eliminated suspect uses of C</o> modifier on regexes.   </td>
</tr>

<tr>
<td  class="h" >
<a name="3789">3789</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This was causing problems when I called C<process_new_digests()> on two  </td>
</tr>

<tr>
<td  class="h" >
<a name="3790">3790</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> different types of digests in the same script.  Also, eliminated code  </td>
</tr>

<tr>
<td  class="h" >
<a name="3791">3791</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> referring to DOS (I<e.g.,> code eliminating characters unacceptable in  </td>
</tr>

<tr>
<td  class="h" >
<a name="3792">3792</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> DOS filenames) as I have no way to test this module on a DOS box. </td>
</tr>

<tr>
<td  class="h" >
<a name="3793">3793</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3794">3794</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> v1.99 (2/22/2004):  ActiveState introduced a new format for its  </td>
</tr>

<tr>
<td  class="h" >
<a name="3795">3795</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Perl-Win32-Users digest -- the digest which originally inspired the creation  </td>
</tr>

<tr>
<td  class="h" >
<a name="3796">3796</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> of this module's predecessor in 2000.  One aspect of this new format was a  </td>
</tr>

<tr>
<td  class="h" >
<a name="3797">3797</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> clear improvement:  HTML attachments are now stripped before messages are  </td>
</tr>

<tr>
<td  class="h" >
<a name="3798">3798</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> posted to the digest, so multipart MIME content has either been reduced  </td>
</tr>

<tr>
<td  class="h" >
<a name="3799">3799</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> considerably or eliminated altogether.  But another aspect of this new  </td>
</tr>

<tr>
<td  class="h" >
<a name="3800">3800</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> format upset code going back four years:  The delimiter immediately  </td>
</tr>

<tr>
<td  class="h" >
<a name="3801">3801</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> following Today's Topics is now different from the delimiters separating each  </td>
</tr>

<tr>
<td  class="h" >
<a name="3802">3802</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> message in the digest.  Working around this appeared to be surprisingly  </td>
</tr>

<tr>
<td  class="h" >
<a name="3803">3803</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> difficult, especially since this revision had to be done in the middle of  </td>
</tr>

<tr>
<td  class="h" >
<a name="3804">3804</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> writing a test suite for CPAN distribution.  A new key has been added to the  </td>
</tr>

<tr>
<td  class="h" >
<a name="3805">3805</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<%config_in> hash for each digest: </td>
</tr>

<tr>
<td  class="h" >
<a name="3806">3806</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3807">3807</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">     $config_in{'post_topics_delimiter'} </td>
</tr>

<tr>
<td  class="h" >
<a name="3808">3808</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3809">3809</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> v2.00 (2/23/2004):  Testing conducted after the last revision revealed a bug  </td>
</tr>

<tr>
<td  class="h" >
<a name="3810">3810</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> going back several versions in the internal subroutine stripping multipart  </td>
</tr>

<tr>
<td  class="h" >
<a name="3811">3811</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> MIME content.  The last paragraph of each message which did I<not> have MIME  </td>
</tr>

<tr>
<td  class="h" >
<a name="3812">3812</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> content was being stripped off.  The offending code was found within  </td>
</tr>

<tr>
<td  class="h" >
<a name="3813">3813</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<_analyze_message_body()>.  (The author recently learned of the CPAN </td>
</tr>

<tr>
<td  class="h" >
<a name="3814">3814</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> module F<Email::StripMime>.  This looks promising as a replacement for  </td>
</tr>

<tr>
<td  class="h" >
<a name="3815">3815</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the hand-rolled subroutine used within Mail::Digest::Tools, but a full study  </td>
</tr>

<tr>
<td  class="h" >
<a name="3816">3816</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> of its possibilities will be deferred to a later version.  Also in this  </td>
</tr>

<tr>
<td  class="h" >
<a name="3817">3817</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> version, POD was rewritten to reflect the introduction of the post-topics  </td>
</tr>

<tr>
<td  class="h" >
<a name="3818">3818</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> delimiter. </td>
</tr>

<tr>
<td  class="h" >
<a name="3819">3819</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3820">3820</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> v2.01 (2/24/2004):  Backslashes (except as part of C<\n> newline characters)  </td>
</tr>

<tr>
<td  class="h" >
<a name="3821">3821</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> are prohibited in C<%config_out> key C<thread_msg_delimiter>.  This is  </td>
</tr>

<tr>
<td  class="h" >
<a name="3822">3822</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> because in the test suite that key's value is used as a variable inside a  </td>
</tr>

<tr>
<td  class="h" >
<a name="3823">3823</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> regular expression which in turn is used as an argument to C<split()>.   </td>
</tr>

<tr>
<td  class="h" >
<a name="3824">3824</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Preliminary investigation suggests that to work around the backslash  </td>
</tr>

<tr>
<td  class="h" >
<a name="3825">3825</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> metacharacter in that situation would be very time-consuming. </td>
</tr>

<tr>
<td  class="h" >
<a name="3826">3826</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3827">3827</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> v2.02 (2/26/2004):  Revised C<reply_to_digest_message()> internal  </td>
</tr>

<tr>
<td  class="h" >
<a name="3828">3828</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> subroutine C<_strip_down_for_reply> to reflect distinction between post-topics  </td>
</tr>

<tr>
<td  class="h" >
<a name="3829">3829</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> delimiter and source message delimiter. </td>
</tr>

<tr>
<td  class="h" >
<a name="3830">3830</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3831">3831</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> v2.03 (3/04/2004):  Fixed bug in C<readdir> call in C<repair_message_order()>. </td>
</tr>

<tr>
<td  class="h" >
<a name="3832">3832</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Extensive reworking of test suite. </td>
</tr>

<tr>
<td  class="h" >
<a name="3833">3833</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3834">3834</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> v2.04 (3/05/2004):  No changes in module.  Refinement of test suite only. </td>
</tr>

<tr>
<td  class="h" >
<a name="3835">3835</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3836">3836</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> v2.05 (3/07/2004):  Fixed accidental deletion of incrementation of  </td>
</tr>

<tr>
<td  class="h" >
<a name="3837">3837</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> C<$message_count> in C<_strip_down()>. </td>
</tr>

<tr>
<td  class="h" >
<a name="3838">3838</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3839">3839</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> v2.06 (3/10/2004):   Correction of errors in test suite.  Elimination of use of List::Compare in test suite. </td>
</tr>

<tr>
<td  class="h" >
<a name="3840">3840</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3841">3841</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> v2.07 (3/11/2004):  Correction of error in t/03.t </td>
</tr>

<tr>
<td  class="h" >
<a name="3842">3842</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3843">3843</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> v2.08 (3/11/2004):  Correction in _clean_up_thread_title and in tests. </td>
</tr>

<tr>
<td  class="h" >
<a name="3844">3844</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3845">3845</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> v2.10 (3/15/2004):  Corrections to README and documentation only. </td>
</tr>

<tr>
<td  class="h" >
<a name="3846">3846</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3847">3847</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> v2.11 (10/23/2004):  Fixed several errors which resulted in "Bizarre copy of hash in leave" error when running test suite under Devel::Cover. </td>
</tr>

<tr>
<td  class="h" >
<a name="3848">3848</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3849">3849</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> v2.12 (05/14/2011):  Added 'mirbsd' to list of Unixish-OSes. </td>
</tr>

<tr>
<td  class="h" >
<a name="3850">3850</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3851">3851</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =head1 AUTHOR </td>
</tr>

<tr>
<td  class="h" >
<a name="3852">3852</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3853">3853</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> James E. Keenan (F<[e-mail]>). </td>
</tr>

<tr>
<td  class="h" >
<a name="3854">3854</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3855">3855</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Creation date: August 21, 2000. </td>
</tr>

<tr>
<td  class="h" >
<a name="3856">3856</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Last modification date: May 14, 2011. </td>
</tr>

<tr>
<td  class="h" >
<a name="3857">3857</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Copyright (c) 2000-2011 James E. Keenan.  United States.  All rights reserved. </td>
</tr>

<tr>
<td  class="h" >
<a name="3858">3858</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3859">3859</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> This software is distributed with absolutely no warranty, express or implied.   </td>
</tr>

<tr>
<td  class="h" >
<a name="3860">3860</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> Use it at your own risk.  This is free software which you may distribute under  </td>
</tr>

<tr>
<td  class="h" >
<a name="3861">3861</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> the same terms as Perl itself. </td>
</tr>

<tr>
<td  class="h" >
<a name="3862">3862</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3863">3863</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s"> =cut </td>
</tr>

<tr>
<td  class="h" >
<a name="3864">3864</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3865">3865</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3866">3866</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

<tr>
<td  class="h" >
<a name="3867">3867</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">   </td>
</tr>

</table>

</body>
</html>