![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to register-redirect.cgi CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / register / prgsrc|
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); |