4 use vars qw($VERSION %IRSSI);
10 contact => "c0ffee\@penguin-breeder.org",
11 name => "sign_messages from silc-plugin",
12 description => "introduces a setting sign_messages which automatically signs messages",
13 license => "Public Domain",
14 url => "http://www.penguin-breeder.org/?page=silc",
15 changed => "Wed Jan 29 20:55 CET 2003",
20 my ($server, $msg, $target) = @_;
22 if (($server->{chat_type} =~ /^silc$/i) &&
23 (Irssi::settings_get_bool("sign_messages"))) {
26 $server->command("SMSG -channel $target $msg");
33 my ($line, $server, $witem) = @_;
34 return unless ref $witem;
36 if (($server->{chat_type} =~ /^silc$/i) &&
37 (Irssi::settings_get_bool("sign_messages"))) {
39 return if $line eq "";
41 if ($witem->{type} eq "CHANNEL") {
42 $target = "-channel $witem->{name}";
43 } elsif ($witem->{type} eq "QUERY") {
44 $target = "$witem->{name}";
50 $server->command("SMSG $target $line");
56 Irssi::signal_add_first("send text", "sig_sendtext");
57 Irssi::settings_add_bool("silc", "sign_messages", 0);