perkeep/dev-camget

#!/usr/bin/perl

use strict;
use FindBin qw($Bin);
use Getopt::Long;

unless ($ENV{GOPATH}) {
    $ENV{GOPATH} = "$Bin/gopath"
}

system("go", "install", "camlistore.org/cmd/camget") and die "failed to build camget";

sub usage {
    die "Usage: dev-camget [--tls] -- camget_args";
}

my $opt_tls;
Getopt::Long::Configure("pass_through");
GetOptions("tls" => \$opt_tls)
    or usage();

# Respected by camli/osutil:
$ENV{"CAMLI_CONFIG_DIR"} = "$Bin/config/dev-client-dir";

# Respected by env expansions in config/dev-client-dir/config
$ENV{"CAMLI_SECRET_RING"} = "$Bin/lib/go/camli/jsonsign/testdata/test-secring.gpg";
$ENV{"CAMLI_KEYID"} = "26F5ABDA";
$ENV{"CAMLI_DEV_KEYBLOBS"} = "$Bin/config/dev-client-dir/keyblobs";
$ENV{CAMLI_AUTH} = "userpass:camlistore:pass3179";
my $blobserver = "http://localhost:3179/bs";
if ($opt_tls) {
	$blobserver =~ s/^http/https/;
}

exec("$ENV{GOPATH}/bin/camget",
     "--verbose",
     "--blobserver=$blobserver",
     @ARGV);
die "Failure running camget: $!";