Initial commit
This commit is contained in:
commit
db0f2e62ca
|
@ -0,0 +1 @@
|
|||
drop_sogo_response
|
|
@ -0,0 +1,39 @@
|
|||
#!/usr/bin/perl -wT
|
||||
=head1 NAME
|
||||
|
||||
drop_sogo_response
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Drop email if it's a SOGo response for an appointment
|
||||
and set it to NEEDS-ADCTION
|
||||
Work around a problem in outlook dav where invitaions status are not correctly synced
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Daniel Berteaud <daniel@firewall-services.com>
|
||||
|
||||
=head1 LICENSE
|
||||
|
||||
GNU GPL v2 (GNU General Public License)
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
sub register {
|
||||
my ($self, $qp, %arg) = @_;
|
||||
$self->register_hook("data_post", "drop_sogo_response");
|
||||
}
|
||||
|
||||
|
||||
sub drop_sogo_response {
|
||||
my ($self, $transaction) = @_;
|
||||
my $type = $transaction->header->get('X-SOGo-Message-Type') or return DECLINED;
|
||||
$type =~ m/^calendar:invitation-reply$/ or return DECLINED;
|
||||
my $subj = $transaction->header->get('Subject') or return DECLINED;
|
||||
my $r = qr{=\?UTF-8\?q\?Sans_d=C3=A9cision};
|
||||
$subj =~ m/$r/m or return DECLINED;
|
||||
$self->log(LOGINFO, "SOGo response detected, droping email");
|
||||
return DENY;
|
||||
}
|
||||
|
|
@ -0,0 +1,43 @@
|
|||
%define name smeserver-qpsmtpd-oldwa
|
||||
%define version 0.1.0
|
||||
%define release 0.beta1
|
||||
|
||||
Summary: Work around for OutlookDAV
|
||||
Name: %{name}
|
||||
Version: %{version}
|
||||
Release: %{release}%{?dist}
|
||||
License: GNU GPL (GNU General Public License)
|
||||
Group: Mail
|
||||
Source: %{name}-%{version}.tar.gz
|
||||
BuildRoot: /var/tmp/%{realname}-%{version}-buildroot/
|
||||
BuildArch: noarch
|
||||
Requires: smeserver-release >= 8
|
||||
BuildRequires: e-smith-devtools
|
||||
AutoReqProv: no
|
||||
|
||||
%description
|
||||
Work Around a problem with OutlookDAV where invitations status are not synced correctly
|
||||
with SOGo, which cause bogus meeting cancellations
|
||||
|
||||
%changelog
|
||||
* Wed May 13 2015 Daniel Berteaud <daniel@firewall-services.com> - 0.1.0-1.sme
|
||||
- initial release
|
||||
|
||||
%prep
|
||||
%setup -q -n %{name}-%{version}
|
||||
|
||||
%build
|
||||
|
||||
%install
|
||||
rm -rf $RPM_BUILD_ROOT
|
||||
(cd root ; find . -depth -print | cpio -dump $RPM_BUILD_ROOT)
|
||||
rm -f %{name}-%{version}-filelist
|
||||
/sbin/e-smith/genfilelist $RPM_BUILD_ROOT > %{name}-%{version}-filelist
|
||||
|
||||
%clean
|
||||
cd ..
|
||||
rm -rf %{name}-%{version}
|
||||
|
||||
%files -f %{name}-%{version}-filelist
|
||||
%defattr(-,root,root)
|
||||
|
Loading…
Reference in New Issue