API tools faq
paste
Advertisement
SpliftOn

Spam Filter

SpliftOn
Jul 20th, 2016
109
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.06 KB | None | 0 0
raw download clone embed print report
  1. ********************************************************
  2. * *
  3. * Zen-SpamFilter *
  4. * *
  5. ********************************************************
  6. menu * {
  7. .-
  8. Zen-SpamFilter: dialog -mied Zen-SpamFilter Zen-SpamFilter
  9. }
  10.  
  11. dialog Zen-SpamFilter {
  12. title "Z e n - S p a m f i l t e r"
  13. size -1 -1 271 153
  14. option dbu
  15. button "Q u i t", 20, 192 136 37 12, ok
  16. tab "A j o u t", 26, 0 2 317 192
  17. text "M e s s a g e à i n t e r d i r e :", 22, 3 20 77 8, tab 26
  18. edit "", 23, 83 19 181 10, tab 26
  19. box "S u r q u o i v e u x t u f i l t r e r ? ", 1, 1 36 262 52, tab 26
  20. check " Messages sur un chan", 2, 5 49 67 10, tab 26
  21. check " Mass Notice", 5, 77 49 50 10, tab 26
  22. check " DCC", 8, 137 49 50 10, tab 26
  23. check " Messages en PV", 3, 5 62 50 10, tab 26
  24. check " Part Message", 6, 77 62 50 10, tab 26
  25. check " Message d'Away", 9, 137 62 54 10, tab 26
  26. check " Pseudo host de l'user", 11, 195 49 65 10, tab 26
  27. check " Messages en Notice", 4, 5 75 64 10, tab 26
  28. check " Message de Quit", 7, 77 75 50 10, tab 26
  29. check " Topic", 10, 137 75 50 10, tab 26
  30. box "A c t i o n à a c c o m p l i r ", 12, 2 96 141 54, tab 26
  31. radio " K i l l", 13, 8 105 30 10, tab 26
  32. radio " D C C Block", 16, 51 105 41 10, tab 26
  33. radio " B l o c k", 17, 100 105 35 10, tab 26
  34. radio " S h u n", 14, 8 118 33 10, tab 26
  35. radio " G l i n e", 15, 8 132 34 10, tab 26
  36. text "Durée :", 18, 53 126 25 8, tab 26
  37. edit "", 21, 81 125 50 10, tab 26
  38. text "Raison (sans espaces) :", 24, 150 99 61 8, tab 26
  39. edit "", 25, 209 98 54 10, tab 26
  40. button "A j o u t e r a u S p a m f i l t e r", 19, 167 117 90 12, tab 26
  41. tab "E n l e v e r", 27
  42. list 28, 7 22 254 110, tab 27 size extsel hsbar vsbar
  43. button "E n l e v e r", 29, 129 136 37 12, tab 27
  44. button "R e f r e s h ", 30, 13 136 37 12, tab 27
  45. button "R e c h e r c h e r ", 31, 66 136 46 12, tab 27
  46. }
  47.  
  48. on *:dialog:Zen-SpamFilter:init:*: {
  49. unset %zspfc
  50. unset %zspfpv
  51. unset %zspfpn
  52. unset %zspfcn
  53. unset %zspfp
  54. unset %zspfq
  55. unset %zspfd
  56. unset %zspfa
  57. unset %zspft
  58. unset %zspfu
  59. unset %zspfkill
  60. unset %zspfshun
  61. unset %zspfgline
  62. unset %zspfdccblock
  63. unset %zspfblock
  64. }
  65.  
  66. on *:dialog:Zen-SpamFilter:sclick:2:{
  67. if (%zspfc != c) {
  68. set %zspfc c
  69. }
  70. else {
  71. unset %zspfc
  72. }
  73. }
  74.  
  75. on *:dialog:Zen-SpamFilter:sclick:3:{
  76. if (%zspfpv != p) {
  77. set %zspfpv p
  78. }
  79. else {
  80. unset %zspfpv
  81. }
  82. }
  83.  
  84. on *:dialog:Zen-SpamFilter:sclick:4:{
  85. if (%zspfpn != n) {
  86. set %zspfpn n
  87. }
  88. else {
  89. unset %zspfpn
  90. }
  91. }
  92.  
  93. on *:dialog:Zen-SpamFilter:sclick:5:{
  94. if (%zspfcn != N) {
  95. set %zspfcn N
  96. }
  97. else {
  98. unset %zspfcn
  99. }
  100. }
  101.  
  102. on *:dialog:Zen-SpamFilter:sclick:6:{
  103. if (%zspfp != P) {
  104. set %zspfp P
  105. }
  106. else {
  107. unset %zspfp
  108. }
  109. }
  110.  
  111. on *:dialog:Zen-SpamFilter:sclick:7:{
  112. if (%zspfq != q) {
  113. set %zspfq q
  114. }
  115. else {
  116. unset %zspfq
  117. }
  118. }
  119.  
  120. on *:dialog:Zen-SpamFilter:sclick:8:{
  121. if (%zspfd != d) {
  122. set %zspfd d
  123. }
  124. else {
  125. unset %zspfd
  126. }
  127. }
  128.  
  129. on *:dialog:Zen-SpamFilter:sclick:9:{
  130. if (%zspfa != a) {
  131. set %zspfa a
  132. }
  133. else {
  134. unset %zspfa
  135. }
  136. }
  137.  
  138. on *:dialog:Zen-SpamFilter:sclick:10:{
  139. if (%zspft != t) {
  140. set %zspft t
  141. }
  142. else {
  143. unset %zspft
  144. }
  145. }
  146.  
  147. on *:dialog:Zen-SpamFilter:sclick:11:{
  148. if (%zspfu != u) {
  149. set %zspfu u
  150. }
  151. else {
  152. unset %zspfu
  153. }
  154. }
  155.  
  156. on *:dialog:Zen-SpamFilter:sclick:13:{
  157. if (%zspfkill != kill) {
  158. set %zspfkill kill
  159. unset %zspfshun
  160. unset %zspfgline
  161. unset %zspfdccblock
  162. unset %zspfblock
  163. }
  164. else {
  165. unset %zspfkill
  166. }
  167. }
  168.  
  169. on *:dialog:Zen-SpamFilter:sclick:14:{
  170. if (%zspfshun != shun) {
  171. set %zspfshun shun
  172. unset %zspfkill
  173. unset %zspfgline
  174. unset %zspfdccblock
  175. unset %zspfblock
  176. }
  177. else {
  178. unset %zspfshun
  179. }
  180. }
  181.  
  182. on *:dialog:Zen-SpamFilter:sclick:15:{
  183. if (%zspfgline != gline) {
  184. set %zspfgline gline
  185. unset %zspfkill
  186. unset %zspfshun
  187. unset %zspfdccblock
  188. unset %zspfblock
  189. }
  190. else {
  191. unset %zspfgline
  192. }
  193. }
  194.  
  195. on *:dialog:Zen-SpamFilter:sclick:16:{
  196. if (%zspfdccblock != dccblock) {
  197. set %zspfdccblock dccblock
  198. unset %zspfkill
  199. unset %zspfshun
  200. unset %zspfgline
  201. unset %zspfblock
  202. }
  203. else {
  204. unset %zspfdccblock
  205. }
  206. }
  207.  
  208. on *:dialog:Zen-SpamFilter:sclick:17:{
  209. if (%zspfblock != block) {
  210. set %zspfblock block
  211. unset %zspfkill
  212. unset %zspfshun
  213. unset %zspfgline
  214. unset %zspfdccblock
  215. }
  216. else {
  217. unset %zspfblock
  218. }
  219. }
  220.  
  221. on *:dialog:Zen-SpamFilter:sclick:19:{
  222. if ($len($did(23).text) == 0) {
  223. echo -a 4Tu n'as pas entré le message à interdire
  224. halt
  225. }
  226. if (%zspfc != c) && (%zspfpv != p) && (%zspfpn != n) && (%zspfcn != N) && (%zspfp != P) && (%zspfq != q) && (%zspfd != d) && (%zspfa != a) && (%zspft != t) && (%zspfu != u) {
  227. echo -a 4Tu dois indiquer sur quoi tu veux filtrer (tu peux cocher plusieurs cases)
  228. halt
  229. }
  230. if (%zspfkill != kill) && (%zspfshun != shun) && (%zspfgline != gline) && (%zspfdccblock != dccblock) && (%zspfblock != block) {
  231. echo -a 4Tu dois sélectionner l'action à accomplir
  232. halt
  233. }
  234. if ($len($did(21).text) == 0) {
  235. echo -a 4 Tu dois entrer une durée en précisant l'unité : d jour, h heures, m minutes, s secondes (exemple 1d12h24m10s)
  236. halt
  237. }
  238. if ($len($did(25).text) == 0) {
  239. echo -a 4 Tu n'as pas indiqué la raison ou le texte à afficher
  240. halt
  241. }
  242. echo -a spamfilter add %zspfc $+ %zspfpv $+ %zspfpn $+ %zspfcn $+ %zspfp $+ %zspfq $+ %zspfd $+ %zspfa $+%zspft $+%zspfu $+ $chr(32) %zspfkill %zspfshun %zspfgline %zspfdccblock %zspfblock $did(21).text $did(25).text $did(23).text
  243. spamfilter add %zspfc $+ %zspfpv $+ %zspfpn $+ %zspfcn $+ %zspfp $+ %zspfq $+ %zspfd $+ %zspfa $+ %zspft $+ %zspfu $+ $chr(32) %zspfkill %zspfshun %zspfgline %zspfdccblock %zspfblock $did(21).text $did(25).text $did(23).text
  244. }
  245.  
  246. on *:dialog:Zen-SpamFilter:sclick:29:{
  247. echo -a spamfilter remove $did(28).seltext
  248. spamfilter remove $did(28).seltext
  249. write -c spamfilter.txt
  250. stats f
  251. }
  252.  
  253. on *:dialog:Zen-SpamFilter:sclick:30:{
  254. write -c spamfilter.txt
  255. unset %rechercheon
  256. unset %recherchesp
  257. stats f
  258. }
  259.  
  260. on *:dialog:Zen-SpamFilter:sclick:31:{
  261. if (%rechercheon != on) {
  262. set %recherchesp $$?="Expression à rechercher ?"
  263. set %rechercheon on
  264. write -c spamfilter.txt
  265. dialog -k Zen-Spamfilter
  266. timer 1 1 dialog -mied Zen-Spamfilter Zen-Spamfilter
  267. timer 1 2 did -fu zen-spamfilter 27
  268. timer 1 2 stats f
  269. timerRecherche2 1 6 unset %rechercheon
  270. timerRecherche3 1 6 unset %recherchesp
  271. }
  272. }
  273.  
  274. raw 229:*:{
  275. if (%recherchesp isin $3-) || (%rechercheon != on) {
  276. ; echo -a je suis la
  277. write spamfilter.txt $3 $4 $7 $8 $10-
  278. loadbuf -ro Zen-spamfilter 28 spamfilter.txt
  279. }
  280. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!