XChat – funny Perl Plugin

Ein bisschen Spaß für zwischendurch. Die Idee, wenn ein User in einem IRC Channel das Wort “test” schreibt, so soll mein User automatisch darauf mit “test failed” antworten.

Bei dem Script müssen noch die Variablen $l_channel und $l_network angepasst werden.

#!/usr/bin/perl
use strict;
use warnings;
my $version = "1.0";
my $last_response = 0; #time of last response 
my $l_channel = "#DEINCHANNELNAME";
my $l_network = "DEINNETZWERKNAME";

Xchat::register('Mario Test Script', $version, 'Test Script' );
Xchat::print("Loaded Test Script v.$version");
Xchat::hook_print('Channel Message', \&mwTestScript);

sub mwTestScript {
	my $N = Xchat::get_info('network');
    my $C = Xchat::get_info('channel');
	my $nick = $_[0][0];
	my $message = $_[0][1];

	if($message =~ /test/i && $N eq $l_network && $C eq $l_channel){

		#flood protection
		if (time - $last_response < 10) { 
			Xchat::print $nick . ": testscript flood ignore";
			return Xchat::EAT_NONE;
		}

		Xchat::command("MSG " . $l_channel . " test failed");
		$last_response = time;

	}

	return Xchat::EAT_NONE;
}

Die Datei einach unter

/home/DEINUSERNAME/.xchat2/mwTestScript.pl

ablegen. Die Datei wird dann automatisch beim Start von xChat geladen. Alternativ kann das Script mit

/load /home/DEINUSERNAME/.xchat2/mwTestScript.pl

geladen und mit

/unload mwTestScript.pl

deaktiviert werden.