# HG changeset patch
# User heiko
# Date 1136155323 0
# Node ID a918a61afe988900f75ff665decbc0aea5873e2d
# Parent  e05dded1b622f5b761f8186df1e335e52f77c7ad
etwas mehr Hilfe und recode -> utf8

diff -r e05dded1b622 -r a918a61afe98 log.pl
--- a/log.pl	Thu Aug 18 00:08:49 2005 +0000
+++ b/log.pl	Sun Jan 01 22:42:03 2006 +0000
@@ -3,9 +3,13 @@
 # $URL$
 my $USAGE = <<'#';
 $ME [options]
-    --[no]db  insert into log database [$opt_db]
-    --[no]mail send mails to @config::mailto [$opt_mail]
+    --[no]db	insert into log database [$opt_db]
+    --[no]mail	send mails to @config::mailto [$opt_mail]
     --message=s message
+                if the message looks like a file name (e.g.:
+		./text or /tmp/text, the message is read
+		from this file)
+             
 #
 
 use strict;
@@ -80,7 +84,7 @@
 	END { $Dbh->disconnect() if $Dbh; }
     }
 
-    # Temporärfile öffnen
+    # Temporärfile öffnen
     my ($fh, $file);
     END { unlink $file if $file; }
     ($fh, $file) = tempfile(DIR => "/tmp");
@@ -115,7 +119,7 @@
 	}
     }
 
-    # Jetzt wie versprochen den (eventuell geänderten Rest) aus der
+    # Jetzt wie versprochen den (eventuell geänderten Rest) aus der
     # Temp-Datei wegschneiden
     {
 	my ($date, $user, $head, $text, $mailto);
@@ -131,7 +135,7 @@
 	    /^MailTo:\s(.*)/ and $mailto = $1, next;
 	    last if $_ eq $MAGIC;
 
-	    $text .= $_ if /\S/ || $text;   # somit werden die ersten Leerzeilen übersprungen
+	    $text .= $_ if /\S/ || $text;   # somit werden die ersten Leerzeilen übersprungen
 	}
 
 	$text  =~ s/\s*$//s; # Leerzeichen am Ende weg
@@ -164,7 +168,7 @@
 	}
     }
 
-    # Und jetzt das aus der alten Datei dort anhängen
+    # Und jetzt das aus der alten Datei dort anhängen
     open(IN, $_ = $LOG) or die "Can't open $_: $!\n";
     print $fh <IN>;
     close $fh;