#!/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 = "/home/sites/disktone.com/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 = "/home/sites/disktone.com/public_html/img"; # This directory is the same as above, but using the web accessible # URL path. my $image_dir = "//img"; # This should be the location of the FormMail.cgi script. my $formmail = "//FormMail.cgi"; # This is where the user should be taken to after submitting the form. my $redirect = "http://disktone.com//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 = 'webmail\@disktone.com' ; my $invitation = ' Please enter your name, your email address, a subject, your message, and the code for humans in the boxes and click send. We apologise for asking you to enter a code but it blocks those electronic robots from clogging up our mailbox with spam. Thank you. We shall get back to you as soon as possible. ' ; my $email ; my $realname ; print $cgi->header () ; print << "END_OF_HTML"; Disktone.com - Computer And Network Services For Business And Home Office Users
         
 

Contacting disktone.com is easy and we have provided several methods below to suit your needs.

If your query doesn't need an immediate response please complete and submit the form below.

Full Name *
Company
Phone #
e-Mail *
Message *
* Indicates required Information, Form will not send without it. 

Enter the letters *

  

If you wish to contact us by Phone or Post, Please use the details below.


 
       
  © Disktone.com Limited 2013. All rights reserved. Privacy Statement | Legal Disclaimer           
visit the FSB website