#! /usr/bin/perl

$p_w_d = `pwd`;

if( $p_w_d =~ /.*ROC_Test$/ ) {
  printf("0\n");
  exit;
} elsif ( $p_w_d =~ /.*Stand(\d)$1$/ ) {
  #if( ($1 ne 1) && ($1 ne 2) ) { # restrict number of test stands
  #    printf("0\n");
  #    exit;
  #}
  printf("1\n"); # We are in correct directory (Stand1 or Stand2)
  exit;
} else {
  printf("0\n");
  exit;
}

exit;

# EOF
