[LON-CAPA-cvs] cvs: loncom / lonhttpd

albertel lon-capa-cvs@mail.lon-capa.org
Wed, 06 Nov 2002 22:38:42 -0000


albertel		Wed Nov  6 17:38:42 2002 EDT

  Modified files:              
    /loncom	lonhttpd 
  Log:
  - name cleanup on lonhttpd
  
  
Index: loncom/lonhttpd
diff -u loncom/lonhttpd:1.4 loncom/lonhttpd:1.5
--- loncom/lonhttpd:1.4	Wed Oct 30 10:32:33 2002
+++ loncom/lonhttpd	Wed Nov  6 17:38:42 2002
@@ -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 @@
 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{'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 @@
 <html>
 <head>
 <title>
-HTTPi Status
+LonHTTPD (HTTPi) Status
 </title>
 </head>
 <body bgcolor = "#ffffff" text = "#000000" vlink = "#0000ff" link = "#0000ff">
-<h1>HTTPi Server Status (<code>$VERSION</code>)</h1>
+<h1>LonHTTPD (HTTPi) Server Status (<code>$VERSION</code>)</h1>
 <h3>lonhttpd on port 8080</h3>
 <b>Started at:</b> $suptime<br>
 <b>Uptime:</b> $d days, $h:$m:$s<br>
@@ -571,12 +571,12 @@
 	$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;