Eliminator for =?iso-8859-1... from the subject-line of mails in PostRoad Mailer
Contributed by: Kai Richter
Use this script in the User-Exits 'Receive-message' files of PostRoad Mailer
/* Subject-Line ISO Descrambler */
/* Kai Richter, k.richter@fiero.de */
call RxFuncAdd 'SySLoadFuncs', 'RexxUtil', 'SysloadFuncs'
call SysLoadFuncs
arg Datei
z=0
do until rc=0
rc=lines(Datei)
z=z+1
zeile.z=LINEIN(Datei)
if TRANSLATE(LEFT(zeile.z,24))='SUBJECT: =?ISO-8859-1?Q?' then do
laenge=Length(zeile.z)
zeile.z=RIGHT(zeile.z,laenge-24)
laenge=Length(zeile.z)
zeile.z=LEFT(zeile.z,laenge-2)
zeile.z=CHANGESTR('=20',zeile.z,' ')
zeile.z=CHANGESTR('=21',zeile.z,'!')
zeile.z=CHANGESTR('=3A',zeile.z,':')
zeile.z=CHANGESTR('=3F',zeile.z,'?')
zeile.z=CHANGESTR('=5F',zeile.z,'_')
zeile.z=CHANGESTR('=B4',zeile.z,'.')
zeile.z=CHANGESTR('=DF',zeile.z,'�')
zeile.z='Subject: '||zeile.z
end /* do if */
end /* do until */
rc=lineout(Datei)
rc=SysFileDelete(Datei)
y=z
z=1
do y
rc=Lineout(Datei,zeile.z)
z=z+1
say z
end /* do */
rc=lineout(Datei)
return 0
