view bin/? @ 8195:15385eb12db2

<oerjan> mkx bin/rnooodl//perl -pe \'s/(.)\\1\\1/"@{[$1 x(3+rand 7)]}"/ge\'
author HackBot
date Sun, 29 May 2016 00:46:18 +0000
parents f72b8824feb4
children
line wrap: on
line source

#!/bin/bash
topic=$(echo "$1" | lowercase | sed "s/noo\+dl/nooodl/;s/ *$//")
topic1=$(echo "$topic" | sed "s/s$//")
cd wisdom
if [ \( "_$topic1"_ = "_ngevd"_ \) -a \( -e ngevd \) ];
    then cat /dev/urandom;
    elif [ -e "$topic" ];
    then cat "$topic" | rnooodl;
    elif [ -e "$topic1" ];
    then cat "$topic1" | rnooodl;
    else echo "$1? ¯\(°​_o)/¯"; exit 1;
fi