Subversion Repositories Koakuma

Rev

Rev 2 | Rev 6 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 3
Line 1... Line 1...
1 
# $Id: vcs_cvs.tcl 2 2024-10-01 03:45:55Z nishi $
 1 
# $Id: vcs_cvs.tcl 3 2024-10-01 14:31:23Z nishi $
2 
lappend components "CVS" "CVS Integration" "1.00"
 2 
lappend components "CVS" "CVS Integration" "1.00"
- 
 
 3 
 
- 
 
 4 
proc CVS_info {} {
- 
 
 5 
	regexp {[0-9]+\.[0-9]+\.[0-9]+} "[exec cvs --version]" version
- 
 
 6 
	add_toc2 "CVS"
- 
 
 7 
	tputs	"<table border=\"0\">"
- 
 
 8 
	tputs	"	<tr>"
- 
 
 9 
	tputs	"		<th>"
- 
 
 10 
	tputs	"			Version"
- 
 
 11 
	tputs	"		</th>"
- 
 
 12 
	tputs	"		<td>"
- 
 
 13 
	tputs	"			$version"
- 
 
 14 
	tputs	"		</td>"
- 
 
 15 
	tputs	"	</tr>"
- 
 
 16 
	tputs	"</table>"
- 
 
 17 
}