<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'| |
'| Weekly Report |
'| |
'=====================================================
%>
<%
Option explicit
Response.Expires = 0
%>
<%
'To enable the script timeout to 10 mins
Server.ScriptTimeout=600
%>
<%
'------------ Variable Definition -------------
Dim FSO
Dim NewTextFile
Dim rsRep
Dim sqlstr
Dim SSsql, retVal, rsCQ, DEVIiss, outJIRASQL
'------------ Variable Init -------------------
Set rsCQ = Server.CreateObject("ADODB.Recordset")
%>
<%
'--------------------------------------------------------------------------------------------------------------------------
Sub Javascript()
NewTextFile.WriteLine("")
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub GetFixedIssues(pv_id)
Set sqlstr = OraDatabase.DbCreateDynaset("SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& pv_id &" AND iss_state = "& enumISSUES_STATE_FIXED, cint(0))
If sqlstr.RecordCount <> 0 Then
NewTextFile.WriteLine()
NewTextFile.WriteLine("Fixed Issues:
")
NewTextFile.WriteLine("")
NewTextFile.WriteLine("")
NewTextFile.WriteLine("| Issue Id | ")
NewTextFile.WriteLine("Summary | ")
NewTextFile.WriteLine("Issue Type | ")
NewTextFile.WriteLine("Priority | ")
NewTextFile.WriteLine("Status | ")
NewTextFile.WriteLine("
")
While ((NOT sqlstr.BOF) AND (NOT sqlstr.EOF))
DEVIiss = "-1"
If CInt(sqlstr("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
DEVIiss = DEVIiss &","& sqlstr("iss_id")
End If
SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )
SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
retVal = Get_CQ_Issues ( SSsql, rsCQ )
NewTextFile.WriteLine("")
NewTextFile.WriteLine("| "&rsCQ("iss_num")&" | ")
NewTextFile.WriteLine(""&NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )&" | ")
NewTextFile.WriteLine(""&rsCQ("issue_type")&" | ")
NewTextFile.WriteLine(""&rsCQ("priority")&" | ")
NewTextFile.WriteLine(""&rsCQ("Status")&" | ")
NewTextFile.WriteLine("
")
sqlstr.MoveNext
Wend
NewTextFile.WriteLine( "
")
End If
sqlstr.Close()
Set sqlstr = Nothing
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub Get_JIRA_Package_Issues ( pv_id )
Dim rsTemp, JIRAiss
sqlstr = " SELECT *"&_
" FROM JIRA_ISSUES"&_
" WHERE pv_id = "& pv_id
Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
If rsTemp.RecordCount <> 0 Then
NewTextFile.WriteLine()
NewTextFile.WriteLine("JIRA Issues:
")
NewTextFile.WriteLine("")
NewTextFile.WriteLine("")
NewTextFile.WriteLine("| Issue Id | ")
NewTextFile.WriteLine("Summary | ")
NewTextFile.WriteLine("Issue Type | ")
NewTextFile.WriteLine("Priority | ")
NewTextFile.WriteLine("Status | ")
NewTextFile.WriteLine("
")
While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
JIRAiss = "'-1'"
JIRAiss = JIRAiss &",'"& rsTemp("iss_key")&"'"
'Construct SQL statement for JIRA database
outJIRASQL = "SELECT I.pkey AS iss_num, I.summary, ISS.pname AS status, IT.pname as Issue_Type, PR.pname as Priority, I.RESOLUTION "&_
" FROM jiraissue I, issuestatus ISS, issuetype IT, priority PR "&_
" WHERE I.pkey IN ("& JIRAIss &") "&_
" AND I.issuestatus = ISS.ID "&_
" AND IT.ID = I.issuetype "&_
" AND PR.ID = I.PRIORITY "
retVal = Get_JIRA_Issues ( outJIRASQL, rsCQ )
NewTextFile.WriteLine("")
NewTextFile.WriteLine("| "&rsCQ("iss_num")&" | ")
NewTextFile.WriteLine(""&NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )&" | ")
NewTextFile.WriteLine(""&rsCQ("issue_type")&" | ")
NewTextFile.WriteLine(""&rsCQ("priority")&" | ")
NewTextFile.WriteLine(""&rsCQ("Status")&" | ")
NewTextFile.WriteLine("
")
rsTemp.MoveNext
WEnd
NewTextFile.WriteLine( "
")
End If
rsTemp.Close()
Set rsTemp = nothing
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub DisplayComments(pkg_version, comments)
'NewTextFile.WriteLine("Version: "&pkg_version&"
")
If comments <> "" Then
NewTextFile.WriteLine("Comments:
")
NewTextFile.WriteLine(""& TextToHTML(comments) &"
")
End If
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub Header()
NewTextFile.WriteLine("")
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub Footer()
NewTextFile.WriteLine("")
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Function Get_CQ_Issues ( SSsql, OOrsCQ )
If OOrsCQ.State = 1 Then
OOrsCQ.Close
End If
On Error Resume Next
OOrsCQ.ActiveConnection = CQ_conn
OOrsCQ.Source = SSsql
OOrsCQ.CursorType = 0
OOrsCQ.CursorLocation = 2
OOrsCQ.LockType = 3
OOrsCQ.Open()
Get_CQ_Issues = Err.Number
End Function
'--------------------------------------------------------------------------------------------------------------------------
Function Get_JIRA_Issues ( SSsql, OOrsJIRA )
If OOrsJIRA.State = 1 Then
OOrsJIRA.Close()
End If
On Error Resume Next
OOrsJIRA.ActiveConnection = JIRA_conn
OOrsJIRA.Source = SSsql
OOrsJIRA.CursorType = 0
OOrsJIRA.CursorLocation = 2
OOrsJIRA.LockType = 3
OOrsJIRA.Open()
Get_JIRA_Issues = Err.Number
End Function
'--------------------------------------------------------------------------------------------------------------------------
Public Function TextToHTML ( sString )
Dim mString
If (sString = "") OR IsNull(sString) Then Exit Function
mString = Server.HTMLEncode( sString )
mString = Replace(mString, VBNewLine, "
")
TextToHTML = mString
End Function
'--------------------------------------------------------------------------------------------------------------------------
%>
<%
If (Request("from_date") = "") OR (Request("to_date") = "") OR (Request("user") = "") Then
If (Request("from_date") = "") Then
Response.write "ERROR: Missing Parameter: from_date"
ElseIf (Request("to_date") = "") Then
Response.write "ERROR: Missing Parameter: to_date"
ElseIf (Request("user") = "") Then
Response.write "ERROR: Missing Parameter: user"
End If
Else
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
Dim report_date
report_date = Replace( Request("to_date"), "/", "" )
Set NewTextFile=FSO.CreateTextFile(Server.MapPath("weekly_reports\weekly_report_"&Request("user")&"_"&report_date&".html"), true)
Call Header()
OraDatabase.Parameters.Add "FROM_DATE", Request("from_date"), ORAPARM_INPUT, ORATYPE_STRING
OraDatabase.Parameters.Add "TO_DATE", Request("to_date"), ORAPARM_INPUT, ORATYPE_STRING
Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("weekly_report.sql"), cint(0) )
OraDatabase.Parameters.Remove "FROM_DATE"
OraDatabase.Parameters.Remove "TO_DATE"
Call Javascript()
NewTextFile.WriteLine("Projects Report Between "&Request("from_date")&" and "&Request("to_date")&"")
NewTextFile.WriteLine("Projects Report Between "&Request("from_date")&" and "&Request("to_date")&"(Ripple Builds Not Displayed)
")
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
If IsNull(rsRep("proj_name")) Then
NewTextFile.WriteLine(""&rsRep("description")&" Package:"&rsRep("pkg_name")&" Version:"&rsRep("pkg_version")&"")
Else
NewTextFile.WriteLine("Location:"&rsRep("proj_name")&"/"&rsRep("rtag_name")&" Package:"&rsRep("pkg_name")&" Version:"&rsRep("pkg_version")&"")
End If
NewTextFile.WriteLine("
")
NewTextFile.WriteLine("Last Released:"&rsRep("modified_stamp")&"")
Call DisplayComments(rsRep("pkg_version"), rsRep("comments"))
Call GetFixedIssues(rsRep("pv_id"))
Call Get_JIRA_Package_Issues(rsRep("pv_id"))
NewTextFile.WriteLine("
")
rsRep.MoveNext
Wend
%>
<%
rsRep.Close()
Set rsRep = Nothing
Call Footer()
NewTextFile.Close()
Set NewTextFile=Nothing
Dim LocalPath
LocalPath = Server.MapPath("weekly_reports\weekly_report_"&Request("user")&"_"&report_date&".html")
'myMail.AddAddress Request("user")&"@erggroup.com"
Send_Email "Release Manager Notification",_
adminEmail, _
objAccessControl.UserEmail,_
"Projects Report" , _
"Your requested report...",_
LocalPath
Response.write "Report Generated Successfully and Emailed!"
End If
Call Destroy_All_Objects
%>