
use strict;
use warnings;
use VertRes::Utils::Hierarchy;
use VRTrack::VRTrack;
use VRTrack::Lane;

my $vrtrack = VRTrack::VRTrack->new({host => 'patp-db',
                                     port => '3347',
                                     database => 'pathogen_prok_track',
                                     user => 'pathpipe_rw',
                                     password => 'path3476'});

my $vrlane = VRTrack::Lane->new_by_name($vrtrack, '32847_1#2');

my $hu = VertRes::Utils::Hierarchy->new();
my $ok = $hu->store_lane('/lustre/scratch118/infgen/pathogen/pathpipe/prokaryotes/seq-pipelines/Acinetobacter/baumannii/TRACKING/5996/5996STDY8493638/SLX/28562877/32847_1#2', $vrlane);

$ok || die "Failed to store lane
";

exit;
    