init.pl from AlphaMail at Krugle

Show init.pl syntax highlighted


use lib qw(ALPHAMAIL_DIRECTORY/lib);

use strict;

use Apache::SiteControl;
use Apache::SiteControl::UserFactory;
use MIME::Parser;
use MIME::Decoder;
use MIME::Entity;
use AlphaMail::Middleware;
use AlphaMail::SessionUtil;
use AlphaMail::Config;
use AlphaMail::AddressBook;
use AlphaMail::Signature;
use AlphaMail::Preferences;
use AlphaMail::HTMLHelper;
use AlphaMail::MailTool;
use Encode;
use Data::Dumper;
use HTML::Entities;
use Log::Log4perl;
use Encode;
use Unicode::IMAPUtf7;
use Time::HiRes;
use Text::Aspell;
use Email::Address;
use Carp;

Log::Log4perl::init("CONFIG_DIRECTORY/log4perl.conf");

# create the global config object
$HTML::Mason::Commands::config = new AlphaMail::Config("CONFIG_DIRECTORY/alphamail_config");

# Create spell checker.
$HTML::Mason::Commands::speller = new Text::Aspell;
$HTML::Mason::Commands::speller->set_option("lang", "en_US");
$HTML::Mason::Commands::speller->set_option("sug-mode", "fast");

# Remove old sessions. This is a requirement, since the encryption key is
# changing, and any existing sessions will be unreadable.
`rm SESSION_DIRECTORY/[0-9a-fA-F]* SESSION_DIRECTORY/locks/* > /dev/null 2>&1`;

# Make a random key for encrypting sessions, and send it to the SiteControl
# system.
open DAT, "</dev/random" or die "Cannot open /dev/random for key generation";
read DAT, $Apache::SiteControl::UserFactory::encryption_key, 80; 
close DAT;

1;

See more files for this project here

AlphaMail

AlphaMail is an accelerated web mail interface with a C++ middleware layer that is more effective than an IMAP proxy which is a highly scalable (10k+ users). The interface includes modern features, Section 508 compliance, and universal browser support.

Project homepage: http://sourceforge.net/projects/alphamail
Programming language(s): C++,Java,JavaScript,Perl
License: other

  README
  alphamail.conf
  apache.conf
  duckmail.conf
  init.pl
  log4perl.conf