#!/usr/bin/perl

use Net::Hotline;
use Net::Hotline::Client;
#########################################################
#Simple chat spammer for hotline						#
#thabob -at- gmail.com									#
## settings #############################################
$server= '127.0.0.1';
$nick="spamer";
$icon="3785";
$login="guest";
$pass="guest";
$text="       .-.
       |-|
       | |
    _.-|=|-.
   / | | | |
   |       |\
   |        /
    \      /                     
     |    |
     |    |";
$repeat=2;
$connections=5;
######################################
$x=0;
$y=0;

MAIN:
{
$hlc = new Net::Hotline::Client;

	while ($y < $connections) 
	{
		$hlc->connect("$server");
		$hlc->login_handler(\&Login_Handler);
		$hlc->login(Login    => $login,
            		Password => $pass,
           			Nickname => $nick,
            		Icon     => $icon);
		$hlc->run();
		$y++;
		$x=0;
	}
exit(1);
}

sub Login_Handler 
{
    while ($x <= $repeat) 
    {
    	$hlc->chat($text);
    	$x++;
    }
$hlc->disconnect;
}