Added custom perl extensions

1 files changed, 36 insertions, 0 deletions

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: