Hi all

I've started composing this script but seem to be a
little stuck at the moment ..when I run script as it
is presntly these errors occur..Name "main::alt_nick"
used only once: possible typo at maria.pl line 26.
Name "main::awaytime" used only once: possible typo at
maria.pl line 28.
Name "main::idletime" used only once: possible typo at
maria.pl line 29.
Name "main::awayreason" used only once: possible typo
at maria.pl line 27.
Undefined subroutine &IRC::register called at maria.pl
line 18.

the script I have began is as follows..it may not look
the greatest due to cut and paste.

#!/usr/bin/perl -w
############################################################
# Maria V0.1 (this script is for spam protection      
    #                                             #
# and xchat related away functions)                   
    #
# load into ~/.xchat directory                        
    #
#                                                     
    #
# Copyright 2003-2004 Gbell72  <[EMAIL PROTECTED]>  
    #
#                                                     
    #
#                                                     
    #
# Please submit bug-reports to the email provided     
    #                                               #
#                                                     
    #
#                                                     
    #
#                                                     
    #
############################################################

# Script begins here

IRC::register("Maria", "v0.1", "", "");
IRC::print ("loading Maria\n");
IRC::print ("registering handlers\n");

# Message Logging
IRC::add_message_handler("PRIVMSG",
"privmsg_handler");

# Variables
$alt_nick = "set_alt_nick";
$awayreason = "now rests in peace.";
$awaytime = "500";
$idletime = "5000";

# Away Functions
IRC::add_command_handler("gbell72", set_alt_nick);
IRC::add_command_handler("gbell72|afk", set_alt_nick);
IRC::add_command_handler("working be back later",
set_away_reason);
IRC::add_command_handler("500", set_away_time);
IRC::add_command_handler("5000", set_idle_time);

any help appreciated

gbell

______________________________________________________________________ 
Post your free ad now! http://personals.yahoo.ca

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to