6f1b523433423622d1ec39ee45a13d0b9be9d4c8
markd
  Thu Mar 24 20:16:17 2011 -0700
removed no longer needed cvs tools, which are mistakenly being run by some stray crontabs
diff --git src/utils/cvsTools/cvsup src/utils/cvsTools/cvsup
deleted file mode 100755
index da3a83b..0000000
--- src/utils/cvsTools/cvsup
+++ /dev/null
@@ -1,195 +0,0 @@
-#!/usr/bin/env perl
-# cvsup - do a cvs update, report results concisely
-#
-# DO NOT EDIT the /cluster/bin/scripts copy of this file --
-# edit ~/kent/src/utils/cvsTools/cvsup instead.
-#
-# $Id: cvsup,v 1.5 2009/07/20 22:08:16 galt Exp $
-
-use warnings;
-use strict;
-use File::Spec;
-
-my $cvsdir = join(' ', @ARGV) || '.';
-
-my $abs_path = File::Spec->rel2abs($cvsdir);
-if ($abs_path eq "/hive/groups/encode/dcc/pipeline/hgEncodeSubmit") {
-  print "do not use CVSUP in ENCODE production sandbox because of uncontrolled updating.\n 
-     Use cvscheck instead\n";
-  exit 0;
-  }
-
-my $cvscmd = "cvs up -d -P $cvsdir";
-
-#
-# isInteresting: return true if it looks like source that should be checked in.
-#
-my @interestingFiles = ('makefile', 'Makefile');
-my @interestingSuffixes = ('c', 'h', 'as', 'sql', 'html', 'ra', 'pl', 'pm',
-			   'csh', 'sh', 'doc', 'txt', 'rb', 'rhtml', 'yml');
-my %interestingSuffixes = map { $_ => 1 } @interestingSuffixes;
-sub isInteresting {
-  my $fname = shift(@_);
-  foreach my $i (@interestingFiles) {
-    if ($fname eq $i) {
-      return 1;
-    }
-  }
-  if ($fname =~ m/\.([^.]+)$/) {
-    my $suffix = $1;
-    if ($interestingSuffixes{$suffix}) {
-      return 1;
-    }
-  }
-  return 0;
-}
-
-open(CVSUP, "$cvscmd 2>&1 |") ||
-  die "Couldn't open pipe from \"$cvscmd\": $!\n";
-
-my $date = `date`;
-chop($date);
-print "Updating $cvsdir at $date\n\n";
-
-# Pick out the interesting lines of output
-my @additions;
-my @updates;
-my @modifieds;
-my @removals;
-my @patches;
-my @conflicts;
-my @removed;
-my @noncvsInteresting;
-my @noncvs;
-my @unrecognized;
-my $aborted;
-while (<CVSUP>) {
-  if      (/^A (\S+)/) {
-    push @additions, $1;
-  } elsif (/^U (\S+)/) {
-    push @updates, $1;
-  } elsif (/^M (\S+)/) {
-    push @modifieds, $1;
-  } elsif (/^R (\S+)/) {
-    push @removals, $1;
-  } elsif (/^P (\S+)/) {
-    push @patches, $1;
-  } elsif (/^C (\S+)/) {
-    push @conflicts, $1;
-  } elsif (/^\? (\S+)/) {
-    my $f = $1;
-    if (isInteresting($f)) {
-      push @noncvsInteresting, $f;
-     } else {
-      push @noncvs, $f;
-    }
-  } elsif (/^(\S \S+)/) {
-    push @unrecognized, $1;
-  } elsif (/^cvs update: (\S+) is no longer in the repository/) {
-    push @removed, $1;
-  } elsif (/^cvs (update|server): Updating/ ||
-	   /^RCS file: / ||
-	   /^retrieving revision / ||
-	   /^rcsmerge: warning: conflicts during merge/ ||
-	   /^cvs update: conflicts found in/ ||
-	   /^Merging differences between/) {
-    next;
-  } else {
-    print $_;
-    if (/^cvs \[update aborted\]:/) {
-      $aborted = $_;
-    }
-  }
-}
-
-# Report them.
-if (defined $aborted) {
-  print "\nABORTED:\n$aborted\n";
-}
-if (scalar(@unrecognized) > 0) {
-  print "Unrecognized update types:\n";
-  foreach my $f (@unrecognized) {
-    print "  $f\n";
-  }
-  print "\n";
-}
-if (scalar(@conflicts) > 0) {
-  print "CONFLICTS -- manually edit to resolve:\n";
-  foreach my $f (@conflicts) {
-    print "  $f\n";
-  }
-  print "\n";
-}
-if (scalar(@additions) > 0) {
-  print "Added (not checked in) files:\n";
-  foreach my $f (@additions) {
-    print "  $f\n";
-  }
-  print "\n";
-}
-if (scalar(@removals) > 0) {
-  print "Removed (not checked in) files:\n";
-  foreach my $f (@removals) {
-    print "  $f\n";
-  }
-  print "\n";
-}
-if (scalar(@modifieds) > 0) {
-  print "Modified (possibly merged) files:\n";
-  foreach my $f (@modifieds) {
-    print "  $f\n";
-  }
-  print "\n";
-}
-if (scalar(@patches) > 0) {
-  print "Patched files:\n";
-  foreach my $f (@patches) {
-    print "  $f\n";
-  }
-  print "\n";
-}
-if (scalar(@updates) > 0) {
-  print "Updated files:\n";
-  foreach my $f (@updates) {
-    print "  $f\n";
-  }
-  print "\n";
-}
-if (scalar(@removed) > 0) {
-  print "Files removed by others:\n";
-  foreach my $f (@removed) {
-    print "  $f\n";
-  }
-  print "\n";
-}
-if (scalar(@noncvsInteresting) > 0) {
-  print "Files/directories not checked in to CVS that look like source:\n";
-  foreach my $f (@noncvsInteresting) {
-    print "  $f\n";
-  }
-  print "\n";
-}
-if (scalar(@noncvs) > 0) {
-  print "Files/directories not checked in to CVS that don't look like source:\n";
-  foreach my $f (@noncvs) {
-    print "  $f\n";
-  }
-  print "\n";
-}
-if (scalar(@conflicts) > 0) {
-  print "CONFLICTS -- manually edit to resolve:\n";
-  foreach my $f (@conflicts) {
-    print "  $f\n";
-  }
-  print "\n";
-}
-if (defined $aborted) {
-  print "ABORTED:\n$aborted\n";
-}
-
-close(CVSUP);
-# Unfortunately $? actually doesn't pass cvs up's exit status... maybe because 
-# of sh's handling of exit statuses in pipes??  Oh well, hopefully error 
-# messages will be clear enough.  
-exit $?;
-