Make the script a little more general purpose usable by removing a hardcoded filename.

diff --git a/scripts/perl/traffic/xml2conf.pl b/scripts/perl/traffic/xml2conf.pl
index e66da0841e50aad2243d3d33a05c9f60e1d18aa2..f4f4620709bdccfb69d59f6bd557064e98808c85 100755 (executable)
--- a/scripts/perl/traffic/xml2conf.pl
+++ b/scripts/perl/traffic/xml2conf.pl
@@ -1,17 +1,25 @@
 #!/usr/bin/perl -w
 
-use strict;
-use warnings;
+#use strict;
+#use warnings;
 
 # DEBUG
 #  use Data::Dumper;
 #  print Dumper($data) . "\n";
 # END
 
+if (scalar (@ARGV) == 1) {
+    @files = glob("$ARGV[0]");
+    print "Processing : ", @files, "\n";
+} else {
+    die "Usage : conf2xml.pl <inputfile> [ > outputfile ]\n";
+}
+$file = shift(@files);
+
 use Switch;
 use XML::LibXML;
 my $parser = XML::LibXML->new();
-my $doc = $parser->load_xml(location => './CEB.xml');
+my $doc = $parser->load_xml(location => $file);
 my $data;
 
 # reformatting days