#!usr/bin/perl -w

use Net::POP3;

my ($interval_between_polling) = 120;

	# hosts/usernames/passwords for retrieving email
        # -- 'null' included for the sake of sanity;
        # humans start counting at 1, mostly, not 0 :-)

my @remote = qw(null host1 host2 host3);

	# mailbox User/Password at those hosts;
	# could be stored externally

my @user = qw(null user1 user2 user3);
my @pass = qw(null pass1 pass2 pass3);

my @local_receivers = qw(null locuser1 locuser2 locuser3);

my $mail_admin = "<mail-penguin\@wellnow.com>";
my $lost_letter_receiver = "jeff.gordon\@wellnow.com";

my $work_dir_path = "f:/mr2/rewrite";

	# root of local users' mail directories

my $mail_root = "f:/powerweb/mail"; 

	# Program-preferred delivery method is disk_write
        # and it comes first in the program's flow; if
        # option set to '1', then program will check against
        # '@local_receivers' list to see if this email can be
        # written directly into a disk file without passing
        # it to another program.
	#
	# If disk_write_ok is not '1', or email isn't for
        # '@local_receivers' or otherwise fails, then delivery
        # via smtp_host will be attempted unless the
        # smtp_host_ok option is set to '0'.
	#
	# There's no implementation of the other_lda option at
        # this time (though we've tried this ourselves and seen
        # it work). The difficulty is in planning for the
        # multiple ways that different programs might expect
	# the mail to be passed to them...perhaps we'll add
        # this later, though.

my $deliver_by_disk_write_ok = 1;

#$deliver_via_smtp_host_ok = 1;
#$deliver_via_other_lda_ok = 0;
#$other_local_delivery_agent = "";

my $smtp_host = "smtp.wellnow.com";

	# Unix style mailbox not implemented at this time;
        # need its definition

#$one_file_all_messages = 0; # Unix-style, implies 'username.msg'
#$one_file_each_message = 1;

my $file_ext_if_one_each = "rcv";  # 'rcv', 'msg', 'pmi', etc.