X-Git-Url: https://git.whamcloud.com/?a=blobdiff_plain;f=lustre%2Fscripts%2Fcvs-modified-files.pl;fp=lustre%2Fscripts%2Fcvs-modified-files.pl;h=0000000000000000000000000000000000000000;hb=164bf598e3e4f738cb31e8422904de6dc614a2f0;hp=d13c4d3d715b73dd2688b428bd5106ab709faecb;hpb=779cd145a8b7a007c5d956ac32b644de929d2ff4;p=fs%2Flustre-release.git

diff --git a/lustre/scripts/cvs-modified-files.pl b/lustre/scripts/cvs-modified-files.pl
deleted file mode 100755
index d13c4d3..0000000
--- a/lustre/scripts/cvs-modified-files.pl
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/usr/bin/env perl
-
-my $mode = "NONE";
-my @modified, @added, @removed;
-
-while($line = <>) {
-  if ($line =~ /Modified Files:/) {
-    $mode = "MODIFIED";
-    next;
-  }
-
-  if ($line =~ /Added Files:/) {
-    $mode = "ADDED";
-    next;
-  }
-
-  if ($line =~ /Removed Files:/) {
-    $mode = "REMOVED";
-    next;
-  }
-
-  if ($mode eq "NONE") { next; }
-  if ($line =~ /-------/) { next; }
-
-  chop($line);
-  $line =~ s/^CVS:\s+//;
-  $line =~ s/\s+$//;
-  # print "processing $line for $mode\n";
-  @files = split(/ /, $line);
-  # print "new files for $mode: ", join(', ', @files), "\n";
-
-  if ($mode eq "MODIFIED") {
-    push(@modified, @files);
-  } elsif ($mode eq "ADDED") {
-    push(@added, @files);
-  } elsif ($mode eq "REMOVED") {
-    push(@removed, @files);
-  } else {
-    die "Unknown mode $mode!";
-  }
-}
-
-print join(' ', @modified);
-if ($ENV{"SHOW_ALL_FILES"} ne "no") {
-  print ' ', join(' ', @added), ' ', join(' ', @removed);
-}
-print "\n";