Grunds\u00e4tzliche \u00dcberlegungen<\/h2>\n\n\n\n- die Emails sollen automatisiert direkt vom Imap-Server aus archiviert werden ganz ohne mein lokales Thunderbird oder den manuellen Aufruf von irgendwelchen Skripten.<\/li>
- auch wenn eine Email auf dem Server gel\u00f6scht wird, soll sie im Archiv erhalten bleiben.<\/li>
- Es sollen nur ausgew\u00e4hlte Email-Ordner archiviert werden (Logfiles von vor 10 Jahren sind dann wirklich uninteressant, zumindest denke ich das bisher….).<\/li>
- die IMAP-Ordnerstruktur soll auf Dateiebene abgebildet werden und jede Email soll eine eigene Datei innerhalb des entsprechenden Ordners sein.<\/li>
- Die Mails sollen als EML-Datei gespeichert werden, damit sie direkt aus Agorum core heraus mit einem Mausklick ge\u00f6ffnet werden k\u00f6nnen.<\/li>
- jede Email darf nat\u00fcrlich nur einmal im Archiv stehen, als Kriterium bietet sich daher an die Message-ID als Dateinamen zu verwenden.<\/li>
- rechtssichere Archivierung oder Audit-Funktionen spielen keine Rolle, da es sich um rein private Emails handelt.<\/li><\/ul>\n\n\n\n
Die Umsetzung<\/h2>\n\n\n\n
Ein Perl-Skript ruft die Mails aus ausgew\u00e4hlten Email-Ordnern vom Server ab und speichert sie auf dem gemappten DMS-Laufwerk von Agorum core. Das Skript hat im Bereich Error-Handling noch gewaltig Luft nach oben, aber ist f\u00fcr meine Zwecke ausreichend und bewusst ohne Perl-Magie geschrieben, so dass ich – hoffentlich – auch noch in 2 Jahren verstehe, was ich das eigentlich gemacht habe.<\/p>\n\n\n\n
Ben\u00f6tigt werden die Module IO::Socket::SSL<\/code> und Mail::IMAPClien<\/code>t, welche sich per CPAN installieren lassen.<\/p>\n\n\n\n#!\/usr\/bin\/perl\n\nuse strict;\nuse warnings;\nuse IO::Socket::SSL;\nuse Mail::IMAPClient;\n\n# Dieses Programm verbindet sich mit dem Imap-Server mail.gluecksgriff-taschen.de und speichert\n# dort alle Mails in bestimmten Foldern in das Agorum-Laufwerk.\n\n# Wo sollen die Mails abgespeichert werden? (das gemappte DMS-Laufwerk von Agorum)\nmy $base_dir = '\/nas\/email\/Schiffers\/Email\/Ralf\/';\n\n# Aus welchen Ordnern sollen Emails archiviert werden?\nmy @folder = qw( Aufbewahrung Bestellungen Booklooker Energie Garantie Sent PayPal Zugangsdaten );\n\n# Mit Server verbinden\nmy $imap = Mail::IMAPClient->new( User => 'ich@gluecksgriff-taschen.de',\n Password => 'supergheim',\n Socket => IO::Socket::SSL->new\n ( Proto => 'tcp',\n PeerAddr => 'mail.gluecksgriff-taschen.de',\n PeerPort => 993)\n ) or die "IMAP-Fehler: $@";\n\n# Eindeutige Uids per Imap-Session verwenden und Setzen des Seen-Flags ausschalten\n$imap->Uid(1);\n$imap->Peek(1);\n\n# Durch alle ausgewaehlten Email-Ordner gehen\n\nif ( $imap->IsAuthenticated() ) {\n foreach (@folder) {\n my $folder = $_;\n $imap->select($folder) or die "IMAP Select Error: $@\\n";\n #\n # Wenn es das Verzeichnis auf Dateiebene noch nicht gibt, dann anlegen\n #\n unless (-d "$base_dir"."$folder") {\n mkdir "$base_dir"."$folder" ;\n }\n #\n # Alles Mails im aktuellen Email-Ordner auswaehlen\n #\n my @msgs = $imap->search('ALL');\n foreach my $msg (@msgs) {\n #\n # Die Message-ID holen und diese als Dateiname zum Abspeichern verwenden\n # Wenn es keine Message-ID gibt, dann nicht abspeichern.\n #\n my $messageID = $imap->get_header($msg, "Message-Id");\n if ( defined $messageID) {\n #\n # Das < und > am Anfang bzw. Ende der Message-ID abschneiden\n #\n $messageID =~ s\/^.\/\/;\n $messageID =~ s\/.$\/\/;\n #\n # Und noch ein .eml anhaengen, damit die Datei direkt mit Thunderbird geoeffnet werden kann\n #\n my $datei = "$base_dir"."$folder"."\/"."$messageID"."\\.eml";\n #\n # Wenn es schon eine Datei mit diesem Namen gibt, dann nicht abspeichern.\n #\n unless (-f "$datei") {\n $imap->message_to_file ( $datei, $msg );\n }\n }\n }\n $imap->close;\n }\n}\n$imap->logout;\n\nexit 0;\n<\/pre><\/div>\n\n\nDieses Skript rufe ich per Cron-Job alle zwei Stunden auf und schon wandern alle Emails brav in Agorum core.<\/p>\n\n\n\n
Alle Emails doppelt und dreifach…WTF!<\/h2>\n\n\n\n
Die anf\u00e4ngliche Freude \u00fcber diese einfache Art der Archivierung verflog leider schnell, als ich feststellte, dass alle Emails x-fach in Agorum core vorhanden sind (bei jedem Aufruf des Skript kommt eine weitere Kopie der Email hinzu).<\/p>\n\n\n\n
Aber ich hatte doch extra die Message-ID als Filenamen verwendet, um genau so etwas zu verhinden. In Agorum kommt aber nicht etwa die Message-ID als Dateiname an, sondern die Message-ID mit einer anschlie\u00dfenden Zahl (wo auch immer die herkommen mag), aus der beabsichtigten Datei msg111@gluecksgriff-taschen.de.eml wird also in Agorum core eine Datei namens msg111@gluecksgriff-taschen.de_1117722.eml.<\/p>\n\n\n\n
Aber wer benennt die Datei denn nun um? Mein Skript, Agorum core, das Perl-Modul Mail::IMAPClient oder ist doch schwarze Magie am Werk?<\/p>\n\n\n\n
Schreibe ich die Dateien nicht in das Agorum-Laufwerk, sondern in ein normales Verzeichnis, tritt dieser seltsame Effekt der Umbenennung nicht auf, das Skript an sich scheint also ok zu sein und die Namens\u00e4nderung wird von Agorum core durchgef\u00fchrt.<\/p>\n\n\n\n
Agorum core Konfiguration<\/h2>\n\n\n\n
In Agorum core kann man definieren was mit bestimmten Dateitypen passieren soll, wenn diese auf das DMS-Laufwerk kopiert werden. Und f\u00fcr die Dateiendung eml ist – welch Wunder – eingestellt, dass der Dateiname mit der interen Dokumentennummer von Agorum code erg\u00e4nzt werden soll. Warum das die Default-Einstellung ist, erschlie\u00dft sich mir nicht, aber vielleicht ist das in Zusammenhang mit dem mir unbekannten kommerziellen MailAdaptor-Modul sinnvoll.<\/p>\n\n\n\n
Jedenfalls kann man gl\u00fccklicherweise die Umbenennung von eml-Dateien ausschalten.<\/p>\n\n\n\n
Hierzu geht man in die MetaDB und navigiert zu MAIN_MODULE_MANAGEMENT \/ roi \/ control \/ contenttask \/ EML<\/code><\/p>\n\n\n\nUnter dem Eintrag NewName sieht man dann die Ursache des \u00dcbels und nach einer \u00c4nderung auf ${OriginalName}.${Extension} ist das Mysterium gel\u00f6st und auch eml-Dateien behalten nun den ihnen zugedachten Dateinamen.<\/p>\n\n\n\n
Den Eintrag DeleteFileAfterTask setze ich sicherheitshalber noch explizit auf false, man wei\u00df ja nie.<\/p>\n\n\n\n
![\"Umbenennen](\"https:\/\/www.gluecksgriff-taschen.de\/wp-content\/uploads\/2018\/01\/agorum_metadb_eml-1024x819.png\")
<\/a><\/a> Umbenennung von EML-Dateien ist nun ausgeschaltet.<\/figcaption><\/figure><\/div>\n\n\n\nFazit<\/h2>\n\n\n\n
Emails werden nun wunderbar archiviert, Agorum core findet wie gewohnt jeden Suchbegriff und ich habe keine Ausrede mehr endlich mal Ordnung ins Email-Chaos zu bringen.<\/p>\n\n\n\n
Auf das Archivieren des Inbox-Ordners verzichte ich bewusst, da die interessanten Emails ohnehin manuell oder per sieve in die passenden Email-Ordner geschoben werden und dann dort archiviert werden.<\/p>\n","protected":false},"excerpt":{"rendered":"
Die Ausgangssituation Was Emails angeht, bin ich eher der J\u00e4ger und Sammler und l\u00f6sche eigentlich viel zu wenig, so dass sich mit der Zeit Unmengen an Mails ansammeln. Immerhin bin ich dabei relativ strukturiert, so dass ich gef\u00fchlte 10.000 Mails in ebenso gef\u00fchlten 498 Ordnern einsortiert habe. L\u00f6sche ich im Aufr\u00e4umwahn dann aber doch mal …<\/p>\n
Die Umsetzung<\/h2>\n\n\n\n
Ein Perl-Skript ruft die Mails aus ausgew\u00e4hlten Email-Ordnern vom Server ab und speichert sie auf dem gemappten DMS-Laufwerk von Agorum core. Das Skript hat im Bereich Error-Handling noch gewaltig Luft nach oben, aber ist f\u00fcr meine Zwecke ausreichend und bewusst ohne Perl-Magie geschrieben, so dass ich – hoffentlich – auch noch in 2 Jahren verstehe, was ich das eigentlich gemacht habe.<\/p>\n\n\n\n
Ben\u00f6tigt werden die Module Dieses Skript rufe ich per Cron-Job alle zwei Stunden auf und schon wandern alle Emails brav in Agorum core.<\/p>\n\n\n\n Die anf\u00e4ngliche Freude \u00fcber diese einfache Art der Archivierung verflog leider schnell, als ich feststellte, dass alle Emails x-fach in Agorum core vorhanden sind (bei jedem Aufruf des Skript kommt eine weitere Kopie der Email hinzu).<\/p>\n\n\n\n Aber ich hatte doch extra die Message-ID als Filenamen verwendet, um genau so etwas zu verhinden. In Agorum kommt aber nicht etwa die Message-ID als Dateiname an, sondern die Message-ID mit einer anschlie\u00dfenden Zahl (wo auch immer die herkommen mag), aus der beabsichtigten Datei msg111@gluecksgriff-taschen.de.eml wird also in Agorum core eine Datei namens msg111@gluecksgriff-taschen.de_1117722.eml.<\/p>\n\n\n\n Aber wer benennt die Datei denn nun um? Mein Skript, Agorum core, das Perl-Modul Mail::IMAPClient oder ist doch schwarze Magie am Werk?<\/p>\n\n\n\n Schreibe ich die Dateien nicht in das Agorum-Laufwerk, sondern in ein normales Verzeichnis, tritt dieser seltsame Effekt der Umbenennung nicht auf, das Skript an sich scheint also ok zu sein und die Namens\u00e4nderung wird von Agorum core durchgef\u00fchrt.<\/p>\n\n\n\n In Agorum core kann man definieren was mit bestimmten Dateitypen passieren soll, wenn diese auf das DMS-Laufwerk kopiert werden. Und f\u00fcr die Dateiendung eml ist – welch Wunder – eingestellt, dass der Dateiname mit der interen Dokumentennummer von Agorum code erg\u00e4nzt werden soll. Warum das die Default-Einstellung ist, erschlie\u00dft sich mir nicht, aber vielleicht ist das in Zusammenhang mit dem mir unbekannten kommerziellen MailAdaptor-Modul sinnvoll.<\/p>\n\n\n\n Jedenfalls kann man gl\u00fccklicherweise die Umbenennung von eml-Dateien ausschalten.<\/p>\n\n\n\n Hierzu geht man in die MetaDB und navigiert zu Unter dem Eintrag NewName sieht man dann die Ursache des \u00dcbels und nach einer \u00c4nderung auf ${OriginalName}.${Extension} ist das Mysterium gel\u00f6st und auch eml-Dateien behalten nun den ihnen zugedachten Dateinamen.<\/p>\n\n\n\n Den Eintrag DeleteFileAfterTask setze ich sicherheitshalber noch explizit auf false, man wei\u00df ja nie.<\/p>\n\n\n\n Emails werden nun wunderbar archiviert, Agorum core findet wie gewohnt jeden Suchbegriff und ich habe keine Ausrede mehr endlich mal Ordnung ins Email-Chaos zu bringen.<\/p>\n\n\n\n Auf das Archivieren des Inbox-Ordners verzichte ich bewusst, da die interessanten Emails ohnehin manuell oder per sieve in die passenden Email-Ordner geschoben werden und dann dort archiviert werden.<\/p>\n","protected":false},"excerpt":{"rendered":" Die Ausgangssituation Was Emails angeht, bin ich eher der J\u00e4ger und Sammler und l\u00f6sche eigentlich viel zu wenig, so dass sich mit der Zeit Unmengen an Mails ansammeln. Immerhin bin ich dabei relativ strukturiert, so dass ich gef\u00fchlte 10.000 Mails in ebenso gef\u00fchlten 498 Ordnern einsortiert habe. L\u00f6sche ich im Aufr\u00e4umwahn dann aber doch mal …<\/p>\nIO::Socket::SSL<\/code> und Mail::IMAPClien<\/code>t, welche sich per CPAN installieren lassen.<\/p>\n\n\n\n#!\/usr\/bin\/perl\n\nuse strict;\nuse warnings;\nuse IO::Socket::SSL;\nuse Mail::IMAPClient;\n\n# Dieses Programm verbindet sich mit dem Imap-Server mail.gluecksgriff-taschen.de und speichert\n# dort alle Mails in bestimmten Foldern in das Agorum-Laufwerk.\n\n# Wo sollen die Mails abgespeichert werden? (das gemappte DMS-Laufwerk von Agorum)\nmy $base_dir = '\/nas\/email\/Schiffers\/Email\/Ralf\/';\n\n# Aus welchen Ordnern sollen Emails archiviert werden?\nmy @folder = qw( Aufbewahrung Bestellungen Booklooker Energie Garantie Sent PayPal Zugangsdaten );\n\n# Mit Server verbinden\nmy $imap = Mail::IMAPClient->new( User => 'ich@gluecksgriff-taschen.de',\n Password => 'supergheim',\n Socket => IO::Socket::SSL->new\n ( Proto => 'tcp',\n PeerAddr => 'mail.gluecksgriff-taschen.de',\n PeerPort => 993)\n ) or die "IMAP-Fehler: $@";\n\n# Eindeutige Uids per Imap-Session verwenden und Setzen des Seen-Flags ausschalten\n$imap->Uid(1);\n$imap->Peek(1);\n\n# Durch alle ausgewaehlten Email-Ordner gehen\n\nif ( $imap->IsAuthenticated() ) {\n foreach (@folder) {\n my $folder = $_;\n $imap->select($folder) or die "IMAP Select Error: $@\\n";\n #\n # Wenn es das Verzeichnis auf Dateiebene noch nicht gibt, dann anlegen\n #\n unless (-d "$base_dir"."$folder") {\n mkdir "$base_dir"."$folder" ;\n }\n #\n # Alles Mails im aktuellen Email-Ordner auswaehlen\n #\n my @msgs = $imap->search('ALL');\n foreach my $msg (@msgs) {\n #\n # Die Message-ID holen und diese als Dateiname zum Abspeichern verwenden\n # Wenn es keine Message-ID gibt, dann nicht abspeichern.\n #\n my $messageID = $imap->get_header($msg, "Message-Id");\n if ( defined $messageID) {\n #\n # Das < und > am Anfang bzw. Ende der Message-ID abschneiden\n #\n $messageID =~ s\/^.\/\/;\n $messageID =~ s\/.$\/\/;\n #\n # Und noch ein .eml anhaengen, damit die Datei direkt mit Thunderbird geoeffnet werden kann\n #\n my $datei = "$base_dir"."$folder"."\/"."$messageID"."\\.eml";\n #\n # Wenn es schon eine Datei mit diesem Namen gibt, dann nicht abspeichern.\n #\n unless (-f "$datei") {\n $imap->message_to_file ( $datei, $msg );\n }\n }\n }\n $imap->close;\n }\n}\n$imap->logout;\n\nexit 0;\n<\/pre><\/div>\n\n\nAlle Emails doppelt und dreifach…WTF!<\/h2>\n\n\n\n
Agorum core Konfiguration<\/h2>\n\n\n\n
MAIN_MODULE_MANAGEMENT \/ roi \/ control \/ contenttask \/ EML<\/code><\/p>\n\n\n\n<\/a><\/a> Umbenennung von EML-Dateien ist nun ausgeschaltet.<\/figcaption><\/figure><\/div>\n\n\n\nFazit<\/h2>\n\n\n\n