summaryrefslogtreecommitdiff
path: root/lib/sbin/CVSUpdate.pl
diff options
context:
space:
mode:
authorknarf <knarf@17b73243-c579-4c4c-a9d2-2d5706c11dac>2011-03-04 15:45:18 +0000
committerknarf <knarf@17b73243-c579-4c4c-a9d2-2d5706c11dac>2011-03-04 15:45:18 +0000
commitccd3836b04b71b2a2dc2dc929e271c002c6f83bb (patch)
treed198659344835dcab601c468972d71caa6cb92d4 /lib/sbin/CVSUpdate.pl
parentce7a824f4e47ec2e6c6429f81726c9dd772185c5 (diff)
don't try to update the Cactus flesh using CVS anymore - skip it instead. A better solution should be found, but this at least doesn't produce an error message now
git-svn-id: http://svn.cactuscode.org/flesh/trunk@4686 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/CVSUpdate.pl')
-rw-r--r--lib/sbin/CVSUpdate.pl56
1 files changed, 28 insertions, 28 deletions
diff --git a/lib/sbin/CVSUpdate.pl b/lib/sbin/CVSUpdate.pl
index 2847b4ec..cae76b64 100644
--- a/lib/sbin/CVSUpdate.pl
+++ b/lib/sbin/CVSUpdate.pl
@@ -24,34 +24,34 @@ if ($debug)
print "DEBUG mode: cvs/svn commands not issued\n\n";
}
-print("Updating Flesh\n");
-$command = "cvs $cvs_ops update $cvs_update_ops $cvs_symbolic_name CONTRIBUTORS COPYRIGHT Makefile lib doc src arrangements/README";
-if ($debug)
-{
- $this_dir = `pwd`;
- chop($this_dir);
- print "\nIn directory $this_dir\n";
- print "Issuing command\n $command\n";
- foreach $file (`ls CVS`)
- {
- chop($file);
- print "Contents of $file\n";
- open (FILE, "<CVS/$file") || die "Could not open CVS file";
- while (<FILE>)
- {
- print;
- }
- }
-}
-if (!$debug)
-{
- open (CS, "$command |");
- while (<CS>)
- {
- print ;
- }
- close (CS);
-}
+print("Not updating Flesh - not in CVS anymore\n");
+#$command = "cvs $cvs_ops update $cvs_update_ops $cvs_symbolic_name CONTRIBUTORS COPYRIGHT Makefile lib doc src arrangements/README";
+#if ($debug)
+#{
+# $this_dir = `pwd`;
+# chop($this_dir);
+# print "\nIn directory $this_dir\n";
+# print "Issuing command\n $command\n";
+# foreach $file (`ls CVS`)
+# {
+# chop($file);
+# print "Contents of $file\n";
+# open (FILE, "<CVS/$file") || die "Could not open CVS file";
+# while (<FILE>)
+# {
+# print;
+# }
+# }
+#}
+#if (!$debug)
+#{
+# open (CS, "$command |");
+# while (<CS>)
+# {
+# print ;
+# }
+# close (CS);
+#}
$home = `pwd`;
chomp ($home);