#!/usr/bin/perl

use strict;
use warnings;

my $vcfs = `ls *.vcf.gz`;
chomp($vcfs);
my @vcfs = split(/\n/, $vcfs);
my $wd = `pwd`; chomp($wd);

$wd =~ s/\/db1\/castaneadb//;

foreach my $v (@vcfs) {
  my $sample = $v;
  $sample =~ s/_\D+\.vcf\.gz//;

  my $tracks = qq'
[ tracks.$sample ]
storeClass     = JBrowse/Store/SeqFeature/VCFTabix
urlTemplate    = $wd/$v
category = VCF
type = JBrowse/View/Track/CanvasVariants
key  = $sample
  ';
  print $tracks;

}