Code: Select all
on openCard
put "Looking for Local Install.... " into fld "Status"
set the defaultfolder to "C:/MFC/Tracker/"
put the files into installedFiles
if installedFiles <> "" then
put "Found" after fld "Status"
put URL ("file:" & "C:/MFC/Tracker/Version.txt") into cVersion
put cr & "Current version is " & cVersion after fld "Status"
put URL ("file:" & "\\mfcpdc2\QC\Metals Fab tracker\Version.txt") into uVersion
put cr & "Looking for updated files.... " after fld "Status"
put cr & "Newest version is " & uVersion after fld "Status"
if cVersion = uVersion then
put cr & "Current version installed!" after fld "Status"
put cr & "Starting Tracker.... " after fld "Status"
--open tracker
launch url ("file:" & "C:/MFC/Tracker/Metals Fab tracker.exe")
--close launcher
lock messages
quit
else
--update tracker
create folder "C:/MFC"
create folder "C:/MFC/Tracker"
create folder "C:/MFC/Tracker/Externals"
create folder "C:/MFC/Tracker/Externals/database_drivers"
put cr & "New version found...." after fld "Status"
put cr & "Current version installed" after fld "Status"
put cr & "Copying files...." after fld "Status"
put url("binfile:" & "\\mfcpdc2\QC\Metals Fab tracker\Metals Fab tracker.exe") into url("binfile:" & "C:/MFC/Tracker/Metals Fab tracker.exe")
put cr & "Metals Fab tracker.exe copied" after fld "Status"
put url("binfile:" & "\\mfcpdc2\QC\Metals Fab tracker\Externals\revdb.dll") into url("binfile:" & "C:/MFC/Tracker/Externals/revdb.dll")
put cr & "revdb.dll copied" after fld "Status"
put url("binfile:" & "\\mfcpdc2\QC\Metals Fab tracker\Externals\revdb.dll") into url("binfile:" & "C:/MFC/Tracker/Externals/revxml.dll")
put cr & "revxml.dll copied" after fld "Status"
put url("binfile:" & "\\mfcpdc2\QC\Metals Fab tracker\Externals\database_drivers\dbmysql.dll") into url("binfile:" & "C:/MFC/Tracker/Externals/database_drivers/dbmysql.dll")
put cr & "dbmysql.dll copied" after fld "Status"
put url("binfile:" & "\\mfcpdc2\QC\Metals Fab tracker\Externals\database_drivers\dbodbc.dll") into url("binfile:" & "C:/MFC/Tracker/Externals/database_drivers/dbodbc.dll")
put cr & "dbodbc.dll copied" after fld "Status"
put url("binfile:" & "\\mfcpdc2\QC\Metals Fab tracker\Externals\database_drivers\dbpostgresql.dll") into url("binfile:" & "C:/MFC/Tracker/Externals/database_drivers/dbpostgresql.dll")
put cr & "dbpostgresql.dll copied" after fld "Status"
put url("binfile:" & "\\mfcpdc2\QC\Metals Fab tracker\Externals\database_drivers\dbsqlite.dll") into url("binfile:" & "C:/MFC/Tracker/Externals/database_drivers/dbsqlite.dll")
put cr & "dbsqlite.dll copied" after fld "Status"
put url("binfile:" & "\\mfcpdc2\QC\Metals Fab tracker\Version.txt") into url("binfile:" & "C:/MFC/Tracker/Version.txt")
--open tracker
launch url ("file:" & "C:/MFC/Tracker/Metals Fab tracker.exe")
--close launcher
lock messages
quit
end if
put installedFiles into fld "temp"
put cVersion after fld "temp"
else
put "Not Found" after fld "Status"
put cr & "Installing MetalsFab Tracker..." after fld "Status"
--Create directory
create folder "C:/MFC"
create folder "C:/MFC/Tracker"
create folder "C:/MFC/Tracker/Externals"
create folder "C:/MFC/Tracker/Externals/database_drivers"
--install tracker
put url("binfile:" & "\\mfcpdc2\QC\Metals Fab tracker\Metals Fab tracker.exe") into url("binfile:" & "C:/MFC/Tracker/Metals Fab tracker.exe")
put cr & "Metals Fab tracker.exe installed" after fld "Status"
put url("binfile:" & "\\mfcpdc2\QC\Metals Fab tracker\Externals\revdb.dll") into url("binfile:" & "C:/MFC/Tracker/Externals/revdb.dll")
put cr & "revdb.dll installed" after fld "Status"
put url("binfile:" & "\\mfcpdc2\QC\Metals Fab tracker\Externals\revdb.dll") into url("binfile:" & "C:/MFC/Tracker/Externals/revxml.dll")
put cr & "revxml.dll installed" after fld "Status"
put url("binfile:" & "\\mfcpdc2\QC\Metals Fab tracker\Externals\database_drivers\dbmysql.dll") into url("binfile:" & "C:/MFC/Tracker/Externals/database_drivers/dbmysql.dll")
put cr & "dbmysql.dll installed" after fld "Status"
put url("binfile:" & "\\mfcpdc2\QC\Metals Fab tracker\Externals\database_drivers\dbodbc.dll") into url("binfile:" & "C:/MFC/Tracker/Externals/database_drivers/dbodbc.dll")
put cr & "dbodbc.dll installed" after fld "Status"
put url("binfile:" & "\\mfcpdc2\QC\Metals Fab tracker\Externals\database_drivers\dbpostgresql.dll") into url("binfile:" & "C:/MFC/Tracker/Externals/database_drivers/dbpostgresql.dll")
put cr & "dbpostgresql.dll installed" after fld "Status"
put url("binfile:" & "\\mfcpdc2\QC\Metals Fab tracker\Externals\database_drivers\dbsqlite.dll") into url("binfile:" & "C:/MFC/Tracker/Externals/database_drivers/dbsqlite.dll")
put cr & "dbsqlite.dll installed" after fld "Status"
put url("binfile:" & "\\mfcpdc2\QC\Metals Fab tracker\Version.txt") into url("binfile:" & "C:/MFC/Tracker/Version.txt")
--open tracker
launch url ("file:" & "C:/MFC/Tracker/Metals Fab tracker.exe")
--close launcher
lock messages
quit
end if
end openCard
The problem I have now though, and I don't know of a way around it is, now when I try opening it to edit it with livecode it "runs" instead of just opens, so a few things are happening. First, I cant edit it because it closes livecode as soon as it opens. Second, any other projects I have open also get closed without a prompt to save. (I didn't loose anything important because I save more than you should probably be allowed to). Is this normal behavior or is it a bug? If it is normal then how do I edit my file?
I can open the .livecode file in Notepad++ and delete "quit" but if I do that and save over it will it corrupt the .livecode file?
