From 4a14e35aa72f11b04fac87d1ebc8cf8f1e2828e1 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Tue, 18 Feb 2003 06:38:34 +0000
Subject: List From: headers

---
 Echolot/Log.pm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'Echolot/Log.pm')

diff --git a/Echolot/Log.pm b/Echolot/Log.pm
index 5078835..7e60612 100644
--- a/Echolot/Log.pm
+++ b/Echolot/Log.pm
@@ -1,7 +1,7 @@
 package Echolot::Log;
 
 # (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Log.pm,v 1.6 2003/01/14 07:38:27 weasel Exp $
+# $Id: Log.pm,v 1.7 2003/02/18 06:38:09 weasel Exp $
 #
 
 =pod
@@ -42,11 +42,10 @@ sub header_log($$) {
 		$monnames[$mon],
 		$mday,
 		$hour, $min, $sec);
-	my $logstring = $time.' '.
-		'['.uc($level).']'. ' '.
-		$msg;
-	$logstring =~ s/\n/\n	/mg;
-	$logstring .= "\n";
+	my $prefix = $time.' ['.uc($level).'] ';
+	my $logstring = $msg."\n";
+	my $first = 0;
+	$logstring =~ s/^/ $prefix . ($first++ ? '  ' : '' ) /emg;
 	return $logstring;
 };
 
-- 
cgit v1.2.3