#!/usr/bin/perl
use DBI;
use integer;
require 'cgi.pl';
$id=0;
$dopriv=0;
&initcgi("name.cgi","Furry Author Contact Information","23-12-00","Main index page","");
$nophase=1;
&needsread();
($id=int($data{"id"})) if(defined($data{"id"}));
(&myerror($tamper="Bad Author Number!")) if(($id<0) || (($id==0) && ($data{"id"} ne "0")));
($author=&identauthor($id)) if($id);
if(defined($data{"Answer"}))
{
if($data{"Answer"} eq "I agree")
{
unless($id)
{
&hprint("
- Please use the following address for all e-mail regarding MIA'S:\n");
&hprint("
- mias\@furry.de\n
Thankyou.");
&writepage(0,"MIA's Contact Address");
}
$sth=&do_query("SELECT email, comment, emurl, private FROM emails WHERE (ident = '$id') ORDER BY number","Unable to fetch email for '$author'");
$prestr="E-Mail: | ";
if($num)
{
&hprint("I have the following adress".($num>1?"es":"")." on record for $author:\n\n");
while(@row = $sth->fetchrow_array)
{
next if((!($dopriv)) &&($row[3]));
$pwarn=(($row[3]) && ($dopriv))?" Private Information, do not distribute":"";
if($row[2])
{
&hprint("Contact: | To E-Mail $author$row[1]$pwarn |
\n");
}
else
{
my $ecom=$row[1];
($ecom=" $ecom") if($ecom); # XXX ---
&hprint("$prestr$row[0]$ecom$pwarn | ");
$prestr=" | ";
}
}
&hprint("
\n");
}
else
{
&hprint("Sorry, I don't have ay e-mail adresses on record for $author. Were you playing around with the URL-Parameters ?");
}
&writepage(0,"Author Contact Info for $author");
}
&hprint("Hmm, something's not right. Please reread the text below, and reenter your answer. Make sure you have spelled everything right, have the right case, and haven't entered the apostrophes.\n");
$data{"Answer"}="";
}
&hprint("Please excuse this extra precaution, but past spamfloods have shown it to be necessary to make the following clear:\n");
&hprint($id?"By making their stories available to the web, asking for feedback on them, and publicizing their e-mail adresses on the web, the authors have":"By making MIA'S available to the web, asking for feedback, and making our e-mail adresses known, the staff of MIA's has");
&hprint(" in no way given their consent nor request to receive unsolicited commecial e-mail, pleas for assistance, chain mails, or anything else that falls under the general category of 'Spam Mail'.
While we do enjoy getting e-mail about our works on the web, we certainly do NOT enjoy getting SPAM, and will delete any SPAM mail sent us, and possibly blackfile the originator of such SPAM mail so that we never ever send any money their way by accident in the future. So, if you're here to collect names for your spam list, do yourself and your employers the favor, and look elsewhere.
If this doesn't apply to you, and you agree to never send any form of SPAM mail to the address you are about to receive, nor pass the address on to anyone else without a similar condition being imposed on them, then enter 'I agree' into the box below. Please be aware that if you break this agreement, you may be subject to any and all punishment by the applicable laws that can be brought to bear.
Again, sorry that this has been necessary.");
&hprint("\n");
&writepage(0,"Author Contact Info for $author");
---|