Arquivo da categoria ‘perl’

Abaixo especifico o scrip !!!!

#!/usr/bin/perl
# este modulo eh necessario para que tudo ocorra corretamente.
use MIME::Entity;

$txt1 = “O servidor de backup realizou o backup com sucesso,em anexo o script de backup !”;

$top = build MIME::Entity  From => ‘Root <root>’,
To   =>   ‘suporte@domain’,
Subject => “[Backup-Empresa] Confirmação do Backup “,
Data => $txt1;

# Anexo
$top->attach(
Name        => “algumacoisaExemplo.sh”,
Path        => “/diretorio/algumacoisaExemplo.sh”,
# Se o anexo for compactado
#Type        => “application/x-gtar”,
Encoding    => “base64″
);

# Agente MTA do seu servidor
open(MAIL,”| /usr/lib/sendmail -t”);
$top->print(\*MAIL);
close(MAIL);

Anúncios