From 44465839834a816f4dafa25287e0e6508b70bc2a Mon Sep 17 00:00:00 2001
From: Ryan Kavanagh <ryanakca@kubuntu.org>
Date: Wed, 24 Aug 2011 20:15:31 -0400
Subject: Added custom perl extensions

---
 .urxvt/blc | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 .urxvt/blc

(limited to '.urxvt/blc')

diff --git a/.urxvt/blc b/.urxvt/blc
new file mode 100644
index 0000000..6833ca2
--- /dev/null
+++ b/.urxvt/blc
@@ -0,0 +1,36 @@
+#! perl
+
+# Optional Bell Command for http://bugs.debian.org/633989
+# Copyright (C) 2011 Ryan Kavanagh <ryanakca@kubuntu.org>
+#
+# Permission to use, copy, modify, and/or distribute this software for
+# any purpose with or without fee is hereby granted, provided that the
+# above copyright notice and this permission notice appear in all
+# copies.
+#
+# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
+# WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE
+# AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
+# DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
+# PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
+# TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
+# PERFORMANCE OF THIS SOFTWARE.
+
+sub on_start {
+   my ($self) = @_;
+
+   $self->{command} = $self->x_resource("bellCommand")  ||
+                      "false";
+
+   ()
+}
+
+sub on_bell {
+   my ($self) = @_;
+
+   my @exec = $self->exec_async($self->{command});
+
+   ()
+}
+# vim:set sw=3 sts=3 et:
-- 
cgit v1.2.3