Menu
▾
▴
Re: [phpBT-dev] CVS: phpbt/inc functions.php,1.24,1.25
|
From: Ben C. <php...@be...> - 2002-05-18 02:35:09
|
Heheh, well, I didn't mean you had to comment every line of code. :)
On Fri, May 17, 2002 at 07:35:12AM -0700, Jirka Pech wrote:
> Update of /cvsroot/phpbt/phpbt/inc
> In directory usw-pr-cvs1:/tmp/cvs-serv28544/phpbt/inc
>
> Modified Files:
> functions.php
> Log Message:
> Added comments to qp_enc functions. I hope this will satisfy Ben's request for walking through qp_enc function. Do you think it's know usable in PHPBT? If so, I will modify bug.php for using qp_mail function replacing PHP's original mail function, which does no conversion. I thought about new configuration switch, which can tell us if to use MIME e-mail or not. If yes, we will use qp_mail, otherwise we can use original mail function. Do you agree?
>
>
> Index: functions.php
> ===================================================================
> RCS file: /cvsroot/phpbt/phpbt/inc/functions.php,v
> retrieving revision 1.24
> retrieving revision 1.25
> diff -u -r1.24 -r1.25
> --- functions.php 16 May 2002 12:52:02 -0000 1.24
> +++ functions.php 17 May 2002 14:35:09 -0000 1.25
> @@ -427,35 +427,59 @@
> return date($format, $string);
> }
>
> -// quoted-printable encoder function
> +/* quoted-printable encoder function
> + This encoding has all non-ascii (say >127, <32 and =61 chracters)
> + encoded as "=" and it's hexadecimal value. Special case is space
> + (32 decimal) at the end of line, which is converted to =20, other-
> + wise it's not converted and it's returned as space (32 decimal). */
> +
> function qp_enc($input, $line_max = 76) {
> + // Initialize variables
> $hex = array('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
> - $lines = split("\n", str_replace("\r\n", "\n", $input));
> $eol = "\n";
> $escape = "=";
> $output = "";
> + // Do "dos2unix" and split $input into $lines by end of line
> + $lines = split("\n", str_replace("\r\n", "\n", $input));
> + // Loop throught $lines
> while( list(, $line) = each($lines) ) {
> - $line = rtrim($line);
> - $linlen = strlen($line);
> - $newline = "";
> - for($i = 0; $i < $linlen; $i++) {
> - $c = substr($line, $i, 1);
> - $dec = ord($c);
> - if ( ($dec == 32) && ($i == ($linlen - 1)) ) {
> - $c = "=20";
> - } elseif ( ($dec == 61) || ($dec < 32 ) || ($dec > 126) ) {
> - $h2 = floor($dec/16); $h1 = floor($dec%16);
> - $c = $escape.$hex["$h2"].$hex["$h1"];
> - }
> - if ( (strlen($newline) + strlen($c)) >= $line_max ) {
> - $output .= $newline.$escape.$eol;
> - $newline = "";
> - }
> - $newline .= $c;
> - }
> - $output .= $newline.$eol;
> + // Trim each line from right side
> + $line = rtrim($line);
> + // Place line length to $linlen
> + $linlen = strlen($line);
> + // Initialize $newline
> + $newline = "";
> + // Loop throught each line and process each character of the line
> + for($i = 0; $i < $linlen; $i++) {
> + // Place each character of $line to $c
> + $c = substr($line, $i, 1);
> + // Place decimal value of $c to $dec
> + $dec = ord($c);
> + // If $c equals to space (" ") and we are at the end of line place
> + // space (" ") to $c
> + if (($dec == 32) && ($i == ($linlen - 1))) {
> + $c = "=20";
> + } elseif ( ($dec == 61) || ($dec < 32 ) || ($dec > 126) ) {
> + // Or if $c is not printable character in ascii, convert the
> + // character to it's quoted-printable value
> + $h2 = floor($dec/16); $h1 = floor($dec%16);
> + $c = $escape.$hex["$h2"].$hex["$h1"];
> + }
> + // If we are at the maximum line length, add whole line (converted)
> + // with end of line character to $output
> + if ( (strlen($newline) + strlen($c)) >= $line_max ) {
> + $output .= $newline.$escape.$eol;
> + // And initialize $newline as empty
> + $newline = "";
> + }
> + // Add converted (or ascii) character to $newline
> + $newline .= $c;
> + }
> + // Add $newline with end of line character to output
> + $output .= $newline.$eol;
> }
> - return (trim($output));
> + // Return trimmed output
> + return (trim($output));
> }
>
> // mailer with use of quoted-printable encoding
> @@ -466,9 +490,9 @@
> $headers .= "\n";
> // There have to be no newline at the end of $headers
> }
> - $headers .= "Content-type: text/plain; charset=\"".$STRING['lang_charset']."\"\n";
> + $headers .= "Content-type: Text/plain; charset=\"".$STRING['lang_charset']."\"\n";
> $headers .= "Content-Transfer-Encoding: quoted-printable\nMIME-Version: 1.0";
> mail ($to, $subject, qp_enc($body), $headers);
> -}
> +}
>
> ?>
>
>
> _______________________________________________________________
>
> Have big pipes? SourceForge.net is looking for download mirrors. We supply
> the hardware. You get the recognition. Email Us: ban...@so...
> _______________________________________________
> phpbt-dev mailing list
> php...@li...
> https://lists.sourceforge.net/lists/listinfo/phpbt-dev
|
