tools/de/nonametv-filter-mail

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 use FindBin;
   6 use lib "$FindBin::Bin/../../lib";
   7
   8 use Mail::Box;
   9 use Mail::Box::Manager;
  10
  11 my $maildir = "/home/mattias/Maildir";
  12 my $infoldername = ".Projects.xmltv-data-in";
  13 my $targetprefix = ".Projects.NonameTV-Data.";
  14
  15 my $folders;
  16
  17 my $mgr = Mail::Box::Manager->new();
  18
  19 my $rootfolder = $mgr->open( type => 'maildir', folder => $maildir );
  20 #my @subs = $rootfolder->listSubFolders();
  21 #print join "\n", @subs;
  22
  23 my $infolder = $rootfolder->openSubFolder( $infoldername, access => 'rw' );
  24
  25 foreach my $msg ($infolder->messages) {
  26   next if $msg->isDeleted();
  27   my @from = $msg->from;
  28   my $fromaddr = $from[0]->format;
  29   if( $fromaddr =~ /\@dr.dk/ ) {
  30     MoveMessage( $msg, "DR" );
  31   }
  32   elsif( $fromaddr =~ /millenniumgroup.se/i ) {
  33     # Matches both @millenniumgroup.se and
  34     # millenniumgroup.se@bounce.maildirect.se
  35     MoveMessage( $msg, "Nonstop" );
  36   }
  37   elsif( $fromaddr =~ /\@voicetv.se/i ) {
  38     MoveMessage( $msg, "TheVoice" );
  39   }
  40   elsif( $fromaddr =~ /\@kanallokal.tv/i ) {
  41     MoveMessage( $msg, "KanalLokal" );
  42   }
  43   elsif( $fromaddr =~ /\@mtvne.com/i ) {
  44     MoveMessage( $msg, "MTV" );
  45   }
  46   elsif( $fromaddr =~ /\@tv7games.se/ ) {
  47     MoveMessage( $msg, "TV7" );
  48   }
  49   elsif( $fromaddr =~ /\@tv3.se/i ) {
  50     MoveMessage( $msg, "Viasat" );
  51   }
  52   elsif( $fromaddr =~ /\@viasat.se/i ) {
  53     MoveMessage( $msg, "Viasat" );
  54   }
  55   elsif( $fromaddr =~ /\@viasat.co.uk/i ) {
  56     MoveMessage( $msg, "Viasat" );
  57   }
  58   elsif( $fromaddr =~ /\@mtg.se/i ) {
  59     MoveMessage( $msg, "Viasat" );
  60   }
  61   elsif( $fromaddr =~ /\@mtgtv.se/i ) {
  62     MoveMessage( $msg, "Viasat" );
  63   }
  64   elsif( $fromaddr =~ /\@disney.com/i ) {
  65     MoveMessage( $msg, "Disney" );
  66   }
  67
  68 }
  69
  70 sub MoveMessage {
  71   my( $msg, $foldername ) = @_;
  72
  73   if( not exists $folders->{$foldername} ) {
  74     $folders->{$foldername} =
  75         $rootfolder->openSubFolder( $targetprefix . $foldername,
  76                                     access => 'rw' );
  77   }
  78
  79   $msg->moveTo( $folders->{$foldername} );
  80 }