We’re almost finished with the user-registration system. All
that’s left now is the
which is what allows users who have their emailed verification code
to activate their account. That script performs the following steps:
Deleting the verification code from the user’s submitted information (since it is no longer needed), and then storing that submitted information in the member data file.
Adding an entry for the user to the
file, using the
CPAN module mentioned previously.
Adding the user to the appropriate group in the
Removing the user from the pending-applications file.
Emailing the user a copy of the username and password for future reference.
Example 19-4 shows the
script that allows the final
verification step to take place in the SoCalSail user-registration
Example 19-4. The verify.cgi script
#!/usr/bin/perl -Tw # verify.cgi # verifies receipt of the member's verification code, and activates the # member's account by: # # 1) writing their information to the $member_file, # 2) adding their username/password pair to the .htpasswd file, # 3) adding their name to the .htgroup file, and # 4) deleting their entry from the submission queue. use strict; use CGI qw(:standard); use Fcntl qw(:flock); use Apache::Htpasswd; use lib '/home/jbc/lib'; use Socalsail::Make_page; use Socalsail::Register qw(read_register_queue write_register_queue read_members write_members read_htgroup ...