Perl

SPAM vorlesen lassen mit Perl + espeak

Verfasst von magenbrot am 10. November 2010 - 18:18

Heute gibts hier was für Masochisten (oder Sadisten, je nachdem). Mit diesem kleinen Perl-Script könnt ihr die Betreffzeilen von Mails in einem bestimmten Ordner vorlesen lassen. Ich habs hier mit meinem Spam-Ordner getestet ;)

Das Script benötigt die Perl-Module Net::IMAP::Simple und Email::Simple und außerdem eine funktionierende Installation von espeak (Ich habs mit Ubuntu 10.10 Maverick getestet).

Vor dem Ausführen die Variablen oben eurem Server entsprechend einstellen und los gehts.

#!/usr/bin/perl
 
use strict;
use warnings;
use Net::IMAP::Simple;
use Email::Simple;
 
my $server = "mail.domain.de";
my $user = "username";
my $pass = "passwort";
my $folder = "INBOX/Junk";
 
my $espeak_params = "-s 160";
 
# open a connection to the IMAP server
my $imap = Net::IMAP::Simple->new($server) || die "Unable to connect to IMAP: $Net::IMAP::Simple::errstr\n";
 
# login
if(!$imap->login($user, $pass)) {
   print STDERR $imap->errstr . "\n";
   exit(64);
}
 
# select the SPAM-folder
my $nm = $imap->select($folder);
 
for(my $i = 1; $i <= $nm; $i++){
  my $es = Email::Simple->new(join '', @{ $imap->top($i) } );
  if($imap->seen($i)){
    # already read mail
    print "*";
  } else {
    # new mail
    print " ";
    # uncomment this to only read new mail
    #my @args = ("espeak", $espeak_param,  "\"" . $es->header('Subject') . "\"");
    #system(@args) || die("system @args failed: $?");
  }
  # print the mailnumber and subject
  printf("[%03d] %s\n", $i, $es->header('Subject'));
 
  # comment this out, when you've enabled the read of unread mails only above
  my @args = ("espeak", $espeak_params,  "\"" . $es->header('Subject') . "\"");
  system(@args) || die("system @args failed: $?");
}
 
$imap->quit;

Dieses Script als Cronjob eingetragen.. Oder ihr startet es auf einen großen Folder und geht schnell in den Feierabend...

Ein klein wenig umgeschrieben wirds auch wieder sinnvoll, etwa indem man sich den Betreff neuer Mails aus dem normalen Posteingang vorlesen läßt.

Diesen und weitere Artikel findet ihr in meinem Wiki

neuer Kommentar

UTF-8, BOM und das nervige Windows Notepad

Verfasst von magenbrot am 22. September 2010 - 8:42

Für einen Kunden habe ich ein Tool in Perl programmiert. Es überprüft alle paar Minuten ein Verzeichnis in das von Redakteuren Fotos und eine Textdatei mit Metainformationen hochgeladen werden. In der Textdatei werden z.B. Bildunterschriften und Copyrights übergeben. Das Tool erstellt dann aus den Metainformationen und den Dateinamen der Bilder eine XML-Datei, welche dann zusammen mit den Bildern auf das Redaktionssystem zur Weiterverarbeitung kopiert wird.

Es gab allerdings Probleme beim Verknüpfen der Daten mit einem Bild und zwar immer nur mit den Infos, die in der Textdatei in der ersten Zeile standen. Vom Kunden habe ich dann erfahren, dass die Redakteure diese Datei mit dem Windows 7 Notepad erstellen (ob es mit anderen Windows-Versionen die gleichen Probleme gibt kann ich nicht sagen).

Die Windows-Zeilenumbrüche, die Notepad in Textdateien einbaut, konnten nicht schuld sein, da die Datei im CSV-Format kommt und der Zeilenumbruch nur auf das letzte Feld zutreffen würde, welches die Bildunterschrift enthält. Dieser Umbruch würde also einfach in die Beschreibung übernommen werden.

Als ich mir die Textdatei mit vi angesehen habe, konnte ich nicht entdecken, warum es nicht funktioniert. Erst bei Betrachtung mit „cat -A datei.txt“ habe ich folgendes entdeckt:

M-oM-;M-?01.JPG;Hippel;Ein erster Testdurchgang zwecks FTP-Upload^M$
02.JPG;Hippel;Ein erster Testdurchgang zwecks FTP-Upload^M$
03.JPG;Hippel;Ein erster Testdurchgang zwecks FTP-Upload^M$
04.JPG;Hippel;Ein erster Testdurchgang zwecks FTP-Upload

Das Problem war also gefunden. Am Anfang der ersten Zeile haben sich ein paar seltsame Zeichen eingeschlichen: „M-oM-;M-?“. Nach ein wenig Recherche hab ich dann herausgefunden, das es sich hier das sogenannte Byte Order Mark (BOM) von UTF-codierten Dateien handelt. Bei 2- und 4-bytigen UTF-Kodierungen ist dieses BOM unbedingt erforderlich, bei UTF-8 codierten (wie sie Windows-Notepad erstellt) jedoch nicht, da diese nur mit einem Byte dargestellt werden.

In Perl habe ich mir damit geholfen, dass ich bei so codierten Dateien das BOM einfach entferne. Dazu müssen die ersten drei Bytes (EF BB BF) der Datei entfernt werden. Das sieht dann so aus:

open(META, "<", "meta.txt") || logger("ERROR", "could not open meta.txt: $!\n") && die();
my $x = 0;
while(<META>) {
  # remove the BOM information from UTF-8 encoded textfiles coming from windooze notepad
  if ($x == 0) {
    s/^\xEF\xBB\xBF//;
  }
  # remove windows linebreakes
  s/\r\n/\n/;
  chomp;
  $meta[$x] = $_;
  $x++;
  logger("DEBUG", "meta-data: " . $_ . "\n");
}
close(META);

neuer Kommentar

Neueste Blogeinträge

Fanshop

Perl

SPAM vorlesen lassen mit Perl + espeak

UTF-8, BOM und das nervige Windows Notepad

Beliebte Inhalte

Heute:

Insgesamt:

Neueste Kommentare

Archiv

Webseite durchsuchen