Ron Grabowski wrote:
>   my %h = ( jpg => 'text/html',
>             txt => 'text/plain' );
> 
>   $msg->attach( Type => $h{$suf}, 
>                 Path => "$s_dir/$nick/append/$at", 
>                 Filename => $at );

Remember to take care of the case where the extension matches no known type:

    Type => $h{$suf} || 'application/octet-stream',

Cheers,
Philip
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web

Reply via email to