public/ws-vacation Files · test/qp-check.php

Files @ r11:0ea9b2bfb110

Branch filter:

Location: public/ws-vacation/test/qp-check.php

r11:0ea9b2bfb110 3.2 KiB text/x-php Show Annotation Show as Raw Download as Raw

lib/util.php: Quoted printable in headers is quite tricky.
Since vacation does not know how to handle mail header quoted printable,
avoid nested quoting by moving $SUBJECT outside of quoted parts.

lib/ws-vacation.conf.in: turn magic_quotes_gpc off (what a drag :))

<?php // -*- php -*-
// Copyright (C) 2012, Wolfgang Scherer, <Wolfgang.Scherer at gmx.de>
// Sponsored by WIEDENMANN SEILE GMBH, http://www.wiedenmannseile.de
//
// This file is part of Wiedenmann Vacation.
//
// This program is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published
// by the Free Software Foundation; either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful, but
// WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <http://www.gnu.org/licenses/>,
// or write to Wolfgang Scherer, <Wolfgang.Scherer at gmx.de>

// $_REQUEST['_DEBUG_'] = 1;
// $_REQUEST['_DEBUG_TEST_'] = 1;
require_once(dirname(__FILE__) . '/../lib/util.php');


echo "--------------------------------------------------\n";
$subject = '$SUBJECT';
$subject = 'Re: ?= $SUBJECT$SUBJECT, äöü ?=$SUBJECT';
$subject = subject_quoted_printable_encode($subject);
echo 'Subject: ' . $subject . "\n";
// var_dump($subject_partsq);

echo "--------------------------------------------------\n";

$sencoded = $subject . '+' . $subject;
$subject = subject_quoted_printable_decode($sencoded);
echo 'Subject: ' . $subject . "\n";

echo "--------------------------------------------------\n";
$msg = get_text('vacation');
$vacationa = vacation_split($msg, False);
$subject = $vacationa[0];
$headers = $vacationa[1];
$body = $vacationa[2];

$msg = vacation_join($subject, $body, $headers);
echo $msg."\n";

echo "--------------------------------------------------\n";
$vacationa = vacation_split($msg, True);
$subject = $vacationa[0];
$headers = $vacationa[1];
$body = $vacationa[2];

$msg = vacation_join($subject, $body);
echo $msg."\n";

echo "--------------------------------------------------\n";
$vacationa = vacation_split($msg, True);
$subject = $vacationa[0];
$headers = $vacationa[1];
$body = $vacationa[2];

$msg = vacation_join($subject . 'äöü', $body);
echo $msg."\n";

echo "--------------------------------------------------\n";
$vacationa = vacation_split($msg, True);
$subject = $vacationa[0];
$headers = $vacationa[1];
$body = $vacationa[2];

echo 'Subject: '.$subject."\n";
echo 'Headers: '. $headers."\n";
echo 'Body: '.$body."\n";

echo "--------------------------------------------------\n";
$msg = vacation_join($subject, $body);
echo $msg."\n";

//
// :ide-menu: Emacs IDE Menu - Buffer @BUFFER@
// . M-x `eIDE-menu' ()(eIDE-menu "z")
// :ide: COMPILE: PHP _DEBUG_=2 _DEBUG_TEST_=2
// . (compile (concat "php " (file-name-nondirectory (buffer-file-name)) " _DEBUG_=2 _DEBUG_TEST_=2"))

// :ide: QUO: $this->
// . (insert "$this->" )

// :ide: COMPILE: PHP w/o args
// . (compile (concat "php " (file-name-nondirectory (buffer-file-name)) ""))

// :ide: COMPILE: PHP _DEBUG_=1 _DEBUG_TEST_=1
// . (compile (concat "php " (file-name-nondirectory (buffer-file-name)) " _DEBUG_=1 _DEBUG_TEST_=1"))

//
// Local Variables:
// mode: php
// End:
?>