Return to register-redirect.cgi CVS log

Up to [Local Repository] / register / prgsrc

Annotation of register/prgsrc/register-redirect.cgi, revision 1.2

1.1       boris       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: 
1.2     ! boris      23: $Date: 2003/07/16 02:08:28 $
1.1       boris      24: 
                     25: =head1 REVISION
                     26: 
1.2     ! boris      27: $Revision: 1.1 $
1.1       boris      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;
1.2     ! boris      43: $self =~ s|cgi-bin/register.cgi|cgi-bin/protected/register.cgi|;
1.1       boris      44: 
1.2     ! boris      45: print $query->redirect($self);