View Single Post
Old 12-25-2004, 08:48 PM  
durulink
Senior Member
 
Join Date: Mar 2003
Posts: 102
Default

Code:
proc basicreplace {strin section} {
	#putlog "proc basicreplace"
	global sitename
	set output [replacevar $strin "%sitename" $sitename]
	set output [replacevar $output "%bold" "\002"]
	set output [replacevar $output "%color" "\003"]
	set output [replacevar $output "%uline" "\037"]
	if { [string match $section "Stuff"] } { set section \00311$section\003 }
	if { [string match $section "old stuff"] } { set section \00314$section\003 }
	if { [string match $section "text"] } { set section \00313$section\003 }
	set output [replacevar $output "%section" $section]
	return "$output"
}
try this.
durulink is offline   Reply With Quote