[interchange-cvs] interchange - racke modified code/UI_Tag/import_fields.coretag

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Fri Apr 2 09:49:07 EST 2004


User:      racke
Date:      2004-04-02 14:49:06 GMT
Modified:  code/UI_Tag import_fields.coretag
Log:
sanity check on key name to avoid imports in wrong file format

Revision  Changes    Path
1.8       +6 -1      interchange/code/UI_Tag/import_fields.coretag


rev 1.8, prev_rev 1.7
Index: import_fields.coretag
===================================================================
RCS file: /anon_cvs/repository/interchange/code/UI_Tag/import_fields.coretag,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- import_fields.coretag	1 Apr 2003 13:54:17 -0000	1.7
+++ import_fields.coretag	2 Apr 2004 14:49:06 -0000	1.8
@@ -1,6 +1,6 @@
 UserTag import_fields Order table
 UserTag import_fields addAttr
-UserTag import_fields Version $Revision: 1.7 $
+UserTag import_fields Version $Revision: 1.8 $
 UserTag import_fields Routine <<EOR
 sub {
 	my($table, $opt) = @_;
@@ -231,6 +231,11 @@
 	my $idx = 0;
 	my $ignore_sub;
 	
+	# check key name
+	if ($key !~ /^[\w_-]+$/) {
+		die "Invalid key '$key' for table $table (wrong file format ?)\n";
+	}
+
 	if ($opt->{ignore_fields}) {
 		my %fmap;
 		for (my $ct = 0; $ct < @names; $ct++) {








More information about the interchange-cvs mailing list