/* SUBJECT_TO_HTML.CMD -- Generate HTML directory listings with descriptions taken from the extended attributes */ /* * This is a REXX script that reads the .SUBJECT extended attributes of files * and directories in the current directory and from them generates an HTML * directory listing, that includes the descriptions, to its standard output, * suitable for inclusion in a web page. * * (c) Copyright 2004,2007 Jonathan de Boyne Pollard. "Moral" rights asserted. * * Permission is hereby granted to copy, modify, and redistribute this script * as long as the author is not held responsible for any consequences of its * possession or use, and as long as you agree that it comes with no guarantee. * * NOTE: This script requires Object REXX. */ call RxFuncAdd 'SysFileTree','RexxUtil','SysFileTree' call RxFuncAdd 'SysGetEA','RexxUtil','SysGetEA' call RxFuncAdd 'SysGetMessage','RexxUtil','SysGetMessage' error = SysFileTree('*', 'names', 'BT') if error \= 0 then do say ''||escape(SysGetMessage(error,,'*'))||' "*"' exit end say '