#!/bin/perl

    my $host = "tommeh.co.cc";
    my $port = "3306";
    my $database = "tommeh_Chat";
    my $db_user = "tommeh";
    my $db_pass = "4ntihero.";

    ######################################################################





    IRC::register("xchat-amplay","0.1","","");
    IRC::print "Loaded xchat-amplay v0.1";
    IRC::print "Usage: /amp";
    IRC::add_command_handler("amp","cmdAmp");

    use DBI;
    use DBD::mysql;

    my $dsn = "dbi:mysql:$database:$host:$port";
    my $ampache_userid = undef;

    # Retrieve the user's ID number from the database once.
    my $connect = DBI->connect($dsn,$db_user,$db_pass) or die "Unable to connect: $DBI::errstr\n";
    my $message = "select message from ajaxim_messages";
    my $recipient = "select recipient from ajaxim_messages";
    my $sender = "select sender from ajaxim_messages"
    my $query_handle = $connect->prepare($query);
    $query_handle->execute();
    $query_handle->bind_columns(\$ampache_userid);
    $query_handle->finish();
    $connect->disconnect();


    sub fetchCurrentMessage
    {
       my $song_id = undef;
       my $artist_id = undef;
       my $artist_name = "";
       my $trackname = "";

       # Establish a connection with the database
       $connect = DBI->connect($dsn,$db_user,$db_pass) or die "Unable to connect: $DBI::errstr\n";

       return my @messagedata = ($sender,$recipient,$message);
    }


    sub findmessage
    {
       @messagedata = fetchCurrentMessage();
       $output = "\0034-=\0039Amp\00310ache\0034:\003\002 @messagedata[0] - @messagedata[1] \0034-=";
       IRC::command($output);
       return;
    }