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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
use strict;
use vars qw($VERSION %IRSSI);
use Getopt::Long qw/GetOptionsFromString/;
my $help = <<EOF;
Usage: (all on one line)
/file [-raw] [-command]
[-msg [target]] [-notice [target]]
[-prefix "text"] [-postfix "text"]
filename
-raw: output contents of file as raw irc data
-command: run contents of file as irssi commands
-msg: send as messages to active window (default) or target
-notice: send as notices to active window or target
-prefix: add "text" in front of output
-postfix: add "text" after output
-echo print contents of file to active window
EOF
$VERSION = 1.1;
%IRSSI = (
authors => "David Leadbeater",
name => "file.pl",
description => "A command to output content of files in various ways",
license => "GNU GPLv2 or later",
url => "http://irssi.dgl.cx/"
);
Irssi::command_bind('file', sub {
my $data = shift;
if($data eq 'help') {
print $help;
return;
}
my($type, $target, $prefix, $postfix, $echo);
$type = 'msg';
$target = '*';
$prefix = '';
$postfix = '';
my ($raw,$command,$msg,$notice,$filename);
my ($ret, $args) = GetOptionsFromString($data,
'raw' => \$raw,
'command' => \$command,
'msg:s' => \$msg,
'notice:s' => \$notice,
'prefix=s' => \$prefix,
'postfix=s' => \$postfix,
'echo' => \$echo,
);
$filename = $$args[-1];
$type ='raw' if (defined $raw);
$type ='command' if (defined $command);
$type ='echo' if (defined $echo);
if (defined $notice) {
$type ='notice';
if ($notice ne '') {
$target = $notice;
}
}
if (defined $msg) {
$type ='msg';
if ($msg ne '') {
$target = $msg;
}
}
# or do borrowed from one of juerd's scripts (needs 5.6 though)
open(FILE, "<", $filename) or do {
print "Error opening '$filename': $!";
return;
};
while(<FILE>) {
chomp;
if($type eq 'raw') {
Irssi::active_server->send_raw($prefix . $_ . $postfix);
}elsif($type eq 'command') {
Irssi::active_win->command($prefix . $_ . $postfix);
}elsif($type eq 'echo') {
Irssi::active_win->print($prefix . $_ . $postfix);
}else{
Irssi::active_win->command("$type $target $prefix$_$postfix");
}
}
close FILE;
} );
# little known way to get -options to tab complete :)
Irssi::command_set_options('file','raw command prefix postfix msg notice echo');
# vim:set ts=3 sw=3 expandtab:
|
