Hente via pop3, gemme som mbox

medmindre du har kørt med maildirs så tror jeg blot det er et spørgsmåm om at kopiere filerne over.

"Den gamle server giver mig kun adgang via pop3"...

Alternativt - måske enda bedre:
Et script som henter mails over POP3, og kontakter den nye mailserver via SMTP, og afleverer. Mon ikke det er simpelt?
Jeg vil prøve at lave noget selv, hvis der ikke kommer mere hjælp her. (Og selvfølgelig poste scriptet, hvis det bliver brugbart.)

jeg kigger også lige på et script - jeg skal lige høre om der er attachments som skal gemmes, da det kan gøre det lidt sværre.

her er et perlscript som kan noget af det du efterlyser:
#! /usr/bin/perl

use strict;

use Net::POP3;
use Net::SMTP;

my $mailserver ="localhost";
my $popserver ="localhost";
my $username ="";
my $password ="";

my $email ="";
my ($subject, $test, $line, $set);
my $smtp = Net::SMTP->new($mailserver);
my $pop = Net::POP3->new($popserver);

if ($pop->login($username, $password) > 0) {
  my $msgnums = $pop->list;
  foreach my $msgnum (keys %$msgnums) {
    my $msg = $pop->get($msgnum);
    foreach $line (@$msg) {
      $test = $line;
      if ($test =~/^Subject: (.*)$/) {
        $subject = $1 unless ($set eq 1);
        $set = 1;
      }
    }
      remail(@$msg, $subject);
      $set =0;
  }
}

  $pop->quit;
  #$smtp->quit;


sub remail {
  my ($mail, $subject) = @_;

  $smtp->mail();
  $smtp->to($email);

  $smtp->data();
  $smtp->datasend("Subject:$subject\n");
  $smtp->datasend("\n");
  $smtp->datasend($mail);
  $smtp->dataend();
}

hov kommentaren foran $smtp->quit; skal fejernes.

bommer - der skal vist arbejdes lidt mere på mit script .. den kommer blot med en besked fra MAILERDEAMON som ikke indeholder så meget.

jeg er bange for at man måske skal parse emailen og konvertere den til MIME igen... men jeg tror måske at det er overføldigt eftersom den jo allerede ligger i et mimeformat. Det bliver ikke før weekenden at jeg har tid til at kigge på det.

my $mailserver ="localhost";
my $popserver ="localhost";
my $username ="";
my $password ="";


skal naturligvis sættes til det korrekte.

evt kan du sætte følgende ind i scriptet; så kan du kalde scriptet fra kommandolinien med paramtre hvis du skal gøre det for flere brugere.

use Getopt::Std;
my %opts;

getopt('o:m:u:p:', \%opts);

my $mailserver = $opts{"m"};
my $popserver = $opts{"o"};
my $username = $opts{"u"};
my $password = $opts{"p"};

fetchmail kan præcist det, du efterlyser.

Jeg synes det er vigtigt at mailen IKKE bliver parset. Den skal ankomme på den nye server præcist som den så ud på den gamle server.

Jeg har også siddet og scriptet lidt, men jeg er midlertidigt gået i stå fordi den nye mailserver tilsyneladende ikke virker.

Mens jeg venter kigger jeg lige på fetchmail.

Hov, gammelt spørgsmål...
Min løsning blev at skrive et script som henter mails over pop3, og lægger dem over på anden mailserver med smtp. Mailen bliver ikke parset (hverken headers eller body), så eneste ændringer i mailen foretages af den modtagende mailserver.

Den er skrevet i PHP. Hvis nogen ønsker det, kan jeg rydde en smule op i koden og offentliggøre den.