|
|
ÇöÀçÀ§Ä¡: ¸ÞÀÎ ÇØÇÇÆ÷·³ À¥ÇÁ·Î±×·¥ : °Ô½Ã¹° Àбâ |
|
  1999-05-12 (23:39:16) from 0.0.0.0 |
|
|
  ÀÛ¼ºÀÎ : Anonymous |
Á¶È¸¼ö : 1757    |
|
Á¦¸ñ : À̸§ºÎºÐÀ» È®ÀÎ ÇÏ´Â ºÎºÐÀÌ ÀÖ¾î¿ä. |
À̸§ºÎºÐÀ» È®ÀÎ ÇÏ´Â ºÎºÐÀÌ ÀÖ¾î¿ä. 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; ¹ß°£»ö ºÎºÐÀ» ¼öÁ¤ÇϽôø°¡, È® Áö¿ö ¹ö¸®¼¼¿ä.
|
|
¸Þ¸ð |
|
³²°ÜÁø ¸Þ¸ð°¡ ¾ø½À´Ï´Ù.
|
|
   |
|
|