home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
internet
/
yamexpansion19
/
yamexp
/
bonus
/
ransign.yarexx
Wrap
Text File
|
1997-08-04
|
2KB
|
66 lines
/* ------------------------------------------------made-in-arexx-- */
/* | - RanSign.yarexx - | */
/* | by Diego 'dx0' de Felice | */
/* | | */
/* | appends a random text-file to the email | */
/* | (needs rexxsupport.library) | */
/* | | */
/* | contact me at <d.defelice@ba.nettuno.it> | */
/* | for bugreporting | */
/* ---------------------------------------------------------1997-- */
options results
askb0='Are you sure you want to modify'
askb1='email ?'
suff0='a Sent'
suff1='an Incoming'
suff2='an Archived'
addlib('rexxsupport.library',0,-30)
listarande=SHOWDIR('yamexpansion:ransigns')
address 'YAM'
getfolderinfo NUMBER
cartella=result
if cartella=0 then do
'request "'askb0 suff1 askb1'" "_Yes I want|_No sorry"'
if result=0 then exit end
end
if cartella=2 then do
'request "'askb0 suff0 askb1'" "_Yes I want|_No sorry"'
if result=0 then exit end
end
if cartella>2 then do
'request "'askb0 suff2 askb1'" "_Yes I want|_No sorry"'
if result=0 then exit end
end
quanterande=words(listarande) /* File random da appendere */
randa=random(1,quanterande,time(s))
filoccio='yamexpansion:ransigns/' || word(listarande,randa)
call open(angela,filoccio,'R')
getmailinfo file /* File a cui appendere */
call open(carmela,result,'A')
writeln(carmela,'')
writeln(carmela,'')
writeln(carmela,'--')
writeln(carmela,'')
do until EOF(angela) /* Riempe l'email */
lineazza=readln(angela)
writeln(carmela,lineazza)
end
call close(carmela) /* Chiusura dei file */
call close(angela)
mailupdate
exit