-sub Say($) {
- my ($msg) = @_;
-
- if (-f "$FindBin::Bin/shh") {
- $log->msg("Not speaking because we were asked to be quiet - $msg");
-
- return;
- } # if
-
- my ($status, @output) = Execute "/usr/local/bin/gt \"$msg\"";
-
- $log->err("Unable to speak (Status: $status) - "
- . join ("\n", @output), $status) if $status;
-
- return;
-} # Say
-