From 9bad75cb9531c5f02431bef91e38788758de5dce Mon Sep 17 00:00:00 2001
From: Brett Slatkin <bslatkin@gmail.com>
Date: Sun, 4 Dec 2011 14:00:38 -0800
Subject: [PATCH] AE blobserver working locally with dev-camput

Change-Id: I3dde1bf7fe3cb15e49f2b0ec4a99f85a24497f32
---
 dev-appengine                               | 9 ++++++++-
 server/go/appengine/camli/appengine/main.go | 8 ++++++--
 server/go/appengine/config.json             | 2 +-
 3 files changed, 15 insertions(+), 4 deletions(-)

diff --git a/dev-appengine b/dev-appengine
index 7d84d1b77..6e955701e 100755
--- a/dev-appengine
+++ b/dev-appengine
@@ -5,13 +5,15 @@ use FindBin qw($Bin);
 use Getopt::Long;
 
 sub usage {
-    die "Usage: dev-appengine [--wipe] [-a] -- [other_dev_appserver_opts]";
+    die "Usage: dev-appengine [--wipe] [-a] [-p port] -- [other_dev_appserver_opts]";
 }
 
 my $opt_wipe;
+my $opt_port;
 my $opt_all;  # listen on all interfaces
 GetOptions("wipe" => \$opt_wipe,
            "all" => \$opt_all,
+           "p=i" => \$opt_port,
            ) or usage();
 
 my $sdk = readlink("$Bin/appengine-sdk")
@@ -29,6 +31,11 @@ if ($opt_all) {
 if ($opt_wipe) {
     push @args, "--clear_datastore";
 }
+if ($opt_port) {
+    push @args, "-p $opt_port";
+} else {
+    push @args, "-p 3179";
+}
 push @args, @ARGV;
 
 push @args, "$Bin/server/go/appengine";
diff --git a/server/go/appengine/camli/appengine/main.go b/server/go/appengine/camli/appengine/main.go
index 341164004..1aaa9a8bd 100644
--- a/server/go/appengine/camli/appengine/main.go
+++ b/server/go/appengine/camli/appengine/main.go
@@ -82,8 +82,12 @@ func realInit(w http.ResponseWriter, r *http.Request) bool {
 
 	// Update the config to use the URL path derived from the first App Engine request.
 	// TODO(bslatkin): Support hostnames that aren't x.appspot.com
-	// TODO(bslatkin): Support the HTTPS scheme
-	baseURL := fmt.Sprintf("http://%s/", r.Header.Get("X-Appengine-Default-Version-Hostname"))
+	scheme := "http"
+	if r.TLS != nil {
+		scheme = "https"
+	}
+
+	baseURL := fmt.Sprintf("%s://%s/", scheme, appengine.DefaultVersionHostname(ctx))
 	ctx.Infof("baseurl = %q", baseURL)
 	config.Obj["baseURL"] = baseURL
 
diff --git a/server/go/appengine/config.json b/server/go/appengine/config.json
index 3dcd7c874..d407a3723 100644
--- a/server/go/appengine/config.json
+++ b/server/go/appengine/config.json
@@ -1,6 +1,6 @@
 { "_for-emacs": "-*- mode: js2;-*-",
   "baseURL": "*** Populated by runtime. Ignore this.",
-  "auth": "userpass:foo:bar",
+  "auth": "userpass:camlistore:pass3179",
   "prefixes": {
 
     "/ui/": {