blob: 4f0364591ee8aa71c1ef1388c529f901cb4b7e24 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
#/*@@
# @file CVSUpdate.pl
# @date Tue Nov 21 2000
# @author Gabrielle Allen
# @desc
# Updates Cactus checkout
# (avoids problems with different versions of cvs client)
# @enddesc
# @version $Header$
#@@*/
$cvs_ops="-z6 -q";
$cvs_update_ops="-d -P";
# Set this to eg -r TAGNAME checkout from a TAG
$cvs_symbolic_name="";
require "lib/sbin/MakeUtils.pl";
$debug = 0;
if ($debug)
{
print "DEBUG mode: cvs commands not issued\n\n";
}
print("\nUpdating Flesh\n");
$command = "cvs $cvs_ops update $cvs_update_ops $cvs_symbolic_name CONTRIBUTORS COPYRIGHT Makefile lib doc src";
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);
}
($package_dir, $thornlist) = @ARGV;
if ($thornlist =~ /^$/) {
%info = &buildthorns($package_dir,"thorns");
} else {
%info = &ReadThornlist($thornlist);
}
$current_dir = `pwd`;
chdir $package_dir;
foreach $thorn (sort keys %info)
{
if( ! -d "$thorn/CVS")
{
print "Ignoring $thorn - no CVS directory\n";
next;
}
chdir $thorn;
print("\nUpdating $thorn\n");
$command = "cvs $cvs_ops update $cvs_update_ops $cvs_symbolic_name";
if($debug)
{
$this_dir = `pwd`;
chop($this_dir);
print "In 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 ;
}
}
chdir "../..";
}
chdir $current_dir;
exit;
|
