Back to start page."; make_footer(); exit; } if(!$key) { echo "

No e-mail adress given.. Your verification URL is wrong. Check"; echo " if you typed the URL exactly as it was given in the verification letter.\n"; echo "

Back to start page."; make_footer(); exit; } // Check the validity of information $db = connect_to_db(); // echo "

SELECT status, req_key FROM bunghole_newsletter WHERE contact_email = '$email' AND status != 'ok' LIMIT 1;"; $query = mysql_query("SELECT status, req_key FROM bunghole_newsletter WHERE contact_email = '$email' AND status != 'ok' LIMIT 1;"); if(mysql_num_rows($query) == 0) { echo "

The e-mail adress given ($email) doesn't exist in our database or hasn't requested a change in their account.\n"; echo "

Back to start page."; make_footer(); exit; } // else $result = mysql_fetch_array($query); if($key != $result["req_key"]) { echo "

Wrong key.. Your verification key is wrong. Check"; echo " if you typed the URL exactly as it was given in the verification letter.\n"; echo "

Back to start page."; make_footer(); exit; } if($result["status"] == "subscribe") $query = mysql_query("UPDATE bunghole_newsletter SET status = 'ok' WHERE contact_email = '$email';"); else if($result["status"] == "ubsubscribe") $query = mysql_query("DELETE FROM bunghole_newsletter WHERE contact_email = '$email';"); mysql_close($db); ?>

Ok, you have been unsubscribed from Bunghole newsletter, you will no longer receive our weekly newsletter.

You have been subscribed to Bunghole newsletter. Thank you for subscribing. You will be receiving our newsletter weekly with all the latest additions of Bunghole.

Back to start page.

Back to start page."; make_footer(); exit; } } if($request == "unsubscribe") { // Check if user exists $query = mysql_query("SELECT * FROM bunghole_newsletter WHERE contact_email = '$email' AND status = 'ok';"); if(mysql_num_rows($query) != 0) { echo "

Your e-mail adress doesn't appear in our records. $email is not subscribed to our newsletter.\n"; echo "

Back to start page."; make_footer(); exit; } } // Make key srand(time()); $key = rand(10000, 99999); // Insert new entry $query = mysql_query("INSERT INTO bunghole_newsletter VALUES(NULL, '$name', '$email', '$request', $key);"); mysql_close($db); // Send e-mail $msg = "\nSomeone (probably you) has asked the adress $email to be ".$request."d in Bunghole Newsletter and"; $msg .= " receive weekly updates of Bunghole, the heavy metal resource index ( http://www.ravencrypt.com/bunghole/ )."; $msg .= "\n\nIf you wish to $request on Bunghole newsletter, go to the link below to verify your action:"; $msg .= "\n http://www.ravencrypt.com/bunghole/newsletter.html?action=request&email=$email&key=$key"; $msg .= "\n\nIf it wasn't you who sent the request, simply ignore this message."; $msg .=" \n\nStay heavy,\nBunghole Administrator"; mail($email, "Verify your $request to Bunghole Newsletter", $msg, "From: $webmaster_email\r\nReply-To: $webmaster_email\r\n"); ?>

Your action has been recorded. You will receive a letter asking your verification. As soon as you follow the actions described in the letter, your action will be executed.

Back to start page.

Keep informed of new additions to The Bunghole, by subscribing to our low-volume newsletter that will deliver new listings and information straight to your inbox!

By joining this list, every week you will receive an e-mail with all the new listings.