Source for file captcha-audio.php

Documentation is available at captcha-audio.php

  1. <?php
  2. /**
  3. * Captcha audio handling for Mambo
  4. * @package Mambo
  5. * @author Mambo Foundation Inc see README.php
  6. * @copyright Mambo Foundation Inc.
  7. *  See COPYRIGHT.php for copyright notices and details.
  8. * @license http://www.gnu.org/copyleft/gpl.html GNU/GPL, see
  9. *  LICENSE.php
  10. *  Mambo is free software; you can redistribute it and/or
  11. *  modify it under the terms of the GNU General Public License
  12. *  as published by the Free Software Foundation; version 2 of the
  13. *  License.
  14. */
  15.  
  16. defined( '_VALID_MOS' ) or die( 'Direct Access to this location is not allowed.' );
  17.  
  18. global $mosConfig_lang, $mosConfig_absolute_path;
  19.  
  20. session_name('mos_captcha');
  21. session_start();
  22. $code = $_SESSION['code'];
  23.  
  24. // language select (for future addition of own wav files)
  25. $lang = $mosConfig_absolute_path.'/includes/captchaAudio/'.$mosConfig_lang.'/';
  26. if (!is_dir($lang)) {
  27.     $lang = $mosConfig_absolute_path.'/includes/captchaAudio/en/';
  28. }
  29.  
  30. $wavs = array();
  31.  
  32. for($i=0;$i<5;$i++){
  33.     $file = $lang.$code{$i}.'.wav';
  34.     $wavs[] = $file;
  35. }
  36.  
  37. //$totalsize = filesize($filename);
  38. header("Cache-Control: no-cache, must-revalidate");
  39. header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
  40. header('Content-type: audio/x-wav');
  41. header("Content-Transfer-Encoding: binary");
  42. //header("Content-Length: ".$totalsize);
  43. header('Content-Disposition: attachment;filename=captcha.wav');
  44.  
  45. echo joinwavs($wavs);
  46.  
  47. /**
  48.  * CAPTCHA antispam plugin - sound generator
  49.  * @license    GPL 2 (http://www.gnu.org/licenses/gpl.html)
  50.  * @author     Andreas Gohr <gohr@cosmocode.de>
  51.  */
  52.  
  53. function joinwavs($wavs){
  54.     $fields = join('/',array( 'H8ChunkID', 'VChunkSize', 'H8Format',
  55.                               'H8Subchunk1ID', 'VSubchunk1Size',
  56.                               'vAudioFormat', 'vNumChannels', 'VSampleRate',
  57.                               'VByteRate', 'vBlockAlign', 'vBitsPerSample' ));
  58.  
  59.     $data = '';
  60.  
  61.     foreach($wavs as $wav){
  62.         $fp     = fopen($wav,'rb');
  63.         $header = fread($fp,36);
  64.         $info   = unpack($fields,$header);
  65.         if($info['Subchunk1Size'] > 16){
  66.             $header .= fread($fp,($info['Subchunk1Size']-16));
  67.         }
  68.         $header .= fread($fp,4);
  69.         $size  = unpack('vsize',fread($fp, 4));
  70.         $size  = $size['size'];
  71.         $data .= fread($fp,$size);
  72.     }
  73.  
  74.     return $header.pack('V',strlen($data)).$data;
  75. }
  76.  
  77. ?>

Documentation generated on Mon, 05 May 2008 16:16:49 +0400 by phpDocumentor 1.4.0