.key path

;The syntax is: SetAllAmiCom <path>
;
;e.g.
;
;SetAllAmiCom CDW0:

stack 8192

List <path>Aminet > t:deleteinfo dirs sort name lformat="delete *"%s%s/#?.info*""
List <path>Aminet > t:deletebbs dirs sort name all lformat="delete *"%s%s/files.bbs*""
List <path>Aminet > t:deletemsd dirs sort name all lformat="delete *"%s%s/files.msd*""

delete "<path>Aminet/#?.info"
execute t:deleteinfo
execute t:deletebbs
execute t:deletemsd

List <path>Aminet > t:setalldircom dirs sort name all lformat="setamidircom *"%s%s*""
List <path>Aminet > t:setallfilcom pat=#?.??? sort name all lformat="setamifilcom *"%s%s*""

filenote <path>Aminet/info         "General FTP information"
filenote <path>Aminet/info/adt     "Machine readable filelists"
filenote <path>Aminet/info/index   "Various Aminet index files"
execute t:setalldircom
execute t:setallfilcom

delete >nil: t:deleteinfo
delete >nil: t:deletebbs
delete >nil: t:deletemsd
delete >nil: t:setalldircom
delete >nil: t:setallfilcom
