411 |
411 |
412 #if (($e->get_value("iusRestrictedMail")||"") eq "TRUE") { |
412 #if (($e->get_value("iusRestrictedMail")||"") eq "TRUE") { |
413 #print " INTERNAL"; |
413 #print " INTERNAL"; |
414 #} |
414 #} |
415 |
415 |
416 |
416 # das imap protokoll sieht keine zustandsänderung von 'authenticated' |
|
417 # zu 'not authenticated' vor - daher müssen wir für jeden nutzer eine |
|
418 # eigene verbindung aufbauen |
|
419 $imap = Mail::IMAPTalk->new(Server => $Cf->imap_server, Port => $Cf->imap_port) |
|
420 or die "Can't connect to IMAP Server '", $Cf->imap_server, "', Port '", $Cf->imap_port, "': ", $@; |
417 $imap->login("$uid*" . $Cf->imap_admin, $imap_password ) or die $@; |
421 $imap->login("$uid*" . $Cf->imap_admin, $imap_password ) or die $@; |
418 my $folders = $imap->list('', '*') or die $@; |
422 my $folders = $imap->list('', '*') or die $@; |
419 my %q; |
423 my %q; |
420 for my $f(@{$folders}) { |
424 for my $f(@{$folders}) { |
421 # single folder sieht wie folgt aus: [[flag1, flag2, ...], separator, foldername] |
425 # single folder sieht wie folgt aus: [[flag1, flag2, ...], separator, foldername] |
422 my $q = $imap->getquotaroot($f->[2]) or die $@; |
426 my $q = $imap->getquotaroot($f->[2]) or die $@; |
423 delete $q->{quotaroot}; |
427 delete $q->{quotaroot}; |
424 %q = ( %q, %{$q} ); |
428 %q = ( %q, %{$q} ); |
425 } |
429 } |
|
430 $imap->logout or die $@; |
426 |
431 |
427 # da wir uns anmelden konnten haben wir auch eine 'mbox' |
432 # da wir uns anmelden konnten haben wir auch eine 'mbox' |
428 print ", mbox"; |
433 print ", mbox"; |
429 my $has_quota; |
434 my $has_quota; |
430 for my $qr(keys %q) { |
435 for my $qr(keys %q) { |