attached is a small fix that works on linux, don't know about other platforms.
This is just an idea, don't know if this is the way to go but it was easy enough
Index: bugs.tcl
===================================================================
--- bugs.tcl (revision 6733)
+++ bugs.tcl (working copy)
@@ -2,6 +2,11 @@
::bugs::bgerror $args
}
+catch {
+ set ::svn_rev [lindex [split [exec svn info | grep Revision]] 1]
+}
+
+
namespace eval ::bugs {
variable dont_give_bug_reports 0
variable details 0
@@ -50,11 +55,8 @@
set ::bugs::bug(comment) ""
set ::bugs::bug(msnprotocol) [::config::getKey protocol]
- if {[file exists cvs_date]==1} {
- set fd [open cvs_date]
- set date [gets $fd]
- close $fd
- set date [::bugs::cvstostamp $date]
+ if {[info exists ::svn_rev]} {
+ set date $::svn_rev
} else {
set date [clock scan "$::date 00:00:00"]
}
@@ -65,7 +67,7 @@
status_log "-----------------------------------------\n" error
status_log ">>> GOT TCL/TK ERROR : $args\n>>> Stack:\n$::bugs::bug(info)\n>>> Code: $::bugs::bug(code)\n" error
status_log "-----------------------------------------\n" error
- catch { status_log ">>> AMSN version: $::version - AMSN date: $::date\n" error }
+ catch { status_log ">>> AMSN version: $::version - AMSN date: $date\n" error }
catch { status_log ">>> TCL version : $tcl_patchLevel - TK version : $tk_patchLevel\n" error }
catch { status_log ">>> tcl_platform array content : [array get tcl_platform]\n" error }
status_log "-----------------------------------------\n\n" error
signature.asc
Description: This is a digitally signed message part
_______________________________________________ Amsn-devel mailing list Amsn-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/amsn-devel
