";
$last_tty=$cl->{"tty"};
}
# TIME
if ($Config{"show_time"} =~ /^y/i) {
$Result{"body"} .= "".
$hour. ":". $min. ":". $sec.
" | ";
} else {
$Result{"body"} .= " | "
}
# COMMAND
$Result{"body"} .= "\n";
$Result{"body"} .= "\n";
my $cline = $cl->{"cline"};
$cline =~ s/\n//;
$Result{"body"} .= $cl->{"prompt"}.$cl->{"cline"};
$Result{"body"} .= " \n";
my $last_command = $cl->{"last_command"};
if (!(
$Config{"suppress_editors"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"editors"}}) ||
$Config{"suppress_pagers"} =~ /^y/i && grep ($_ eq $last_command, @{$Config{"pagers"}}) ||
$Config{"suppress_terminal"}=~ /^y/i && grep ($_ eq $last_command, @{$Config{"terminal"}})
)) {
$Result{"body"} .= "";
$Result{"body"} .= $output;
$Result{"body"} .= " \n";
}
# DIFF
if ( $Config{"show_diffs"} =~ /^y/i && $cl->{"diff"}) {
$Result{"body"} .= " | ";
$Result{"body"} .= $cl->{"diff"};
$Result{"body"} .= " | ";
}
# COMMENT
if ( $Config{"show_comments"} =~ /^y/i) {
my $comment = make_comment(join(" ",@new_commands), join (" ",@new_files));
if ($comment) {
$Result{"body"} .= "".
" | ";
$Result{"body"} .= "";
$Result{"body"} .= $comment;
$Result{"body"} .= " \n";
$Result{"body"} .= " | ";
}
}
# Вывод очередной команды окончен
$Result{"body"} .= " | \n";
$Result{"body"} .= "
\n";
}
$Result{"body"} .= "