home *** CD-ROM | disk | FTP | other *** search
/ WinFiles.com 1998 June / WF0698_3.ISO / servers-websrv / websuite.exe / LOGLIST.AP_ / LOGLIST.AP
Text File  |  1998-04-01  |  2KB  |  70 lines
  1. <[
  2. // SmartDesk's Personal Web Server - Log List
  3. // (c) 1997-98 SmartDesk, Inc., All Rights Reserved
  4.  
  5. // Main Routine
  6.  
  7.     _apGenerate( )
  8.  
  9.     session = new( "session", param( 1 ), param( 2 ) )
  10.     if ( ! session.secure( "Server.Logs.Access" ) )
  11.         return( 0 )
  12.     end
  13.  
  14.     webLogCacheFlush( session.websrvr )
  15.  
  16.     path = webServerBaseDir( session.websrvr )
  17.  
  18.     filename = fileFixPath( path + '\sdwebsrv.log' )
  19.     if ( ! fileExists( filename ) )
  20.         session.error( "No log data available, try flushing the log data cache from the system area of the mini-console..." )
  21.         return(0)
  22.     end
  23.  
  24. ]>
  25. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  26. <!-- SmartDesk Active Page, www.smartdesk.com -->
  27. <HTML>
  28. <HEAD>
  29. <TITLE>Server Log List</TITLE>
  30. </HEAD>
  31. <BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#000000" VLINK="#000000" ALINK="#000000">
  32. <pre>
  33. <[
  34.     hfile = fopen( filename, 0 )
  35.     if ( hfile < 1 )
  36.         session.error( "Unable to open " + filename + " file." )
  37.         return( 0 )
  38.     end
  39.     
  40.     buf_size = 50000
  41.     len = flen( hfile )
  42.     
  43.     if ( len < buf_size )
  44.         fclose( hfile )
  45.         data = fileReadAscii( filename )
  46.     else
  47.         fseek( hfile, -1 * buf_size, 2 )
  48.         data = fread( hfile, buf_size )
  49.         fclose( hfile )
  50.     end
  51.  
  52.     ! "<b>Log File: " + lower( filename )
  53.     ! "Log Size: " + strcommas( "" + len ) + " bytes</b><br><br>"
  54.  
  55.  
  56.     data = strswap( data, "\n", "" )
  57.     cnt = chrcount( "\r", data )
  58.     for ( i=cnt; i>0; i-- )
  59.         ! strextract( data, "\r", i )
  60.     end
  61.     
  62.     if ( len > buf_size )
  63.         ! "...<br>"
  64.     end
  65. ]>
  66. </pre>
  67. </BODY>
  68. </HTML>
  69.  
  70.