[interchange-cvs] interchange - racke modified 2 files

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Wed Jan 7 10:37:42 EST 2004


User:      racke
Date:      2004-01-07 15:37:41 GMT
Modified:  .        WHATSNEW
Modified:  lib/Vend Server.pm
Log:
Remove Vend::Server::http_log_msg which is only called for SOAP accesses.

Revision  Changes    Path
2.182     +2 -0      interchange/WHATSNEW


rev 2.182, prev_rev 2.181
Index: WHATSNEW
===================================================================
RCS file: /anon_cvs/repository/interchange/WHATSNEW,v
retrieving revision 2.181
retrieving revision 2.182
diff -u -r2.181 -r2.182
--- WHATSNEW	31 Dec 2003 10:18:26 -0000	2.181
+++ WHATSNEW	7 Jan 2004 15:37:41 -0000	2.182
@@ -62,6 +62,8 @@
   is in the route. This is really how it should have been done in the
   first place.
 
+* Remove Vend::Server::http_log_msg which is only called for SOAP accesses.
+
 Foundation
 ----------
 



2.44      +2 -29     interchange/lib/Vend/Server.pm


rev 2.44, prev_rev 2.43
Index: Server.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Server.pm,v
retrieving revision 2.43
retrieving revision 2.44
diff -u -r2.43 -r2.44
--- Server.pm	10 Dec 2003 21:35:43 -0000	2.43
+++ Server.pm	7 Jan 2004 15:37:41 -0000	2.44
@@ -1,6 +1,6 @@
 # Vend::Server - Listen for Interchange CGI requests as a background server
 #
-# $Id: Server.pm,v 2.43 2003/12/10 21:35:43 mheins Exp $
+# $Id: Server.pm,v 2.44 2004/01/07 15:37:41 racke Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -26,7 +26,7 @@
 package Vend::Server;
 
 use vars qw($VERSION);
-$VERSION = substr(q$Revision: 2.43 $, 10);
+$VERSION = substr(q$Revision: 2.44 $, 10);
 
 use POSIX qw(setsid strftime);
 use Vend::Util;
@@ -700,25 +700,6 @@
 
 }
 
-sub http_log_msg {
-	my($status, $env, $request) = @_;
-	my(@params);
-
-	# IP, Session, REMOTE_USER (if any) and time
-    push @params, ($$env{REMOTE_HOST} || $$env{REMOTE_ADDR});
-	push @params, ($$env{SERVER_PORT} || '-');
-	push @params, ($$env{REMOTE_USER} || '-');
-	push @params, logtime();
-
-	# Catalog name
-	push @params, qq{"$request"};
-
-	push @params, $status;
-
-	push @params, '-';
-	return join " ", @params;
-}
-
 sub http_soap {
 	my($fh, $env, $entity) = @_;
 
@@ -795,14 +776,6 @@
 #::logDebug("found catalog $catname");
 		$$env{SCRIPT_NAME} = $catname;
 	}
-
-	logData("$Global::VendRoot/etc/access_log",
-			http_log_msg(
-						"SOAP$status",
-						$env,
-						($$env{REQUEST_METHOD} .  " " .  $request),
-						)
-		);
 
 	populate($env);
 	map_misc_cgi();








More information about the interchange-cvs mailing list