🚀 go-pugleaf

A certain Enrico C, of it.test, writes:

> A certain Antonio 'Gandalf' Favata, of it.test, writes:

>> it.test ~ 4/10/2003 16.39 ~ Enrico C:

>>> àòàòàòàòàòàòàòàòàòàò�

>> Ti stai sballando eh? :P

> Festeggiavo per le ultime novita` di Dialog ;)))

Ma non ti sfugge niente, eh? :)

In realta` stavo testando le 4 righe in croce di verifica del charset
nello script delle news in uscita.
Con le modifiche in Dialog probabilmente non ce ne sara` piu` bisogno,
comunque potrebbe sempre tornare utile per i momenti di distrazione :)

Adesso, se il charset e` UTF-8 lo script avverte e chiede se vuoi
annullare l'invio.
Se dai l'OK entro 60 secondi, il campo Newsgroups viene sovrascritto
con un gruppo locale che hai specificato, di default "internal.misc".
Il tutto funziona perfettamente quando provo sui gruppi locali
(ovviamente, dopo aver impostato l'automazione anche per loro).

Per esempio, invio sul gruppo locale pluto.cuccia , se il mex e` UTF-8
scatta l'avviso, e se scelgo di annulare il mex viene dirottato su
internal.misc

Se pero` il mex e` diretto verso l'esterno, e chiedo di annullare
l'invio in UTF-8, il newsgroup viene sovrascritto con internal.misc
ma resta in News in uscita.
In pratica, il messaggio non viene inviato, quindi si blocca lo
stesso, pero` non capisco perche' non venga recapitato a
internal.misc :(

Attualmente nello script per le news in uscita ho qualcosa del genere
(comprende anche i richiami alle sub di AccentateKO, non mi metto a
sperare le due componenti).

Dubbio: sarebbe meglio un solo ArtSave alla fine? Ma cosa succede se
il mex viene spedito comunque mentre lo script e` in attesa della risposta
all'OK, per esempio se capita la sincronizzazione con il timer proprio in
quel momento?


|         #!hs2
|     	#!load hamster.hsm
|         #!load hmessage.hsm
|         #!load hwindows.hsm
| 	
|     	var($Messaggio,$Oggetto,$Body,$Ng,$Charset)    # DEFINISCI LE VARIABILI
| 
|     	varset($InternalGroup, "internal.misc")  ### specificare il NG interno di Hamster dove dirottare i post che si decide di annullare
|     	
|         varset($OK, 0) # AZZERO VAR PER LA FINESTRA DI OK
|  
|         $Messaggio=ArtAlloc   # VARIABILE CON SPAZIO SPECIALE
| 
|     	ArtLoad($Messaggio, paramstr(2))  # CARICA MESSAGGIO IN USCITA O ENTRATA
| 
|         VerificaSeInizioThread # E NEL CASO SOSTITUISCI ACCENTATE NEL SUBJECT
| 
|         VerificaSeForumMClink # E NEL CASO SOSTITUISCI ACCENTATE NELLE RIGHE ORIGINALI
|  
|         ArtDelHeader($Messaggio, "Date") # ELIMINA DATA E ORA DI TUTTI I MEX
|     
|     	ArtSave($Messaggio, paramstr(2))  # SALVA IL MESSAGGIO E RICONSEGNALO
|  
|         # Avverti in caso di Charset UTF-8| 
|         IF RE_Match($Charset, "utf-8") # Verifica se il charset � impostato UTF-8| 
|             $OK=PopUpBox("Stai per inviare un messaggio codificato in UTF-8. Non tutti i newsgroup supportano questa codifica e non tutti i newsreader sono in grado di leggerla! Hai 60 secondi per annullare l'invio. Premi [Ok] per annullare l'invio", "Verifica Charset", 0x00000001, 60)
|                 If($Ok=1) 
|                     ArtSetHeader($Messaggio,"Newsgroups:",$InternalGroup)  # SOSTITUISCI IL NG DI INVIO CON UN NG INTERNO
|                     ArtSave($Messaggio, paramstr(2))  # SALVA IL MESSAGGIO E RICONSEGNALO
|                      MsgBox ("Invio annullato!") # AVVISO 
|                 EndIf
|         EndIf
|         # FINE PROCEDURA CHARSET 
| 
|     	ArtFree($Messaggio)  # LIBERA LA MEMORIA
| 
| 
|         quit  # FINE PROCEDURA PRINCIPALE
| 
| 
|         # SEGUONO LE SUB DI ACCENTATEKO
| 
|     	##### END #####


X-post e F/up > hamster.it.misc


-- 
Enrico C

I say we take off and nuke the site from orbit. 
It's the only way to be sure.