/* ARexx-exempelskript för att läsa en vald låda och visa resultatet i AWebs fönster. */ /* Hämta argumenten till en sträng */ parse arg arguments /* Initialisera de olika parametrarna */ drawer = '' dirsopt = '' allopt = '' /* Hämta nu de olika parametrarna */ do forever parse var arguments nextarg arguments /* Sluta iterera efter det sista argumentet */ if nextarg == '' then leave /* Nu innehåller variabeln nextarg argumentet i DOS-formatet namn="värde". Använd detta för att sätta lämpligt värde */ interpret nextarg end /* Hämta en unik identifierare */ id = pragma('ID') /* Skapa en temporär fil. Börja med HTML-huvudet: */ address command 'Echo >t:dir_' || id '"Innehåll i lådan' drawer '"' 'Echo >>t:dir_' || id '"

Innehåll i lådan' drawer '

"'

/* Hämta lådans innehåll
   dirsopt är antingen 'DIRS' eller tom
   allopt är antingen 'ALL' eller tom */
'dir >>t:dir_' || id drawer dirsopt allopt

/* Ladda in den temporära filen i AWeb.
   Använd flaggan RELOAD för att se till att filen laddas igen. */
address
'open file://localhost/t:dir_' || id 'reload'