À̸§ºÎºÐÀ» È®ÀÎ ÇÏ´Â ºÎºÐÀÌ ÀÖ¾î¿ä.
subscribe.cgi¿¡ ¾Æ·¡ ºÎºÐÀÌ ÀÖ½À´Ï´Ù.
sub subscribe {
# -----------------------------------------------------------
# Adds a user into a mailing list.
#
    my %in = @_;   
    my $list = $db_email_name;
   
# Make sure the email address at least looks like an email address.
    my $email      = $in{
email
};
    my $name      = $in{
name
}; 
    ($email =~ /. @. .. /) or &site_html_mailing_error ("The email address:
$email
doesn
t look like a real email address.") and return;
  ($name  =~ /[A-Za-z] /) or &site_html_mailing_error ("Please enter a name as well as an email address.") and return;
¹ß°£»ö ºÎºÐÀ» ¼öÁ¤ÇϽôø°¡, È® Áö¿ö ¹ö¸®¼¼¿ä.