home *** CD-ROM | disk | FTP | other *** search
-
- <%
- path = SysInfo.SkinPath
- dim szPath
- szPath = "Table"
- SkinTable = SysInfo.GetSkinParameter(szPath)
- szPath = "Font"
- SkinFont = SysInfo.GetSkinParameter(szPath)
- szPath = "Link"
- SkinLink = SysInfo.GetSkinParameter(szPath)
- szPath = "VLink"
- SkinVLink= SysInfo.GetSkinParameter(szPath)
- %>
- <script language="JavaScript">
- <!--
- function MM_preloadImages() { //v3.0
- var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
- var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
- if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
- }
-
- function MM_swapImgRestore() { //v3.0
- var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
- }
-
- function MM_findObj(n, d) { //v4.0
- var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
- d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
- if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
- for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
- if(!x && document.getElementById) x=document.getElementById(n); return x;
- }
-
- function MM_swapImage() { //v3.0
- var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
- if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
- }
- //-->
- </script>
- <html>
- <head>
- <title>Professional GateKeeper - Infopulse</title>
- <!-- -->
- <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
- <title>MediaFamily - Welcome</title>
-
- </head>
- <body bgcolor="#FFFFFF" text="#000000" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" background="../images/backgr_x.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td width="344"><img src="images/1_r1_c2.jpg" width="344" height="70"></td>
- <td width="135"><img src="images/1_r1_c3.jpg" width="135" height="70"></td>
- <td width="100"><a href="hlpLogging.agp"><img src="images/1_r1_c4.jpg" width="100" height="70"border=0></a></td>
- <td width="1000"> </td>
- </tr>
- </table>
- <map name="n1_r4_c3Map">
- <area shape="rect" coords="492,45,567,76" href="#">
- </map>
- <%
- str = Request.ReqParam("audit")
- bShowUsers = FALSE
- if str = "True" Then
- logType = "Auditing"
- bShowUsers = TRUE
- else
- logType = "IP logs"
- end if
-
- Set users = Accounts.users
- %>
- <p><big><strong><font face="Arial"><%Response.Write(logType)%></font></strong></big></p>
- <font face="Arial">
-
- <%
- if Logging.CountFiles > 0 Then
- '?rule=Response.Write(ruleName)
- %>
- <form name="useredit_form" method="POST" action= "showlog.agp">
- <input type="hidden" name="audit" value="<%Response.Write(Request.ReqParam("audit"))%>" >
- <table border=0>
- <tr><td>Select LogFile:</td>
- <td><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></td></tr>
-
- <%
- If bShowUsers Then
- %>
- <tr><td>Select User:</td>
- <td><select name="client" size="1">
- <option value="" SELECTED>All Users</option>
- <%
- for i = 1 To users.count
- Set user = users.item(i)
- %>
- <option value="<%Response.Write(LCase(user.name))%>"><%Response.Write(user.name)%></option>
- <%
- next
- %>
- </select></td></tr>
- <%
- End If ' bShowUsers
- %>
- <tr><td colspan=2 align=center>
- <span style="cursor:hand" value="show_it" onClick="javascript:useredit_form.action.value='Show it!';useredit_form.submit()" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('show_it.gif','','../images/show_it01.gif',1)"><img src='../images/show_it.gif' name='show_it.gif'></span>
- <!--input type="submit" name="action" value="Show it!"-->
- </td></tr>
- </table>
- </form>
- <%
- Else
- %>
- There are no logfiles to show.
- <p>
- <%
- End If
- %>
- </font>
- <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
- </body>
- </html>
-