NAME

CGI::Shorten - Creating your shortened links

SYNOPSIS

This module may help you to build a personal shortening-link service. Feeding the long, verbose, and tedious url, it can return you a shortened one. And it can also print out redirection header in you CGI script.

USAGE

            

              
              
use CGI::Shorten;
            
          

new

            

              
              
$sh = new CGI::Shorten (
          db_prefix => ".shorten_",
          script_url => 'http://my.host/shorten.pl',
          );
            
          

You need to specify the prefix of databases to the constructor and may specify the url of the script that does the shortening task. The script's url defaults to 'http://127.0.0.1/shorten.pl'

Return the shortened url

            

              
              
print $sh->shorten($url);
            
          

return the original url

            

              
              
print $sh->lengthen($url);
            
          

return the CGI redirection header

            

              
              
print $sh->redirect($url);
            
          

If the redirected url does not exist, it will return 404 Not Found.

COPYRIGHT

xern <xern@cpan.org>

This module is free software; you can redistribute it or modify it under the same terms as Perl itself.