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

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Fri Jul 11 12:27:00 EDT 2003


User:      racke
Date:      2003-07-11 15:27:41 GMT
Modified:  lib/Vend Dispatch.pm
Log:
filter option added for Job output

Revision  Changes    Path
1.24      +4 -4      interchange/lib/Vend/Dispatch.pm


rev 1.24, prev_rev 1.23
Index: Dispatch.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Dispatch.pm,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -r1.23 -r1.24
--- Dispatch.pm	8 Jul 2003 11:41:00 -0000	1.23
+++ Dispatch.pm	11 Jul 2003 15:27:41 -0000	1.24
@@ -1,6 +1,6 @@
 # Vend::Dispatch - Handle Interchange page requests
 #
-# $Id: Dispatch.pm,v 1.23 2003/07/08 11:41:00 racke Exp $
+# $Id: Dispatch.pm,v 1.24 2003/07/11 15:27:41 racke Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 2002 Mike Heins <mike at perusion.net>
@@ -26,7 +26,7 @@
 package Vend::Dispatch;
 
 use vars qw($VERSION);
-$VERSION = substr(q$Revision: 1.23 $, 10);
+$VERSION = substr(q$Revision: 1.24 $, 10);
 
 use POSIX qw(strftime);
 use Vend::Util;
@@ -758,8 +758,8 @@
 		logGlobal("Empty job=%s", $job);
 	}
 	my $out = join "", @out;
-	$out =~ s/^\s+//;
-	$out =~ s/\s+$/\n/;
+	my $filter = $jobscfg->{filter} || 'strip';
+	$out = Vend::Interpolate::filter_value($filter, $out);
 	$out .= full_dump() if $jobscfg->{add_session};
 
 	logError("Finished jobs group=%s", $job || 'INTERNAL');







More information about the interchange-cvs mailing list