#!/usr/bin/perl

$ls = `ls -1 *plus*.bam`;
foreach $bamfile (split/\n/, $ls) {
  unless (-e "$bamfile.bai") { system "samtools index $bamfile"; }
  @ar = split/\./, $bamfile; $id = "$ar[0] $ar[1]";
  print "track type=bam name=\"$id plus\" db=hg19 bamColorMode=strand pairEndsByName=yes visibility=full bigDataUrl=https://snpinfo.niehs.nih.gov/ucscview/fessler/GTEx/other_May2018/$bamfile\n";
}
print "\n";
$ls = `ls -1 *minus*.bam`;
foreach $bamfile (split/\n/, $ls) {
  unless (-e "$bamfile.bai") { system "samtools index $bamfile"; }
  @ar = split/\./, $bamfile; $id = "$ar[0] $ar[1]";
  print "track type=bam name=\"$id minus\" db=hg19 bamColorMode=strand pairEndsByName=yes visibility=full bigDataUrl=https://snpinfo.niehs.nih.gov/ucscview/fessler/GTEx/other_May2018/$bamfile\n";
}