"; # Sorrymessage for blank email $sorryblankmailmessage = ""; # Sorrymessage for invalid emails $sorryoddmailmessage = ""; # Sorrymessage if someone entered your own mail $sorryownmailmessage = ""; # Subscribemessage, will be shown when someone subscribes. $subscribemessage = ""; # Subscribemail, will be sent when someone subscribes. $subscribemail = "Thank you for subscribing to the newsletter."; # Unsubscribemessage for deletion, will be followed by the email! $unsubscribemessage = ""; # Unsubscribemessage for failed deletion, will be followed by the email! $failedunsubscriptionmessage = ""; if (!file_exists($filelocation)) { $newfile = fopen($filelocation,"w+"); fclose($newfile); } $newfile = fopen($filelocation,"r"); $content = fread($newfile, filesize($filelocation)); fclose($newfile); $content=stripslashes($content); $out=""; $lines = explode("%",$content); foreach($lines as $l){ if ($l != $email){$out .= "%".$l;} else{$found=1;} } if ($action=="sign"){ if ($found==1 or $email=="" or !checkmail($email) or preg_match("/".$pattern."/",$email)){ if ($email==""){echo $sorryblankmailmessage;} else if ($found==1){echo $sorrysignmessage;} else if (!checkmail($email)){echo $sorryoddmailmessage;} else if (preg_match("/".$pattern."/",$email)){echo $sorryownmailmessage;} $disp="yes"; } else { $disp="no"; $newfile = fopen($filelocation,"a+"); $add = "%".$email; fwrite($newfile, $add); fclose($newfile); echo $subscribemessage; mail ($youremail,"New newsletter subscriber.",$email."\nDelete? $newsletterlocation?action=delete&email=".$email,"From: Newsletter\nReply-To: $email\n"); $submailheaders = "From: $lettername subscription form\n"; $submailheaders .= "Reply-To: $youremail\n"; mail ($email,$lettername." subscription",$subscribemail,$submailheaders); } } if ($action=="delete"){ $disp="no"; if ($found == 1){ $newfile = fopen($filelocation,"w+"); fwrite($newfile, $out); fclose($newfile); echo $unsubscribemessage; $disp="no"; } if ($found != 1){ echo $failedunsubscriptionmessage; $disp="YES"; } } if ($pw == $pass){ if ($send != "yes" && $send != "test"){ print'

Newsletter editor:

Subject:

Message:
 

'; } $mailheaders = "From: $lettername\n"; $mailheaders .= "Reply-To:$youremail\n"; # If you want to send HTML mail, uncomment this line! // $mailheaders .= "Content-Type: text/html; charset=iso-8859-1\n"; if ($send == "yes"){ $message="".stripslashes($message); $subject=stripslashes($subject); $lines = explode("%",$content); foreach ($lines as $l){mail ($l,$subject,$message,$mailheaders);} print "The following email has been sent!"; print "

$mailheaders\n$subject\n$message

"; } } if ($pw != $pass && $disp != "no"){ print $welcomemessage; print'

Your email:   subscribe unsubscribe 

'; } print ""; function checkmail($string){ return preg_match("/^[^\s()<>@,;:\"\/\[\]?=]+@\w[\w-]*(\.\w[\w-]*)*\.[a-z]{2,}$/i",$string); } ?>

Other Projects:

Ballet Méchanique: Electro-acoustic group featuring J. Anthony Allen (data gloves, programming), Noah Keesecker (trumpet, programming), Josh Clausen (voice, keyboards, programming), and Jesse Petersen (drums).

ComposersOnline.Org: An e-magazine for composers with occasional musings by J.

The 3136: Concert series of new and old music, non-genre specific. Also home of the Minneapolis 24 Hour Concerts.

Spark Festival of Electronic Music and Art: Assistant Director Dal Niente Composers Group: Composers collective consisting of J. Anthony Allen, Per Bloland, Lou Bunk, Zachary Crockett, Hyperacusis Music: My publishing & occasional record label. Website coming soon.

Kinesthetic: Some "fast clicky stuff". More on this soon.