Terjemahkan ke dalam bahasa....
Langganan:
Posting Komentar (Atom)
skip to main |
skip to sidebar
Dapatkan uang disni
status ym
your computer ip
air zam-zam(klik gambar 2x utlk memperbesar)
daftar link kami
majalah syariah
masukan email anda untuk mengikuti perkembagan blog ini
yang lagi online
mata-mata
toko
cari di blog ini
jam dinding
< /body>
flag counter
shoutbox
visitor
Pengikut
postingan paling populer
Arsip Blog
Mengenai Saya
c
Could not open configuration file."); // Sets the variables from the config file. $user = trim($config[0]); $pass = trim($config[1]); $list_name = trim($config[2]); $list_file = trim($config[3]); $owner_email = trim($config[4]); $send_confirm = trim($config[5]); $confirm_subject = trim($config[6]); $send_welcome = trim($config[7]); $welcome_subject = trim($config[8]); $send_goodbye = trim($config[9]); $goodbye_subject = trim($config[10]); $default_per_page = trim($config[11]); $confirm_msg = get_data($config, "confirm"); $welcome_msg = get_data($config, "welcome"); $goodbye_msg = get_data($config, "goodbye"); $sig = get_data($config, "sig"); $banned_addresses = get_data($config, "banned"); // If statements to determine the action. if ($action == $admin_keyword) admin(); elseif ($action == "sub") subscribe(trim($email), $send_confirm, $send_welcome); elseif ($action == "confirm") confirm($email, $conf); elseif ($action == "unsub") unsubscribe(trim($email)); else print_subscribe_form(); print_footer(); function admin() { // Controls the administration options. global $q, $username, $password, $user, $pass; if (($user == $username) && ($pass == $password)) { if ($q == "send_msg") admin_send_msg(); elseif ($q == "send_msg_confirm") admin_send_msg_confirm(); elseif ($q == "write_msg") admin_write_msg(); elseif ($q == "view_subs") admin_view_subs(); elseif ($q == "config") admin_config(); elseif ($q == "add_remove") admin_add_remove(); admin_print_options(); } else { if (($username == "") && ($password == "")) admin_print_logon(""); else admin_print_logon("Invalid username and/or password."); } } function subscribe($email, $send_confirm, $send_welcome) { // Subscribes address to list. global $list_name; if ($email == "") { print_subscribe_form(); } else { if (!banned($email)) { if (!on_list($email)) { if (valid_email($email)) { if ($send_confirm == "on") { send_confirm($email); echo "
Thank you for subscribing to \"$list_name\".
An email will be sent to \"$email\" asking you to confirm your subscription.
Please follow those instructions to complete the process.
"; } else { if (add_to_list($email)) { echo "
The email address: \"$email\" has been subscribed to \"$list_name\".
"; if ($send_welcome == "on") { send_welcome($email); echo "
A welcome message will be emailed to you confirming this.
"; } } } } else echo "
The email address: \"$email\" does not appear to be valid.
"; } else echo "
The email address: \"$email\" is already subscribed to this list.
"; } else echo "
The email address: \"$email\" has been banned from \"$list_name\".
"; } } function unsubscribe($email) { // Removes email from list if it exists. global $list_file, $list_name, $send_goodbye; if ($email == "") { print_subscribe_form(); } else { if (remove_from_list($email)) { echo "
The email address: \"$email\" has been removed from \"$list_name\"."; if ($send_goodbye == "on") { send_goodbye($email); echo "
A email confirming this will be sent to \"$email\"."; } echo "
"; } else echo "
The email address: \"$email\" is not subscribed to \"$list_name\"."; } } function confirm($email, $conf) { $check_code = substr(strrev(md5($email).strtolower(soundex(email))),0,5); if ($conf == $check_code) { subscribe($email, "off", $GLOBALS['send_welcome']); } else { echo "
Your confirmation was not approved, an invalid code was specifed.
"; } } function remove_from_list($email) { // Removes the address from the file. global $list_file; $file = @file($list_file); $success = false; $fd = @fopen($list_file, "w") or die("
The list data file could not be opened for writing.
"); if ($file) { foreach($file as $address) { $address = trim($address); if ($address != $email) fputs($fd, "$address\n"); else $success = true; } fclose($fd); } return $success; } function add_to_list($email) { // Adds the email address to the data file. global $list_file; $fd = @fopen($list_file, "a") or die("
The list data file could not be opened.
Check the path and permissions.
"); fputs($fd, strtolower($email)."\n"); fclose($fd); return true; } function get_data($array, $keyword) { // Reads the message from the text file inbetween <$keyword> & foreach ($array as $i => $line) { if (trim($line) == "<$keyword>") { $i++; break; } } $array[$i] = trim($array[$i]); while ($array[$i] != "") { $tmp = stripslashes($array[$i]); $msg .= "\n$tmp"; $i++; $array[$i] = trim($array[$i]); } return $msg; } function valid_email($email) { // Returns true if email address has a valid form. $pattern = "^[-_.[:alnum:]]+@((([[:alnum:]]|[[:alnum:]][[:alnum:]-]*[[:alnum:]])\.)+(ad|ae|aero|af|ag|ai|al|am|an|ao|aq|ar|arpa|as|at|au|aw|az|ba|bb|bd|be|bf|bg|bh|bi|biz|bj|bm|bn|bo|br|bs|bt|bv|bw|by|bz|ca|cc|cd|cf|cg|ch|ci|ck|cl|cm|cn|co|com|coop|cr|cs|cu|cv|cx|cy|cz|de|dj|dk|dm|do|dz|ec|edu|ee|eg|eh|er|es|et|eu|fi|fj|fk|fm|fo|fr|ga|gb|gd|ge|gf|gh|gi|gl|gm|gn|gov|gp|gq|gr|gs|gt|gu|gw|gy|hk|hm|hn|hr|ht|hu|id|ie|il|in|info|int|io|iq|ir|is|it|jm|jo|jp|ke|kg|kh|ki|km|kn|kp|kr|kw|ky|kz|la|lb|lc|li|lk|lr|ls|lt|lu|lv|ly|ma|mc|md|mg|mh|mil|mk|ml|mm|mn|mo|mp|mq|mr|ms|mt|mu|museum|mv|mw|mx|my|mz|na|name|nc|ne|net|nf|ng|ni|nl|no|np|nr|nt|nu|nz|om|org|pa|pe|pf|pg|ph|pk|pl|pm|pn|pr|pro|ps|pt|pw|py|qa|re|ro|ru|rw|sa|sb|sc|sd|se|sg|sh|si|sj|sk|sl|sm|sn|so|sr|st|su|sv|sy|sz|tc|td|tf|tg|th|tj|tk|tm|tn|to|tp|tr|tt|tv|tw|tz|ua|ug|uk|um|us|uy|uz|va|vc|ve|vg|vi|vn|vu|wf|ws|ye|yt|yu|za|zm|zw)|(([0-9][0-9]?|[0-1][0-9][0-9]|[2][0-4][0-9]|[2][5][0-5])\.){3}([0-9][0-9]?|[0-1][0-9][0-9]|[2][0-4][0-9]|[2][5][0-5]))$"; if(eregi($pattern, $email)) return true; else return false; } function on_list($email) { // Returns true if email address is on list. global $list_file; $found = false; $file = @file($list_file); if ($file) { foreach ($file as $address) { if (trim($address) == trim($email)) { $found = true; } } } return $found; } function banned($email) { // Returns true if email is banned from subscribing. global $banned_addresses; $banned = false; $addresses = explode("\n", $banned_addresses); foreach ($addresses as $add) { if ($email == $add) { $banned = true; break; } } return $banned; } function send_welcome($email) { // Send confirmation letter to new subscriber. global $welcome_msg, $welcome_subject, $list_name, $owner_email, $sig, $version; $welcome_subject = replace_shortcuts($welcome_subject, $email); $headers = "From: \"$list_name\" <$owner_email>\r\nReply-To: $owner_email\r\nX-Mailer: PHPMailList V$version http://php.warpedweb.net/\r\n"; $welcome_msg .= "\n\n$sig"; $welcome_msg = replace_shortcuts($welcome_msg, $email); ini_set("sendmail_from", $owner_email); mail($email, $welcome_subject, $welcome_msg, $headers); } function send_confirm($email) { // Send message asking for confirmation. global $confirm_msg, $confirm_subject, $list_name, $owner_email, $version; $confirm_subject = replace_shortcuts($confirm_subject, $email); $headers = "From: \"$list_name\" <$owner_email>\r\nReply-To: $owner_email\r\nX-Mailer: PHPMailList V$version http://php.warpedweb.net/\r\n"; $confirm_msg = replace_shortcuts($confirm_msg, $email).$GLOBALS[sig]; mail($email, $confirm_subject, $confirm_msg, $headers); } function send_goodbye($email) { // Send goodbye message to unsubscriber. global $goodbye_msg, $goodbye_subject, $list_name, $owner_email, $version; $goodbye_subject = replace_shortcuts($goodbye_subject, $email); $headers = "From: \"$list_name\" <$owner_email>\r\nReply-To: $owner_email\r\nX-Mailer: PHPMailList V$version http://php.warpedweb.net/\r\n"; $goodbye_msg = replace_shortcuts($goodbye_msg, $email).$GLOBALS[sig]; mail($email, $goodbye_subject, $goodbye_msg, $headers); } function replace_shortcuts($msg, $email) { // Replaces the shortcuts used in when sending emails. global $list_name, $HTTP_HOST, $SCRIPT_NAME; $conf_code = substr(strrev(md5($email).strtolower(soundex(email))),0,5); $msg = str_replace("%list_name%", $list_name, $msg); $msg = str_replace("%email%", $email, $msg); $msg = str_replace("%confirm_url%", "http://$HTTP_HOST$SCRIPT_NAME?action=confirm&email=$email&conf=$conf_code", $msg); $msg = str_replace("%subscribe_url%", "http://$HTTP_HOST$SCRIPT_NAME?action=sub&email=$email", $msg); $msg = str_replace("%unsubscribe_url%", "http://$HTTP_HOST$SCRIPT_NAME?action=unsub&email=$email", $msg); return $msg; } function admin_write_msg() { // Prints the form to send a message. global $username, $password, $owner_email, $list_name, $admin_keyword; echo "
Send A Message:
From: \"$list_name\" <$owner_email>
Subject:
Message:
Append Signature
"; } function admin_send_msg_confirm() { // Confirms the message before sending. global $username, $password, $subject, $message, $owner_email, $list_name, $list_file, $admin_keyword, $use_sig; $subject = stripslashes($subject); $message = stripslashes($message); echo "
"; $subject = str_replace("\"", "%%", $subject); $message = str_replace("\"", "%%", $message); echo"
Please Confirm this is what you wish to send:
From: \"$list_name\" <$owner_email>
Subject: $subject
Message:
$message
"; } function admin_send_msg() { // Sends the message to all subscribers on the list. global $list_name, $list_file, $owner_email; set_time_limit(0); $subject = stripslashes($GLOBALS[subject]); $message = stripslashes($GLOBALS[message]); $subject = str_replace("%%", "\"", $subject); $message = str_replace("%%", "\"", $message); $headers = "From: \"$list_name\" <$owner_email>\r\nReply-To: $owner_email\r\nX-Sender: $owner_email\r\nX-UnsubscribeURL: http://$GLOBALS[HTTP_HOST]$GLOBALS[SCRIPT_NAME]\r\nX-Mailer: PHPMailList V$GLOBALS[version] http://php.warpedweb.net/\r\nX-AntiSpam: PHPMailList did not send you this email, review below for sender info.\r\nX-AntiSpam: Sent by $GLOBALS[REMOTE_ADDR]\r\n"; if ($GLOBALS[SERVER_ADMIN]) $headers .= "X-AntiSpam: Server Administrator $GLOBALS[SERVER_ADMIN]\r\n"; if ($GLOBALS['use_sig'] == "on") $message .= $GLOBALS['sig']; $sucess_count = 0; $fail_count = 0; $addresses = @file($list_file) or die("
The list data file could not be opened.
Check the path and permissions.
"); $addresses[] = $owner_email; set_time_limit(0); foreach ($addresses as $email) { $email = trim($email); if (mail($email, $subject, $message, $headers)) $sucess_count++; else $fail_count++; } echo "
Your message was sucessfully sent to $sucess_count addresses.
There was $fail_count unsucessfully sent.
"; } function admin_view_subs() { // Displays the subscribers of the list. global $per_page, $page; if (!$per_page) $per_page = $GLOBALS[default_per_page]; if (!$page) $page = 1; $address_arr = @file($GLOBALS[list_file]) or die("
The list data file could not be read.
You may have no subscribers or the file could not be found.
"); sort($address_arr); $count = count($address_arr); $total_page = floor($count/$per_page) + 1; $start_num = (($page * $per_page) - $per_page) + 1; if (($page+1) > $total_page) $end_num = $count; else $end_num = $page * $per_page; echo "
Subscribers List
There are $count addresses are subscribed to this list.
Subscribers $start_num - $end_num
"; $start1 = $start_num -1; $end_num--; $j = $start_num; for($i = $start1; $i <= $end_num; $i++) { echo "\n"; $j++; } echo "
# Addresses
$j $address_arr[$i]
"; ?>
View | 10 | 20 | 30 | 50 | 100 | per page. $per_page) { $prev_page = $page - 1; $next_page = $page + 1; // Prints bottom page numbers. echo "
"; if ($prev_page > 0) echo "| Previous $per_page "; echo " | "; for($i=1; $i <= $total_page; $i++) { if ($i == $page) echo "$i | "; else echo "$i | "; } if ($next_page <= $total_page) echo "Next $per_page |"; } echo "
Page $page of $total_page
"; } function admin_add_remove() { // Adding/Removing subscribers through admin. global $username, $password, $remove_address_arr, $list_file, $x, $y, $admin_keyword, $email, $admin_add_email_opt, $list_name; if ($x == "remove") { $file = @file($list_file) or die("
The list data file could not be read.
You may have no subscribers or the file could not be found.
"); sort($file); echo "
Remove Addresses:
Hold down Ctrl to select multiple addresses.
\n"; } elseif ($x == "remove_submit") { $sucess_count = 0; foreach ($remove_address_arr as $rm_add) { if (remove_from_list($rm_add)) { $sucess_count++; } } echo "
$sucess_count email addresses were removed.
"; } elseif ($x == "remove_all") { echo "
Warning!
If you continue with this action all subscribers to
your list will be removed.
Are you sure you wish to proceed?
"; } elseif ($x == "remove_all_submit") { $fd = fopen($list_file, "w") or die("
List Data file could not be opened.
"); fclose($fd); echo "
All addresses have been removed.
"; } elseif ($x == "add") { $email = trim($email); $welcome = "off"; $confirm = "off"; if ($admin_add_email_opt == "confirm") $confirm = "on"; elseif ($admin_add_email_opt == "welcome") $welcome = "on"; if ($y == "single") subscribe($email, $confirm, $welcome); elseif ($y == "many") { $email_arr = explode("\n", $email); foreach ($email_arr as $email) subscribe(trim($email), $confirm, $welcome); } else admin_print_add(); } admin_print_addremove_options(); } function admin_print_add() { global $username, $password, $admin_keyword; echo "
Add Addresses
Single Email Address:
Send Welcome Message
Ask for confirmation
Many Email Addresses:
(one per line)
Send Welcome Message
Ask for confirmation
"; } function admin_print_addremove_options() { global $username, $password, $admin_keyword; echo "
Add/Remove Options
Remove Subscribers
Remove All Subscribers
Add Subscribers
"; } function admin_print_options() { // Prints the administration options. global $username, $password, $admin_keyword; echo "
PHPMail List Options
Send a message
View Subscribers
Add/Remove Subscribers
Administration
"; } function admin_config() { // Changes the configuration/options of the script. global $s, $config_file, $newsig, $newusername, $newbanned_addresses, $newpassword, $newlist_name, $newlist_file, $newowner_email, $newsend_welcome, $newwelcome_subject, $newwelcome_msg, $newsend_goodbye, $newgoodbye_subject, $newgoodbye_msg, $newsend_confirm, $newconfirm_subject, $newconfirm_msg, $newdefault_per_page; if ($s == "submit") { echo "
"; $back_button = "
Your changes have not been saved.
"; if (!valid_email($newowner_email)) echo "Owner's Email address is invalid.".$back_button; elseif ($newusername == "") echo "You did not enter a username.".$back_button; elseif ($newpassword == "") echo "You did not enter a password.".$back_button; elseif ($newlist_name == "") echo "You did not enter a name for the list.".$back_button; elseif ($newlist_file == "") echo "You did not enter a path to the list data file.".$back_button; elseif ($newlist_file == "") echo "You did not enter a path to the list data file.".$back_button; elseif ($newconfirm_subject == "") echo "You did not enter subject for confirmation emails.".$back_button; elseif ($newconfirm_msg == "") echo "You did not enter confirmation email message.".$back_button; elseif ($newwelcome_subject == "") echo "You did not enter subject for welcome emails.".$back_button; elseif ($newwelcome_msg == "") echo "You did not enter welcome email message.".$back_button; elseif ($newgoodbye_subject == "") echo "You did not enter subject for goodbye emails.".$back_button; elseif ($newgoodbye_msg == "") echo "You did not enter goodbye email message.".$back_button; elseif ($newdefault_per_page == "") echo "You did not enter a number of default subscribers per page.".$back_button; elseif (!is_numeric($newdefault_per_page)) echo "The default number of subscribers per page must be an integer.".$back_button; else { $fd = @fopen($config_file, "w") or die("Could not open configuration file for writing."); $new_config = "$newusername\n$newpassword\n$newlist_name\n$newlist_file\n$newowner_email\n$newsend_confirm\n$newconfirm_subject\n$newsend_welcome\n$newwelcome_subject\n$newsend_goodbye\n$newgoodbye_subject\n$newdefault_per_page\n"; fputs($fd, $new_config); fputs($fd, "\n$newconfirm_msg\n\n"); fputs($fd, "\n$newwelcome_msg\n\n"); fputs($fd, "\n$newsig\n\n"); fputs($fd, "\n$newgoodbye_msg\n\n"); fputs($fd, "\n$newbanned_addresses\n"); fclose($fd); echo "Your configuration has been updated.
If you changed the username/password you will need to log in again.
"; } echo ""; } else admin_print_config_form(); } function admin_print_config_form() { // Prints the configuration options. $list_file = stripslashes($list_file); echo "
Configuration
Shortcuts:
%list_name% = The name of the list.
%email% = The email address the email is being sent it.
%confirm_url% = URL user must go to to confirm subscription.
%subscribe_url% = URL users go to to resubscribe.
%unsubscribe_url% = URL where user can unsubscribe.
General
Username:
Password:
List Name:
List File:
Owner's Email:
Default # Subscribers/page:
Banned Addresses
Addresses:
(New line for each address) $GLOBALS[banned_addresses]
Signature
Signature:
(Include by default on the
bottom of all messages)
Shortcuts not valid in signature. $GLOBALS[sig]
Confirmation
Send Email Asking for confirmation?
Confirmation Subject:
Confirmation Message: $GLOBALS[confirm_msg]
Welcome Message
Send Welcome Message?
Welcome Message Subject:
Welcome Message: $GLOBALS[welcome_msg]
Goodbye Message
Send Goodbye Message?
Goodbye Message Subject:
Goodbye Message: $GLOBALS[goodbye_msg]
"; } function admin_print_logon($msg) { // Prints the logon screen. echo "
$msg
Logon:
Username:
Password:
"; } function print_subscribe_form() { // Prints the subscription form. global $list_name; echo "
Subscribe to:
$list_name
Subscribe
Unsubscribe
"; } function print_footer() { // Prints the footer. global $version; echo "
PHPMailList\n
A script by David Broker.
http://php.warpedweb.net/
Version $version
"; } ?>
daftar org yg comment
tes truz
mau?
Tidak ada komentar:
Posting Komentar