#!/usr/bin/perl -w

# written for Xchat 2.08+ by Warren M Myers (warren@warrenmyers.com)
# auto-op all new users upon join

Xchat::register("mopup","1g");
Xchat::hook_print("Join","mopup");

sub mopup {
    $nick = $_[0][0];
    Xchat::command("op $nick");
}