996705b4fd
Issue: api.log was growing indefinitely with no rotation Impact: With 200+ PCs reporting daily, log file would grow to 2+ GB/year Fix: Changed logging to create daily log files - Old: logs/api.log (single file, grows forever) - New: logs/api-YYYY-MM-DD.log (one file per day) Example log files: - logs/api-2025-11-21.log - logs/api-2025-11-22.log - logs/api-2025-11-23.log Benefits: - Easier to troubleshoot (find logs by date) - Automatic separation (no manual log rotation needed) - Can delete old logs after N days - File sizes manageable (~6MB/day estimated) Cleanup Recommendation: Delete logs older than 30 days: forfiles /p "C:\inetpub\wwwroot\shopdb\logs" /s /m api-*.log /d -30 /c "cmd /c del @path" Or use Windows Task Scheduler to automate cleanup 🤖 Generated with Claude Code Co-Authored-By: Claude <noreply@anthropic.com>
1555 lines
57 KiB
Plaintext
1555 lines
57 KiB
Plaintext
<%@ Language=VBScript %>
|
|
<%
|
|
Option Explicit
|
|
Response.Buffer = True
|
|
Response.ContentType = "application/json"
|
|
|
|
' Declare and create database connection
|
|
Dim objConn, rs
|
|
Set objConn = Server.CreateObject("ADODB.Connection")
|
|
objConn.ConnectionString = "Driver={MySQL ODBC 9.4 Unicode Driver};" & _
|
|
"Server=192.168.122.1;" & _
|
|
"Port=3306;" & _
|
|
"Database=shopdb;" & _
|
|
"User=570005354;" & _
|
|
"Password=570005354;" & _
|
|
"Option=3;"
|
|
objConn.Open
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
|
|
|
' ============================================================================
|
|
' ShopDB API - PowerShell Data Collection Endpoint
|
|
' ============================================================================
|
|
' Purpose: Receive PC asset data from PowerShell scripts and store in Phase 2 schema
|
|
' Created: 2025-11-13
|
|
' Modified: 2025-11-13 - Fixed objConn scoping, machinetypeid Phase 2 fix
|
|
' Schema: Phase 2 (machines table, machinetypeid 33/34/35 for PCs)
|
|
' ============================================================================
|
|
|
|
<!--#include file="./includes/db_helpers.asp"-->
|
|
|
|
' Error handling wrapper
|
|
On Error Resume Next
|
|
|
|
' Get action from POST or GET
|
|
Dim action
|
|
action = Request.Form("action")
|
|
If action = "" Then action = Request.QueryString("action")
|
|
|
|
' Route to appropriate handler
|
|
Select Case action
|
|
Case "updateCompleteAsset"
|
|
UpdateCompleteAsset()
|
|
Case "updatePrinterMapping"
|
|
UpdatePrinterMapping()
|
|
Case "updateInstalledApps"
|
|
UpdateInstalledApps()
|
|
Case "getDashboardData"
|
|
GetDashboardData()
|
|
Case Else
|
|
SendError "Invalid action: " & action
|
|
End Select
|
|
|
|
' Clean up
|
|
If Not objConn Is Nothing Then
|
|
If objConn.State = 1 Then objConn.Close
|
|
Set objConn = Nothing
|
|
End If
|
|
|
|
' ============================================================================
|
|
' MAIN HANDLERS
|
|
' ============================================================================
|
|
|
|
Sub UpdateCompleteAsset()
|
|
On Error Resume Next
|
|
|
|
' Log request
|
|
LogToFile "=== NEW updateCompleteAsset REQUEST ==="
|
|
LogToFile "Hostname: " & Request.Form("hostname")
|
|
LogToFile "Serial: " & Request.Form("serialNumber")
|
|
LogToFile "PC Type: " & Request.Form("pcType")
|
|
|
|
' Get all POST parameters
|
|
Dim hostname, serialnumber, manufacturer, model, pcType
|
|
Dim loggedinuser, machinenumber, osVersion, osid, pcstatusid
|
|
Dim warrantyEndDate, warrantyStatus, warrantyServiceLevel, warrantyDaysRemaining
|
|
Dim networkInterfaces, commConfigs, dncConfig
|
|
Dim dncDualPathEnabled, dncPath1Name, dncPath2Name
|
|
Dim dncGeRegistry32Bit, dncGeRegistry64Bit, dncGeRegistryNotes
|
|
|
|
' Basic PC info
|
|
hostname = Trim(Request.Form("hostname") & "")
|
|
serialnumber = Trim(Request.Form("serialNumber") & "")
|
|
manufacturer = Trim(Request.Form("manufacturer") & "")
|
|
model = Trim(Request.Form("model") & "")
|
|
pcType = Trim(Request.Form("pcType") & "")
|
|
loggedinuser = Trim(Request.Form("loggedInUser") & "")
|
|
machinenumber = Trim(Request.Form("machineNo") & "")
|
|
osVersion = Trim(Request.Form("osVersion") & "")
|
|
|
|
' Warranty data (optional)
|
|
warrantyEndDate = Request.Form("warrantyEndDate")
|
|
warrantyStatus = Trim(Request.Form("warrantyStatus") & "")
|
|
warrantyServiceLevel = Trim(Request.Form("warrantyServiceLevel") & "")
|
|
warrantyDaysRemaining = Request.Form("warrantyDaysRemaining")
|
|
|
|
' Shopfloor data (optional)
|
|
networkInterfaces = Request.Form("networkInterfaces")
|
|
commConfigs = Request.Form("commConfigs")
|
|
dncConfig = Request.Form("dncConfig")
|
|
|
|
' DNC/GE registry data
|
|
dncDualPathEnabled = Request.Form("dncDualPathEnabled")
|
|
dncPath1Name = Trim(Request.Form("dncPath1Name") & "")
|
|
dncPath2Name = Trim(Request.Form("dncPath2Name") & "")
|
|
dncGeRegistry32Bit = Request.Form("dncGeRegistry32Bit")
|
|
dncGeRegistry64Bit = Request.Form("dncGeRegistry64Bit")
|
|
dncGeRegistryNotes = Trim(Request.Form("dncGeRegistryNotes") & "")
|
|
|
|
' Validate required fields
|
|
If hostname = "" Or serialnumber = "" Then
|
|
SendError "hostname and serialNumber are required"
|
|
Exit Sub
|
|
End If
|
|
|
|
' Get OS ID
|
|
osid = GetOrCreateOSID(osVersion)
|
|
pcstatusid = 3 ' Default to "In Use"
|
|
|
|
' Clear existing shopfloor data if this is a shopfloor PC
|
|
Dim machineid
|
|
If pcType = "Shopfloor" Then
|
|
ClearShopfloorData hostname
|
|
End If
|
|
|
|
' Insert or update PC record
|
|
machineid = InsertOrUpdatePC(hostname, serialnumber, manufacturer, model, pcType, _
|
|
loggedinuser, machinenumber, osid, pcstatusid, _
|
|
warrantyEndDate, warrantyStatus, warrantyServiceLevel, warrantyDaysRemaining)
|
|
|
|
If Err.Number <> 0 Then
|
|
SendError "Failed to insert/update PC: " & Err.Description
|
|
Exit Sub
|
|
End If
|
|
|
|
If machineid = 0 Then
|
|
SendError "Failed to get machineid after insert/update"
|
|
Exit Sub
|
|
End If
|
|
|
|
LogToFile "PC record created/updated. machineid: " & machineid
|
|
|
|
' Insert network interfaces
|
|
Dim interfaceCount
|
|
interfaceCount = 0
|
|
If networkInterfaces <> "" Then
|
|
interfaceCount = InsertNetworkInterfaces(machineid, networkInterfaces)
|
|
LogToFile "Network interfaces inserted: " & interfaceCount
|
|
End If
|
|
|
|
' Insert communication configs (serial ports)
|
|
Dim commConfigCount
|
|
commConfigCount = 0
|
|
If commConfigs <> "" Then
|
|
commConfigCount = InsertCommConfigs(machineid, commConfigs)
|
|
LogToFile "Comm configs inserted: " & commConfigCount
|
|
End If
|
|
|
|
' Insert DNC config
|
|
Dim dncSuccess
|
|
dncSuccess = False
|
|
If dncConfig <> "" Then
|
|
dncSuccess = InsertDNCConfig(machineid, dncConfig, dncDualPathEnabled, dncPath1Name, dncPath2Name, _
|
|
dncGeRegistry32Bit, dncGeRegistry64Bit, dncGeRegistryNotes)
|
|
LogToFile "DNC config inserted: " & dncSuccess
|
|
End If
|
|
|
|
' Create PC-to-machine relationship if machine number provided
|
|
Dim relationshipCreated
|
|
relationshipCreated = False
|
|
If machinenumber <> "" Then
|
|
relationshipCreated = CreatePCMachineRelationship(machineid, machinenumber)
|
|
LogToFile "PC-Machine relationship created: " & relationshipCreated
|
|
End If
|
|
|
|
' Update warranty data in separate table
|
|
If warrantyEndDate <> "" Then
|
|
UpdateWarrantyData machineid, warrantyEndDate, warrantyStatus, warrantyServiceLevel, warrantyDaysRemaining
|
|
End If
|
|
|
|
' Send success response
|
|
Dim responseObj
|
|
Set responseObj = Server.CreateObject("Scripting.Dictionary")
|
|
responseObj.Add "success", True
|
|
responseObj.Add "message", "PC asset data updated successfully"
|
|
responseObj.Add "machineid", machineid
|
|
responseObj.Add "hostname", hostname
|
|
responseObj.Add "operation", "complete"
|
|
|
|
Dim dataObj
|
|
Set dataObj = Server.CreateObject("Scripting.Dictionary")
|
|
dataObj.Add "networkInterfaces", interfaceCount
|
|
dataObj.Add "commConfigs", commConfigCount
|
|
dataObj.Add "dncConfig", dncSuccess
|
|
dataObj.Add "relationshipCreated", relationshipCreated
|
|
responseObj.Add "data", dataObj
|
|
|
|
SendResponse responseObj
|
|
End Sub
|
|
|
|
Sub UpdatePrinterMapping()
|
|
On Error Resume Next
|
|
|
|
Dim hostname, printerFQDN
|
|
hostname = Trim(Request.Form("hostname") & "")
|
|
printerFQDN = Trim(Request.Form("printerFQDN") & "")
|
|
|
|
If hostname = "" Or printerFQDN = "" Then
|
|
SendError "hostname and printerFQDN are required"
|
|
Exit Sub
|
|
End If
|
|
|
|
LogToFile "UpdatePrinterMapping: hostname=" & hostname & ", printerFQDN=" & printerFQDN
|
|
|
|
' Get machineid for this hostname
|
|
Dim machineid
|
|
machineid = GetMachineidByHostname(hostname)
|
|
|
|
If machineid = 0 Then
|
|
SendError "PC not found: " & hostname
|
|
Exit Sub
|
|
End If
|
|
|
|
' Find printer by FQDN (try name match, IP match, or alias match)
|
|
Dim printerid, matchMethod
|
|
printerid = 0
|
|
matchMethod = ""
|
|
|
|
' Try exact printer name match
|
|
Dim strSQL, rsResult
|
|
strSQL = "SELECT printerid FROM printers WHERE printername = ?"
|
|
Set rsResult = ExecuteParameterizedQuery(objConn, strSQL, Array(printerFQDN))
|
|
If Not rsResult.EOF Then
|
|
printerid = rsResult("printerid")
|
|
matchMethod = "name"
|
|
End If
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
|
|
' Try IP address match if FQDN looks like an IP
|
|
If printerid = 0 And IsIPAddress(printerFQDN) Then
|
|
strSQL = "SELECT p.printerid FROM printers p " & _
|
|
"INNER JOIN machines m ON p.machineid = m.machineid " & _
|
|
"LEFT JOIN communications c ON m.machineid = c.machineid AND c.isprimary = 1 " & _
|
|
"WHERE c.address = ?"
|
|
Set rsResult = ExecuteParameterizedQuery(objConn, strSQL, Array(printerFQDN))
|
|
If Not rsResult.EOF Then
|
|
printerid = rsResult("printerid")
|
|
matchMethod = "ip"
|
|
End If
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
End If
|
|
|
|
If printerid = 0 Then
|
|
SendError "Printer not found: " & printerFQDN
|
|
Exit Sub
|
|
End If
|
|
|
|
' Update machine record to link to this printer
|
|
Dim cmdUpdate
|
|
Set cmdUpdate = Server.CreateObject("ADODB.Command")
|
|
cmdUpdate.ActiveConnection = objConn
|
|
cmdUpdate.CommandText = "UPDATE machines SET printerid = ? WHERE machineid = ?"
|
|
cmdUpdate.Parameters.Append cmdUpdate.CreateParameter("@printerid", 3, 1, , CLng(printerid))
|
|
cmdUpdate.Parameters.Append cmdUpdate.CreateParameter("@machineid", 3, 1, , CLng(machineid))
|
|
cmdUpdate.Execute
|
|
|
|
If Err.Number <> 0 Then
|
|
SendError "Failed to update printer mapping: " & Err.Description
|
|
Exit Sub
|
|
End If
|
|
|
|
' Send success response
|
|
Dim responseObj
|
|
Set responseObj = Server.CreateObject("Scripting.Dictionary")
|
|
responseObj.Add "success", True
|
|
responseObj.Add "message", "Printer mapping updated"
|
|
|
|
Dim dataObj
|
|
Set dataObj = Server.CreateObject("Scripting.Dictionary")
|
|
dataObj.Add "printerId", printerid
|
|
dataObj.Add "machinesUpdated", 1
|
|
dataObj.Add "matchMethod", matchMethod
|
|
responseObj.Add "data", dataObj
|
|
|
|
SendResponse responseObj
|
|
End Sub
|
|
|
|
Sub UpdateInstalledApps()
|
|
On Error Resume Next
|
|
|
|
Dim hostname, installedApps
|
|
hostname = Trim(Request.Form("hostname") & "")
|
|
installedApps = Request.Form("installedApps")
|
|
|
|
If hostname = "" Or installedApps = "" Then
|
|
SendError "hostname and installedApps are required"
|
|
Exit Sub
|
|
End If
|
|
|
|
LogToFile "UpdateInstalledApps: hostname=" & hostname
|
|
|
|
' Get machineid for this hostname
|
|
Dim machineid
|
|
machineid = GetMachineidByHostname(hostname)
|
|
|
|
If machineid = 0 Then
|
|
SendError "PC not found: " & hostname
|
|
Exit Sub
|
|
End If
|
|
|
|
' Parse JSON array of apps (simple parsing)
|
|
Dim appsArray
|
|
appsArray = ParseJSONArray(installedApps)
|
|
|
|
LogToFile "Parsed apps array, count: " & (UBound(appsArray) + 1)
|
|
|
|
' Clear existing app mappings for this PC
|
|
Dim cmdDelete
|
|
Set cmdDelete = Server.CreateObject("ADODB.Command")
|
|
cmdDelete.ActiveConnection = objConn
|
|
cmdDelete.CommandText = "DELETE FROM installedapps WHERE machineid = ?"
|
|
cmdDelete.Parameters.Append cmdDelete.CreateParameter("@machineid", 3, 1, , CLng(machineid))
|
|
cmdDelete.Execute
|
|
|
|
' Insert new app mappings
|
|
Dim appCount, i
|
|
appCount = 0
|
|
|
|
For i = 0 To UBound(appsArray)
|
|
Dim appName, appVersion
|
|
' PowerShell sends lowercase 'name' and 'version' keys
|
|
appName = Trim(GetJSONValue(appsArray(i), "name") & "")
|
|
appVersion = Trim(GetJSONValue(appsArray(i), "version") & "")
|
|
|
|
LogToFile "App " & i & ": name='" & appName & "', version='" & appVersion & "'"
|
|
|
|
If appName <> "" Then
|
|
' Get or create application ID
|
|
Dim appid
|
|
appid = GetOrCreateApplication(appName, appVersion)
|
|
|
|
LogToFile "GetOrCreateApplication returned appid: " & appid
|
|
|
|
If appid > 0 Then
|
|
' Insert mapping (installedapps table uses appid not applicationid)
|
|
Dim cmdInsert
|
|
Set cmdInsert = Server.CreateObject("ADODB.Command")
|
|
cmdInsert.ActiveConnection = objConn
|
|
cmdInsert.CommandText = "INSERT INTO installedapps (machineid, appid, isactive) VALUES (?, ?, ?)"
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@machineid", 3, 1, , CLng(machineid))
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@appid", 3, 1, , CLng(appid))
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@isactive", 11, 1, , 1) ' 1 = active
|
|
cmdInsert.Execute
|
|
|
|
If Err.Number = 0 Then
|
|
appCount = appCount + 1
|
|
End If
|
|
End If
|
|
End If
|
|
Next
|
|
|
|
LogToFile "Installed apps inserted: " & appCount
|
|
|
|
' Send success response
|
|
Dim responseObj
|
|
Set responseObj = Server.CreateObject("Scripting.Dictionary")
|
|
responseObj.Add "success", True
|
|
responseObj.Add "message", "Installed applications updated"
|
|
|
|
Dim dataObj
|
|
Set dataObj = Server.CreateObject("Scripting.Dictionary")
|
|
dataObj.Add "appsProcessed", appCount
|
|
responseObj.Add "data", dataObj
|
|
|
|
SendResponse responseObj
|
|
End Sub
|
|
|
|
Sub GetDashboardData()
|
|
' Simple health check endpoint
|
|
Dim responseObj
|
|
Set responseObj = Server.CreateObject("Scripting.Dictionary")
|
|
responseObj.Add "success", True
|
|
responseObj.Add "message", "ShopDB API is online"
|
|
responseObj.Add "version", "1.0"
|
|
responseObj.Add "schema", "Phase 2"
|
|
|
|
SendResponse responseObj
|
|
End Sub
|
|
|
|
' ============================================================================
|
|
' HELPER FUNCTIONS - PC MANAGEMENT
|
|
' ============================================================================
|
|
|
|
Function InsertOrUpdatePC(hostname, serialnumber, manufacturer, model, pcType, _
|
|
loggedinuser, machinenumber, osid, pcstatusid, _
|
|
warrantyEndDate, warrantyStatus, warrantyServiceLevel, warrantyDaysRemaining)
|
|
On Error Resume Next
|
|
|
|
' Get or create vendor/model IDs and determine machine type
|
|
Dim vendorId, modelId, machineTypeId
|
|
vendorId = GetOrCreateVendor(objConn, manufacturer)
|
|
modelId = GetOrCreateModel(objConn, model, vendorId)
|
|
machineTypeId = GetMachineTypeIdFromPCType(pcType)
|
|
|
|
' Ensure all IDs are numeric (fallback to safe defaults if empty)
|
|
If Not IsNumeric(vendorId) Or vendorId = "" Then vendorId = 0
|
|
If Not IsNumeric(modelId) Or modelId = "" Then modelId = 1 ' TBD model
|
|
If Not IsNumeric(machineTypeId) Or machineTypeId = "" Then machineTypeId = 33 ' Standard PC
|
|
|
|
LogToFile "Vendor ID: " & vendorId & ", Model ID: " & modelId & ", Machine Type ID: " & machineTypeId
|
|
|
|
' Check if PC already exists (Phase 2: identify PCs by machinetypeid 33,34,35)
|
|
Dim strSQL, rsResult, safeHostname
|
|
safeHostname = Replace(hostname, "'", "''")
|
|
strSQL = "SELECT machineid FROM machines WHERE hostname = '" & safeHostname & "' AND machinetypeid IN (33,34,35)"
|
|
Set rsResult = objConn.Execute(strSQL)
|
|
|
|
Dim machineid
|
|
machineid = 0
|
|
|
|
If Err.Number <> 0 Then
|
|
LogToFile "ERROR checking for existing PC: " & Err.Description
|
|
InsertOrUpdatePC = 0
|
|
Exit Function
|
|
End If
|
|
|
|
' Declare string sanitization variables for both UPDATE and INSERT paths
|
|
Dim safeSerial, safeUser, safeMachineNum
|
|
|
|
If Not rsResult.EOF Then
|
|
' PC exists - UPDATE
|
|
machineid = rsResult("machineid")
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
|
|
LogToFile "Updating existing PC, machineid: " & machineid
|
|
|
|
' Build UPDATE with direct values
|
|
safeSerial = Replace(serialnumber, "'", "''")
|
|
If loggedinuser <> "" Then
|
|
safeUser = Replace(loggedinuser, "'", "''")
|
|
Else
|
|
safeUser = ""
|
|
End If
|
|
If machinenumber <> "" Then
|
|
safeMachineNum = Replace(machinenumber, "'", "''")
|
|
Else
|
|
safeMachineNum = ""
|
|
End If
|
|
|
|
' Build UPDATE SQL with proper conditional logic (VBScript doesn't have IIf)
|
|
Dim sqlModelId, sqlUserId, sqlMachineNum, sqlOsId, sqlStatusId
|
|
|
|
If modelId > 0 Then
|
|
sqlModelId = CLng(modelId)
|
|
Else
|
|
sqlModelId = "NULL"
|
|
End If
|
|
|
|
If safeUser <> "" Then
|
|
sqlUserId = "'" & safeUser & "'"
|
|
Else
|
|
sqlUserId = "NULL"
|
|
End If
|
|
|
|
If safeMachineNum <> "" Then
|
|
sqlMachineNum = "'" & safeMachineNum & "'"
|
|
Else
|
|
sqlMachineNum = "NULL"
|
|
End If
|
|
|
|
If osid > 0 Then
|
|
sqlOsId = CLng(osid)
|
|
Else
|
|
sqlOsId = "NULL"
|
|
End If
|
|
|
|
If pcstatusid > 0 Then
|
|
sqlStatusId = CLng(pcstatusid)
|
|
Else
|
|
sqlStatusId = "NULL"
|
|
End If
|
|
|
|
strSQL = "UPDATE machines SET " & _
|
|
"serialnumber = '" & safeSerial & "', " & _
|
|
"modelnumberid = " & sqlModelId & ", " & _
|
|
"machinetypeid = " & CLng(machineTypeId) & ", " & _
|
|
"loggedinuser = " & sqlUserId & ", " & _
|
|
"machinenumber = " & sqlMachineNum & ", " & _
|
|
"osid = " & sqlOsId & ", " & _
|
|
"machinestatusid = " & sqlStatusId & ", " & _
|
|
"lastupdated = NOW() " & _
|
|
"WHERE machineid = " & CLng(machineid) & " AND machinetypeid IN (33,34,35)"
|
|
|
|
LogToFile "UPDATE SQL built: " & Left(strSQL, 200) & "..."
|
|
|
|
objConn.Execute strSQL
|
|
|
|
If Err.Number <> 0 Then
|
|
LogToFile "ERROR updating PC: " & Err.Description
|
|
InsertOrUpdatePC = 0
|
|
Exit Function
|
|
End If
|
|
Else
|
|
' PC doesn't exist - INSERT
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
|
|
LogToFile "Inserting new PC"
|
|
|
|
' Build INSERT with direct values (sanitize strings)
|
|
safeSerial = Replace(serialnumber, "'", "''")
|
|
If loggedinuser <> "" Then
|
|
safeUser = Replace(loggedinuser, "'", "''")
|
|
Else
|
|
safeUser = ""
|
|
End If
|
|
If machinenumber <> "" Then
|
|
safeMachineNum = Replace(machinenumber, "'", "''")
|
|
Else
|
|
safeMachineNum = ""
|
|
End If
|
|
|
|
LogToFile "Building INSERT SQL..."
|
|
LogToFile "Values: hostname=" & safeHostname & ", serial=" & safeSerial
|
|
|
|
' Build SQL in parts to isolate error
|
|
Dim sqlPart1, sqlPart2, sqlPart3
|
|
sqlPart1 = "INSERT INTO machines (hostname, serialnumber, modelnumberid, machinetypeid, loggedinuser, machinenumber, osid, machinestatusid, isactive, lastupdated) VALUES ("
|
|
sqlPart2 = "'" & safeHostname & "', '" & safeSerial & "', "
|
|
|
|
If modelId > 0 Then
|
|
sqlPart2 = sqlPart2 & CLng(modelId) & ", "
|
|
Else
|
|
sqlPart2 = sqlPart2 & "NULL, "
|
|
End If
|
|
|
|
' machinetypeid is required for PCs (33=Standard, 34=Engineering, 35=Shopfloor)
|
|
sqlPart2 = sqlPart2 & CLng(machineTypeId) & ", "
|
|
|
|
If safeUser <> "" Then
|
|
sqlPart2 = sqlPart2 & "'" & safeUser & "', "
|
|
Else
|
|
sqlPart2 = sqlPart2 & "NULL, "
|
|
End If
|
|
|
|
If safeMachineNum <> "" Then
|
|
sqlPart2 = sqlPart2 & "'" & safeMachineNum & "', "
|
|
Else
|
|
sqlPart2 = sqlPart2 & "NULL, "
|
|
End If
|
|
|
|
If osid > 0 Then
|
|
sqlPart3 = CLng(osid) & ", "
|
|
Else
|
|
sqlPart3 = "NULL, "
|
|
End If
|
|
|
|
If pcstatusid > 0 Then
|
|
sqlPart3 = sqlPart3 & CLng(pcstatusid) & ", 1, NOW())"
|
|
Else
|
|
sqlPart3 = sqlPart3 & "NULL, 1, NOW())"
|
|
End If
|
|
|
|
strSQL = sqlPart1 & sqlPart2 & sqlPart3
|
|
LogToFile "SQL built successfully, executing..."
|
|
|
|
objConn.Execute strSQL
|
|
|
|
If Err.Number <> 0 Then
|
|
LogToFile "ERROR inserting PC: " & Err.Description
|
|
InsertOrUpdatePC = 0
|
|
Exit Function
|
|
End If
|
|
|
|
' Get the new machineid
|
|
strSQL = "SELECT LAST_INSERT_ID() AS newid"
|
|
Set rsResult = objConn.Execute(strSQL)
|
|
If Not rsResult.EOF Then
|
|
machineid = CLng(rsResult("newid"))
|
|
LogToFile "Retrieved new machineid from LAST_INSERT_ID: " & machineid
|
|
Else
|
|
machineid = 0
|
|
LogToFile "ERROR: LAST_INSERT_ID returned no rows"
|
|
End If
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
End If
|
|
|
|
LogToFile "InsertOrUpdatePC returning machineid: " & machineid
|
|
InsertOrUpdatePC = machineid
|
|
End Function
|
|
|
|
Function GetMachineidByHostname(hostname)
|
|
On Error Resume Next
|
|
|
|
Dim strSQL, rsResult, safeHostname
|
|
safeHostname = Replace(hostname, "'", "''")
|
|
strSQL = "SELECT machineid FROM machines WHERE hostname = '" & safeHostname & "' AND machinetypeid IN (33,34,35)"
|
|
Set rsResult = objConn.Execute(strSQL)
|
|
|
|
If Not rsResult.EOF Then
|
|
GetMachineidByHostname = CLng(rsResult("machineid"))
|
|
Else
|
|
GetMachineidByHostname = 0
|
|
End If
|
|
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
End Function
|
|
|
|
Sub ClearShopfloorData(hostname)
|
|
On Error Resume Next
|
|
|
|
Dim machineid
|
|
machineid = GetMachineidByHostname(hostname)
|
|
|
|
If machineid = 0 Then
|
|
LogToFile "ClearShopfloorData: Cannot find machineid for hostname: " & hostname
|
|
Exit Sub
|
|
End If
|
|
|
|
LogToFile "ClearShopfloorData: Clearing data for machineid " & machineid
|
|
|
|
' Delete from communications table
|
|
Dim cmdDelete
|
|
Set cmdDelete = Server.CreateObject("ADODB.Command")
|
|
cmdDelete.ActiveConnection = objConn
|
|
cmdDelete.CommandText = "DELETE FROM communications WHERE machineid = ?"
|
|
cmdDelete.Parameters.Append cmdDelete.CreateParameter("@machineid", 3, 1, , CLng(machineid))
|
|
cmdDelete.Execute
|
|
|
|
LogToFile "Deleted " & cmdDelete.RecordsAffected & " communications records"
|
|
|
|
' Delete from pc_comm_config
|
|
Set cmdDelete = Server.CreateObject("ADODB.Command")
|
|
cmdDelete.ActiveConnection = objConn
|
|
cmdDelete.CommandText = "DELETE FROM pc_comm_config WHERE machineid = ?"
|
|
cmdDelete.Parameters.Append cmdDelete.CreateParameter("@machineid", 3, 1, , CLng(machineid))
|
|
cmdDelete.Execute
|
|
|
|
LogToFile "Deleted " & cmdDelete.RecordsAffected & " comm config records"
|
|
|
|
' Delete from pc_dnc_config
|
|
Set cmdDelete = Server.CreateObject("ADODB.Command")
|
|
cmdDelete.ActiveConnection = objConn
|
|
cmdDelete.CommandText = "DELETE FROM pc_dnc_config WHERE machineid = ?"
|
|
cmdDelete.Parameters.Append cmdDelete.CreateParameter("@machineid", 3, 1, , CLng(machineid))
|
|
cmdDelete.Execute
|
|
|
|
LogToFile "Deleted " & cmdDelete.RecordsAffected & " DNC config records"
|
|
End Sub
|
|
|
|
' ============================================================================
|
|
' HELPER FUNCTIONS - NETWORK & COMMUNICATION
|
|
' ============================================================================
|
|
|
|
Function InsertNetworkInterfaces(machineid, networkInterfacesJSON)
|
|
On Error Resume Next
|
|
|
|
Dim interfacesArray
|
|
interfacesArray = ParseJSONArray(networkInterfacesJSON)
|
|
|
|
Dim count, i
|
|
count = 0
|
|
|
|
For i = 0 To UBound(interfacesArray)
|
|
Dim ipAddress, macAddress, subnetMask, gateway, interfaceName, isMachineNetwork
|
|
|
|
ipAddress = Trim(GetJSONValue(interfacesArray(i), "IPAddress") & "")
|
|
macAddress = Trim(GetJSONValue(interfacesArray(i), "MACAddress") & "")
|
|
subnetMask = Trim(GetJSONValue(interfacesArray(i), "SubnetMask") & "")
|
|
gateway = Trim(GetJSONValue(interfacesArray(i), "DefaultGateway") & "")
|
|
interfaceName = Trim(GetJSONValue(interfacesArray(i), "InterfaceName") & "")
|
|
isMachineNetwork = GetJSONValue(interfacesArray(i), "IsMachineNetwork")
|
|
|
|
If interfaceName = "" Then interfaceName = "Interface " & (i + 1)
|
|
|
|
' Determine if primary (first interface with valid IP)
|
|
Dim isPrimary
|
|
isPrimary = 0
|
|
If i = 0 And ipAddress <> "" Then isPrimary = 1
|
|
|
|
' Insert into communications table
|
|
Dim cmdInsert
|
|
Set cmdInsert = Server.CreateObject("ADODB.Command")
|
|
cmdInsert.ActiveConnection = objConn
|
|
cmdInsert.CommandText = "INSERT INTO communications (" & _
|
|
"machineid, comstypeid, address, macaddress, " & _
|
|
"subnetmask, gateway, interfacename, isprimary, isactive" & _
|
|
") VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)"
|
|
|
|
' Prepare parameter values (VBScript doesn't have IIf)
|
|
Dim paramAddress, paramMacAddress, paramSubnet, paramGateway
|
|
If ipAddress <> "" Then paramAddress = ipAddress Else paramAddress = Null
|
|
If macAddress <> "" Then paramMacAddress = macAddress Else paramMacAddress = Null
|
|
If subnetMask <> "" Then paramSubnet = subnetMask Else paramSubnet = Null
|
|
If gateway <> "" Then paramGateway = gateway Else paramGateway = Null
|
|
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@machineid", 3, 1, , CLng(machineid))
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@comstypeid", 3, 1, , 1) ' 1 = Network Interface
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@address", 200, 1, 45, paramAddress)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@macaddress", 200, 1, 17, paramMacAddress)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@subnetmask", 200, 1, 45, paramSubnet)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@gateway", 200, 1, 45, paramGateway)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@interfacename", 200, 1, 50, interfaceName)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@isprimary", 3, 1, , isPrimary)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@isactive", 3, 1, , 1)
|
|
|
|
cmdInsert.Execute
|
|
|
|
If Err.Number = 0 Then
|
|
count = count + 1
|
|
Else
|
|
LogToFile "ERROR inserting network interface: " & Err.Description
|
|
End If
|
|
Next
|
|
|
|
InsertNetworkInterfaces = count
|
|
End Function
|
|
|
|
Function InsertCommConfigs(machineid, commConfigsJSON)
|
|
On Error Resume Next
|
|
|
|
Dim configsArray
|
|
configsArray = ParseJSONArray(commConfigsJSON)
|
|
|
|
Dim count, i
|
|
count = 0
|
|
|
|
For i = 0 To UBound(configsArray)
|
|
Dim portName, baudRate, dataBits, parity, stopBits, flowControl
|
|
|
|
portName = Trim(GetJSONValue(configsArray(i), "PortName") & "")
|
|
baudRate = GetJSONValue(configsArray(i), "BaudRate")
|
|
dataBits = GetJSONValue(configsArray(i), "DataBits")
|
|
parity = Trim(GetJSONValue(configsArray(i), "Parity") & "")
|
|
stopBits = Trim(GetJSONValue(configsArray(i), "StopBits") & "")
|
|
flowControl = Trim(GetJSONValue(configsArray(i), "FlowControl") & "")
|
|
|
|
If portName <> "" Then
|
|
Dim cmdInsert
|
|
Set cmdInsert = Server.CreateObject("ADODB.Command")
|
|
cmdInsert.ActiveConnection = objConn
|
|
cmdInsert.CommandText = "INSERT INTO pc_comm_config (" & _
|
|
"machineid, portname, baudrate, databits, parity, stopbits, flowcontrol" & _
|
|
") VALUES (?, ?, ?, ?, ?, ?, ?)"
|
|
|
|
' Prepare parameter values (VBScript doesn't have IIf)
|
|
Dim paramBaud, paramDataBits, paramParity, paramStopBits, paramFlowControl
|
|
If IsNumeric(baudRate) Then paramBaud = CLng(baudRate) Else paramBaud = Null
|
|
If IsNumeric(dataBits) Then paramDataBits = CLng(dataBits) Else paramDataBits = Null
|
|
If parity <> "" Then paramParity = parity Else paramParity = Null
|
|
If stopBits <> "" Then paramStopBits = stopBits Else paramStopBits = Null
|
|
If flowControl <> "" Then paramFlowControl = flowControl Else paramFlowControl = Null
|
|
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@machineid", 3, 1, , CLng(machineid))
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@portname", 200, 1, 50, portName)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@baudrate", 3, 1, , paramBaud)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@databits", 3, 1, , paramDataBits)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@parity", 200, 1, 20, paramParity)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@stopbits", 200, 1, 20, paramStopBits)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@flowcontrol", 200, 1, 50, paramFlowControl)
|
|
|
|
cmdInsert.Execute
|
|
|
|
If Err.Number = 0 Then
|
|
count = count + 1
|
|
Else
|
|
LogToFile "ERROR inserting comm config: " & Err.Description
|
|
End If
|
|
End If
|
|
Next
|
|
|
|
InsertCommConfigs = count
|
|
End Function
|
|
|
|
Function InsertDNCConfig(machineid, dncConfigJSON, dualPathEnabled, path1Name, path2Name, _
|
|
geRegistry32Bit, geRegistry64Bit, geRegistryNotes)
|
|
On Error Resume Next
|
|
|
|
' Parse DNC config JSON
|
|
Dim dncObj
|
|
Set dncObj = ParseJSONObject(dncConfigJSON)
|
|
|
|
If dncObj Is Nothing Then
|
|
InsertDNCConfig = False
|
|
Exit Function
|
|
End If
|
|
|
|
' Extract DNC values
|
|
Dim site, cnc, ncif, machineNumber, hostType
|
|
Dim ftpHostPrimary, ftpHostSecondary, ftpAccount
|
|
Dim debug, uploads, scanner, dripFeed, additionalSettings
|
|
|
|
site = Trim(GetDictValue(dncObj, "Site") & "")
|
|
cnc = Trim(GetDictValue(dncObj, "CNC") & "")
|
|
ncif = Trim(GetDictValue(dncObj, "NCIF") & "")
|
|
machineNumber = Trim(GetDictValue(dncObj, "MachineNumber") & "")
|
|
hostType = Trim(GetDictValue(dncObj, "HostType") & "")
|
|
ftpHostPrimary = Trim(GetDictValue(dncObj, "FTPHostPrimary") & "")
|
|
ftpHostSecondary = Trim(GetDictValue(dncObj, "FTPHostSecondary") & "")
|
|
ftpAccount = Trim(GetDictValue(dncObj, "FTPAccount") & "")
|
|
debug = Trim(GetDictValue(dncObj, "Debug") & "")
|
|
uploads = Trim(GetDictValue(dncObj, "Uploads") & "")
|
|
scanner = Trim(GetDictValue(dncObj, "Scanner") & "")
|
|
dripFeed = Trim(GetDictValue(dncObj, "DripFeed") & "")
|
|
additionalSettings = Trim(GetDictValue(dncObj, "AdditionalSettings") & "")
|
|
|
|
' Convert boolean strings to integers
|
|
Dim dualPathInt, geRegistry32Int, geRegistry64Int
|
|
dualPathInt = ConvertBoolToInt(dualPathEnabled)
|
|
geRegistry32Int = ConvertBoolToInt(geRegistry32Bit)
|
|
geRegistry64Int = ConvertBoolToInt(geRegistry64Bit)
|
|
|
|
' Insert DNC config
|
|
Dim cmdInsert
|
|
Set cmdInsert = Server.CreateObject("ADODB.Command")
|
|
cmdInsert.ActiveConnection = objConn
|
|
cmdInsert.CommandText = "INSERT INTO pc_dnc_config (" & _
|
|
"machineid, site, cnc, ncif, machinenumber, hosttype, " & _
|
|
"ftphostprimary, ftphostsecondary, ftpaccount, " & _
|
|
"debug, uploads, scanner, dripfeed, additionalsettings, " & _
|
|
"dualpath_enabled, path1_name, path2_name, " & _
|
|
"ge_registry_32bit, ge_registry_64bit, ge_registry_notes, " & _
|
|
"lastupdated" & _
|
|
") VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, NOW())"
|
|
|
|
' Prepare parameter values (VBScript doesn't have IIf)
|
|
Dim pSite, pCnc, pNcif, pMachineNum, pHostType, pFtpPri, pFtpSec, pFtpAcct
|
|
Dim pDebug, pUploads, pScanner, pDripFeed, pAddSet, pDualPath, pPath1, pPath2, pGe32, pGe64, pGeNotes
|
|
|
|
If site <> "" Then pSite = site Else pSite = Null
|
|
If cnc <> "" Then pCnc = cnc Else pCnc = Null
|
|
If ncif <> "" Then pNcif = ncif Else pNcif = Null
|
|
If machineNumber <> "" Then pMachineNum = machineNumber Else pMachineNum = Null
|
|
If hostType <> "" Then pHostType = hostType Else pHostType = Null
|
|
If ftpHostPrimary <> "" Then pFtpPri = ftpHostPrimary Else pFtpPri = Null
|
|
If ftpHostSecondary <> "" Then pFtpSec = ftpHostSecondary Else pFtpSec = Null
|
|
If ftpAccount <> "" Then pFtpAcct = ftpAccount Else pFtpAcct = Null
|
|
If debug <> "" Then pDebug = debug Else pDebug = Null
|
|
If uploads <> "" Then pUploads = uploads Else pUploads = Null
|
|
If scanner <> "" Then pScanner = scanner Else pScanner = Null
|
|
If dripFeed <> "" Then pDripFeed = dripFeed Else pDripFeed = Null
|
|
If additionalSettings <> "" Then pAddSet = additionalSettings Else pAddSet = Null
|
|
If dualPathInt >= 0 Then pDualPath = dualPathInt Else pDualPath = Null
|
|
If path1Name <> "" Then pPath1 = path1Name Else pPath1 = Null
|
|
If path2Name <> "" Then pPath2 = path2Name Else pPath2 = Null
|
|
If geRegistry32Int >= 0 Then pGe32 = geRegistry32Int Else pGe32 = Null
|
|
If geRegistry64Int >= 0 Then pGe64 = geRegistry64Int Else pGe64 = Null
|
|
If geRegistryNotes <> "" Then pGeNotes = geRegistryNotes Else pGeNotes = Null
|
|
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@machineid", 3, 1, , CLng(machineid))
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@site", 200, 1, 50, pSite)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@cnc", 200, 1, 50, pCnc)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@ncif", 200, 1, 50, pNcif)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@machinenum", 200, 1, 50, pMachineNum)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@hosttype", 200, 1, 50, pHostType)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@ftppri", 200, 1, 100, pFtpPri)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@ftpsec", 200, 1, 100, pFtpSec)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@ftpacct", 200, 1, 100, pFtpAcct)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@debug", 200, 1, 50, pDebug)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@uploads", 200, 1, 100, pUploads)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@scanner", 200, 1, 50, pScanner)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@dripfeed", 200, 1, 50, pDripFeed)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@addset", 200, 1, 255, pAddSet)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@dualpath", 3, 1, , pDualPath)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@path1", 200, 1, 100, pPath1)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@path2", 200, 1, 100, pPath2)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@ge32", 3, 1, , pGe32)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@ge64", 3, 1, , pGe64)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@genotes", 200, 1, 255, pGeNotes)
|
|
|
|
cmdInsert.Execute
|
|
|
|
If Err.Number <> 0 Then
|
|
LogToFile "ERROR inserting DNC config: " & Err.Description
|
|
InsertDNCConfig = False
|
|
Else
|
|
InsertDNCConfig = True
|
|
End If
|
|
End Function
|
|
|
|
' ============================================================================
|
|
' HELPER FUNCTIONS - RELATIONSHIPS & WARRANTY
|
|
' ============================================================================
|
|
|
|
Function CreatePCMachineRelationship(pcMachineid, machineNumber)
|
|
On Error Resume Next
|
|
|
|
If machineNumber = "" Then
|
|
CreatePCMachineRelationship = False
|
|
Exit Function
|
|
End If
|
|
|
|
' Find equipment by machine number (Phase 2: PCs are machinetypeid 33-35, Equipment is 1-32)
|
|
Dim strSQL, rsResult, safeMachineNumber
|
|
safeMachineNumber = Replace(machineNumber, "'", "''")
|
|
strSQL = "SELECT machineid FROM machines WHERE machinenumber = '" & safeMachineNumber & "' AND machinetypeid NOT IN (33,34,35)"
|
|
LogToFile "CreatePCMachineRelationship: Executing SQL: " & strSQL
|
|
Set rsResult = objConn.Execute(strSQL)
|
|
|
|
Dim equipmentMachineid
|
|
If Not rsResult.EOF Then
|
|
equipmentMachineid = CLng(rsResult("machineid"))
|
|
LogToFile "CreatePCMachineRelationship: Found equipment machineid=" & equipmentMachineid & " for machine number: " & machineNumber
|
|
If Err.Number <> 0 Then
|
|
LogToFile "CreatePCMachineRelationship: ERROR reading machineid: " & Err.Description
|
|
Err.Clear
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
CreatePCMachineRelationship = False
|
|
Exit Function
|
|
End If
|
|
Else
|
|
LogToFile "CreatePCMachineRelationship: Equipment not found for machine number: " & machineNumber
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
CreatePCMachineRelationship = False
|
|
Exit Function
|
|
End If
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
|
|
LogToFile "CreatePCMachineRelationship: Creating relationship PC " & pcMachineid & " → Controls → Equipment " & equipmentMachineid
|
|
|
|
' Get "Controls" relationship type ID
|
|
strSQL = "SELECT relationshiptypeid FROM relationshiptypes WHERE relationshiptype = 'Controls'"
|
|
Set rsResult = objConn.Execute(strSQL)
|
|
|
|
Dim relationshiptypeid
|
|
If Not rsResult.EOF Then
|
|
relationshiptypeid = rsResult("relationshiptypeid")
|
|
Else
|
|
LogToFile "CreatePCMachineRelationship: Controls relationship type not found"
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
CreatePCMachineRelationship = False
|
|
Exit Function
|
|
End If
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
|
|
' Check if relationship already exists (PC → Equipment)
|
|
strSQL = "SELECT relationshipid FROM machinerelationships " & _
|
|
"WHERE machineid = " & CLng(pcMachineid) & " AND related_machineid = " & CLng(equipmentMachineid) & " AND relationshiptypeid = " & CLng(relationshiptypeid)
|
|
LogToFile "CreatePCMachineRelationship: Checking for duplicate: " & strSQL
|
|
Set rsResult = objConn.Execute(strSQL)
|
|
|
|
If Not rsResult.EOF Then
|
|
' Relationship already exists
|
|
LogToFile "CreatePCMachineRelationship: Relationship already exists (relationshipid=" & rsResult("relationshipid") & ")"
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
CreatePCMachineRelationship = True
|
|
Exit Function
|
|
End If
|
|
LogToFile "CreatePCMachineRelationship: No duplicate found, proceeding with INSERT"
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
|
|
' Create new Controls relationship (PC → Equipment)
|
|
' Fixed: PC should be machineid, Equipment should be related_machineid
|
|
Dim cmdInsert
|
|
Set cmdInsert = Server.CreateObject("ADODB.Command")
|
|
cmdInsert.ActiveConnection = objConn
|
|
cmdInsert.CommandText = "INSERT INTO machinerelationships (" & _
|
|
"machineid, related_machineid, relationshiptypeid, isactive" & _
|
|
") VALUES (?, ?, ?, 1)"
|
|
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@pcid", 3, 1, , CLng(pcMachineid))
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@equipmentid", 3, 1, , CLng(equipmentMachineid))
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@reltypeid", 3, 1, , CLng(relationshiptypeid))
|
|
|
|
cmdInsert.Execute
|
|
|
|
If Err.Number <> 0 Then
|
|
LogToFile "ERROR creating PC-machine relationship: " & Err.Description
|
|
CreatePCMachineRelationship = False
|
|
Else
|
|
LogToFile "Created Controls relationship: Equipment " & equipmentMachineid & " controlled by PC " & pcMachineid
|
|
CreatePCMachineRelationship = True
|
|
End If
|
|
End Function
|
|
|
|
Sub UpdateWarrantyData(machineid, warrantyEndDate, warrantyStatus, warrantyServiceLevel, warrantyDaysRemaining)
|
|
On Error Resume Next
|
|
|
|
If warrantyEndDate = "" Then Exit Sub
|
|
|
|
' Check if warranty record exists
|
|
Dim strSQL, rsResult
|
|
strSQL = "SELECT warrantyid FROM warranties WHERE machineid = ?"
|
|
Set rsResult = ExecuteParameterizedQuery(objConn, strSQL, Array(machineid))
|
|
|
|
If Not rsResult.EOF Then
|
|
' UPDATE existing warranty
|
|
Dim warrantyid
|
|
warrantyid = rsResult("warrantyid")
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
|
|
Dim cmdUpdate
|
|
Set cmdUpdate = Server.CreateObject("ADODB.Command")
|
|
cmdUpdate.ActiveConnection = objConn
|
|
cmdUpdate.CommandText = "UPDATE warranties SET " & _
|
|
"enddate = ?, servicelevel = ?, status = ?, daysremaining = ?, " & _
|
|
"lastcheckeddate = NOW() " & _
|
|
"WHERE warrantyid = ?"
|
|
|
|
' Prepare parameter values (VBScript doesn't have IIf)
|
|
Dim pServiceLevel, pStatus, pDaysRemaining
|
|
If warrantyServiceLevel <> "" Then pServiceLevel = warrantyServiceLevel Else pServiceLevel = Null
|
|
If warrantyStatus <> "" Then pStatus = warrantyStatus Else pStatus = Null
|
|
If IsNumeric(warrantyDaysRemaining) Then pDaysRemaining = CLng(warrantyDaysRemaining) Else pDaysRemaining = Null
|
|
|
|
cmdUpdate.Parameters.Append cmdUpdate.CreateParameter("@enddate", 135, 1, , CDate(warrantyEndDate))
|
|
cmdUpdate.Parameters.Append cmdUpdate.CreateParameter("@servicelevel", 200, 1, 100, pServiceLevel)
|
|
cmdUpdate.Parameters.Append cmdUpdate.CreateParameter("@status", 200, 1, 50, pStatus)
|
|
cmdUpdate.Parameters.Append cmdUpdate.CreateParameter("@daysrem", 3, 1, , pDaysRemaining)
|
|
cmdUpdate.Parameters.Append cmdUpdate.CreateParameter("@warrantyid", 3, 1, , CLng(warrantyid))
|
|
|
|
cmdUpdate.Execute
|
|
Else
|
|
' INSERT new warranty
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
|
|
Dim cmdInsert
|
|
Set cmdInsert = Server.CreateObject("ADODB.Command")
|
|
cmdInsert.ActiveConnection = objConn
|
|
cmdInsert.CommandText = "INSERT INTO warranties (" & _
|
|
"machineid, enddate, servicelevel, status, daysremaining, lastcheckeddate" & _
|
|
") VALUES (?, ?, ?, ?, ?, NOW())"
|
|
|
|
' Prepare parameter values (VBScript doesn't have IIf)
|
|
Dim pServiceLevel2, pStatus2, pDaysRemaining2
|
|
If warrantyServiceLevel <> "" Then pServiceLevel2 = warrantyServiceLevel Else pServiceLevel2 = Null
|
|
If warrantyStatus <> "" Then pStatus2 = warrantyStatus Else pStatus2 = Null
|
|
If IsNumeric(warrantyDaysRemaining) Then pDaysRemaining2 = CLng(warrantyDaysRemaining) Else pDaysRemaining2 = Null
|
|
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@machineid", 3, 1, , CLng(machineid))
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@enddate", 135, 1, , CDate(warrantyEndDate))
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@servicelevel", 200, 1, 100, pServiceLevel2)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@status", 200, 1, 50, pStatus2)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@daysrem", 3, 1, , pDaysRemaining2)
|
|
|
|
cmdInsert.Execute
|
|
End If
|
|
End Sub
|
|
|
|
' ============================================================================
|
|
' HELPER FUNCTIONS - LOOKUPS
|
|
' ============================================================================
|
|
|
|
Function GetOrCreateVendor(conn, vendorName)
|
|
On Error Resume Next
|
|
|
|
If vendorName = "" Then
|
|
GetOrCreateVendor = 0
|
|
Exit Function
|
|
End If
|
|
|
|
' Sanitize vendor name (prevent SQL injection)
|
|
Dim safeName
|
|
safeName = Replace(vendorName, "'", "''")
|
|
|
|
' Check if vendor exists
|
|
Dim strSQL, rsResult
|
|
strSQL = "SELECT vendorid FROM vendors WHERE vendor = '" & safeName & "'"
|
|
Set rsResult = conn.Execute(strSQL)
|
|
|
|
If Err.Number <> 0 Then
|
|
LogToFile "ERROR querying vendor: " & Err.Description
|
|
GetOrCreateVendor = 0
|
|
Exit Function
|
|
End If
|
|
|
|
If Not rsResult.EOF Then
|
|
GetOrCreateVendor = CLng(rsResult("vendorid"))
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
LogToFile "Found existing vendor ID: " & GetOrCreateVendor
|
|
Exit Function
|
|
End If
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
|
|
' Create new vendor
|
|
strSQL = "INSERT INTO vendors (vendor) VALUES ('" & safeName & "')"
|
|
conn.Execute strSQL
|
|
|
|
If Err.Number <> 0 Then
|
|
LogToFile "ERROR creating vendor: " & Err.Description
|
|
GetOrCreateVendor = 0
|
|
Exit Function
|
|
End If
|
|
|
|
' Get new vendor ID
|
|
strSQL = "SELECT LAST_INSERT_ID() AS newid"
|
|
Set rsResult = conn.Execute(strSQL)
|
|
GetOrCreateVendor = CLng(rsResult("newid"))
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
LogToFile "Created new vendor ID: " & GetOrCreateVendor
|
|
End Function
|
|
|
|
Function GetOrCreateModel(conn, modelName, vendorId)
|
|
On Error Resume Next
|
|
|
|
If modelName = "" Then
|
|
GetOrCreateModel = 1 ' Return TBD model
|
|
Exit Function
|
|
End If
|
|
|
|
If vendorId = 0 Then
|
|
GetOrCreateModel = 1
|
|
Exit Function
|
|
End If
|
|
|
|
' Check if model exists for this vendor
|
|
Dim strSQL, rsResult
|
|
strSQL = "SELECT modelnumberid FROM models WHERE modelnumber = ? AND vendorid = ?"
|
|
Set rsResult = ExecuteParameterizedQuery(conn, strSQL, Array(modelName, vendorId))
|
|
|
|
If Not rsResult.EOF Then
|
|
GetOrCreateModel = rsResult("modelnumberid")
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
Exit Function
|
|
End If
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
|
|
' Create new model
|
|
Dim cmdInsert
|
|
Set cmdInsert = Server.CreateObject("ADODB.Command")
|
|
cmdInsert.ActiveConnection = conn
|
|
cmdInsert.CommandText = "INSERT INTO models (modelnumber, vendorid, notes, isactive) VALUES (?, ?, ?, 1)"
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@model", 200, 1, 100, modelName)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@vendorid", 3, 1, , CLng(vendorId))
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@notes", 200, 1, 255, "Auto-imported via PowerShell")
|
|
cmdInsert.Execute
|
|
|
|
If Err.Number <> 0 Then
|
|
LogToFile "ERROR creating model: " & Err.Description
|
|
GetOrCreateModel = 1
|
|
Exit Function
|
|
End If
|
|
|
|
' Get new model ID
|
|
strSQL = "SELECT LAST_INSERT_ID() AS newid"
|
|
Set rsResult = conn.Execute(strSQL)
|
|
GetOrCreateModel = rsResult("newid")
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
End Function
|
|
|
|
' ============================================================================
|
|
' LEGACY FUNCTION REMOVED: GetOrCreatePCType
|
|
' This function was replaced by GetMachineTypeIdFromPCType which maps
|
|
' PC type strings directly to machinetypeid (33=Standard, 34=Engineer, 35=Shopfloor)
|
|
' Removed: 2025-11-17 during Phase 2 migration from pc/pctype to machines/machinetypes
|
|
' ============================================================================
|
|
|
|
Function GetOrCreateOSID(osVersion)
|
|
On Error Resume Next
|
|
|
|
If osVersion = "" Then
|
|
GetOrCreateOSID = 0
|
|
Exit Function
|
|
End If
|
|
|
|
' Sanitize OS name
|
|
Dim safeName
|
|
safeName = Replace(osVersion, "'", "''")
|
|
|
|
' Check if OS exists
|
|
Dim strSQL, rsResult
|
|
strSQL = "SELECT osid FROM operatingsystems WHERE operatingsystem = '" & safeName & "'"
|
|
Set rsResult = objConn.Execute(strSQL)
|
|
|
|
If Err.Number <> 0 Then
|
|
LogToFile "ERROR querying OS: " & Err.Description
|
|
GetOrCreateOSID = 0
|
|
Exit Function
|
|
End If
|
|
|
|
If Not rsResult.EOF Then
|
|
GetOrCreateOSID = CLng(rsResult("osid"))
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
Exit Function
|
|
End If
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
|
|
' Create new OS
|
|
strSQL = "INSERT INTO operatingsystems (operatingsystem) VALUES ('" & safeName & "')"
|
|
objConn.Execute strSQL
|
|
|
|
If Err.Number <> 0 Then
|
|
LogToFile "ERROR creating OS: " & Err.Description
|
|
GetOrCreateOSID = 0
|
|
Exit Function
|
|
End If
|
|
|
|
' Get new OS ID
|
|
strSQL = "SELECT LAST_INSERT_ID() AS newid"
|
|
Set rsResult = objConn.Execute(strSQL)
|
|
GetOrCreateOSID = CLng(rsResult("newid"))
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
End Function
|
|
|
|
Function GetOrCreateApplication(appName, appVersion)
|
|
On Error Resume Next
|
|
|
|
LogToFile "GetOrCreateApplication called with appName='" & appName & "', appVersion='" & appVersion & "'"
|
|
|
|
If appName = "" Then
|
|
LogToFile "ERROR: appName is empty"
|
|
GetOrCreateApplication = 0
|
|
Exit Function
|
|
End If
|
|
|
|
' Check if application exists (applications table has appid and appname columns)
|
|
Dim strSQL, rsResult
|
|
strSQL = "SELECT appid FROM applications WHERE appname = ?"
|
|
Set rsResult = ExecuteParameterizedQuery(objConn, strSQL, Array(appName))
|
|
|
|
If Err.Number <> 0 Then
|
|
LogToFile "ERROR querying applications: " & Err.Description
|
|
GetOrCreateApplication = 0
|
|
Exit Function
|
|
End If
|
|
|
|
If Not rsResult.EOF Then
|
|
GetOrCreateApplication = rsResult("appid")
|
|
LogToFile "Found existing appid: " & GetOrCreateApplication
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
Exit Function
|
|
End If
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
|
|
LogToFile "Application not found, creating new..."
|
|
|
|
' Create new application (note: applications table doesn't have version column)
|
|
' Version info is tracked elsewhere or ignored for now
|
|
Dim cmdInsert
|
|
Set cmdInsert = Server.CreateObject("ADODB.Command")
|
|
cmdInsert.ActiveConnection = objConn
|
|
cmdInsert.CommandText = "INSERT INTO applications (appname, appdescription, isactive) VALUES (?, ?, ?)"
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@appname", 200, 1, 50, appName)
|
|
|
|
' Use version as description if available
|
|
Dim pDescription
|
|
If appVersion <> "" Then
|
|
pDescription = "Version: " & appVersion
|
|
Else
|
|
pDescription = "Auto-detected application"
|
|
End If
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@description", 200, 1, 255, pDescription)
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@isactive", 11, 1, , 1)
|
|
cmdInsert.Execute
|
|
|
|
If Err.Number <> 0 Then
|
|
LogToFile "ERROR creating application: " & Err.Description
|
|
GetOrCreateApplication = 0
|
|
Exit Function
|
|
End If
|
|
|
|
' Get new application ID
|
|
strSQL = "SELECT LAST_INSERT_ID() AS newid"
|
|
Set rsResult = objConn.Execute(strSQL)
|
|
GetOrCreateApplication = rsResult("newid")
|
|
LogToFile "Created new application with id: " & GetOrCreateApplication
|
|
rsResult.Close
|
|
Set rsResult = Nothing
|
|
End Function
|
|
|
|
Function GetMachineTypeIdFromPCType(pcTypeString)
|
|
On Error Resume Next
|
|
|
|
' Direct mapping from pcType parameter to machinetypeid (Phase 2 schema)
|
|
' Phase 2 PC Machine Types: 33=Standard PC, 34=Engineering PC, 35=Shopfloor PC
|
|
|
|
Dim pcTypeClean
|
|
pcTypeClean = Trim(UCase(pcTypeString))
|
|
|
|
Select Case pcTypeClean
|
|
Case "ENGINEER", "ENGINEERING"
|
|
GetMachineTypeIdFromPCType = 34 ' Engineering PC
|
|
Case "SHOPFLOOR", "SHOP FLOOR"
|
|
GetMachineTypeIdFromPCType = 35 ' Shopfloor PC
|
|
Case "STANDARD", ""
|
|
GetMachineTypeIdFromPCType = 33 ' Standard PC
|
|
Case Else
|
|
LogToFile "Unknown pcType '" & pcTypeString & "', defaulting to Standard PC (33)"
|
|
GetMachineTypeIdFromPCType = 33 ' Default to Standard PC
|
|
End Select
|
|
|
|
LogToFile "Mapped pcType '" & pcTypeString & "' to machinetypeid: " & GetMachineTypeIdFromPCType
|
|
End Function
|
|
|
|
' ============================================================================
|
|
' HELPER FUNCTIONS - JSON PARSING (Simple)
|
|
' ============================================================================
|
|
|
|
Function ParseJSONArray(jsonString)
|
|
' Very simple JSON array parser - splits by objects
|
|
' Assumes format: [{"key":"value",...},{"key":"value",...}]
|
|
|
|
If jsonString = "" Or IsNull(jsonString) Then
|
|
ParseJSONArray = Array()
|
|
Exit Function
|
|
End If
|
|
|
|
' Remove outer brackets and whitespace
|
|
Dim cleaned
|
|
cleaned = Trim(jsonString)
|
|
If Left(cleaned, 1) = "[" Then cleaned = Mid(cleaned, 2)
|
|
If Right(cleaned, 1) = "]" Then cleaned = Left(cleaned, Len(cleaned) - 1)
|
|
|
|
' Split by },{
|
|
Dim items
|
|
items = Split(cleaned, "},{")
|
|
|
|
' Clean up each item (add back braces)
|
|
Dim i
|
|
For i = 0 To UBound(items)
|
|
items(i) = Trim(items(i))
|
|
If Left(items(i), 1) <> "{" Then items(i) = "{" & items(i)
|
|
If Right(items(i), 1) <> "}" Then items(i) = items(i) & "}"
|
|
Next
|
|
|
|
ParseJSONArray = items
|
|
End Function
|
|
|
|
Function ParseJSONObject(jsonString)
|
|
' Return a dictionary for simple JSON parsing
|
|
Dim dict
|
|
Set dict = Server.CreateObject("Scripting.Dictionary")
|
|
|
|
If jsonString = "" Or IsNull(jsonString) Then
|
|
Set ParseJSONObject = dict
|
|
Exit Function
|
|
End If
|
|
|
|
' Simple key-value extraction
|
|
Dim cleaned
|
|
cleaned = Trim(jsonString)
|
|
If Left(cleaned, 1) = "{" Then cleaned = Mid(cleaned, 2)
|
|
If Right(cleaned, 1) = "}" Then cleaned = Left(cleaned, Len(cleaned) - 1)
|
|
|
|
' Split by comma (simple approach)
|
|
Dim pairs, pair, i
|
|
pairs = Split(cleaned, ",")
|
|
|
|
For i = 0 To UBound(pairs)
|
|
pair = Trim(pairs(i))
|
|
If InStr(pair, ":") > 0 Then
|
|
Dim key, value
|
|
key = Trim(Split(pair, ":")(0))
|
|
value = Trim(Split(pair, ":")(1))
|
|
|
|
' Remove quotes
|
|
key = Replace(Replace(key, """", ""), "'", "")
|
|
value = Replace(Replace(value, """", ""), "'", "")
|
|
|
|
dict.Add key, value
|
|
End If
|
|
Next
|
|
|
|
Set ParseJSONObject = dict
|
|
End Function
|
|
|
|
Function GetJSONValue(jsonObjectString, keyName)
|
|
' Extract a single value from JSON object string
|
|
' Format: {"Key":"Value",...}
|
|
|
|
If jsonObjectString = "" Or IsNull(jsonObjectString) Then
|
|
GetJSONValue = ""
|
|
Exit Function
|
|
End If
|
|
|
|
Dim pattern
|
|
pattern = """" & keyName & """\s*:\s*""([^""]*)""|""" & keyName & """\s*:\s*([^,}]*)"
|
|
|
|
Dim regex
|
|
Set regex = New RegExp
|
|
regex.Pattern = pattern
|
|
regex.IgnoreCase = True
|
|
|
|
Dim matches
|
|
Set matches = regex.Execute(jsonObjectString)
|
|
|
|
If matches.Count > 0 Then
|
|
If matches(0).SubMatches(0) <> "" Then
|
|
GetJSONValue = matches(0).SubMatches(0)
|
|
Else
|
|
GetJSONValue = Trim(matches(0).SubMatches(1))
|
|
End If
|
|
Else
|
|
GetJSONValue = ""
|
|
End If
|
|
End Function
|
|
|
|
Function GetDictValue(dict, keyName)
|
|
If dict.Exists(keyName) Then
|
|
GetDictValue = dict(keyName)
|
|
Else
|
|
GetDictValue = ""
|
|
End If
|
|
End Function
|
|
|
|
' ============================================================================
|
|
' HELPER FUNCTIONS - UTILITIES
|
|
' ============================================================================
|
|
|
|
Function ConvertBoolToInt(value)
|
|
' Convert various boolean representations to 0/1 or -1 for NULL
|
|
If IsNull(value) Or value = "" Then
|
|
ConvertBoolToInt = -1
|
|
Exit Function
|
|
End If
|
|
|
|
Dim strValue
|
|
strValue = LCase(Trim(CStr(value)))
|
|
|
|
Select Case strValue
|
|
Case "true", "1", "yes"
|
|
ConvertBoolToInt = 1
|
|
Case "false", "0", "no"
|
|
ConvertBoolToInt = 0
|
|
Case Else
|
|
ConvertBoolToInt = -1
|
|
End Select
|
|
End Function
|
|
|
|
Function IsIPAddress(value)
|
|
' Simple IP address validation
|
|
If value = "" Then
|
|
IsIPAddress = False
|
|
Exit Function
|
|
End If
|
|
|
|
Dim regex
|
|
Set regex = New RegExp
|
|
regex.Pattern = "^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$"
|
|
|
|
IsIPAddress = regex.Test(value)
|
|
End Function
|
|
|
|
' ============================================================================
|
|
' HELPER FUNCTIONS - RESPONSE & LOGGING
|
|
' ============================================================================
|
|
|
|
Sub SendResponse(responseDict)
|
|
' Convert dictionary to JSON and send
|
|
Response.Clear
|
|
Response.ContentType = "application/json"
|
|
Response.Write DictToJSON(responseDict)
|
|
Response.End
|
|
End Sub
|
|
|
|
Sub SendError(message)
|
|
Response.Clear
|
|
Response.ContentType = "application/json"
|
|
Response.Write "{""success"":false,""error"":""" & EscapeJSON(message) & """}"
|
|
Response.End
|
|
End Sub
|
|
|
|
Function DictToJSON(dict)
|
|
' Simple dictionary to JSON converter
|
|
Dim json, key, value
|
|
json = "{"
|
|
|
|
Dim first
|
|
first = True
|
|
|
|
For Each key In dict.Keys
|
|
If Not first Then json = json & ","
|
|
first = False
|
|
|
|
value = dict(key)
|
|
|
|
json = json & """" & EscapeJSON(key) & """:"
|
|
|
|
If IsObject(value) Then
|
|
' Nested dictionary
|
|
json = json & DictToJSON(value)
|
|
ElseIf IsNull(value) Then
|
|
json = json & "null"
|
|
ElseIf VarType(value) = vbBoolean Then
|
|
If value Then
|
|
json = json & "true"
|
|
Else
|
|
json = json & "false"
|
|
End If
|
|
ElseIf IsNumeric(value) Then
|
|
json = json & value
|
|
Else
|
|
json = json & """" & EscapeJSON(CStr(value)) & """"
|
|
End If
|
|
Next
|
|
|
|
json = json & "}"
|
|
DictToJSON = json
|
|
End Function
|
|
|
|
Function EscapeJSON(value)
|
|
' Escape special characters for JSON
|
|
Dim result
|
|
result = CStr(value)
|
|
result = Replace(result, "\", "\\")
|
|
result = Replace(result, """", "\""")
|
|
result = Replace(result, vbCr, "\r")
|
|
result = Replace(result, vbLf, "\n")
|
|
result = Replace(result, vbTab, "\t")
|
|
EscapeJSON = result
|
|
End Function
|
|
|
|
Sub LogToFile(message)
|
|
On Error Resume Next
|
|
|
|
Dim fso, logFile, logPath
|
|
' Create daily log files: api-2025-11-21.log
|
|
Dim logFileName
|
|
logFileName = "api-" & Year(Now()) & "-" & Right("0" & Month(Now()), 2) & "-" & Right("0" & Day(Now()), 2) & ".log"
|
|
logPath = Server.MapPath("./logs/" & logFileName)
|
|
|
|
Set fso = Server.CreateObject("Scripting.FileSystemObject")
|
|
|
|
' Create logs directory if it doesn't exist
|
|
Dim logsDir
|
|
logsDir = Server.MapPath("./logs")
|
|
If Not fso.FolderExists(logsDir) Then
|
|
fso.CreateFolder logsDir
|
|
End If
|
|
|
|
' Append to log file
|
|
Set logFile = fso.OpenTextFile(logPath, 8, True) ' 8 = ForAppending
|
|
logFile.WriteLine Now() & " - " & message
|
|
logFile.Close
|
|
|
|
Set logFile = Nothing
|
|
Set fso = Nothing
|
|
End Sub
|
|
|
|
%>
|