#!/usr/bin/perl

#my $Path  = "/home/measure/Data";
my $RULESET = "/home/measure/Data/LabelRules/Rulesets/measure.rul";

my @roots = ('ProcessedSolarWindGSE', 'ProcessedSolarWindGSM', 'PropagatedSolarWindGSE/weimer', 'PropagatedSolarWindGSM/weimer');

foreach my $root (@roots) {

  my @datFiles = glob "$root/*/*/*/*.dat";

  foreach my $datFile (@datFiles[0..5]) {
    print "java ruleset.Labeler $RULESET $datFile\n";
    system("java ruleset.Labeler $RULESET $datFile");

    my @datFile  = split /\//, $datFile;
    my $datPath  = join "/", @datFile[0..$#datFile-1];
    my $fileBase = substr($datFile[$#datFile], 0, -4);
    my $XMLFile  = sprintf "%s.XML", uc($fileBase);
    my $xmlFile  = sprintf "%s.xml", lc($fileBase);

    print "mv $datPath/$XMLFile $datPath/$xmlFile\n";
    system("mv $datPath/$XMLFile $datPath/$xmlFile");

  }

}