From 24493e32d8548110c514db9bc09efb5aba276ca5 Mon Sep 17 00:00:00 2001 From: Slack Coder Date: Thu, 28 Nov 2024 09:59:36 -0500 Subject: Set To Do branch --- tools/cover.pl | 54 ------------------ tools/htmlgen.sh | 69 ----------------------- tools/masstest_sbo.sh | 75 ------------------------- tools/package_up.sh | 67 ----------------------- tools/update_man_pages.sh | 137 ---------------------------------------------- tools/update_versions.sh | 67 ----------------------- 6 files changed, 469 deletions(-) delete mode 100755 tools/cover.pl delete mode 100755 tools/htmlgen.sh delete mode 100755 tools/masstest_sbo.sh delete mode 100755 tools/package_up.sh delete mode 100755 tools/update_man_pages.sh delete mode 100755 tools/update_versions.sh (limited to 'tools') diff --git a/tools/cover.pl b/tools/cover.pl deleted file mode 100755 index fcd813f..0000000 --- a/tools/cover.pl +++ /dev/null @@ -1,54 +0,0 @@ -#!/usr/bin/env perl - -use strict; -use warnings; -use feature 'say'; - -use AWS::S3; -use Path::Tiny; - -if (!@ARGV) { - die "Need to specify a build number to check coverage for.\n"; -} - -my $build = shift; -my $base = qr!^[^/]+/sbotools/\Q$build\E/!; - -if ( - ! length($ENV{S3_ID}) or - ! length($ENV{S3_KEY}) or - ! length($ENV{S3_BUCKET})) { - die "S3_ID and S3_KEY need to be defined in the environment.\n"; -} - -print "Connecting to S3...\n"; - -my $s3 = AWS::S3->new( - access_key_id => $ENV{S3_ID}, - secret_access_key => $ENV{S3_KEY}, -); - -my $bucket = $s3->bucket($ENV{S3_BUCKET}); - -my $f_iter = $bucket->files( - page_size => 100, - page_number => 1, - pattern => qr!$base\Q$build.11\E/!, -); - -my $num = 0; -while (my @files = $f_iter->next_page) { - for my $file (@files) { - $num++; - print $file->key, "\n"; - - my $local_fname = $file->key =~ s!$base!cover_db/!r; - my $path = path($local_fname)->absolute(); - - $path->touchpath->spew_raw(${ $file->contents() }); - } -} - -if ($num == 0) { - die "No files found for build number $build.\n"; -} diff --git a/tools/htmlgen.sh b/tools/htmlgen.sh deleted file mode 100755 index 3953490..0000000 --- a/tools/htmlgen.sh +++ /dev/null @@ -1,69 +0,0 @@ -#!/usr/bin/env bash - -if [ "$1" == "" -o "$1" == "-h" ]; then - echo "usage: $(basename $0) destdir" - exit 1 -fi - -DESTDIR=$1 -PACKAGE="sbotools" -VERSION=$(grep '^our $VERSION' SBO-Lib/lib/SBO/Lib.pm | grep -Eo '[0-9]+(\.[0-9RC]+){0,1}') - - -SBO_DIR=`pwd` -TMP_DIR=$(mktemp -d "/tmp/$PACKAGE.XXXXXXXXXX") -HTML_DIR="$TMP_DIR/html" -mkdir -p $DESTDIR $HTML_DIR - -for i in $(ls $SBO_DIR | grep '^man'); do - mkdir -p $HTML_DIR/$i - ( cd $SBO_DIR/$i - for j in $(ls); do - man2html $j > $j.html - mv $j.html $HTML_DIR/$i/ - done - ) - ( cd $HTML_DIR/$i - sed -i 's/^Content-type.*$//g' * - sed -i 's/^//g' * - sed -i 's///g' * - sed -i 's#\[dot\]_org#[dot]_org#g' * - sed -i 's#\[dot\]_com#[dot]_com#g' * - sed -i 's#man2html#man2html#g' * - sed -i 's/^$//g' * - sed -i 's/^.*$//g' * - sed -i 's#^$##g' * - sed -i 's###g' * - sed -i 's###g' * - for k in $(ls); do - mv $k $k.tmp - cat $k.tmp | awk "\$0 !~ /^$/ { print > \"$k\"; }" - rm $k.tmp - mv $k .. - done - ) - rmdir $HTML_DIR/$i -done - -template() { - SRC=$1 - TEMPLATE="$DESTDIR/template.html" - NAME=${SRC//.?.html/} - echo "Writing $DESTDIR/$SRC ($NAME)" - perl -0777 -pE 's/\@TITLE\@/'$NAME'/g; s/\@MAN\@/<>/e' $TEMPLATE $SRC > $DESTDIR/$SRC -} - -(cd $HTML_DIR - for src in $(ls) - do - template $src - done -) - -echo "All done." -exit 0; diff --git a/tools/masstest_sbo.sh b/tools/masstest_sbo.sh deleted file mode 100755 index a544e12..0000000 --- a/tools/masstest_sbo.sh +++ /dev/null @@ -1,75 +0,0 @@ -#!/usr/bin/bash - -# set DISTCLEAN TRUE to preserve space -sboconfig -d TRUE -# clear out work directories and distfiles -sboclean -dw - -SBOS=$(find /usr/sbo -type f -iname \*.info | sed -r 's|.*/([^/]+)\.info$|\1|g'); - -TLOG=~/tmp.log -ILOG=~/install.log -RLOG=~/remove.log - -# zero out logs in case they have content from previous run -:> $ILOG -:> $RLOG - -for i in build md5sum wget noinfo nomulti else; do - :> ~/$i.fail.log -done - -function build_things() { - if [ ! -z $1 ]; then - . /usr/sbo/*/$1/$1.info - for i in $REQUIRES; do - if [[ "$i" != "%README%" ]]; then - build_things $i - fi - done - echo "=============" > $TLOG - echo "sboinstall -r $1" >> $TLOG - sboinstall -r $1 >> $TLOG 2>&1 - case "$?" in - "0") OLOG="" ;; - "3") OLOG=~/build.fail.log ;; - "4") OLOG=~/md5sum.fail.log ;; - "5") OLOG=~/wget.fail.log ;; - "7") OLOG=~/noinfo.fail.log ;; - "9") OLOG=~/nomulti.fail.log ;; - *) OLOG=~/else.fail.log ;; - esac - if [[ "$OLOG" != "" ]]; then - if ! grep -q "^$1 added to install queue.$" $OLOG; then - echo "" >> $OLOG - cat $TLOG >> $OLOG - fi - fi - echo "" >> $ILOG - cat $TLOG >> $ILOG - :> $TLOG - else - echo "build_things() requires an argument." - exit 1 - fi -} - -function remove_things() { - if [ ! -z $1 ]; then - echo "=============" > $TLOG - echo "sboremove --nointeractive $1" >> $TLOG - sboremove --nointeractive $1 >> $TLOG 2>&1 - echo "" >> $RLOG - cat $TLOG >> $RLOG - :> $TLOG - fi -} - -for i in $SBOS; do - echo $i - build_things $i - remove_things $i - removepkg $(ls /var/log/packages|grep SBo) > /dev/null 2>&1 -done - -exit 0 diff --git a/tools/package_up.sh b/tools/package_up.sh deleted file mode 100755 index d9acf14..0000000 --- a/tools/package_up.sh +++ /dev/null @@ -1,67 +0,0 @@ -#!/bin/bash - -PACKAGE="sbotools2" -VERSION=$(grep '^our $VERSION' SBO-Lib/lib/SBO/Lib.pm | grep -Eo '[0-9]+(\.[0-9RC@gita-f]+){0,2}') -FILENAME=$PACKAGE-$VERSION.tar.gz - -echo "Making package for $PACKAGE-$VERSION." \ - "Press enter to continue or Ctrl+C to abort." -read - -PKG_HOME=`pwd` - -cleanup() { - if [[ "$1" != "" ]]; then - rm -rf $1 - fi -} - -update_info() { - FILE=$1 - MD5=$(md5sum $PKG_HOME/$FILENAME | cut -d' ' -f1) - sed -i -e "s/@FILENAME@/$FILENAME/" $FILE - sed -i -e "s/@VERSION@/$VERSION/" $FILE - sed -i -e "s/@MD5@/$MD5/" $FILE -} - -TMP_DIR=$(mktemp -d /tmp/$PACKAGE.XXXXXXXXXXXX) -PKG_DIR="$TMP_DIR/$PACKAGE-$VERSION" -SBO_DIR="$TMP_DIR/$PACKAGE" -mkdir "$PKG_DIR" -mkdir "$SBO_DIR" - -find "$PKG_HOME" -maxdepth 1 | while read f -do - cp -R "$f" "$PKG_DIR" -done - -for remove in t tools README.md TODO; do - if [[ -e $PKG_DIR/$remove ]]; then - rm -rf $PKG_DIR/$remove - fi -done -if [[ -d $PKG_DIR/slackbuild/$PACKAGE ]]; then - if [[ -f $PKG_DIR/slackbuild/$PACKAGE/README ]]; then - cp $PKG_DIR/slackbuild/$PACKAGE/README $PKG_DIR/ - fi - mv $PKG_DIR/slackbuild/$PACKAGE/* $SBO_DIR - rm -rf $PKG_DIR/slackbuild -fi - - -find "$TMP_DIR" -type f -name \*~ -exec rm {} \; - -(cd "$TMP_DIR" - tar cvzf $FILENAME $PACKAGE-$VERSION/ - cp $FILENAME $PKG_HOME -) -(cd "$TMP_DIR" - update_info "$PACKAGE/$PACKAGE.info" - update_info "$PACKAGE/$PACKAGE.SlackBuild" - grep VERSION "$PACKAGE/$PACKAGE.SlackBuild" - tar cjf $PACKAGE.tar.bz2 $PACKAGE/ -) -mv "$TMP_DIR/$PACKAGE.tar.bz2" "$PKG_HOME" - -cleanup "$TMP_DIR" -exit 0 diff --git a/tools/update_man_pages.sh b/tools/update_man_pages.sh deleted file mode 100755 index f59d611..0000000 --- a/tools/update_man_pages.sh +++ /dev/null @@ -1,137 +0,0 @@ -#!/bin/sh - -usage_exit() { - echo "Usage: $(basename $0) (-d) (-g)" - exit 1 -} - -if [[ "$1" == "-h" ]]; then - usage_exit -fi - -if [[ "$1" == "-?" ]]; then - usage_exit -fi - -if [[ "$1" == "-d" ]]; then - date=true - shift -fi - -if [[ "$1" == "-g" ]]; then - git=true - shift -fi - -version=$(grep '^our $VERSION' SBO-Lib/lib/SBO/Lib.pm | grep -Eo '[0-9]+(\.[0-9RC@gita-f]+){0,1}') - -if ! [[ -d "./man1" ]]; then - echo "you do not seem to be at the right place to run this." - echo "the man{1,5}/ directories should be under ." - exit 1 -fi - -old_version=$(head -1 man1/sbocheck.1 | rev | cut -d' ' -f2 | rev \ - | sed 's/"//g') - -tmpfile=$(mktemp /tmp/XXXXXXXXX) - -sed_file() { - if [[ "$1" == "" || "$2" == "" ]]; then - echo "sed_file(): two arguments required." - exit 1 - fi - - file="$1" - sed_cmd="$2" - - cat $file | sed "$sed_cmd" > $tmpfile - if [[ "$?" == "0" ]]; then - mv $tmpfile $file - else - return 1 - fi - - return 0 -} - -for i in $(ls man1); do - sed_file man1/$i "s/$old_version/$version/g" -done - -for i in $(ls man5); do - sed_file man5/$i "s/$old_version/$version/g" -done - -if [[ "$?" == "0" ]]; then - echo "version updated." -fi - -update_date() { - if ! which ddate >/dev/null 2>&1; then - echo "I can't find ddate." - return 1 - fi - - old_date=$(head -1 man1/sbocheck.1 | cut -d' ' -f4- | rev \ - | cut -d' ' -f4- | rev | sed 's/"//g') - - new_date=$(ddate +"%{%A, %B %d%}, %Y YOLD%N - %H") - - for i in man1/*; do - sed_file $i "s/$old_date/$new_date/g" - done - - for i in man5/*; do - sed_file $i "s/$old_date/$new_date/g" - done - - if [[ "$?" == "0" ]]; then - echo "date updated." - else - return 1 - fi - - return 0 -} - -update_git() { - if ! which git >/dev/null 2>&1; then - echo "I can't find git." - return 1 - fi - - if [[ "$date" == "true" ]]; then - extra=" and dates" - fi - - git add man1/* man5/* - git commit -m "updated versions$extra for man pages" - git push - - if [[ "$?" == "0" ]]; then - echo "git updated." - else - return 1 - fi - - return 0 -} - -date_return=0 -if [[ "$date" == "true" ]]; then - update_date - date_return=$? -fi - -git_return=0 -if [[ "$git" == "true" ]]; then - update_git - git_return=$? -fi - -if [[ "$date_return" != "0" || "$git_return" != "0" ]]; then - exit 1 -fi - -exit 0 diff --git a/tools/update_versions.sh b/tools/update_versions.sh deleted file mode 100755 index 09a0043..0000000 --- a/tools/update_versions.sh +++ /dev/null @@ -1,67 +0,0 @@ -#!/bin/sh - -usage_exit() { - echo "Usage: $(basename $0) (-g) version" - exit 1 -} - -if [[ "$1" == "" ]]; then - usage_exit -fi - -if [[ "$1" == "-?" ]]; then - usage_exit -fi - -if [[ "$1" == "-h" ]]; then - usage_exit -fi - -if [[ "$1" == "-g" ]]; then - git=true - shift -fi - -if [[ "$1" == "" ]]; then - usage_exit -fi - -version="$1" - -update_perl=" - SBO-Lib/lib/SBO/Lib.pm - SBO-Lib/lib/SBO/Lib/Util.pm - SBO-Lib/lib/SBO/Lib/Tree.pm - SBO-Lib/lib/SBO/Lib/Repo.pm - SBO-Lib/lib/SBO/Lib/Readme.pm - SBO-Lib/lib/SBO/Lib/Pkgs.pm - SBO-Lib/lib/SBO/Lib/Info.pm - SBO-Lib/lib/SBO/Lib/Download.pm - SBO-Lib/lib/SBO/Lib/Build.pm - SBO-Lib/lib/SBO/App.pm - SBO-Lib/lib/SBO/App/Remove.pm - SBO-Lib/lib/SBO/App/Snap.pm -" -update_other=" - SBO-Lib/README - slackbuild/sbotools2/sbotools2.SlackBuild - slackbuild/sbotools2/sbotools2.info -" - -old_version=$(grep '^our $VERSION' SBO-Lib/lib/SBO/Lib.pm | grep -Eo '[0-9]+(\.[0-9RC@gita-f]+){0,1}') - -tmpfile=$(mktemp /tmp/XXXXXXXXXX) - -for i in $update_other; do - cat $i | sed "s/$old_version/$version/g" > $tmpfile - if [[ "$?" == "0" ]]; then - mv $tmpfile $i - fi -done - -for i in $update_perl; do - cat $i | sed "s/'$old_version'/'$version'/g" > $tmpfile - if [[ "$?" == "0" ]]; then - mv $tmpfile $i - fi -done -- cgit v1.2.3