Versionskonflikt

[Dawit]

ok habe mein skript soweit fertig
entwickelt hab ich es auf lenny
läuft toll ... super ... freu....

doch dann ...
laufen soll das script auf einem etch server

also qemu ausgepackt und druff mit etch und script rennen lassen ...
PUFF nix geht ....

Virtuelle/live Maschine (etch):
dpkg -l | grep libmail => libmail-imapclient-perl 2.2.9+deb-4

Lokale Maschine (Lenny):
dpkg -l | grep libmail => libmail-imapclient-perl 3.08-2

use IO::Socket::SSL;
use Mail::IMAPClient;
use Data::Dumper;

my $ssl = IO::Socket::SSL->new (Proto=>'tcp',
						PeerAddr=>"imap.server.de",
						PeerPort=>993);

my $imap = Mail::IMAPClient->new(Server   => "imap.server.de",
							Socket => $ssl,
							User           => "dawit\@test.bla",
						        Password => ********,
) || die "build instance of Mail::IMAPClient failed: $@ \n";

  
#$imap->State ($imap->Connected);
#print "Set State : " . $imap->State . "\n";


if($imap->Connected){
	#print Dumper $imap->folders();
	my $folder = "INBOX";
	if($imap->selectable($folder)&& $imap->unseen_count($folder) > 0){

	}
}else{
		die "Connection to IMAP Server failed: $!\n\n";
}

$imap->close or die "Could not close: $@\n";

Error sending '1 LIST "" INBOX' to IMAP: at /home/..../imap.pl line 55
Use of uninitialized value in pattern match (m//) at /usr/share/perl5/Mail/IMAPClient.pm line 3174.
Not connected at /home/...../imap.pl line 55
Error sending '2 STATUS INBOX (UNSEEN)' to IMAP: at /home/..../imap.pl line 55
Use of uninitialized value in numeric gt (>) at /home/..../imap.pl line 55.
Not connected at /home/...../imap.pl line 137
Error sending '3 close' to IMAP: at /home/..../imap.pl line 137
Could not close: Error sending '3 close' to IMAP:

hab mir die IMAPClient.pm auch schon angeguckt
die versionen sind natürlich schon bisschen anders aber ich kann jetzt die etch auch schlecht umschrebein , da ich das auf den servern im live sys auch nciht tun kann

woran kann es also liegen und was kann ich tun ....

 

[Dawit]

ok es geht pö a pö voran

nur jetzt will er mir nicht die INBOX selecten, geschweige denn die Folder auflisten (unter Lennny kein ding etch halt ne ^^)

print Dumper $imap->folders(); 
$folder="INBOX";
if($imap->selectable($folder)){
		print "Ich schnapp mir die inbox\n";	
		$imap->select($folder) or die "Could not select: $@\n";
}

"Ich schnapp mir die inbox\n" gibt er auch aus und dann folgt

Use of uninitialized value in pattern match (m//) at /usr/share/perl5/Mail/IMAPClient.pm line 2168.

3 BAD Unknown command d6if512534fga.8