Nouvelle fonction dans SurfBoard, .mail <destinataire> [objet]
Voici son mode d’emploi ainsi que le code source, sous license BSD.
Mode d’emploi
Pour envoyer un e-mail à un membre :
.mail dereckson
Pour envoyer un e-mail à une adresse :
.mail admins-irc@espace-win.org
Vous pouvez également préciser l’objet directement dans la commande .mail :
.mail techs@espace-win.org Merci pour ce script
Si pas ce sera la première ligne que vous demandera le script.
Code source
Si vous souhaitez implémanter ce script dans un autre interprétateur TCL qu’un eggdrop, pensez que control ouvre un mode spécial où toutes les entrées utilisateur sont renvoyées à la proc enregistrer_mail.
Pensez également à supprimer getuserinfo $idx email ou à le remplacer par le mail de l’expéditeur.
|
1 |
bind dcc - mail dcc:mail <span style="color: #ff7700;font-weight:bold;">proc</span> dcc:mail <span style="color: black;">{</span>handle idx arg<span style="color: black;">}</span> <span style="color: black;">{</span> <span style="color: #ff7700;font-weight:bold;">global</span> mail special <span style="color: #ff7700;font-weight:bold;">if</span> <span style="color: black;">{</span><span style="color: #ff3333;">$arg</span> == <span style="color: #483d8b;">""</span><span style="color: black;">}</span> <span style="color: black;">{</span> putdcc <span style="color: #ff3333;">$idx</span> <span style="color: #483d8b;">"## Syntaxe : .mail <destinataire>"</span> <span style="color: #ff7700;font-weight:bold;">return</span> <span style="color: black;">}</span> <span style="color: #ff7700;font-weight:bold;">elseif</span> <span style="color: black;">{</span><span style="color: black;">[</span>validuser <span style="color: black;">[</span><span style="color: #008000;">lindex</span> <span style="color: #ff3333;">$arg</span> <span style="color: #ff4500;">0</span><span style="color: black;">]</span><span style="color: black;">]</span><span style="color: black;">}</span> <span style="color: black;">{</span> <span style="color: #ff7700;font-weight:bold;">set</span> mail<span style="color: black;">(</span><span style="color: #ff3333;">$idx</span>-to<span style="color: black;">)</span> <span style="color: black;">[</span>getuserinfo <span style="color: black;">[</span><span style="color: #008000;">lindex</span> <span style="color: #ff3333;">$arg</span> <span style="color: #ff4500;">0</span><span style="color: black;">]</span> email<span style="color: black;">]</span> <span style="color: black;">}</span> <span style="color: #ff7700;font-weight:bold;">elseif</span> <span style="color: black;">{</span><span style="color: black;">[</span><span style="color: #008000;">regexp</span> <span style="color: black;">{</span>^<span style="color: black;">[</span>A-Za-z0<span style="color: #ff4500;">-9</span>._-<span style="color: black;">]</span>+@<span style="color: black;">[</span><span style="color: black;">[</span>A-Za-z0<span style="color: #ff4500;">-9</span>.-<span style="color: black;">]</span>+$<span style="color: black;">}</span> <span style="color: black;">[</span><span style="color: #008000;">lindex</span> <span style="color: #ff3333;">$arg</span> <span style="color: #ff4500;">0</span><span style="color: black;">]</span><span style="color: black;">]</span><span style="color: black;">}</span> <span style="color: black;">{</span> <span style="color: #ff7700;font-weight:bold;">set</span> mail<span style="color: black;">(</span><span style="color: #ff3333;">$idx</span>-to<span style="color: black;">)</span> <span style="color: black;">[</span><span style="color: #008000;">lindex</span> <span style="color: #ff3333;">$arg</span> <span style="color: #ff4500;">0</span><span style="color: black;">]</span> <span style="color: black;">}</span> <span style="color: #ff7700;font-weight:bold;">else</span> <span style="color: black;">{</span> putdcc <span style="color: #ff3333;">$idx</span> <span style="color: #483d8b;">"Destinataire invalide : [lindex $arg 0]"</span> <span style="color: #ff7700;font-weight:bold;">return</span> <span style="color: black;">}</span> <span style="color: #ff7700;font-weight:bold;">set</span> mail<span style="color: black;">(</span><span style="color: #ff3333;">$idx</span><span style="color: black;">)</span> <span style="color: #483d8b;">""</span> putdcc <span style="color: #ff3333;">$idx</span> <span style="color: #483d8b;">"<span style="color: #000099; font-weight: bold;"> </span>02Alors, que désires tu envoyer comme mail ?<span style="color: #000099; font-weight: bold;"> </span>02"</span> putdcc <span style="color: #ff3333;">$idx</span> <span style="color: #483d8b;">"Pour envoyer l'e-mail, entre une ligne ne contenant que ceci: <span style="color: #000099; font-weight: bold;"> </span>02+<span style="color: #000099; font-weight: bold;"> </span>02"</span> putdcc <span style="color: #ff3333;">$idx</span> <span style="color: #483d8b;">"Pour annuler l'e-mail, entre une ligne ne contenant que ceci: <span style="color: #000099; font-weight: bold;"> </span>02-<span style="color: #000099; font-weight: bold;"> </span>02"</span> <span style="color: #ff7700;font-weight:bold;">set</span> mail<span style="color: black;">(</span><span style="color: #ff3333;">$idx</span>-subject<span style="color: black;">)</span> <span style="color: black;">[</span>truncate_first_word <span style="color: #ff3333;">$arg</span><span style="color: black;">]</span> <span style="color: #ff7700;font-weight:bold;">if</span> <span style="color: black;">{</span><span style="color: #ff3333;">$mail</span><span style="color: black;">(</span><span style="color: #ff3333;">$idx</span>-subject<span style="color: black;">)</span> == <span style="color: #483d8b;">""</span><span style="color: black;">}</span> <span style="color: black;">{</span> putdcc <span style="color: #ff3333;">$idx</span> <span style="color: #483d8b;">"<span style="color: #000099; font-weight: bold;"> </span>02Objet :<span style="color: #000099; font-weight: bold;"> </span>02"</span> <span style="color: black;">}</span> <span style="color: #ff7700;font-weight:bold;">else</span> <span style="color: black;">{</span> putdcc <span style="color: #ff3333;">$idx</span> <span style="color: #483d8b;">"<span style="color: #000099; font-weight: bold;"> </span>02Message :<span style="color: #000099; font-weight: bold;"> </span>02"</span> <span style="color: black;">}</span> control <span style="color: #ff3333;">$idx</span> enregistrer_mail dccbroadcast <span style="color: #483d8b;">"Tiens, $handle est parti rédiger un mail ..."</span> <span style="color: black;">}</span> <span style="color: #ff7700;font-weight:bold;">proc</span> enregistrer_mail <span style="color: black;">{</span>idx texte<span style="color: black;">}</span> <span style="color: black;">{</span> <span style="color: #ff7700;font-weight:bold;">global</span> mail special <span style="color: #ff7700;font-weight:bold;">if</span> <span style="color: black;">{</span><span style="color: #ff3333;">$texte</span> == <span style="color: #483d8b;">"+"</span><span style="color: black;">}</span> <span style="color: black;">{</span> mail.send <span style="color: #ff3333;">$mail</span><span style="color: black;">(</span><span style="color: #ff3333;">$idx</span>-to<span style="color: black;">)</span> <span style="color: #ff3333;">$mail</span><span style="color: black;">(</span><span style="color: #ff3333;">$idx</span>-subject<span style="color: black;">)</span> <span style="color: #ff3333;">$mail</span><span style="color: black;">(</span><span style="color: #ff3333;">$idx</span><span style="color: black;">)</span> <span style="color: black;">[</span>getuserinfo <span style="color: #ff3333;">$idx</span> email<span style="color: black;">]</span> unset mail<span style="color: black;">(</span><span style="color: #ff3333;">$idx</span><span style="color: black;">)</span> putdcc <span style="color: #ff3333;">$idx</span> <span style="color: #483d8b;">"Envoyé :-)"</span> dccbroadcast <span style="color: #483d8b;">"Et, hop, un mail d'envoyé pour [idx2hand $idx] :)"</span> <span style="color: #ff7700;font-weight:bold;">set</span> special<span style="color: black;">(</span><span style="color: #ff3333;">$idx</span><span style="color: black;">)</span> noinfoline <span style="color: #ff7700;font-weight:bold;">return</span> <span style="color: #ff4500;">1</span> <span style="color: black;">}</span> <span style="color: #ff7700;font-weight:bold;">elseif</span> <span style="color: black;">{</span><span style="color: #ff3333;">$texte</span> == <span style="color: #483d8b;">"-"</span><span style="color: black;">}</span> <span style="color: black;">{</span> unset potin<span style="color: black;">(</span><span style="color: #ff3333;">$idx</span><span style="color: black;">)</span> dccbroadcast <span style="color: #483d8b;">"[idx2hand $idx] vient de changer d'avis et revient."</span> putdcc <span style="color: #ff3333;">$idx</span> <span style="color: #483d8b;">"Ok, le mail a été annulé: retour au party line !"</span> <span style="color: #ff7700;font-weight:bold;">set</span> special<span style="color: black;">(</span><span style="color: #ff3333;">$idx</span><span style="color: black;">)</span> noinfoline <span style="color: #ff7700;font-weight:bold;">return</span> <span style="color: #ff4500;">1</span> <span style="color: black;">}</span> <span style="color: #ff7700;font-weight:bold;">elseif</span> <span style="color: black;">{</span><span style="color: #ff3333;">$mail</span><span style="color: black;">(</span><span style="color: #ff3333;">$idx</span>-subject<span style="color: black;">)</span> == <span style="color: #483d8b;">""</span><span style="color: black;">}</span> <span style="color: black;">{</span> <span style="color: #ff7700;font-weight:bold;">set</span> mail<span style="color: black;">(</span><span style="color: #ff3333;">$idx</span>-subject<span style="color: black;">)</span> <span style="color: #ff3333;">$texte</span> putdcc <span style="color: #ff3333;">$idx</span> <span style="color: #483d8b;">"<span style="color: #000099; font-weight: bold;"> </span>02Message :<span style="color: #000099; font-weight: bold;"> </span>02"</span> <span style="color: black;">}</span> <span style="color: #ff7700;font-weight:bold;">else</span> <span style="color: black;">{</span> <span style="color: #008000;">regsub</span> -all <span style="color: black;">{</span>\<span style="color: black;">}</span> <span style="color: #ff3333;">$texte</span> <span style="color: #483d8b;">"<span style="color: #000099; font-weight: bold;">\</span><span style="color: #000099; font-weight: bold;">\</span><span style="color: #000099; font-weight: bold;">\</span>"</span> texte <span style="color: #008000;">regsub</span> -all <span style="color: #483d8b;">"'"</span> <span style="color: #ff3333;">$texte</span> <span style="color: #483d8b;">"<span style="color: #000099; font-weight: bold;">\</span>'"</span> texte <span style="color: #008000;">append</span> mail<span style="color: black;">(</span><span style="color: #ff3333;">$idx</span><span style="color: black;">)</span> <span style="color: #483d8b;">"<span style="color: #000099; font-weight: bold;">n</span>$texte"</span> <span style="color: black;">}</span> <span style="color: black;">}</span> <span style="color: #808080; font-style: italic;">##########################################################################</span> <span style="color: #808080; font-style: italic;"># Proc utilisées par ce script #</span> <span style="color: #808080; font-style: italic;">##########################################################################</span> <span style="color: #ff7700;font-weight:bold;">proc</span> mail.send <span style="color: black;">{</span>to objet message <span style="color: black;">{</span>from <span style="color: black;">{</span><span style="color: black;">}</span><span style="color: black;">}</span><span style="color: black;">}</span> <span style="color: black;">{</span> <span style="color: #ff7700;font-weight:bold;">if</span> <span style="color: black;">{</span><span style="color: #ff3333;">$from</span> != <span style="color: #483d8b;">""</span><span style="color: black;">}</span> <span style="color: black;">{</span> <span style="color: #ff7700;font-weight:bold;">set</span> headers <span style="color: #483d8b;">"-a <span style="color: #000099; font-weight: bold;">"</span>From: $from<span style="color: #000099; font-weight: bold;">"</span>"</span> <span style="color: black;">}</span> <span style="color: #ff7700;font-weight:bold;">else</span> <span style="color: black;">{</span> <span style="color: #ff7700;font-weight:bold;">set</span> headers <span style="color: #483d8b;">""</span> <span style="color: black;">}</span> <span style="color: #ff7700;font-weight:bold;">set</span> fd <span style="color: black;">[</span><span style="color: #008000;">open</span> <span style="color: #483d8b;">"|mail $headers -s <span style="color: #000099; font-weight: bold;">"</span>$objet<span style="color: #000099; font-weight: bold;">"</span> $to"</span> <span style="color: #483d8b;">"w"</span><span style="color: black;">]</span> <span style="color: #008000;">puts</span> <span style="color: #ff3333;">$fd</span> <span style="color: #483d8b;">"$message"</span> <span style="color: #008000;">flush</span> <span style="color: #ff3333;">$fd</span> <span style="color: #008000;">close</span> <span style="color: #ff3333;">$fd</span> <span style="color: black;">}</span> <span style="color: #808080; font-style: italic;">##########################################################################</span> <span style="color: #808080; font-style: italic;"># Renvoie <chaine> sans le premier mot #</span> <span style="color: #808080; font-style: italic;"># Substitut à lrange $chaine 1 end #</span> <span style="color: #808080; font-style: italic;">##########################################################################</span> <span style="color: #ff7700;font-weight:bold;">proc</span> truncate_first_word <span style="color: black;">{</span>chaine<span style="color: black;">}</span> <span style="color: black;">{</span> <span style="color: #ff7700;font-weight:bold;">set</span> pos <span style="color: black;">[</span><span style="color: #ff7700;font-weight:bold;">expr</span> <span style="color: black;">[</span><span style="color: #008000;">string</span> first <span style="color: #483d8b;">" "</span> <span style="color: #ff3333;">$chaine</span><span style="color: black;">]</span> + <span style="color: #ff4500;">1</span><span style="color: black;">]</span> <span style="color: #ff7700;font-weight:bold;">if</span> <span style="color: black;">{</span><span style="color: #ff3333;">$pos</span> == <span style="color: #ff4500;">0</span><span style="color: black;">}</span> <span style="color: #ff7700;font-weight:bold;">return</span> <span style="color: #008000;">string</span> range <span style="color: #ff3333;">$chaine</span> <span style="color: #ff3333;">$pos</span> end <span style="color: black;">}</span> |