view bin/paste @ 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 56dcce63901b
children 916b38c83c3b
line wrap: on
line source

#!/bin/bash
if [ "$1" ] && url "$1" 2>/dev/null # Save making a file when it already exists.
then
    true
else
    PASTENUM="$RANDOM"

    mkdir -p $HACKENV/paste

    url paste/paste."$PASTENUM"
    cat -- "${1--}" > $HACKENV/paste/paste."$PASTENUM"
fi