#!/usr/bin/perl use strict; use CGI; use Data::Dumper; use Sledge::Request::CGI; use Dl::Config; use Dl::Data::Category; use Dl::Data::Soft; do_task(); sub do_task { my $config = Dl::Config->instance; my $r = Sledge::Request::CGI->new(CGI->new); my $soft = Dl::Data::Soft->retrieve($r->param('soft_id')); my $category = Dl::Data::Category->retrieve($r->param('category_id')); if($soft){ $r->redirect($soft->page_url); } elsif($category){ $r->redirect($category->page_url); } else { $r->redirect(config()->download_url); } } sub config { Dl::Config->instance }