This was about 4.5 hours of work on Friday night, and as of now it’s working! So on with the show, I have all of the code published on it’s own page at Code >> Perl URL Shortener.
The code is free to use with attribution. IF you have any changes you’ve made and would like to contribute them to the project, be my guest.
[Update]
Todos:
1. Process string input to make valid URL
2. Make user creation page
3. make API key generator
4. Input API->username into database
5. Record user agents in db
6. Make full stats webpage (from JSON data?)
7. Give JSON from shorten.pl
8. Give XML from index.pl
9. Logo & New CSS
10. Revamp index.pl->JSON output names and order for prettiness
11. Allow user to specify short code
12. Make a ‘list.pl’ function
13. Move more stuff to subs.pl
14. Remove @vars from vars.pl
15. Fix &setMessage(1) and ..(2) [unify them]
16. Detect if using terminal/SSH (debug mode) and behave differently
17. Go through and comment the code
18. Duplicate management (ESP. For stats)
19. Fix index.pl HTML forms (the extra button values in the GET)
20. Migrate old database data over to new database (1 time use script)
[/UPDATE]