Initial commit of additional CVS management utilities for use with CVS file copies

tools/cvsmgmt/bulk-copy.pl

@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+
+while (my $line = <STDIN>) {
+    if ($line =~ /^(\S+)\s(\S+)$/) {
+        print "Copying $1 -> $2 ...\n";
+        system("/opt/cvsmgmt/copy-cvs-file.pl -d $1,v $2,v");
+    }
+} 

tools/cvsmgmt/verify-bulk-copy.pl

@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+
+while (my $line = <STDIN>) {
+    if ($line =~ /^(\S+)\s(\S+)$/) {
+        system("/opt/cvsmgmt/copy-cvs-file.pl -n $1,v $2,v");
+    }
+}