- for (@l) {
- s/([\x00-\x08\x0B-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg;
- print "$_\n" if defined \*STDOUT && !$no_stdout;
- my $str = "$t^$_";
+ foreach my $l (@l) {
+ $l =~ s/([\x00-\x08\x0B-\x1f\x7f-\xff])/sprintf("%%%02X",ord($1))/eg;
+ print "$l\n" if defined \*STDOUT && !$no_stdout;
+ my $tag = $_isdbg ? "($_isdbg) " : '(*) ';
+ my $str = "$t^$tag$l";
for ( ; $i < $count; ++$i) {
my ($t, $str) = split /\^/, $dbgring[$i], 2;
next unless $t;
for ( ; $i < $count; ++$i) {
my ($t, $str) = split /\^/, $dbgring[$i], 2;
next unless $t;
}
my $buf = sprintf "%02d:%02d:%02d", (gmtime($t))[2,1,0];
$fp->writeunix($lt, "$lt^RING: $buf^$str");
}
my $buf = sprintf "%02d:%02d:%02d", (gmtime($t))[2,1,0];
$fp->writeunix($lt, "$lt^RING: $buf^$str");