src/hg/encode/encodeValidate/doEncodeValidate.pl 1.209
1.209 2009/12/17 18:16:49 tdreszer
Special case code for cleaning up tablenames that are too long
Index: src/hg/encode/encodeValidate/doEncodeValidate.pl
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/hg/encode/encodeValidate/doEncodeValidate.pl,v
retrieving revision 1.208
retrieving revision 1.209
diff -b -B -U 4 -r1.208 -r1.209
--- src/hg/encode/encodeValidate/doEncodeValidate.pl 15 Dec 2009 20:25:31 -0000 1.208
+++ src/hg/encode/encodeValidate/doEncodeValidate.pl 17 Dec 2009 18:16:49 -0000 1.209
@@ -1832,9 +1832,17 @@
# Delayed adding these terms to metadata so that resubmissions could have the looked up term
$metadata .= " dateSubmitted=$dateSubmitted";
$metadata .= " dateUnrestricted=$dateUnrestricted";
+ $tableName =~ "/Utaustin/Uta/"; # Special case for certain transgressors
+ if(length($tableName) > 64) {
+ $tableName =~ "/Hudsonalpha/Haib/" if length($tableName) > 64; # Special case for certain transgressors
+ $tableName =~ "/Sunyalbany/Sunya/" if length($tableName) > 64;
+ $tableName =~ "/Alignments/Aln/" if length($tableName) > 64;
+ $tableName =~ "/Signal/Sig/" if length($tableName) > 64;
+ $tableName =~ "/Control/Ctrl/" if length($tableName) > 64;
die "Table name [$tableName] too long, must be <= 64 chars, got [".length($tableName)."]\n" if length($tableName) > 64;
+ }
if($tableNamesUsed{$tableName}++) {
dieTellWrangler("System Error: identical tableName '$tableName' was generated by multiple data sets\n");