Return to register-redirect.cgi CVS log | Up to [Local Repository] / register / prgsrc |
version 1.1, 2003/07/16 02:08:28 | version 1.2, 2003/09/26 15:19:22 |
---|---|
Line 40 use DBI; | Line 40 use DBI; |
use POSIX qw(locale_h); | use POSIX qw(locale_h); |
my $query= new CGI; | my $query= new CGI; |
my $self=$query->self_url; | my $self=$query->self_url; |
$self =~ s/register/protected\/register/; | $self =~ s|cgi-bin/register.cgi|cgi-bin/protected/register.cgi|; |
print $query->redirect($self); | |
print $query->redirect($self); |