src/hg/encode/encodeLoad/installSqlSchemas.pl 1.2

Index: src/hg/encode/encodeLoad/installSqlSchemas.pl
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/hg/encode/encodeLoad/installSqlSchemas.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -b -B -U 4 -r1.1 -r1.2
--- src/hg/encode/encodeLoad/installSqlSchemas.pl	29 Aug 2008 20:24:47 -0000	1.1
+++ src/hg/encode/encodeLoad/installSqlSchemas.pl	30 Apr 2009 03:31:58 -0000	1.2
@@ -1,15 +1,16 @@
 #!/usr/bin/env perl
 
-# copy .sql files listed in @Encode::extendedTypes to $Encode::sqlCreate
+# copy .sql and .as files listed in @Encode::extendedTypes to $Encode::sqlCreate
 
 use warnings;
 use strict;
 
 use File::stat;
 use lib "/cluster/bin/scripts";
 use Encode;
 
+# extendedTypes types need .sql files
 for my $type (@Encode::extendedTypes) {
     my $file = "$ENV{HOME}/kent/src/hg/lib/encode/${type}.sql";
     if(!(-e $file)) {
         $file = "$ENV{HOME}/kent/src/hg/lib/${type}.sql";
@@ -29,4 +30,28 @@
     } else {
         die "can't find sql file for type '$type'";
     }
 }
+
+# bigBed types need .as files
+for my $type (@Encode::bigBedTypes) {
+    my $file = "$ENV{HOME}/kent/src/hg/lib/encode/${type}.as";
+    if(!(-e $file)) {
+        $file = "$ENV{HOME}/kent/src/hg/lib/${type}.as";
+    }
+    if(-e $file) {
+        my $replace = 1;
+        my $target = "$Encode::sqlCreate/$type.as";
+        if(-e $target) {
+            my $fileStat = stat($file);
+            my $targetStat = stat($target);
+            $replace = $fileStat->mtime > $targetStat->mtime;
+        }
+        my $cmd = "cp $file $target.tmp";
+        !system($cmd) || die  "system '$cmd' failed: $?";
+        $cmd = "mv -f $target.tmp $target";
+        !system($cmd) || die  "system '$cmd' failed: $?";
+    } else {
+        die "can't find as file for type '$type'";
+    }
+}
+