#!/bin/sh tclsh << 'EOF' source tcl-helpers/common.tcl puts "Content-type: text/html\n" set realfile $env(PATH_TRANSLATED); set destination_line $env(QUERY_STRING); set URLbase [findDocumentBase $env(REMOTE_HOST) $env(SERVER_NAME) \ $env(SERVER_PORT)]; set URL "$URLbase$env(PATH_INFO)"; set isHTML [regexp {.html$} $realfile]; if {! $isHTML} { puts "

";
}

set searchFile [open $realfile];

for {set line_num 1} {[gets $searchFile inLine] >= 0} {incr line_num} {
	if {$line_num == $destination_line} {
		puts -nonewline "";
	}
	regsub -nocase "" $inLine "" inLine;
	if {! $isHTML} {
		regsub -all {<} $inLine {\<} inLine;
		regsub -all {>} $inLine {\>} inLine;
		regsub -all "\t" $inLine "    " inLine;
	}
	puts $inLine;
}
close $searchFile;

EOF