#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use File::Spec::Functions;
use FindBin;
use Config;

use lib File::Spec->catfile( $FindBin::Bin, 'lib');
use lib File::Spec->catfile( $FindBin::Bin, 'extlib/lib/perl5/');
use lib File::Spec->catfile( $FindBin::Bin, "extlib/lib/perl5/$Config{archname}");

use Encode;
use Carp;
use Getopt::Long;

use App::Mobirc;
use App::Mobirc::Util;

$SIG{INT} = sub { die "SIGINT!\n" };

my $daemonize_fg = false;
my $conffname = catfile($FindBin::Bin, 'config.ini');
my $version = false;
GetOptions(
    'daemonize' => \$daemonize_fg,
    'config=s'  => \$conffname,
    'version'   => \$version,
) or die "Usage: $0 -c config.ini";
Getopt::Long::Configure("bundling"); # allows -c -v

if ($version) {
    print "App::Mobirc/$App::Mobirc::VERSION\n";
    exit;
}

die "file does not exist: $conffname" unless -f $conffname;

DEBUG "load config: $conffname";
my $context = App::Mobirc->new(config => $conffname);

# daemonize
if ( $daemonize_fg ) {
    daemonize($context->config->{global}->{pid_fname});
}

$context->run;

exit 0;

__END__

=head1 NAME

mobirc - modern IRC to HTTP gateway

=head1 SYNOPSIS

   mobirc --config config.yaml

=head1 CONCEPT

easy hack, easy maintenance, modern style, easy to use for perl hackers.

=head1 HISTORY

mobirc is based on 'keitairc,v 1.33 2007/10/16 23:44:55 morimoto'.

=head1 LICENSE

This program is covered by the GNU General Public License 2