view bin/? @ 6993:82ef167b53d2

<b_jonas> perl -eopen$O,">",($c="bin/listlist");print$O qq{#!/bin/sh\\nset -e\\nexport LANG=C\\ncd /hackenv/bin;exec ls -dF *[lL]ist*\\n};close$O;chmod $c,0755;
author HackBot
date Wed, 24 Feb 2016 12:32:42 +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