From 09e8113d7c05157cd54e16f820f6c7ce471d53b7 Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Wed, 8 Apr 2015 01:09:31 -0400 Subject: Add some more scripts --- README | 7 +- mkslackdesc | 72 +++++++++++++++++++++ mkslackinfo | 211 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ sbrename | 73 +++++++++++++++++++++ 4 files changed, 361 insertions(+), 2 deletions(-) create mode 100755 mkslackdesc create mode 100755 mkslackinfo create mode 100755 sbrename diff --git a/README b/README index 647fee4..0e1c7bf 100644 --- a/README +++ b/README @@ -1,15 +1,18 @@ sbostuff - Miscellaneous tools for working with SlackBuild.org (SBo) build scripts. Included tools: +mkslackdesc - make a valid slack-desc from a README +mkslackinfo - generate .info and template SlackBuild sbodeps - generate a queue file based on .info file contents sbodl - download the sources (from the .info file) sbofixinfo - try to fix malformed .info files sbolint - examine a SBo tarball or dir, look for common errors sbosearch - search local SBo repo sbosubmit - submit to SBo, from command line +sbrename - rename a build -Each script supports a --help option. Further documentation will be -in the form of comments in the scripts. +Most scripts support a --help option. Further documentation will be in +the form of comments in the scripts. Some of these are shell scripts, some are perl. Comments are hopefully in English :) diff --git a/mkslackdesc b/mkslackdesc new file mode 100755 index 0000000..4795a74 --- /dev/null +++ b/mkslackdesc @@ -0,0 +1,72 @@ +#!/usr/bin/perl -w + +# mkslackdesc + +# Convert a README into a valid slack-desc. + +# Usage: mkslackdesc [input] + +# If input not given, reads the file README in the current dir. +# To read from standard input, give - as the input file. + +# Output: a slack-desc, including the "how to edit" comments +# and the "handy ruler" line. If the input text won't fit into +# 11 72-characters lines, the output will not be a valid slack-desc, +# and you'll get a warning to that effect. + +# Output is to slack-desc in the current directory, and is also echoed +# to standard output. + +if(-e "slack-desc") { + die "slack-desc already exists in current directory!\n"; +} + +chomp ($pkg = `pwd`); +$pkg =~ s,.*/,,; + +if(!@ARGV) { + push @ARGV, "README"; +} + +open my $f, ">slack-desc" or die $!; +print "Writing to slack-desc:\n\n"; + +$ruler = <) { + --$lines; + chomp; + my $outline = "$pkg:"; + $outline .= " $_" if $_; + $outline .= "\n"; + print $outline; + print $f $outline; +} + +close $pipe; + +if($lines < 0) { + warn "slack-desc is too long (should be 11 lines), output not valid\n"; +} else { + print "$pkg:\n" for 1..$lines; + print $f "$pkg:\n" for 1..$lines; +} + +close $f; diff --git a/mkslackinfo b/mkslackinfo new file mode 100755 index 0000000..db11244 --- /dev/null +++ b/mkslackinfo @@ -0,0 +1,211 @@ +#!/usr/bin/perl -w + +# Create a SB.o compliant .info file +# (and a .SlackBuild from a template, if one doesn't already exist, +# and a slack-desc if a README exists) + +# Fill in your name and email address here: +$name = 'B. Watson'; +$email = 'yalhcru@gmail.com'; + +use LWP::Simple; +use Digest::MD5 'md5_hex'; + +sub usage { + die "usage: mkslackinfo url [homepage] [version]\n"; +} + +$url = shift || &usage; + +# Take package name from the current dir +chomp ($package = `pwd`); +$package =~ s,.*/,,; + +# Take filename from last part of URL +($file = $url) =~ s,.*/,,; + +# Generate appropriate extract command +if($file =~ /\.zip$/i) { + $extract = "unzip \$CWD/\$PRGNAM-\$VERSION.zip"; +} elsif($file =~ /\.rar$/i) { + $extract = "unrar x \$CWD/\$PRGNAM-\$VERSION.rar"; +} elsif($file =~ /\.7z$/i) { + $extract = "7za x \$CWD/\$PRGNAM-\$VERSION.rar"; +} elsif($file =~ /(\.tar(?:$|\..*)|\.t[bxg]z)/i) { + $extract = "tar xvf \$CWD/\$PRGNAM-\$VERSION$1"; +} + +$homepage = shift; +if(!$homepage) { + if($url =~ m{http://downloads.(?:sourceforge|sf).net/([^/]+)/}) { + $homepage = "http://sourceforge.net/projects/$1/"; + } elsif($url =~ m,((?:ht|f)tp://[^/]+/),) { + $homepage = $1; + } else { + die "Can't figure out homepage\n"; + } + + warn "Assuming homepage is $homepage\n"; +} + +$version = shift || 0; +if(!$version) { + # Try to figure out the version number. The regex is fairly dumb. + if($file =~ /-(\d[\d._]+(?:[a-z]+)?)\.(?:tar|t[gzb]z|zip|rar|7z)/) { + $version = $1; + warn "Version appears to be $version\n"; + } else { + die "Can't figure out version number\n"; + } +} + +if(not -e "$package.SlackBuild") { + warn "$package.SlackBuild does not exist, creating from template\n"; + open my $build, ">$package.SlackBuild" or die $!; + while() { + s/__NAME__/$name/g; + s/__EMAIL__/$email/g; + s/__PRGNAM__/$package/g; + s/__VERSION__/$version/g; + s/__EXTRACT__/$extract/g; + print $build "$_"; + } + close $build; + chmod 0755, "$package.SlackBuild"; +} + +if((-e "README") && (! -e "slack-desc")) { + warn "slack-desc does not exist, creating from existing README\n"; + system("mkslackdesc"); +} + +print STDERR "Downloading $url..."; +$content = get($url); +if($content) { + $md5 = md5_hex($content); + print STDERR "OK\nWriting $package.info\n"; +} else { + warn "Can't download $url with LWP::Simple, MD5SUM will be wrong in .info\n"; + $md5 = "FIXME"; +} + +open $f, ">$package.info" or die $!; +$content = < /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 + +rm -f $PKG/usr/info/dir +gzip -9 $PKG/usr/info/*.info* + +find $PKG -name perllocal.pod \ + -o -name ".packlist" \ + -o -name "*.bs" \ + | xargs rm -f + +mkdir -p $PKG/usr/doc/$PRGNAM-$VERSION +cp -a \ + $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 +cat $CWD/doinst.sh > $PKG/install/doinst.sh + +cd $PKG +/sbin/makepkg -l y -c n $OUTPUT/$PRGNAM-$VERSION-$ARCH-$BUILD$TAG.${PKGTYPE:-tgz} diff --git a/sbrename b/sbrename new file mode 100755 index 0000000..9031674 --- /dev/null +++ b/sbrename @@ -0,0 +1,73 @@ +#!/bin/bash + +NAME=$( echo "$0" | sed 's,.*/,,' ) + +# Trim trailing slash from SRC and DEST, if present +SRC="$( echo "$1" | sed 's,/$,,' )" +DEST="$( echo "$2" | sed 's,/$,,' )" + +if [ ! -d "$SRC" ]; then + if [ -e "$SRC" ]; then + echo "$NAME: $SRC is not a directory" + else + echo "$NAME: $SRC not found or can't access" + fi + SRC="" +fi + +if [ "$SRC" = "" -o "$DEST" = "" ]; then + cat < "$DEST.SlackBuild" + rm -f "$SRC.SlackBuild" + chmod 755 "$DEST.SlackBuild" +fi + +if [ -e slack-desc ]; then + sed -i "s,^$SRC,$DEST," slack-desc + newindent="$(echo $DEST|sed 's,., ,g')" + sed -i "s,^ *\(|--*handy.*\),$newindent\1," slack-desc +fi + +if [ -e README ]; then + sed -i "s,$SRC,$DEST,g" README +fi + +if [ -e "$SRC.info" ]; then + sed "/^PRGNAM=/s,$SRC,$DEST," "$SRC.info" > "$DEST.info" + rm -f "$SRC.info" +fi -- cgit v1.2.3