crossroads

Git mirror of https://crossroads.e-tunity.com/
git clone git://git.finwo.net/app/crossroads
Log | Files | Refs

gettools (443B)

      1 #!/usr/bin/perl
      2 
      3 use strict;
      4 
      5 foreach my $f (@ARGV) {
      6     my $srcfound = 0;
      7     my ($src, $dst);
      8     foreach my $srcdir ("$ENV{EBASE}/bin", "$ENV{EBASE}/etc") {
      9 	$src = "$srcdir/$f";
     10 	next unless (-f $src);
     11 	$dst = "../tools/$f";
     12 
     13 	if (! -f $dst or
     14 	    (stat($src))[9] > (stat($dst))[9]) {
     15 	    print ("gettools: $src -> $dst\n");
     16 	    system ("cp $src $dst") == 0
     17 	      or die ("gettools: copying of '$src' to '$dst' failed\n");
     18 	}
     19     }
     20 }