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