summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2016-06-13 11:57:38 +0200
committerErich Eckner <git@eckner.net>2016-06-13 11:57:38 +0200
commit318c9e43f4e943ece3b7f9bbc65ddbe6f4c97811 (patch)
tree559dfaa2cffdb3f6f385ba80ef3e7ea69aae9c75
parentc2f10ea726344378302651cc46d35e5aea1b72a5 (diff)
downloadarchlinuxewe-318c9e43f4e943ece3b7f9bbc65ddbe6f4c97811.tar.xz
neuesPerlPaket verwendet jetzt auch perlFunktionen
-rwxr-xr-xneuesPerlPaket91
1 files changed, 4 insertions, 87 deletions
diff --git a/neuesPerlPaket b/neuesPerlPaket
index 8839d9cba..b57ff1cde 100755
--- a/neuesPerlPaket
+++ b/neuesPerlPaket
@@ -6,28 +6,6 @@ then
exit 1
fi
-substituiere() {
- dep="$1"
- name=${dep%>=*}
- dep=${dep#${name}}
- erg="$(
- cat "$(dirname "${me}")/perlSubstitutionen" | \
- sed 's|#.*$||' | \
- grep "\s${name}\(\s\|\$\)" | \
- sed "s|^\([^:]\+\):.*\$|perl-\1|" | \
- sed "s|^:.*\$|perl|"
- )"
- [ -z "${erg}" ] && erg="perl-${name}"
- if [ "${erg}" == "perl" ] && echo "${dep}" | grep -q "^[^.]*\.\(0[[:digit:]]\{2\}\)\{2\}"
- then
- dep="$(
- echo "${dep}" | \
- sed "s@^\([^.]*\....\)0\+@\1.@; s@^\([^.]*\.\)0\+@\1@"
- )"
- fi
- erg="${erg}${dep}"
-}
-
cpanName="$(echo "$1" | sed 's|::|-|g')"
url="https://metacpan.org/release/${cpanName}"
pkgname="perl-${cpanName,,}"
@@ -63,6 +41,8 @@ then
exit 1
fi
+. perlFunktionen
+
seitenInhalt="$(curl -o - "${url}" 2> /dev/null)"
pkgver="$(
@@ -102,71 +82,8 @@ sha512sum="$(
echo "META.yml lesen ..."
-meta="$(
- tar -Oxzf "${cpanName}-${pkgver}.tar.gz" "${cpanName}-${pkgver}/META.yml" | \
- grep -v "^ file:" | \
- grep -v "^ version:" | \
- sed '
- :begin;
- $!N;
- s@^\(\S.*\)\n\s\+\(\S.*\)$@\1 \2@;
- tbegin;
- P;
- D
- ' | \
- sed "/^provides: /s@:\(\s\|\$\)@: '0'\1@g" | \
- sed "s|^provides: '0' |provides: |"
-)"
-
-echo "... fertig, verarbeiten ..."
-
-declare -A metaInfos
-declare -A metaRegexe
-declare -A metaSubst
-
-metaRegexe["makedepends"]="\(build\|configure\)_requires"
-metaSubst["makedepends"]=true
-metaRegexe["depends"]="requires"
-metaSubst["depends"]=true
-metaRegexe["optdepends"]="recommends"
-metaSubst["optdepends"]=true
-metaRegexe["conflicts"]="conflicts"
-metaSubst["conflicts"]=true
-metaRegexe["provides"]="provides"
-metaSubst["provides"]=false
-
-for sucheWonach in "${!metaRegexe[@]}"
-do
- metaInfos["${sucheWonach}"]=""
- for was in $(
- echo "${meta}" | \
- grep "^${metaRegexe["${sucheWonach}"]}:" | \
- sed "s@^${metaRegexe["${sucheWonach}"]}:\s*@@" | \
- sed "s@\(\S\+\):\s\+'\?\([0-9.]*\)'\?\(\s\|\$\)@\L\1>=\L\2\n@g" | \
- sed "s@\(\S\+\):\s\+'<\s*\([0-9.]\+\)'\(\s\|\$\)@\L\1<\L\2\n@g" | \
- sed "s@::@-@g" | \
- sed "s|>=0\$||" | \
- grep -v "^\({}\)\?$"
- )
- do
- if ${metaSubst["${sucheWonach}"]}
- then
- substituiere "${was}"
- else
- erg="perl-${was}"
- fi
- [[ "${erg}" == "perl-%skip"* ]] ||
- metaInfos["${sucheWonach}"]="${metaInfos["${sucheWonach}"]} '${erg}'"
- done
- metaInfos["${sucheWonach}"]="$(
- echo "${metaInfos["${sucheWonach}"]}" | \
- tr ' ' '\n' | \
- sort -u | \
- grep -v '^\s*$'
- )"
-done
-
-echo "... fertig"
+_distdir="${cpanName}-${pkgver}"
+versteheMetaYml
(
echo '# Maintainer: Erich Eckner <arch at eckner dot net>'