XChat – funny Perl Plugin
2013-11-24 von Mario
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.
Kategorie: IT Schlagwörter: IT, Linux, Perl, Script, Test, XChat
