{"id":74,"date":"2007-05-17T04:34:18","date_gmt":"2007-05-17T04:34:18","guid":{"rendered":"http:\/\/www.dereckson.be\/blog\/2007\/05\/17\/envoyer-un-mail-depuis-surfboard\/"},"modified":"2007-05-17T04:34:18","modified_gmt":"2007-05-17T04:34:18","slug":"envoyer-un-mail-depuis-surfboard","status":"publish","type":"post","link":"https:\/\/www.dereckson.be\/blog\/2007\/05\/17\/envoyer-un-mail-depuis-surfboard\/","title":{"rendered":"Envoyer un mail depuis SurfBoard + code source"},"content":{"rendered":"

Nouvelle fonction dans SurfBoard, .mail <destinataire> [objet]<\/p>\n

\"\"<\/p>\n

Voici son mode d’emploi ainsi que le code source, sous license BSD.<\/p>\n

<\/p>\n

Mode d’emploi<\/h3>\n

\"\" <\/p>\n

Pour envoyer un e-mail \u00e0 un membre :<\/em><\/p>\n

.mail dereckson<\/p>\n

Pour envoyer un e-mail \u00e0 une adresse :<\/em><\/p>\n

.mail admins-irc@espace-win.org<\/p>\n

Vous pouvez \u00e9galement pr\u00e9ciser l’objet directement dans la commande .mail :<\/em><\/p>\n

.mail techs@espace-win.org Merci pour ce script<\/p>\n

Si pas ce sera la premi\u00e8re ligne que vous demandera le script.<\/em><\/p>\n

Code source<\/h3>\n

Si vous souhaitez impl\u00e9manter ce script dans un autre interpr\u00e9tateur TCL qu’un eggdrop, pensez que control ouvre un mode sp\u00e9cial o\u00f9 toutes les entr\u00e9es utilisateur sont renvoy\u00e9es \u00e0 la proc enregistrer_mail.<\/p>\n

Pensez \u00e9galement \u00e0 supprimer getuserinfo $idx email ou \u00e0 le remplacer par le mail de l’exp\u00e9diteur.<\/p>\n

bind dcc - mail dcc:mail proc<\/span> dcc:mail {<\/span>handle idx arg}<\/span> {<\/span>         global<\/span> mail special         if<\/span> {<\/span>$arg<\/span> == \"\"<\/span>}<\/span> {<\/span>             putdcc $idx<\/span> \"## Syntaxe : .mail \"<\/span>             return<\/span>         }<\/span> elseif<\/span> {<\/span>[<\/span>validuser [<\/span>lindex<\/span> $arg<\/span> 0<\/span>]<\/span>]<\/span>}<\/span> {<\/span>             set<\/span> mail(<\/span>$idx<\/span>-to)<\/span> [<\/span>getuserinfo [<\/span>lindex<\/span> $arg<\/span> 0<\/span>]<\/span> email]<\/span>         }<\/span> elseif<\/span> {<\/span>[<\/span>regexp<\/span> {<\/span>^[<\/span>A-Za-z0-9<\/span>._-]<\/span>+@[<\/span>[<\/span>A-Za-z0-9<\/span>.-]<\/span>+$}<\/span> [<\/span>lindex<\/span> $arg<\/span> 0<\/span>]<\/span>]<\/span>}<\/span> {<\/span>             set<\/span> mail(<\/span>$idx<\/span>-to)<\/span> [<\/span>lindex<\/span> $arg<\/span> 0<\/span>]<\/span>         }<\/span> else<\/span> {<\/span>             putdcc $idx<\/span> \"Destinataire invalide : [lindex $arg 0]\"<\/span>             return<\/span>         }<\/span>         set<\/span> mail(<\/span>$idx<\/span>)<\/span> \"\"<\/span>         putdcc $idx<\/span> \"\u0000<\/span>02Alors, que d\u00e9sires tu envoyer comme mail ?\u0000<\/span>02\"<\/span>         putdcc $idx<\/span> \"Pour envoyer l'e-mail, entre une ligne ne contenant que ceci: \u0000<\/span>02+\u0000<\/span>02\"<\/span>         putdcc $idx<\/span> \"Pour annuler l'e-mail, entre une ligne ne contenant que ceci: \u0000<\/span>02-\u0000<\/span>02\"<\/span>         set<\/span> mail(<\/span>$idx<\/span>-subject)<\/span> [<\/span>truncate_first_word $arg<\/span>]<\/span>         if<\/span> {<\/span>$mail<\/span>(<\/span>$idx<\/span>-subject)<\/span> == \"\"<\/span>}<\/span> {<\/span>             putdcc $idx<\/span> \"\u0000<\/span>02Objet :\u0000<\/span>02\"<\/span>         }<\/span> else<\/span> {<\/span>             putdcc $idx<\/span> \"\u0000<\/span>02Message :\u0000<\/span>02\"<\/span>         }<\/span>         control $idx<\/span> enregistrer_mail         dccbroadcast \"Tiens, $handle est parti r\u00e9diger un mail ...\"<\/span> }<\/span> proc<\/span> enregistrer_mail {<\/span>idx texte}<\/span> {<\/span>         global<\/span> mail special         if<\/span> {<\/span>$texte<\/span> == \"+\"<\/span>}<\/span> {<\/span>                 mail.send $mail<\/span>(<\/span>$idx<\/span>-to)<\/span> $mail<\/span>(<\/span>$idx<\/span>-subject)<\/span> $mail<\/span>(<\/span>$idx<\/span>)<\/span> [<\/span>getuserinfo $idx<\/span> email]<\/span>                 unset mail(<\/span>$idx<\/span>)<\/span>                 putdcc $idx<\/span> \"Envoy\u00e9 :-)\"<\/span>                 dccbroadcast \"Et, hop, un mail d'envoy\u00e9 pour [idx2hand $idx] :)\"<\/span>                 set<\/span> special(<\/span>$idx<\/span>)<\/span> noinfoline                 return<\/span> 1<\/span>         }<\/span> elseif<\/span> {<\/span>$texte<\/span> == \"-\"<\/span>}<\/span> {<\/span>                 unset potin(<\/span>$idx<\/span>)<\/span>                 dccbroadcast \"[idx2hand $idx] vient de changer d'avis et revient.\"<\/span>                 putdcc $idx<\/span> \"Ok, le mail a \u00e9t\u00e9 annul\u00e9: retour au party line !\"<\/span>                 set<\/span> special(<\/span>$idx<\/span>)<\/span> noinfoline                 return<\/span> 1<\/span>         }<\/span> elseif<\/span> {<\/span>$mail<\/span>(<\/span>$idx<\/span>-subject)<\/span> == \"\"<\/span>}<\/span> {<\/span>                 set<\/span> mail(<\/span>$idx<\/span>-subject)<\/span> $texte<\/span>                 putdcc $idx<\/span> \"\u0000<\/span>02Message :\u0000<\/span>02\"<\/span>         }<\/span> else<\/span> {<\/span>                 regsub<\/span> -all {<\/span>\\}<\/span> $texte<\/span> \"\\<\/span>\\<\/span>\\<\/span>\"<\/span> texte                 regsub<\/span> -all \"'\"<\/span> $texte<\/span> \"\\<\/span>'\"<\/span> texte                 append<\/span> mail(<\/span>$idx<\/span>)<\/span> \"n<\/span>$texte\"<\/span>         }<\/span> }<\/span> ##########################################################################<\/span> # Proc utilis\u00e9es par ce script                                           #<\/span> ##########################################################################<\/span> proc<\/span> mail.send {<\/span>to objet message {<\/span>from {<\/span>}<\/span>}<\/span>}<\/span> {<\/span>         if<\/span> {<\/span>$from<\/span> != \"\"<\/span>}<\/span> {<\/span>                 set<\/span> headers \"-a \"<\/span>From: $from\"<\/span>\"<\/span>         }<\/span> else<\/span> {<\/span>                 set<\/span> headers \"\"<\/span>         }<\/span>         set<\/span> fd [<\/span>open<\/span> \"|mail $headers -s \"<\/span>$objet\"<\/span> $to\"<\/span> \"w\"<\/span>]<\/span>         puts<\/span> $fd<\/span> \"$message\"<\/span>         flush<\/span> $fd<\/span>         close<\/span> $fd<\/span> }<\/span> ##########################################################################<\/span> # Renvoie <chaine> sans le premier mot                                   #<\/span> # Substitut \u00e0 lrange $chaine 1 end                                       #<\/span> ##########################################################################<\/span> proc<\/span> truncate_first_word {<\/span>chaine}<\/span> {<\/span>         set<\/span> pos [<\/span>expr<\/span> [<\/span>string<\/span> first \" \"<\/span> $chaine<\/span>]<\/span> + 1<\/span>]<\/span>         if<\/span> {<\/span>$pos<\/span> == 0<\/span>}<\/span> return<\/span>         string<\/span> range $chaine<\/span> $pos<\/span> end }<\/span>  <\/pre>\n","protected":false},"excerpt":{"rendered":"
Nouvelle fonction dans SurfBoard, .mail <destinataire> [objet]<\/p>\n
\"\"<\/p>\n
Voici son mode d’emploi ainsi que le code source, sous license BSD.<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-74","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"_links":{"self":[{"href":"https:\/\/www.dereckson.be\/blog\/wp-json\/wp\/v2\/posts\/74","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.dereckson.be\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.dereckson.be\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.dereckson.be\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.dereckson.be\/blog\/wp-json\/wp\/v2\/comments?post=74"}],"version-history":[{"count":0,"href":"https:\/\/www.dereckson.be\/blog\/wp-json\/wp\/v2\/posts\/74\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.dereckson.be\/blog\/wp-json\/wp\/v2\/media?parent=74"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.dereckson.be\/blog\/wp-json\/wp\/v2\/categories?post=74"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.dereckson.be\/blog\/wp-json\/wp\/v2\/tags?post=74"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}