[ViewVC] Annotation of: cvs/cvsroot/Net-Bummskraut/bin/bummskraut_server

#!/opt/perl/bin/perl
use strict;
use AnyEvent;
use Net::Bummskraut::Server;
use Net::Bummskraut::IRC;
use Net::Bummskraut::Config;
use POSIX qw/strftime/;
$Net::IRC3::Client::Connection::DEBUG = 1;

my $c = AnyEvent->condvar;

my $JS  = Net::Bummskraut::Server->new (cfg_path => $ENV{HOME} . "/.bummskraut_rc", port => $ARGV[0] || 16100);
my $irc = Net::Bummskraut::IRC->new (server => $JS);
my $cfg = Net::Bummskraut::Config->new (server => $JS);

$c->wait;
Revision:	1.4
Committed:	Wed Mar 7 17:24:08 2007 UTC (19 years, 7 months ago) by elmex
Branch:	MAIN
Changes since 1.3:	+1 -2 lines
Log Message:	added logging support, added server password support, added display of notices again.
#	User	Rev	Content
1	elmex	1.1	#!/opt/perl/bin/perl
2			use strict;
3			use AnyEvent;
4	elmex	1.3	use Net::Bummskraut::Server;
5			use Net::Bummskraut::IRC;
6			use Net::Bummskraut::Config;
7	elmex	1.1	use POSIX qw/strftime/;
8			$Net::IRC3::Client::Connection::DEBUG = 1;
9
10			my $c = AnyEvent->condvar;
11
12	elmex	1.4	my $JS = Net::Bummskraut::Server->new (cfg_path => $ENV{HOME} . "/.bummskraut_rc", port => $ARGV[0] \|\| 16100);
13	elmex	1.3	my $irc = Net::Bummskraut::IRC->new (server => $JS);
14			my $cfg = Net::Bummskraut::Config->new (server => $JS);
15	elmex	1.1
16			$c->wait;