X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fcyrus.pm;h=84c9e5a30bd4ba83add688e71c979d8cc31b38bc;hb=e975ed0585280f4cbb90b02f57114dedc43f58be;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..84c9e5a30 100644
--- a/FS/FS/part_export/cyrus.pm
+++ b/FS/FS/part_export/cyrus.pm
@@ -1,10 +1,31 @@
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',
+ '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 +116,5 @@ sub cyrus_connect {
#sub cyrus_replace { #subroutine, not method
#}
+1;