github.com/slspeek/camlistore_namedsearch@v0.0.0-20140519202248-ed6f70f7721a/misc/review (about)

     1  #!/usr/bin/perl
     2  
     3  use strict;
     4  use FindBin qw($Bin);
     5  
     6  my $devcam_binpath = "";
     7  my $gopath = $ENV{'GOPATH'};
     8  
     9  if (-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  
    21  exec($devcam_binpath, "review");