Ви не можете вибрати більше 25 тем Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.

cyrus-mailbox-postedit.pl 737B

123456789101112131415161718192021222324252627282930313233
  1. #!/usr/bin/perl
  2. # Cyrus Mailbox edition
  3. #
  4. # Iñaki Rodriguez (irodriguez@virtualminds.es / irodriguez@ackstorm.es)
  5. #
  6. # LICENSE
  7. # This source file is subject to the GPL license that is bundled with
  8. # this package in the file LICENSE.TXT.
  9. #
  10. # (26/10/2009)
  11. use Cyrus::IMAP::Admin;
  12. require '/etc/mail/postfixadmin/cyrus.conf';
  13. use strict;
  14. use vars qw($cyrus_user $cyrus_password $cyrus_host);
  15. my %opts;
  16. my $mailbox = mailbox_name($ARGV[0]);
  17. my $client = Cyrus::IMAP::Admin->new($cyrus_host);
  18. die_on_error($client);
  19. $opts{-user} = $cyrus_user;
  20. $opts{-password} = $cyrus_password;
  21. $client->authenticate(%opts);
  22. die_on_error($client);
  23. $client->setquota($mailbox,'STORAGE',scalar $ARGV[3]) if ($ARGV[3] > 0);
  24. die_on_error($client);