Abills сохранение всех файлов отправляемых биллингом на email
Возникла необходимость сохранять инвойсы PERIODIC_INVOICE, которые выставляются с помощью multi_docs.pl в файлы, решил сделать таким макаром, сохранять абсолютно все вложения отправляемые билингом, для этого:
vim /usr/abills/Abills/Base.pm |
в функцию sendmail
после 373 строки добавляем следующий код:
open ( my $fh , '>' , '/tmp/' . $attachment ->{FILENAME}); |
print $fh $attachment ->{CONTENT}; |
т.е. в код обработки вложений, просто добавили их сохранение, вот что вышло
foreach my $attachment (@{ $attr ->{ATTACHMENTS} }) { |
open ( my $fh , '>' , '/tmp/' . $attachment ->{FILENAME}); |
print $fh $attachment ->{CONTENT}; |
my $data = encode_base64( $attachment ->{CONTENT}); |
Content-Type: $attachment ->{CONTENT_TYPE};\n name= "$attachment->{FILENAME}" |
Content-transfer-encoding: base64 |
Content-Disposition: attachment;\n filename= "$attachment->{FILENAME}" |
возможно есть решение поизящнее, но пока что мне и этого хватает, времени ковыряться в кишках билинга нет 