backup

[Rolf]

Hallo,

so ein Teil schrieb ich mal... anzupassen wäre

• Startdirectory
• smtp-hostname
• deineemail@dresse
• dateiext.
• Absender ...

Schau mal obses zum Laufen kriegst ;-)

Rolf

---zing---

#####################################################################

Adminvorgaben

Startdirectory, mit Slash am Ende notieren

$dir = "c:/httpd";

Sicherungsdirectory, mit Slash am Ende notieren

$sikdir = "c:/temp";

Archivname

$archiv = "heute.tar";

Dateien der folgenden Erweiterung sollen gesichert werden

$ext = "pl";

Archiv packen 1 ja 0 nein

$compressed = 1;

Es folgen die Angaben zu Mail

Mailadresse: Einfache Hochkommas!

$an = 'otto@local';

$an = '[e-mail]';

SMTP HOST

$smtphost = 'mailserver';

$smtphost = '145.253.2.14';

Betreff

$subject = 'PLs von heute';

Nachricht

$msg = 'hier die PLs von heute...';

Absender

$abs = 'Rolf';
#####################################################################

use Archive::Tar;
$tar = Archive::Tar->new();
use File::Find;
$i=0;
find(&archive, $dir);

sub archive{
if(/.$ext$/i){
  $tar->add_files($_);
  $i++;
}
}
$tar->write("$sikdir/$archiv.tar", $compressed);

use Mail::Sender;   # Mail-Sender-0.6.7
$sender = new Mail::Sender{smtp => $smtphost, from => $abs};
ref($sender->MailFile(
{to => $an,  
  subject => $subject,
  msg => $msg,
  file => "$sikdir/$archiv.tar"}
))&fehler;
unlink "$sikdir/$archiv.tar";
$sender->Close;

sub fehler{
die "Die Mail wurde nicht gesendet, weil: $Mail::Sender::Error\n";
}
print "Die heutige Arbeit wurde an $an gesendet\n";
---zang---