#!/usr/bin/perl

$refGenome = "mm9";
$txt = "ATAC footprint";

$path = `pwd`; $path =~ s/\s//g;
$path =~ s/\/data\/wade\///;

$ls = `ls -1 *bigWig`;
foreach $bwfile (split/\n/, $ls) {
  @ar = split/\./, $bwfile; $id = "$ar[0].$ar[1]";
  print "track type=bigWig name=\"$id $txt\" db=$refGenome visibility=full alwaysZero=on maxHeightPixels=40 color=0,153,0 bigDataUrl=http://snpinfo.niehs.nih.gov/ucscview/$path/$bwfile\n";
}