Return-Path: <123@synetrix.de.example>
X-Flags: 0000
Delivered-To: GMX delivery to [EMAIL=123@gmx.de.example]123@gmx.de.example[/EMAIL]
Received: (qmail invoked by alias); 31 Jul 2005 13:35:28 -0000
Received: from c2.ibone.ch (EHLO c2.ibone.ch) [213.203.217.26]
  by mx0.gmx.net (mx007) with SMTP; 31 Jul 2005 15:35:28 +0200
Received: from [127.0.0.1] (dsl-084-059-139-030.arcor-ip.net [84.59.139.30])
    by c2.ibone.ch (c2.ibone.ch) with ESMTP id 065AA5AC191
    for <123@gmx.de.example>; Sun, 31 Jul 2005 15:35:28 +0200 (CEST)
Message-ID: <42ECD39F.5080306@synetrix.de.example>
Date: Sun, 31 Jul 2005 15:35:27 +0200
From: Patrick 123 <123@synetrix.de.example>
Organization: Synetrix IT & Webservices
User-Agent: Mozilla Thunderbird 1.0 (Windows/20041206)
X-Accept-Language: de-DE, de, en-us, en
MIME-Version: 1.0
To:123@gmx.de.example
Subject: CALL
Content-Type: text/plain; charset=ISO-8859-15; format=flowed
Content-Transfer-Encoding: 7bit
X-GMX-Antivirus: -1 (not scanned, may not use virus scanner)
X-GMX-Antispam: 0 (Mail was not recognized as spam)
X-GMX-UID: 97aeYsAHeSEkdSpdG3UhaXN1IGRvb8C9

<?xml version="1.0" encoding="ISO-8859-1"?>
<ServiceRequest>
<ServiceCall>gsergeset</ServiceCall>
<TLTID>002332</TLTID>
</ServiceRequest>

my ($header, $body) = split(/\n\n/, $message, 2)

#!C:\Perl\bin\Perl.exe
use Net::POP3;
# Constructors
    $pop = Net::POP3->new('mail.gmx.de');
    $pop = Net::POP3->new('mail.gmx.de', Timeout => 60);
    $username='xxxxx@gmx.de';
    $password='xxxxx';


    if ($pop->login($username, $password) > 0) {
      my $msgnums = $pop->list; # hashref of msgnum => size
      foreach my $msgnum (keys %$msgnums) {
    sleep 2;
    $zeitstempel=time();
    flock (IMPORTER, 2);
        my $msg = $pop->get($msgnum);
    open(IMPORTER,">F:/CALL_IMPORTER/$zeitstempel.xml");
    $msg =~ s/^.*?\n\n//s;
        print IMPORTER @$msg;
        #print localtime();
    print $zeitstempel;
      #$pop->delete($msgnum);
      close IMPORTER;
      }
    }

    $pop->quit;
    sleep 5;
    $filemover=system("F:/move.bat");
    print $filemover;