| Line | |
|---|
| 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 |
|---|
| 8 | # Copyright (c) 2004-2012 HUBzero Foundation, LLC |
|---|
| 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 | # ====================================================================== |
|---|
| 13 | if {[catch {exec svn info} result] == 0 |
|---|
| 14 | && [regexp {Revision: +([0-9]+)} $result match num]} { |
|---|
| 15 | puts "r$num" |
|---|
| 16 | } else { |
|---|
| 17 | puts "r?" |
|---|
| 18 | } |
|---|
| 19 | exit 0 |
|---|
Note: See
TracBrowser
for help on using the repository browser.
