#!/usr/bin/perl

$path = "https://snpinfo.niehs.nih.gov/ucscview/yufeng/HiC_ARID1A/AB_Juicer";

$ls = `ls -1 *all*bigBed`;
foreach $file (split/\n/, $ls) {
  @ar = split/\./, $file;
  print "track type=bigBed name=\"$ar[0] ($ar[1]) AB\" db=hg19 visibility=dense itemRgb=On bigDataUrl=$path/$file\n";
}
print "\n";

$ls = `ls -1 *DS*bigBed`; 
foreach	$file (split/\n/, $ls) {
  @ar =	split/\./, $file;
  print	"track type=bigBed name=\"$ar[0] ($ar[1]) AB\" db=hg19 visibility=dense itemRgb=On bigDataUrl=$path/$file\n";
}
print "\n";

$ls = `ls -1 *all*bigWig`;
foreach $file (split/\n/, $ls) {
  @ar = split/\./, $file;
  print "track type=bigWig name=\"$ar[0] ($ar[1]) eigen\" db=hg19 visibility=full autoScale=off viewLimits=-0.1:0.1 maxHeightPixels=30 bigDataUrl=$path/$file\n";
}
print "\n";

$ls = `ls -1 *DS*bigWig`;
foreach $file (split/\n/, $ls) {
  @ar = split/\./, $file;
  print "track type=bigWig name=\"$ar[0] ($ar[1]) eigen\" db=hg19 visibility=full autoScale=off viewLimits=-0.1:0.1 maxHeightPixels=30 bigDataUrl=$path/$file\n";
}
print "\n";