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 |
|