+ * $form->addElement('textarea_counter', 'message', 'Message',
+ * array('cols'=>60, 'rows'=>10), 160);
+ *
+ */
+ function HTML_QuickForm_recaptcha($elementName = null, $elementLabel = null, $attributes = null) {
+ parent::HTML_QuickForm_input($elementName, $elementLabel, $attributes);
+ $this->_type = 'recaptcha';
+ }
+
+ /**
+ * Returns the recaptcha element in HTML
+ *
+ * @since 1.0
+ * @access public
+ * @return string
+ */
+ function toHtml() {
+ global $CFG;
+ require_once $CFG->libdir . '/recaptchalib.php';
+
+ $html = '' . "\n";
+
+ $attributes = $this->getAttributes();
+ if (empty($attributes['error_message'])) {
+ $attributes['error_message'] = null;
+ $this->setAttributes($attributes);
+ }
+ $error = $attributes['error_message'];
+ unset($attributes['error_message']);
+
+ $strincorrectpleasetryagain = get_string('incorrectpleasetryagain', 'auth');
+ $strenterthewordsabove = get_string('enterthewordsabove', 'auth');
+ $strenterthenumbersyouhear = get_string('enterthenumbersyouhear', 'auth');
+ $strgetanothercaptcha = get_string('getanothercaptcha', 'auth');
+ $strgetanaudiocaptcha = get_string('getanaudiocaptcha', 'auth');
+ $strgetanimagecaptcha = get_string('getanimagecaptcha', 'auth');
+
+ $html .= '
+';
+
+ return $html . recaptcha_get_html($CFG->recaptchapublickey, $error);
+ }
+
+ /**
+ * set html for help button
+ *
+ * @access public
+ * @param array $help array of arguments to make a help button
+ * @param string $function function name to call to get html
+ */
+ function setHelpButton($helpbuttonargs, $function='helpbutton'){
+ if (!is_array($helpbuttonargs)){
+ $helpbuttonargs=array($helpbuttonargs);
+ }else{
+ $helpbuttonargs=$helpbuttonargs;
+ }
+ //we do this to to return html instead of printing it
+ //without having to specify it in every call to make a button.
+ if ('helpbutton' == $function){
+ $defaultargs=array('', '', 'moodle', true, false, '', true);
+ $helpbuttonargs=$helpbuttonargs + $defaultargs ;
+ }
+ $this->_helpbutton=call_user_func_array($function, $helpbuttonargs);
+ }
+ /**
+ * get html for help button
+ *
+ * @access public
+ * @return string html for help button
+ */
+ function getHelpButton(){
+ return $this->_helpbutton;
+ }
+
+ function verify($challenge_field, $response_field) {
+ global $CFG;
+ require_once $CFG->libdir . '/recaptchalib.php';
+ $response = recaptcha_check_answer($CFG->recaptchaprivatekey,
+ $_SERVER['REMOTE_ADDR'],
+ $challenge_field,
+ $response_field);
+ if (!$response->is_valid) {
+ $attributes = $this->getAttributes();
+ $attributes['error_message'] = $response->error;
+ $this->setAttributes($attributes);
+ return $response->error;
+ }
+ return true;
+ }
+}
+
+?>
Index: lib/recaptchalib.php
===================================================================
RCS file: lib/recaptchalib.php
diff -N lib/recaptchalib.php
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ lib/recaptchalib.php 1 Jan 1970 00:00:00 -0000
@@ -0,0 +1,313 @@
+ $value )
+ $req .= $key . '=' . urlencode( stripslashes($value) ) . '&';
+
+ // Cut the last '&'
+ $req=substr($req,0,strlen($req)-1);
+ return $req;
+}
+
+
+
+/**
+ * Submits an HTTP POST to a reCAPTCHA server
+ * @param string $host
+ * @param string $path
+ * @param array $data
+ * @param int port
+ * @return array response
+ */
+function _recaptcha_http_post($host, $path, $data, $port = 80) {
+ global $CFG;
+ require_once $CFG->libdir . '/filelib.php';
+
+ $req = _recaptcha_qsencode ($data);
+
+ $headers = array();
+ $headers['Host'] = $host;
+ $headers['Content-Type'] = 'application/x-www-form-urlencoded';
+ $headers['Content-Length'] = strlen($req);
+ $headers['User-Agent'] = 'reCAPTCHA/PHP';
+
+ $results = download_file_content('http://' . $host . $path, $headers, $data);
+
+ if ($results) {
+ return array(1 => $results);
+ } else {
+ return false;
+ }
+}
+
+
+
+/**
+ * Gets the challenge HTML (javascript and non-javascript version).
+ * This is called from the browser, and the resulting reCAPTCHA HTML widget
+ * is embedded within the HTML form it was called from.
+ * @param string $pubkey A public key for reCAPTCHA
+ * @param string $error The error given by reCAPTCHA (optional, default is null)
+ * @param boolean $use_ssl Should the request be made over ssl? (optional, default is false)
+
+ * @return string - The HTML to be embedded in the user's form.
+ */
+function recaptcha_get_html ($pubkey, $error = null, $use_ssl = false) {
+ global $CFG;
+
+ $recaptchatype = optional_param('recaptcha', 'image', PARAM_TEXT);
+
+ if ($pubkey == null || $pubkey == '') {
+ die ("To use reCAPTCHA you must get an API key from http://recaptcha.net/api/getkey");
+ }
+
+ if ($use_ssl) {
+ $server = RECAPTCHA_API_SECURE_SERVER;
+ } else {
+ $server = RECAPTCHA_API_SERVER;
+ }
+
+ $errorpart = "";
+ if ($error) {
+ $errorpart = "&error=" . $error;
+ }
+
+ require_once $CFG->libdir . '/filelib.php';
+ $html = download_file_content($server . '/noscript?k=' . $pubkey . $errorpart);
+ preg_match('/image\?c\=([A-Za-z0-9\-\_]*)\"/', $html, $matches);
+ $challenge_hash = $matches[1];
+ $image_url = $server . '/image?c=' . $challenge_hash;
+
+ $strincorrectpleasetryagain = get_string('incorrectpleasetryagain', 'auth');
+ $strenterthewordsabove = get_string('enterthewordsabove', 'auth');
+ $strenterthenumbersyouhear = get_string('enterthenumbersyouhear', 'auth');
+ $strgetanothercaptcha = get_string('getanothercaptcha', 'auth');
+ $strgetanaudiocaptcha = get_string('getanaudiocaptcha', 'auth');
+ $strgetanimagecaptcha = get_string('getanimagecaptcha', 'auth');
+
+ $return = '
+