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]
