File: sh.fixperm

package info (click to toggle)
shtool 2.0.8-9
  • links: PTS, VCS
  • area: main
  • in suites: buster, stretch
  • size: 808 kB
  • ctags: 12
  • sloc: perl: 399; makefile: 110; sh: 42
file content (142 lines) | stat: -rw-r--r-- 3,598 bytes parent folder | download | duplicates (3)
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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
##
##  fixperm -- Fix file permissions inside a source tree
##  Copyright (c) 1996-2008 Ralf S. Engelschall <rse@engelschall.com>
##
##  This file is part of shtool and free software; you can redistribute
##  it and/or modify it under the terms of the GNU General Public
##  License as published by the Free Software Foundation; either version
##  2 of the License, or (at your option) any later version.
##
##  This file is distributed in the hope that it will be useful,
##  but WITHOUT ANY WARRANTY; without even the implied warranty of
##  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
##  General Public License for more details.
##
##  You should have received a copy of the GNU General Public License
##  along with this program; if not, write to the Free Software
##  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
##  USA, or contact Ralf S. Engelschall <rse@engelschall.com>.
##

str_tool="fixperm"
str_usage="[-v|--verbose] [-t|--trace] <path> [<path> ...]"
arg_spec="1+"
opt_spec="v.t."
opt_alias="v:verbose,t:trace"
opt_v=no
opt_t=no

. ./sh.common

paths="$*"

#   check whether the test command supports the -x option
if [ -x /bin/sh ] 2>/dev/null; then
    minusx="-x"
else
    minusx="-r"
fi

#   iterate over paths
for p in $paths; do
    for file in `find $p -depth -print`; do
        if [ -f $file ]; then
            if [ $minusx $file ]; then
                if [ ".$opt_v" = .yes ]; then
                    echo "-rwxr-xr-x $file" 2>&1
                fi
                if [ ".$opt_t" = .yes ]; then
                    echo "chmod 755 $file" 2>&1
                fi
                chmod 755 $file
            else
                if [ ".$opt_v" = .yes ]; then
                    echo "-rw-r--r-- $file" 2>&1
                fi
                if [ ".$opt_t" = .yes ]; then
                    echo "chmod 644 $file" 2>&1
                fi
                chmod 644 $file
            fi
            continue
        fi
        if [ -d $file ]; then
            if [ ".$opt_v" = .yes ]; then
                echo "drwxr-xr-x $file" 2>&1
            fi
            if [ ".$opt_t" = .yes ]; then
                echo "chmod 755 $file" 2>&1
            fi
            chmod 755 $file
            continue
        fi
        if [ ".$opt_v" = .yes ]; then
            echo "?????????? $file" 2>&1
        fi
    done
done

shtool_exit 0

##
##  manual page
##

=pod

=head1 NAME

B<shtool-fixperm> - B<GNU shtool> file permission fixing command

=head1 SYNOPSIS

B<shtool fixperm>
[B<-v>|B<--verbose>]
[B<-t>|B<--trace>]
I<path>
[I<path> ...]

=head1 DESCRIPTION

B<shtool fixperm> fixes file permissions inside a source tree under
I<path> by cleaning up the permission bits. It determines the cleaned up
permission from the already set bits. It is intended to be run before
a tarball is rolled (usually with B<shtool tarball>) out of a source
tree. The trick is that this is more convenient than having to set the
permissions manually or by using a large file list.

=head1 OPTIONS

The following command line options are available.

=over 4

=item B<-v>, B<--verbose>

Display some processing information.

=item B<-t>, B<--trace>

Enable the output of the essential shell commands which are executed.

=back

=head1 EXAMPLE

 #   Makefile.in
 dist:
     shtool fixperm -v *
     ...

=head1 HISTORY

The B<GNU shtool> B<fixperm> command was originally written by Ralf S.
Engelschall E<lt>rse@engelschall.comE<gt> in 1996 for I<OSSP eperl>.
It was later taken over into B<GNU shtool>.

=head1 SEE ALSO

shtool(1), chmod(1).

=cut