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
2025-12-10 20:40:05 -05:00
parent 6162db9fcf
commit 249bfbba8c
88 changed files with 683 additions and 595 deletions

View File

@@ -0,0 +1,42 @@
<!--#include file="./includes/sql.asp"-->
<%
Response.Write("<h1>Production Printer Machines Count</h1>")
Dim strSQL, rs
' Count printer machines
strSQL = "SELECT COUNT(*) as cnt FROM machines WHERE machinetypeid = 15"
set rs = objConn.Execute(strSQL)
Response.Write("<h3>Machines with Printer type (machinetypeid=15): " & rs("cnt") & "</h3>")
rs.Close
' Count machines with -PRINTER suffix
strSQL = "SELECT COUNT(*) as cnt FROM machines WHERE machinenumber LIKE '%-PRINTER'"
set rs = objConn.Execute(strSQL)
Response.Write("<h3>Machines with '-PRINTER' suffix: " & rs("cnt") & "</h3>")
rs.Close
' Show sample
Response.Write("<h3>Sample Printer Machines:</h3>")
strSQL = "SELECT m.machineid, m.machinenumber, m.alias, c.address as ipaddress " &_
"FROM machines m " &_
"LEFT JOIN communications c ON m.machineid = c.machineid AND c.comstypeid = 1 " &_
"WHERE m.machinetypeid = 15 " &_
"ORDER BY m.machineid DESC LIMIT 10"
set rs = objConn.Execute(strSQL)
Response.Write("<table border='1' style='border-collapse:collapse'>")
Response.Write("<tr><th>ID</th><th>Machine Number</th><th>Alias</th><th>IP</th></tr>")
While Not rs.EOF
Response.Write("<tr>")
Response.Write("<td>" & rs("machineid") & "</td>")
Response.Write("<td>" & Server.HTMLEncode(rs("machinenumber") & "") & "</td>")
Response.Write("<td>" & Server.HTMLEncode(rs("alias") & "") & "</td>")
Response.Write("<td>" & Server.HTMLEncode(rs("ipaddress") & "") & "</td>")
Response.Write("</tr>")
rs.MoveNext
Wend
Response.Write("</table>")
rs.Close
objConn.Close
%>