[Freeswitch-svn] [commit] r5523 - freeswitch/trunk/scripts/contrib/trixter

[Freeswitch SVN]

Author: trixter
Date: Mon Jul  9 21:52:49 2007
New Revision: 5523

Added:
   freeswitch/trunk/scripts/contrib/trixter/makecombinedfsxml.pl   (contents, props changed)

Log:
makes a combined freeswitch.xml from the individual files to avoid the 'old' formats that are present in the current freeswitch_combined.xml sine that isnt maintained but the individual files are.


Added: freeswitch/trunk/scripts/contrib/trixter/makecombinedfsxml.pl
==============================================================================
--- (empty file)
+++ freeswitch/trunk/scripts/contrib/trixter/makecombinedfsxml.pl	Mon Jul  9 21:52:49 2007
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+# -*- mode:cperl; tab-width:4; c-basic-offset:4; c-indent-level:4; indent-tabs-mode:nil;  -*-
+
+open (FSXML, "freeswitch.xml") or die "Unable to locate freeswitch.xml - run this in the directory with the conf files";
+
+while ($record = <FSXML>) {
+  if ($record =~ /<!--#include "(.*?)"-->/) {
+      open(CONF, "$1");
+      while (<CONF>) {
+        print $_;
+      }
+      close(CONF);
+  } else {
+    print $record;
+  }
+}
+
+close(FSXML);