This file is indexed.

/usr/lib/aolserver4/modules/tcl/debug.tcl is in aolserver4-daemon 4.5.1-18.

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
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
#
# 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.
#

#
# $Header: /cvsroot/aolserver/aolserver/tcl/debug.tcl,v 1.4 2002/02/08 07:56:16 hobbs Exp $
#

#
# debug.tcl --
#
#	Support for the TclPro debugger from Scriptics which allows you
#	to step through the scripts in your ADP pages much like an
#	ordinary stepping debugger, e.g., GDB.
#
# For TclPro to work correctly you'll need to:
#
# 1.	Ensure this file and the latest prodebug.tcl from Scriptics
#	is sourced at startup.
#
# 2.	Enable debugging in ADP with:
#
#		[ns/server/<server>/adp]
#		enabledebug=1
#
# 3.	Start the TclPro debugger for remote debugging by selecting
#	"File->New Project..." menu and checking "Remote Debugging".
#	Note the port number.
#
# 4.	In your browser open an ADP page with the debug=<pattern>
#	query data.  The pattern is a glob-style pattern for files
#	you want the debugger to trap on, e.g., to debug foo.adp
#	and any files in may include use:
#
#		http://server/foo.adp?debug=*
#
# Additional Options:
#
#	If your browser is not running on the same host as TclPro
#	you'll need to set the dhost parameter, e.g.,:
#
#		http://server/foo.adp?debug=*&&dhost=myhost
#
#	If the remote debugging port for TclPro is not the default below
#	you'll have to specify the dport parameter, e.g.:
#
#		http://server/foo.adp?debug=*&dport=3232&dhost=myhost
#
#	Remember you can specify a differnt pattern, e.g., to debug
#	the bar.inc file which is ns_adp_include'd by foo.adp use:
#
#		http://server/foo.adp?debug=bar.inc
#
#	Finally, you may want to step through procedures.  To do so
#	TclPro must "instrument" the procedures.  You can either do
#	this using the "View->Procedures..." menu once the debugger
#	is connected and stopped or by specifying the dprocs parameter
#	which is a glob-style pattern of procedure to be instrumented
#	before the debugger stops.  For example, to have all procedures
#	starting with "myprocs" instrumented use:
#
#		http://server/foo.adp?debug=*&dprocs=myprocs*
#

proc ns_adp_debuginit {procs host port} {
    if {![string length $host]} {
	set host [ns_conn peeraddr]
    }
    if {![string length $port]} {
	# NB: Should match that in prodebug.tcl.
	set port 2576
    }
    if {[string length $procs]} {
	set procsfile [ns_tmpnam]
	set fp [open $procsfile w]
	foreach p [info procs $procs] {
	    if {[string match *debug* $p]} continue
	    set args {}
	    foreach a [info args $p] {
		if {[info default $p $a def]} {
		    lappend args [list $a $def]
		} else {
		    lappend args $a
		}
	    }
	    puts $fp [list proc $p $args [info body $p]]
	}
	close $fp
    }
    if {![debugger_init $host $port]} {
	return -code error \
                "debugger_init: could not connect to $host:$port"
    }
    if {[string length $procs]} {
	DbgNub_sourceCmd $procsfile
	ns_unlink $procsfile
    }
}