1 files changed, 15 insertions, 0 deletions
diff --git a/TAO/bin/tao_svcconf.pl b/TAO/bin/tao_svcconf.pl
new file mode 100755
index 00000000000..56d05830f59
--- /dev/null
+++ b/TAO/bin/tao_svcconf.pl
@@ -0,0 +1,15 @@
+eval '(exit $?0)' && eval 'exec perl -pi -S $0 ${1+"$@"}'
+    & eval 'exec perl -pi -S $0 $argv:q'
+    if 0;
+
+# $Id$
+#
+# This script can help you convert TAO svc.conf using dynamic services
+# to use static services.
+#
+# You may want to run the "find" command with this script, which maybe
+# something like this:
+#
+# find . -name svc.conf -print | xargs $ACE_ROOT/bin/tao_svcconf.pl
+
+s/^ *dynamic *([A-Za-z_]+) [^\"]+(\"[^\"]+\").*/static $1 $2/;