#!/usr/bin/perl use strict; use warnings; use Authen::Captcha; use CGI ; my $cgi = new CGI ; # this directory is not accessible via the web. my $captcha_datadir = "/websites/123reg/LinuxPackage23/jb/ri/tt/jbritten.co.uk/public_html/.captcha_data"; # this directory will store the captcha images. This should # be accessible via the web because it will be included on the page. my $captcha_outputdir = "/websites/123reg/LinuxPackage23/jb/ri/tt/jbritten.co.uk/public_html/contact/img"; # This directory is the same as above, but using the web accessible # URL path. my $image_dir = "/contact/img"; # This should be the location of the FormMail.cgi script. my $formmail = "/contact/FormMail.cgi"; # This is where the user should be taken to after submitting the form. my $redirect = "http://jbritten.co.uk/contact/email_sent.html"; my $captcha = Authen::Captcha->new( data_folder => $captcha_datadir, output_folder => $captcha_outputdir, ); my ($md5sum, $chars) = $captcha->generate_code(4); # eliminate ambiguous chars from $chars my $bad_chars = 1; while ($bad_chars) { if ( $chars =~ m/o|0|O|l|i|1|q|9|6|b|s|S|5|2|Z/) { ($md5sum, $chars) = $captcha->generate_code(4); } else { $bad_chars = 0; } } my $title = 'Contact Us' ; my $recipient = 'james\@jbritten.co.uk' ; my $invitation = 'If you would like to request a quote, have a chat or if you require any information whatsoever, you can use the form below to get in touch with us. All enquiries will be answered within 24 hours.' ; my $email ; my $realname ; print $cgi->header () ; print << "END_OF_HTML"; J Britten Web | Design | Photography Contact Form
James Britten Web Design Photography Logo

James Britten.

Web | Design | Photography

Contact Us.

If you would like to request a quote, have a chat or if you require any information whatsoever, you can use the form below to get in touch with us. All enquiries will be answered within 24 hours.

Your Contact Information

What is the nature of your enquiry?













Would you like to receive information from us in the future?

END_OF_HTML