diff options
author | knarf <knarf@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2011-03-04 15:45:18 +0000 |
---|---|---|
committer | knarf <knarf@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2011-03-04 15:45:18 +0000 |
commit | ccd3836b04b71b2a2dc2dc929e271c002c6f83bb (patch) | |
tree | d198659344835dcab601c468972d71caa6cb92d4 /lib/sbin/CVSUpdate.pl | |
parent | ce7a824f4e47ec2e6c6429f81726c9dd772185c5 (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.pl | 56 |
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); |