#/#############################################################################\
## Ongeboren's script collection                                               #
## Copyright (C) 2002 - 2005 ongeboren <ongeboren@gmail.com>                   #
## Version: 2.1                                                                #
## Requires: XChat 2.0.8+                                                      #
## Distributed under the GPL license                                           #
#\#############################################################################/

sub onge_oper_connected
{
  my $me   = Xchat::get_info ( "nick" );
  my $serv = lc( Xchat::get_info ( "server" ) );
  
  Xchat::command("MODE $me +w");
  
  foreach $oserv (@onge_oper_serv)
  {
    if (lc($oserv) eq $serv)
    {
      Xchat::command("OPER $onge_oper_nick $onge_oper_pass");
      last;
    }
  }
  return Xchat::EAT_NONE;
}

sub onge_oper_opered
{
  my $me   = Xchat::get_info ( "nick" );
  Xchat::command("MODE $me $onge_oper_mode");
  return Xchat::EAT_NONE;
}

Xchat::print( "\0033   Basic IRC-operator : loaded\003\n" );
1;