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:
79
quickaddapplication.asp
Normal file
79
quickaddapplication.asp
Normal file
@@ -0,0 +1,79 @@
|
||||
<%@ Language=VBScript %>
|
||||
<%
|
||||
Response.ContentType = "application/json"
|
||||
%>
|
||||
<!--#include file="./includes/sql.asp"-->
|
||||
<%
|
||||
' Get form inputs
|
||||
Dim appname, appdescription
|
||||
appname = Trim(Request.Form("appname"))
|
||||
appdescription = Trim(Request.Form("appdescription"))
|
||||
|
||||
' Basic validation
|
||||
If Len(appname) = 0 Then
|
||||
Response.Write("{""success"":false,""error"":""Application name is required""}")
|
||||
objConn.Close
|
||||
Response.End
|
||||
End If
|
||||
|
||||
If Len(appname) > 50 Then
|
||||
Response.Write("{""success"":false,""error"":""Application name too long (max 50 characters)""}")
|
||||
objConn.Close
|
||||
Response.End
|
||||
End If
|
||||
|
||||
If Len(appdescription) > 255 Then
|
||||
Response.Write("{""success"":false,""error"":""Description too long (max 255 characters)""}")
|
||||
objConn.Close
|
||||
Response.End
|
||||
End If
|
||||
|
||||
' Escape single quotes
|
||||
appname = Replace(appname, "'", "''")
|
||||
appdescription = Replace(appdescription, "'", "''")
|
||||
|
||||
' Check if application already exists
|
||||
Dim checkSQL, rsCheck
|
||||
checkSQL = "SELECT appid FROM applications WHERE appname = '" & appname & "'"
|
||||
Set rsCheck = objConn.Execute(checkSQL)
|
||||
|
||||
If Not rsCheck.EOF Then
|
||||
Response.Write("{""success"":false,""error"":""An application with this name already exists""}")
|
||||
rsCheck.Close
|
||||
Set rsCheck = Nothing
|
||||
objConn.Close
|
||||
Response.End
|
||||
End If
|
||||
rsCheck.Close
|
||||
Set rsCheck = Nothing
|
||||
|
||||
' Get default support team ID (use 1 as default)
|
||||
Dim defaultSupportTeamId
|
||||
defaultSupportTeamId = 1
|
||||
|
||||
' Build INSERT statement with minimal required fields
|
||||
Dim strSQL
|
||||
strSQL = "INSERT INTO applications (appname, appdescription, supportteamid, isactive, isinstallable, ishidden, isprinter, islicenced) " & _
|
||||
"VALUES ('" & appname & "', '" & appdescription & "', " & defaultSupportTeamId & ", 1, 0, 0, 0, 0)"
|
||||
|
||||
On Error Resume Next
|
||||
objConn.Execute strSQL
|
||||
|
||||
If Err.Number <> 0 Then
|
||||
Response.Write("{""success"":false,""error"":""Database error: " & Replace(Err.Description, """", "'") & """}")
|
||||
objConn.Close
|
||||
Response.End
|
||||
End If
|
||||
|
||||
' Get the newly inserted ID
|
||||
Dim newId, rsNewId
|
||||
Set rsNewId = objConn.Execute("SELECT LAST_INSERT_ID() AS newid")
|
||||
newId = rsNewId("newid")
|
||||
rsNewId.Close
|
||||
Set rsNewId = Nothing
|
||||
|
||||
' Return success with new ID
|
||||
Response.Write("{""success"":true,""appid"":" & newId & ",""appname"":""" & Replace(appname, """", "'") & """}")
|
||||
|
||||
objConn.Close
|
||||
%>
|
||||
Reference in New Issue
Block a user