#!/usr/bin/env perl

##**************************************************************
##
## Copyright (C) 1990-2007, Condor Team, Computer Sciences Department,
## University of Wisconsin-Madison, WI.
## 
## Licensed under the Apache License, Version 2.0 (the "License"); you
## may not use this file except in compliance with the License.  You may
## obtain a copy of the License at
## 
##    http://www.apache.org/licenses/LICENSE-2.0
## 
## Unless required by applicable law or agreed to in writing, software
## distributed under the License is distributed on an "AS IS" BASIS,
## WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
## See the License for the specific language governing permissions and
## limitations under the License.
##
##**************************************************************



# Simple perl script to find the arch/opsys of the local system, and
# create a symlink to the file given as an argument which contains
# them.  
# 6/15/00 - Written by Derek Wright <wright@cs.wisc.edu>


$target = shift || die "Must specify a target name\n";

# Try to make sure we can find condor_config_val
$ENV{PATH} = "$ENV{PATH}:./condor_tools";
$ENV{PATH} = "$ENV{PATH}:../condor_tools";
$ENV{PATH} = "$ENV{PATH}:../../condor_tools";
$ENV{PATH} = "$ENV{PATH}:../../../condor_tools";

$arch = `condor_config_val arch`;
$opsys = `condor_config_val opsys`;

chomp($arch);
chomp($opsys);

$arch || die "Can't find arch\n";
$opsys || die "Can't find opsys\n";

$name = "$target.$opsys.$arch";

unlink( $name );
symlink( $target, $name ) || die "Can't create symlink $name -> $target: $!\n";

