Mercurial > repo

view bin/paste @ 11297:ac12b31f8f5d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<wob_jonas> perl -eopen$i,"<",($f="wisdom/aristotle");$_=<$i>; s/find fifth/find the fifth/ or die; if (1) { open$o,">",$f; print$o $_ or die; } print substr$_,0;
author HackBot
date Mon, 01 Jan 2018 18:03:15 +0000
parents 916b38c83c3b
children 0d78afb61c51
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/tmp/paste

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