X-Git-Url: https://ruin.nu/git/?p=NDIRC.git;a=blobdiff_plain;f=ndawn.pl;h=e89dc3a38cb982966c07beb93212779e23bea834;hp=eecf5ee2c0d231bd8ec0d506cb1854735fd68c72;hb=a4667cce6415476312d6932f92f89fb28101ab88;hpb=4c40fd39668614135ae9370092b5d17355bad15c diff --git a/ndawn.pl b/ndawn.pl index eecf5ee..e89dc3a 100755 --- a/ndawn.pl +++ b/ndawn.pl @@ -26,18 +26,12 @@ use POE qw(Component::IRC::Qnet::State); use NDIRC::CommonStates; -use NDIRC::Eos; - -my $nickname = 'ndbot'; -my $ircname = 'ND test bot'; -my $server = 'irc.netgamers.org'; +eval "require NDIRC::$ARGV[0]"; # We create a new PoCo-IRC object my $irc = POE::Component::IRC::Qnet::State->spawn( - nick => $nickname, - ircname => $ircname, - server => $server, - servers => [$server, 'underworld.no.eu.netgamers.org', ] + nick => $ARGV[0], + ircname => 'ND bot', ) or die "Oh noooo! $!"; $irc->service_bots(QBOT => 'P@cservice.netgamers.org'); @@ -49,8 +43,8 @@ $ND::memchan = '#testarmer'; POE::Session->create( package_states => [ 'NDIRC::CommonStates' => [ qw(_default _start irc_001 sig_DIE sig_usr1 sig_usr2 - signal_handler irc_disconnected irc_invite) ], - 'NDIRC::Eos' => [ qw(irc_public irc_msg refresh irc_join) ], + signal_handler irc_disconnected irc_invite auth) ], + "NDIRC::$ARGV[0]" => [ qw(irc_public irc_msg refresh irc_join) ], ], heap => { irc => $irc }, );