# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1233199932 -3600
# Node ID 044bd52da73571c500c7b38f17f7ba3038d1b5de
# Parent  14d3ce5c503fd0b4f8ab0c7a5ad359357ed4d471
[reformatted]

diff -r 14d3ce5c503f -r 044bd52da735 hlog
--- a/hlog	Wed Jan 28 23:19:43 2009 +0100
+++ b/hlog	Thu Jan 29 04:32:12 2009 +0100
@@ -26,11 +26,11 @@
 use POSIX qw(:sys_wait_h setsid);
 use Cwd;
 
-my $opt_addr  = "0.0.0.0";
-my $opt_port  = 8080;
-my $opt_lines = 10;
+my $opt_addr   = "0.0.0.0";
+my $opt_port   = 8080;
+my $opt_lines  = 10;
 my $opt_daemon = 1;
-my $logfile   = "hlog.log";
+my $logfile    = "hlog.log";
 my %FILE;
 
 sub handle_request($);
@@ -46,7 +46,7 @@
         "lines=i" => \$opt_lines,
         "help"    => sub { pod2usage(-verbose => 1, -exitval => 0) },
         "man"     => sub { pod2usage(-verbose => 2, -exitval => 0) },
-	"daemon!" => \$opt_daemon,
+        "daemon!" => \$opt_daemon,
     ) or pod2usage();
 
     open(LOG, ">>$logfile");
@@ -59,7 +59,7 @@
         my ($tag, $file) = split /=/, $_, 2;
         die "tag $tag already exists with file $FILE{$tag}\n"
           if exists $FILE{$tag};
-	$file = getcwd() . "/$file" if $file !~ /^\//;
+        $file = getcwd() . "/$file" if $file !~ /^\//;
         $FILE{$tag} = $file;
     }
 
@@ -75,19 +75,19 @@
     chdir("/") or die "Can't chdir to /: $!\n";
 
     if ($opt_daemon) {
-	open(STDIN, "/dev/null") or die "Can't read /dev/null: $!\n";
-	open(STDOUT, ">/dev/null") or die "Can't write to /dev/null: $!\n";
-	defined(my $pid = fork()) or die "Can't fork: $!\n";
+        open(STDIN,  "/dev/null")  or die "Can't read /dev/null: $!\n";
+        open(STDOUT, ">/dev/null") or die "Can't write to /dev/null: $!\n";
+        defined(my $pid = fork()) or die "Can't fork: $!\n";
 
-	if ($pid) {
-	    warn "listener $pid $opt_addr:$opt_port\n";
-	    exit 0;
-	}
+        if ($pid) {
+            warn "listener $pid $opt_addr:$opt_port\n";
+            exit 0;
+        }
 
-	# child
+        # child
 
-	setsid() or die "Can't start a new session: $!\n";
-	open(STDERR, ">&STDOUT") or die "Can't dup stdout: $!\n";
+        setsid() or die "Can't start a new session: $!\n";
+        open(STDERR, ">&STDOUT") or die "Can't dup stdout: $!\n";
     }
 
     $SIG{CHLD} = sub {
@@ -96,7 +96,6 @@
         }
     };
 
-
     while (1) {
         my $client = $listener->accept;
         next if not defined $client;    # may be because of signal