Fix broken .config/git-annex/program installed by standalone tarball.

It was doubly broken; both missing a slash, and containing
"runshell git-annex", while some parts of the code expected it to be a
simple path to a program. This appears to include the transfer queue
runner, and the code that starts a new assistant process when switching to
another repository in the webapp.

Assistant/Install.hs

@@ -39,7 +39,7 @@ ensureInstalled = go =<< standaloneAppBase
   where
 	go Nothing = noop
 	go (Just base) = do
-		let program = base ++ "runshell git-annex"
+		let program = base <$> "git-annex"
 		programfile <- programFile
 		createDirectoryIfMissing True (parentDir programfile)
 		writeFile programfile program

debian/changelog

@@ -2,6 +2,7 @@ git-annex (3.20121128) UNRELEASED; urgency=low
 
   * webapp: Defaults to sharing box.com account info with friends, allowing
     one-click enabling of the repository.
+  * Fix broken .config/git-annex/program installed by standalone tarball.
 
  -- Joey Hess <joeyh@debian.org>  Wed, 28 Nov 2012 13:31:07 -0400
 

doc/bugs/wrong_program_path_in___126____47__.config__47__git-annex__47__program.mdwn

@@ -16,3 +16,5 @@ git-annex=3.20121127 on Ubuntu 12.04 LTS
 ## Please provide any additional information below.
 
 Otherwise it is working great. 
+
+> I've fixed this. [[done]] --[[Joey]] 

standalone/linux/git-annex

@@ -0,0 +1,25 @@
+#!/bin/sh
+base="$(dirname $0)"
+if [ ! -d "$base" ]; then
+	echo "** cannot find base directory (I seem to be $0)" >&2
+	exit 1
+fi
+if [ ! -e "$base/runshell" ]; then
+	echo "** cannot find $base/runshell" >&2
+	exit 1
+fi
+
+# Get absolute path to base, to avoid breakage when things change directories.
+orig="$(pwd)"
+cd "$base"
+base="$(pwd)"
+cd "$orig"
+
+# If this is a standalone app, set a variable that git-annex can use to
+# install itself.
+if [ -e "$base/bin/git-annex" ]; then
+	GIT_ANNEX_APP_BASE="$base"
+	export GIT_ANNEX_APP_BASE
+fi
+
+"$base/runshell" git-annex "$@"

standalone/osx/git-annex.app/Contents/MacOS/git-annex

@@ -0,0 +1,25 @@
+#!/bin/sh
+base="$(dirname $0)"
+if [ ! -d "$base" ]; then
+	echo "** cannot find base directory (I seem to be $0)" >&2
+	exit 1
+fi
+if [ ! -e "$base/runshell" ]; then
+	echo "** cannot find $base/runshell" >&2
+	exit 1
+fi
+
+# Get absolute path to base, to avoid breakage when things change directories.
+orig="$(pwd)"
+cd "$base"
+base="$(pwd)"
+cd "$orig"
+
+# If this is a standalone app, set a variable that git-annex can use to
+# install itself.
+if [ -e "$base/bin/git-annex" ]; then
+	GIT_ANNEX_APP_BASE="$base"
+	export GIT_ANNEX_APP_BASE
+fi
+
+"$base/runshell" git-annex "$@"