summaryrefslogtreecommitdiff
path: root/actions.sh
diff options
context:
space:
mode:
authorJannis M. Hoffmann <jannis@fehcom.de>2023-03-02 11:57:38 +0100
committerJannis M. Hoffmann <jannis@fehcom.de>2023-03-02 11:57:38 +0100
commit8b8f31f450e5bb9d36edf5e32cf68576da4a4ba0 (patch)
treeb05a8aeaeecfd1c882761e531c1b15f9b1e50d7f /actions.sh
parent33c0d7957882883f88e3ef1affe8203f2bbc4dde (diff)
add more extractors
Diffstat (limited to 'actions.sh')
-rwxr-xr-xactions.sh101
1 files changed, 0 insertions, 101 deletions
diff --git a/actions.sh b/actions.sh
deleted file mode 100755
index 2c37cc2..0000000
--- a/actions.sh
+++ /dev/null
@@ -1,101 +0,0 @@
-#!/usr/bin/env sh
-
-set -euC
-
-help_text=
-
-help_text="$help_text install\t[]\t\n"
-install () {
- perl Makefile.PL
- make
- make test
- make install
-}
-
-help_text="$help_text dist\t[]\tcreate a source distribution\n"
-dist () {
- perl Makefile.PL
- make
- make test
- make dist
-}
-
-help_text="$help_text run_tests\t[arg]\tpasses arg to the 'prove' tool\n"
-run_tests () {
- eval "prove -l ${1-} t/"
-}
-
-help_text="$help_text start_dev\t[]\tstarts a hot reloading dev server\n"
-start_dev () {
- morbo script/jwebmail
-}
-
-help_text="$help_text logrotate\t[mode]\tarchives the current log file\n"
-logrotate () {
- mode=${1:-development}
- mv -i "log/$mode.log" "log/${mode}_$(date --iso-8601=minutes).log"
-}
-
-help_text="$help_text linelength\t[files]\tchecks documentation files for overly long lines\n"
-linelength () {
- files=${1:-'README.md CHANGES.md LICENSE'}
- for file in $files
- do
- fold -s -w 85 "$file" | diff "$file" -
- done
-}
-
-help_text="$help_text follow\t[mode]\tfollows the current log file\n"
-follow () {
- mode=${1:-development}
- tail -f "log/$mode.log"
-}
-
-help_text="$help_text check_manifest\t[]\tchecks if files in the MANIFEST actually exist\n"
-check_manifest () {
- perl -nE 'chomp; say if $_ && !-e' MANIFEST
-}
-
-help_text="$help_text list_deps\t[module]\tlists all non core dependencies of a module (default=JWebmail)\n"
-list_deps () {
- module=${1:-JWebmail}
- core="$(corelist -v v5.34.1 | awk '{ print $1 }')"
- deps="$(perl -wE "use lib 'lib'; use Module::Load::Conditional 'requires'; @res = requires '$module'; \$\" = qq(\n); say \$res[0] ? qq(@res) : ''")"
-
- for dep in $deps
- do
- if ! echo "$core" | grep -qxF "$dep"
- then echo "$dep"
- fi
- done
-}
-
-help_text="$help_text list_translations\t[raw]\tlists translatable snipptes on a best effort base (incomplete!!)\n"
-list_translations () {
- raw=${1-}
- if [ "$raw" ]
- then
- find lib -name '*.pm' -exec grep '\->l(' '{}' '+'
- find templates -name '*.html.ep' -exec grep "l[ (][\"']" '{}' '+'
- else
- p1="$(find lib -name '*.pm' -exec grep '\->l(' '{}' '+' | sed 's/^\(\S*\):.*->l(\([^)]*\)).*$/\1: \2/')"
- p2="$(find templates -name '*.html.ep' -exec grep "l[ (][\"']" '{}' '+' | sed "s/^\\(\\S*\\):.*l[ (][\"']\\([^\"']*\\)[\"'].*$/\\1: '\\2'/")"
- echo "$(echo "$p1"; echo "$p2")" | sort | uniq
- fi
-}
-
-help () {
- echo "The following actions are available:"
- echo
- printf "$help_text" | expand -t 22,33
- echo
-}
-
-if [ $# -gt 0 ]
-then cmd=$1; shift
-else cmd=help
-fi
-if [ "$(command -v "$cmd")" = "$cmd" ]
-then eval "$cmd" "$@"
-else echo "unkown commad '$cmd'"; exit 1
-fi