package Sources::CGI;

use strict;
use warnings;

require CGI;
use vars qw(@ISA);

@ISA = qw( CGI );

sub getparam
{
   my ($self, $what) = @_;

   return $self->url_param($what) || $self->param($what);
}
sub urlencode
{
   my $text = shift;
   $text =~ s/([^a-z0-9_.!~*'(  ) -])/sprintf "%%%02X", ord($1)/ei;
   $text =~ tr/ /+/;
   return $text;
}


sub redirect
{
   my ($self, $uri) = @_;
   # print "Status: 302 Moved\n";
   print "Location: $uri\n\n";

   exit(0);
}

1;