From 1f6f036e8a8790925c35c9d81bfe1468a3ab058a Mon Sep 17 00:00:00 2001 From: "Edinaldo P. Silva" Date: Thu, 25 Jun 2015 07:34:06 +0700 Subject: perl/perl-File-Save-Home: Added (Place file safely). Signed-off-by: Willy Sudiarto Raharjo --- perl/perl-File-Save-Home/README | 13 +++ .../perl-File-Save-Home.SlackBuild | 100 +++++++++++++++++++++ perl/perl-File-Save-Home/perl-File-Save-Home.info | 10 +++ perl/perl-File-Save-Home/slack-desc | 19 ++++ 4 files changed, 142 insertions(+) create mode 100644 perl/perl-File-Save-Home/README create mode 100644 perl/perl-File-Save-Home/perl-File-Save-Home.SlackBuild create mode 100644 perl/perl-File-Save-Home/perl-File-Save-Home.info create mode 100644 perl/perl-File-Save-Home/slack-desc diff --git a/perl/perl-File-Save-Home/README b/perl/perl-File-Save-Home/README new file mode 100644 index 0000000000..05771c8dce --- /dev/null +++ b/perl/perl-File-Save-Home/README @@ -0,0 +1,13 @@ +perl-File-Save-Home (Place file safely under user home directory). + +File::Save::Home - Place file safely under user home directory. + +In the course of deploying an application on another user's system, you sometimes need to place +a file in or underneath that user's home directory. Can you do so safely? + +This Perl extension provides several functions which try to determine whether you can, indeed, +safely create directories and files underneath a user's home directory. + +Among other things, if you are placing a file in such a location only temporarily -- say, for +testing purposes -- you can temporarily hide any already existing file with the same name and +restore it to its original name and timestamps when you are done. diff --git a/perl/perl-File-Save-Home/perl-File-Save-Home.SlackBuild b/perl/perl-File-Save-Home/perl-File-Save-Home.SlackBuild new file mode 100644 index 0000000000..c89375c9f4 --- /dev/null +++ b/perl/perl-File-Save-Home/perl-File-Save-Home.SlackBuild @@ -0,0 +1,100 @@ +#!/bin/sh +# +# Slackware build script for perl-File-Save-Home. + +# Copyright 2015 Edinaldo P. Silva, Rio de Janeiro, Brazil. +# All rights reserved. +# +# Redistribution and use of this script, with or without modification, is +# permitted provided that the following conditions are met: +# +# 1. Redistributions of this script must retain the above copyright +# notice, this list of conditions and the following disclaimer. +# +# THIS SOFTWARE IS PROVIDED BY THE AUTHOR "AS IS" AND ANY EXPRESS OR IMPLIED +# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO +# EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, +# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; +# OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, +# WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR +# OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF +# ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + +PRGNAM=perl-File-Save-Home +VERSION=${VERSION:-0.09} +BUILD=${BUILD:-1} +TAG=${TAG:-_SBo} + +SRCNAM="$(printf $PRGNAM | cut -d- -f2-)" + +if [ -z "$ARCH" ]; then + case "$( uname -m )" in + i?86) ARCH=i486 ;; + arm*) ARCH=arm ;; + *) ARCH=$( uname -m ) ;; + esac +fi + +CWD=$(pwd) +TMP=${TMP:-/tmp/SBo} +PKG=$TMP/package-$PRGNAM +OUTPUT=${OUTPUT:-/tmp} + +if [ "$ARCH" = "i486" ]; then + SLKCFLAGS="-O2 -march=i486 -mtune=i686" + LIBDIRSUFFIX="" +elif [ "$ARCH" = "i686" ]; then + SLKCFLAGS="-O2 -march=i686 -mtune=i686" + LIBDIRSUFFIX="" +elif [ "$ARCH" = "x86_64" ]; then + SLKCFLAGS="-O2 -fPIC" + LIBDIRSUFFIX="64" +else + SLKCFLAGS="-O2" + LIBDIRSUFFIX="" +fi + +set -e + +rm -rf $PKG +mkdir -p $TMP $PKG $OUTPUT +cd $TMP +rm -rf $SRCNAM-$VERSION +tar xvf $CWD/$SRCNAM-$VERSION.tar.gz +cd $SRCNAM-$VERSION +chown -R root:root . +find -L . \ + \( -perm 777 -o -perm 775 -o -perm 750 -o -perm 711 -o -perm 555 \ + -o -perm 511 \) -exec chmod 755 {} \; -o \ + \( -perm 666 -o -perm 664 -o -perm 640 -o -perm 600 -o -perm 444 \ + -o -perm 440 -o -perm 400 \) -exec chmod 644 {} \; + +perl Makefile.PL \ + PREFIX=/usr \ + INSTALLDIRS=vendor \ + INSTALLVENDORMAN3DIR=/usr/man/man3 +make +#make test +make install DESTDIR=$PKG + +find $PKG -print0 | xargs -0 file | grep -e "executable" -e "shared object" | grep ELF \ + | cut -f 1 -d : | xargs strip --strip-unneeded 2> /dev/null || true + +find $PKG/usr/man -type f -exec gzip -9 {} \; +for i in $( find $PKG/usr/man -type l ) ; do ln -s $( readlink $i ).gz $i.gz ; rm $i ; done + +find $PKG -name perllocal.pod -o -name ".packlist" -o -name "*.bs" | xargs rm -f || true + +find $PKG -depth -type d -empty -delete || true + +mkdir -p $PKG/usr/doc/$PRGNAM-$VERSION +cp -a Changes LICENSE README $PKG/usr/doc/$PRGNAM-$VERSION +cat $CWD/$PRGNAM.SlackBuild > $PKG/usr/doc/$PRGNAM-$VERSION/$PRGNAM.SlackBuild + +mkdir -p $PKG/install +cat $CWD/slack-desc > $PKG/install/slack-desc + +cd $PKG +/sbin/makepkg -l y -c n $OUTPUT/$PRGNAM-$VERSION-$ARCH-$BUILD$TAG.${PKGTYPE:-tgz} diff --git a/perl/perl-File-Save-Home/perl-File-Save-Home.info b/perl/perl-File-Save-Home/perl-File-Save-Home.info new file mode 100644 index 0000000000..73b4bcfa25 --- /dev/null +++ b/perl/perl-File-Save-Home/perl-File-Save-Home.info @@ -0,0 +1,10 @@ +PRGNAM="perl-File-Save-Home" +VERSION="0.09" +HOMEPAGE="https://metacpan.org/pod/File::Save::Home" +DOWNLOAD="https://cpan.metacpan.org/authors/id/J/JK/JKEENAN/File-Save-Home-0.09.tar.gz" +MD5SUM="1de7094969745ddc1675cc954e21e2f1" +DOWNLOAD_x86_64="" +MD5SUM_x86_64="" +REQUIRES="perl-String-PerlIdentifier" +MAINTAINER="Edinaldo P. Silva" +EMAIL="edps.mundognu@gmail.com" diff --git a/perl/perl-File-Save-Home/slack-desc b/perl/perl-File-Save-Home/slack-desc new file mode 100644 index 0000000000..5ef55265ee --- /dev/null +++ b/perl/perl-File-Save-Home/slack-desc @@ -0,0 +1,19 @@ +# HOW TO EDIT THIS FILE: +# The "handy ruler" below makes it easier to edit a package description. +# Line up the first '|' above the ':' following the base package name, and +# the '|' on the right side marks the last column you can put a character in. +# You must make exactly 11 lines for the formatting to be correct. It's also +# customary to leave one space after the ':' except on otherwise blank lines. + + |-----handy-ruler------------------------------------------------------| +perl-File-Save-Home: perl-File-Save-Home (Place file safely under user home directory). +perl-File-Save-Home: +perl-File-Save-Home: File::Save::Home - Place file safely under user home directory. +perl-File-Save-Home: +perl-File-Save-Home: Home page: https://metacpan.org/pod/File::Save::Home +perl-File-Save-Home: +perl-File-Save-Home: +perl-File-Save-Home: +perl-File-Save-Home: +perl-File-Save-Home: +perl-File-Save-Home: -- cgit v1.2.3