Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

cwest (1514)

cwest
  (email not shown publicly)
http://caseywest.com/
AOL IM: caseyrwest (Add Buddy, Send Message)

Perl geek.

Journal of cwest (1514)

Monday December 16, 2002
04:02 PM

Make Your Own Shorter Link

[ #9494 ]

This weekend I wrote a Link Shortening system. It's pretty slick. It's shorter than some, but not all (only because of my domain name). I've got it up here in sort of a beta system. Though it will remain there for good. My real reson for writing it is to release my code, something that people don't seem to do when writing link shortening systems.

I wrote this thing using MVC via Class::DBI. It currently sits on mysql and the schema is specific. I generate keys before hand, not on the fly. Currently there are 250 thousand keys but I can have more than billions by generating more. I cache urls and have a program to weed out bad ones, which I may run in the future. It's a neat little system and it didn't take long to write at all.

Once I write the XML-RPC server I'll write an interface for the WWW::Shorten API. Then I'll have to document what I've done, perhaps even test, and get it out there for use on intranets and personal web sites galore.

Enjoy!

Boogie Machine (Rough Mix) - "Cheapskates - Softer Side - Compilation" - The Company

Posted from caseywest.com, comment here.