IMAP flag Deleted senden klappt nicht wegen Backslash - #131102 (Allgemeines zu Perl)

Gast hamm

2010-01-22 13:51

also $msgnum ist nur ein zäheler, 1,2,3,4 usw.

Hier mal der use abschnitt von oben:

Code: (dl )

use Socket;
use FileHandle;
use Fcntl;
use Getopt::Std;
use IO::Socket;

und noch der code zum löschen:

Code: (dl )

        foreach $_ ( @msgs ) {
           ($msgnum,$date,$flags) = split(/\|/, $_);
           $message = fetchMsg( $msgnum, $srcmbx, $src );
           next unless $message;
           $copied++ if insertMsg( $dst, $dstmbx, *message, $flags, $date);

           #lösche die aktuelle email nach dem kopieren von src server
           deleteMsg( $srcmbx, $msgnum, $src );
        }

Code: (dl )

sub deleteMsg {

my $srcmbx    = shift;
my $msgnum = shift;
my $src   = shift;
my $rc;

   sendCommand ( $src, "1 STORE $msgnum +FLAGS (\\Deleted)");
   while (1) {
        readResponse ($src);
        print "$response";
        if ( $response =~ /^1 OK/i ) {
	   $rc = 1;
	   Log("       Marked msg number $msgnum for delete");
	   last;
	}

	if ( $response =~ /^1 BAD|^1 NO/i ) {
	   Log("Error setting \Deleted flag for msg $msgnum: $response");
	   $rc = 0;
	   last;
	}
   }

   return $rc;

}