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; |