IRC support bot: Difference between revisions

From NURDspace
No edit summary
No edit summary
Line 35: Line 35:
do_message($server, $msg, $nick, $target);
do_message($server, $msg, $nick, $target);
}
}
my @tags;
my $acttag = 0;


sub do_message($server, $msg, $nick, $target) {
sub do_message($server, $msg, $nick, $target) {

Revision as of 23:56, 26 February 2021

een support bot voor IRC
NoPicture.png
Participants
Skills
Status Active as fuck
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");