home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / HTMCK111 / MAC / HCSLINE.MAC < prev    next >
Text File  |  1995-11-13  |  2KB  |  37 lines
  1. /*---------------------------------------------------------------------------*/
  2. /*                                                                           */
  3. /*  hcsLine - This REXX Macro is called when the report sends out a LINE     */
  4. /*           Item,  This is called for ALL types of ITEMS                    */
  5. /*                                                                           */
  6. /*  Valid Variables are:                                                     */
  7. /*      hcDeep          hclDoc          hclPhysical     hclFileSize          */
  8. /*      hclHTMLTag      hclFileType     hclMatched      hclLocalFound        */
  9. /*      hclServerRoot   hclOffSite      hclParent       hclAccessCount       */
  10. /*      hcpDoc          hcpPhysical     hcpFileSize     hcpHTMLTag           */
  11. /*      hcpFileType     hcpMatched      hcpLocalFound   hcpServerRoot        */
  12. /*      hcpOffSite      hcpAccessCount                                       */
  13. /*                                                                           */
  14. /*---------------------------------------------------------------------------*/
  15.  
  16.   indnt = COPIES(' ', hcDeep * 2)
  17.  
  18.   status = ''
  19.  
  20.   IF (hclMatched == 'No' & hclFileType <> 'HTMLTAG' & hclFileType <> 'DIRECTORY') THEN
  21.     status = status || '<Not used by any HTML file>,  '
  22.   IF (hclFileType == 'DIRECTORY') THEN
  23.     status = status || '<Directory>,  '
  24.   IF (hclLocalFound == 'No') then
  25.     status = status || '<FILE NOT FOUND>,  '
  26.   IF (hclOffSite == 'Yes') then
  27.     status = status || '<Access to another server>,  '
  28.  
  29.   fs = ''
  30.   IF (hclFileSize > 0) THEN
  31.     fs = 'FileSize=' || FORMAT(hclFileSize,9, 0)
  32.  
  33.   Call RxhcLineOut indnt || FORMAT(hclAccessCount,3) || ' ' ||hclDoc || ' (' || hclPhysical || ') ' || fs || '  ' ||status
  34.  
  35. RETURN
  36.  
  37.