Download - ePIC

A Quelltexte
}
414
415
# Pangaea - ID ’s in die Datei schreiben
# VORSICHT - Stets mit groesster Sorgfalt behandeln !
print DATEI " Event label \ t4607 \ t1599 \ t45259 \ t45260 \ t2221 \ t18906 \ t4610 \ t4611
\ t2224 \ t45311 \ t45312 \ t " ;
print DATEI " 45261\ t45262 \ t45263 \ t45264 \ t45265 \ t45266 \ t45267 \ t45268 \ t5151 \
t5150 \ t45307 \ t45308 \ t45309 \ n " ;
416
417
418
419
}
420
421
# Rechte setzen (664 = Lese - und Schreibrechte fuer Eigner und Gruppe , sowie
Leserechte fuer alle )
chmod (0664 , $datei ) ;
422
423
424
}
425
426
427
428
429
430
431
432
433
434
435
436
# Funktion - Variablen mit den Mailinhalten / Absenden
sub Mail_File
{
# Parameter einlesen
my $myMailAddress = $_ [0];
# Absender
my $email_address = $_ [1];
# Empfaenger
my $title
= $_ [2];
# Betreff
my $body_message = $_ [3];
# Nachrichtentext
my $fileType
= $_ [4];
# Art des Anhangs ( gaengigerweise ’ BINARY ’ oder ’
TEXT ’)
my $fileName
= $_ [5];
# Pfad + Dateiname des Anhangs
my $outFileName
= $_ [6];
# Dateiname
437
# Erstelle MIME :: Lite Mail Objekt
my $msg = MIME :: Lite - > new
(
From
= > $myMailAddress ,
To
= > $email_address ,
Subject = > $title ,
Type
= > ’ multipart / mixed ’ ,
);
438
439
440
441
442
443
444
445
446
$msg - > attach
(
Type
= > ’ TEXT ’ ,
Data
= > $body_message
);
447
448
449
450
451
452
$msg - > attach
(
Type
Path
Filename
);
453
454
455
456
457
458
= > $fileType ,
= > $fileName ,
= > $outFileName
459
# Mail abschicken
if ( $msg - > send () )
{
print " Mail an $empfaenger verschickt !\ n "
}
else
{
print " Fehler : Mail nicht verschickt !\ n " ;
goto MAIL ;
}
460
461
462
463
464
465
466
467
468
469
470
}
471
134