source: trunk/lang/tcl/cf/patchlevel.tcl @ 6221

Last change on this file since 6221 was 3177, checked in by mmc, 12 years ago

Updated all of the copyright notices to reference the transfer to
the new HUBzero Foundation, LLC.

File size: 742 bytes
RevLine 
[204]1# ----------------------------------------------------------------------
2#  patchlevel.tcl
3#
4#  This utility determines the current patchlevel for this package
5#  by querying the revision level from Subversion.
6# ======================================================================
7#  AUTHOR:  Michael McLennan, Purdue University
[3177]8#  Copyright (c) 2004-2012  HUBzero Foundation, LLC
[204]9#
10#  See the file "license.terms" for information on usage and
11#  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
12# ======================================================================
13if {[catch {exec svn info} result] == 0
14      && [regexp {Revision: +([0-9]+)} $result match num]} {
15    puts "r$num"
16} else {
17    puts "r?"
18}
19exit 0
Note: See TracBrowser for help on using the repository browser.