summaryrefslogtreecommitdiff
path: root/Echolot/Tools.pm
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2004-04-26 14:50:18 +0000
committerPeter Palfrader <peter@palfrader.org>2004-04-26 14:50:18 +0000
commita610dc43cdd756478f65f0c4889eb3dea3706153 (patch)
tree8ea26272930d090e9322160a42ee28e65bcfa069 /Echolot/Tools.pm
parentd1308fa6352866f1664dba895fd3298f8eb8eebf (diff)
There's a TRACE loglevel now, which is even more noisy than DEBUG. and update TODO
Diffstat (limited to 'Echolot/Tools.pm')
-rw-r--r--Echolot/Tools.pm18
1 files changed, 9 insertions, 9 deletions
diff --git a/Echolot/Tools.pm b/Echolot/Tools.pm
index ed1a022..d5846d7 100644
--- a/Echolot/Tools.pm
+++ b/Echolot/Tools.pm
@@ -279,14 +279,14 @@ sub make_gpg_fds() {
sub readwrite_gpg($$$$$) {
my ($in, $inputfd, $stdoutfd, $stderrfd, $statusfd) = @_;
- Echolot::Log::debug("Entering readwrite_gpg.");
+ Echolot::Log::trace("Entering readwrite_gpg.");
local $INPUT_RECORD_SEPARATOR = undef;
my $sout = IO::Select->new();
my $sin = IO::Select->new();
my $offset = 0;
- Echolot::Log::debug("input is $inputfd; output is $stdoutfd; err is $stderrfd; status is ".(defined $statusfd ? $statusfd : 'undef').".");
+ Echolot::Log::trace("input is $inputfd; output is $stdoutfd; err is $stderrfd; status is ".(defined $statusfd ? $statusfd : 'undef').".");
$inputfd->blocking(0);
$stdoutfd->blocking(0);
@@ -301,15 +301,15 @@ sub readwrite_gpg($$$$$) {
my ($readyr, $readyw, $written);
while ($sout->count() > 0) {
- Echolot::Log::debug("select waiting for ".($sout->count())." fds.");
+ Echolot::Log::trace("select waiting for ".($sout->count())." fds.");
($readyr, $readyw, undef) = IO::Select::select($sout, $sin, undef, 42);
- Echolot::Log::debug("ready: write: ".(scalar @$readyw)."; read: ".(scalar @$readyr));
+ Echolot::Log::trace("ready: write: ".(scalar @$readyw)."; read: ".(scalar @$readyr));
for my $wfd (@$readyw) {
- Echolot::Log::debug("writing to $wfd.");
+ Echolot::Log::trace("writing to $wfd.");
$written = $wfd->syswrite($in, length($in) - $offset, $offset);
$offset += $written;
if ($offset == length($in)) {
- Echolot::Log::debug("writing to $wfd done.");
+ Echolot::Log::trace("writing to $wfd done.");
close $wfd;
$sin->remove($wfd);
$sin = undef;
@@ -320,12 +320,12 @@ sub readwrite_gpg($$$$$) {
for my $rfd (@$readyr) {
if ($rfd->eof) {
- Echolot::Log::debug("reading from $rfd done.");
+ Echolot::Log::trace("reading from $rfd done.");
$sout->remove($rfd);
close($rfd);
next;
}
- Echolot::Log::debug("reading from $rfd.");
+ Echolot::Log::trace("reading from $rfd.");
if ($rfd == $stdoutfd) {
$stdout .= <$rfd>;
next;
@@ -340,7 +340,7 @@ sub readwrite_gpg($$$$$) {
}
}
}
- Echolot::Log::debug("readwrite_gpg done.");
+ Echolot::Log::trace("readwrite_gpg done.");
return ($stdout, $stderr, $status);
};