[mdk-re] Autosend files on e-mail

[Dmitriy Gnidchenko]

On Wed, 14 Nov 2001, Vlad Drakula wrote:

> Hello mandrake-russian,
>
>   Помогите люди добрые... сами мы не местные... ой...
>   Типа, нужна конкретная примочка, что бы конкретно слала маляву
>   братве о появлении всякой чужой файлы в моем любимом фолдерсе, в
>   куче с файлой... Кто подскажет?
>
> --
> Best regards,
>  Vlad                          mailto:sib_drakula на intramail.ru
>
>
> _______________________________________________
> Mandrake-russian mailing list
> Mandrake-russian на altlinux.ru
> http://altlinux.ru/mailman/listinfo/mandrake-russian
>

Это для его кодирования

use MIME::Base64 qw(encode_base64);

$dir_name="/file_location";

sub file_encode{
        my($buf_file);
        chdir "$dir_name";
        open (FILE,$_[0]);
        while(read(FILE,$buf,48000)){
                $buf_file .= encode_base64($buf);
        }
        close(FILE);
        return $buf_file;

Это для оптправки почты.

use Mail::Send;

sub mail_send{
    my ($messages) = $_[0];
    my ($boundary) = $_[1];
    my ($to_address) = $_[2];
    my ($subject) = $_[3];
    my ($from_address) = $YOU_ADDRESS;

        my ($msg) = new Mail::Send
                    Subject => $subject,
                    To => $to_address;
            $msg->set('From', $from_address);
            $msg->add('MIME-Version','1.0');
            $msg->add('Content-Type','multipart/mixed;
			boundary="----------'.$boundary.'"');
            $fn = $msg->open('sendmail') or die "Can't open: $!\n";
            print $fn $messages;
        $fn->close();
}


            $BUF = file_encode("$zip_name\.zip");
            $boundary = time;
            my ($msg) = "------------$boundary\n";
                $msg .= "Content-Type: text/plain; charset=koi8-r\n";
                $msg .= "Content-Transfer-Encoding: 8bit\n\n\n";
                $msg .= "Архив $zip_name\.zipx\n";
                $msg .= "------------$boundary\n";
                $msg .= "Content-Type: application/x-zip-compressed;
name=\"$zip_name\.zip\n";
                $msg .= "Content-Transfer-Encoding: base64\n";
                $msg .= "Content-Disposition: attachment;
filename=\"$zip_name\.zip\"\n\n";
                $msg .= $BUF;
                $msg .= "\n------------$boundary--\n";
            @MESSAGES = ($msg, $boundary);
            &mail_send(@MESSAGES,$to_address,$subject);


Ту в принципе все что надо.
Название файла по вкусу.


С Уважением
	Дмитрий  savithur на avatar.spb.ru