#!/usr/bin/perl

use strict;

die ("Usage: gettools SRCDIR DSTDIR TOOL [TOOL...]\n")
  if ($#ARGV < 2);

my $srcdir = shift (@ARGV);
die ("gettools: source dir $srcdir not found\n") unless (-d $srcdir);
my $dstdir = shift (@ARGV);
die ("gettools: dest dir $dstdir not found\n") unless (-d $dstdir);
for my $t (@ARGV) {
    gettool ($srcdir, $dstdir, $t);
}

sub gettool ($$$) {
    my ($sd, $dd, $t) = @_;
    my $src = "$sd/$t";
    return unless (-f $src);
    my $dst = "$dd/$t";

    if (! -f $dst or
	(stat($src))[9] > (stat($dst))[9]) {
	system ("cp '$src' '$dst'") and die ("gettools: cp failed\n");
    }
}
