diff options
Diffstat (limited to 'actions.sh')
-rwxr-xr-x | actions.sh | 101 |
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 |