[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