| Index: installer/emb.vbs |
| =================================================================== |
| deleted file mode 100644 |
| --- a/installer/emb.vbs |
| +++ /dev/null |
| @@ -1,40 +0,0 @@ |
| -' Emb.vbs. |
| -' Argument(0) is the name of the storage. |
| -' Argument(1) is the original database. |
| -' Argument(2) is the path to the transform file. |
| -' This was changed from the original to work around a gyp defect involved that rewrites whole command lines rather than just path-containing variables. |
| - |
| -Option Explicit |
| - |
| -' Check arguments |
| -If WScript.Arguments.Count < 2 Then |
| - WScript.Echo "Usage is emb.vbs [storage name] [original database] [transform]" |
| - WScript.Quit(1) |
| -End If |
| - |
| -' Connect to Windows Installer object |
| -On Error Resume Next |
| -Dim installer : Set installer = Nothing |
| -Set installer = Wscript.CreateObject("WindowsInstaller.Installer") |
| - |
| -' Evaluate command-line arguments and set open and update modes |
| -Dim databasePath: databasePath = Wscript.Arguments(1) |
| -Dim importPath : importPath = Wscript.Arguments(2) |
| -Dim storageName : storageName = Wscript.Arguments(0) |
| - |
| -' Open database and create a view on the _Storages table |
| -Dim sqlQuery : sqlQuery = "SELECT `Name`,`Data` FROM _Storages" |
| -Dim database : Set database = installer.OpenDatabase(databasePath, 1) |
| -Dim view : Set view = database.OpenView(sqlQuery) |
| - |
| -'Create and Insert the row. |
| -Dim record : Set record = installer.CreateRecord(2) |
| -record.StringData(1) = storageName |
| -view.Execute record |
| - |
| -'Insert storage - copy data into stream |
| -record.SetStream 2, importPath |
| -view.Modify 3, record |
| -database.Commit |
| -Set view = Nothing |
| -Set database = Nothing |