| 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 | }}
<pri> 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); }
my @tags; my $acttag = 0;
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");