mirror of https://github.com/perkeep/perkeep.git
48 lines
1.1 KiB
Perl
Executable File
48 lines
1.1 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use FindBin qw($Bin);
|
|
use Getopt::Long;
|
|
require "$Bin/misc/devlib.pl";
|
|
|
|
sub usage {
|
|
die "Usage: dev-camget [--tls] -- camget_args";
|
|
}
|
|
|
|
my $opt_tls;
|
|
my $opt_path = "/bs";
|
|
Getopt::Long::Configure("pass_through");
|
|
GetOptions(
|
|
"tls" => \$opt_tls,
|
|
"path=s" => \$opt_path,
|
|
) or usage();
|
|
|
|
my $camget = build_bin("./cmd/camget");
|
|
|
|
# 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/;
|
|
}
|
|
|
|
my @args;
|
|
unless (grep { /^--?shared\b/ } @ARGV) {
|
|
push @args, "--server=$blobserver";
|
|
}
|
|
push @args, @ARGV;
|
|
|
|
my $verbose = "true";
|
|
$verbose = "false" if $ENV{CAMLI_QUIET};
|
|
|
|
exec("$camget",
|
|
"--verbose=$verbose",
|
|
@args);
|
|
die "Failure running camget: $!";
|