| 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); } 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");