[interchange-cvs] interchange - racke modified lib/Vend/Server.pm

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Tue May 10 05:13:15 EDT 2005


User:      racke
Date:      2005-05-10 09:13:15 GMT
Modified:  lib/Vend Server.pm
Log:
use status 404 if no corresponding catalog has been found for SOAP access

Revision  Changes    Path
2.62      +4 -2      interchange/lib/Vend/Server.pm


rev 2.62, prev_rev 2.61
Index: Server.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Server.pm,v
retrieving revision 2.61
retrieving revision 2.62
diff -u -r2.61 -r2.62
--- Server.pm	3 May 2005 06:03:26 -0000	2.61
+++ Server.pm	10 May 2005 09:13:14 -0000	2.62
@@ -1,6 +1,6 @@
 # Vend::Server - Listen for Interchange CGI requests as a background server
 #
-# $Id: Server.pm,v 2.61 2005/05/03 06:03:26 mheins Exp $
+# $Id: Server.pm,v 2.62 2005/05/10 09:13:14 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.61 $, 10);
+$VERSION = substr(q$Revision: 2.62 $, 10);
 
 use POSIX qw(setsid strftime);
 use Vend::Util;
@@ -807,6 +807,8 @@
 	if($ref = $Global::Selector{$catname} || $Global::SelectorAlias{$catname}) {
 #::logDebug("found catalog $catname");
 		$$env{SCRIPT_NAME} = $catname;
+	} else {
+		$status = 404;
 	}
 
 	logData("$Global::VendRoot/etc/access_log",








More information about the interchange-cvs mailing list