/* This script allows you uploading files to Aminet with YAM 
 *                                                           
 * Requires: rexxreqtools.library                            
 *                                                           
 * © by Andreas Grundler <a.grundler@regensburg.netsurf.de>  
 * $VER: AminetUpload.rexx V1.1 (13.04.97)
 */
OPTIONS RESULTS

IF ~SHOW('L','rexxreqtools.library') THEN CALL ADDLIB('rexxreqtools.library',0,-30,0)

ADDRESS YAM

/* Setup */

path="Ram:" /* Enter here your default upload-path */

/* Main */

lhafilename=rtfilerequest(path,,"Please select the Archiv-File",,"rtfi_matchpat=#?.(lha|lzh|gif|jpg|dms)|rtfi_buffer=tru",check)

if check=0 then do
show
exit
end

mailwrite
writemailto 'aminet-server@wuarchive.wustl.edu'
writesubject 'Upload'
writeattach lhafilename "Archiv-File" "MIME" "application/octet-stream"
writequeue

len=length(lhafilename)
len=len-4

word=substr(lhafilename,1,len)
readmefilename=word".readme"

mailwrite
writemailto 'aminet-server@wuarchive.wustl.edu'
writesubject 'Upload'
writeattach readmefilename "Readme-File" "MIME" "application/octet-stream"
writequeue

exit