#!/usr/bin/perl use strict; use FindBin qw($Bin); use Getopt::Long; require "$Bin/misc/devlib.pl"; sub usage { die "Usage: dev-camput [--tls] -- camput_args"; } my $opt_tls; my $opt_path = "/"; Getopt::Long::Configure("pass_through"); GetOptions( "tls" => \$opt_tls, "path=s" => \$opt_path, ) or usage(); my $camput = build_bin("./cmd/camput"); # 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/pkg/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${opt_path}"; if ($opt_tls) { $blobserver =~ s/^http/https/; } if ($ENV{"CAMLI_WANT_CAMPUT_PASSWORD"}) { # Set by dev-pass-camput $ENV{"CAMLI_SECRET_RING"} = "$Bin/pkg/jsonsign/testdata/password-foo-secring.gpg"; $ENV{"CAMLI_KEYID"} = "C7C3E176"; $ENV{"CAMLI_DEV_KEYBLOBS"} = "$Bin/config/dev-client-dir/keyblobs"; print "**\n** Note: password is \"foo\"\n**\n"; } my $verbose = "true"; $verbose = "false" if $ENV{CAMLI_QUIET}; exec("$camput", "--verbose=$verbose", "--server=$blobserver", @ARGV); die "Failure running camput: $!";