Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
L
liblongpath-rsync
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
liblongpath
liblongpath-rsync
Commits
1848fd6f
Commit
1848fd6f
authored
May 13, 2005
by
Wayne Davison
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
An example filter script to maintain .cvsinclude files.
parent
f2a4853c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
43 additions
and
0 deletions
+43
-0
cvs2includes
support/cvs2includes
+43
-0
No files found.
support/cvs2includes
0 → 100755
View file @
1848fd6f
#!/usr/bin/perl
#
# This script finds all CVS/Entries files in the current directory and below
# and creates a local .cvsinclude file with non-inherited rules including each
# checked-in file. Then, use this option whenever using --cvs-exclude (-C):
#
# -f ': .cvsinclude'
#
# (You could alternately put ": .cvsinclude" into an .rsync-filter file and
# use the -F option, which is easier to type.)
#
# That ensures that all checked-in files/dirs are included in the transfer.
#
# The downside is that you need to remember to re-run cvs2includes whenever
# You add a new file to the project.
use
strict
;
open
(
FIND
,
'find . -name CVS -type d |'
)
or
die
$!
;
while
(
<
FIND
>
)
{
chomp
;
s
#^\./##;
my
$entries
=
"$_/Entries"
;
s/CVS$/.cvsinclude/
;
my
$filter
=
$_
;
open
(
ENTRIES
,
$entries
)
or
die
"Unable to open $entries: $!\n"
;
my
@includes
;
while
(
<
ENTRIES
>
)
{
push
(
@includes
,
$1
)
if
m#/(.+?)/#
;
}
close
ENTRIES
;
if
(
@includes
)
{
open
(
FILTER
,
">$filter"
)
or
die
"Unable to write $filter: $!\n"
;
print
FILTER
'+ /'
,
join
(
"\n+ /"
,
@includes
),
"\n"
;
close
FILTER
;
print
"Updated $filter\n"
;
}
elsif
(
-
f
$filter
)
{
unlink
(
$filter
);
print
"Removed $filter\n"
;
}
}
close
FIND
;
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment