#!/usr/bin/tcl # CGI Scan 1.0 (c) 1999 Mixter # FEEL FREE TO HELP ME IMPROVE THIS STUFF! # SEND YOUR CODE TO i0wnu@xoommail.com if {(![info exists argv]) || $argv == ""} { puts "getCGI 1.0 by Mixter" puts "usage: getcgi " exit } set output stdout set a [open [lindex $argv 0] r] # wee skan all linez for FORM tag global n set n 0 ;# cgi script no. while {[eof $a]==0} { set line [string tolower [gets $a]] set pos1 [string first "} $cgivar(script_${n}) {} cgivar(script_${n}) regsub -all {"} $cgivar(script_${n}) {} cgivar(script_${n}) puts $output "Form$n: cgi_url $cgivar(script_${n})" } } # wee prosess da input tagz set y 0 for { set line [string tolower [gets $a]] ;# first command set pos2 [string first "" $line] == -1 } { ;# condition set line [string tolower [gets $a]] ;# l00p command set pos2 [string first "} $cgivar(${id}_type) {} cgivar(${id}_type) regsub -all {"} $cgivar(${id}_type) {} cgivar(${id}_type) puts -nonewline $output "type $cgivar(${id}_type) " } if {[lindex $l1ne $i]=="maxlength"} { global cgivar(${id}_max) set cgivar(${id}_max) [lindex $l1ne [expr $i+1]] regsub -all {<} $cgivar(${id}_max) {} cgivar(${id}_max) regsub -all {>} $cgivar(${id}_max) {} cgivar(${id}_max) regsub -all {"} $cgivar(${id}_max) {} cgivar(${id}_max) puts -nonewline $output "maxlen $cgivar(${id}_max) " } if {[lindex $l1ne $i]=="name"} { global cgivar(${id}_name) set cgivar(${id}_name) [lindex $l1ne [expr $i+1]] regsub -all {<} $cgivar(${id}_name) {} cgivar(${id}_name) regsub -all {>} $cgivar(${id}_name) {} cgivar(${id}_name) regsub -all {"} $cgivar(${id}_name) {} cgivar(${id}_name) puts -nonewline $output "varname $cgivar(${id}_name) " } if {[lindex $l1ne $i]=="value"} { global cgivar(${id}_value) set cgivar(${id}_value) [lindex $l1ne [expr $i+1]] regsub -all {<} $cgivar(${id}_value) {} cgivar(${id}_value) regsub -all {>} $cgivar(${id}_value) {} cgivar(${id}_value) regsub -all {"} $cgivar(${id}_value) {} cgivar(${id}_value) puts -nonewline $output "default $cgivar(${id}_value) " } ;# if } ;# input line puts "" } ;# form scan } ;# while close $a # okiez..............!