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