#! 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: