+Sun Mar 11 15:22:42 CET 2007 Jochen Eisinger <coffee@silcnet.org>
+
+ * Import perl script for sign_messages from silc-plugin. Affected
+ file apps/irssi/scripts/silc.pl
+
Sun Mar 11 15:19:10 CET 2007 Jochen Eisinger <coffee@silcnet.org>
* Only wait for a nick on connecting, when it differs
--- /dev/null
+#!/usr/bin/perl -w
+
+#<scriptinfo>
+use vars qw($VERSION %IRSSI);
+
+use Irssi 20020519;
+$VERSION = "0.3";
+%IRSSI = (
+ authors => "c0ffee",
+ contact => "c0ffee\@penguin-breeder.org",
+ name => "sign_messages from silc-plugin",
+ description => "introduces a setting sign_messages which automatically signs messages",
+ license => "Public Domain",
+ url => "http://www.penguin-breeder.org/?page=silc",
+ changed => "Wed Jan 29 20:55 CET 2003",
+);
+#</scriptinfo>
+
+sub sig_ownpub {
+ my ($server, $msg, $target) = @_;
+
+ if (($server->{chat_type} =~ /^silc$/i) &&
+ (Irssi::settings_get_bool("sign_messages"))) {
+
+ Irssi::signal_stop();
+ $server->command("SMSG -channel $target $msg");
+
+ }
+
+}
+
+sub sig_sendtext {
+ my ($line, $server, $witem) = @_;
+ return unless ref $witem;
+
+ if (($server->{chat_type} =~ /^silc$/i) &&
+ (Irssi::settings_get_bool("sign_messages"))) {
+
+ return if $line eq "";
+
+ if ($witem->{type} eq "CHANNEL") {
+ $target = "-channel $witem->{name}";
+ } elsif ($witem->{type} eq "QUERY") {
+ $target = "$witem->{name}";
+ } else {
+ return;
+ }
+
+ Irssi::signal_stop();
+ $server->command("SMSG $target $line");
+
+ }
+
+}
+
+Irssi::signal_add_first("send text", "sig_sendtext");
+Irssi::settings_add_bool("silc", "sign_messages", 0);