--- loncom/lonhttpd 2002/10/30 15:32:33 1.4
+++ loncom/lonhttpd 2002/11/06 22:38:42 1.5
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $Id: lonhttpd,v 1.4 2002/10/30 15:32:33 www Exp $
+# $Id: lonhttpd,v 1.5 2002/11/06 22:38:42 albertel Exp $
$VERSION = "1.3.2 (Demonic/Linux/LON-CAPA Derivative)";
@@ -183,13 +183,13 @@ open (PIDSAVE,">$pidfile");
print PIDSAVE "$$\n";
close(PIDSAVE);
-$0 = "dhttpi: binding port ...";
+$0 = "lonhttpd: (dhttpi) binding port ...";
$bindthis = pack($sockaddr, 2, 8080, pack('l', chr(0).chr(0).chr(0).chr(0)));
socket(S, 2, 1, 6);
setsockopt(S, 1, 2, 1);
bind(S, $bindthis) || die("$0: while binding port 8080:\n\"$!\"\n");
listen(S, 128);
-$0 = "dhttpi: connected and waiting ANY:8080";
+$0 = "lonhttpd: (dhttpi) connected and waiting ANY:8080";
$statiosuptime = time();
@@ -267,7 +267,7 @@ $SIG{'__DIE__'} = \&dead;
$SIG{'ALRM'} = $SIG{'TERM'} = $SIG{'INT'} = \&bye;
sub master {
- $0 = "dhttpi: handling request";
+ $0 = "lonhttpd: (dhttpi) handling request";
# $sock = getpeername(STDIN);
$rfcdate = scalar gmtime;
($dow, $mon, $dt, $tm, $yr) = ($rfcdate =~
@@ -426,11 +426,11 @@ EOF
-HTTPi Status
+LonHTTPD (HTTPi) Status
-HTTPi Server Status ($VERSION)
+LonHTTPD (HTTPi) Server Status ($VERSION)
lonhttpd on port 8080
Started at: $suptime
Uptime: $d days, $h:$m:$s
@@ -571,12 +571,12 @@ for (;;) {
$statiosltr = scalar localtime;
$statiosreq++;
if ($pid = fork()) {
- $0 = "dhttpi: waiting for child process";
+ $0 = "lonhttpd: (dhttpi) waiting for child process";
waitpid($pid, 0);
- $0 = "dhttpi: on ANY:8080, last request " .
+ $0 = "lonhttpd: (dhttpi) on ANY:8080, last request " .
scalar localtime;
} else {
- $0 = "dhttpi: child switching to socket";
+ $0 = "lonhttpd: (dhttpi) child switching to socket";
open(STDIN, "<&NS");
open(STDOUT, ">&NS");
&master;