#!/usr/bin/perl

    use warnings;
    use strict;

    package MyBot;
    use base qw( Bot::BasicBot );

#START SAID
    sub said {
      my ($self, $message) = @_;

	#shutdown bot
      if ($message->{body} eq '!shutdown') {
      if ($message->{who} eq "[THC]AcidRain") {
	return "::: JKBot: Disabled :::";
        $self->shutdown('Bot was destroyed by admin');
      					      }
                                           }
	#user info
      if (my ($user, $data) = $message->{body} =~ /^!adduser\s*(\S+)\s*(.*)$/) {
	SaveToFile($user, $data, "userdata.txt");
   	     }
#//END OF SAID

sub SaveToFile {
my ($user, $data, $savefile) = @_;

open (MYFILE, $savefile);
print MYFILE "$user - $data";
close (MYFILE);
	       }

    sub chanjoin {
	my ($self, $message) = @_;
	if ($message->{who} eq "JKBot_p") {
         return "::: JKBot: Enabled :::";
					  }
                 }

sub connected {
	my ($self) = @_;
	# Identify to Nickserv
	my $nickpass = $self->get("jkbot420");
	if(!defined($nickpass)) {
		warn("-- Couldn't identify: Nickservpass not set. --\n");
	} else {
		$self->say({
			who => 'NickServ',
			channel => 'msg',
			body => 'IDENTIFY '.$nickpass,
		});
		warn("-- Identified to Nickserv. --\n");
	}
}



    my $bot = MyBot->new(
        server  => "irc.gamesurge.net",
        port    => "6667",
        channels=> ["#test"],
        nick    => "JKBot",
        alt_nicks=> ["JKBot_p"],
        username => "JKBot",
        name     => "JKBot",
        ignore_list => [],
              )->run();