src/hg/encode/encodeLoad/doEncodeUnload.pl 1.7

1.7 2010/04/21 18:57:32 tdreszer
Unloader can now handle bigWigs
Index: src/hg/encode/encodeLoad/doEncodeUnload.pl
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/hg/encode/encodeLoad/doEncodeUnload.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -b -B -U 4 -r1.6 -r1.7
--- src/hg/encode/encodeLoad/doEncodeUnload.pl	23 Mar 2010 03:56:31 -0000	1.6
+++ src/hg/encode/encodeLoad/doEncodeUnload.pl	21 Apr 2010 18:57:32 -0000	1.7
@@ -56,8 +56,31 @@
         }
     }
 }
  
+sub unloadBigWig
+{
+    my ($assembly, $db, $tableName) = @_;
+    $db->dropTableIfExist($tableName);
+
+    # remove symlink
+    my $file = "/gbdb/$assembly/bbi/$tableName.bw";
+    if(-e $file) {
+        HgAutomate::verbose(3, "removing bigWig '$file'\n");
+        if(system("rm -f $file")) {
+            die "unexpected error removing symlink $file";
+        }
+    }
+    # FIXME: Souldn't we remove files from downloads dir (and gbdb subdir) as well??
+    #my $file = "/usr/local/apache/htdocs/goldenPath/$assembly/encodeDCC/encSydhTfbsStanf/gbdb/$tableName.bw";
+    #if(-e $file) {
+    #    HgAutomate::verbose(3, "removing wib '$file'\n");
+    #    if(system("rm -f $file")) {
+    #        die "unexpected error removing symlink $file";
+    #    }
+    #}
+}
+
 ############################################################################
 # Main
 
 # Change dir to submission directory obtained from command-line
@@ -141,8 +164,10 @@
     } elsif($type eq "genePred" || $type =~ /^bed/ || $type eq "gtf" || $extendedTypes{$type}) {
         genericUnload($assembly, $db, $tablename);
     } elsif ($type eq "wig") {
         unloadWig($assembly, $db, $tablename);
+    } elsif ($type eq "bigWig") {
+        unloadBigWig($assembly, $db, $tablename);
     } else {
         die "ERROR: unknown type: $h->{type} in load.ra ($PROG)\n";
     }