use Display;
use Logger;
+use Speak;
use Utils;
my $VERSION = '$Revision: 1.0 $';
my ($log, $ssh);
-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
-
sub Report ($;$) {
my ($msg, $err) = @_;
- Say $msg;
+ speak $msg, $log;
if ($err) {
$log->err($msg, $err);
my $msg = 'Ssh tunnel ';
$msg .= $retryattempts ? 'reestablished' : 'established';
- Say $msg if $opts{announce};
+ speak $msg, $log if $opts{announce};
$log->msg($msg);
use warnings;
$log = Logger->new(
- path => '/var/log',
+ path => '/var/local/log',
name => "$Logger::me",
timestamped => 'yes',
append => 'yes',