#!/usr/bin/perl

my $qnet_username = "username";
my $qnet_password = "password";
my $qnet_chan = "#hackits.de";
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;
	}
}