src/hg/makeDb/doc/dm2.txt 1.23

Index: src/hg/makeDb/doc/dm2.txt
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/hg/makeDb/doc/dm2.txt,v
retrieving revision 1.22
retrieving revision 1.23
diff -b -B -U 4 -r1.22 -r1.23
--- src/hg/makeDb/doc/dm2.txt	3 Feb 2009 00:06:40 -0000	1.22
+++ src/hg/makeDb/doc/dm2.txt	23 Feb 2009 23:40:23 -0000	1.23
@@ -5836,16 +5836,18 @@
     # one .wig file per track, with UCSC table names:
     bzcat BDTNP_all_new* | perl -we \
       'my $fh; \
        while (<>) { \
-         if (/^track .* name="([\w-]+)"/) { \
+         if (/^track .* name="([\w-\.]+)"/) { \
            close($fh) if ($fh); \
            my $name = $1; \
            $name =~ s/_FQ_/_1_/;  $name =~ s/_BQ_/_2_/; \
            $name =~ s/([a-zA-Z0-9]+)_(H14)?(\d+)?_\d+_(FactorResults\.)?675bp_smoothed_scores-sym-(\d+)/bdtnp\u$1$3Fdr$5/ \
              || die "parse:\n$name\n\t"; \
            print "$name\n"; \
            open($fh, ">$name.wig") || die "Cant open >$name.wig: $!\n"; \
+         } elsif (/^track /) { \
+           die "missed a track line:\n$_\n\t"; \
          } else { \
            die "data before track line?  at input line $.:\n$_" if (! $fh); \
            print $fh $_; \
          } \
@@ -5875,8 +5877,10 @@
 #Converted ../bdtnpHkb3Fdr1.wig, upper limit 10.50, lower limit 0.90
 #Converted ../bdtnpHkb3Fdr25.wig, upper limit 10.50, lower limit 0.37
 #Converted ../bdtnpMad2Fdr1.wig, upper limit 12.58, lower limit 0.67
 #Converted ../bdtnpMad2Fdr25.wig, upper limit 12.58, lower limit 0.67
+#Converted ../bdtnpMed2Fdr1.wig, upper limit 12.58, lower limit 0.67
+#Converted ../bdtnpMed2Fdr25.wig, upper limit 12.58, lower limit 0.67
 #Converted ../bdtnpPrd1Fdr1.wig, upper limit 13.97, lower limit 0.78
 #Converted ../bdtnpPrd1Fdr25.wig, upper limit 13.97, lower limit 0.78
 #Converted ../bdtnpPrd2Fdr1.wig, upper limit 12.00, lower limit 0.84
 #Converted ../bdtnpPrd2Fdr25.wig, upper limit 12.00, lower limit 0.84