quiet option to cancel method
[freeside.git] / FS / FS / part_export / cyrus.pm
1 package FS::part_export::cyrus;
2
3 use vars qw(@ISA);
4 use FS::part_export;
5
6 @ISA = qw(FS::part_export);
7
8 sub rebless { shift; }
9
10 sub _export_insert {
11   my($self, $svc_acct) = (shift, shift);
12   $self->cyrus_queue( $svc_acct->svcnum, 'insert',
13     $svc_acct->username, $svc_acct->quota );
14 }
15
16 sub _export_replace {
17   my( $self, $new, $old ) = (shift, shift, shift);
18   return "can't change username using Cyrus"
19     if $old->username ne $new->username;
20   return '';
21 #  #return '' unless $old->_password ne $new->_password;
22 #  $self->cyrus_queue( $new->svcnum,
23 #    'replace', $new->username, $new->_password );
24 }
25
26 sub _export_delete {
27   my( $self, $svc_acct ) = (shift, shift);
28   $self->cyrus_queue( $svc_acct->svcnum, 'delete',
29     $svc_acct->username );
30 }
31
32 #a good idea to queue anything that could fail or take any time
33 sub cyrus_queue {
34   my( $self, $svcnum, $method ) = (shift, shift, shift);
35   my $queue = new FS::queue {
36     'svcnum' => $svcnum,
37     'job'    => "FS::part_export::cyrus::cyrus_$method",
38   };
39   $queue->insert(
40     $self->option('server'),
41     $self->option('username'),
42     $self->option('password'),
43     @_
44   );
45 }
46
47 sub cyrus_insert { #subroutine, not method
48   my $client = cyrus_connect(shift, shift, shift);
49   my( $username, $quota ) = @_;
50   my $rc = $client->create("user.$username");
51   my $error = $client->error;
52   die "creating user.$username: $error" if $error;
53
54   $rc = $client->setacl("user.$username", $username => 'all' );
55   $error = $client->error;
56   die "setacl user.$username: $error" if $error;
57
58   if ( $quota ) {
59     $rc = $client->setquota("user.$username", 'STORAGE' => $quota );
60     $error = $client->error;
61     die "setquota user.$username: $error" if $error;
62   }
63
64 }
65
66 sub cyrus_delete { #subroutine, not method
67   my ( $server, $admin_username, $password_username, $username ) = @_;
68   my $client = cyrus_connect($server, $admin_username, $password_username);
69
70   my $rc = $client->setacl("user.$username", $admin_username => 'all' );
71   my $error = $client->error;
72   die $error if $error;
73
74   $rc = $client->delete("user.$username");
75   $error = $client->error;
76   die $error if $error;
77 }
78
79 sub cyrus_connect {
80
81   my( $server, $admin_username, $admin_password ) = @_;
82
83   eval "use Cyrus::IMAP::Admin;";
84
85   my $client = Cyrus::IMAP::Admin->new($server);
86   $client->authenticate(
87     -user      => $admin_username,
88     -mechanism => "login",       
89     -password  => $admin_password,
90   );
91   $client;
92
93 }
94
95 #sub cyrus_replace { #subroutine, not method
96 #}
97
98