IRC support bot

From NURDspace

Jump to: navigation, search
een support bot voor IRC
NoPicture.png
Participants
Skills
Status Active
Niche Excessive stuff
Purpose Tool
Tool Yes
Location text below
Cost Zero
Tool category Surveillance

een support bot voor IRC

"File:{{{Picture}}}" cannot be used as a page name in this wiki.

{{{Picture}}} {{#if:Yes | [[Tool Owner::{{{ProjectParticipants}}} | }} {{#if:Yes | [[Tool Cost::Zero | }}

use strict;
use vars qw($VERSION %IRSSI);

use Irssi qw(command_bind signal_add);
use Irssi;
use Irssi::Irc;
use IO::File;

$VERSION = '0.01';
%IRSSI = (
	authors		=> 'The0',
	contact		=> 'none',
	name		=> 'IRCsupbo',
	description	=> 'IRC support bot for Irssi',
	licence         => 'screw you',
);

sub own_message {
	my ($server, $msg, $target) = @_;
	do_message($server, $msg, "", $target);
}
sub public_message {
	my ($server, $msg, $nick, $address, $target) = @_;
	do_message($server, $msg, $nick, $target);
}

sub do_message($server, $msg, $nick, $target) {
	my ($server, $msg, $nick, $target) = @_;
	if ($nick eq "wb9688") {
		if ($msg =~ m/^([^\?]+)\?(.*)$/)
		{
			my $vraag=$1;
			$vraag =~ s/ /%20/g;
			my $message="msg #nurds wb9688: https://nurdspace.nl/Special:Search?search=$vraag";
			$server->command($message);
 		}
	}
	return 0;
}
signal_add("message public", "public_message");
signal_add("message own_public", "own_message");
 
Our site is hosted by Site4U
Site4U
Our connectivity is made available by BIT
To BIT's website