Re: body_(re)write method in Transaction.pm

to follow up on this, to re-write the body of an email completely you
can do this:

$transaction->body_resetpos;
truncate $transaction->body_fh(), 0;
$transaction->body_rewrite( $newbody);


On 29 December 2010 21:34, Ryszard <[email protected]> wrote:
> Maybe a waste of time for you, but worked wonders for me after using google
> for hours looking for a solution that worked for me, and finding nothing.
>
> On 29/12/2010 9:16 PM, <[email protected]> wrote:
>>
>> Ryszard - [email protected] wrote:
>>
>> This is a total waste of time. I already explained, it is possible to do
>> it with the existing module.
>> Try looking in the archives. Someone sent me an email with an example in
>> it, iirc.
>>
>>> after many attempts at rewriting the body (and not just appending to
>>> the end), i couldnt work it out.  So, to work around the problem, i've
>>> created a new method called body_rewrite. please find below a patch
>>> for the new method:
>>> ----------8<---------------------------------------
>>>
>>> --- Transaction.pm      2010-12-28 09:27:23.000000000 +1100
>>> +++ Transaction.pm.new  2010-12-28 09:23:30.000000000 +1100
>>> @@ -151,6 +151,38 @@
>>>   }
>>>  }
>>>
>>> +sub body_rewrite {
>>> +  my $self = shift;
>>> +  my $data = shift;
>>> +  if ($self->{_body_file}) {
>>> +    #warn("body_rewrite to file\n");
>>> +    # go to the end of the file
>>> +    seek($self->{_body_file},0,1)
>>> +      unless $self->{_body_file_writing};
>>> +    $self->{_body_file_writing} = 1;
>>> +    $self->{_body_file}->print(ref $data eq "SCALAR" ? $$data : $data)
>>> +      and $self->{_body_size} += length (ref $data eq "SCALAR" ?
>>> $$data : $data);
>>> +  }
>>> +  else {
>>> +    #warn("body_rewrite to array\n");
>>> +    $self->log(LOGWARN, "DEBUG: body_rewrite to array");
>>> +    $self->{_body_array} = [];
>>> +    my $ref = ref($data) eq "SCALAR" ? $data : \$data;
>>> +    pos($$ref) = 0;
>>> +    while ($$ref =~ m/\G(.*?\n)/gc) {
>>> +      push @{ $self->{_body_array} }, $1;
>>> +      $self->{_body_size} += length($1);
>>> +      ++$self->{_body_current_pos};
>>> +    }
>>> +    if ($$ref =~ m/\G(.+)\z/gc) {
>>> +      push @{ $self->{_body_array} }, $1;
>>> +      $self->{_body_size} += length($1);
>>> +      ++$self->{_body_current_pos};
>>> +    }
>>> +    $self->body_spool if ( $self->{_body_size} >=
>>> $self->size_threshold() );
>>> +  }
>>> +}
>>> +
>>>  sub body_size { # depreceated, use data_size() instead
>>>   my $self = shift;
>>>   $self->log(LOGWARN, "WARNING: body_size() is depreceated, use
>>> data_size() instead");
>>>
>>> ----------8<---------------------------------------
>>>
>>> On 25 December 2010 08:16, Ryszard <[email protected]> wrote:
>>>
>>>>
>>>> thx for your response.. :-) i'm using the same hook, but i'll be
>>>> buggered if i can work out how to rewrite the body (as opposed to just
>>>> writing to the end of it!)
>>>>
>>>> On 24 December 2010 20:58,  <[email protected]>
>>>> wrote:
>>>>
>>>>>
>>>>> Ryszard - [email protected] wrote:
>>>>>
>>>>>>
>>>>>> Hi All,
>>>>>>
>>>>>> I'm having a bit of trouble rewriting and entire message body with the
>>>>>> standard api calls.  what i would like to do is add header text to the
>>>>>> body of an email.
>>>>>>
>>>>>>
>>>>>
>>>>> Unfortunately, I can't remember how to do it, but it is possible. I
>>>>> used to
>>>>> do it in the hook_data_post.
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>
>>>
>>>
>>
>>
>>
>