hlog.pl
branchfoerste
changeset 35 f237843486d2
parent 34 5265573638b2
child 36 5ba75153c4c6
equal deleted inserted replaced
34:5265573638b2 35:f237843486d2
   294 
   294 
   295         my $pid = fork();
   295         my $pid = fork();
   296         die "Can't fork: $!\n" if not defined $pid;
   296         die "Can't fork: $!\n" if not defined $pid;
   297         if ($pid == 0) {
   297         if ($pid == 0) {
   298             $SIG{CHLD} = "DEFAULT";
   298             $SIG{CHLD} = "DEFAULT";
   299         print("listener $listener\n") if $opt_debug;
       
   300             $listener->close(SSL_no_shutdown => 1);
   299             $listener->close(SSL_no_shutdown => 1);
   301             handle_request($client);
   300             handle_request($client);
   302             exit 0;
   301             exit 0;
   303         }
   302         }
   304         print("client $client\n") if $opt_debug;
       
   305         $client->close(SSL_no_shutdown => 1);
   303         $client->close(SSL_no_shutdown => 1);
   306 
   304 
   307         # maintenance of logfiles
   305         # maintenance of logfiles
   308         if (-s $access > $maxlogsize) {
   306         if (-s $access > $maxlogsize) {
   309             rename $access, "$access.1";
   307             rename $access, "$access.1";