blob: 74a5afeeac92c32af2175fe90c536ad9ba46b9a4 (
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
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
|
use strict;
use Irssi;
use Irssi::TextUI; # for sbar_items_redraw
use vars qw($VERSION %IRSSI);
$VERSION = "0.1";
%IRSSI = (
authors => "shabble",
contact => 'shabble+irssi@metavore.org, shabble@#irssi/Freenode',
name => "",
description => "",
license => "Public Domain",
changed => ""
);
my $functions = {};
init();
sub load {
my $file = shift;
my $funcs;
if (-f $file) {
print "Loading from file: $file";
$funcs = do $file;
}
return unless ref $funcs eq 'HASH';
print "Got hashref from file";
foreach my $name (keys %$funcs) {
my $func = $funcs->{$name};
$functions->{$name} = $func;
}
$functions = $funcs;
print "Loaded " . scalar(keys(%$funcs)) . " functions";
}
sub init {
Irssi::command_bind('subload', \&cmd_subload);
Irssi::command_bind('sublist', \&cmd_sublist);
Irssi::command_bind('subcall', \&cmd_subcall);
}
sub cmd_subload {
my $args = shift;
print "Going to load: $args";
load($args);
}
sub cmd_sublist {
foreach my $name (keys %$functions) {
my $func = $functions->{$name};
print "Function: $name => $func";
}
}
sub cmd_subcall {
my $args = shift;
my ($cmd, $cmdargs);
if ($args =~ m/^(\w+\b)(.*)$/) {
$cmd = $1; $cmdargs = $2;
} else {
print "Couldn't parse $args";
return;
}
my $fun = $functions->{$cmd};
if (ref $fun eq 'CODE') {
print "Calling $cmd with $cmdargs";
$fun->($cmdargs);
} else {
print "$cmd is not a coderef. cannot run";
}
}
|
