Return to register-redirect.cgi CVS log

Up to [Local Repository] / register / prgsrc

Changed Makefile

    1: #!/usr/bin/perl
    2: 
    3: =pod
    4: 
    5: =head1 NAME 
    6: 
    7: register-redirect.cgi - a redirect scrript
    8: 
    9: =head1 SYNOPSIS
   10: 
   11: register.cgi?[I<options>]
   12: 
   13: =head1 DESCRIPTION
   14: 
   15: The script redirects to a directory protected below
   16: 
   17: =head1 AUTHOR
   18: 
   19: Boris Veytsman
   20: 
   21: =head1 DATE
   22: 
   23: $Date: 2003/09/26 15:19:22 $
   24: 
   25: =head1 REVISION
   26: 
   27: $Revision: 1.2 $
   28: 
   29: =cut
   30: 
   31: 
   32: ###################################################
   33: # Starting up
   34: ###################################################
   35: 
   36:     use strict;
   37: use vars qw(%ENV);
   38: use CGI qw(:standard);
   39: use DBI;
   40: use POSIX qw(locale_h);
   41: my $query= new CGI;
   42: my $self=$query->self_url;
   43: $self =~ s|cgi-bin/register.cgi|cgi-bin/protected/register.cgi|;
   44: 
   45: print $query->redirect($self);