#!/usr/bin/perl -w
use strict;
use File::Glob;
use XML::Simple;

open DIPFILE, ">> C:/director/DIPFILE.TXT";
open LOGFILE, ">> C:/director/DIPLOG.LOG";

#Pull in all the xml files for each report.
my @dipfile = glob('C:/director/*.xml');

foreach my $x (@dipfile) {
    my $ref = XML::Simple::XMLin($x);
    print '"' . $x . '","' . $ref->{defaultName} . '","' . $ref->{defaultDescription} . '","' . $ref->{reportExecutionTime} . '"' . "\n";
    printf DIPFILE '"' . $x . '","' . $ref->{defaultName} . '","' . $ref->{defaultDescription} . '","' . $ref->{reportExecutionTime} . '"' . "\n";
    printf LOGFILE '"' . $x . '","' . $ref->{defaultName} . '","' . $ref->{defaultDescription} . '","' . $ref->{reportExecutionTime} . '"' . "\n";
}