Implements an image recognition captcha.";
break;
case 'admin/modules#description':
case 'admin/modules/textimage':
case 'admin/textimage':
$output = t('Implements an image recognition captcha.');
break;
}
return $output;
}
function textimage_captchachallenge(&$form) {
$form['captcha_response'] = array (
'#type' => 'textfield',
'#title' => t('Captcha Validation'),
'#defaultvalue' => '',
'#required' => TRUE,
'#validate' => array('_captcha_validate' => array()),
'#description' => t('Please type in the letters/numbers that are shown in the image above.'),
'#prefix' => ') . ')
',
);
return $form;
}
function textimage_captchavalidate(&$captcha_word, &$correct) {
$captcha_word = drupal_strtolower($captcha_word);
if ($captcha_word == $_SESSION['captcha']) {
$correct = true;
}
else {
$correct = false;
form_set_error('captcha_response', t('The image verification code you entered is incorrect.'));
}
}
/**
* Implementation of hook_menu().
*/
function textimage_menu($may_cache) {
$items = array();
$suffix = '';
if ($may_cache) {
if (arg(2)!=null) $suffix='/'.arg(2);
$items[] = array(
'path' => 'textimage/image'.$suffix, 'title' => t('textimage'),
'callback' => '_textimage_image',
'access' => user_access('access textimage'),
'type' => MENU_CALLBACK
);
}
return $items;
}
function textimage_perm() {
return array('access textimages');
}
function textimage_settings() {
//check for GD
if (!function_exists(imagecreate))
form_set_error('No GD', t('Image library not available. Textimage needs the GD library extension to be installed. Please install GD.'));
else {
$fonts_path = variable_get("textimage_fonts_path", "");
//check for TTF support
if (!function_exists(imagettftext))
drupal_set_message(t('Your image library does not seem to have TrueType font support. Textimage will work, but will use the default inbuilt font.'),'status');
else {
//check for valid font path
if ($fonts_path!="" && !is_dir($fonts_path))
form_set_error('Invalid font path', t('The current font path is invalid. The default font will be used.'));
}
}
$form['textimage_fonts_path'] = array(
'#type' => 'textfield',
'#title' => t('TrueType Fonts Path'),
'#default_value' => $fonts_path,
'#size' => 30,
'#maxlength' => 255,
'#description' => t('Location of the directory where the Truetype (.ttf) fonts are stored. If you do not provide any fonts, the module will use the default font for text.'),
);
if (isset($fonts_path)) {
$imagefontinfo .= t('Number of fonts found: ').count(_textimage_font_list());
}
$gdinfo = gd_info();
$imagefontinfo .= '
'.t('GD Version: ').$gdinfo["GD Version"];
$imagefontinfo .= '
'.t(' FreeType Support: ');
$imagefontinfo .= ($gdinfo["FreeType Support"]==true) ? 'True' : 'False';
$imagefontinfo .= '
';
$form['textimage_info'] = array (
'#type' => 'item',
'#title' => t('Image and font information'),
'#value' => $imagefontinfo,
);
return $form;
}
/**
* Prints an image containing a textimage code.
*/
function _textimage_image() {
// there are a few hard coded functions I'd like to eliminate here,
// but for the time being we'll let them be.
//if we don't have GD2 functions, we can't generate the image
if (!function_exists('imagecreatetruecolor')) return;
// Set headers
header('Expires: Mon, 01 Jan 1997 05:00:00 GMT');
header('Cache-Control: no-store, no-cache, must-revalidate');
header('Cache-Control: post-check=0, pre-check=0', false);
header('Pragma: no-cache');
header('Content-type: image/png');
$string = _textimage_code();
// set up image, the first number is the width and the second is the height
$im = imagecreatetruecolor(180, 80);
// creates two variables to store color
$background = imagecolorallocate($im, rand(180, 250), rand(180, 250), rand(180, 250));
$foreground = imagecolorallocate($im, rand(0, 80), rand(0, 80), rand(0, 80));
// fill image with bgcolor
imagefill($im, 0, 0, $background);
// Get truetype font list
$fonts = _textimage_font_list();
// writes string
if (function_exists(imagettftext) && count($fonts) > 0) {
// write text using a truetype font
$charSize = 24; // font size
$charWidth = 0; // width of previous character
$x = 10; // initial x position
$y = 30;
// iterate over characters
for ($i=0;$i