shorturl.cgi
author terom
Thu, 08 Nov 2007 17:06:03 +0000
changeset 1 740133ab6353
child 2 8b2b40a51098
permissions -rwxr-xr-x
initial code, somewhere between 0.2 and 0.5
1
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
     1
#!/usr/bin/env python2.5
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
     2
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
     3
import dbm
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
     4
import cgi
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
     5
import os, os.path
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
     6
#import pprint
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
     7
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
     8
vars = cgi.FieldStorage()
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
     9
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
    10
key = vars['key'].value
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
    11
db = dbm.open('shorturls', 'r')
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
    12
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
    13
try :
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
    14
    path = db[key]
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
    15
finally :
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
    16
    db.close()
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
    17
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
    18
print "Status: 302"
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
    19
print "Location: ../%s" % path
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
    20
print
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
    21
print "../%s" % path
740133ab6353 initial code, somewhere between 0.2 and 0.5
terom
parents:
diff changeset
    22