home *** CD-ROM | disk | FTP | other *** search
- <html>
- <head>
- <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
- <meta NAME="Author,Design" Content="GateKeeper Team; gatekeeper@infopulse.net">
- <meta NAME="Copyright" Content="Infopulse; www.infopulse.net">
- <title>Empty</title>
- </head>
-
- <body >
- <%
- str = Request.ReqParam("audit")
- if str = "True" Then
- logType = "Auditing"
- else
- logType = "IP logs"
- end if
- %>
- <p><big><strong><font face="Arial"><%Response.Write(logType)%></font></strong></big></p>
- <font face="Arial">
-
- <%
- if Logging.CountFiles > 0 Then
- %>
- <form method="POST" action= "showlog.agp?rule=<%Response.Write(ruleName)%>">
- <input type="hidden" name="audit" value="<%Response.Write(Request.ReqParam("audit"))%>" >
- Select LogFile:
- <select name="file" size="1">
- <%
- for i = 1 To Logging.CountFiles
- sFile = Logging.GetFile(i)
- y = Mid( sFile, 3, 4 )
- m = Mid( sFile, 7, 2 )
- d = Mid( sFile, 9, 2 )
- Dat = DateSerial( y, m, d)
- fName = FormatDateTime( Dat, 1 )
- %>
- <option value="<%Response.Write(sFile)%>"><%Response.Write(fName)%></option>
- <%
- next
- %>
- </select>
-
- <input type="submit" name="action" value="Show it!">
- </form>
- <%
- Else
- %>
- There are no logfiles to show.
- <p>
- <%
- End If
- %>
- </font>
- <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
- </body>
- </html>
-