Standardize ASP filenames: remove underscores
Renamed 45 ASP files to follow lowercase concatenated naming convention: - Direct handlers: save_machine_direct.asp -> savemachinedirect.asp - USB files: checkin_usb.asp -> checkinusb.asp - API files: api_usb.asp -> apiusb.asp - Map files: network_map.asp -> networkmap.asp - Printer files: printer_lookup.asp -> printerlookup.asp Also: - Updated 84+ internal references across all ASP and JS files - Deleted 6 test/duplicate files (editmacine.asp, test_*.asp) - Updated production migration guide with filename changes - Added rename scripts for Linux (bash) and Windows (PowerShell)
This commit is contained in:
cproudlock
176
apiprinters.asp
Normal file
176
apiprinters.asp
Normal file
@@ -0,0 +1,176 @@
|
||||
<%@ Language=VBScript %>
|
||||
<%
|
||||
' API endpoint to return printer data as JSON
|
||||
' Used by PrinterInstaller to fetch available printers
|
||||
|
||||
Response.ContentType = "application/json"
|
||||
Response.Charset = "UTF-8"
|
||||
|
||||
' Disable caching
|
||||
Response.AddHeader "Cache-Control", "no-cache, no-store, must-revalidate"
|
||||
Response.AddHeader "Pragma", "no-cache"
|
||||
Response.AddHeader "Expires", "0"
|
||||
%><!--#include file="./includes/sql.asp"--><%
|
||||
' Query all active HP, Xerox, and HID printers with network addresses
|
||||
Dim strSQL, rs, jsonOutput, isFirst
|
||||
|
||||
strSQL = "SELECT p.printerid, p.printerwindowsname, p.printercsfname, p.fqdn, p.ipaddress, " & _
|
||||
"v.vendor, m.modelnumber, p.isactive, ma.alias, ma.machinenumber, p.installpath " & _
|
||||
"FROM printers p " & _
|
||||
"LEFT JOIN models m ON p.modelid = m.modelnumberid " & _
|
||||
"LEFT JOIN vendors v ON m.vendorid = v.vendorid " & _
|
||||
"LEFT JOIN machines ma ON p.machineid = ma.machineid " & _
|
||||
"WHERE p.isactive = 1 " & _
|
||||
"AND (v.vendor = 'HP' OR v.vendor = 'Xerox' OR v.vendor = 'HID') " & _
|
||||
"ORDER BY " & _
|
||||
"CASE WHEN p.printercsfname IS NOT NULL AND p.printercsfname != '' AND p.printercsfname != 'NONE' THEN 0 ELSE 1 END, " & _
|
||||
"p.printercsfname, COALESCE(ma.alias, ma.machinenumber), v.vendor, m.modelnumber"
|
||||
|
||||
Set rs = objConn.Execute(strSQL)
|
||||
|
||||
' Build JSON array
|
||||
jsonOutput = "["
|
||||
isFirst = True
|
||||
|
||||
Do While Not rs.EOF
|
||||
' Skip printers without a network address
|
||||
If (Not IsNull(rs("fqdn")) And rs("fqdn") <> "") Or (Not IsNull(rs("ipaddress")) And rs("ipaddress") <> "" And rs("ipaddress") <> "USB") Then
|
||||
|
||||
If Not isFirst Then
|
||||
jsonOutput = jsonOutput & ","
|
||||
End If
|
||||
isFirst = False
|
||||
|
||||
jsonOutput = jsonOutput & vbCrLf & " {"
|
||||
jsonOutput = jsonOutput & vbCrLf & " ""printerid"": " & rs("printerid") & ","
|
||||
|
||||
' Escape quotes in string values
|
||||
Dim printerName, csfName, fqdn, ipAddr, vendor, model, machineAlias, machineNumber, machineName, standardName
|
||||
printerName = Replace(rs("printerwindowsname") & "", """", "\""")
|
||||
csfName = Replace(rs("printercsfname") & "", """", "\""")
|
||||
fqdn = Replace(rs("fqdn") & "", """", "\""")
|
||||
ipAddr = Replace(rs("ipaddress") & "", """", "\""")
|
||||
vendor = Replace(rs("vendor") & "", """", "\""")
|
||||
model = Replace(rs("modelnumber") & "", """", "\""")
|
||||
|
||||
' Get machine name (prefer alias, fallback to machinenumber)
|
||||
machineAlias = rs("alias") & ""
|
||||
machineNumber = rs("machinenumber") & ""
|
||||
If machineAlias <> "" Then
|
||||
machineName = machineAlias
|
||||
Else
|
||||
machineName = machineNumber
|
||||
End If
|
||||
machineName = Replace(machineName, """", "\""")
|
||||
|
||||
' Generate standardized printer name: CSFName-Location-Brand-Description
|
||||
' Per naming convention: CSF##-Location-Brand-Description
|
||||
' Remove spaces and "Machine" word from names
|
||||
Dim cleanMachine, cleanModel, shortDescription
|
||||
cleanMachine = Replace(machineName, " ", "")
|
||||
cleanMachine = Replace(cleanMachine, "Machine", "")
|
||||
|
||||
' Extract short description from model number
|
||||
' Examples: "Color LaserJet M254dw" -> "ColorLaserJet"
|
||||
' "Altalink C8135" -> "Altalink"
|
||||
' "Versalink C7125" -> "Versalink"
|
||||
cleanModel = Replace(model, " ", "")
|
||||
|
||||
' Try to extract base model name (remove version numbers and suffixes)
|
||||
If InStr(cleanModel, "ColorLaserJet") > 0 Then
|
||||
shortDescription = "ColorLaserJet"
|
||||
ElseIf InStr(cleanModel, "LaserJetPro") > 0 Then
|
||||
shortDescription = "LaserJetPro"
|
||||
ElseIf InStr(cleanModel, "LaserJet") > 0 Then
|
||||
shortDescription = "LaserJet"
|
||||
ElseIf InStr(cleanModel, "Altalink") > 0 Then
|
||||
shortDescription = "Altalink"
|
||||
ElseIf InStr(cleanModel, "Versalink") > 0 Then
|
||||
shortDescription = "Versalink"
|
||||
ElseIf InStr(cleanModel, "DesignJet") > 0 Then
|
||||
shortDescription = "DesignJet"
|
||||
ElseIf InStr(cleanModel, "DTC") > 0 Then
|
||||
shortDescription = "DTC"
|
||||
Else
|
||||
' Fallback: Extract model prefix before numbers
|
||||
' For models like "EC8036" -> "EC", "C7125" -> "C"
|
||||
Dim i, char
|
||||
shortDescription = ""
|
||||
For i = 1 To Len(cleanModel)
|
||||
char = Mid(cleanModel, i, 1)
|
||||
' Stop when we hit a number
|
||||
If char >= "0" And char <= "9" Then
|
||||
Exit For
|
||||
End If
|
||||
shortDescription = shortDescription & char
|
||||
Next
|
||||
' If we got nothing (started with number), use full model
|
||||
If shortDescription = "" Then
|
||||
shortDescription = cleanModel
|
||||
End If
|
||||
End If
|
||||
|
||||
' Determine printer name to use
|
||||
' Prefer Windows Name from database if it's already in standardized format (contains dashes)
|
||||
' Otherwise generate standardized name automatically
|
||||
If InStr(printerName, "-") > 0 Then
|
||||
' Use database Windows Name as-is (user manually set it)
|
||||
standardName = printerName
|
||||
Else
|
||||
' Generate standard name: CSFName-Location-VendorModel (no dash between vendor and model)
|
||||
If csfName <> "" And csfName <> "NONE" And csfName <> "gage lab " Then
|
||||
' Has CSF name
|
||||
' Check if CSF name already matches the machine location (avoid duplication)
|
||||
If cleanMachine <> "" And LCase(csfName) <> LCase(cleanMachine) Then
|
||||
standardName = csfName & "-" & cleanMachine & "-" & vendor & shortDescription
|
||||
Else
|
||||
' CSF name same as location, or no location - just use CSF-VendorModel
|
||||
standardName = csfName & "-" & vendor & shortDescription
|
||||
End If
|
||||
Else
|
||||
' No CSF name - use Location-VendorModel
|
||||
If cleanMachine <> "" Then
|
||||
standardName = cleanMachine & "-" & vendor & shortDescription
|
||||
Else
|
||||
standardName = "Printer" & rs("printerid") & "-" & vendor & shortDescription
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
standardName = Replace(standardName, """", "\""")
|
||||
|
||||
' Escape install path
|
||||
Dim installPath, preferredAddress
|
||||
installPath = Replace(rs("installpath") & "", """", "\""")
|
||||
|
||||
' Determine preferred address: FQDN if exists, otherwise IP
|
||||
If fqdn <> "" And fqdn <> "USB" Then
|
||||
preferredAddress = fqdn
|
||||
Else
|
||||
preferredAddress = ipAddr
|
||||
End If
|
||||
preferredAddress = Replace(preferredAddress, """", "\""")
|
||||
|
||||
jsonOutput = jsonOutput & vbCrLf & " ""printerwindowsname"": """ & standardName & ""","
|
||||
jsonOutput = jsonOutput & vbCrLf & " ""printercsfname"": """ & csfName & ""","
|
||||
jsonOutput = jsonOutput & vbCrLf & " ""fqdn"": """ & fqdn & ""","
|
||||
jsonOutput = jsonOutput & vbCrLf & " ""ipaddress"": """ & ipAddr & ""","
|
||||
jsonOutput = jsonOutput & vbCrLf & " ""address"": """ & preferredAddress & ""","
|
||||
jsonOutput = jsonOutput & vbCrLf & " ""vendor"": """ & vendor & ""","
|
||||
jsonOutput = jsonOutput & vbCrLf & " ""modelnumber"": """ & model & ""","
|
||||
jsonOutput = jsonOutput & vbCrLf & " ""machinename"": """ & machineName & ""","
|
||||
jsonOutput = jsonOutput & vbCrLf & " ""installpath"": """ & installPath & ""","
|
||||
jsonOutput = jsonOutput & vbCrLf & " ""isactive"": " & LCase(CStr(CBool(rs("isactive"))))
|
||||
jsonOutput = jsonOutput & vbCrLf & " }"
|
||||
End If
|
||||
|
||||
rs.MoveNext
|
||||
Loop
|
||||
|
||||
rs.Close
|
||||
Set rs = Nothing
|
||||
objConn.Close
|
||||
|
||||
jsonOutput = jsonOutput & vbCrLf & "]"
|
||||
|
||||
Response.Write(jsonOutput)
|
||||
%>
|
||||
Reference in New Issue
Block a user