blob: 9e5466cd4bc33a9b15d2889b78f1dca9daf831e4 [file] [log] [blame]
#!/usr/bin/perl
use strict;
use FindBin qw($Bin);
my $devcam_binpath = "";
my $gopath = $ENV{'GOPATH'};
if (-e "$Bin/../bin/devcam") {
$devcam_binpath = "$Bin/../bin/devcam";
} elsif (-e "$gopath/bin/devcam") {
$devcam_binpath = "$gopath/bin/devcam";
} elsif (-e "$Bin\\..\\bin\\devcam.exe") {
$devcam_binpath = "$Bin\\..\\bin\\devcam.exe";
} elsif (-e "$gopath\\bin\\devcam.exe") {
$devcam_binpath = "$gopath\\bin\\devcam.exe";
} else {
die "devcam binary not found\n";
}
exec($devcam_binpath, "review");