perl-5.22
|
Last change
on this file since 21d4867 was
e15a700,
checked in by Edwin Eefting <edwin@datux.nl>, 9 years ago
|
|
git stuff
|
-
Property mode set to
100755
|
|
File size:
879 bytes
|
| Line | |
|---|
| 1 | #!/bin/bash |
|---|
| 2 | #(C)DatuX 2005 - all rights reserved |
|---|
| 3 | PKG=$1 |
|---|
| 4 | if [ ! -f "$1" ]; then |
|---|
| 5 | echo "Package $PKG not found!" >&2 |
|---|
| 6 | exit 1 |
|---|
| 7 | elif echo "$PKG" | egrep '.tgz$' &>/dev/null; then |
|---|
| 8 | #is al een .tgz, gewoon doorgeven |
|---|
| 9 | echo $PKG |
|---|
| 10 | exit 0 |
|---|
| 11 | else |
|---|
| 12 | DIR=`dirname $PKG` || exit 1 |
|---|
| 13 | BASE=`basename $PKG` || exit 1 |
|---|
| 14 | |
|---|
| 15 | #get the info needed for the package name |
|---|
| 16 | NAME=`echo $BASE|sed 's/\.pkg$//'` || exit 1 |
|---|
| 17 | VER=`cat $DIR/$NAME.version` || exit 1 |
|---|
| 18 | ARCH=`cat $DIR/$NAME.arch|sed s/-/_/g` || exit 1 |
|---|
| 19 | BUILD=`cat $DIR/$NAME.build` || exit 1 |
|---|
| 20 | |
|---|
| 21 | if [ "`git status --porcelain $DIR`" != "" ]; then |
|---|
| 22 | BUILD="$BUILD""mod" |
|---|
| 23 | fi |
|---|
| 24 | |
|---|
| 25 | |
|---|
| 26 | #bevat 1 van de packagenaam onderdelen illegale tekens? |
|---|
| 27 | if echo "$NAME$VER$ARCH$BUILD" | grep '[^a-zA-Z0-9._+]' &>/dev/null; then |
|---|
| 28 | echo "FOUT: Package naam '$NAME-$VER-$ARCH-$BUILD' bevat illegale tekens!" >&2 |
|---|
| 29 | exit 1 |
|---|
| 30 | fi |
|---|
| 31 | |
|---|
| 32 | echo "$NAME-$VER-$ARCH-$BUILD.tgz" |
|---|
| 33 | fi |
|---|
| 34 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.