Newsgroup: it.comp.software.newsreader
Titolo: hamster ver. 2.0 gestione inoltro news

Saluti a tutti i lettori. Non so se è questo il NG giusto, perchè
hamster è un server e non un client per gestire i gruppi di discussione,
ma forse troverò qualcuno bravo, che sa darmi una risposta. Ho creato
sulla rete dell'ufficio dei gruppi di discussione. Ogni messaggio di
news ha sempre almeno un allegato. vorrei poter inoltrare da Outlook
Express, il messaggio che visualizzo, su un altro gruppo. Anche se il
pulsante inoltra è attivo, alla fine non lo inoltra. Ed in più, il
pulsante inoltra non mi inserisce automaticamente l'allegato sul
messaggio originario. 
 
Se invece inoltro il messaggio (e l'allegato) ad un indirizzo di posta
(quindi non ad un gruppo) lo fa e comprende alnche l'allegato. Cosa
dovrei impostare su Hamster, per avere questa funzione di inoltro sui
gruppi?  :-)
 

 ha scritto:

scusate, ho capito che "inoltra" per il gruppo vuol dire "rispondimi su
questo gruppo", quindi niente, non si può fare...
 
 
 

 gruppi?  :-)
 
una soluzione sarebbe far cambiare client agli utenti.
 
alternativamente, si potrebbe allestire un sistema mail2news; es. fare il
forward del messaggio in OE e spedirlo come posta a
internal.prova@hamster, con uno script che lo adatta e pubblica sul gruppo
internal.prova
 
[crosspost]
 
-- 
  np: no song

 gruppi?  :-)
 
Con OE basta trascinare il messaggio sul gruppo che ti fa il forward del
SOLO testo senza il subject (che devi scrivere a manina), se invece usi
Fidolook, aggiunge il subject e allega i file che trova, insomma tutto.
-- 
    * b *
  *   y   *
*   Piero   *
#v+
-errare humanum est-
#v- 
 

 internal.prova
 
l'idea è geniale, ma non so fare lo script :-(  
 
visto che conosci Hamster, potresti dirmi se ha la possibilità di togliere
il limite del crosspost a 5 gruppi? 
grazie :-)
 
 

 Fidolook, aggiunge il subject e allega i file che trova, insomma tutto.
 
quindi niente allegato? provo comunque la cosa, ma a me interessano gli
allegati, grazie e ciao
 

 il limite del crosspost a 5 gruppi? 
 
spero verrà fatto solo tra gruppi interni. dovrebbe essere:
 
MaxUnknownGroupsInRe=N
 
in `hamster.ini', sotto la sezione "[Setup]", con 2 <= N <= 10
 
ciao
 
-- 
  np: no song

 MaxUnknownGroupsInRe=N
 
non c'è questa riga :-(
 
 
 

 tranquillo, è solo per utilizzo interno. vado a vedere la riga
 
se non c'è la puoi aggingere, ma leggendo meglio ho capito che non fa
quello che vuoi. il limite di 5 gruppi è hardcoded, non ci puoi fare
molto.


 virgolette.
 
Dunque devo modificare lo script come lo vedo nelle immagini? 
Per la riga da aggiungere io ci proverei, non dovrei compromettere il
funzionamento del server, o no?
 
ti ringrazio per la tua pazienza
 
ciao
 

 ti ringrazio per la tua pazienza
 
figurati, spero che tu ottenga una configurazione soddisfacente


 figurati, spero che tu ottenga una configurazione soddisfacente
 
dunque, ieri ho inserito lo script modificato che segue:
-------------------
#!load hamster.hsm
 
#!load hmessage.hsm
 
 
 
varset($dest, $break, 0)
 
varset($mex, listalloc)
 
listload($mex, paramstr(2))
 
while(!(re_parse(listget($mex, 0), "^\|\|\s.*:\s+(.*)@hamster$", $dest) _
 
 && hamgroupindex($dest)+1))
 
	break(inc($break, listget($mex, 0)=="")>1)
 
	listdelete($mex, 0)
 
endwhile
 
if($break==1) 
 
	repeat
 
	listdelete($mex, 0)
 
	until(listget($mex, 0)=="")
 
	listset($mex, 0, "Newsgroups: " + $dest)
 
	msgdelheader($mex, "To:")
 
	hamartimport(listgettext($mex), , 1)
 
	hamflush
 
	filedelete(paramstr(2))
 
endif
 
listfree($mex)
--------------------
 
ho provato sia ad applicarlo a "posta interna" che "posta locale". quando provo
ad inviare una email ad note.operative@hamster, già O.E. mi dice di non trovare
una corrispondenza, e non lo invia.
 
Ho provato a far partire lo script, e a questo punto hamster restituisce un
errore. Se vuoi posso ripetere la prova e lo posto.
 
Quelle note sul post a gruppi sconosciuti l'ho trovata anche io, ho provato
anche ad aggiungere quella riga in hamster.ini, niente
 
 
 

 ha scritto:
 
scusami, sarò più preciso, ecco l'errore
 
2011/11/24 08.44.31 {f8c} Error in line 2 of script-file "forw2news.hsc"
2011/11/24 08.44.31 {f8c} Error 15: Module not found: H:\hamster\hmessage.hsm
[THscEngineHamster]
2011/11/24 08.44.31 {f8c} Error-line: #!load hmessage.hsm 
 
mi sbagliavo riguardo l'invio, O.E. manda tranquillamente a
note.operative@hamster, poi lancio lo script manualmente, poi l'errore
l'errore invece di O.E. era colpa mia. inviavo a note.operative.hamster :-(
 
Dunque, il messaggio inviato a note.operative@hamster lo vedo sotto la cartella
dell'account, ma lo script non va
 
ciao
 
 

 2011/11/24 08.44.31 {f8c} Error 15: Module not found: H:\hamster\hmessage.hsm
 
                            non trova il modulo
 
allora controlla che il file sia fisicamente lì (H: - unità esterna?). se
è al suo posto, premi f4 in hamster e controlla che il percorso dei moduli
corrisponda.
 
puoi anche lanciare lo script a mano dopo aver fatto il forward, ma come
configurazione definitiva ti consiglio di automatizzarlo con l'azione
"posta interna" (non altre)
 
 
saluti
 
-- 
  np: no song

 puoi anche lanciare lo script a mano dopo aver fatto il forward
 
naturalmente riadattandolo, al posto di paramstr(2) dovrai dare
l'indirizzo completo del messaggio di mancato invio da elaborare, che
trovi nella la cartella "Mails\admin"
 
-- 
  np: no song

 | #!load hmessage.hsm
 
già, l'unico .hsm che ho si chiama hamster.hsm - mi mandi tu hmessage.hsm? a me
non c'è iw8etd at 
tiscali.it
 
 
il percorso è giusto ho scelto H:\ perché la partizione da 10 Gbyte e dedicata
ad hamster :-)
 

 > puoi anche lanciare lo script a mano dopo aver fatto il forward
 
Ho finalmente inserito Hmessage.hsm e hstrings.hsm. Mancavano entrambi, in
quanto li tolsi io, perché non utilizzati. Adesso non ho più errori e lo script
termina correttamente, solo che mi rimanda il messaggio al POSTMASTER, ti posto
la perte di log interessata, ci dai un'occhiata?
 
2011/11/28 11.41.46 I   {930} Il client 
10.193.12.33:25
 (928) si è connesso
2011/11/28 11.41.46 I   {52c} IP-Access: Treat local IP 10.193.12.33 like 127.0.0.1
2011/11/28 11.41.46 I   {52c} < 220 SMTP-Server Classic Hamster Versione 2.0
(Build 2.0.0.0)
2011/11/28 11.41.46 I   {52c} > HELO hamster
2011/11/28 11.41.46 I   {52c} < 250 helo hamster
2011/11/28 11.41.46 I   {52c} > MAIL FROM: <ad...@hamster.local>
2011/11/28 11.41.46 I   {52c} < 250 OK
2011/11/28 11.41.46 I   {52c} > RCPT TO: <note.urspp@hamster>
2011/11/28 11.41.46 I   {52c} < 250 OK
2011/11/28 11.41.46 I   {52c} > DATA
2011/11/28 11.41.46 I   {52c} < 354 Start mail input; end with <CRLF>.<CRLF>
2011/11/28 11.41.46 I   {52c} Mailrouter: Messaggio di rimbalzo al postmaster
2011/11/28 11.41.46 I   {52c} Tipo azione: mail.internal - Eseguo lo script
"forw2news.hsc", attesa=0.
2011/11/28 11.41.46 Sys {52c} Avvio lo script: forw2news.hsc, Wait=0
2011/11/28 11.41.46 I   {52c} < 250 OK
2011/11/28 11.41.46 Sys {fe8} {script forw2news.hsc} Avvio
2011/11/28 11.41.46 I   {52c} > QUIT
2011/11/28 11.41.46 I   {52c} < 221 closing connection - goodbye!
2011/11/28 11.41.46 I   {52c} Il client 
10.193.12.33:25
 (928) si è disconnesso
2011/11/28 11.41.46 Sys {fe8} {script forw2news.hsc} Terminato
2011/11/28 11.41.46 Sys {b78} Script H:\hamster\forw2news.hsc terminato.
2011/11/28 11.41.47 I   {8dc} Il client 
10.193.12.135:143
 (1428) si è connesso 
------------------ 
 
 
 
 

 POSTMASTER, ti posto la perte di log interessata, ci dai un'occhiata?
 
mi sembra tutto a posto, ho volutamente fatto passare la mail da lě, lo
script riprende il messaggio di errore, lo ripulisce e lo inietta nel
gruppo di destinazione. da te non arriva dove deve?
 
 
-- 
  np: no song

 
no, niente!
 
che intendi fatto passare da lì? che è inoltrato anche ad admin? 
 

 che intendi fatto passare da lė? che č inoltrato anche ad admin?
 
no. l'email inoltrata ha un indirizzo destinatario non valido, quindi genera
un errore e viene inviato un messaggio di avviso ad admin (postmaster di
default). a questo punto l'azione posta interna avvia lo script, che
estrae dall'avviso il messaggio originale e lo posta sul newsgroup.
 
se qualcosa č andato storto, dovresti trovare i messaggi di errore degli
invii precedenti, mi posti l'incipit di uno qualsiasi?
 
 
-- 
  np: no song

 vediamo il log.
 
Eccolo:
 
2011/11/30 13.26.25 I   {7e0} > HELO hamster
2011/11/30 13.26.25 I   {7e0} < 250 helo hamster
2011/11/30 13.26.25 I   {7e0} > MAIL FROM: <ad...@hamster.local>
2011/11/30 13.26.25 I   {7e0} < 250 OK
2011/11/30 13.26.25 I   {7e0} > RCPT TO: <note.urspp@hamster>
2011/11/30 13.26.25 I   {7e0} < 250 OK
2011/11/30 13.26.25 I   {7e0} > DATA
2011/11/30 13.26.25 I   {7e0} < 354 Start mail input; end with <CRLF>.<CRLF>
2011/11/30 13.26.26 I   {7e0} Mailrouter: Messaggio di rimbalzo al postmaster
2011/11/30 13.26.26 I   {7e0} Tipo azione: mail.internal - Eseguo lo script
"forw2news.hsc", attesa=0.
2011/11/30 13.26.26 Sys {7e0} Avvio lo script: forw2news.hsc, Wait=0
2011/11/30 13.26.26 Sys {d8} {script forw2news.hsc} Avvio
2011/11/30 13.26.26 I   {7e0} < 250 OK
2011/11/30 13.26.26 I   {7e0} > QUIT
2011/11/30 13.26.26 I   {7e0} < 221 closing connection - goodbye!
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:16]: debug( 255, "<<<
module 'hamster.hsm' >>>" )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:19]: varset(
$HAM_MSG_HAMSTER_EXIT    , 1 )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:20]: varset(
$HAM_MSG_RESET_COUNTERS  , 2 )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:21]: varset(
$HAM_MSG_LOCALNNTP_ONOFF , 3 )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:22]: varset(
$HAM_MSG_LOCALPOP3_ONOFF , 4 )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:23]: varset(
$HAM_MSG_LOCALSMTP_ONOFF , 5 )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:24]: varset(
$HAM_MSG_SHOWWINDOW      , 6 )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:25]: varset(
$HAM_MSG_SHOWICON        , 7 )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:26]: varset(
$HAM_MSG_STOPALLTASKS    , 8 )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:27]: varset(
$HAM_MSG_RELOADCONFIG    , 9 )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:28]: varset(
$HAM_MSG_RELOADIPACCESS  , 10 )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:31]: Varset($Ham_Debug,1)
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:32]: Varset($Ham_Detail,2)
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:33]: Varset($Ham_Info,3)
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:34]: Varset($Ham_System,4)
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:35]: Varset($Ham_Warning,5)
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:36]: Varset($Ham_Error,6)
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:39]: varset(
$HAM_PURGEOPT_DOALL      , 0xFF )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:40]: varset(
$HAM_PURGEOPT_DONEWS     , 0x01 )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:41]: varset(
$HAM_PURGEOPT_DOHISTORY  , 0x02 )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:42]: varset(
$HAM_PURGEOPT_DOKILLS    , 0x04 )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:43]: varset(
$HAM_PURGEOPT_DOMHISTORY , 0x08 )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:46]:
Varset($JOBPRIO_SRVINFOS, 
2147483646
)
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:47]:
Varset($JOBPRIO_NEWSPOST, 
2147483645
)
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:48]:
Varset($JOBPRIO_GETBYMID, 
2147483644
)
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:49]:
Varset($JOBPRIO_NEWSFEED, 
2147483643
)
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:52]: Varset($JOBTYPE_INVALID,0)
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:53]:
Varset($JOBTYPE_SRVINFOS,1)
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:54]:
Varset($JOBTYPE_NEWSPOST,2)
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:55]:
Varset($JOBTYPE_GETBYMID,3)
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:56]:
Varset($JOBTYPE_NEWSPULL,4)
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:57]:
Varset($JOBTYPE_NEWSFEED,5)
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:60]: varset( $HAM_EV_MAIN 
          , "_main" )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:61]: varset(
$HAM_EV_MAILOUT         , "_mailout" )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:62]: varset(
$HAM_EV_MAILINTERNAL    , "_mailinternal" )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:63]: varset( $HAM_EV_MAILIN
         , "_mailin" )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:64]: varset(
$HAM_EV_NEWSOUT         , "_newsout" )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:65]: varset(
$HAM_EV_RASCONNECTED    , "_rasconnected" )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:66]: varset(
$HAM_EV_RASHANGUP       , "_rashangup" )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:69]: varset(
$HAM_WAITIDLE_INFINITE   , -1 )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hamster.hsm:71]: return( 0 )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hstrings.hsm:15]: debug( 255, "<<<
module 'hstrings.hsm' >>>" )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hstrings.hsm:16]: varset( $CRLF ,
chr(13) + chr(10) )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hstrings.hsm:17]: varset( $WSP  ,
chr(32) + chr( 9) )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hstrings.hsm:18]: varset( $NULL , chr(
0x00 ) )  # Null
2011/11/30 13.26.26 I   {d8} [H:\hamster\hstrings.hsm:19]: varset( $TAB  , chr(
0x09 ) )  # Horizontal Tab
2011/11/30 13.26.26 I   {d8} [H:\hamster\hstrings.hsm:20]: varset( $LF  , chr(
0x0A ) )  # Line Feed
2011/11/30 13.26.26 I   {d8} [H:\hamster\hstrings.hsm:21]: varset( $VTAB , chr(
0x0B ) )  # Vertical Tab
2011/11/30 13.26.26 I   {d8} [H:\hamster\hstrings.hsm:22]: varset( $FF  , chr(
0x0C ) )  # Form Feed
2011/11/30 13.26.26 I   {d8} [H:\hamster\hstrings.hsm:23]: varset( $CR  , chr(
0x0D ) )  # Cursor Return
2011/11/30 13.26.26 I   {d8} [H:\hamster\hstrings.hsm:24]: varset( $ESC  , chr(
0x1B ) )  # Escape Char
2011/11/30 13.26.26 I   {d8} [H:\hamster\hstrings.hsm:25]: return( 0 )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:17]: debug( 255, "<<<
module 'hmessage.hsm' >>>" )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:19]: return( 0 )
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:1]: #!load hamster.hsm
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:2]: #!load hmessage.hsm
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:3]: #!trace 1
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:4]: varset($dest, $break, 0)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:5]: varset($mex, listalloc)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:6]: listload($mex, paramstr(2))
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:10]: listdelete($mex, 0)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:11]: endwhile
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:10]: listdelete($mex, 0)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:11]: endwhile
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:10]: listdelete($mex, 0)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:11]: endwhile
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:10]: listdelete($mex, 0)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:11]: endwhile
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:10]: listdelete($mex, 0)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:11]: endwhile
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:10]: listdelete($mex, 0)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:11]: endwhile
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:10]: listdelete($mex, 0)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:11]: endwhile
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:10]: listdelete($mex, 0)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:11]: endwhile
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:10]: listdelete($mex, 0)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:11]: endwhile
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:10]: listdelete($mex, 0)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:11]: endwhile
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:10]: listdelete($mex, 0)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:11]: endwhile
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:10]: listdelete($mex, 0)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:11]: endwhile
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:10]: listdelete($mex, 0)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:11]: endwhile
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:10]: listdelete($mex, 0)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:11]: endwhile
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:11]: endwhile
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:12]: if($break==1)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:13]: repeat
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:14]: listdelete($mex, 0)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:15]: until(listget($mex, 0)=="")
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:13]: repeat
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:14]: listdelete($mex, 0)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:15]: until(listget($mex, 0)=="")
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:16]: listset($mex, 0, "Newsgroups: "
+ $dest)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:17]: msgdelheader($mex, "To:")
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:114]: sub MsgDelHeader(
$Msg, $HdrNam )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:115]: var( $HdrVal, $Idx,
$i, $s )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:118]: $Idx =
MsgIndexOfHeader( $Msg, $HdrNam )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:45]: sub MsgIndexOfHeader(
$Msg, $HdrNam )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:46]: var( $i, $Idx )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:48]: $Idx = -1
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:49]: $i = 0
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:50]: $HdrNam = LowerCase(
$HdrNam )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:52]: while( $i <
ListCount($Msg) )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:53]: break(
ListGet($Msg,$i) = "" ) # end of header
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:54]: if( $HdrNam =
LowerCase( MsgHeadernameOfIndex( $Msg, $i ) ) )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:29]: sub
MsgHeadernameOfIndex( $Msg, $Idx )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:30]: var( $s, $i )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:31]: $s = ListGet( $Msg,
$Idx )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:32]: $i = Pos( ":", $s )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:33]: $s = iif( $i>0,
copy($s,1,$i), "" )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:34]: return( $s )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:57]: endif
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:59]: inc( $i )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:60]: endwhile
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:52]: while( $i <
ListCount($Msg) )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:53]: break(
ListGet($Msg,$i) = "" ) # end of header
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:54]: if( $HdrNam =
LowerCase( MsgHeadernameOfIndex( $Msg, $i ) ) )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:29]: sub
MsgHeadernameOfIndex( $Msg, $Idx )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:30]: var( $s, $i )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:31]: $s = ListGet( $Msg,
$Idx )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:32]: $i = Pos( ":", $s )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:33]: $s = iif( $i>0,
copy($s,1,$i), "" )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:34]: return( $s )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:57]: endif
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:59]: inc( $i )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:60]: endwhile
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:52]: while( $i <
ListCount($Msg) )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:53]: break(
ListGet($Msg,$i) = "" ) # end of header
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:54]: if( $HdrNam =
LowerCase( MsgHeadernameOfIndex( $Msg, $i ) ) )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:29]: sub
MsgHeadernameOfIndex( $Msg, $Idx )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:30]: var( $s, $i )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:31]: $s = ListGet( $Msg,
$Idx )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:32]: $i = Pos( ":", $s )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:33]: $s = iif( $i>0,
copy($s,1,$i), "" )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:34]: return( $s )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:57]: endif
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:59]: inc( $i )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:60]: endwhile
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:52]: while( $i <
ListCount($Msg) )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:53]: break(
ListGet($Msg,$i) = "" ) # end of header
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:54]: if( $HdrNam =
LowerCase( MsgHeadernameOfIndex( $Msg, $i ) ) )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:29]: sub
MsgHeadernameOfIndex( $Msg, $Idx )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:30]: var( $s, $i )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:31]: $s = ListGet( $Msg,
$Idx )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:32]: $i = Pos( ":", $s )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:33]: $s = iif( $i>0,
copy($s,1,$i), "" )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:34]: return( $s )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:57]: endif
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:59]: inc( $i )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:60]: endwhile
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:52]: while( $i <
ListCount($Msg) )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:53]: break(
ListGet($Msg,$i) = "" ) # end of header
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:54]: if( $HdrNam =
LowerCase( MsgHeadernameOfIndex( $Msg, $i ) ) )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:29]: sub
MsgHeadernameOfIndex( $Msg, $Idx )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:30]: var( $s, $i )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:31]: $s = ListGet( $Msg,
$Idx )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:32]: $i = Pos( ":", $s )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:33]: $s = iif( $i>0,
copy($s,1,$i), "" )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:34]: return( $s )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:57]: endif
2011/11/30 13.26.26 I   {7e0} Il client 
10.193.12.33:25
 (1140) si è disconnesso
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:59]: inc( $i )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:60]: endwhile
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:52]: while( $i <
ListCount($Msg) )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:53]: break(
ListGet($Msg,$i) = "" ) # end of header
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:54]: if( $HdrNam =
LowerCase( MsgHeadernameOfIndex( $Msg, $i ) ) )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:29]: sub
MsgHeadernameOfIndex( $Msg, $Idx )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:30]: var( $s, $i )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:31]: $s = ListGet( $Msg,
$Idx )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:32]: $i = Pos( ":", $s )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:33]: $s = iif( $i>0,
copy($s,1,$i), "" )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:34]: return( $s )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:57]: endif
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:59]: inc( $i )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:60]: endwhile
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:52]: while( $i <
ListCount($Msg) )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:53]: break(
ListGet($Msg,$i) = "" ) # end of header
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:54]: if( $HdrNam =
LowerCase( MsgHeadernameOfIndex( $Msg, $i ) ) )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:29]: sub
MsgHeadernameOfIndex( $Msg, $Idx )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:30]: var( $s, $i )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:31]: $s = ListGet( $Msg,
$Idx )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:32]: $i = Pos( ":", $s )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:33]: $s = iif( $i>0,
copy($s,1,$i), "" )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:34]: return( $s )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:55]: $Idx = $i
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:56]: break
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:60]: endwhile
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:62]: return( $Idx )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:121]: if( $Idx >= 0 )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:122]: ListDelete( $Msg, $Idx )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:123]: do
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:124]: $s = copy( ListGet(
$Msg, $Idx ), 1, 1 )
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:125]: break(
Pos($s,$WSP)=0 ) # 1st char=WSP?
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:127]: loop
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:128]: endif
2011/11/30 13.26.26 I   {d8} [H:\hamster\hmessage.hsm:131]: return( $Idx )
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:18]: hamartimport(listgettext($mex),
, 1)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:19]: hamflush
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:20]: filedelete(paramstr(2))
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:21]: endif
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:22]: listfree($mex)
2011/11/30 13.26.26 I   {d8} [forw2news.hsc:23]: quit
2011/11/30 13.26.26 Sys {d8} {script forw2news.hsc} Terminato
2011/11/30 13.26.26 Sys {b78} Script H:\hamster\forw2news.hsc terminato.
 
----- fine ----------
 
 
 

> #!trace 1
 
ok, ancora una volta sembrerebbe filare tutto liscio. adesso togli il
trace e fai queste modifiche allo script:
 
[...]
 
inserisci
 
print($dest)
 
prima di
 
repeat
 
[...]
 
cambia 
 
hamartimport(listgettext($mex)
 
in
 
print(hamartimport(listgettext($mex))
 
[...]
 
filedelete(paramstr(2))
 
diventa
 
# filedelete(paramstr(2))
 
 
 
altra prova, posta il log


 ciao
 
Lunedě provo, ciao

 altra prova, posta il lo
 
allora, ho cambiato come hai suggerito. Ho inviato a note.urspp@hamster e
newsgroups@hamster
al primo indirizzo arriva, al secondo no! qualcosa inizia a funzionare, ma lo
scopo come sai ï¿œ di bypassare il limite di crosspost di 5 gruppi.
 
2011/12/05 16.02.04 I   {e58} IP-Access: Treat local IP 10.193.12.33 like 127.0.0.1
2011/12/05 16.02.04 I   {e58} Il client 
10.193.12.33:25
 (948) si ï¿œ connesso
2011/12/05 16.02.04 I   {ab4} IP-Access: Treat local IP 10.193.12.33 like 127.0.0.1
2011/12/05 16.02.04 I   {ab4} < 220 SMTP-Server Classic Hamster Versione 2.0
(Build 2.0.0.0)
2011/12/05 16.02.04 I   {ab4} > HELO hamster
2011/12/05 16.02.04 I   {ab4} < 250 helo hamster
2011/12/05 16.02.04 I   {ab4} > MAIL FROM: <ad...@hamster.local>
2011/12/05 16.02.04 I   {ab4} < 250 OK
2011/12/05 16.02.04 I   {ab4} > RCPT TO: <note.urspp@hamster>
2011/12/05 16.02.04 I   {ab4} < 250 OK
2011/12/05 16.02.04 I   {ab4} > RCPT TO: <newsgroups@hamster>
2011/12/05 16.02.04 I   {ab4} < 250 OK
2011/12/05 16.02.04 I   {ab4} > DATA
2011/12/05 16.02.04 I   {ab4} < 354 Start mail input; end with <CRLF>.<CRLF>
2011/12/05 16.02.04 I   {ab4} Mailrouter: Messaggio di rimbalzo al postmaster
2011/12/05 16.02.04 I   {ab4} Tipo azione: mail.internal - Eseguo lo script
"forw2news.hsc", attesa=0.
2011/12/05 16.02.04 Sys {ab4} Avvio lo script: forw2news.hsc, Wait=0
2011/12/05 16.02.04 I   {ab4} < 250 OK
2011/12/05 16.02.04 Sys {5bc} {script forw2news.hsc} Avvio
2011/12/05 16.02.04 I   {ab4} > QUIT
2011/12/05 16.02.04 I   {ab4} < 221 closing connection - goodbye!
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:16]: debug( 255, "<<<
module 'hamster.hsm' >>>" )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:19]: varset(
$HAM_MSG_HAMSTER_EXIT    , 1 )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:20]: varset(
$HAM_MSG_RESET_COUNTERS  , 2 )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:21]: varset(
$HAM_MSG_LOCALNNTP_ONOFF , 3 )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:22]: varset(
$HAM_MSG_LOCALPOP3_ONOFF , 4 )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:23]: varset(
$HAM_MSG_LOCALSMTP_ONOFF , 5 )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:24]: varset(
$HAM_MSG_SHOWWINDOW      , 6 )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:25]: varset(
$HAM_MSG_SHOWICON        , 7 )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:26]: varset(
$HAM_MSG_STOPALLTASKS    , 8 )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:27]: varset(
$HAM_MSG_RELOADCONFIG    , 9 )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:28]: varset(
$HAM_MSG_RELOADIPACCESS  , 10 )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:31]: Varset($Ham_Debug,1)
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:32]: Varset($Ham_Detail,2)
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:33]: Varset($Ham_Info,3)
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:34]: Varset($Ham_System,4)
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:35]: Varset($Ham_Warning,5)
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:36]: Varset($Ham_Error,6)
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:39]: varset(
$HAM_PURGEOPT_DOALL      , 0xFF )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:40]: varset(
$HAM_PURGEOPT_DONEWS     , 0x01 )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:41]: varset(
$HAM_PURGEOPT_DOHISTORY  , 0x02 )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:42]: varset(
$HAM_PURGEOPT_DOKILLS    , 0x04 )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:43]: varset(
$HAM_PURGEOPT_DOMHISTORY , 0x08 )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:46]:
Varset($JOBPRIO_SRVINFOS, 
2147483646
)
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:47]:
Varset($JOBPRIO_NEWSPOST, 
2147483645
)
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:48]:
Varset($JOBPRIO_GETBYMID, 
2147483644
)
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:49]:
Varset($JOBPRIO_NEWSFEED, 
2147483643
)
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:52]:
Varset($JOBTYPE_INVALID,0)
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:53]:
Varset($JOBTYPE_SRVINFOS,1)
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:54]:
Varset($JOBTYPE_NEWSPOST,2)
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:55]:
Varset($JOBTYPE_GETBYMID,3)
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:56]:
Varset($JOBTYPE_NEWSPULL,4)
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:57]:
Varset($JOBTYPE_NEWSFEED,5)
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:60]: varset( $HAM_EV_MAIN
           , "_main" )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:61]: varset(
$HAM_EV_MAILOUT         , "_mailout" )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:62]: varset(
$HAM_EV_MAILINTERNAL    , "_mailinternal" )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:63]: varset(
$HAM_EV_MAILIN          , "_mailin" )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:64]: varset(
$HAM_EV_NEWSOUT         , "_newsout" )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:65]: varset(
$HAM_EV_RASCONNECTED    , "_rasconnected" )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:66]: varset(
$HAM_EV_RASHANGUP       , "_rashangup" )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:69]: varset(
$HAM_WAITIDLE_INFINITE   , -1 )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hamster.hsm:71]: return( 0 )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hstrings.hsm:15]: debug( 255, "<<<
module 'hstrings.hsm' >>>" )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hstrings.hsm:16]: varset( $CRLF ,
chr(13) + chr(10) )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hstrings.hsm:17]: varset( $WSP  ,
chr(32) + chr( 9) )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hstrings.hsm:18]: varset( $NULL , chr(
0x00 ) )  # Null
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hstrings.hsm:19]: varset( $TAB  , chr(
0x09 ) )  # Horizontal Tab
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hstrings.hsm:20]: varset( $LF  , chr(
0x0A ) )  # Line Feed
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hstrings.hsm:21]: varset( $VTAB , chr(
0x0B ) )  # Vertical Tab
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hstrings.hsm:22]: varset( $FF  , chr(
0x0C ) )  # Form Feed
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hstrings.hsm:23]: varset( $CR  , chr(
0x0D ) )  # Cursor Return
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hstrings.hsm:24]: varset( $ESC  , chr(
0x1B ) )  # Escape Char
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hstrings.hsm:25]: return( 0 )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:17]: debug( 255, "<<<
module 'hmessage.hsm' >>>" )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:19]: return( 0 )
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:1]: #!load hamster.hsm
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:2]: #!load hmessage.hsm
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:3]: #!trace 1
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:4]: varset($dest, $break, 0)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:5]: varset($mex, listalloc)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:6]: listload($mex, paramstr(2))
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:10]: listdelete($mex, 0)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:11]: endwhile
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:10]: listdelete($mex, 0)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:11]: endwhile
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:10]: listdelete($mex, 0)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:11]: endwhile
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:10]: listdelete($mex, 0)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:11]: endwhile
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:10]: listdelete($mex, 0)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:11]: endwhile
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:10]: listdelete($mex, 0)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:11]: endwhile
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:10]: listdelete($mex, 0)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:11]: endwhile
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:10]: listdelete($mex, 0)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:11]: endwhile
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:10]: listdelete($mex, 0)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:11]: endwhile
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:10]: listdelete($mex, 0)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:11]: endwhile
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:10]: listdelete($mex, 0)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:11]: endwhile
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:10]: listdelete($mex, 0)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:11]: endwhile
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:10]: listdelete($mex, 0)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:11]: endwhile
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:9]: break(inc($break, listget($mex,
0)=="")>1)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:10]: listdelete($mex, 0)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:11]: endwhile
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:7]: while(!(re_parse(listget($mex,
0), "^\|\|\s.*:\s+(.*)@hamster$", $dest)  && hamgroupindex($dest)+1))
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:11]: endwhile
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:12]: if($break==1)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:13]: print($dest)
2011/12/05 16.02.04 I   {5bc} > note.urspp
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:14]: repeat
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:15]: listdelete($mex, 0)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:16]: until(listget($mex, 0)=="")
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:14]: repeat
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:15]: listdelete($mex, 0)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:16]: until(listget($mex, 0)=="")
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:14]: repeat
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:15]: listdelete($mex, 0)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:16]: until(listget($mex, 0)=="")
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:17]: listset($mex, 0, "Newsgroups:
" + $dest)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:18]: msgdelheader($mex, "To:")
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:114]: sub MsgDelHeader(
$Msg, $HdrNam )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:115]: var( $HdrVal, $Idx,
$i, $s )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:118]: $Idx =
MsgIndexOfHeader( $Msg, $HdrNam )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:45]: sub
MsgIndexOfHeader( $Msg, $HdrNam )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:46]: var( $i, $Idx )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:48]: $Idx = -1
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:49]: $i = 0
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:50]: $HdrNam = LowerCase(
$HdrNam )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:52]: while( $i <
ListCount($Msg) )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:53]: break(
ListGet($Msg,$i) = "" ) # end of header
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:54]: if( $HdrNam =
LowerCase( MsgHeadernameOfIndex( $Msg, $i ) ) )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:29]: sub
MsgHeadernameOfIndex( $Msg, $Idx )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:30]: var( $s, $i )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:31]: $s = ListGet( $Msg,
$Idx )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:32]: $i = Pos( ":", $s )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:33]: $s = iif( $i>0,
copy($s,1,$i), "" )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:34]: return( $s )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:57]: endif
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:59]: inc( $i )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:60]: endwhile
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:52]: while( $i <
ListCount($Msg) )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:53]: break(
ListGet($Msg,$i) = "" ) # end of header
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:54]: if( $HdrNam =
LowerCase( MsgHeadernameOfIndex( $Msg, $i ) ) )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:29]: sub
MsgHeadernameOfIndex( $Msg, $Idx )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:30]: var( $s, $i )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:31]: $s = ListGet( $Msg,
$Idx )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:32]: $i = Pos( ":", $s )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:33]: $s = iif( $i>0,
copy($s,1,$i), "" )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:34]: return( $s )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:57]: endif
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:59]: inc( $i )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:60]: endwhile
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:52]: while( $i <
ListCount($Msg) )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:53]: break(
ListGet($Msg,$i) = "" ) # end of header
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:54]: if( $HdrNam =
LowerCase( MsgHeadernameOfIndex( $Msg, $i ) ) )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:29]: sub
MsgHeadernameOfIndex( $Msg, $Idx )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:30]: var( $s, $i )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:31]: $s = ListGet( $Msg,
$Idx )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:32]: $i = Pos( ":", $s )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:33]: $s = iif( $i>0,
copy($s,1,$i), "" )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:34]: return( $s )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:57]: endif
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:59]: inc( $i )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:60]: endwhile
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:52]: while( $i <
ListCount($Msg) )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:53]: break(
ListGet($Msg,$i) = "" ) # end of header
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:54]: if( $HdrNam =
LowerCase( MsgHeadernameOfIndex( $Msg, $i ) ) )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:29]: sub
MsgHeadernameOfIndex( $Msg, $Idx )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:30]: var( $s, $i )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:31]: $s = ListGet( $Msg,
$Idx )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:32]: $i = Pos( ":", $s )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:33]: $s = iif( $i>0,
copy($s,1,$i), "" )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:34]: return( $s )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:57]: endif
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:59]: inc( $i )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:60]: endwhile
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:52]: while( $i <
ListCount($Msg) )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:53]: break(
ListGet($Msg,$i) = "" ) # end of header
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:54]: if( $HdrNam =
LowerCase( MsgHeadernameOfIndex( $Msg, $i ) ) )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:29]: sub
MsgHeadernameOfIndex( $Msg, $Idx )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:30]: var( $s, $i )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:31]: $s = ListGet( $Msg,
$Idx )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:32]: $i = Pos( ":", $s )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:33]: $s = iif( $i>0,
copy($s,1,$i), "" )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:34]: return( $s )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:57]: endif
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:59]: inc( $i )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:60]: endwhile
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:52]: while( $i <
ListCount($Msg) )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:53]: break(
ListGet($Msg,$i) = "" ) # end of header
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:54]: if( $HdrNam =
LowerCase( MsgHeadernameOfIndex( $Msg, $i ) ) )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:29]: sub
MsgHeadernameOfIndex( $Msg, $Idx )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:30]: var( $s, $i )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:31]: $s = ListGet( $Msg,
$Idx )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:32]: $i = Pos( ":", $s )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:33]: $s = iif( $i>0,
copy($s,1,$i), "" )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:34]: return( $s )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:57]: endif
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:59]: inc( $i )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:60]: endwhile
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:52]: while( $i <
ListCount($Msg) )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:53]: break(
ListGet($Msg,$i) = "" ) # end of header
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:54]: if( $HdrNam =
LowerCase( MsgHeadernameOfIndex( $Msg, $i ) ) )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:29]: sub
MsgHeadernameOfIndex( $Msg, $Idx )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:30]: var( $s, $i )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:31]: $s = ListGet( $Msg,
$Idx )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:32]: $i = Pos( ":", $s )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:33]: $s = iif( $i>0,
copy($s,1,$i), "" )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:34]: return( $s )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:55]: $Idx = $i
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:56]: break
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:60]: endwhile
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:62]: return( $Idx )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:121]: if( $Idx >= 0 )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:122]: ListDelete( $Msg,
$Idx )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:123]: do
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:124]: $s = copy( ListGet(
$Msg, $Idx ), 1, 1 )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:125]: break(
Pos($s,$WSP)=0 ) # 1st char=WSP?
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:126]: ListDelete( $Msg,
$Idx )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:127]: loop
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:123]: do
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:124]: $s = copy( ListGet(
$Msg, $Idx ), 1, 1 )
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:125]: break(
Pos($s,$WSP)=0 ) # 1st char=WSP?
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:127]: loop
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:128]: endif
2011/12/05 16.02.04 I   {5bc} [H:\hamster\hmessage.hsm:131]: return( $Idx )
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:19]:
print(hamartimport(listgettext($mex)), , 1)
2011/12/05 16.02.04 I   {ab4} Il client 
10.193.12.33:25
 (948) si ï¿œ disconnesso
2011/12/05 16.02.04 I   {5bc} > 101
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:20]: hamflush
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:22]: endif
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:23]: listfree($mex)
2011/12/05 16.02.04 I   {5bc} [forw2news.hsc:24]: quit
2011/12/05 16.02.04 Sys {5bc} {script forw2news.hsc} Terminato
2011/12/05 16.02.04 Sys {b8c} Script H:\hamster\forw2news.hsc terminato
 

 ma lo scopo come sai č di bypassare il limite di crosspost di 5 gruppi.
 
...solo che non ci eravamo capiti bene. ho cambiato la stringa da
aggiungere ai gruppi in "@h"
 
--8<---------------cut here---------------start------------->8---
#!load hamster.hsm
#!load hmessage.hsm
 
varset($mex,listalloc)
listload($mex,paramstr(2))
varset($gls,listalloc)
varset($break,0)
while(inc($break,varset($linea,listget($mex,0))="")<2)
	if(re_parse($linea,"^\|\|\s.*:\s+(.*)@h$",$linea)&&hamgroupindex($linea)+1)
		listadd($gls,$linea)
	endif
	listdelete($mex, 0)
endwhile
while(listcount($gls))
	listset($mex,0,"Newsgroups: "+listget($gls,0))
	if(dec($break)=1)
		msgdelheader($mex,"To:")
	endif
	hamartimport(listgettext($mex),,1)
	hamflush
	listdelete($gls,0)
endwhile
if($break<>2)
	filedelete(paramstr(2))
endif
listfree($mex)
listfree($gls)
--8<---------------cut here---------------end--------------->8---


 aggiungere ai gruppi in "@h"
 
lunedì provo, sono in pausa festività :-)
 
allora metto questo e tolgo l'altro, mi confermi?
 
ciao e buona festa dell'Immacolata

 allora metto questo e tolgo l'altro, mi confermi?
 
confermo, ciao
 
-- 
  np: no song

 
 
non so cosa sia successo, ma lo script nuovo non funziona. Ho tentato di capirci
qualcosa, sembrano molto diversi tra loro. Non potresti darmi solo la riga da
aggiungere a quello precedente? il primo script mandava solo ad un gruppo
nome@hamster, mentre l'ultimo non va proprio, non vedo nemmeno la partenza su
riga blu. Mah!
 

 nemmeno la partenza su riga blu. Mah!
 
non sta partendo quindi. mi scrivi cosa hai fatto passo passo? (devi
scrivere gli indirizzi in forma nome@h per attivare lo script)
 
 
-- 
  np: no song

 
ma certo! come ho fatto prima! note.urspp@hamster ecc. ripeto, se metto lo
script precedente, il primo indirizzo è elaborato dallo script e lo invia al
gruppo. 
 
ciao
 

 gruppo. 
 
ma certo che? con il secondo script devi usare note.urspp@h e non
note.urspp@hamster (questa è la terza volta che te lo scrivo)
 
 
-- 
  np: no song

 note.urspp@hamster (questa è la terza volta che te lo scrivo)
 
:-( sono andato a rileggere, è come dici tu! io pensavo che avevi messo h per
intendere hamster. La domanda mi sorge spontanea: non è possibile cambiare nello
script, per avere che so' nomeg...@posta.interna ?
 
 

 per avere che so' nomeg...@posta.interna ?
 
non posta.interna perché sintattimcaente corretto, lo script ha bisogno di
un errore d'invio per intercettare il messaggio; posta-interna andrebbe
bene, mettilo nello script tra la chiocciola e il dollaro, al posto di h
 
 
-- 
  np: no song

 bene, mettilo nello script tra la chiocciola e il dollaro, al posto di h
 
adesso ho capito perché tutti i messaggi inviati mi vanno nel gruppo destinato
agli errori! in questo modo, con questo script, i messaggi sono dirottati come
errori e inviati ad un solo gruppo. Il primo script non si può modificare per
accettare più indirizzi?
 

 Il primo script non si può modificare per accettare più indirizzi?
 
sì: è il secondo, ho qui un setup funzionante.
 
ho finalmente provato l'idea che avevo avuto in partenza, stranamente
funziona.
 
outlook express: strumenti / opzioni / invio, togli la spunta a "completa
automaticamente" (questo giusto per spazzare via uno dei sospetti che ho su
cosa stai combinando)
 
a) nell'interfaccia degli script di hamster (premi f4, script), creane uno
nuovo, cancella quello che compare di default e incolla questo:
 
--8<---------------cut here---------------start------------->8---
#!load hamster.hsm
#!load hmessage.hsm
 
varset($mex,listalloc)
listload($mex,paramstr(2))
varset($break,0)
varset($gls,"")
while(inc($break,varset($linea,listget($mex,0))="")<2)
	if(re_parse($linea,"^\|\|\s.*:\s+(.*)@posta-interna$",$linea) _ 
        &&hamgroupindex($linea)+1)
		$gls=$gls+$linea+","
	endif
	listdelete($mex,0)
endwhile
if($gls<>"")
	listset($mex,0,"Newsgroups: "+trim($gls,","))
	msgdelheader($mex,"To:")
	hamartimport(listgettext($mex),,1)
	hamflush
	filedelete(paramstr(2))
endif
listfree($mex)
--8<---------------cut here---------------end--------------->8---
 
poi *salva* e chiudi la finestra.
 
b) configura / automazione / azioni / posta interna, seleziona lo script
appena salvato dal menu a tendina "esegui lo script", poi dai l'ok.
 
c) da outlook express fai l'inoltro di un post con allegato, spedendo a
nome.gruppo1@posta-interna, nome.gruppo2@posta-interna,
nome.gruppo3@posta-interna
 
ciao
 
 
-- 
  np: Wyatt, Robert - Last Straw

 funziona.
 
ti ringrazio, ma non funziona nemmeno questo script. Oggi lavoro, poi ritorno il
3 gennaio. Riguardo il completamento automatico di O.E. lo avevo notato, e
mandai già a suo tempo con ubuntu e quindi thunderbird, ma non va comunque.
 
Sei stato molto paziente, ma rinuncio. Ti auguro per l'occasione di trascorrene
un sereno Natale con i tuoi familiari.
 
Ciao
 

 familiari.
 
grazie, passa buone feste
