#!/usr/bin/perl

#$refGenome = $ARGV[0];
#$idColumns = $ARGV[1];  # number of period-separated text chunks from bigwig file name to use as identifier

$refGenome = "mm10";

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

$ls = `ls -1 *.bigBed`;
foreach $bbfile (split/\n/, $ls) {
  $id = $bbfile; $id =~ s/\.bigBed//;
#  @ar = split/\./, $bbfile;
#  @arX = splice(@ar, 0, $idColumns);
#  $id = join(" ", @arX);
  print "track type=bigBed name=\"$id\" db=$refGenome visibility=dense bigDataUrl=http://snpinfo.niehs.nih.gov/ucscview/$path/$bbfile\n";
}