On Tuesday 01 April 2003 12:41, Taras Heychenko wrote:
Господа, кто-нибудь может ткнуть на _понятную_ документацию по квотам в cyrus? Или в двух словах объяснить, как можно выставить одинаковую квоту на все почтовые ящики, а потом для некоторых эту квоту менять?
проще всего выставлять квоту сразу при регистрации юзера. вот поделка, которой я регистрирую юзеров в цирусе. можешь подправить, для того чтобы пройтись уже по существующим юзерам и выставить им квоту. #! /usr/bin/perl -w # #use Getopt::Long; #use Cyrus::IMAP; use Cyrus::IMAP::Admin; sub usage { print "usage:\n"; print " ./addcyrus user"; print "\n"; exit 0; } if (@ARGV) { $user = shift(@ARGV); } else { usage; } if (!defined $user) { print "user name not set\n"; usage; } my $server = 'biscont.com'; my $auth = 'cyrusadm'; my $pw = 'xxx'; my $mech = 'DIGEST-MD5'; my $quotalimit = 12288; print "Connected to IMAP server. Authenticating...\n" if my $cyrus = Cyrus::IMAP::Admin->new($server) or die "cyrus: cannot connect to server\n"; print "Authentication to $server with $mech as $auth successful.\n" if $cyrus->authenticate(-user => $auth, -mechanism => $mech, -password => $pw) or die "!!!cyrus: cannot authenticate to $server with $mech as $auth\n"; print "create mailbox user.$user\n" if $cyrus->createmailbox("user.$user") or die "!!!cyrus: error creating mailbox user.$\n"; print "create mailbox user.$user.drafts\n" if $cyrus->createmailbox("user.$user.drafts") or die "!!!cyrus: error creating mailbox user.$\n.drafts"; print "create mailbox user.$user.sent-mail\n" if $cyrus->createmailbox("user.$user.sent-mail") or die "!!!cyrus: error creating mailbox user.$user.sent-mail\n"; print "Setting quota $quotalimit on user.$user...\n" if $cyrus->setquota("user.$user", "storage", $quotalimit) or die "!!!cyrus: error setting quota"; -- wbr, slava [vovk-uanic] =================================================================== uanog mailing list. To Unsubscribe: send mail to majordomo@uanog.kiev.ua with "unsubscribe uanog" in the body of the message