[type/__mail_alias] Improve documentation
This commit is contained in:
parent
67b989a717
commit
96fcccf529
3 changed files with 69 additions and 35 deletions
|
@ -32,26 +32,41 @@ function print_aliases(aliases, matches) {
|
||||||
}
|
}
|
||||||
|
|
||||||
/^#/ {
|
/^#/ {
|
||||||
# comment
|
# comment line (ignore)
|
||||||
select = 0; cont = 0; next
|
select = 0; cont = 0 # comments terminate alias lists and continuations
|
||||||
}
|
|
||||||
|
|
||||||
{
|
|
||||||
cont = ($0 ~ /\\$/)
|
|
||||||
if (cont) sub(/[ \t]*\\$/, "", $0)
|
|
||||||
}
|
|
||||||
|
|
||||||
/^[[:blank:]]/ || cont {
|
|
||||||
# continuation line
|
|
||||||
if (select) print_aliases($0)
|
|
||||||
next
|
next
|
||||||
}
|
}
|
||||||
|
|
||||||
$1 == ENVIRON["__object_id"] {
|
/^[ \t]/ || cont {
|
||||||
|
# continuation line (either the previous line ended in a backslash or the
|
||||||
|
# line starts with whitespace)
|
||||||
|
|
||||||
|
if (select)
|
||||||
|
print_aliases($0)
|
||||||
|
}
|
||||||
|
|
||||||
|
{
|
||||||
|
# detect if the line is a line to be continued (ends with a backslash)
|
||||||
|
cont = ($0 ~ /\\$/)
|
||||||
|
|
||||||
|
# if it is, we drop the backslash from the line and skip to next line
|
||||||
|
# (the contents have been printed above if they should)
|
||||||
|
if (cont) {
|
||||||
|
sub(/[ \t]*\\$/, "", $0)
|
||||||
|
next
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$1 == ENVIRON["__object_id"] && !select {
|
||||||
|
# "target" user -> print alias list
|
||||||
|
# (only if !select; because of whitespacecontinuation lines)
|
||||||
select = 1
|
select = 1
|
||||||
print_aliases($2)
|
print_aliases($2)
|
||||||
next
|
next
|
||||||
}
|
}
|
||||||
|
|
||||||
{ select = 0 }
|
{
|
||||||
|
# other user
|
||||||
|
select = 0
|
||||||
|
}
|
||||||
' "${aliases_file}"
|
' "${aliases_file}"
|
||||||
|
|
|
@ -17,7 +17,7 @@
|
||||||
# You should have received a copy of the GNU General Public License
|
# You should have received a copy of the GNU General Public License
|
||||||
# along with cdist. If not, see <http://www.gnu.org/licenses/>.
|
# along with cdist. If not, see <http://www.gnu.org/licenses/>.
|
||||||
#
|
#
|
||||||
# This explorer tries to find the correct aliases file.
|
# This explorer finds the aliases file to modify.
|
||||||
|
|
||||||
found() { echo "$*"; exit 0; }
|
found() { echo "$*"; exit 0; }
|
||||||
|
|
||||||
|
|
|
@ -29,7 +29,13 @@ in
|
||||||
exit 0
|
exit 0
|
||||||
fi
|
fi
|
||||||
|
|
||||||
echo "set aliases" >>"$__messages_out"
|
if test -s "${__object}/explorer/aliases"
|
||||||
|
then
|
||||||
|
echo "update aliases" >>"$__messages_out"
|
||||||
|
else
|
||||||
|
echo "add aliases" >>"$__messages_out"
|
||||||
|
fi
|
||||||
|
|
||||||
mode=1
|
mode=1
|
||||||
;;
|
;;
|
||||||
(absent)
|
(absent)
|
||||||
|
@ -37,6 +43,7 @@ in
|
||||||
test -s "${__object}/explorer/aliases" || exit 0
|
test -s "${__object}/explorer/aliases" || exit 0
|
||||||
|
|
||||||
echo "delete aliases" >>"$__messages_out"
|
echo "delete aliases" >>"$__messages_out"
|
||||||
|
|
||||||
mode=0
|
mode=0
|
||||||
;;
|
;;
|
||||||
(*)
|
(*)
|
||||||
|
@ -46,11 +53,10 @@ esac
|
||||||
|
|
||||||
aliases_file=$(cat "${__object}/explorer/aliases_file")
|
aliases_file=$(cat "${__object}/explorer/aliases_file")
|
||||||
|
|
||||||
if test -z "${aliases_file}"
|
test -n "${aliases_file}" || {
|
||||||
then
|
|
||||||
echo 'Could not determine aliases file path.' >&2
|
echo 'Could not determine aliases file path.' >&2
|
||||||
exit 1
|
exit 1
|
||||||
fi
|
}
|
||||||
|
|
||||||
# "export" variables to remote
|
# "export" variables to remote
|
||||||
printf 'mode=%u\n' "${mode}"
|
printf 'mode=%u\n' "${mode}"
|
||||||
|
@ -58,16 +64,18 @@ printf "aliases_file='%s'\n" "${aliases_file}"
|
||||||
|
|
||||||
cat <<'EOF'
|
cat <<'EOF'
|
||||||
test -f "${aliases_file}" || touch "${aliases_file}"
|
test -f "${aliases_file}" || touch "${aliases_file}"
|
||||||
awk -F ':[ \t]*' -v mode="${mode}" '
|
|
||||||
function sepafter(f, default, _) {
|
awk -F ':[ \t]*' -v mode=$mode '
|
||||||
|
function sepafter(f, default, _) {
|
||||||
|
# finds the separator between field $f and $(f+1)
|
||||||
_ = substr($0, length($f) + 1, index(substr($0, length($f)+1), $(f+1)) - 1)
|
_ = substr($0, length($f) + 1, index(substr($0, length($f)+1), $(f+1)) - 1)
|
||||||
if (_) return _
|
return _ ? _ : default
|
||||||
else return default
|
|
||||||
}
|
}
|
||||||
|
|
||||||
function write_aliases() {
|
function write_aliases() {
|
||||||
if (aliases_written) return
|
if (aliases_written) return
|
||||||
|
|
||||||
|
# print aliases line
|
||||||
printf "%s%s", ENVIRON["__object_id"], sepafter(1, ": ")
|
printf "%s%s", ENVIRON["__object_id"], sepafter(1, ": ")
|
||||||
while ((getline < aliases_should_file) > 0) {
|
while ((getline < aliases_should_file) > 0) {
|
||||||
if (aliases_written) printf ", "
|
if (aliases_written) printf ", "
|
||||||
|
@ -83,36 +91,45 @@ BEGIN {
|
||||||
}
|
}
|
||||||
|
|
||||||
/^#/ {
|
/^#/ {
|
||||||
# comment
|
# comment line (leave alone)
|
||||||
select = 0; cont = 0
|
select = 0; cont = 0 # comments terminate alias lists and continuations
|
||||||
print
|
print
|
||||||
next
|
next
|
||||||
}
|
}
|
||||||
|
|
||||||
{
|
|
||||||
cont = ($0 ~ /\\$/)
|
|
||||||
if (cont) sub(/[ \t]*\\$/, "", $0)
|
|
||||||
}
|
|
||||||
|
|
||||||
/^[ \t]/ || cont {
|
/^[ \t]/ || cont {
|
||||||
# continuation line
|
# continuation line (either the previous line ended in a backslash or the
|
||||||
|
# line starts with whitespace)
|
||||||
|
|
||||||
|
# if in the alias list of the "target" user, we drop the line as it has been
|
||||||
|
# rewritten previously
|
||||||
if (select) next
|
if (select) next
|
||||||
}
|
}
|
||||||
|
|
||||||
|
{
|
||||||
|
# detect if the line is a line to be continued (ends with a backslash)
|
||||||
|
cont = ($0 ~ /\\$/)
|
||||||
|
# if it is, we drop the backslash from the line.
|
||||||
|
if (cont) sub(/[ \t]*\\$/, "", $0)
|
||||||
|
}
|
||||||
|
|
||||||
$1 == ENVIRON["__object_id"] {
|
$1 == ENVIRON["__object_id"] {
|
||||||
in_list = 1
|
# "target" user -> rewrite aliases list
|
||||||
|
select = 1
|
||||||
if (mode) write_aliases()
|
if (mode) write_aliases()
|
||||||
next
|
next
|
||||||
}
|
}
|
||||||
|
|
||||||
{
|
{
|
||||||
in_list = 0
|
# other user
|
||||||
|
select = 0
|
||||||
print
|
print
|
||||||
}
|
}
|
||||||
|
|
||||||
END {
|
END {
|
||||||
# if the last line as an alias definition, the separator will be reused
|
# if the last line was an alias, the separator will be reused (looks better)
|
||||||
if (mode && !aliases_written) write_aliases()
|
if (mode && !aliases_written)
|
||||||
|
write_aliases()
|
||||||
}
|
}
|
||||||
' <"${aliases_file}" >"${aliases_file}.tmp" || {
|
' <"${aliases_file}" >"${aliases_file}.tmp" || {
|
||||||
echo 'Generating new aliases file failed!' >&2
|
echo 'Generating new aliases file failed!' >&2
|
||||||
|
@ -121,9 +138,11 @@ END {
|
||||||
|
|
||||||
if ! cmp -s "${aliases_file}" "${aliases_file}.tmp"
|
if ! cmp -s "${aliases_file}" "${aliases_file}.tmp"
|
||||||
then
|
then
|
||||||
|
# aliases file was modified, replace and run `newaliases`
|
||||||
mv "${aliases_file}.tmp" "${aliases_file}"
|
mv "${aliases_file}.tmp" "${aliases_file}"
|
||||||
newaliases
|
newaliases
|
||||||
else
|
else
|
||||||
|
# no modifications were made, delete the temp file.
|
||||||
rm "${aliases_file}.tmp"
|
rm "${aliases_file}.tmp"
|
||||||
fi
|
fi
|
||||||
EOF
|
EOF
|
||||||
|
|
Loading…
Reference in a new issue