#!/usr/bin/perl

$refGenome = "hg19";

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

$ls = `ls -1 *.bigBed`;
foreach $bbfile (split/\n/, $ls) {
  @ar = split/\./, $bbfile;
  $ar[2] =~ s/hicup//;
  $id = "$ar[0] $ar[1].$ar[2] $ar[4]";
  print "track type=bigBed name=\"$id\" db=$refGenome visibility=full bigDataUrl=https://snpinfo.niehs.nih.gov/ucscview/$path/$bbfile\n";
}