I got it myself, thank you cpan.
Thanks list for listening to me whine.
replace() add()
$mail->replace('Content-Type',"text/plain\n\tcharset=\"iso-8859-1\"\n");
$mail->print_header();
Thanks
Dan
>
> Let me redo this since the last bit was overly complicated.
>
> I need to do this :
>
> 1) get the header form STDIN
> 2) modify one field ( content-type )
> 3) print the new header to STDOUT in the original order or
> some way that doesn't screw it up like a 'foreach $keys' does
>
>
> #1 works!
> my $mail = Mail::Internet->new(\*STDIN);
> my $headers = $mail->head->header_hashref;
>
> #2 works!
> $headers->{'Content-Type'}->[0] =
> "text/plain\n\tcharset=\"iso-8859-1\"\n";
>
> #3
> #first method : will get sent fine but makes the
> headers screwy for some other apps foreach my $k(sort keys
> %{$headers}) { print "$k\: ";print @{$headers->{$k}}; }
> # second method : keeps the original order and
> formatting but doesn't reflect the change in #2 above
> $mail->print_header();
>
>
> So the question is how do I get print_header() to reflect the
> changes I made in the hash/how do I modify the header
> directly instead of just the hash?
>
> Thanks
>
> DMuey
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
