#!/usr/bin/perl -w -I. -I/home/steve/imap/ # # This is the daemon-driver using our two IMAP modules. # use strict; use warnings; # # The core parser/dispatcher # use skximap::core; # # The functions a real user would modify. # use skximap::local; # # Ensure we don't suffer from buffering # $| += 1; # # Create the helper for folders/login tests/etc. # my $helper = skximap::local->new(); # # Create the server handler # my $server = skximap::core->new( helper => $helper, logfile => "/tmp/xxxx.log" ); # # Fire it up # $server->run(); # # All done # exit;