account.pm
branchfoerste
changeset 52 aad3d38deac0
parent 51 fd55e111838d
child 53 a1399e17cca4
equal deleted inserted replaced
51:fd55e111838d 52:aad3d38deac0
   450             Port   => $Cf->imap_port
   450             Port   => $Cf->imap_port
   451           )
   451           )
   452           or die "Can't connect to IMAP Server '", $Cf->imap_server,
   452           or die "Can't connect to IMAP Server '", $Cf->imap_server,
   453           "', Port '", $Cf->imap_port, "': ", $@;
   453           "', Port '", $Cf->imap_port, "': ", $@;
   454         $imap->login( "$uid*" . $Cf->imap_admin, $imap_password ) or die $@;
   454         $imap->login( "$uid*" . $Cf->imap_admin, $imap_password ) or die $@;
   455         my $folders = $imap->list( '', '*' ) or die $@;
   455 
   456         my %q;
   456         my %q;
   457         for my $f ( @{$folders} ) {
   457         if ($imap->capability->{quota}) {
   458 
   458 
   459             # single folder sieht wie folgt aus: [[flag1, flag2, ...], separator, foldername]
   459             my $folders = $imap->list( '', '*' ) or die $@;
   460             my $q = $imap->getquotaroot( $f->[2] ) or die $@;
   460 
   461             delete $q->{quotaroot};
   461             for my $f ( @{$folders} ) {
   462             %q = ( %q, %{$q} );
   462 
   463         }
   463                 # single folder sieht wie folgt aus: [[flag1, flag2, ...], separator, foldername]
       
   464                 next if '\\Noselect' ~~ $f->[0];
       
   465                 my $q = $imap->getquotaroot( $f->[2] )
       
   466                     or $@ eq q{IMAP Command : 'getquotaroot' failed. Response was : no - Not showing other users' quota.}
       
   467                     or die $@;
       
   468                 delete $q->{quotaroot};
       
   469                 %q = ( %q, %{$q} );
       
   470 
       
   471             }
       
   472 
       
   473         }
       
   474 
   464         $imap->logout or die $@;
   475         $imap->logout or die $@;
   465 
   476 
   466         # da wir uns anmelden konnten haben wir auch eine 'mbox'
   477         # da wir uns anmelden konnten haben wir auch eine 'mbox'
   467         print ", mbox";
   478         print ", mbox";
   468         my $has_quota;
   479         my $has_quota;