IRC support bot

een support bot voor IRC
Participants
Skills
Status	Active
Niche	Excessive stuff
Purpose	Tool
Tool	Yes
Location	text below
Cost	Zero
Tool category	Surveillance

een support bot voor IRC Property "Tool Image" (as page type) with input value "File:{{{Picture}}}" contains invalid characters or is incomplete and therefore can cause unexpected results during a query or annotation process. {{{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");