[interchange-cvs] interchange - racke modified 2 files

[interchange-cvs at icdevgroup.org]

User:      racke
Date:      2005-10-07 11:38:55 GMT
Modified:  .        MANIFEST
Added:     code/OrderCheck relative_filename.oc
Log:
relative_filename order check added

Revision  Changes    Path
2.174     +1 -0      interchange/MANIFEST


rev 2.174, prev_rev 2.173
Index: MANIFEST
===================================================================
RCS file: /anon_cvs/repository/interchange/MANIFEST,v
retrieving revision 2.173
retrieving revision 2.174
diff -u -r2.173 -r2.174
--- MANIFEST	4 Oct 2005 19:31:27 -0000	2.173
+++ MANIFEST	7 Oct 2005 11:38:55 -0000	2.174
@@ -82,6 +82,7 @@
 code/Filter/yesno.filter
 code/Filter/zerofix.filter
 code/JavaScriptCheck/required.jsc
+code/OrderCheck/relative_filename.oc
 code/SystemTag/accessories.coretag
 code/SystemTag/accounting.coretag
 code/SystemTag/area.coretag



1.1                  interchange/code/OrderCheck/relative_filename.oc


rev 1.1, prev_rev 1.0
Index: relative_filename.oc
===================================================================
# Copyright 2005 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
# $Id: relative_filename.oc,v 1.1 2005/10/07 11:38:55 racke Exp $

CodeDef relative_filename OrderCheck 1
CodeDef relative_filename Routine <<EOR
sub {
	my ($name, $value, $code) = @_;

	if ($code =~ /\S/ && $code !~ /^\.{1,2}$/ 
		&& ! Vend::File::absolute_or_relative($code)) {
		return (1, $value, '');
	} else {
		return (0, $value, "filename not relative");
	}
}
EOR