luxferre/tii
1
0
Fork 0
Code Actions Activity

Fixed posting and replying issues

Browse Source
This commit is contained in:
Luxferre
2024-10-24 09:06:30 +03:00
parent ec47764a55
commit b7e63a54c6
2 changed files with 45 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tiipost.tcl
+7
View File
@@ -29,6 +29,13 @@ proc readfile {fname} {
# main data posting function
proc postiidata {rooturl authstr echoname msgto subj repto text} {
set rooturl [string trim $rooturl]
set authstr [string trim $authstr]
set echoname [string trim $echoname]
set repto [string trim $repto]
set msgto [string trim $msgto]
set subj [string trim $subj]
set text [string trimright $text]
if {$repto ne ""} {set text "@repto:$repto\r\n$text"}
set rawdata "$echoname\n$msgto\n$subj\n\n$text"
set rawdata [encoding convertto utf-8 $rawdata]