Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

132 lines
4.5 KiB

<%@Language = JScript %>
<%
/**********************************************************************************
Debug Portal - Version 2
PAGE : DBGPortal_ViewBucket.asp
DESCRIPTION : Entry point to the debug portal site.
MODIFICATION HISTORY: 11/13/2001 - Created
***********************************************************************************/
%>
<!--#INCLUDE FILE='Global_DBUtils.asp'-->
<!--#INCLUDE FILE='Global_ServerUtils.asp'-->
<%
var BucketID = Request("BucketID")
var iBucket = Request("iBucket")
var Alias = GetShortUserAlias()
var Action = Request("Action")
var Comment = new String( Request("Comment") )
var FrameID = Request("FrameID" )
//var rep = /"/g
var rep2= /'/g
//Comment = Comment.replace( rep, "\"\"" )
Comment = Comment.replace( rep2, "''" )
var g_DBConn = GetDBConnection( Application("CRASHDB3" ) )
var Query = "DBGPortal_SetComment '" + Alias + "','" + Action + "','" + Comment + "','" + BucketID + "'," + iBucket
g_DBConn.Execute( Query )
//SendMail( "[email protected];[email protected]", "This is a test", "Just checking to see if this thing actually works, probably not" )
//Action values:
// ACTION = 8 -means a solution request.
// Action = 12 -Flag pool corruption
// Action = 13 -Mean clear pool corruption flag
// deafult is to just add a plain old comment for everything else.
var tmp = new String( Comment )
tmp = tmp.replace( regexp, "\n" )
if ( Action == "8" )
{
var regexp=new RegExp( "<BR>" , "g" )
var MessageSubject = new String( "Solution Requested for bucket: " + BucketID )
var MessageBody = new String()
MessageBody = "Solution Request Information: \n\n"
MessageBody += "Requested By: " + Alias + "\n"
MessageBody += "Bucket URL : http://" + g_ServerName + "/bluescreen/debug/v2/DBGPortal_ViewBucket.asp?BucketID=" + Server.URLEncode( BucketID ) + "\n\n"
MessageBody += "Additional Information:\n " + tmp + "\n"
if ( Application("DebugBuild") == 1 )
SendMail( "[email protected]", MessageSubject , MessageBody )
else
SendMail( "[email protected];[email protected];[email protected]", MessageSubject , MessageBody )
/*
[QueueIndex] [int] IDENTITY (1, 1) NOT NULL ,
[Status] [int] NULL ,
[ResponseType] [int] NULL ,
[DateRequested] [smalldatetime] NULL ,
[DateCreated] [smalldatetime] NULL ,
[requestedBy] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[CreatedBy] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[BucketID] [varchar] (100) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Description] [nvarchar] (1024) COLLATE SQL_Latin1_General_CP1_CI_AS NULL
*/
var Query = "DBGPortal_CreateResponseRequest 0, 1, '" + Alias + "','" + BucketID + "','" + Comment + "'"
g_DBConn.Execute( Query )
}
else if ( Action == "3" )
{
var Query = "DBGPortal_CreateResponseRequest 0, 2, '" + Alias + "','" + BucketID + "','" + Comment + "'"
g_DBConn.Execute( Query )
}
else if ( Action == "12" )
{
var MessageSubject = new String( BucketID + " - Flagging pool corruption" )
var MessageBody = new String( "This bucket has been flagged for pool corruption" )
Query = "DBGPortal_SetPoolCorruption '" + BucketID + "'"
ExecuteSP( Query, "DBGPortal_SetPoolCorruption" )
SendMail( "[email protected]", MessageSubject , MessageBody )
}
else if ( Action == "13" )
{
var MessageSubject = new String( BucketID + " - Clear pool corruption" )
var MessageBody = new String( "This bucket has been cleared pool corruption" )
Query = "DBGPortal_ClearPoolCorruption '" + BucketID + "'"
ExecuteSP( Query, "DBGPortal_ClearPoolCorruption" )
SendMail( "[email protected]", MessageSubject , MessageBody )
}
else
{
var MessageSubject = new String( "Addcomment.asp" )
var MessageBody = new String()
MessageBody = "Added comment"
MessageBody += "Requested By: " + Alias + "\n"
MessageBody += "Bucket URL : http://" + g_ServerName + "/bluescreen/debug/v2/DBGPortal_ViewBucket.asp?BucketID=" + Server.URLEncode( BucketID ) + "\n\n"
MessageBody += "Additional Information:\n " + tmp + "\n"
SendMail( "[email protected]", MessageSubject , MessageBody )
}
g_DBConn.Close()
Response.Redirect ("DBGPortal_ViewBucket.asp?BucketID=" + Server.URLEncode(BucketID)+ "&FrameID=" + FrameID )
//Response.Write ("DBGPortal_ViewBucket.asp?BucketID=" + Server.URLEncode(BucketID) )
%>