X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fcyrus.pm;h=246d5b3dcea6913d17f4f9a00012120d5dc2fe7d;hb=6a509099343ed155525c4304f1ad742cc6e4ce59;hp=110ff198f2fd8179f5075303a94f6a498ccd1b12;hpb=eb9668a6f3181ee02cb335272c5ee4616e61fd09;p=freeside.git
diff --git a/FS/FS/part_export/cyrus.pm b/FS/FS/part_export/cyrus.pm
index 110ff198f..246d5b3dc 100644
--- a/FS/FS/part_export/cyrus.pm
+++ b/FS/FS/part_export/cyrus.pm
@@ -1,10 +1,33 @@
package FS::part_export::cyrus;
-use vars qw(@ISA);
+use vars qw(@ISA %info);
+use Tie::IxHash;
use FS::part_export;
@ISA = qw(FS::part_export);
+tie my %options, 'Tie::IxHash',
+ 'server' => { label=>'IMAP server' },
+ 'username' => { label=>'Admin username' },
+ 'password' => { label=>'Admin password' },
+;
+
+%info = (
+ 'svc' => 'svc_acct',
+ 'desc' => 'Real-time export to Cyrus IMAP server',
+ 'options' => \%options,
+ 'nodomain' => 'Y',
+ 'no_machine' => 1, #de facto... but "server" option should move to it
+ 'default_svc_class' => 'Email',
+ 'notes' => <<'END'
+Integration with
+Cyrus IMAP Server.
+Cyrus::IMAP::Admin should be installed locally and the connection to the
+server secured. svc_acct.quota, if available, is used to set the
+Cyrus quota.
+END
+);
+
sub rebless { shift; }
sub _export_insert {
@@ -95,4 +118,5 @@ sub cyrus_connect {
#sub cyrus_replace { #subroutine, not method
#}
+1;