view bin/url @ 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 a33356304892
children
line wrap: on
line source

#!/usr/bin/env python
import sys, os.path, re, urllib
if len(sys.argv) <= 1:
    print "http://codu.org/projects/hackbot/fshg/"
else:
    f = os.path.abspath(sys.argv[1])
    f = re.sub(r"^/+hackenv/", "", f)
    if re.match(r"/|(?:\.hg|tmp)(?:/|$)",f):
        sys.exit("File is outside web-viewable filesystem repository.")
    else:
        print ("http://codu.org/projects/hackbot/fshg/index.cgi/file/tip/" +
            urllib.quote(f))