#!/usr/bin/perl

my $qnet_username = "usernamehere";
my $qnet_password = "passwordhere";
my $qnet_chan = "channelhere";
my $qnet_auth_version = "0.0.2";
my $connect = 0;
my $current_nick = Xchat::get_info( nick );

Xchat::register("QNet Auth Script", $qnet_auth_version, "", "");
Xchat::print "::: QNet Auth Script $qnet_auth_version :::\n";
Xchat::hook_server("221", "isconnect");

sub isconnect {
    $connect = 1;
    auth();
}

sub auth {
    if ($connect == 1) {
        Xchat::command("AUTH $qnet_username $qnet_password");
        cloak ();
    }
    else {
    return 0;
    }
}

sub cloak {
    if ($connect == 1) {
        Xchat::command("mode $current_nick +x");
        chan_join ();
    }
    else {
    return 0;
    }
}

sub chan_join {
    if ($connect == 1) {
        Xchat::command("join $qnet_chan");
        Xchat::print ":QNet Script Cycle Has Been Successfully Executed:\n";
    }
    else {
    return 0;
    }