Mercurial > hg > egg-tcls

comparison tj.tcl @ 631:9596cd122639

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tj: Adjust database schema a bit, add new field 'uupdated'.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 15 Feb 2021 13:42:10 +0200
parents b7e3a47ed072
children 68b8cf87e86e
comparison
equal deleted inserted replaced
630:b7e3a47ed072 631:9596cd122639
347 if {$nreminders > 5} { 347 if {$nreminders > 5} {
348 tj_msg $upublic $unick $uchan "err_too_many" [list $nreminders] 348 tj_msg $upublic $unick $uchan "err_too_many" [list $nreminders]
349 return 1 349 return 1
350 } 350 }
351 351
352 set ucreated [utl_sql_stamp_to_datetime [clock seconds]]
352 if {$umode} { 353 if {$umode} {
353 # Insert new entry 354 # Insert new entry
354 set usql "INSERT INTO tj (uid,uuser,ucreated,udesc,utype,utarget) VALUES ('[utl_escape $uid]', '[utl_escape $uhand]', [unixtime], '[utl_escape $rdesc]', 0, '$rdate')" 355 set usql "INSERT INTO tj (uid,uuser,ucreated,uupdated,udesc,utype,utarget) VALUES ('[utl_escape $uid]', '[utl_escape $uhand]', '$ucreated', '$ucreated', '[utl_escape $rdesc]', 0, '$rdate')"
355 if {[catch {tj_dbh eval $usql} uerrmsg]} { 356 if {[catch {tj_dbh eval $usql} uerrmsg]} {
356 tj_msg $upublic $unick $uchan "err_sql" [list $uerrmsg] 357 tj_msg $upublic $unick $uchan "err_sql" [list $uerrmsg]
357 tj_log "$uerrmsg on SQL:\n$usql" 358 tj_log "$uerrmsg on SQL:\n$usql"
358 return 1 359 return 1
359 } 360 }
362 tj_msg $upublic $unick $uchan "tj_set" [list $cid $uid $uhand $rdesc $udate $utjstr] 363 tj_msg $upublic $unick $uchan "tj_set" [list $cid $uid $uhand $rdesc $udate $utjstr]
363 tj_log "tj_set $cid:$uid:$uhand:$rdesc:$rdate:$udate" 364 tj_log "tj_set $cid:$uid:$uhand:$rdesc:$rdate:$udate"
364 } else { 365 } else {
365 # Update existing entry 366 # Update existing entry
366 set usqlargs {} 367 set usqlargs {}
368 lappend usqlargs "uupdated='$ucreated'"
367 if {[string length $rdesc] > 0} { 369 if {[string length $rdesc] > 0} {
368 lappend usqlargs "udesc='[utl_escape $rdesc]'" 370 lappend usqlargs "udesc='[utl_escape $rdesc]'"
369 } 371 }
370 if {$rstamp != "invalid"} { 372 if {$rstamp != "invalid"} {
371 lappend usqlargs "utarget='$rdate'" 373 lappend usqlargs "utarget='$rdate'"