Aaverkios: Changed HTML parsing to HTML::Strip module (tested/working on 4.4.1)

2017-04-28T00:31:57Z

Changed HTML parsing to HTML::Strip module (tested/working on 4.4.1)

← Older revision		Revision as of 20:31, 27 April 2017
Line 3:		Line 3:
	Code cleanups: [[RuslanZakirov]]		Code cleanups: [[RuslanZakirov]]

	~~Require~~: Text::Wrapper perl ~~module~~		HTML parsing: aaverkios

			Requirements: Text::Wrapper and HTML::Strip perl modules

	<pre style="white-space: pre;">		<pre style="white-space: pre;">
Line 58:		Line 60:

	my $content = $message->Content;		my $content = $message->Content;
	$content =~~~ s/~~>(([^ >]\|\n)*)~~>//g~~; # ~~strip~~ HTML ~~tags from text/html~~
			#HTML parsing start
			#Initialize the installed module
			use base "HTML::Strip";
			#Create the strip object with the default constructor
			my $p = HTML::Strip->new();
			# strip the content of HTML
			$content = $p->parse($content);
			#HTML parsing end

	next unless $content;		next unless $content;

Tharn: undo html entity conversion & wrap in

2017-01-20T18:11:17Z

undo html entity conversion & wrap in <pre>

Show changes

Admin at 14:39, 14 June 2016

2016-06-14T14:39:19Z

Show changes

Admin: 2 revisions imported

2016-04-06T20:03:12Z

2 revisions imported

New page

Original author: Michael Markstaller - IFCO

Code cleanups: [[RuslanZakirov]]

Require: Text::Wrapper perl module

<nowiki>Subject: Resolved: {$Ticket->Subject}

Dear customer,

your issue regarding

"{$Ticket->Subject()}",

has been resolved in our ticket system. See below for history of this ticket.

If you have any further questions or concerns, please reply to this
message to reopen the ticket.

regards

{$Ticket->OwnerObj->RealName || $Ticket->OwnerObj->Name}
your-company-fooprint

----------------------------------------------------------------
Your initial request was
----------------------------------------------------------------

{$Ticket->Transactions->First->Content()}

----------------------------------------------------------------
Complete Ticket History
----------------------------------------------------------------

{
my $resolved_message = '';
my $last_content = '';

my $transactions = $Ticket->Transactions;

$transactions->Limit( FIELD => 'Type', VALUE => 'Correspond' );
#If for some reason you want to expose internal comments to end users,
#probably a bad idea, comment out the previous line & uncomment these:
#$transactions->Limit( FIELD => 'Type', VALUE => 'Correspond', ENTRYAGGREGATOR => 'OR', OPERATOR => '=' );
#$transactions->Limit( FIELD => 'Type', VALUE => 'Comment', ENTRYAGGREGATOR => 'OR', OPERATOR => '=' );

while (my $transaction = $transactions->Next) {
my $attachments = $transaction->Attachments;

while (my $message = $attachments->Next) {
next unless $message->ContentType =~
m!^(text/html|text/plain|message|text$)!i;

my $content = $message->Content;
$content =~ s/<(([^ >]|\n)*)>//g; # strip HTML tags from text/html
next unless $content;

next if $last_content eq $content;
$last_content = $content;

my $subject = ($message->Subject || $Ticket->Subject);

my $wrapper = Text::Wrapper->new(columns=>70);
$content = $wrapper->wrap($content);

$resolved_message .= "Subject: ";
$resolved_message .= $subject;
$resolved_message .= "\n";
$resolved_message .= "From: ";
$resolved_message .= $message->CreatorObj->RealName || $message->CreatorObj->EmailAddress;
$resolved_message .= "\n";
$resolved_message .= "Time: ";
$resolved_message .= $message->CreatedObj->AsString;
$resolved_message .= "\n";
$resolved_message .= "\n";
$resolved_message .= "$content\n";
$resolved_message .= "------------------------------------------------\n";
}
}
$resolved_message;
}

-------------------------------------------------------------------------
Common Information
-------------------------------------------------------------------------

There is no need to reply to this message unless you want to RE-OPEN your
ticket with ID [{$rtname} #{$Ticket->id}].

If you want to simply add a COMMENT to this ticket without re-opening the ticket, click below:
mailto:rt-comment@yourdomain.com?subject=[{$rtname}%20#{$Ticket->id()}]&body=%20

Please note:
- ALWAYS include the string [{$rtname} #{$Ticket->id}] in the subject line of all future correspondence about this issue.
- Do NOT attach or include the content of previous emails already sent to you by rt.
</nowiki>

AddTicketHistoryToMail - Revision history

Aaverkios: Changed HTML parsing to HTML::Strip module (tested/working on 4.4.1)

Tharn: undo html entity conversion & wrap in

Admin at 14:39, 14 June 2016

Admin: 2 revisions imported