From: Jochen Eisinger <coffee@silcnet.org>
Date: Sun, 11 Mar 2007 14:23:14 +0000 (+0000)
Subject: Sun Mar 11 15:22:42 CET 2007  Jochen Eisinger <coffee@silcnet.org>
X-Git-Tag: silc.toolkit.1.1.beta1~67
X-Git-Url: http://git.silcnet.org/gitweb/?p=silc.git;a=commitdiff_plain;h=8fd8212bcd16f2b53fbedff2a9b9a4e8c15b9695;hp=5a0e605080eb28d10766543958d0462f371c5b01

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
---

diff --git a/CHANGES b/CHANGES
index 7f343238..183039dd 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,8 @@
+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
diff --git a/apps/irssi/scripts/Makefile.am b/apps/irssi/scripts/Makefile.am
index 5e569253..97a79916 100644
--- a/apps/irssi/scripts/Makefile.am
+++ b/apps/irssi/scripts/Makefile.am
@@ -12,6 +12,7 @@ script_DATA = \
 	mlock.pl \
 	quitmsg.pl \
 	scriptassist.pl \
+	silc.pl \
 	splitlong.pl \
 	usercount.pl
 
diff --git a/apps/irssi/scripts/silc.pl b/apps/irssi/scripts/silc.pl
new file mode 100644
index 00000000..3870cf60
--- /dev/null
+++ b/apps/irssi/scripts/silc.pl
@@ -0,0 +1,57 @@
+#!/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);