#!/opt/perl/bin/perl
use strict;
use Event;
use AnyEvent;
use Net::Bummskraut::Server;
use Net::Bummskraut::Scheme::IRC;
use Net::Bummskraut::Scheme::XMPP;
use Net::Bummskraut::Scheme::XMPP::GUI;
use Net::Bummskraut::Scheme::Config;
use Net::Bummskraut::GUI;
use Getopt::Long;
use POSIX qw/strftime/;

our $VERSION = '0.9';

my $PORT = 16100;
my $CFG_FILE = $ENV{HOME} . "/.bummskraut_rc";

GetOptions (
   "conf=s" => \$CFG_FILE,
   "port=i" => \$PORT,
   "version" => sub {
      warn "bummskraut_server - bummskraut backend server version $VERSION\n";
      exit;
   },
   "help" => sub {
      warn "bummskraut_server [<options>]\n"
          ."-c <configfile>  (default configfile is ~/.bummskraut_rc)\n"
          ."-p <port>        (default port is 16100)\n";
      exit;
   },
);

my $c = AnyEvent->condvar;

our $GUI = Net::Bummskraut::GUI->new (port => $PORT + 1);
my $JS   = Net::Bummskraut::Server->new (
   cfg_path => $CFG_FILE, port => $PORT
);
my $irc  = Net::Bummskraut::Scheme::IRC->new (server => $JS);
my $xmpp = Net::Bummskraut::Scheme::XMPP->new (server => $JS);
my $cfg  = Net::Bummskraut::Scheme::Config->new (server => $JS);

$JS->print_auth_key;
$GUI->start;
$c->wait;