blob: 464a1483449d82c28e1ddc3b9f826573be70595a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
use strict;
use warnings;
use Irssi;
use Irssi::Irc;
use Irssi::TextUI;
use Data::Dumper;
our $VERSION = '0.1';
our %IRSSI = (
authors => 'shabble',
contact => 'shabble+irssi@metavore.org',
name => '',
description => '',
license => 'Public Domain',
);
for my $line (<DATA>) {
chomp $line;
Irssi::active_win()->print($line);
}
__DATA__
this is a test
so is this.
%rcolour?%n
what
yes
|
