diff options
| author | Ryan Kavanagh <ryanakca@kubuntu.org> | 2011-08-24 20:15:31 -0400 |
|---|---|---|
| committer | Ryan Kavanagh <ryanakca@kubuntu.org> | 2011-08-25 07:43:14 -0400 |
| commit | 44465839834a816f4dafa25287e0e6508b70bc2a (patch) | |
| tree | a6d3f36590c3bbbb1fbd0d27e615e8b6e9a0d5d9 /.urxvt/blc | |
| parent | Added config for mail screen (diff) | |
Added custom perl extensions
Diffstat (limited to '.urxvt/blc')
| -rw-r--r-- | .urxvt/blc | 36 |
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: |