#!/usr/local/bin/perl

use CGI qw(:standard);

require "$ENV{DOCUMENT_ROOT}/platform/cgi/database_connect.lib";

(param('request')) ? &index   :
(param('url'))     ? &forward :
&index;

sub index {
    my $builder = new PageBuilder($dbh);
    $builder->build;
}

sub forward {
    my $id = param('id');
    my $url = param('url');

    if ($url !~ m#http[s]?://$ENV{HTTP_HOST}#i) {
        print header(-status=>'404 Not Found',-type=>'text/html');      
        print "Not Found";
        exit;
    }
    else {
        print "Location: $url\n\n";
        exit;
    }
}