/usr/lib/aolserver4/bin/ini2tcl.tcl is in aolserver4-daemon 4.5.1-16.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | #
# The contents of this file are subject to the AOLserver Public License
# Version 1.1 (the "License"); you may not use this file except in
# compliance with the License. You may obtain a copy of the License at
# http://aolserver.com/.
#
# Software distributed under the License is distributed on an "AS IS"
# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
# the License for the specific language governing rights and limitations
# under the License.
#
# The Original Code is AOLserver Code and related documentation
# distributed by AOL.
#
# The Initial Developer of the Original Code is America Online,
# Inc. Portions created by AOL are Copyright (C) 1999 America Online,
# Inc. All Rights Reserved.
#
# Alternatively, the contents of this file may be used under the terms
# of the GNU General Public License (the "GPL"), in which case the
# provisions of GPL are applicable instead of those above. If you wish
# to allow use of your version of this file only under the terms of the
# GPL and not to allow others to use your version of this file under the
# License, indicate your decision by deleting the provisions above and
# replace them with the notice and other provisions required by the GPL.
# If you do not delete the provisions above, a recipient may use your
# version of this file under either the License or the GPL.
#
#
# ini2tcl.tcl --
#
# Translate an old-style .ini file into simple .tcl format.
# Usage:
# nsd -ft ini2tcl.tcl nsd.ini
#
set fp [open [lindex $argv 3]]
while {[gets $fp line] >= 0} {
set line [string trim $line]
if {[regsub {^;} $line {#} line]} {
puts $line
} elseif {[regsub {^\[(.*)\]} $line {\1} line]} {
puts "\n[list ns_section $line]"
} elseif {[string match *=* $line]} {
set line [split $line =]
set key [string trim [lindex $line 0]]
set val [string trim [lindex $line 1]]
puts [list ns_param $key $val]
}
}
exit
|