2011-07-08 22:34:06 +00:00
|
|
|
#!/usr/bin/perl
|
2011-07-01 19:35:38 +00:00
|
|
|
|
2011-07-08 22:34:06 +00:00
|
|
|
use strict;
|
|
|
|
use FindBin qw($Bin);
|
|
|
|
|
2014-05-13 21:04:17 +00:00
|
|
|
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";
|
2011-07-08 22:34:06 +00:00
|
|
|
}
|
|
|
|
|
2014-05-13 21:04:17 +00:00
|
|
|
exec($devcam_binpath, "review");
|