IRC support bot

From NURDspace

Jump to: navigation, search
een support bot voor IRC
Status Active
Niche Excessive stuff
Purpose Tool
Tool Yes
Location text below
Cost Zero
Tool category Surveillance

een support bot voor IRC

"File:{{{Picture}}}" cannot be used as a page name in this wiki.

{{{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:$vraag";
	return 0;
signal_add("message public", "public_message");
signal_add("message own_public", "own_message");
Our site is hosted by Site4U
Our connectivity is made available by BIT
To BIT's website