IRC support bot
Jump to navigation
Jump to search
| een support bot voor IRC | |
|---|---|
| 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");