Annotation of register/prgsrc/register-redirect.cgi, revision 1.1
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:
! 23: $Date: 2002/12/25 21:36:01 $
! 24:
! 25: =head1 REVISION
! 26:
! 27: $Revision: 1.15 $
! 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/register/protected\/register/;
! 44:
! 45: print $query->redirect($self);
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>