send_email_attachment_from_file

one of the documented procedures in this installation of the ACS
Usage:
send_email_attachment_from_file {-to "" -from "" -subject "" -msg "" -src_pathname "" -dst_filename ""}
What it does:
Send an email message using ns_sendmail, with a MIME base64 encoded attachment of the file src_pathname. src_pathname is an absolute pathname to a file in the local server filesystem. dst_filename is the name given to the file attachment part in the email message.
Defined in: /web/philip/tcl/email-utils.tcl

Source code:

arg_parser_for_send_email_attachment_from_file $args


    set default_base64_encoder "[ad_parameter PathToACS]/bin/encode64.pl"
    set base64_encoder [ad_parameter "Base64EncoderCommand" "email" $default_base64_encoder]

    set encoded_data [exec $base64_encoder "<$src_pathname"]

    set mime_boundary "__==NAHDHDH2.28ABSDJxjhkjhsdkjhd___"

    set extra_headers [ns_set create]
    ns_set update $extra_headers "Mime-Version" "1.0"
    ns_set update $extra_headers "Content-Type" "multipart/mixed; boundary=\"$mime_boundary\""


    append body "--$mime_boundary
Content-Type: text/plain; charset=\"us-ascii\"

$msg

--$mime_boundary
Content-Type: application/octet-stream; name=\"$dst_filename\"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename=\"$dst_filename\"

"
    append body $encoded_data
    append body "\n--[set mime_boundary]--\n"
    ns_sendmail $to $from $subject $body $extra_headers



philg@mit.edu