Aren't you assuming that the user has svn support installed and is using the svn version? What about all the users that use the packages, or the tarball?
----- Original Message ----- From: "Sander Hoentjen" <[EMAIL PROTECTED]> To: "amsn-devel" <[email protected]> Sent: Tuesday, May 30, 2006 12:09 AM Subject: [Amsn-devel] svn revision/cvs_date 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 > ---------------------------------------------------------------------------- ---- > ---------------------------------------------------------------------------- ---- > _______________________________________________ > Amsn-devel mailing list > [email protected] > https://lists.sourceforge.net/lists/listinfo/amsn-devel > _______________________________________________ Amsn-devel mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/amsn-devel
