|
||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||
|
|
|
||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||
|
Did you like Cordula's Web? Would you like to submit a poem or short story? Do you have an idea how to improve this site? Do you operate a Cordula web site and would like to participate in a mutual link exchange? Please share your opinions with us. Besides English, we also speak French and German fluently. We also understand a little bit of Spanish and Italian (though not enough, so we'll reply in English). Praise and flames are welcome! :)
Please fill in the form below and click on the Send Message button at the bottom of the form to send your message. You can remain anonymous by leaving the E-Mail field empty. For obvious technical reasons, only messages with valid E-Mail addresses can expect a reply. By using this form, you agree to the conditions stipulated in our privacy policy.
Very important! We can't reply, if you don't submit a valid e-mail address! If you didn't get a reply within a week or two, the reason could be that the address you've submitted is incorrect, contains a typo or is otherwise unreachable. If this happens to you, please resubmit again and make sure you double-check your e-mail address. Thank you.
(2006-04-15) We've just discovered a bug in our feedback program that has been lingering for over two months! If you did send us a message in the last 8 weeks or so, and we didn't get back to you, we're terribly sorry! Some (but not all!) messages have been stored in a private file here on the server, but were not sent out to our internal mailing list, so we never saw them up until now. We're right now working through the backlog of two months worth of stored messages, and working as fast as we can to catch up. If the feedback program accepted your message, there's no need to resend it: it's here in the queue. Sorry, and thank you for your patience.
-- Cordula's Web feedback program.
(*) These fields must not be empty! Submissions would be rejected as virus, if these fields remain empty or contain only whitespaces.
END_OF_TABLE ####################################################################### use CGI qw/:standard/; use Fcntl ':flock'; # import LOCK_* constants sub do_error($) { my $msg = shift; print '' . $msg . '
'; print $MYFOOTER; exit (0); } sub do_feedback() { if (param()) { # There are parameters. # 1. Fetch them and save them in a file # 2. Generate a reply page. my $mailfrom = param('mailfrom') || ""; my $mailsubject = param('mailsubject') || ""; my $mailbody = param('mailbody') || ""; my $now = gmtime(time()); my $remotehost = remote_host(); if (! check_for_viruses($mailfrom, $mailsubject, $mailbody)) { # Not a virus, save everything and confirm open FEEDBACKFILE, ">> $MYFILENAME" or do_error("Can't open feedback file!"); flock (FEEDBACKFILE, LOCK_EX); seek (FEEDBACKFILE, 0, 2); print FEEDBACKFILE "Remote : ", $remotehost, "\n"; print FEEDBACKFILE "From : ", substr($mailfrom, 0, 68), "\n"; print FEEDBACKFILE "Date : ", $now, "\n"; print FEEDBACKFILE "Subject : ", substr($mailsubject, 0, 130), "\n"; print FEEDBACKFILE "\n"; print FEEDBACKFILE $mailbody, "\n\f\n"; flock (FEEDBACKFILE, LOCK_UN); close (FEEDBACKFILE) or do_error("Can't close feedback file!"); print 'Thank you for your comments.
'; print 'If you submitted a valid E-Mail address,
';
print 'we will get back to you ASAP.
-- Cordula\'s Web feedback program.
'; print "Very important! We can't reply, if the address you've submitted is not a valid e-mail address! If you didn't get a reply within a week or two, the reason could be that the address you've submitted is incorrect, contains a typo or is otherwise unreachable. If this happens to you, please resubmit again and make sure you double-check your e-mail address. If you can quote the gist of the message you've submitted, you don't need to repeat it entirely (it's already recorded). Just make sure we get your correct e-mail address, so we can reply. Thank you.
"; print 'Thank you for your comments.
'; print 'Unfortunately, your message looked like a virus or worm,
';
print 'and has not been saved.
Please resend with a different wording,
';
print 'OR send an an email to feedback (at) cordula (dot) ws.
We apologize for the inconvenience.
'; print '-- Cordula\'s Web feedback program.
'; print '
