r21911 - gnucash/branches/2.4 - [Bug 666849] Non-privileged user first run trouble

[John Ralls]

Author: jralls
Date: 2012-01-29 01:59:12 -0500 (Sun, 29 Jan 2012)
New Revision: 21911
Trac: http://svn.gnucash.org/trac/changeset/21911

Added:
   gnucash/branches/2.4/src/bin/guile-setup.cmd
Modified:
   gnucash/branches/2.4/packaging/win32/gnucash.iss.in
   gnucash/branches/2.4/src/bin/Makefile.am
Log:
[Bug 666849] Non-privileged user first run trouble


The problem is that the first run was creating the slib catalog. This introduces a script
to do that as part of installation, guaranteed to be run as an admin user.

Modified: gnucash/branches/2.4/packaging/win32/gnucash.iss.in
===================================================================
--- gnucash/branches/2.4/packaging/win32/gnucash.iss.in	2012-01-29 06:32:09 UTC (rev 21910)
+++ gnucash/branches/2.4/packaging/win32/gnucash.iss.in	2012-01-29 06:59:12 UTC (rev 21911)
@@ -52,6 +52,7 @@
 Name: "{commondesktop}\GnuCash"; Filename: "{app}\bin\gnucash.exe"; WorkingDir: "{app}\bin"; Comment: "{cm:IconComment_GnuCash}"; IconFilename: "{app}\share\gnucash\pixmaps\gnucash-icon.ico"; Tasks: desktopicon
 
 [Run]
+Filename: "{app}\bin\guile-setup.cmd"; Description: "Add SLib to Guile vocabulary"; Parameters: """{app}"""
 Filename: "{app}\bin\gnucash.exe"; Description: "{cm:RunPrg}"; WorkingDir: "{app}\bin"; OnlyBelowVersion: 0,6; Flags: postinstall skipifsilent
 ;; The Windows firewall exceptions, see http://www.vincenzo.net/isxkb/index.php?title=Adding_a_rule_to_the_Windows_firewall
 Filename: "{sys}\netsh.exe"; Parameters: "firewall add allowedprogram ""{app}\bin\gnucash.exe"" ""GnuCash Free Finance Manager"" ENABLE ALL"; StatusMsg: "{cm:StatusMsgFirewall}"; Flags: runhidden; MinVersion: 0,5.01.2600sp2;

Modified: gnucash/branches/2.4/src/bin/Makefile.am
===================================================================
--- gnucash/branches/2.4/src/bin/Makefile.am	2012-01-29 06:32:09 UTC (rev 21910)
+++ gnucash/branches/2.4/src/bin/Makefile.am	2012-01-29 06:59:12 UTC (rev 21911)
@@ -168,7 +168,8 @@
 	    -e 's#@-GCONF_SCHEMA_FILE_DIR-@#${GCONF_SCHEMA_FILE_DIR}#g'
 	mv $@.tmp $@
 	chmod +x $@
-
+else
+bin_SCRIPTS = guile-setup.cmd
 endif
 
 EXTRA_DIST = \
@@ -180,4 +181,8 @@
 	environment.in \
 	gnucash-setup-env-osx.in
 
+if PLATFORM_WIN32
+EXTRA_DIST += guile-setup.cmd
+endif
+
 INCLUDES = -DG_LOG_DOMAIN=\"gnc.bin\"

Added: gnucash/branches/2.4/src/bin/guile-setup.cmd
===================================================================
--- gnucash/branches/2.4/src/bin/guile-setup.cmd	                        (rev 0)
+++ gnucash/branches/2.4/src/bin/guile-setup.cmd	2012-01-29 06:59:12 UTC (rev 21911)
@@ -0,0 +1,9 @@
+echo off
+setlocal
+set CWD=%~f1
+set PATH=%CWD%\bin;%PATH%
+set GUILE_HOME=%CWD%\share\guile\1.8
+set GUILE_IMPLEMENTATION_PATH=%GUILE_HOME%
+set GUILE_LOAD_PATH=%GUILE_HOME%
+guile -c "(use-modules (ice-9 slib)) (require 'printf)"
+endlocal
\ No newline at end of file