view paste/paste.30457 @ 12001:00218840bf5c draft

<wib_jonas> `` perl -pi -e \'s/^(url\\(1hackeso\\) -) .*/$1 print URL for a file in the hackenv hg repository and web access of the repository/\' share/whatis
author HackEso <hackeso@esolangs.org>
date Mon, 04 Nov 2019 12:21:00 +0000
parents 42713ff67415
children
line wrap: on
line source

#!/bin/bash
if [ ! "$1" ]
then
    PASTE=-
else
    PASTE="$1"
fi

PASTENUM="$RANDOM"

mkdir -p $HACKENV/paste

url paste/paste."$PASTENUM"
cat "$PASTE" > $HACKENV/paste/paste."$PASTENUM"