equal
deleted
inserted
replaced
43 |
43 |
44 logToBRAG.pl --phase=prebuild --step=syncsource --rules=syncsourceRules.tsv presync.log [doSync.log ...] > output.xml |
44 logToBRAG.pl --phase=prebuild --step=syncsource --rules=syncsourceRules.tsv presync.log [doSync.log ...] > output.xml |
45 EOT |
45 EOT |
46 exit(0 + !$help); |
46 exit(0 + !$help); |
47 } |
47 } |
|
48 |
|
49 # Do the wild-carding thing |
|
50 @ARGV = map { glob $_ } @ARGV; |
48 |
51 |
49 # Start to build structure to be output as XML (same format as XML::Parser would create for us) |
52 # Start to build structure to be output as XML (same format as XML::Parser would create for us) |
50 my $xmlNewline = bless { Text => "\n" }, "Characters"; |
53 my $xmlNewline = bless { Text => "\n" }, "Characters"; |
51 my $step = bless { |
54 my $step = bless { |
52 name => $stepName, |
55 name => $stepName, |