TAO/bin/tao_svcconf.pl

   1 eval '(exit $?0)' && eval 'exec perl -pi -S $0 ${1+"$@"}'
   2     & eval 'exec perl -pi -S $0 $argv:q'
   3     if 0;
   4
   5 #
   6 # This script can help you convert TAO svc.conf using dynamic services
   7 # to use static services.
   8 #
   9 # You may want to run the "find" command with this script, which maybe
  10 # something like this:
  11 #
  12 # find . -name svc.conf -print | xargs $TAO_ROOT/bin/tao_svcconf.pl
  13
  14 s/^ *dynamic *([A-Za-z_]+) [^\"]+(\"[^\"]+\").*/static $1 $2/;