2009-03-25T14:11:12Z PunBB https://forum.postgresql.org.pl/viewtopic.php?id=154 " set myPort 25 set mySock [socket $myHost $myPort] set toemailaddress_start [string first "<" $mailto] if {$toemailaddress_start != -1} { set toemailaddress_finish [string first ">" $mailto] set toemailaddress_start [expr $toemailaddress_start + 1] set toemailaddress_finish [expr $toemailaddress_finish - 1] set toemailaddress [string range $mailto $toemailaddress_start $toemailaddress_finish] } else { set toemailaddress $mailto } set fromemailaddress_start [string first "<" $mailfrom] if {$fromemailaddress_start != -1} { set fromemailaddress_finish [string first ">" $mailfrom] set fromemailaddress_start [expr $fromemailaddress_start + 1] set fromemailaddress_finish [expr $fromemailaddress_finish - 1] set fromemailaddress [string range $mailfrom $fromemailaddress_start $fromemailaddress_finish] } else { set fromemailaddress $mailfrom } fileevent $mySock writable [list svcHandler $mySock] fconfigure $mySock -buffering none puts $mySock "helo " gets $mySock name puts $mySock "mail from: $fromemailaddress" gets $mySock name puts $mySock "rcpt to: $toemailaddress" gets $mySock name puts $mySock "data" gets $mySock name puts $mySock "To: $mailto" puts $mySock "From: $mailfrom" puts $mySock "Subject: $mailsubject" puts $mySock "" puts $mySock "$mailmessage" puts $mySock "." gets $mySock name close $mySock return 1' language 'pltclu'; [/code]]]> https://forum.postgresql.org.pl/profile.php?id=760 2009-03-25T14:11:12Z https://forum.postgresql.org.pl/viewtopic.php?pid=662#p662 https://forum.postgresql.org.pl/profile.php?id=26 2009-03-14T09:10:24Z https://forum.postgresql.org.pl/viewtopic.php?pid=624#p624 https://forum.postgresql.org.pl/profile.php?id=6 2009-03-14T04:21:30Z https://forum.postgresql.org.pl/viewtopic.php?pid=623#p623 https://forum.postgresql.org.pl/profile.php?id=26 2009-03-13T11:47:39Z https://forum.postgresql.org.pl/viewtopic.php?pid=622#p622 https://forum.postgresql.org.pl/profile.php?id=760 2009-03-13T09:28:28Z https://forum.postgresql.org.pl/viewtopic.php?pid=621#p621 https://forum.postgresql.org.pl/profile.php?id=26 2009-03-13T07:25:18Z https://forum.postgresql.org.pl/viewtopic.php?pid=620#p620 https://forum.postgresql.org.pl/profile.php?id=760 2009-03-12T14:26:03Z https://forum.postgresql.org.pl/viewtopic.php?pid=619#p619