| 18 |
|
exec -ignorestderr cvs up -d "$cvs" |
| 19 |
|
|
| 20 |
|
proc rescan {path prefix} { |
| 21 |
< |
global svn cvs cache old |
| 21 |
> |
global svn cvs cache old added |
| 22 |
|
foreach name [glob -tails -nocomplain -directory "$path" *] { |
| 23 |
|
if { [file type "$path/$name"] == "directory" } { |
| 24 |
|
if { ! [file exists "$cvs/$prefix/$name"] } { |
| 57 |
|
} |
| 58 |
|
|
| 59 |
|
proc remove_left {path prefix} { |
| 60 |
< |
global svn cvs cache old |
| 60 |
> |
global svn cvs cache old removed |
| 61 |
|
foreach name [glob -tails -nocomplain -directory "$path" *] { |
| 62 |
|
if { [file type "$path/$name"] == "directory" } { |
| 63 |
|
if { "$name" != "CVS" } { |
| 81 |
|
|
| 82 |
|
cd "$cvs" |
| 83 |
|
if { "$added" != "" } { |
| 84 |
< |
exec -ignorestderr cvs add \"[join $added "\",\""]\" |
| 84 |
> |
exec -ignorestderr cvs add $added >/dev/stdout 2>@1 |
| 85 |
|
} |
| 86 |
|
if { "$removed" != "" } { |
| 87 |
< |
exec -ignorestderr cvs rm \"[join $removed "\",\""]\" |
| 87 |
> |
exec -ignorestderr cvs rm $removed >/dev/stdout 2>@1 |
| 88 |
|
} |
| 89 |
|
exec -ignorestderr cvs ci -m "$log" |
| 90 |
|
cd "$old" |
