net-imap-server/bin/imap.pl

#!/usr/bin/perl
# $Revision: 1.1 $
# $Date: 2003/03/03 14:45:40 $

use strict;
use warnings;

use lib '../lib';
use Net::IMAP::Server;
use Net::IMAP::Server::RSSBridge;
$SIG{PIPE}      = 'IGNORE';

my $port        = shift || 1143;
my $imap        = Net::IMAP::Server->new( 'Net::IMAP::Server::RSSBridge', $port );

$imap->run();

__END__

 $Log: imap.pl,v $
 Revision 1.1  2003/03/03 14:45:40  greg
 - moved scripts into a 'bin/' directory
 - can now specify server port as an argument to imap.pl

 Revision 1.2  2003/03/03 14:10:14  greg
 - added PREREQ_PM to makefile
 - command tag is now an instance variable
 - command tag is no longer passed to cmd_* and send_* functions
 - rid code of unused Switch references
 - added CVS Revision, Date, and Log tags

1	dpavlin	1.1	#!/usr/bin/perl
2			# $Revision: 1.1 $
3			# $Date: 2003/03/03 14:45:40 $
4
5			use strict;
6			use warnings;
7
8			use lib '../lib';
9			use Net::IMAP::Server;
10			use Net::IMAP::Server::RSSBridge;
11			$SIG{PIPE} = 'IGNORE';
12
13			my $port = shift \|\| 1143;
14			my $imap = Net::IMAP::Server->new( 'Net::IMAP::Server::RSSBridge', $port );
15
16			$imap->run();
17
18			__END__
19
20			$Log: imap.pl,v $
21			Revision 1.1 2003/03/03 14:45:40 greg
22			- moved scripts into a 'bin/' directory
23			- can now specify server port as an argument to imap.pl
24
25			Revision 1.2 2003/03/03 14:10:14 greg
26			- added PREREQ_PM to makefile
27			- command tag is now an instance variable
28			- command tag is no longer passed to cmd_* and send_* functions
29			- rid code of unused Switch references
30			- added CVS Revision, Date, and Log tags
31