Files
Facilitor/APPL/Shared/wisLog.asp
Jos Groot Lipman b5925dfd7d FSN#40156 Logging *voor de rest van de pagina* kunnen aanzetten
svn path=/Website/trunk/; revision=33448
2017-04-10 14:41:51 +00:00

44 lines
1.3 KiB
Plaintext

<%@language = "javascript" %>
<% /*
$Revision$
$Id$
File: WisLog.asp
Remark: Wist de html logfile of zet de logging aan/uit
Je moet ingelogd zijn met FACTAB rechten
Context: Met knop vanuit de logfile
*/
var TERMS_CONDITIONS_OK = true;
if (Application("otap_environment") == "O")
ANONYMOUS_Allowed = 1;
%>
<!--#include file="../Shared/common.inc"-->
<%
Application("otap_environment") == "O" || user.checkAutorisation("WEB_FACTAB");
var fso = Server.CreateObject("Scripting.FileSystemObject");
var logurl = rooturl + "/temp/log_" + customerId + ".html.log";
if (CheckForLogging(Request.QueryString("logging")))
{
if (__Logging > 0)
Response.Redirect(rooturl + "/appl/fac/fac_StreamFile.asp?logger=0");
else
Response.Write("Logging is nu uit");
Response.End;
}
var logfile = Server.MapPath(logurl);
if (fso.FileExists(logfile))
{
fso.DeleteFile (logfile);
Response.Write("Logfile " + logfile + " has been erased.");
Response.Redirect (rooturl + "/appl/fac/fac_StreamFile.asp?logger=0");
}
else
{
Response.Write("Strange: file " & logfile & " not found?")
}
%>