From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <savithur@avatar.spb.ru>
From: Dmitriy Gnidchenko <savithur@avatar.spb.ru>
X-X-Sender:  <savithur@avatar.dux.ru>
To: "mandrake-russian@altlinux.ru" <mandrake-russian@altlinux.ru>
Subject: Re: [mdk-re] Autosend files on e-mail
In-Reply-To: <19902839.20011114164355@intramail.ru>
Message-ID: <Pine.LNX.4.33.0111141527270.21281-100000@avatar.dux.ru>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=koi8-r
Content-Transfer-Encoding: 8BIT
Sender: mandrake-russian-admin@altlinux.ru
Errors-To: mandrake-russian-admin@altlinux.ru
X-BeenThere: mandrake-russian@altlinux.ru
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: mandrake-russian@altlinux.ru
List-Help: <mailto:mandrake-russian-request@altlinux.ru?subject=help>
List-Post: <mailto:mandrake-russian@altlinux.ru>
List-Subscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@altlinux.ru?subject=subscribe>
List-Id: Linux-Mandrake RE / ALT Linux discussion list <mandrake-russian.altlinux.ru>
List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://altlinux.ru/pipermail/mandrake-russian/>
Date: Wed Nov 14 15:24:01 2001
X-Original-Date: Wed, 14 Nov 2001 15:39:33 +0300 (MSK)
Archived-At: <http://lore.altlinux.org/community/Pine.LNX.4.33.0111141527270.21281-100000@avatar.dux.ru/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

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