[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