#!/usr/athena/bin/perl
#$Id$


# first set some obvious varibles
$locker = "/mit/gnome";
$version = "gnome-1.0/";
$build_dir = "/var/tmp/seph/builds";





# figure out where to get the src from
sub find_dist {
    local($pkg) = shift;

    local($dist) = "$locker/dist/$pkg.tar.gz" if(-e "$locker/dist/$pkg.tar.gz");
    local($dist) = "$locker/dist/$version/$pkg.tar.gz" if(-e "$locker/dist/$version/$pkg.tar.gz");
    if(! defined($dist) ) {
	local($src) = "$locker/src/$pkg" if(-e "$locker/src/$pkg");
	local($src) = "$locker/src/$version/$pkg" if(-e "$locker/src/$version/$pkg");
	if(! defined($src) ){
	    print "can't find src or dist for $pkg. exiting\n";
	    exit(255);
	}
	else {
	    chdir("$build_dir");
	    system("lndir $src");
	    print "using $src as a src for $pkg\n";
	    $src_dir = "$build_dir/$pkg";
	}
    } # end not defined($dist)
    else {
	chdir("$build_dir");
	system("gtar -xzf $dist");
	$src_dir = "$build_dir/$pkg";
    }
}