1#!/usr/bin/perl
2
3use strict;
4use FindBin qw($Bin);
5
6my $devcam_binpath = "";
7my $gopath = $ENV{'GOPATH'};
8
9if (-e "$Bin/../bin/devcam") {
10	$devcam_binpath = "$Bin/../bin/devcam";
11} elsif (-e "$gopath/bin/devcam") {
12	$devcam_binpath = "$gopath/bin/devcam";
13} elsif (-e "$Bin\\..\\bin\\devcam.exe") {
14	$devcam_binpath = "$Bin\\..\\bin\\devcam.exe";
15} elsif (-e "$gopath\\bin\\devcam.exe") {
16	$devcam_binpath = "$gopath\\bin\\devcam.exe";
17} else {
18	die "devcam binary not found\n";
19}
20
21exec($devcam_binpath, "review");
22