mirror of https://github.com/perkeep/perkeep.git
52 lines
1.2 KiB
Perl
Executable File
52 lines
1.2 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use FindBin qw($Bin);
|
|
use Getopt::Long;
|
|
|
|
sub usage {
|
|
die "Usage: dev-blobserver [--wipe] [--tls] <portnumber> -- [other_blobserver_opts]";
|
|
}
|
|
|
|
chdir $Bin or die;
|
|
|
|
my $opt_wipe;
|
|
my $opt_tls;
|
|
GetOptions(
|
|
"wipe" => \$opt_wipe,
|
|
"tls" => \$opt_tls,
|
|
) or usage();
|
|
|
|
my $port = shift;
|
|
$port = "3179" unless defined($port);
|
|
usage() unless $port =~ /^\d+$/;
|
|
|
|
unless ($ENV{GOPATH}) {
|
|
$ENV{GOPATH} = "$Bin/gopath"
|
|
}
|
|
|
|
system("go", "install", "./server/camlistored") and die "Failed to build camlistored";
|
|
|
|
my $root = "/tmp/camliroot-$ENV{USER}/port$port/";
|
|
if ($opt_wipe && -d $root) {
|
|
print "Wiping $root\n";
|
|
system("rm", "-rf", $root) and die "Failed to wipe $root.\n";
|
|
}
|
|
unless (-d $root) {
|
|
system("mkdir", "-p", $root) and die "Failed to create $root.\n";
|
|
}
|
|
|
|
print "Starting blobserver on http://localhost:$port/ in $root\n";
|
|
|
|
$ENV{CAMLI_PASSWORD} = "pass$port";
|
|
$ENV{CAMLI_PORT} = $port;
|
|
$ENV{CAMLI_ROOT} = $root;
|
|
$ENV{CAMLI_TLS_CRT_FILE} = $opt_tls ? "$Bin/config/dev-tls.crt" : "";
|
|
$ENV{CAMLI_TLS_KEY_FILE} = $opt_tls ? "$Bin/config/dev-tls.key" : "";
|
|
exec("$ENV{GOPATH}/bin/camlistored",
|
|
"-configfile=$Bin/config/dev-blobserver-config.json",
|
|
"-listen=127.0.0.1:$port",
|
|
@ARGV);
|
|
|
|
die "exec failure: $!\n";
|