Newsgroup: it.comp.software.newsreader
Titolo: [Hamster] Aiuto script per inserimento automatico headers

[X-POST E FOLLOWUP-TO su it.comp.software.newsreader]
Come da oggetto avrei bisogno di un aiuto per uno script di Hamster che
"elimini una riga di header (quella relativa all'X-Mailer) e la
sostituisca con due righe da me scritte per la posta in uscita".
Praticamente mi sono rotto le scatole di farlo a mano ma non so scrivere
script e non vorrei starci 2 notti sopra e magari non concludere niente,
Qualcuno sa se si può fare e se ci sono siti con script "precompilati"
di questo genere? Grazie anticipatamente per l'aiuto,
-- 
Fr3ddie
fr3...@despammed.com
PGP Public Key available on demand
"Da un grande uomo c'è qualcosa da imparare anche quando tace"
Lucio Anneo Seneca

 anticipatamente per l'aiuto, 
Credo che tu ti riferisca alle mail in uscita da hamster, ma il 
ragionamento con qualche modifica vale anche per le mail in ingresso 
(anche se ha meno senso..).
Eccoti lo script, devi inserirlo come processo in automazioni->posta
uscente
----mailout.hsc----
#!hs2
#!load hamster.hsm
#!load hmessage.hsm
#!load hstrings.hsm
var($Message)
var($xFile)
var($cFromField)
var($cTo)
$Message   = ListAlloc
$xFile     = paramStr(2)
ListLoad( $Message, $xFile  )
# Estraggo ora il solo valore del campo FROM:
$cFromField = MsgGetHeader( $Message, "From:" )
# Estraggo ora il solo valore del campo TO:
$cTo = MsgGetHeader( $Message, "TO:" )
# Aggiungo una linea di log per il messaggio da inviare
AddLog("Invio del messaggio: " + $xFile , 5, 0)
AddLog("From: " + $cFromField , 5, 0)
AddLog("To: " + $cTo, 5, 0)
MsgDelHeader( $Message, "X-Mailer:","
x-privat.org
 Gate Mail Server")
MsgSetHeader( $Message, "X-header mio:","quello che mi pare")
ListSave( $Message, $xFile )
# creo una copia di backup del messaggio inviato e modificato
ListSave( $Message, $xFile+".bak" )
# Libero memoria
ListFree($Message)
# Controllo che tutto sia andato ok e che vi siano realmente msg
# da inviare
If (FileExists (HamMailsOutPath + "*.msg"))
   hamSendMail ( "
mail.mioprovider.com
" )
EndIf
 
quit
----EOF mailout.hsc----
ciao
-- 
X-Planet Web Community	| 
www.x-planet.org
News Server			| 
news.x-privat.org
Ftp  Server			| 
ftp.x-freedom.org

 uscente
Ecco ho provato ma non mi funziona :o(( Ora te lo riscrivo qui sotto e
mi dici se ho fatto qualche cavolata:
----mailout.hsc----
#!hs2
#!load hamster.hsm
#!load hmessage.hsm
#!load hstrings.hsm
var($Message)
var($xFile)
var($cFromField)
var($cTo)
$Message   = ListAlloc
$xFile     = paramStr(2)
ListLoad( $Message, $xFile  )
# Estraggo ora il solo valore del campo FROM:
$cFromField = MsgGetHeader( $Message, "From:" )
# Estraggo ora il solo valore del campo TO:
$cTo = MsgGetHeader( $Message, "TO:" )
# Aggiungo una linea di log per il messaggio da inviare
AddLog("Invio del messaggio: " + $xFile , 5, 0)
AddLog("From: " + $cFromField , 5, 0)
AddLog("To: " + $cTo, 5, 0)
MsgDelHeader( $Message, "X-Mailer:","Forte Agent 1.93/32.576 English
(American)")
MsgSetHeader( $Message, "X-Mailer:","cavoli varii")
MsgSetHeader( $Message, "X-Powered-By:","Hamster Classic v.2.0.0.0")
ListSave( $Message, $xFile )
# creo una copia di backup del messaggio inviato e modificato
ListSave( $Message, $xFile+".bak" )
# Libero memoria
ListFree($Message)
# Controllo che tutto sia andato ok e che vi siano realmente msg
# da inviare
If (FileExists (HamMailsOutPath + "*.msg"))
   hamSendMail ( "mail.mioproviderchehoinserito correttamente" )
EndIf
 
quit
----EOF mailout.hsc----
Ho inserito lo script in "configurazione->>automazione-->posta in
uscita" come mi avevi detto con la path e il nome del file.hsc e
spuntata "aspetta il termine dello script" ma non mi modifica nulla,
sicuramente ho fatto qualche cavolata io, mi sapresti dire con queste
informazioni dove č l'errore?
Grazie ancora se riesco a risolvere ho svoltato ;o)
-- 
Fr3ddie
fr3...@despammed.com
PGP Public Key available on demand
"La felicita' di un uomo dipende dalle donne che non
ha sposato"
(Oscar Wilde)

Ecco più precisamente mi dà questi errori (dopo aver tolto le linee
-------mailout.hsc-------, etc.., che avevo erroneamente lasciate):
2003-02-23 16:11:25 {428} Error in line 27 of script-file "Headers.hsc"
2003-02-23 16:11:25 {428} Error 7: Too many parameters: msgdelheader
[THscParsedFunc]
2003-02-23 16:11:25 {428} Error-line: MsgDelHeader( $Message,
"X-Mailer:","Forte Agent 1.93/32.576 English (American)")
-- 
Fr3ddie
fr3...@despammed.com
PGP Public Key available on demand
"Una volta che avrete conosciuto il volo, camminerete sulla Terra
guardando al cielo, perché là siete stati e là desiderate tornare"
(Leonardo da Vinci)

 posta in uscita". 
errata corrige:
sostituisci 
MsgDelHeader( $Message, "X-Mailer:","
x-privat.org
 Gate Mail Server")
con:
MsgDelHeader( $Message, "X-Mailer:")


 ha scritto:
Grazie ancora ho capito da solo l'errore (sono un po' lento in
programmazione ;o)) ed ora va tutto bene.
Nel caso servisse a qualcun altro l'errore era nella riga:
MsgDelHeader( $Message, "Header a scelta:")
che deve essere scritto proprio cosě com'č qui sopra.
Grazie ancora Dmitri,
-- 
Fr3ddie
fr3...@despammed.com
PGP Public Key available on demand
"Da un grande uomo c'č qualcosa da imparare anche quando tace"
Lucio Anneo Seneca

 MsgDelHeader( $Message, "X-Mailer:")
Azz me ne sono accorto pochi secondi prima di scaricare questo tuo post!
;o))))
Grazie comunque,


 [THscParsedFunc]
Avevo riportato una errata corrige dello script per un miop errore di 
trascrizione, ma forse non hai letto :((
cmq l'errore è in msgdelheader che semplicemente deve essere:
MsgDelHeader( $Message, "X-Mailer:")
senza campi aggiuntivi. Riprova e vedrai che funziona perfettamente, è 
uno script che uso abitualmente sul mio server.


 Grazie comunque,
nulla :) ciao


 sostituisca con due righe da me scritte per la posta in uscita".
Prova con Korrnews. Lo trovi sul sito di Hamster, 
www.tglsoft.de