From 34b0f5086497db3b60d18f8fa9c291fa0cf01eb9 Mon Sep 17 00:00:00 2001
From: Brad Fitzpatrick <brad@danga.com>
Date: Sun, 15 May 2011 21:54:57 -0700
Subject: [PATCH] dev-camput: redo in Perl; pass dev gpg secring path

---
 dev-camput | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/dev-camput b/dev-camput
index f9938f16e..b8fba5b96 100755
--- a/dev-camput
+++ b/dev-camput
@@ -1,4 +1,14 @@
-#!/bin/sh
+#!/usr/bin/perl
 
-./build.pl camput && \
-  clients/go/camput/camput --verbose --blobserver=http://localhost:3179/bs --password=pass3179 $@
+use strict;
+use FindBin qw($Bin);
+
+system("$Bin/build.pl", "camput") and die "failed to build camput";
+
+$ENV{"CAMLI_CONFIG_DIR"} = "$Bin/config/dev-client-dir";
+system("$Bin/clients/go/camput/camput",
+       "--verbose",
+       "--secret-keyring=$Bin/lib/go/camli/jsonsign/testdata/test-secring.gpg",
+       "--blobserver=http://localhost:3179/bs",
+       "--password=pass3179",
+       @ARGV);