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);
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>