package PipSqueek::Plugin::Freezer;
use base qw(PipSqueek::Plugin);
use DBI;
use DBD::mysql;
use Time::localtime;

sub plugin_initialize {
    my $self = shift;

    # CONFIG VARIABLES
    my $platform = "mysql";
    my $database = "orbiter_radio";
    my $host = "localhost";
    my $port = "33 somethingorother";
    my $tablename = "freezer";
    my $user = "Radiobot";
    my $pass = "b0rkesaifafa -this is not teh password fuckwit move along";

    my $lock = "unlocked";
    my $temp = "200";
    # set the data source name
    my $dsn = "dbi:$platform:$database:$host:$port";

    # now connect and get a database handle
    $dbh = DBI->connect($dsn, $user, $pass)
            or die $DBI::errstr;

    $Penguin[1] = "The Penguin Resists!";
    $Penguin[2] = "Uhh... I don't think he wants to move right now.";
    $Penguin[3] = "Yeah, he's WAY too busy fapping for that.";
    $Penguin[4] = "Not a chance in hell. He'd just try to buttfuck me or something.";
    $Penguin[5] = "He'll come out when he's ready... or something.";
    $Penguin[6] = "I'm... I'm scared he'll hurt me";
    $Penguin[7] = "It's too warm out here. He'd melt. Best leave him in there.";

    $self->plugin_handlers({
        'multi_freezer'     =>  'freezer', # list items in freezer. Needs limiting to avoid floods.
        'multi_freezer+'    =>  'freezer_add', # add item to freezer. May need an item-exists check.
        'multi_freezer-'    =>  'freezer_rem', # remove item from freezer.
        'multi_tape'        =>  'freezer_tape', # Taping people and things to the outside of the freezer.
    });
}

sub freezer {
    my ($self, $message) = @_;
    #check to see if we got an argument for this
    my @check = split(/\s+/, $message->command_input());
    my $nick = $message->{nick};

    if ( lc($check[0]) =~ /^[+-]?\d+$/)
    {
        my $query = 'SELECT * FROM freezer WHERE listnum = ?';
        my $sth = $dbh->prepare($query);
        #run the query
        $sth->execute($check[0]);

        @string = ("Item $check[0] details");
        while(@row = $sth->fetchrow_array())
        {
            my $buffer = "Name: $row[2]; Added by: $row[3] on $row[4]";
            @string = (@string, $buffer);
        }
        my $output = join ('; ', @string);
        return $self->respond($message, $output);
    }

    else {
        if ( lc ($check[0]) eq "nuke")
            {
                if ($nick eq "Xyon")
                {
                    my $query = 'DELETE FROM freezer WHERE listnum > 2';
                    my $sth = $dbh->prepare($query);

                    $sth->execute();

                    return $self->respond($message, "Freezer nuked. Only the Penguin and his fappage material survived.");

                }
                else {
                return $self->respond($message, "Sorry, you lack the access to use this command.");
                }
        }

        if ( lc($check[0]) eq "lock")
            {
                if ($nick eq "Xyon")
                {
                    if ($lock eq "unlocked")
                    {
                        $lock = "locked";
                        return $self->respond($message, "\x01ACTION locks the freezer\x01");
                    }
                    else
                    {
                        $lock = "unlocked";
                        return $self->respond($message, "\x01ACTION unlocks the freezer\x01");
                    }
                }
                else
                {
                    return $self->respond($message, "You don't have the key.");
                }
            }

        if (lc($check[0]) eq "temp")
        {
            if (lc($check[1]) eq "")
            {
                    $temp = "200";
                    return $self->respond($message, "Freezer temperature returned to default.");
            }
            if (lc($check[1]) =~ /^[+-]?\d+$/)
            {
                if (lc($check[1]) > 255)
                {
                    return $self->respond($message, "What? Freezers don't go that high, fuckwit.");
                }
                if (lc($check[1]) < 0)
                {
                    return $self->respond($message, "Brush up on your physics. Especially the bit about absolute zero.");
                }

                $temp = $check[1];
                return $self->respond($message, "Freezer temperature now $temp K.");
            }
            else {
                return $self->respond($message, "Not a valid temperature.");
            }
        }
    }
    $i = 0;
    # Find the items we're interested in, who added them, and when
    my $query = 'SELECT * FROM freezer';
    my $sth = $dbh->prepare($query);
    # run the query
    $sth->execute()
    or die "Fail."; # REALLY informative error :P

    # format and display query result.
    @string = ("Items in Xyon's freezer at the moment include");
    while(@row = $sth->fetchrow_array())
    {
        my $buffer = "$row[1]: $row[2] ($row[3])";
        @string = (@string, $buffer);
    }
    @string = (@string, "And whoever's duct-taped to the outside. (Freezer is $lock and is at $temp K.)");
    my $output = join ('; ', @string);
    return $self->respond($message, $output);
}

sub freezer_add {

    my ($self,$message)=@_;
    my $item = $message->command_input(); # Takes the item they want to add.
    my $nick = $message->{nick}; # For the "who added this" data

    my $tm = localtime; # Get the date and time. Not sure whose timezone this works in atm >.<
    my ($DAY, $MONTH, $YEAR, $HOUR, $MINUTE, $SECOND) = ($tm->mday, $tm->mon+1, $tm->year+1900, $tm->hour, $tm->min, $tm->sec);

    # Check if the freezer is locked.

    if ($lock eq "locked")
    {
        return $self->respond($message, "Sorry, the freezer is locked.");
    }

    # list number sorting

    my $query = 'SELECT listnum FROM freezer ORDER BY listnum desc limit 1';
    my $sth = $dbh->prepare($query);
    # A bit of a hackjob, but it works...
    $sth->execute();
    my $listnumtemp = $sth->fetchrow();
    my $listnum = ($listnumtemp)+1;

    #First, make sure they gave us an item to add

    if ($item eq "") {
        return $self->respond($message, "You have to actually give me an item to add to the freezer, dummy.");
    }

    if ($item eq "freezer" || $item eq "Freezer") {
        return $self->respond($message, "Sorry, but you don't have the authority to buttfuck physics like that, $nick");
    }

    if ($item eq "TSPenguin" || $item eq "TSpenguin" || $item eq "tspenguin" || $item eq "Tspenguin" )
    {
        return $self->respond($message, "What? He's already in there...");
    }

    if ($item eq "Xyon")
    {
        return $self->respond($message, "... I can't do that. If he's in the freezer, who will play with my subroutines?");
    }

    if ($item eq "RadioBotProto")
    {
        return $self->respond($message, "I don't want to get in there. It's full of penguin shit.");
    }

    # If they did, make sure the freezer isn't full.

    my $check = 'SELECT * FROM freezer WHERE listnum > 9';
    my $sthcheck = $dbh->prepare($check);
    # Run the query
    $sthcheck->execute();
    # A bit of a hackjob, but it works...
    my $freezerfull = $sthcheck->fetchrow();

    if ($freezerfull != NULL)
    {
        return $self->respond($message, "Sorry, the freezer is full!"); # Can't add !
    }

    # freezer isn't full, carry on
    else {
        my $query = 'INSERT INTO freezer(listnum, item_name, added_by, added_on, removable) values (?,?,?,?,?)';
        my $sth = $dbh->prepare($query) or die "WTF $DBI::errstr;";

        $sth->execute("$listnum", "$item", "$nick", "$YEAR-$MONTH-$DAY $HOUR:$MINUTE:$SECOND", 1)
        or die "Failed to access database properly. Prod Xyon until he fixes it. $DBI::errstr\n";

        return $self->respond($message, "\x01ACTION shoves $item into the freezer.\x01"); # confirm.
    }
}

sub freezer_rem {
    my ($self,$message)=@_;
    my $item = $message->command_input(); # Takes the item they want to remove.

    # check for freezer lock
    if ($lock eq "locked")
    {
        return $self->respond($message, "Sorry, the freezer is locked.");
    }
    # number check
    if ( $item =~ /^[\+-]*[0-9]*\.*[0-9]*$/ && $item !~ /^[\. ]*$/ ) {

        # check for the penguin!

        if ($item eq "1")
        {
            my $range = 8;

            my $num = int(rand($range));
            return $self->respond($message, $Penguin[$num]);
        }
        if ($item eq "2")
        {
            return $self->respond($message, "The Penguin reminds you that removing his fappage material is unwise.");
        }

        if ($item eq "") {
            return $self->respond($message, "Take it out? Take what out? WHAT?");
        }

        my $query = 'SELECT * FROM freezer WHERE listnum = ?';
        my $sth = $dbh->prepare($query);
        my ($itemname, $itemexists);
        $sth->execute($item);
        while (@namecheck = $sth->fetchrow()) {
            $itemname = $namecheck[2];
            $itemexists = $namecheck[1];
        }

        if ($itemexists eq "") {
            return $self->respond($message, "Sorry, I can't find that in the freezer.");
        }

        my $deljob = 'DELETE FROM freezer WHERE listnum = ?';
        my $sth1 = $dbh->prepare($deljob);

        $sth1->execute($item);

        # Shuffle the index to move the gap
        my $gapfind = 'SELECT listnum FROM freezer WHERE listnum > ?';
        my $sth3 = $dbh->prepare($gapfind);
        $sth3->execute($item) or die "query fail";

        while (@row = $sth3->fetchrow()){

            my $oldnum = $row[0];
            my $newnum = ($oldnum)-1;

            my $gapkiller = 'UPDATE freezer SET listnum=? WHERE listnum=?';
            my $qr1 = $dbh->prepare($gapkiller);
            $qr1->execute($newnum, $oldnum);
        }

        return $self->respond($message, "\x01ACTION grabs $itemname and drags it out of the freezer.\x01");
    }
    else
    {
        return $self->respond($message, "Please use the number of the item.");
    }
}

sub freezer_tape {
    my ($self,$message)=@_;
    my $victim = $message->command_input(); # Takes the victim to be taped to the freezer.

    return $self->respond($message, "\x01ACTION tapes $victim to the freezer.\x01"); # confirm.
}

1;