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);