Smedley's PmW-Fx 1.5 puts download info into file EA. This is a tool I developed just now when the need (or at least interest arose in testing EAs in general with REXX, as you can get this info by splitting the EA off with EAUTIL for a one time use).
Copy/paste all below. I named it WDIG.CMD.
/* Where Did I Get... uses info Smedley's PmW-FX puts into download's EA */
/* see orexx.inf for sysgetea() doc, but it's in the "plain" rexxutil */
/* also see
http://home.claranet.de/xyzzy/rxxos2eas.htm for more info */
call rxfuncadd 'sysloadfuncs', 'rexxutiil', 'sysloadfuncs'
call sysloadfuncs
parse arg fn /* seems to get all of parameter even with spaces */
say 'Where did I get: "'fn'"?' /* this shows the command line parameter */
if sysgetea(fn, '.SUBJECT', "varn") = 0 then do
vc= translate(varn) /* case-insensitive MAY be necessary sometimes, so */
p= pos('HTTP:/', vc) /* a copy is made for these position tests... */
if p = 0 then p= pos('FTP:/', vc) /* probably the only two possible */
if p > 0 then do
varn= substr(varn, p, length(varn) - p + 1) /* all after p */
say 'From 'varn
end
else say 'Apparently from nowhere...'
end