[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