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";
}