############################################
## DCP-Mail v2.1 ##
############################################
## Developer: Serhan D. Kiymaz ##
## URL: www.dotcom-projects.com ##
## URL: www.dcp-portal.com ##
## E-Mail: dcp-portal@dcp-portal.com ##
############################################
include ("config.inc.php");
Function checkEmail($email)
{
$rval = false;
if((strpos($email,"@")>0) && (strpos($email,".")>0))
$rval = true;
return $rval;
}
?>
|
=$list_name?>
|
if ((!isset($m_address)) || (!isset($m_option)) || ($m_address == "") || (!checkEmail($m_address))) {
?>
|
E-mail Listemize Üye Olun.
|
if (((!isset($m_address)) || ($m_address == "") || (!checkEmail($m_address))) && (isset($submit))) { ?>
|
Lütfen Geçerli Bir E-mail Adresi Yazınız!
|
} ?>
if ((!isset($m_option)) && (isset($submit))) { ?>
|
Lütfen bir opsiyon seçiniz !
|
} ?>
|
E-Mail Adresinizi Yazın
|
|
checked>
Üye Ol
|
|
>Üyelikten Çıkart
|
|
|
} else if ($action == "process") { ?>
if ($m_option == "subscribe") {?>
|
$fd = @fopen("dbase.dat", "a+") or die(" ERROR: Can not open database. Please contact administrator.");
fputs($fd, strtolower($m_address)."\r\n");
fclose($fd);
?>
=$list_name?>'a mail-üyesi oldunuz. İlginiz İçin Teşekkür Ederiz.
< Geri
|
} ?>
if ($m_option == "unsubscribe") {?>
|
$file = @file("dbase.dat");
$fd = @fopen("dbase.dat", "w+") or die(" ERROR: The list data file could not be opened for writing.");
if ($file) {
foreach($file as $address) {
$address = trim($address);
if ($address != $m_address) fputs($fd, "$address\n");
}
fclose($fd);
}
?>
=$list_name?>' dan kaydınız silindi. İlginiz için teşekkür ederiz.
< Geri
|
} ?>
} ?>
|