Request 3076 (accepted)

Overview

Request 3076 (accepted)

Initial checkin

Created by mollekopf almost 2 years ago
In state accepted
Open review for kolab-developers

Submit package home:mollekopf...lab:Winterfell / aspell-en to package Kolab:16:Testing / aspell-en

aspell-en.spec Added

@@ -0,0 +1,208 @@
+%define lang en
+%define langrelease 0
+%define aspellversion 6
+Summary: English dictionaries for Aspell
+Name: aspell-%{lang}
+Epoch: 50
+Version: 2020.12.07
+Release: 6%{?dist}
+License: MIT and BSD
+URL: http://aspell.net/
+Source: ftp://ftp.gnu.org/gnu/aspell/dict/%{lang}/aspell%{aspellversion}-%{lang}-%{version}-%{langrelease}.tar.bz2
+Buildrequires: aspell >= 12:0.60
+BuildRequires: make
+Requires: aspell >= 12:0.60
+Obsoletes: aspell-en-gb <= 0.33.7.1
+Obsoletes: aspell-en-ca <= 0.33.7.1
+Supplements: (aspell and langpacks-en)
+Supplements: (aspell and langpacks-en_GB)
+
+%define debug_package %{nil}
+
+%description
+Provides the word list/dictionaries for the following: English, Canadian
+English, British English
+
+%prep
+%setup -q -n aspell%{aspellversion}-%{lang}-%{version}-%{langrelease}
+
+%build
+./configure
+make
+
+%install
+rm -rf $RPM_BUILD_ROOT
+make install DESTDIR=$RPM_BUILD_ROOT
+
+%files
+%doc Copyright
+%{_libdir}/aspell-0.60/*
+
+%changelog
+* Wed Jul 20 2022 Fedora Release Engineering <releng@fedoraproject.org> - 50:2020.12.07-6
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_37_Mass_Rebuild
+
+* Wed Jan 19 2022 Fedora Release Engineering <releng@fedoraproject.org> - 50:2020.12.07-5
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_36_Mass_Rebuild
+
+* Wed Jul 21 2021 Fedora Release Engineering <releng@fedoraproject.org> - 50:2020.12.07-4
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_35_Mass_Rebuild
+
+* Wed Feb 3 2021 Peter Oliver <rpm@mavit.org.uk> - 50:2020.12.07-3
+- Recommend the installation of these dictionaries when both aspell and an English langpack are installed.
+
+* Tue Jan 26 2021 Fedora Release Engineering <releng@fedoraproject.org> - 50:2020.12.07-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_34_Mass_Rebuild
+
+* Fri Dec 11 2020 Nikola Forró <nforro@redhat.com> - 50:2020.12.07-1
+- Update to version 2020.12.07
+ resolves #1905302
+
+* Mon Jul 27 2020 Fedora Release Engineering <releng@fedoraproject.org> - 50:2019.10.06-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_33_Mass_Rebuild
+
+* Tue Jan 28 2020 Fedora Release Engineering <releng@fedoraproject.org> - 50:2019.10.06-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_32_Mass_Rebuild
+
+* Tue Oct 08 2019 Nikola Forró <nforro@redhat.com> - 50:2019.10.06-1
+- Update to version 2019.10.06
+ resolves #1758940
+
+* Wed Jul 24 2019 Fedora Release Engineering <releng@fedoraproject.org> - 50:2018.04.16-4
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_31_Mass_Rebuild
+
+* Thu Jan 31 2019 Fedora Release Engineering <releng@fedoraproject.org> - 50:2018.04.16-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_30_Mass_Rebuild
+
+* Thu Jul 12 2018 Fedora Release Engineering <releng@fedoraproject.org> - 50:2018.04.16-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_29_Mass_Rebuild
+
+* Tue Apr 17 2018 Nikola Forró <nforro@redhat.com> - 50:2018.04.16-1
+- Update to version 2018.04.16
+ resolves #1568393
+
+* Wed Feb 07 2018 Fedora Release Engineering <releng@fedoraproject.org> - 50:2017.08.24-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_28_Mass_Rebuild
+
+* Tue Aug 29 2017 Nikola Forró <nforro@redhat.com> - 50:2017.08.24-1
+- Update to version 2017.08.24
+ resolves #1485079
+
+* Wed Aug 02 2017 Fedora Release Engineering <releng@fedoraproject.org> - 50:2015.04.24-5
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Binutils_Mass_Rebuild
+
+* Wed Jul 26 2017 Fedora Release Engineering <releng@fedoraproject.org> - 50:2015.04.24-4
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Mass_Rebuild
+
+* Fri Feb 10 2017 Fedora Release Engineering <releng@fedoraproject.org> - 50:2015.04.24-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_26_Mass_Rebuild
+
+* Wed Feb 03 2016 Fedora Release Engineering <releng@fedoraproject.org> - 50:2015.04.24-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_24_Mass_Rebuild
+
+* Tue Nov 24 2015 Nikola Forró <nforro@redhat.com> - 50:2015.04.24-1
+- Update to version 2015.04.24
+ resolves #1284167
+
+* Wed Jun 17 2015 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 50:7.1-9
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_23_Mass_Rebuild
+
+* Fri Aug 15 2014 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 50:7.1-8
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_21_22_Mass_Rebuild
+
+* Sat Jun 07 2014 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 50:7.1-7
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_21_Mass_Rebuild
+
+* Sat Aug 03 2013 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 50:7.1-6
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_20_Mass_Rebuild
+
+* Wed Feb 13 2013 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 50:7.1-5
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_19_Mass_Rebuild
+
+* Wed Jul 18 2012 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 50:7.1-4
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_18_Mass_Rebuild
+
+* Thu Jan 12 2012 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 50:7.1-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_17_Mass_Rebuild
+
+* Mon Feb 07 2011 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 50:7.1-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_15_Mass_Rebuild
+
+* Mon Jan 17 2011 Ivana Hutarova Varekova <varekova@redhat.com> 50:7.1-1
+- update to aspell6-en-7.1
+
+* Mon Jan 3 2011 Ivana Hutarova Varekova <varekova@redhat.com> 50:7.0-1
+- update to aspell6-en-7.0
+
+* Fri Jul 24 2009 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 50:6.0-11
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_12_Mass_Rebuild
+
+* Mon Feb 23 2009 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 50:6.0-10
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_11_Mass_Rebuild
+
+* Wed Feb 20 2008 Fedora Release Engineering <rel-eng@fedoraproject.org> - 50:6.0-9
+- Autorebuild for GCC 4.3
+
+* Thu Aug 30 2007 Ivana Varekova <varekova@redhat.com> - 50:6.0-8
+- fix #62225 - add practice to gb world lists
+
+* Fri Mar 30 2007 Ivana Varekova <varekova@redhat.com> - 50:6.0-7
+- add version to obstolete flag
+
+* Thu Mar 29 2007 Ivana Varekova <varekova@redhat.com> - 50:6.0-5
+- add documentation
+- change license tag
+
+* Thu Mar 29 2007 Ivana Varekova <varekova@redhat.com> - 50:6.0-4
+- update default buildroot
+
+* Thu Mar 29 2007 Ivana Varekova <varekova@redhat.com> - 50:6.0-3
+- update to aspell6
+- use configure script to create Makefile
+- some minor spec changes
+
+* Wed Jul 12 2006 Jesse Keating <jkeating@redhat.com> - 50:6.0-2.1
+- rebuild
+
+* Fri Mar 3 2006 Ivana Varekova <varekova@redhat.com> - 50:6.0-2
+- removed "offencive" (#154352), add "practice" (#62225)
+
+* Fri Feb 10 2006 Jesse Keating <jkeating@redhat.com> - 50:6.0-1.2.1
+- bump again for double-long bug on ppc(64)
+
+* Tue Feb 07 2006 Jesse Keating <jkeating@redhat.com> - 50:6.0-1.2
+- rebuilt for new gcc4.1 snapshot and glibc changes
+
+* Fri Dec 09 2005 Jesse Keating <jkeating@redhat.com>
+- rebuilt
+
+* Mon Jul 18 2005 Ivana Varekova <varekova@redhat.com> 50:6.0-1
+- update to aspell5-en-6.0
+- build with aspell-0.60.3
+
+* Mon Apr 11 2005 Ivana Varekova <varekova@redhat.com> 50:0.51-12
+- rebuilt
+
+* Wed Sep 29 2004 Adrian Havill <havill@redhat.com> 50:0.51-11
+- remove debuginfo
+
+* Thu Aug 26 2004 Adrian Havill <havill@redhat.com> 50:0.51-10
+- obsolete -en-gb and -en-ca for upgrades
+
+* Wed Aug 11 2004 Adrian Havill <havill@redhat.com> 50:0.51-9
+- sync epoch with other aspell dicts, upgrade to 0.51-1
+
+* Tue Jun 15 2004 Elliot Lee <sopwith@redhat.com>
+- rebuilt
+
+* Tue Mar 02 2004 Elliot Lee <sopwith@redhat.com>
+- rebuilt
+
+* Fri Feb 13 2004 Elliot Lee <sopwith@redhat.com>
+- rebuilt
+
+* Mon Jun 23 2003 Adrian Havill <havill@redhat.com> 0.51-6
+- data files are not arch independent
+
+* Fri Jun 20 2003 Adrian Havill <havill@redhat.com> 0.51-5
+- first build for new aspell (0.50)

aspell6-en-2020.12.07-0.tar.bz2 Added

Build Results
RPM Lint

Refresh

Submit package home:mollekopf:b...olab:Winterfell / chwala to package Kolab:16:Testing / chwala

chwala.spec Changed

Build Results
RPM Lint

Refresh

Submit package home:mollekop...ab:Winterfell / cyrus-imapd to package Kolab:16:Testing / cyrus-imapd

cyrus-imapd.spec Changed

@@ -1,873 +1,2194 @@
-%if 0%{?opensuse_bs} && 0%{?suse_version} < 1
-#!BuildIgnore: systemd
-%endif
-
-%if 0%{?suse_version} < 1 && 0%{?fedora} < 1 && 0%{?rhel} < 7
-%global with_systemd 0
-%else
-%global with_systemd 1
-%{!?_unitdir: %global _unitdir /usr/lib/systemd/system}
-%endif
-
-%global ssl_pem_file %{_sysconfdir}/pki/%{name}/%{name}.pem
+%global testdata_commit ca669d4b76c71cbeb4fa840e263e2c031e19ea88
+%global testdata_short %(echo %{testdata_commit} | cut -c -8)
 
-%global uid 76
-%global gid 76
+# Cassandane was split into separate CI test, run '--with cassandane' to enable it.
+%bcond_with cassandane
 
-%global _cyrususer cyrus
-%global _cyrusgroup mail
-%global _cyrexecdir %{_exec_prefix}/lib/%{name}
-
-%global tag_version 2.5.17
-%global revision 34
-%global git_hash 3e2a85d6e
-
-##
-## Options
-##
-
-%global with_bdb 0
-%global with_mysql 0
-%global with_pgsql 0
-
-%global with_dav 0
-%global with_tcpwrap 0
-%global with_zlib 0
-
-Name: cyrus-imapd
-Summary: A high-performance mail server with IMAP, POP3, NNTP and SIEVE support
-Version: %{tag_version}.%{revision}
-Release: 1%{?dist}
-License: BSD
-Group: System Environment/Daemons
-URL: http://www.cyrusimap.org
-
-Source0: ftp://ftp.andrew.cmu.edu/pub/cyrus/%{name}-%{tag_version}-%{revision}-%{git_hash}.tar.gz
-Source1: cyrus-imapd.imap-2.3.x-conf
-Source2: cyrus-imapd.cvt_cyrusdb_all
-Source3: cyrus-imapd.magic
-
-# Distribution specific sources
-Source11: cyrus-imapd.logrotate
-Source12: cyrus-imapd.pam-config
-Source13: cyrus-imapd.cron-daily
-
-# SysVinit
-Source21: cyrus-imapd.init
-Source22: cyrus-imapd.sysconfig
-
-# Systemd support
-Source31: cyrus-imapd.service
-Source32: cyr_systemd_helper
-
-##
-## Patches
-##
-
-BuildRoot: %(mktemp -ud %{_tmppath}/%{name}-%{version}-%{release}-XXXXXX)
-
-##
-## Build Requirements
-##
-BuildRequires: autoconf
-BuildRequires: automake
-BuildRequires: bison
-BuildRequires: cyrus-sasl-devel
-%if 0%{?suse_version}
-BuildRequires: cunit-devel
-BuildRequires: cyrus-sasl-digestmd5
-%else
-BuildRequires: CUnit-devel
-BuildRequires: cyrus-sasl-md5
-%endif
-BuildRequires: cyrus-sasl-plain
+Name: cyrus-imapd
+Version: 3.6.0
+Release: 1%{?dist}
+
+%define ssl_pem_file_prefix /etc/pki/%name/%name
+
+# UID/GID 76 have long been reserved for Cyrus
+%define uid 76
+%define gid 76
+
+%define cyrususer cyrus
+%define cyrusgroup mail
+%define cyrexecdir %_libexecdir/%name
+
+%global __provides_exclude ^perl\$AnnotateInlinedCIDs\$$
+
+Summary: A high-performance email, contacts and calendar server
+License: BSD
+URL: http://www.cyrusimap.org/
+
+Source0: cyrus-imapd-%version-rc1.tar.gz
+
+
+# Adapt a timeout to handle our slower builders
+Patch0: patch-cyrus-testsuite-timeout
+
+# Fedora-specific patch for the default configuration file
+Patch1: patch-cyrus-default-configs
+
+# We rename quota to cyr_quota to avoid a conflict with /usr/bin/quota; one
+# place in the source must be patched to match.
+Patch2: patch-cyrus-rename-quota
+
+# Workaround for some compiled Perl modules not being linked against
+# libpcreposix, which causes them to fail to load.
+# https://bugzilla.redhat.com/show_bug.cgi?id=1668723
+# https://github.com/cyrusimap/cyrus-imapd/issues/2629#issuecomment-456925909
+Patch3: patch-cyrus-perl-linking
+
+# https://github.com/cyrusimap/cyrus-imapd/pull/3892
+Patch4: patch-cyrus-squatter-assert-crash
+
+Patch5: 0001-Fixed-CALDAV-PUT-requests-while-proxying.patch
+Patch6: 0002-Openssl-3.0-fixes.patch
+Patch7: 0003-Configurable-default-addressbook-display-name.patch
+Patch8: 0004-Autocreate-on-PROPFIND.patch
+
+Source10: cyrus-imapd.logrotate
+Source11: cyrus-imapd.pam-config
+Source12: cyrus-imapd.sysconfig
+Source13: cyrus-imapd.magic
+# XXX A systemd timer would probably be better
+Source14: cyrus-imapd.cron-daily
+Source15: README.rpm
+Source16: cyrus-imapd.service
+Source17: cyrus-imapd-init.service
+Source18: cyrus-imapd.tmpfiles.conf
+
+# Source files for running the Cassandane test suite at build time.
+Source80: https://github.com/brong/Net-CalDAVTalk/archive/%{testdata_commit}/cassandane-testdata-%{testdata_short}.tar.gz
+
+# A template config file for cassandane; we will substitute in varions values.
+Source81: cassandane.ini
+
+# These are source files and not patches because you can't use autosetup to
+# apply patches to secondary unpacked source files.
+
+# Prevent cassandane from trying to syslog things
+Source91: patch-cassandane-no-syslog
+
+# Tell the annotator script to run as the current user/group
+# Upstream ticket https://github.com/cyrusimap/cyrus-imapd/issues/1995
+Source92: patch-cassandane-fix-annotator
+
+# TODO libexec/cyrus-imapd path element got into upstream:
+# https://github.com/cyrusimap/cyrus-imapd/commit/9233f70bf7a2872ab0b456ea294ce36e0e01e182
+# try to get fixed the below upstream to work on Fedora:
+# https://github.com/cyrusimap/cyrus-imapd/commit/f10eee167313418d84e63d215310477d4fe68e94
+Source93: patch-cassandane-xapian-delve-path
+
+
+BuildRequires: autoconf automake bison flex gcc gcc-c++ git glibc-langpack-en
+BuildRequires: groff libtool make pkgconfig rsync systemd transfig
+
+BuildRequires: perl-devel perl-generators perl(ExtUtils::MakeMaker)
+BuildRequires: perl(Pod::Html)
+
+
+%if 0%{?fedora} && 0%{?fedora} >= 0
+BuildRequires: clamav-devel shapelib-devel
+%endif
+BuildRequires: CUnit-devel cyrus-sasl-devel glib2-devel
+BuildRequires: jansson-devel krb5-devel libical-devel libicu-devel
+BuildRequires: libnghttp2-devel libxml2-devel mariadb-connector-c-devel net-snmp-devel
+BuildRequires: openldap-devel openssl-devel pcre-devel libpq-devel
+BuildRequires: sqlite-devel xapian-core-devel
+
+# Miscellaneous modules needed for 'make check' to function:
+BuildRequires: cyrus-sasl-plain cyrus-sasl-md5
+
+%if %{with cassandane}
+# Additional packages required for cassandane to function
+BuildRequires: imaptest net-tools words
+BuildRequires: perl-interpreter
+BuildRequires: perl(AnyEvent) perl(AnyEvent::Handle) perl(AnyEvent::Socket)
+BuildRequires: perl(AnyEvent::Util) perl(attributes) perl(base)
+BuildRequires: perl(BSD::Resource) perl(bytes) perl(Carp) perl(charnames)
+BuildRequires: perl(Clone) perl(Config) perl(Config::IniFiles) perl(constant)
+BuildRequires: perl(Cwd) perl(Data::Dumper) perl(DateTime)
+BuildRequires: perl(DateTime::Format::ISO8601) perl(Digest::MD5) perl(Encode)
+BuildRequires: perl(Errno) perl(experimental) perl(Exporter)
+BuildRequires: perl(File::Basename) perl(File::chdir) perl(File::Find)
+BuildRequires: perl(File::Path) perl(File::Slurp) perl(File::stat)
+BuildRequires: perl(File::Temp) perl(Getopt::Long) perl(HTTP::Tiny)
+BuildRequires: perl(IO::File) perl(IO::Handle) perl(IO::Scalar)
+BuildRequires: perl(IO::Socket::INET) perl(IO::Socket::INET6)
+BuildRequires: perl(IO::Socket::UNIX) perl(JSON) perl(JSON::XS) perl(lib)
+BuildRequires: perl(Mail::IMAPTalk) perl(Mail::JMAPTalk) >= 0.11
+BuildRequires: perl(Math::Int64) perl(MIME::Base64)
+BuildRequires: perl(Net::CalDAVTalk) >= 0.12 perl(Net::CardDAVTalk) >= 0.05
+BuildRequires: perl(Net::CardDAVTalk::VCard) perl(Net::DAVTalk)
+BuildRequires: perl(Net::POP3) perl(Net::Server::PreForkSimple)
+BuildRequires: perl(News::NNTPClient) perl(overload)
+BuildRequires: perl(POSIX) perl(Scalar::Util) perl(Storable) perl(strict)
+BuildRequires: perl(String::CRC32) perl(Sys::Hostname) perl(Sys::Syslog)
+BuildRequires: perl(Test::Unit::Exception) perl(Test::Unit::Listener)
+BuildRequires: perl(Test::Unit::Result) perl(Test::Unit::Runner)
+BuildRequires: perl(Test::Unit::TestCase) perl(Test::Unit::TestRunner)
+BuildRequires: perl(Time::HiRes) perl(URI) perl(URI::Escape) perl(User::pwent)
+BuildRequires: perl(utf8) perl(vars) perl(warnings) perl(XML::DOM)
+BuildRequires: perl(XML::Generator) perl(XML::Spice)
+BuildRequires: clamav-data perl(Unix::Syslog)
+BuildRequires: perl(HTTP::Daemon) perl(DBI) perl(Net::LDAP::Constant)
+BuildRequires: perl(Net::LDAP::Server)
+BuildRequires: perl(Module::Load::Conditional)
 
-%if 0%{?with_bdb}
-%if 0%{?suse_version}
-BuildRequires: db-devel
-%else
-%if 0%{?fedora} > 15 || 0%{?rhel} > 6
-BuildRequires: libdb-devel
-%else
-BuildRequires: db4-devel
-%endif
-%endif
+# These were only for JMAP-Tester
+# perl(Moo), perl(Moose), perl(MooseX::Role::Parameterized) perl(Throwable), perl(Safe::Isa)
 %endif
 
-BuildRequires: flex
-#BuildRequires: gcc-c++
-BuildRequires: gcc
-
-%if 0%{?suse_version} >= 1310
-BuildRequires: groff-full
-%else
-BuildRequires: groff
-%endif
-
-%if 0%{?suse_version}
-BuildRequires: libjansson4-devel
-%else
-BuildRequires: jansson-devel
-%endif
-BuildRequires: krb5-devel
+Requires(pre): shadow-utils
+%{?systemd_requires}
 
-%if 0%{?with_dav}
-BuildRequires: libical-devel
-%endif
+Requires: %name-utils = %version-%release
+Requires: file sscg
+Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
 
-BuildRequires: libtool
-BuildRequires: libuuid-devel
+%{?perl_default_filter}
 
-%if 0%{?with_mysql}
-BuildRequires: mysql-devel
-%endif
+%description
+The Cyrus IMAP (Internet Message Access Protocol) server provides access to
+personal mail, system-wide bulletin boards, news-feeds, calendar and contacts
+through the IMAP, JMAP, NNTP, CalDAV and CardDAV protocols. The Cyrus IMAP
+server is a scalable enterprise groupware system designed for use from small to
+large enterprise environments using technologies based on well-established Open
+Standards.
+
+A full Cyrus IMAP implementation allows a seamless mail and bulletin board
+environment to be set up across one or more nodes. It differs from other IMAP
+server implementations in that it is run on sealed nodes, where users are not
+normally permitted to log in. The mailbox database is stored in parts of the
+filesystem that are private to the Cyrus IMAP system. All user access to mail
+is through software using the IMAP, IMAPS, JMAP, POP3, POP3S, KPOP, CalDAV
+and/or CardDAV protocols.
+
+The private mailbox database design gives the Cyrus IMAP server large
+advantages in efficiency, scalability, and administratability. Multiple
+concurrent read/write connections to the same mailbox are permitted. The server
+supports access control lists on mailboxes and storage quotas on mailbox
+hierarchies.
 
-%if 0%{?suse_version}
-BuildRequires: openldap2-devel
-%else
-BuildRequires: openldap-devel
-%endif
 
-BuildRequires: openssl-devel
-BuildRequires: perl(ExtUtils::MakeMaker)
+%package devel
+Summary: Cyrus IMAP server development files
+Requires: %name%{?_isa} = %version-%release
+Requires: pkgconfig
 
-%if 0%{?suse_version}
-BuildRequires: perl
-%else
-BuildRequires: perl-devel
-%endif
+%description devel
+The %name-devel package contains header files and libraries
+necessary for developing applications which use the imclient library.
 
-BuildRequires: pkgconfig
 
-%if 0%{?with_pgsql}
-BuildRequires: postgresql-devel
-%endif
+%package doc-extra
+Summary: Extra documentation for the Cyrus IMAP server
+BuildArch: noarch
 
-%if 0%{?with_dav}
-BuildRequires: sqlite-devel
-%endif
+%description doc-extra
+This package contains the HTML documentation for the Cyrus IMAP server, as well
+as some legacy and internal documentation not useful for normal operation of
+the server.
 
-%if 0%{?with_systemd}
-%if 0%{?suse_version}
-BuildRequires: systemd
-%endif
-%endif
 
-%if 0%{?with_tcpwrap}
-%if 0%{?suse_version}
-BuildRequires: tcpd-devel
-%else
-BuildRequires: tcp_wrappers
-%endif
-%endif
+%package libs
+Summary: Runtime libraries for cyrus-imapd
 
-BuildRequires: transfig
-%if 0
-# Disable the xapian-core requirement
-BuildRequires: xapian-core-devel
-%endif
+%description libs
+The cyrus-imapd-libs package contains libraries shared by the Cyrus IMAP server
+and the its utilities.
 
-%if 0%{?suse_version}
-PreReq: /usr/sbin/groupadd
-PreReq: /usr/sbin/useradd
-%endif
 
-%if 0%{?suse_version}
-Requires: db-utils
-%else
-Requires: db4-utils
-%endif
+%package utils
+Summary: Cyrus IMAP server administration utilities
+Requires: cyrus-imapd = %{version}-%{release}
 
-Requires: file
-Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+%description utils
+The cyrus-imapd-utils package contains administrative tools for the
+Cyrus IMAP server. It can be installed on systems other than the
+one running the server.
 
-Requires(post): coreutils
-Requires(post): e2fsprogs
-Requires(post): findutils
-Requires(post): grep
-Requires(post): make
-Requires(post): openssl
-Requires(post): perl
-Requires(preun): coreutils
-
-%if 0%{?with_systemd}
-%if 0%{?suse_version}
-PreReq: %fillup_prereq
-%{?systemd_requires}
-%else
-%if 0%{?opensuse_bs} == 0
-Requires(post): systemd-units
-Requires(preun): systemd-units, coreutils
-Requires(postun): systemd-units
-%endif
-%endif
-%else
-%if 0%{?suse_version}
-PreReq: %fillup_prereq
-PreReq: %insserv_prereq
-%else
-Requires(preun): chkconfig
-Requires(preun): initscripts
-Requires(post): chkconfig
-Requires(post): initscripts
-Requires(postun): initscripts
-%endif
-%endif
 
-Obsoletes: %{name}-perl < %{version}-%{release}
-Provides: %{name}-perl = %{version}-%{release}
-Obsoletes: %{name}-utils < %{version}-%{release}
-Provides: %{name}-utils = %{version}-%{release}
+%package virusscan
+Summary: Cyrus virus scanning utility
 
-%description
-The %{name} package contains the core of the Cyrus IMAP server.
-It is a scaleable enterprise mail system designed for use from
-small to large enterprise environments using standards-based
-internet mail technologies.
-
-A full Cyrus IMAP implementation allows a seamless mail and bulletin
-board environment to be set up across multiple servers. It differs from
-other IMAP server implementations in that it is run on "sealed"
-servers, where users are not normally permitted to log in and have no
-system account on the server. The mailbox database is stored in parts
-of the filesystem that are private to the Cyrus IMAP server. All user
-access to mail is through software using the IMAP, POP3 or KPOP
-protocols. It also includes support for virtual domains, NNTP,
-mailbox annotations, and much more. The private mailbox database design
-gives the server large advantages in efficiency, scalability and
-administratability. Multiple concurrent read/write connections to the
-same mailbox are permitted. The server supports access control lists on
-mailboxes and storage quotas on mailbox hierarchies.
-
-The Cyrus IMAP server supports the IMAP4rev1 protocol described
-in RFC 3501. IMAP4rev1 has been approved as a proposed standard.
-It supports any authentication mechanism available from the SASL
-library, imaps/pop3s/nntps (IMAP/POP3/NNTP encrypted using SSL and
-TLSv1) can be used for security. The server supports single instance
-store where possible when an email message is addressed to multiple
-recipients, SIEVE provides server side email filtering.
+%description virusscan
+The cyrus-imapd-virusscan package contains the cyr_virusscan utility. It
+exists in a separate package so that users who do not wish to install all of
+the clamav suite don't have to.
 
-%package devel
-Group: Development/Libraries
-Summary: Cyrus IMAP server development files
+Install this package if you wish to use the internal cyrus virus scanning
+utility.
 
-%description devel
-The %{name}-devel package contains header files and libraries
-necessary for developing applications which use the imclient library.
 
-%prep
-%setup -q -n %{name}-%{tag_version}-%{revision}-%{git_hash}
+%package -n perl-Cyrus
+Summary: Perl libraries for interfacing with Cyrus IMAPd
 
-%if 0%{?with_bdb} < 1
-sed -i -e 's/,berkeley//g' cunit/aaa-db.testc
-sed -r -i -e 's/"berkeley(|-a-z-+)", //g' lib/imapoptions
-%endif
+%description -n perl-Cyrus
+This package contains Perl libraries used to interface with Cyrus IMAPd.
 
-# only to update config.* files
-autoreconf -vi || (libtoolize --force && autoreconf -vi)
 
-# Modify docs master --> cyrus-master
-%{__perl} -pi -e "s@master$8$@cyrus-master(8)@" man/*5 man/*8 lib/imapoptions
-%{__sed} -i -e 's|$^-$master|\1cyrus-master|g;s|^master|cyrus-master|g;s|Master|Cyrus-master|g;s|MASTER|CYRUS-MASTER|g' \
- man/master.8 doc/man.html
-
-%if 0%{?with_dav}
-# Modify docs httpd --> cyrus-httpd
-%{__perl} -pi -e "s@httpd$8$@cyrus-httpd(8)@" man/*5 man/*8 lib/imapoptions
-%{__sed} -i -e 's|$^-$httpd|\1cyrus-httpd|g;s|^httpd|cyrus-httpd|g;s|Httpd|Cyrus-httpd|g;s|HTTPD|CYRUS-HTTPD|g' \
- man/httpd.8 doc/man.html
-%endif
+%prep
+%autosetup -p1
+echo %version > VERSION
 
-# Modify path in perl scripts
-find . -type f -name "*.pl" | xargs %{__perl} -pi -e "s@/usr/local/bin/perl@%{__perl}@"
+# Install the Fedora-specific documentation file
+install -m 644 %SOURCE15 doc/
 
-# modify lmtp socket path in .conf files
-%{__perl} -pi -e "s@/var/imap/@%{_var}/lib/imap/@" master/conf/*.conf doc/cyrusv2.mc doc/m4/%{name}-sendmail-8.12.9-cyrusv2.m4
+%if %{with cassandane}
+pushd cassandane
+mkdir work
+tar xf %SOURCE80
+
+patch -p1 < %SOURCE91
+patch -p1 < %SOURCE92
+patch -p1 < %SOURCE93
+
+cp %SOURCE81 cassandane.ini
+# RF rpm-buildroot-usage
+sed -i \
+ -e "s!CASSDIR!$(pwd)!" \
+ -e "s!BUILDROOT!%buildroot!" \
+ cassandane.ini
+
+popd
+%endif
+
+# The pm files have shebang lines for some reason
+sed -i -e '1{/usr.bin.perl/d}' perl/annotator/{Message,Daemon}.pm
+
+# This one uses env
+sed -i -e '1i#!/usr/bin/perl' -e '1d' tools/rehash
+
+# These files have a bizarre perl-in-shell shebang setup. The exec perl bit
+# sometimes comes after a long comment block. All use magic to turn on -w.
+# Some of these aren't installed, but we might as well fix them all just in
+# case.
+sed -i \
+ -e '1i#!/usr/bin/perl -w' \
+ -e '/^#!\/usr\/bin\/perl/d' \
+ -e '/^exec perl/d' \
+ -e '/^#!perl -w/d' \
+ -e '/^#!perl/d' \
+ -e '/^#!\/bin\/sh/d' \
+ -e '/^#! \/bin\/sh/d' \
+ perl/sieve/scripts/installsieve.pl \
+ perl/sieve/scripts/sieveshell.pl perl/imap/cyradm.sh tools/config2header \
+ tools/masssievec tools/config2rst tools/mknewsgroups tools/config2sample \
+ tools/mkimap tools/translatesieve
+# UPDATE: as of 3.4.2 most of the above files got the shabang fixed. Leaving
+# the fixed files and this memo here temporarily:
+# cyrus-imapd-*/nmp/snmpgen - no longer exists
+# cyrus-imapd-*/perl/sieve/scripts/installsieve.pl - still contains shabang
+# cyrus-imapd-*/perl/sieve/scripts/sieveshell.pl - fixed
+# cyrus-imapd-*/perl/imap/cyradm.sh - still contains shabang
+# cyrus-imapd-*/tools/config2header - fixed
+# cyrus-imapd-*/tools/masssievec - fixed
+# cyrus-imapd-*/tools/config2rst - fixed
+# cyrus-imapd-*/tools/mknewsgroups - fixed
+# cyrus-imapd-*/tools/config2sample - fixed
+# cyrus-imapd-*/tools/mkimap - fixed
+# cyrus-imapd-*/tools/translatesieve - still contains shabang
 
-# enable idled in .conf files to prevent error messages
-%{__perl} -pi -e "s/# idled/ idled/" master/conf/*.conf
 
 %build
-CPPFLAGS="%{?optflags} -I%{_includedir}/et -I%{_includedir}/kerberosIV"; export CPPFLAGS
-CFLAGS="%{?optflags} -fPIC"; export CFLAGS
-CXXFLAGS="%{?optflags} -fPIC"; export CXXFLAGS
-CCDLFLAGS="-rdynamic"; export CCDLFLAGS
-%ifnarch ppc ppc64
-LDFLAGS="$LDFLAGS -pie"; export LDFLAGS
-%endif
-
-%{configure} \
- --enable-event-notification \
- --enable-gssapi \
+# This is the test suite, which doesn't build much but does verify its dependencies.
+# If this is done after the configure call, the one thing it does build fails
+# because the configure macro puts some hardening flags into the environment.
+%if %{with cassandane}
+pushd cassandane
+export NOCYRUS=1
+make
+popd
+%endif
+
+# Notes about configure options:
+# --enable-objectstore
+# It's experimental, and it doesn't appear that either openio or caringo are
+# in Fedora.
+# --with-cyrus-prefix and --with-service-path went away; use --with-libexecdir=
+# instead.
+
+# Needed because of Patch4.
+autoreconf -vi
+
+%configure \
+ --disable-silent-rules \
+ \
+ --libexecdir=%cyrexecdir \
+ --with-clamav \
+ --with-extraident="%release Fedora" \
+ --with-krbimpl=mit \
+ --with-ldap=/usr \
+ --with-libwrap=no \
+ --with-mysql \
+ --with-pgsql \
+ --with-perl=%__perl \
+ --with-snmp \
+ --with-syslogfacility=MAIL \
+ \
+ --enable-autocreate \
+ --enable-backup \
+ --enable-calalarmd \
+ --enable-http \
 --enable-idled \
 --enable-murder \
- --enable-netscapehack \
 --enable-nntp \
 --enable-replication \
 --enable-unit-tests \
-%if 0
 --enable-xapian \
-%endif
-%if 0%{?with_bdb}
-%if 0%{?fedora} >= 20 || 0%{?rhel} || 0%{?suse_version}
- --with-bdb-incdir=%{_includedir}/db4 \
-%else
- --with-bdb-incdir=%{_includedir}/libdb4 \
-%endif
-%else
- --without-bdb \
-%endif
- --with-cyrus-prefix=%{_cyrexecdir} \
- --with-extraident="Kolab-%{version}-%{release}" \
- --without-clamav \
-%if 0%{?with_tcpwrap} < 1
- --without-wrap \
-%endif
-%if 0%{?with_zlib} < 1
- --without-zlib \
-%endif
-%if 0%{?with_dav}
- --with-http \
-%endif
- --with-krbimpl=mit \
- --with-ldap=/usr \
-%if 0%{?with_mysql}
- --with-mysql=%{_prefix} \
- --with-mysql-incdir=%{_includedir}/mysql/ \
- --with-mysql-libdir=%{_libdir}/mysql/ \
-%endif
- --with-perl=%{__perl} \
-%if 0%{?with_pgsql}
- --with-pgsql=%{_includedir} \
-%endif
- --with-service-path=%{_cyrexecdir} \
- --with-syslogfacility=MAIL
+#
 
-%{__make} %{?_smp_mflags}
+# Try to get rid of RPATH....
+sed -i 's|^hardcode_libdir_flag_spec=.*|hardcode_libdir_flag_spec=""|g' libtool
+sed -i 's|^runpath_var=LD_RUN_PATH|runpath_var=DIE_RPATH_DIE|g' libtool
+
+# The configure script will set up the Perl makefiles, but not in the way
+# Fedora needs them. So regenerate them manually.
+for i in perl/annotator perl/imap perl/sieve/managesieve; do
+ pushd $i
+ rm -f Makefile
+ perl Makefile.PL INSTALLDIRS=vendor # NO_PERLOCAL=1 NO_PACKLIST=1
+ popd
+done
 
-%install
-%{__rm} -rf %{buildroot}
+%make_build
 
-# Fix permissions on perl programs
-find . -type f -name "*.pl" -exec %{__chmod} 755 {} \;
+# This isn't built by default, but this package has always installed it.
+make notifyd/notifytest
 
-# Do what the regular make install does
-%{__make} install DESTDIR=%{buildroot} PREFIX=%{_prefix} mandir=%{_mandir} INSTALLDIRS=vendor
 
-# Install tools
-for tool in tools/* ; do
- test -f ${tool} && %{__install} -m 755 ${tool} %{buildroot}%{_cyrexecdir}/
-done
-rm -rf %{buildroot}%{_cyrexecdir}/htmlstrip.c
-rm -rf %{buildroot}%{_cyrexecdir}/config2rst
-rm -rf %{buildroot}%{_cyrexecdir}/perl2rst
+%install
+make install DESTDIR=%buildroot
 
 # Create directories
-%{__install} -d \
- %{buildroot}%{_sysconfdir}/{logrotate.d,pam.d,cron.daily} \
- %{buildroot}%{_libdir}/sasl \
- %{buildroot}%{_var}/spool/imap \
- %{buildroot}%{_var}/lib/imap/{user,quota,proc,log,msg,socket,db,sieve,sync,md5,rpm,backup,meta} \
- %{buildroot}%{_var}/lib/imap/ptclient \
- %{buildroot}%{_sysconfdir}/pki/%{name} \
- doc/contrib
-
-# Install additional files
-%{__install} -p -m 644 master/conf/prefork.conf %{buildroot}%{_sysconfdir}/cyrus.conf
-%{__install} -p -m 644 %{SOURCE1} %{buildroot}%{_sysconfdir}/imapd.conf
-%{__install} -p -m 755 %{SOURCE2} %{buildroot}%{_cyrexecdir}/cvt_cyrusdb_all
-%{__install} -p -m 644 %{SOURCE3} %{buildroot}%{_var}/lib/imap/rpm/magic
-%{__install} -p -m 644 %{SOURCE11} %{buildroot}%{_sysconfdir}/logrotate.d/%{name}
-%{__install} -p -m 644 %{SOURCE12} %{buildroot}%{_sysconfdir}/pam.d/pop
-%{__install} -p -m 644 %{SOURCE12} %{buildroot}%{_sysconfdir}/pam.d/imap
-%{__install} -p -m 644 %{SOURCE12} %{buildroot}%{_sysconfdir}/pam.d/sieve
-%{__install} -p -m 644 %{SOURCE12} %{buildroot}%{_sysconfdir}/pam.d/mupdate
-%{__install} -p -m 644 %{SOURCE12} %{buildroot}%{_sysconfdir}/pam.d/lmtp
-%{__install} -p -m 644 %{SOURCE12} %{buildroot}%{_sysconfdir}/pam.d/nntp
-%{__install} -p -m 644 %{SOURCE12} %{buildroot}%{_sysconfdir}/pam.d/csync
-%{__install} -p -m 755 %{SOURCE13} %{buildroot}%{_sysconfdir}/cron.daily/%{name}
-%if 0%{?suse_version}
-%{__install} -d %{buildroot}%{_localstatedir}/adm/fillup-templates/
-%{__install} -p -m 644 %{SOURCE22} %{buildroot}%{_localstatedir}/adm/fillup-templates/sysconfig.%{name}
-%else
-%{__install} -d %{buildroot}%{_sysconfdir}/sysconfig/
-%{__install} -p -m 644 %{SOURCE22} %{buildroot}%{_sysconfdir}/sysconfig/%{name}
-%endif
+install -d \
+ %buildroot/etc/{rc.d/init.d,logrotate.d,pam.d,sysconfig,cron.daily} \
+ %buildroot/%_libdir/sasl \
+ %buildroot/var/spool/imap \
+ %buildroot/var/lib/imap/{user,quota,proc,log,msg,socket,db,sieve,sync,md5,rpm,backup,meta} \
+ %buildroot/var/lib/imap/ptclient \
+ %buildroot/%_datadir/%name/rpm \
+ %buildroot/%cyrexecdir \
+ %buildroot/etc/pki/%name
+
+install -d -m 0750 \
+ %buildroot/run/cyrus \
+ %buildroot/run/cyrus/socket
+
+install -d -m 0700 \
+ %buildroot/run/cyrus/db \
+ %buildroot/run/cyrus/lock \
+ %buildroot/run/cyrus/proc
+
+# Some tools which aren't installed by the makefile which we have always installed
+install -m 755 notifyd/notifytest %buildroot%_bindir/
+install -m 755 perl/imap/cyradm %buildroot%_bindir/
+for i in arbitronsort.pl masssievec mkimap mknewsgroups rehash translatesieve; do
+ install -m 755 tools/$i %buildroot/%cyrexecdir/
+done
 
-%if 0%{?with_systemd}
-%{__install} -p -D -m 644 %{SOURCE31} %{buildroot}%{_unitdir}/cyrus-imapd.service
-%{__install} -p -D -m 755 %{SOURCE32} %{buildroot}%{_cyrexecdir}/cyr_systemd_helper
-%else
-%{__install} -d %{buildroot}%{_sysconfdir}/rc.d/init.d
-%{__install} -p -m 755 %{SOURCE21} %{buildroot}%{_sysconfdir}/rc.d/init.d/%{name}
-%endif
+install -p -m 644 %SOURCE10 %buildroot/etc/logrotate.d/%name
+
+# PAM configuration files.
+install -p -m 644 %SOURCE11 %buildroot/etc/pam.d/csync
+install -p -m 644 %SOURCE11 %buildroot/etc/pam.d/http
+install -p -m 644 %SOURCE11 %buildroot/etc/pam.d/imap
+install -p -m 644 %SOURCE11 %buildroot/etc/pam.d/lmtp
+install -p -m 644 %SOURCE11 %buildroot/etc/pam.d/mupdate
+install -p -m 644 %SOURCE11 %buildroot/etc/pam.d/nntp
+install -p -m 644 %SOURCE11 %buildroot/etc/pam.d/pop
+install -p -m 644 %SOURCE11 %buildroot/etc/pam.d/sieve
+
+install -p -m 644 %SOURCE12 %buildroot/etc/sysconfig/%name
+install -p -m 644 %SOURCE13 %buildroot/%_datadir/%name/rpm/magic
+install -p -m 755 %SOURCE14 %buildroot/etc/cron.daily/%name
+install -p -m 644 doc/examples/cyrus_conf/prefork.conf %buildroot/etc/cyrus.conf
+install -p -m 644 doc/examples/imapd_conf/normal.conf %buildroot/etc/imapd.conf
+install -p -D -m 644 %SOURCE16 %buildroot/%_unitdir/cyrus-imapd.service
+install -p -D -m 644 %SOURCE17 %buildroot/%_unitdir/cyrus-imapd-init.service
+install -p -D -m 644 %SOURCE18 %buildroot/%_tmpfilesdir/cyrus-imapd.conf
 
 # Cleanup of doc dir
-find doc perl -name CVS -type d | xargs -r %{__rm} -rf
-find doc perl -name .cvsignore -type f | xargs -r %{__rm} -f
-%{__rm} -f doc/Makefile.dist*
-%{__rm} -f doc/text/htmlstrip.c
-%{__rm} -f doc/text/Makefile
-%{__rm} -rf doc/man
+find doc perl -name CVS -type d -prune -exec rm -rf {} \;
+find doc perl -name .cvsignore -type f -exec rm -f {} \;
+rm -f doc/Makefile.dist*
+rm -f doc/text/htmlstrip.c
+rm -f doc/text/Makefile
+rm -rf doc/man
 
 # fix permissions on perl .so files
-find %{buildroot}%{perl_vendorarch} -type f -name "*.so" -exec %{__chmod} 755 {} \;
-
-# fix conflicts with uw-imap
-mv %{buildroot}%{_mandir}/man8/imapd.8 %{buildroot}%{_mandir}/man8/imapd.8cyrus
-mv %{buildroot}%{_mandir}/man8/pop3d.8 %{buildroot}%{_mandir}/man8/pop3d.8cyrus
-
-# Install templates
-%{__install} -m 755 -d doc/conf
-%{__install} -m 644 master/conf/*.conf doc/conf/
+find %buildroot/%_libdir/perl5/ -type f -name "*.so" -exec chmod 755 {} \;
 
 # Generate db config file
-( grep '^{' lib/imapoptions | grep _db | grep -v _db_path | cut -d'"' -f 2,4 | \
+# XXX Is this still necessary?
+( grep '^{' lib/imapoptions | grep _db | cut -d'"' -f 2,4 | \
 sed -e 's/^ *//' -e 's/-nosync//' -e 's/ *$//' -e 's/"/=/'
- echo sieve_version=2.2.3 ) | sort > %{buildroot}%{_var}/lib/imap/rpm/db.cfg
+ echo sieve_version=2.2.3 ) | sort > %buildroot/%_datadir/%name/rpm/db.cfg
 
-# create the ghost pem file
-touch %{buildroot}%{ssl_pem_file}
+# Cyrus has various files with extremely conflicting names. Some of these are
+# not unexpected ("imapd" itself) but some like "httpd" are rather surprising.
 
-# Rename 'master' binary and manpage to avoid clash with postfix
-%{__mv} -f %{buildroot}%{_cyrexecdir}/master %{buildroot}%{_cyrexecdir}/cyrus-master
-%{__mv} -f %{buildroot}%{_mandir}/man8/master.8 %{buildroot}%{_mandir}/man8/cyrus-master.8
-
-# Rename 'httpd' binary and manpage to avoid clash with apache httpd
-%if 0%{?with_dav}
-%{__mv} -f %{buildroot}%{_cyrexecdir}/httpd %{buildroot}%{_cyrexecdir}/cyrus-httpd
-%{__mv} -f %{buildroot}%{_mandir}/man8/httpd.8 %{buildroot}%{_mandir}/man8/cyrus-httpd.8
-%endif
+# Where there are only conflicting manpages, they have been moved to a "8cyrus"
+# section. If the binary was renamed, then the manpages are renamed to match
+# but a internal replacement has not been done. This may lead to more
+# confusion but involves modifying fewer upstream files.
 
+# Actual binary conflicts
 # Rename 'fetchnews' binary and manpage to avoid clash with leafnode
-%{__mv} -f %{buildroot}%{_cyrexecdir}/fetchnews %{buildroot}%{_cyrexecdir}/cyrfetchnews
-%{__mv} -f %{buildroot}%{_mandir}/man8/fetchnews.8 %{buildroot}%{_mandir}/man8/cyrfetchnews.8
-%{__perl} -pi -e 's|fetchnews|cyrfetchnews|g;s|Fetchnews|Cyrfetchnews|g;s/FETCHNEWS/CYRFETCHNEWS/g' \
- %{buildroot}%{_mandir}/man8/cyrfetchnews.8
+mv %buildroot/%_sbindir/fetchnews %buildroot/%_sbindir/cyr_fetchnews
+mv %buildroot/%_mandir/man8/fetchnews.8 %buildroot/%_mandir/man8/cyr_fetchnews.8
+
+# Fix conflict with dump
+mv %buildroot/%_sbindir/restore %buildroot/%_sbindir/cyr_restore
+mv %buildroot/%_mandir/man8/restore.8 %buildroot/%_mandir/man8/cyr_restore.8
+
+# Fix conceptual conflict with quota
+mv %buildroot/%_sbindir/quota %buildroot/%_sbindir/cyr_quota
+mv %buildroot/%_mandir/man8/quota.8 %buildroot/%_mandir/man8/cyr_quota.8
+
+# fix conflicts with uw-imap
+mv %buildroot/%_mandir/man8/imapd.8 %buildroot/%_mandir/man8/imapd.8cyrus
+mv %buildroot/%_mandir/man8/pop3d.8 %buildroot/%_mandir/man8/pop3d.8cyrus
+
+# Rename 'master' manpage
+mv %buildroot/%_mandir/man8/master.8 %buildroot/%_mandir/man8/master.8cyrus
+
+# Rename 'httpd' manpage to avoid clash with Apache
+mv %buildroot/%_mandir/man8/httpd.8 %buildroot/%_mandir/man8/httpd.8cyrus
 
-# compress manpages
- -x /usr/lib/rpm/brp-compress && /usr/lib/rpm/brp-compress
+# Old cyrus packages used to keep the deliver executable in
+# /usr/lib/cyrus-imapd, and MTA configurations might rely on this.
+# Remove this hack in the F30 timeframe.
+# RF hardcoded-library-path in %%buildroot/usr/lib/cyrus-imapd
+mkdir %buildroot/usr/lib/cyrus-imapd
+pushd %buildroot/usr/lib/cyrus-imapd
+ln -s ../../sbin/deliver
+popd
 
-# remove executable bit from docs
+#remove executable bit from docs and Perl modules
 for ddir in doc perl/imap/examples
 do
- find $ddir -type f -exec %{__chmod} -x {} \;
+ find $ddir -type f -exec chmod -x {} \;
 done
 
+# Remove pointless libtool archives
+rm %buildroot/%_libdir/*.la
+
 # Remove installed but not packaged files
-%{__rm} -f %{buildroot}%{_cyrexecdir}/not-mkdep
-%{__rm} -f %{buildroot}%{_cyrexecdir}/config2header*
-%{__rm} -f %{buildroot}%{_cyrexecdir}/config2man
-%{__rm} -f %{buildroot}%{_cyrexecdir}/pop3proxyd
-find %{buildroot} -type f -name "perllocal.pod" -exec %{__rm} -vf {} \;
-find %{buildroot} -type f -name ".packlist" -exec %{__rm} -vf {} \;
-find %{buildroot} -type f -name ".gitignore" -exec %{__rm} -vf {} \;
-%{__rm} -f %{buildroot}%{_mandir}/man8/syncnews.8*
-find %{buildroot}%{perl_vendorarch} -type f -name "*.bs" -exec %{__rm} -vf {} \;
+rm %buildroot/%cyrexecdir/pop3proxyd
+find %buildroot -name "perllocal.pod" -exec rm {} \;
+find %buildroot -name ".packlist" -exec rm {} \;
 
-%check
-make check || :
+# And this one gets installed with executable permission
+chmod -x %buildroot/%perl_vendorlib/Cyrus/Annotator/Daemon.pm
 
-%clean
-%{__rm} -rf %{buildroot}
 
-%pre
-if $1 == 1 ; then
- # Create 'cyrus' user on target host
- /usr/sbin/groupadd -g %{gid} -r saslauth 2> /dev/null || :
- /usr/sbin/useradd -c "Cyrus IMAP Server" -d %{_var}/lib/imap -g %{_cyrusgroup} \
- -G saslauth -s /sbin/nologin -u %{uid} -r %{_cyrususer} 2> /dev/null || :
-fi
+%check
+export LD_LIBRARY_PATH=%buildroot/%_libdir
+export CYRUS_USER=$USER
 
-%post
-%if 0%{?suse_version}
-/sbin/ldconfig
+# TODO: The mime_boundary_extended cunit test fails due to LTO on ppc64le, skip it for now:
+%ifnarch ppc64le
+make %{?_smp_mflags} check || exit 1
 %endif
 
-CHATTRSYNC=0
-
-%if 0%{?suse_version}
-%if 0%{?with_systemd}
- %fillup_only %{name}
-%else
- %fillup_and_insserv %{name}
+%ifarch %{ix86} armv7hl
+exit 0
 %endif
-if ! -e "%{_sysconfdir}/pam.d/runuser" ; then
- ln -s %{_sysconfdir}/pam.d/su %{_sysconfdir}/pam.d/runuser
-fi
-if ! -e "%{_sysconfdir}/pam.d/runuser-l" ; then
- ln -s %{_sysconfdir}/pam.d/su-l %{_sysconfdir}/pam.d/runuser-l
-fi
+
+%if %{without cassandane}
+exit 0
 %endif
 
-if -f "%{_sysconfdir}/sysconfig/cyrus-imapd" ; then
- source %{_sysconfdir}/sysconfig/cyrus-imapd
-fi
-
-if $CHATTRSYNC -eq 1 ; then
- # Force synchronous updates of files in the following directories
- chattr -R +S \
- $(grep ^configdirectory: /etc/imapd.conf | cut -d':' -f2) \
- $(grep ^partition- /etc/imapd.conf | cut -d':' -f2) \
- $(grep ^metapartition- /etc/imapd.conf | cut -d':' -f2) 2>/dev/null ||:
-fi
-
-# Create SSL certificates
-exec > /dev/null 2> /dev/null
-
-if ! -z "%{ssl_pem_file}" -a -z "$(cat %{ssl_pem_file})" ; then
- %{__rm} -f "%{ssl_pem_file}" || :
-fi
-
-if ! -f %{ssl_pem_file} -a -d "%{_sysconfdir}/pki/tls/certs" ; then
- pushd %{_sysconfdir}/pki/tls/certs
- umask 077
- %{__cat} << EOF | make %{name}.pem
---
-SomeState
-SomeCity
-SomeOrganization
-SomeOrganizationalUnit
-localhost.localdomain
-root@localhost.localdomain
-EOF
-
- %{__chown} root.%{_cyrusgroup} %{name}.pem
- %{__chmod} 640 %{name}.pem
- mv %{name}.pem %{ssl_pem_file}
- popd
-fi
+# Run the Cassandane test suite. This will exhaustively test the various
+# server components, but running it in a mock chroot is rather an exercise.
+pushd cassandane
 
-# These commands may fail in a docker container, which may not
-# have a /usr/bin/systemctl with a 'preset' command
-%if 0%{?with_systemd}
-%if 0%{?suse_version}
- %service_add_post cyrus-imapd.service || :
-%else
- %systemd_post cyrus-imapd.service || :
-%endif
-%else
- /sbin/chkconfig --add %{name}
+mkdir -p imaptest/src
+ln -s /usr/bin/imaptest imaptest/src
+ln -s /usr/share/imaptest/tests imaptest/src
+
+# Construct the set of excluded tests to pass to Cassandane
+# ---------------------------------------------------------
+exclude=()
+tests=(
+ # This exclusion list was verified on 2021-08-11.
+
+ # This tests coredumping and won't work on a machine where systemd
+ # intercepts coredumps, which includes our builders.
+ Cassandane::Test::Core
+
+ # Can't currently be run at build time because of compiled-in paths. See
+ # https://github.com/cyrusimap/cyrus-imapd/issues/2386
+ Admin.imap_admins
+
+ Rename.intermediate_cleanup
+
+ # TODO check this one
+ Cyrus::List.no_tombstones
+ # TODO run tests outside the build process:
+ # https://bugzilla.redhat.com/show_bug.cgi?id=1887674
+ # The below tests try to search in syslog file which we don't allow due to mock,
+ # happenes for:
+ # $ grep -R "assert.*@lines" cyrus-imapd-*/cassandane/
+ Reconstruct.reconstruct_snoozed
+ SearchSquat.simple
+ SearchSquat.skip_unmodified
+)
+for i in ${tests@}; do exclude+=("!$i"); done
+
+
+%ifarch s390x
+# This one test fails occasionally on s390x because the hosts are just too slow
+# to complete it.D It's testing something valid (that the fork rate limiting
+# settings work properly) but s390x can't fork quickly enough to exceeed the
+# limits it's testing.
+exclude+=("!Master.maxforkrate")
 %endif
 
+# Add -vvv for too much output
+./testrunner.pl %{?_smp_mflags} -v -f pretty ${exclude@} 2>&1
+
+
+%pre
+# Create 'cyrus' user on target host
+getent group saslauth >/dev/null || /usr/sbin/groupadd -g %gid -r saslauth
+getent passwd cyrus >/dev/null || /usr/sbin/useradd -c "Cyrus IMAP Server" -d /var/lib/imap -g %cyrusgroup \
+ -G saslauth -s /sbin/nologin -u %uid -r %cyrususer
+
+%post
+%systemd_post cyrus-imapd.service
+
 %preun
-%if 0%{?with_systemd}
-%if 0%{?suse_version}
- %service_del_preun cyrus-imapd.service
-%else
- %systemd_preun cyrus-imapd.service >/dev/null 2>&1 || :
-%endif
-%else
- if $1 = 0 ; then
- /sbin/service %{name} stop >/dev/null 2>&1 || :
- /sbin/chkconfig --del %{name}
- fi
-%endif
+%systemd_preun cyrus-imapd.service
 
 %postun
-%if 0%{?suse_version}
-/sbin/ldconfig
-%endif
+%systemd_postun_with_restart cyrus-imapd.service
 
-%if 0%{?with_systemd}
-%if 0%{?suse_version}
- %service_del_postun cyrus-imapd.service
-%else
- %systemd_postun_with_restart cyrus-imapd.service
-%endif
-%else
- if $1 != 0 ; then
- /sbin/service %{name} condrestart >/dev/null 2>&1 || :
- fi
-%endif
 
 %files
-%defattr(-,root,root,-)
-%doc COPYING README
-%doc doc/*
-%config(noreplace) %{_sysconfdir}/cyrus.conf
-%config(noreplace) %{_sysconfdir}/imapd.conf
-%if 0%{?with_systemd}
-%{_unitdir}/cyrus-imapd.service
-%{_cyrexecdir}/cyr_systemd_helper
-%else
-%{_sysconfdir}/rc.d/init.d/%{name}
-%endif
-%dir %{_sysconfdir}/pki
-%config(noreplace) %{_sysconfdir}/logrotate.d/%{name}
-%if 0%{?suse_version}
-%config(noreplace) %{_localstatedir}/adm/fillup-templates/sysconfig.%{name}
-%else
-%attr(0640,root,%{_cyrusgroup}) %config(noreplace) %{_sysconfdir}/sysconfig/%{name}
-%endif
-%config(noreplace) %{_sysconfdir}/pam.d/pop
-%config(noreplace) %{_sysconfdir}/pam.d/imap
-%config(noreplace) %{_sysconfdir}/pam.d/sieve
-%config(noreplace) %{_sysconfdir}/pam.d/lmtp
-%config(noreplace) %{_sysconfdir}/pam.d/mupdate
-%config(noreplace) %{_sysconfdir}/pam.d/csync
-%config(noreplace) %{_sysconfdir}/pam.d/nntp
-%attr(0755,root,root) %{_bindir}/cyradm
-%{_bindir}/imtest
-%{_bindir}/installsieve
-%{_bindir}/lmtptest
-%{_bindir}/mupdatetest
-%{_bindir}/nntptest
-%{_bindir}/pop3test
-%{_bindir}/sieveshell
-%{_bindir}/sivtest
-%{_bindir}/smtptest
-%{_bindir}/synctest
-%{_sysconfdir}/cron.daily/%{name}
-%dir %{_cyrexecdir}
-%{_cyrexecdir}/arbitron
-%{_cyrexecdir}/arbitronsort.pl
-%{_cyrexecdir}/chk_cyrus
-%{_cyrexecdir}/compile_st.pl
-%{_cyrexecdir}/convert-sieve.pl
-%{_cyrexecdir}/cyr_deny
-%{_cyrexecdir}/cyr_df
-%{_cyrexecdir}/cyr_info
-#%%{_cyrexecdir}/ctl_conversationsdb
-%{_cyrexecdir}/ctl_cyrusdb
-%{_cyrexecdir}/ctl_deliver
-%{_cyrexecdir}/ctl_mboxlist
-%{_cyrexecdir}/cvt_cyrusdb
-%{_cyrexecdir}/cyr_buildinfo
-%{_cyrexecdir}/cyr_dbtool
-%{_cyrexecdir}/cyr_expire
-%{_cyrexecdir}/cyr_sequence
-%{_cyrexecdir}/cyr_synclog
-%{_cyrexecdir}/cyr_userseen
-%{_cyrexecdir}/cyrdump
-%if 0%{?with_dav}
-%{_cyrexecdir}/cyrus-httpd
-%endif
-%{_cyrexecdir}/cyrus-master
-%{_cyrexecdir}/deliver
-%{_cyrexecdir}/dohash
-%{_cyrexecdir}/fixsearchpath.pl
-%{_cyrexecdir}/fud
-%exclude %{_cyrexecdir}/git-version.sh
-#%%{_cyrexecdir}/hammer_cyrusdb
-%{_cyrexecdir}/imapd
-%{_cyrexecdir}/ipurge
-%exclude %{_cyrexecdir}/jenkins-build.sh
-%{_cyrexecdir}/lmtpd
-%{_cyrexecdir}/lmtpproxyd
-%{_cyrexecdir}/masssievec
-%{_cyrexecdir}/mbexamine
-%{_cyrexecdir}/mbpath
-%{_cyrexecdir}/mbtool
-#%%{_cyrexecdir}/message_test
-%{_cyrexecdir}/migrate-metadata
-%{_cyrexecdir}/mkimap
-%{_cyrexecdir}/mknewsgroups
-%{_cyrexecdir}/notifyd
-%{_cyrexecdir}/pop3d
-%{_cyrexecdir}/quota
-%{_cyrexecdir}/reconstruct
-%{_cyrexecdir}/rehash
-#%%{_cyrexecdir}/search_test
-%{_cyrexecdir}/sievec
-%{_cyrexecdir}/sieved
-%{_cyrexecdir}/smmapd
-#%%{_cyrexecdir}/squat_dump
-%{_cyrexecdir}/squatter
-%{_cyrexecdir}/timsieved
-%{_cyrexecdir}/tls_prune
-%{_cyrexecdir}/translatesieve
-%{_cyrexecdir}/undohash
-%{_cyrexecdir}/unexpunge
-%{_cyrexecdir}/upgradesieve
-%{_cyrexecdir}/cvt_cyrusdb_all
-%{_cyrexecdir}/idled
-%{_cyrexecdir}/mupdate
-%{_cyrexecdir}/mupdate-loadgen.pl
-%{_cyrexecdir}/proxyd
-%{_cyrexecdir}/sync_client
-%{_cyrexecdir}/sync_reset
-%{_cyrexecdir}/sync_server
-%{_cyrexecdir}/cyrfetchnews
-%{_cyrexecdir}/nntpd
-%{_cyrexecdir}/ptdump
-%{_cyrexecdir}/ptexpire
-%{_cyrexecdir}/ptloader
-%attr(0750,%{_cyrususer},%{_cyrusgroup}) %dir %{_var}/lib/imap
-%attr(0750,%{_cyrususer},%{_cyrusgroup}) %dir %{_var}/lib/imap/backup
-%attr(0750,%{_cyrususer},%{_cyrusgroup}) %dir %{_var}/lib/imap/db
-%attr(0750,%{_cyrususer},%{_cyrusgroup}) %dir %{_var}/lib/imap/log
-%attr(0750,%{_cyrususer},%{_cyrusgroup}) %dir %{_var}/lib/imap/meta
-%attr(0750,%{_cyrususer},%{_cyrusgroup}) %dir %{_var}/lib/imap/md5
-%attr(0750,%{_cyrususer},%{_cyrusgroup}) %dir %{_var}/lib/imap/msg
-%attr(0750,%{_cyrususer},%{_cyrusgroup}) %{_var}/lib/imap/proc
-%attr(0750,%{_cyrususer},%{_cyrusgroup}) %{_var}/lib/imap/ptclient
-%attr(0750,%{_cyrususer},%{_cyrusgroup}) %dir %{_var}/lib/imap/quota
-%attr(0750,%{_cyrususer},%{_cyrusgroup}) %dir %{_var}/lib/imap/rpm
-%attr(0750,%{_cyrususer},%{_cyrusgroup}) %dir %{_var}/lib/imap/sieve
-%attr(0750,%{_cyrususer},%{_cyrusgroup}) %{_var}/lib/imap/socket
-%attr(0750,%{_cyrususer},%{_cyrusgroup}) %dir %{_var}/lib/imap/sync
-%attr(0750,%{_cyrususer},%{_cyrusgroup}) %dir %{_var}/lib/imap/user
-%attr(0750,%{_cyrususer},%{_cyrusgroup}) %dir %{_var}/spool/imap
-%{_libdir}/*.so.*
-%{_var}/lib/imap/rpm/*
+%doc README.md doc/README.* doc/examples doc/text
+
+%_sbindir/*
+%_datadir/cyrus-imapd
+%_mandir/man5/*
+%_mandir/man8/*
+%exclude %_sbindir/cyr_virusscan
+%exclude %_mandir/man8/cyr_virusscan.8*
+
+# For the legacy symlink to the deliver binary
+# RF hardcoded-library-path in /usr/lib/cyrus-imapd
+/usr/lib/cyrus-imapd/
+
+
+%dir /etc/pki/cyrus-imapd
+%attr(0644,root,%cyrusgroup) %ghost %config(missingok,noreplace) %verify(not md5 size mtime) %ssl_pem_file_prefix-ca.pem
+%attr(0644,root,%cyrusgroup) %ghost %config(missingok,noreplace) %verify(not md5 size mtime) %ssl_pem_file_prefix.pem
+%attr(0640,root,%cyrusgroup) %ghost %config(missingok,noreplace) %verify(not md5 size mtime) %ssl_pem_file_prefix-key.pem
+
+%config(noreplace) /etc/cyrus.conf
+%config(noreplace) /etc/imapd.conf
+%config(noreplace) /etc/logrotate.d/cyrus-imapd
+%config(noreplace) /etc/sysconfig/cyrus-imapd
+%config(noreplace) /etc/pam.d/*
+
+/etc/cron.daily/cyrus-imapd
+%_unitdir/cyrus-imapd.service
+%_unitdir/cyrus-imapd-init.service
+%_tmpfilesdir/cyrus-imapd.conf
+
+%dir %cyrexecdir/
+%cyrexecdir/a-uw-z*
+
+# This creates some directories which in the default configuration cyrus will
+# never use because they are placed under /run instead. However, old
+# configurations or setup advice from the 'net might reference them, and so
+# it's simpler to just leave them in the package.
+%attr(0750,%cyrususer,%cyrusgroup) %dir /var/lib/imap/
+%attr(0700,%cyrususer,%cyrusgroup) /var/lib/imap/backup/
+%attr(0700,%cyrususer,%cyrusgroup) /var/lib/imap/db/
+%attr(0700,%cyrususer,%cyrusgroup) /var/lib/imap/log/
+%attr(0700,%cyrususer,%cyrusgroup) /var/lib/imap/meta/
+%attr(0700,%cyrususer,%cyrusgroup) /var/lib/imap/md5/
+%attr(0700,%cyrususer,%cyrusgroup) /var/lib/imap/msg/
+%attr(0700,%cyrususer,%cyrusgroup) /var/lib/imap/proc/
+%attr(0700,%cyrususer,%cyrusgroup) /var/lib/imap/ptclient/
+%attr(0700,%cyrususer,%cyrusgroup) /var/lib/imap/quota/
+%attr(0700,%cyrususer,%cyrusgroup) /var/lib/imap/rpm/
+%attr(0700,%cyrususer,%cyrusgroup) /var/lib/imap/sieve/
+%attr(0750,%cyrususer,%cyrusgroup) /var/lib/imap/socket
+%attr(0700,%cyrususer,%cyrusgroup) /var/lib/imap/sync/
+%attr(0700,%cyrususer,%cyrusgroup) /var/lib/imap/user/
+%attr(0700,%cyrususer,%cyrusgroup) /var/spool/imap/
+
+# The new locations
+%attr(0750,%cyrususer,%cyrusgroup) %dir /run/cyrus/
+%attr(0700,%cyrususer,%cyrusgroup) /run/cyrus/db/
+%attr(0700,%cyrususer,%cyrusgroup) /run/cyrus/lock/
+%attr(0700,%cyrususer,%cyrusgroup) /run/cyrus/proc/
+%attr(0750,%cyrususer,%cyrusgroup) /run/cyrus/socket/
+
+
+%files devel
+%_includedir/cyrus/
+%_libdir/libcyrus*.so
+%_libdir/pkgconfig/*.pc
+%_mandir/man3/imclient.3*
+
+
+%files doc-extra
+%doc doc/html doc/internal doc/legacy
+
+
+%files libs
+%license COPYING
+%_libdir/libcyrus*.so.*
+
+
+%files utils
+%{_bindir}/*
+%_mandir/man1/*
+
+
+%files virusscan
+%_sbindir/cyr_virusscan
+%_mandir/man8/cyr_virusscan.8*
+
+
+%files -n perl-Cyrus
+%license COPYING
 %doc perl/imap/README
 %doc perl/imap/Changes
 %doc perl/imap/examples
-%dir %{perl_vendorarch}/Cyrus
-%dir %{perl_vendorarch}/Cyrus/IMAP
-%{perl_vendorarch}/Cyrus/IMAP/Admin.pm
-%{perl_vendorarch}/Cyrus/IMAP/Shell.pm
-%{perl_vendorarch}/Cyrus/IMAP/IMSP.pm
-%{perl_vendorarch}/Cyrus/IMAP.pm
-%dir %{perl_vendorarch}/Cyrus/SIEVE
-%{perl_vendorarch}/Cyrus/SIEVE/managesieve.pm
-%dir %{perl_vendorlib}/Cyrus/
-%dir %{perl_vendorlib}/Cyrus/Annotator
-%{perl_vendorlib}/Cyrus/Annotator/Daemon.pm
-%{perl_vendorlib}/Cyrus/Annotator/Message.pm
-%dir %{perl_vendorarch}/auto
-%dir %{perl_vendorarch}/auto/Cyrus
-%dir %{perl_vendorarch}/auto/Cyrus/IMAP
-%{perl_vendorarch}/auto/Cyrus/IMAP/IMAP.so
-%dir %{perl_vendorarch}/auto/Cyrus/SIEVE
-%dir %{perl_vendorarch}/auto/Cyrus/SIEVE/managesieve
-%{perl_vendorarch}/auto/Cyrus/SIEVE/managesieve/managesieve.so
-%{_mandir}/man1/*
-%{_mandir}/man3/*
-%{_mandir}/man5/*
-%{_mandir}/man8/*
-%dir %{_sysconfdir}/pki/%{name}
-%attr(0640,root,%{_cyrusgroup}) %ghost %config(missingok,noreplace) %verify(not md5 size mtime) %{ssl_pem_file}
+%perl_vendorarch/auto/Cyrus
+%perl_vendorarch/Cyrus
+%perl_vendorlib/Cyrus
+%_mandir/man3/*.3pm*
 
-%files devel
-%defattr(0644,root,root,0755)
-%{_includedir}/cyrus
-%{_libdir}/pkgconfig/*cyrus*.pc
-%{_libdir}/*.so
-%{_libdir}/*.la
 
 %changelog
-* Wed Jul 28 2021 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.17.34-1
-- Check in 34 revisions ahead of upstream 2.5.17 release
+* Wed Nov 23 2022 Christian Mollekopf <mollekopf@apheleia-it.ch> - 3.6.0-1
+- New upstream release with some patches
 
-* Wed Jan 29 2020 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.15.28-1
-- Fix MessageExpunge event notification when executed from system
+* Fri Sep 09 2022 Martin Osvald <mosvald@redhat.com> - 3.4.4-3
+- Require mariadb-connector-c-devel instead of mariadb-devel (rhbz#2116360)
+- Drop tzdist module. Clients must use OS provided timezone info
+- Drop cyrus-timezones and use system-wide tzdata (rhbz#2116362)
 
-* Tue Oct 29 2019 Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> - 2.5.13.40-1
-- Include the user or group ID in failed login attempts
+* Mon Aug 01 2022 Frantisek Zatloukal <fzatlouk@redhat.com> - 3.4.4-2
+- Rebuilt for ICU 71.1
 
-* Wed Oct 23 2019 Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> - 2.5.13.36-1
-- Rebase on to upstream -2.5 series
-- Fix ptloader group membership (Bifrost T250286)
+* Thu Jul 21 2022 Martin Osvald <mosvald@redhat.com> - 3.4.4-1
+- New version 3.4.4
+- Fix FTBFS caused by missing pcre-devel in BuildRequires (#2109395)
 
-* Mon Aug 19 2019 Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> - 2.5.12.30-1
-- Rebase on to upstream 2.5.13
+* Wed Jul 20 2022 Fedora Release Engineering <releng@fedoraproject.org> - 3.4.3-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_37_Mass_Rebuild
 
-* Tue Mar 12 2019 Timotheus Pokorra <tp@tbits.net> - 2.5.12.25-2
-- Backport patch from upstream for canonification for multiple domains
+* Thu Jun 09 2022 Martin Osvald <mosvald@redhat.com> - 3.4.3-1
+- New version 3.4.3
 
-* Wed Jan 2 2019 Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> - 2.5.12.25-1
-- Rebase on to upstream 2.5.12
+* Wed Jun 01 2022 Jitka Plesnikova <jplesnik@redhat.com> - 3.2.6-10
+- Perl 5.36 rebuild
 
-* Tue Oct 17 2017 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.11-4
-- Fix potentially non-readable, non-writeable /dev/null
+* Thu Jan 20 2022 Fedora Release Engineering <releng@fedoraproject.org> - 3.2.6-9
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_36_Mass_Rebuild
 
-* Tue Dec 13 2016 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.10-55-gb6dbffa
-- Fix proxying extended list usage to backends with answers.
+* Tue Sep 14 2021 Sahana Prasad <sahana@redhat.com> - 3.2.6-8
+- Rebuilt with OpenSSL 3.0.0
 
-* Mon Nov 14 2016 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.10-49-g2e214b4
-- Decode the subject line before re-encoding it in automated responses.
+* Wed Jul 21 2021 Fedora Release Engineering <releng@fedoraproject.org> - 3.2.6-7
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_35_Mass_Rebuild
 
-* Sat Nov 5 2016 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.10-43-g1148d47
-- Preserve the folder uniqueid on rename.
-- Transfer a folder between backends preserving the mailboxes.db uniqueid.
-- Allow replicated backends to transfer mailboxes between pairs.
-- Preserve the original partition as the target partition if not the default
- partition, when replicating or transferring a mailbox.
+* Fri Jun 11 2021 Pavel Zhukov <pzhukov@redhat.com> - 3.2.6-6
+- Disable tests on 32bit arches. Started to fail with perl rebase
 
-* Fri Sep 30 2016 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.9.31-1
-- Check in 31 revisions ahead of upstream 2.5.9 release
+* Sun May 23 2021 Jitka Plesnikova <jplesnik@redhat.com> - 3.2.6-5
+- Perl 5.34 rebuild
 
-* Thu Sep 22 2016 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.9.27-1
-- Check in 27 revisions ahead of upstream 2.5.9 release
+* Wed May 19 2021 Pete Walter <pwalter@fedoraproject.org> - 3.2.6-4
+- Rebuild for ICU 69
 
-* Mon Aug 01 2016 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.9.11-1
-- Check in 11 revisions ahead of upstream 2.5.9 release
+* Mon May 10 2021 Jeff Law <jlaw@tachyum.com> - 3.2.6-3
+- Re-enable LTO
 
-* Thu Jul 7 2016 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.8.22-1
-- Check in 22 revisions ahead of upstream 2.5.8 release
+* Mon Mar 22 2021 Pavel Zhukov <pzhukov@redhat.com> - 3.2.6-2
+- Require online target to prevent binding to down devices
 
-* Thu Jun 02 2016 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.8.12-1
-- Check in 12 revisions ahead of upstream 2.5.8 release
+* Thu Mar 11 2021 Pavel Zhukov <pzhukov@redhat.com> - 3.2.6-1
+- New version v3.2.6
 
-* Mon May 09 2016 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.7.26-1
-- Check in 26 revisions ahead of upstream 2.5.7 release
+* Tue Mar 02 2021 Zbigniew Jędrzejewski-Szmek <zbyszek@in.waw.pl> - 3.2.4-8
+- Rebuilt for updated systemd-rpm-macros
+ See https://pagure.io/fesco/issue/2583.
 
-* Fri Apr 29 2016 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.7.25-1
-- Check in 25 revisions ahead of upstream 2.5.7 release
+* Wed Feb 17 2021 Pavel Zhukov <pzhukov@redhat.com> - 3.2.4-7
+- Require shapelib on Fedoras only
 
-* Mon Mar 21 2016 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.7.10-1
-- Check in 10 revisions ahead of upstream 2.5.7 release
+* Mon Feb 08 2021 Pavel Raiskup <praiskup@redhat.com> - 3.2.4-6
+- rebuild for libpq ABI fix rhbz#1908268
 
-* Thu Mar 10 2016 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.7.8-1
-- Check in 8 revisions ahead of upstream 2.5.7 release
+* Tue Jan 26 2021 Fedora Release Engineering <releng@fedoraproject.org> - 3.2.4-5
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_34_Mass_Rebuild
 
-* Wed Dec 16 2015 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.7-1
-- Upstream release 2.5.7
+* Tue Jan 12 2021 Pavel Zhukov <pzhukov@redhat.com> - 3.2.4-4
+- Drop clamav BR for eln
 
-* Fri Sep 25 2015 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.6.7-1
-- Check in 7 revisions ahead of upstream 2.5.6 release
+* Mon Dec 14 2020 Pavel Zhukov <pzhukov@redhat.com> - 3.2.4-3
+- Add ExecReload to service file (#1907223)
 
-* Sun Sep 20 2015 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.6.3-1
-- New upstream release 2.5.6, plus 3 additional revisions
+* Thu Sep 3 2020 Pavel Zhukov <pzhukov@redhat.com> - 3.2.3-1
+- New version v3.2.3
 
-* Fri Aug 14 2015 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.5.5-1
-- New upstream release 2.5.5, plus 5 additional revisions
+* Thu Aug 27 2020 Josef Řídký <jridky@redhat.com> - 3.0.13-13
+- Rebuilt for new net-snmp release
 
-* Wed May 13 2015 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.2.3-1
-- Check in 2 revisions ahead of new upstream release 2.5.2
+* Mon Aug 10 2020 Jeff Law <law@redhat.com> - 3.0.13-12
+- Disable LTO on s390x for now
 
-* Tue May 12 2015 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.2.1-1
-- Check in 1 revision ahead of new upstream release 2.5.2
+* Sat Aug 01 2020 Fedora Release Engineering <releng@fedoraproject.org> - 3.0.13-11
+- Second attempt - Rebuilt for
+ https://fedoraproject.org/wiki/Fedora_33_Mass_Rebuild
 
-* Tue Apr 28 2015 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.1-19.1
-- Check in 19 revisions ahead of new upstream release 2.5.1
+* Mon Jul 27 2020 Fedora Release Engineering <releng@fedoraproject.org> - 3.0.13-10
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_33_Mass_Rebuild
 
-* Mon Apr 27 2015 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.1-5.1
-- Check in 5 revisions ahead of new upstream release 2.5.1
+* Mon Jul 13 2020 Pavel Zhukov <pzhukov@redhat.com> - 3.0.13-9
+- Fix FTBFS caused by weak certificates (#1852137)
 
-* Sat Apr 11 2015 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.0-65.1
-- Check in 65 revisions ahead of new upstream release 2.5.0
+* Thu Jun 25 2020 Jitka Plesnikova <jplesnik@redhat.com> - 3.0.13-8
+- Perl 5.32 rebuild
 
-* Fri Mar 20 2015 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.0-45.1
-- Check in 45 revisions ahead of new upstream release 2.5.0
+* Sat May 16 2020 Pete Walter <pwalter@fedoraproject.org> - 3.0.13-7
+- Rebuild for ICU 67
 
-* Tue Mar 10 2015 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5.0-30.1
-- Check in 30 revisions ahead of new upstream release 2.5.0
+* Wed May 6 2020 Pavel Zhukov <pzhukov@redhat.com> - 3.0.13-6
+- Add missed dependencies (#1819685)
 
-* Fri Feb 13 2015 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5-12.git
-- New snapshot
+* Thu Apr 23 2020 Pavel Zhukov <pzhukov@redhat.com> - 3.0.13-5
+- Specify version of cyrus-imapd for utils to avoid the need to test interoperability
 
-* Tue Dec 9 2014 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5-11.git
-- Fix Murder topologies not handling null ACLs at all
+* Thu Apr 23 2020 Pavel Zhukov <pzhukov@redhat.com> - 3.0.13-4
+- Fix pem files permission
 
-* Thu Sep 25 2014 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5-10.git
-- Fix event notifications
+* Wed Apr 01 2020 Petr Pisar <ppisar@redhat.com> - 3.0.13-3
+- Specify all Perl dependencies of Cassandane
 
-* Fri Aug 29 2014 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5-9.git
-- Snapshot of (b2ef80be)
-- Merge enhanced Sieve Date and Index extension
+* Tue Jan 28 2020 Fedora Release Engineering <releng@fedoraproject.org> - 3.0.13-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_32_Mass_Rebuild
 
-* Mon Mar 3 2014 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.5-8.git
-- Fix shared folder deleted namespace prefix
+* Mon Dec 16 2019 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.13-1
+- Update to 3.0.13, fixing CVE-2019-19783.
 
-* Tue Mar 12 2013 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.4.17-2
-- Refresh patch for normalization of the UID - actually enable disabling it
+* Fri Nov 22 2019 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.12-1
+- Update to 3.0.12, fixing CVE-2019-18928.
+
+* Tue Jul 30 2019 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.11-1
+- Update to 3.0.11.
+
+* Wed Jul 24 2019 Fedora Release Engineering <releng@fedoraproject.org> - 3.0.10-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_31_Mass_Rebuild
+
+* Fri May 31 2019 Jitka Plesnikova <jplesnik@redhat.com> - 3.0.10-2
+- Perl 5.30 rebuild
+
+* Tue May 28 2019 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.10-1
+- Update to 3.0.10.
+- Drop upstreamed patch.
+
+* Thu May 16 2019 Pavel Zhukov <pzhukov@redhat.com> - 3.0.9-2
+- Run sscg as mail group for proper certs permissions
+
+* Thu Mar 14 2019 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.9-1
+- Update to 3.0.9.
+
+* Mon Feb 11 2019 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.8-10
+- Add pam configuration file for httpd auth. Thanks to Jeroen van Meeuwen.
+
+* Thu Jan 31 2019 Fedora Release Engineering <releng@fedoraproject.org> - 3.0.8-9
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_30_Mass_Rebuild
+
+* Thu Jan 24 2019 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.8-8
+- Update Perl linkage patch.
+
+* Wed Jan 23 2019 Pete Walter <pwalter@fedoraproject.org> - 3.0.8-7
+- Rebuild for ICU 63
+
+* Wed Jan 23 2019 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.8-6
+- Re-enable --as-needed, now that PCRE has been patched.
+- Add workaround for improper linking of some Perl modules.
+
+* Tue Jan 15 2019 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.8-5
+- Disable passing --as-needed to to the linker. This breaks cyrus horribly.
+- Re-enable Cassandane run.
+
+* Tue Jan 15 2019 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.8-4
+- Allow building against ClamAV 0.101.
+- Add build dependency on glibc-langpack-en to slience some Perl complaints.
+
+* Thu Dec 13 2018 Pavel Zhukov <pzhukov@redhat.com> - 3.0.8-3
+- Temporary disable cassandane in master branch
+
+* Sun Oct 28 2018 Nils Philippsen <nils@tiptoe.de> - 3.0.8-2
+- remove jmap from list of httpmodules
+
+* Sat Aug 11 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.8-1
+- Update to 3.0.8.
+- Drop upstreamed patch.
+
+* Tue Jul 24 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.7-9
+- Rebuild for unannounced net-snmp soname bump.
+
+* Thu Jul 12 2018 Fedora Release Engineering <releng@fedoraproject.org> - 3.0.7-8
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_29_Mass_Rebuild
+
+* Tue Jul 10 2018 Pete Walter <pwalter@fedoraproject.org> - 3.0.7-7
+- Rebuild for ICU 62
+
+* Sat Jun 30 2018 Jitka Plesnikova <jplesnik@redhat.com> - 3.0.7-6
+- Perl 5.28 rebuild
+
+* Wed Jun 13 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.7-5
+- Split out cyr_virusscan into a -virusscan subpackage.
+- Split libraries into a -libs subpackage.
+- Fix rpath issues in libraries.
+- Split Perl module into a separate perl-Cyrus package.
+- Move utilities in /usr/sbin from -utils package to main package. This
+ matches the way we packaged the 2.4 versions.
+- Fix some odd Perl shebangs and an erroneous provided symbol.
+- Moved deliver symlink to the main package as well.
+- Drop cvt_cyrusdb_all and libdb-utils requirement. Cyrus 3 does not use
+ BerkeleyDB at all.
+
+* Thu Jun 07 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.7-4
+- Update Cassandane checkout. Drop upstreamed patch.
+- Patch code for RECONSTRUCT implementation to use the renamed cyr_quota.
+- Re-exclude maxforkrate test on s390x.
+
+* Wed May 30 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.7-3
+- Remove ldconfig scriptlets.
+- Remove F26-specific test exclusions.
+- Update Cassandane checkout.
+- Add extra Cassandane patch from https://github.com/cyrusimap/cassandane/pull/57
+- Revalidate the excluded test list.
+
+* Fri May 18 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.7-2
+- Really enable mysql and clamav support.
+
+* Fri May 18 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.7-1
+- Update to 3.0.7.
+- Update Cassandane checkout.
+- Update excluded Cassandane test list.
+
+* Tue May 01 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.6-1
+- Update to 3.0.6.
+- Remove upstreamed patches and renumber the rest.
+- Disable one new failing test:
+ https://github.com/cyrusimap/cyrus-imapd/issues/2332
+
+* Mon Apr 30 2018 Pete Walter <pwalter@fedoraproject.org> - 3.0.5-15
+- Rebuild for ICU 61.1
+
+* Tue Apr 17 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.5-14
+- Update Cassandane again, fixing a broken test.
+
+* Fri Apr 13 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.5-13
+- Update Cassandane, fixing a few tests and a class of weird random build
+ failures.
+
+* Fri Apr 06 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.5-12
+- Update list of excluded tests.
+- Update Cassandane snapshot; use new base_port config setting. No need to
+ patch that in now.
+- Add four new expected-to-fail tests from new Cassandane snapshot.
+- Add patch to collect extra Cassandane logging in case we hit some of those
+ sporadic failures again.
+
+* Tue Apr 03 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.5-11
+- Re-enable imaptest on >= F29.
+- F29's imaptest fixes several bugs, allowing all tests to be run there.
+- Relocate cassandane base port to hopefully work better in koji.
+
+* Mon Apr 02 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.5-10
+- Update cassandane checkout to fix a test that was broken by DST.
+- Add patch to fix sieve scripts for usernames containing a dot.
+- Disable imaptest in cassandane until
+ https://bugzilla.redhat.com/show_bug.cgi?id=1562970 is fixed.
+- Re-enable tests on s390; it seems to be better now.
+
+* Thu Mar 15 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.5-9
+- Re-enable clamav on ppc64.
+
+* Thu Mar 01 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.5-8
+- Bump client_timeout value in test suite.
+
+* Thu Mar 01 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.5-7
+- Add patch to fix imtest (rhbz#1543481).
+- Fix vzic makefile to use proper cflags (rhbz#1550543).
+
+* Mon Feb 26 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.5-6
+- Update cassandane checkout.
+- Add two new build dependencies.
+- Remove all JMAP-related tests from the exclusion lists, since cassandane no
+ longer runs any JMAP tests on cyrus 3.0.
+- Collapse unused test skip lists.
+- Add ten additional skipped tests, after consultation with upstream.
+
+* Mon Feb 26 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.5-5
+- Add patch to fix segfaults in squatter.
+- Exclude one test on all releases instead of just F28+.
+- Remove --cleanup from cassandane invocation.
+
+* Wed Feb 07 2018 Fedora Release Engineering <releng@fedoraproject.org> - 3.0.5-4
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_28_Mass_Rebuild
+
+* Tue Jan 09 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.5-3
+- Re-enable clamav and mariadb support as those are now built with openssl 1.1.
+- But no clamav on ppc64 because of
+ https://bugzilla.redhat.com/show_bug.cgi?id=1534071
+
+* Thu Jan 04 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.5-2
+- Reorganize some test exclusions so things build on all releases.
+
+* Thu Jan 04 2018 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.5-1
+- Update to 3.0.5.
+- Add one new failing test.
+- Remove one now-passing test on rawhide.
+
+* Mon Dec 18 2017 Pavel Zhukov <pzhukov@redhat.com> - 3.0.4-6
+- Rebuild with new net-snmp
+
+* Thu Nov 30 2017 Pete Walter <pwalter@fedoraproject.org> - 3.0.4-5
+- Rebuild for ICU 60.1
+
+* Wed Nov 29 2017 Pavel Zhukov <pzhukov@redhat.com> - 3.0.4-4
+- Do not require tcp_wrappers (#1518759)
+
+* Tue Nov 14 2017 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.4-3
+- Rebuild for new libical.
+- Add patch to fix compilation error with new libical.
+- Disable two tests which fail due to the new libical.
+
+* Tue Oct 24 2017 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.4-2
+- Fix typo in default config;
+ https://bugzilla.redhat.com/show_bug.cgi?id=1506000
+
+* Tue Sep 05 2017 Pavel Zhukov <landgraf@fedoraproject.org> - 3.0.4-1
+- Update to 3.0.4
+- Patched cassandane for new behaviour. It should be updated idealy.
+- Disable ImapTest.urlauth2 test; it seems to fail randomly regardless of
+ architecture.
+
+* Fri Aug 11 2017 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.3-1
+- Update to 3.0.3, which contains an important security fix. The fix is not
+ embargoed but no CVE has been assigned yet.
+- Drop patches merged upstream.
+- An update of imaptest has resulted in three additional cassandane failures,
+ reported upstream as https://github.com/cyrusimap/cyrus-imapd/issues/2087.
+ In order to get the security fix out without delay, those three tests have been
+ disabled.
+
+* Fri Aug 11 2017 Igor Gnatenko <ignatenko@redhat.com> - 3.0.2-9
+- Rebuilt after RPM update (№ 3)
+
+* Thu Aug 10 2017 Igor Gnatenko <ignatenko@redhat.com> - 3.0.2-8
+- Rebuilt for RPM soname bump
+
+* Wed Aug 02 2017 Fedora Release Engineering <releng@fedoraproject.org> - 3.0.2-7
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Binutils_Mass_Rebuild
+
+* Wed Jul 26 2017 Fedora Release Engineering <releng@fedoraproject.org> - 3.0.2-6
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Mass_Rebuild
+
+* Fri Jun 30 2017 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.2-5
+- Add two patches from upstream which fix JMAPCalendars issues on 32-bit and
+ big-endian architectures.
+- Clean up test invocation and exclusion list. More tests pass now.
+
+* Wed Jun 28 2017 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.2-4
+- Explicitly set specialusealways: 1 in the default config.
+
+* Tue Jun 27 2017 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.2-3
+- Patch the provided imapd.conf and cyrus.conf to more closely match previous
+ Fedora defaults and directories included in this package and to enable
+ features which are supported by the Fedora build.
+- Add tmpfiles.d configuration file for directories in /run.
+
+* Tue Jun 27 2017 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.2-2
+- Exclude one more test from 32-bit arches. Looks like this failure crept in
+ with the Cassandane update.
+
+* Thu Jun 22 2017 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.2-1
+- Update to 3.0.2.
+- New Cassandane snapshot, with more tests (all of which are passing).
+
+* Tue Jun 20 2017 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.1-7
+- Add old /usr/lib/cyrus-imapd directory to the utils package and add a symlink
+ there to the deliver binary. This should help a bit with migrations.
+- Add upstream patch to fix reconstruct failures on 32-bit architectures.
+ Re-enable those five Cassandane tests.
+
+* Thu Jun 15 2017 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.1-6
+- Rename two commands: quota -> cyr_quota, restore -> cyr_restore.
+- Fix Cassandane to handle those renames.
+- Fix location of cyr_fetchnews.
+- Fix Perl 5.26-related module linking issue which caused a test failure.
+ Fixes https://bugzilla.redhat.com/show_bug.cgi?id=1461669
+
+* Tue Jun 06 2017 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.1-5
+- Use proper path to ctl_mboxlist in cron file.
+- Add patch to increase individual test timeout. Sometimes armv7hl can't
+ complete a single test in 20 seconds.
+- Disable the Metronome tests; upstream says that they just won't reliably on
+ shared hardware.
+- Don't bother running Cassandane on s390x for now. The machines are simply
+ too slow.
+
+* Tue Jun 06 2017 Jitka Plesnikova <jplesnik@redhat.com> - 3.0.1-4
+- Perl 5.26 rebuild
+
+* Fri Jun 02 2017 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.1-3
+- Remove clamav from build requirements.
+- Add --cleanup to Cassandane call to hopefully reduce build disk usage.
+- Disable maxforkrate test on s390x; our builders are too slow to run it.
+
+* Fri Jun 02 2017 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.1-2
+- Add patch to fix up some endianness issues.
+- Enable both test suites on all architectures.
+- Add arch-specific excludes for a few Cassandane tests.
+
+* Thu Apr 20 2017 Jason L Tibbitts III <tibbs@math.uh.edu> - 3.0.1-1
+- Initial attempt at importing 3.0. Many new dependencies.
+- Use a stock sample imapd.conf file instead of a Fedora-provided one.
+
+* Fri Feb 10 2017 Fedora Release Engineering <releng@fedoraproject.org> - 2.5.10-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_26_Mass_Rebuild
+
+* Mon Jan 09 2017 Jason L Tibbitts III <tibbs@math.uh.edu> - 2.5.10-2
+- Rename httpd manpage to "cyrhttpd" to avoid conflict with the httpd package.
+
+* Wed Nov 23 2016 Jason L Tibbitts III <tibbs@math.uh.edu> - 2.5.10-1
+- Initial update to the 2.5 series.
+- Significant spec cleanups.
+- Add sscg dep and follow
+ https://fedoraproject.org/wiki/Packaging:Initial_Service_Setup for initial
+ cert generation.
+- Change default conf to use the system crypto policy.
+
+* Tue May 17 2016 Jitka Plesnikova <jplesnik@redhat.com> - 2.4.18-3
+- Perl 5.24 rebuild
+
+* Wed Feb 03 2016 Fedora Release Engineering <releng@fedoraproject.org> - 2.4.18-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_24_Mass_Rebuild
+
+* Thu Oct 01 2015 Jason L Tibbitts III <tibbs@math.uh.edu> - 2.4.18-1
+- Update to 2.4.18, rhbz#1267871 and rhbz#1267878
+- Backport ff4e6c71d932b3e6bbfa67d76f095e27ff21bad0 to fix issues from
+ http://seclists.org/oss-sec/2015/q3/651
+
+* Wed Sep 09 2015 Jason L Tibbitts III <tibbs@math.uh.edu> - 2.4.17-14
+- Use %%license tag
+- Have -devel require the base package
+- Minor cleanups
+
+* Sat Aug 08 2015 Jason L Tibbitts III <tibbs@math.uh.edu> - 2.4.17-13
+- Remove invalid Patch0: URL.
+- Use HTTP for upstream source.
+- pod2html was split out of the main perl package, breaking cyrus.
+ Add a build dep for it.
+
+* Wed Jul 29 2015 Kevin Fenzi <kevin@scrye.com> 2.4.17-12
+- Rebuild for new librpm
+
+* Wed Jun 17 2015 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 2.4.17-11
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_23_Mass_Rebuild
+
+* Fri Jun 05 2015 Jitka Plesnikova <jplesnik@redhat.com> - 2.4.17-10
+- Perl 5.22 rebuild
+
+* Wed Aug 27 2014 Jitka Plesnikova <jplesnik@redhat.com> - 2.4.17-9
+- Perl 5.20 rebuild
+
+* Sat Aug 16 2014 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 2.4.17-8
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_21_22_Mass_Rebuild
+
+* Sat Jun 07 2014 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 2.4.17-7
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_21_Mass_Rebuild
+
+* Sat Aug 03 2013 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 2.4.17-6
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_20_Mass_Rebuild
+
+* Thu Jul 18 2013 Petr Pisar <ppisar@redhat.com> - 2.4.17-5
+- Perl 5.18 rebuild
+
+* Fri Jul 12 2013 Michal Hlavinka <mhlavink@redhat.com> - 2.4.17-4
+- spec clean up
+
+* Thu Apr 18 2013 Michal Hlavinka <mhlavink@redhat.com> - 2.4.17-3
+- make sure binaries are hardened
+
+* Wed Feb 13 2013 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 2.4.17-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_19_Mass_Rebuild
 
 * Sat Dec 1 2012 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.4.17-1
-- New upstream version
+- New upstream version, fixes upstream bugs:
+- reconstruct doesn't retain internaldate correctly (#3733)
+- Race condition in maibox rename (#3696)
+- DBERROR db4: Transaction not specified for a transactional database (#3715)
+- performance degradation on huge indexes in 2.4 branch (#3717)
+- typo fix in imapd.conf man page (#3729)
+- quota does not find all quotaroots if quotalegacy, fulldirhash and prefix are used and virtdomains is off (#3735)
+- Mail delivered during XFER was lost (#3737)
+- replication does not work on RENAME (#3742)
+- Failed asserting during APPEND (#3754)
+
+* Fri Nov 30 2012 Michal Hlavinka <mhlavink@redhat.com> - 2.4.16-5
+- do not use strict aliasing
+
+* Tue Aug 21 2012 Michal Hlavinka <mhlavink@redhat.com> - 2.4.16-4
+- use new systemd rpm macros (#850079)
+
+* Wed Jul 18 2012 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 2.4.16-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_18_Mass_Rebuild
+
+* Mon Jun 11 2012 Petr Pisar <ppisar@redhat.com> - 2.4.16-2
+- Perl 5.16 rebuild
+
+* Thu Apr 19 2012 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.4.16-1
+- New upstream release
+
+* Wed Apr 18 2012 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.4.15-1
+- New upstream release
+
+* Wed Apr 11 2012 Michal Hlavinka <mhlavink@redhat.com> - 2.4.14-2
+- rebuilt because of new libdb
+
+* Wed Mar 14 2012 Michal Hlavinka <mhlavink@redhat.com> - 2.4.14-1
+- updated to 2.4.14
+
+* Tue Feb 07 2012 Michal Hlavinka <mhlavink@redhat.com> - 2.4.13-3
+- use PraveTmp in systemd unit file
+
+* Fri Jan 13 2012 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 2.4.13-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_17_Mass_Rebuild
+
+* Mon Jan 02 2012 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.4.13-1
+- New upstream release
+
+* Wed Dec 07 2011 Michal Hlavinka <mhlavink@redhat.com> - 2.4.12-5
+- do not use digest-md5 as part of default auth mechanisms,
+ it does not coop with pam
+
+* Tue Nov 22 2011 Michal Hlavinka <mhlavink@redhat.com> - 2.4.12-4
+- reduce noisy logging, add option to turn on LOG_DEBUG syslog
+ messages again (thanks Philip Prindeville) (#754940)
+
+* Mon Oct 24 2011 Michal Hlavinka <mhlavink@redhat.com> - 2.4.12-3
+- add login and digest-md5 as part of default auth mechanisms (#748278)
+
+* Tue Oct 11 2011 Michal Hlavinka <mhlavink@redhat.com> - 2.4.12-2
+- do not hide errors if cyrus user can't be added
+
+* Wed Oct 05 2011 Michal Hlavinka <mhlavink@redhat.com> - 2.4.12-1
+- cyrus-imapd updated to 2.4.12
+- fixes incomplete authentication checks in nntpd (Secunia SA46093)
+
+* Fri Sep 9 2011 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.4.11-1
+- update to 2.4.11
+- Fix CVE-2011-3208 (#734926, #736838)
+
+* Tue Aug 16 2011 Michal Hlavinka <mhlavink@redhat.com> - 2.4.10-4
+- rebuild with db5
+
+* Thu Jul 21 2011 Petr Sabata <contyk@redhat.com> - 2.4.10-3
+- Perl mass rebuild
+
+* Wed Jul 20 2011 Petr Sabata <contyk@redhat.com> - 2.4.10-2
+- Perl mass rebuild
+
+* Wed Jul 6 2011 Jeroen van Meeuwen <kanarip@kanarip.com> - 2.4.10-1
+- New upstream release
+
+* Wed Jun 22 2011 Iain Arnell <iarnell@gmail.com> 2.4.8-5
+- Patch to work with Perl 5.14
+
+* Mon Jun 20 2011 Marcela Mašláňová <mmaslano@redhat.com> - 2.4.8-4
+- Perl mass rebuild
+
+* Fri Jun 10 2011 Marcela Mašláňová <mmaslano@redhat.com> - 2.4.8-3
+- Perl 5.14 mass rebuild
+
+* Mon May 09 2011 Michal Hlavinka <mhlavink@redhat.com> - 2.4.8-2
+- fixed: systemd commands in %%post (thanks Bill Nottingham)
+
+* Thu Apr 14 2011 Michal Hlavinka <mhlavink@redhat.com> - 2.4.8-1
+- cyrus-imapd updated to 2.4.8
+- fixed: cannot set unlimited quota through proxy
+- fixed: reconstruct tries to set timestamps again and again
+- fixed: response for LIST "" user is wrong
+- fixed: THREAD command doesn't support quoted charset
+- fixed crashes in mupdatetest and cyr_expire when using -x
+
+* Mon Apr 04 2011 Michal Hlaivnka <mhlavink@redhat.com> - 2.4.7-2
+- now using systemd
+
+* Thu Mar 31 2011 Michal Hlavinka <mhlavink@redhat.com> - 2.4.7-1
+- updated to 2.4.7
+
+* Fri Feb 11 2011 Michal Hlavinka <mhlavink@redhat.com> - 2.4.6-1
+- updated to 2.4.6
+- "autocreate" and "autosieve" features were removed
+
+* Tue Feb 08 2011 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 2.3.16-8
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_15_Mass_Rebuild
+
+* Fri Jan 21 2011 Michal Hlavinka <mhlavink@redhat.com> - 2.3.16-7
+- don't force sync io for all filesystems
+
+* Fri Jul 09 2010 Michal Hlavinka <mhlavink@redhat.com> - 2.3.16-6
+- follow licensing guideline update
+- devel sub-package has to have virtual static provides (#609604)
+
+* Mon Jun 07 2010 Michal Hlavinka <mhlavink@redhat.com> - 2.3.16-5
+- spec cleanup
+- simplified packaging (merge -perl in -utils)
+- remove obsoleted and/or unmaintained additional sources/patches
+- remove long time not used files from the cvs/srpm
+- update additional sources/patches from their upstream
+
+* Tue Jun 01 2010 Marcela Maslanova <mmaslano@redhat.com> - 2.3.16-4
+- Mass rebuild with perl-5.12.0
+
+* Tue Apr 20 2010 Michal Hlavinka <mhlavink@redhat.com> - 2.3.16-3
+- add support for QoS marked traffic (#576652)
+
+* Thu Jan 14 2010 Michal Hlavinka <mhlavink@redhat.com> - 2.3.16-2
+- ignore user_denny.db if missing (#553011)
+- fix location of certificates in default imapd.conf
+
+* Tue Dec 22 2009 Michal Hlavinka <mhlavink@redhat.com> - 2.3.16-1
+- updated to 2.3.16
+
+* Fri Dec 04 2009 Michal Hlavinka <mhlavink@redhat.com> - 2.3.15-10
+- fix shell for daily cron job (#544182)
+
+* Fri Dec 04 2009 Stepan Kasal <skasal@redhat.com> - 2.3.15-9
+- rebuild against perl 5.10.1
+
+* Thu Nov 26 2009 Michal Hlavinka <mhlavink@redhat.com> - 2.3.15-8
+- spec cleanup
+
+* Tue Nov 24 2009 Michal Hlavinka <mhlaivnk@redhat.com> - 2.3.15-7
+- rebuild with new db4 (#540093)
+- spec cleanup
+
+* Fri Nov 06 2009 Michal Hlavinka <mhlavink@redhat.com> - 2.3.15-6
+- fix sourcing of /etc/sysconfig/cyrus-imapd (#533320)
+
+* Thu Nov 05 2009 Michal Hlavinka <mhlavink@redhat.com> - 2.3.15-5
+- do not fill logs with mail (de)compression messages (#528093)
+
+* Thu Oct 29 2009 Michal Hlavinka <mhlavink@redhat.com> - 2.3.15-4
+- spec cleanup
+
+* Fri Oct 09 2009 Michal Hlavinka <mhlavink@redhat.com> - 2.3.15-3
+- fix cyrus user shell for db import (#528126)
+
+* Fri Sep 18 2009 Michal Hlavinka <mhlavink@redhat.com> - 2.3.15-2
+- make init script LSB-compliant (#523227)
+
+* Fri Sep 18 2009 Michal Hlavinka <mhlavink@redhat.com> - 2.3.15-1
+- fix buffer overflow in cyrus sieve (CVE-2009-3235)
+
+* Wed Sep 16 2009 Tomas Mraz <tmraz@redhat.com> - 2.3.14-6
+- use password-auth common PAM configuration instead of system-auth
+
+* Mon Sep 07 2009 Michal Hlavinka <mhlavink@redhat.com> - 2.3.14-5
+- fix buffer overflow in cyrus sieve (#521010)
+
+* Fri Aug 21 2009 Tomas Mraz <tmraz@redhat.com> - 2.3.14-4
+- rebuilt with new openssl
+
+* Fri Jul 24 2009 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 2.3.14-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_12_Mass_Rebuild
+
+* Mon May 25 2009 Michal Hlavinka <mhlavink@redhat.com> - 2.3.14-2
+- rebuild because of changed dependencies
+
+* Thu Apr 02 2009 Michal Hlavinka <mhlavink@redhat.com> - 2.3.14-1
+- updated to 2.3.14
+
+* Wed Apr 01 2009 Michael Schwendt <mschwendt@fedoraproject.org> - 2.3.13-5
+- fix unowned directory (#483336).
+
+* Tue Feb 24 2009 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 2.3.13-4
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_11_Mass_Rebuild
+
+* Mon Feb 02 2009 Michal Hlavinka <mhlavink@rehdat.com> - 2.3.13-3
+- fix directory ownership
+
+* Wed Jan 21 2009 Michal Hlavinka <mhlavink@redhat.com> - 2.3.13-2
+- fix: #480138 - assertion failed: libcyr_cfg.c: cyrus_optionsopt.opt == opt
+
+* Tue Jan 13 2009 Michal Hlavinka <mhlavink@redhat.com> - 2.3.13-1
+- updated to 2.3.13
+
+* Fri Sep 26 2008 Dan Horák <danatdanny.cz - 2.3.12p2-3
+- better fix for linking with recent db4.x
+
+* Fri Sep 12 2008 Dan Horák <danatdanny.cz - 2.3.12p2-2
+- fix linking with db4.7 (Resolves: #461875)
+- patch cleanup
+
+* Mon Sep 1 2008 Dan Horák <danatdanny.cz - 2.3.12p2-1
+- update to new upstream version 2.3.12p2
+- update patches
+
+* Mon Sep 1 2008 Dan Horák <danatdanny.cz - 2.3.11-3
+- refresh patches
+
+* Sat May 31 2008 Dan Horák <danatdanny.cz - 2.3.11-2
+- call automake to update config.* files and be buildable again on rawhide
+
+* Tue Mar 25 2008 Tomas Janousek <tjanouse@redhat.com> - 2.3.11-1
+- update to latest upstream
+- (temporarily) dropped the rmquota+deletemailbox patch (doesn't apply)
+
+* Wed Mar 19 2008 Rex Dieter <rdieter@fedoraproject.org> - 2.3.9-12
+- cyrus-imapd conflicts with uw-imap (#222506)
+
+* Tue Mar 18 2008 Tom "spot" Callaway <tcallawa@redhat.com> - 2.3.9-11
+- add Requires for versioned perl (libperl.so)
+
+* Wed Feb 20 2008 Fedora Release Engineering <rel-eng@fedoraproject.org> - 2.3.9-10
+- Autorebuild for GCC 4.3
+
+* Fri Feb 08 2008 Tomas Janousek <tjanouse@redhat.com> - 2.3.9-9
+- don't run cronjob if cyrus-imapd has never been started (#418191)
+
+* Tue Dec 04 2007 Tomas Janousek <tjanouse@redhat.com> - 2.3.9-8
+- move certificate creation from -utils postinst to main package
+- rebuild with newer openssl and openldap
+
+* Sun Sep 23 2007 Tomas Janousek <tjanouse@redhat.com> - 2.3.9-7
+- updated the getgrouplist patch
+- fixed a few undeclared functions (and int to pointer conversions)
+
+* Wed Aug 22 2007 Tomas Janousek <tjanouse@redhat.com> - 2.3.9-6
+- update to latest upstream
+- updated all patches from uoa and reenabled rmquota+deletemailbox
+
+* Thu Aug 16 2007 Tomas Janousek <tjanouse@redhat.com> - 2.3.9-5.rc2
+- update to latest upstream beta
+
+* Tue Aug 14 2007 Tomas Janousek <tjanouse@redhat.com> - 2.3.9-4.rc1
+- update to latest upstream beta
+- temporarily dropped the rmquota+deletemailbox patch (doesn't apply)
+- fixed to compile with newer glibc
+- added the getgrouplist patch from RHEL-4, dropped groupcache patch
+- dropped the allow_auth_plain patch
+- buildrequire perl-devel
+
+* Mon Jul 23 2007 Tomas Janousek <tjanouse@redhat.com> - 2.3.8-3.2
+- removed the lm_sensors-devel dependency, since it's properly required in
+ net-snmp-devel
+- #248984 - cyrus-imapd.logrotate updated for rsyslog
+
+* Mon Apr 23 2007 Tomas Janousek <tjanouse@redhat.com> - 2.3.8-3.1
+- the -devel subpackage no longer requires the main one
+
+* Wed Apr 11 2007 Tomas Janousek <tjanouse@redhat.com> - 2.3.8-3
+- updated the no-bare-nl patch (#235569), thanks to Matthias Hensler
+
+* Wed Apr 04 2007 Tomas Janousek <tjanouse@redhat.com> - 2.3.8-2
+- fixed mboxlist backup rotation (#197054)
+
+* Mon Mar 12 2007 Tomas Janousek <tjanouse@redhat.com> - 2.3.8-1
+- update to latest upstream
+
+* Wed Jan 24 2007 Tomas Janousek <tjanouse@redhat.com> - 2.3.7-8
+- compile with kerberos support
+
+* Wed Jan 24 2007 Tomas Janousek <tjanouse@redhat.com> - 2.3.7-7
+- fixed Makefile typo (caused multiarch conflict)
+
+* Mon Jan 08 2007 Tomas Janousek <tjanouse@redhat.com> - 2.3.7-6
+- #218046: applied patches to compile with db4-4.5
+
+* Tue Dec 5 2006 John Dennis <jdennis@redhat.com> - 2.3.7-5
+- Resolves: bug# 218046: Cyrus-imapd in rawhide needs to be rebuilt
+ against new snmp package
+
+* Thu Oct 05 2006 Christian Iseli <Christian.Iseli@licr.org> 2.3.7-4
+- rebuilt for unwind info generation, broken in gcc-4.1.1-21
+
+* Mon Sep 18 2006 John Dennis <jdennis@redhat.com> - 2.3.7-3
+- bump rev for rebuild
+
+* Fri Aug 04 2006 Petr Rockai <prockai@redhat.com> - 2.3.7-2
+- only buildrequire lm_sensors on i386 and x86_64, since it is not
+ available elsewhere
+
+* Sun Jul 23 2006 Petr Rockai <prockai@redhat.com> - 2.3.7-1
+- update to latest upstream version, fixes a fair amount of issues
+- forward-port the autocreate and rmquota patches (used latest
+ upstream patches, those are for 2.3.3)
+
+* Tue Jul 18 2006 Petr Rockai <prockai@redhat.com> - 2.3.1-3
+- install perl modules into vendor_perl instead of site_perl
+- change mode of perl .so files to 755 instead of 555
+- update pam configuration to use include directive instead
+ of deprecated pam_stack
+- change prereq on cyrus-imapd-utils to requires
+
+* Tue Jul 11 2006 Petr Rockai <prockai@redhat.com> - 2.3.1-2.99.test1
+- address bunch of rpmlint errors and warnings
+- rename perl-Cyrus to cyrus-imapd-perl to be consistent with rest
+ of package (the cyrus modules are not part of cpan)
+- added provides on cyrus-nntp and cyrus-murder (the functionality
+ is part of main package now)
+- removed generation of README.buildoptions
+- the two above made it possible to get rid of most build-time parameter
+ guessing from environment
+- get rid of internal autoconf (iew)
+- don't strip binaries, renders -debuginfo useless...
+- remove prereq's in favour of newly added requires(...)
+
+* Tue Feb 28 2006 John Dennis <jdennis@redhat.com> - 2.3.1-2
+- bring up to Simon Matter's 2.3.1-2 release
+- fix bug #173319, require cyrus-sasl-lib instead of cyrus-sasl
+- fix bug #176470, hardcoded disttag
+- add backend_sigsegv patch
+- add replication_policycheck patch
+
+* Mon Jan 23 2006 Simon Matter <simon.matter@invoca.ch> 2.3.1-1
+- update to official autocreate and autosievefolder patches
+
+* Thu Jan 19 2006 Simon Matter <simon.matter@invoca.ch> 2.3.1-0.18
+- update rpm_set_permissions script
+- add snmp support as build time option, disabled by default
+ because it doesn't build on older distributions
+
+* Wed Jan 18 2006 Simon Matter <simon.matter@invoca.ch> 2.3.1-0.15
+- add make_md5 patch
+
+* Mon Jan 16 2006 Simon Matter <simon.matter@invoca.ch> 2.3.1-0.13
+- add autosievefolder patch
+- add rmquota+deletemailbox patch
+- change default path for make_md5, add md5 directory
+
+* Fri Jan 13 2006 Simon Matter <simon.matter@invoca.ch> 2.3.1-0.10
+- spec file cleanup
+- add more cvt_cyrusdb_all fixes
+- fix pre/post scripts
+- fix requirements
+- add patch to set Invoca RPM config defaults
+- add sync directory used for replication
+- add autocreate patch
+
+* Thu Jan 12 2006 Simon Matter <simon.matter@invoca.ch> 2.3.1-0.8
+- update cvt_cyrusdb_all script
+- build db.cfg on the fly
+
+* Thu Jan 05 2006 Simon Matter <simon.matter@invoca.ch> 2.3.1-0.5
+- create ptclient directory if ldap enabled
+
+* Wed Jan 04 2006 Simon Matter <simon.matter@invoca.ch> 2.3.1-0.4
+- build without ldap support if openldap is linked against SASLv1
+
+* Tue Jan 03 2006 Simon Matter <simon.matter@invoca.ch> 2.3.1-0.3
+- fix ldap support
+
+* Mon Jan 02 2006 Simon Matter <simon.matter@invoca.ch> 2.3.1-0.2
+- add openldap-devel to buildprereq, build with ldap support
+
+* Wed Dec 21 2005 Simon Matter <simon.matter@invoca.ch> 2.3.1-0.1
+- update to 2.3.1, officially called BETA-quality release
+
+* Fri Dec 16 2005 Simon Matter <simon.matter@invoca.ch> 2.3.0-0.4
+- add skiplist.py to contrib/
+- port authid_normalize patch
+
+* Thu Dec 15 2005 Simon Matter <simon.matter@invoca.ch> 2.3.0-0.3
+- reintroduce subpackage utils, fix requirements
+- move some utils to %%{_bindir}/
+
+* Wed Dec 14 2005 Simon Matter <simon.matter@invoca.ch> 2.3.0-0.2
+- integrate subpackages murder, nntp, replication, utils
+
+* Tue Dec 13 2005 Simon Matter <simon.matter@invoca.ch> 2.3.0-0.1
+- update to 2.3.0, officially called BETA-quality release
+- add replication subpackage
+
+* Fri Dec 09 2005 Simon Matter <simon.matter@invoca.ch> 2.2.12-15.1
+- add missing automake to buildprereq
+- change package description
+
+* Tue Dec 06 2005 Simon Matter <simon.matter@invoca.ch> 2.2.12-15
+- update cvt_cyrusdb_all script
+- update autocreate patches
+
+* Mon Dec 05 2005 Simon Matter <simon.matter@invoca.ch> 2.2.12-14
+- update cvt_cyrusdb_all script
+
+* Mon Nov 14 2005 Simon Matter <simon.matter@invoca.ch> 2.2.12-13
+- add 64bit quota support backported from 2.3
+
+* Fri Nov 11 2005 Simon Matter <simon.matter@invoca.ch> 2.2.12-12
+- add quickstart/stop option to init script to bypass db import/export
+- add authid_normalize patch
+- add allow_auth_plain_proxying patch
+- update gcc4 patch
+- remove useless fdatasync patch
+- add private autoconf used for build, remove autoconf dependency
+- generate correct docs including man pages
+- remove unneeded files from doc directory
+
+* Fri Nov 04 2005 Simon Matter <simon.matter@invoca.ch> 2.2.12-11
+- add mupdate thread-safe patch
+
+* Mon Oct 24 2005 Simon Matter <simon.matter@invoca.ch> 2.2.12-9.4
+- add spool patch, which is already fixed in CVS
+
+* Tue Aug 30 2005 Simon Matter <simon.matter@invoca.ch> 2.2.12-9.2
+- pull in CPPFLAGS and LDFLAGS from openssl's pkg-config data, if it exists
+
+* Wed Aug 24 2005 Simon Matter <simon.matter@invoca.ch> 2.2.12-9.1
+- add timsieved_reset_sasl_conn patch
+
+* Mon Aug 22 2005 Simon Matter <simon.matter@invoca.ch> 2.2.12-9
+- cosmetic changes in pre and post scripts
+
+* Fri Aug 19 2005 Simon Matter <simon.matter@invoca.ch> 2.2.12-8
+- add more pki dir fixes for inplace upgrades
+
+* Thu Aug 18 2005 Simon Matter <simon.matter@invoca.ch> 2.2.12-7
+- include requirement for Berkeley DB utils
+
+* Thu Aug 18 2005 Simon Matter <simon.matter@invoca.ch> 2.2.12-6
+- fix recovery problems with db4, which do not exist with db3
+- fix logic for handling ssl certs
+- remove initlog from init script
+
+* Wed Aug 17 2005 Simon Matter <simon.matter@invoca.ch> 2.2.12-5
+- add notifytest to the distribution
+- add functionality to convert all berkeley databases to skiplist
+ on shutdown and convert them back as needed on startup. This should
+ solve the upgrade problems with Berkeley databases.
+
+* Tue Aug 16 2005 Simon Matter <simon.matter@invoca.ch> 2.2.12-4.14
+- add gcc4 patch
+- determine and handle pki directory for openssl correctly
+- add skiplist recovery docs
+- add notify_sms patch
+
+* Mon Jul 18 2005 Simon Matter <simon.matter@invoca.ch> 2.2.12-4.10
+- update cvt_cyrusdb_all script
+- update autocreate patches
+
+* Fri Jul 15 2005 Simon Matter <simon.matter@invoca.ch> 2.2.12-4.9
+- add patch to remove ACLs with invalid identifier
+- update cvt_cyrusdb_all script
+
+* Sat Jun 18 2005 Simon Matter <simon.matter@invoca.ch> 2.2.12-4.1
+- update munge8bit patch
+
+* Wed Jun 08 2005 Simon Matter <simon.matter@invoca.ch> 2.2.12-4
+- updated seenstate patch
+
+* Thu Jun 02 2005 Simon Matter <simon.matter@invoca.ch>
+- removed nolinkimapspool patch, added singleinstancestore patch instead
+
+* Thu Jun 02 2005 Simon Matter <simon.matter@invoca.ch>
+- added nolinkimapspool patch
+- fix debug_package macro, it was still being expanded,
+ comments don't hide macro expansion
+- change license field to BSD, its not exact BSD, but BSD is the closest
+
+* Fri Apr 22 2005 John Dennis <jdennis@redhat.com> - 2.2.12-6.fc4
+- the openssl package moved all its certs, CA, Makefile, etc. to /etc/pki
+ now we are consistent with the openssl directory changes.
+
+* Thu Apr 21 2005 John Dennis <jdennis@redhat.com> - 2.2.12-5.fc4
+- we finally have a common directory, /etc/pki for certs, so create
+ /etc/pki/cyrus-imapd and put the ssl pem file there. The /etc/cyrus-imapd
+ location will not be used, this change supercedes that.
+
+* Mon Apr 18 2005 John Dennis <jdennis@redhat.com> - 2.2.12-4.fc4
+- fix bug #141479, move ssl pem file from /usr/share/ssl/certs to /etc/cyrus-imapd/cyrus-imapd.pem
+- change license field to BSD, its not exact BSD, but BSD is the closest.
+
+* Fri Apr 15 2005 John Dennis <jdennis@redhat.com> - 2.2.12-3.fc4
+- fix release field to be single digit
+
+* Fri Apr 15 2005 John Dennis <jdennis@redhat.com> - 2.2.12-1.2.fc4
+- fix debug_package macro, it was still being expanded,
+ comments don't hide macro expansion
+- fix changelog chronological order
+- fix bug 118832, cyrus-imapd is modifying /etc/services
+
+* Mon Apr 4 2005 John Dennis <jdennis@redhat.com> - 2.2.12-1.1.fc4
+- bring up to 2.2.12, includes security fix for CAN-2005-0546
+
+* Mon Mar 07 2005 Simon Matter <simon.matter@invoca.ch>
+- updated rmquota+deletemailbox patches
+
+* Fri Mar 4 2005 John Dennis <jdennis@redhat.com> - 2.2.10-11.4.fc4
+- fix gcc4 build problems
+
+* Thu Mar 3 2005 John Dennis <jdennis@redhat.com> 2.2.10-11.3.fc4
+- bump rev for build
+
+* Mon Feb 14 2005 Simon Matter <simon.matter@invoca.ch>
+- updated to 2.2.12
+- updated autocreate and autosievefolder patches
+
+* Fri Feb 11 2005 John Dennis <jdennis@redhat.com> - 2.2.10-11.2.fc4
+- make _contribdir identical to Simon's,
+ I had been getting burned by rpm's bizarre handling of macros in comments
+
+* Thu Feb 10 2005 John Dennis <jdennis@redhat.com> - 2.2.10-11.1.fc4
+- bring up to date with Simon Matter's 2.2.10-11 rpm
+
+* Sat Feb 05 2005 Simon Matter <simon.matter@invoca.ch>
+- updated autosievefolder patch
+
+* Tue Feb 01 2005 Simon Matter <simon.matter@invoca.ch>
+- remove special ownership and permissions from deliver
+- enable deliver-wrapper per default
+- enable OutlookExpress seenstate patch per default
+
+* Wed Jan 19 2005 Simon Matter <simon.matter@invoca.ch>
+- updated autocreate patch
+
+* Fri Jan 14 2005 Simon Matter <simon.matter@invoca.ch>
+- spec file cleanup
+
+* Tue Jan 11 2005 Simon Matter <simon.matter@invoca.ch>
+- updated autocreate patch
+
+* Fri Jan 07 2005 Simon Matter <simon.matter@invoca.ch>
+- moved contrib dir into doc, made scripts not executable
+
+* Thu Jan 06 2005 Simon Matter <simon.matter@invoca.ch>
+- added more fixes to the autocreate patch
+- don't use %%_libdir for %%_cyrexecdir, it's a mess on x86_64
+- don't use %%_libdir for symlinks
+- remove %%_libdir pachtes
+- change pam configs to work on x86_64
+- changed default build option for IDLED to on
+- changed rpm_set_permissions to honor partitions in /etc/imapd.conf
+
+* Tue Jan 04 2005 Simon Matter <simon.matter@invoca.ch>
+- updated autocreate patch
+
+* Mon Dec 20 2004 Simon Matter <simon.matter@invoca.ch>
+- remove idled docs when disabled, fixes RedHat's bug #142345
+
+* Fri Dec 17 2004 Simon Matter <simon.matter@invoca.ch>
+- removed allnumeric patch, not needed anymore
+- made groupcache a compile time option
+- rename nntp's pam service, fixes RedHat's bug #142672
+
+* Thu Dec 16 2004 Simon Matter <simon.matter@invoca.ch>
+- updated groupcache patch
+- updated cvt_cyrusdb_all to use runuser instead of su if available
+- added upd_groupcache tool
+
+* Wed Dec 15 2004 Simon Matter <simon.matter@invoca.ch>
+- added groupfile patch to help those using nss_ldap
+
+* Thu Dec 02 2004 Simon Matter <simon.matter@invoca.ch>
+- modified config directives and removed verify options
+
+* Thu Dec 2 2004 John Dennis <jdennis@redhat.com> 2.2.10-3.devel
+- fix bug #141673, dup of bug #141470
+ Also make cyrus.conf noreplace in addition to imapd.conf
+ Remove the verify overrides on the noreplace config files,
+ we do want config file changes visible when verifying
+
+* Wed Dec 1 2004 John Dennis <jdennis@redhat.com> 2.2.10-2.devel
+- fix bug #141470, make imapd.conf a noreplace config file
+
+* Wed Dec 1 2004 John Dennis <jdennis@redhat.com> 2.2.10-1.devel
+- update to Simon Matter's 2.2.10 RPM,
+ fixes bug #139382,
+ security advisories: CAN-2004-1011 CAN-2004-1012 CAN-2004-1013 CAN-2004-1015
+
+* Wed Nov 24 2004 Simon Matter <simon.matter@invoca.ch>
+- updated to 2.2.10
+
+* Tue Nov 23 2004 Simon Matter <simon.matter@invoca.ch>
+- updated to 2.2.9
+
+* Fri Nov 19 2004 Simon Matter <simon.matter@invoca.ch>
+- changed scripts to use runuser instead of su if available
+
+* Thu Nov 18 2004 Simon Matter <simon.matter@invoca.ch>
+- changed requirement for file >= 3.35-1 from BuildPrereq to
+ Requires, fixes RedHat's bug #124991
+- added acceptinvalidfrom patch to fix RedHat's bug #137705
+
+* Mon Oct 4 2004 Dan Walsh <dwalsh@redhat.com> 2.2.6-2.FC3.6
+- Change cyrus init scripts and cron job to use runuser instead of su
+
+* Fri Aug 6 2004 John Dennis <jdennis@redhat.com> 2.2.6-2.FC3.5
+- remove obsoletes tag, fixes bugs #127448, #129274
+
+* Wed Aug 4 2004 John Dennis <jdennis@redhat.com>
+- replace commas in release field with dots, bump build number
+
+* Tue Aug 03 2004 Simon Matter <simon.matter@invoca.ch>
+- fixed symlinks for x86_64, now uses the _libdir macro
+ reported by John Dennis, fixes RedHat's bug #128964
+- removed obsoletes tag, fixes RedHat's bugs #127448, #129274
+
+* Mon Aug 2 2004 John Dennis <jdennis@redhat.com> 2.2.6-2,FC3,3
+- fix bug #128964, lib symlinks wrong on x86_64
+
+* Thu Jul 29 2004 Simon Matter <simon.matter@invoca.ch>
+- updated to 2.2.8
+
+* Thu Jul 29 2004 Simon Matter <simon.matter@invoca.ch>
+- updated autocreate and autosieve patches
+- made authorization a compile time option
+- added sieve-bc_eval patch
+
+* Tue Jul 27 2004 Simon Matter <simon.matter@invoca.ch>
+- updated to 2.2.7
+- modified autocreate patch or 2.2.7
+- removed snmpargs patch which was needed for RedHat 6.2
+
+* Tue Jul 13 2004 Simon Matter <simon.matter@invoca.ch>
+- added mboxlist / mboxname patches from CVS
+
+* Tue Jul 06 2004 Simon Matter <simon.matter@invoca.ch>
+- updated rmquota+deletemailbox patch
+
+* Sat Jul 3 2004 John Dennis <jdennis@redhat.com> - 2.2.6-2,FC3,1
+- bring up to date with Simon Matter's latest upstream rpm 2.2.6-2
+- comment out illegal tags Packager, Vendor, Distribution
+ build for FC3
+
+* Wed Jun 30 2004 Simon Matter <simon.matter@invoca.ch>
+- added quota patches from CVS
+
+* Fri Jun 25 2004 Simon Matter <simon.matter@invoca.ch>
+- updated autocreate patch
+
+* Fri Jun 18 2004 Simon Matter <simon.matter@invoca.ch>
+- updated to 2.2.6
+
+* Fri Jun 11 2004 Simon Matter <simon.matter@invoca.ch>
+- updated autocreate and autosieve patches
+
+* Tue Jun 01 2004 Simon Matter <simon.matter@invoca.ch>
+- updated autocreate, autosieve and rmquota patches
+- fixed rmquota patch to build on gcc v3.3.x
+- added lmtp_sieve patch
+
+* Sat May 29 2004 Simon Matter <simon.matter@invoca.ch>
+- updated to 2.2.5
+
+* Fri May 28 2004 Simon Matter <simon.matter@invoca.ch>
+- updated to 2.2.5 pre-release
+
+* Mon May 24 2004 Simon Matter <simon.matter@invoca.ch>
+- added hash patch to fix a sig11 problem
+- added noncritical typo patch
+
+* Fri May 21 2004 Simon Matter <simon.matter@invoca.ch>
+- include OutlookExpress seenstate patch
+- fixed allnumeric patch
+
+* Thu May 20 2004 Simon Matter <simon.matter@invoca.ch>
+- don't enable cyrus-imapd per default
+- rename fetchnews to cyrfetchnews to avoid namespace conflicts with leafnode
+- replace fetchnews with cyrfetchnews in man pages
+- replace master with cyrus-master in man pages
+
+* Tue May 18 2004 Simon Matter <simon.matter@invoca.ch>
+- updated to 2.2.4
+
+* Fri Apr 30 2004 Simon Matter <simon.matter@invoca.ch>
+- Don't provides: imap
+
+* Wed Mar 17 2004 Simon Matter <simon.matter@invoca.ch>
+- fix init script
+
+* Thu Mar 04 2004 Simon Matter <simon.matter@invoca.ch>
+- strip binaries
+
+* Tue Mar 02 2004 Simon Matter <simon.matter@invoca.ch>
+- add more SELinux fixes
+
+* Wed Feb 25 2004 Simon Matter <simon.matter@invoca.ch>
+- add makedepend to path, thank you Andreas Piesk for reporting it
+
+* Mon Feb 23 2004 Dan Walsh <dwalsh@redhat.com>
+- change su within init script to get input from /dev/null
+ this prevents hang when running in SELinux
+- don't use -fpie as default, it breaks different distributions
+
+* Thu Feb 19 2004 Simon Matter <simon.matter@invoca.ch>
+- merged in most changes from Karsten Hopp's RedHat package
+- fixed permissions of files in contrib, thank you
+ Edward Rudd for reporting it.
+- modified snmp patch to make it build on RedHat 6.2 again
+
+* Tue Feb 03 2004 Karsten Hopp <karsten@redhat.de>
+- switch to Simon Matter's cyrus-imapd package, which has
+ some major improvements over the old Red Hat package.
+ - configdirectory moved from /var/imap to /var/lib/imap
+ - sasl_pwcheck_method changed to saslauthd
+- needed to delete package/vendor tags for buildsystem.
+- added USEPIE variable for linking with -fpie flag
+- removed rpath from linker arguments
+- removed email header from README.HOWTO-recover-mailboxes
+- added lib64 patch
+- use CFLAGS from specfile in imtest subdir
+- disable -pie on ppc for now
+
+* Tue Feb 03 2004 Simon Matter <simon.matter@invoca.ch>
+- added tls_ca_file: to imapd.conf
+- updated autocreate patch which fixes a small sig11 problem
+
+* Thu Jan 29 2004 Simon Matter <simon.matter@invoca.ch>
+- convert sieve scripts to UTF-8 only if sievec failed before
+- add note to the readme about limiting loggin on busy servers
+- added build time option to chose the syslog facility
+
+* Wed Jan 28 2004 Simon Matter <simon.matter@invoca.ch>
+- sieve scripts are now converted to UTF-8 with cvt_cyrusdb_all
+
+* Tue Jan 27 2004 Simon Matter <simon.matter@invoca.ch>
+- fixed problems with masssievec
+- lots of small fixes in the init scripts
+
+* Fri Jan 23 2004 Simon Matter <simon.matter@invoca.ch>
+- updated auto db converting functionality
+- added auto masssievec functionality
+
+* Thu Jan 22 2004 Simon Matter <simon.matter@invoca.ch>
+- updated autocreate/autosievefolder patches
+
+* Fri Jan 16 2004 Simon Matter <simon.matter@invoca.ch>
+- updated to 2.2.3
+
+* Wed Jan 14 2004 Simon Matter <simon.matter@invoca.ch>
+- number of mailbox list dumps can now be configured
+
+* Fri Jan 02 2004 Simon Matter <simon.matter@invoca.ch>
+- updated autosievefolder patch
+
+* Thu Dec 18 2003 Simon Matter <simon.matter@invoca.ch>
+- updated autocreate/autosievefolder/rmquota patches
+
+* Tue Oct 28 2003 Simon Matter <simon.matter@invoca.ch>
+- updated to 2.2.2-BETA
+
+* Tue Aug 05 2003 Simon Matter <simon.matter@invoca.ch>
+- add sendmail m4 macro, some people were looking for it
+- just one source for pam default configuration (they were all the same)
+- added /etc/pam.d/lmtp
+- added build support for RedHat Beta severn
+
+* Wed Jul 30 2003 Simon Matter <simon.matter@invoca.ch>
+- updated autocreate patch to 0.8.1
+- removed creation of spool/config dirs, not needed anymore
+- added cyrus_sharedbackup to contrib
+
+* Fri Jul 18 2003 Simon Matter <simon.matter@invoca.ch>
+- modified for 2.2.1-BETA
+
+* Wed Jul 09 2003 Simon Matter <simon.matter@invoca.ch>
+- modified rpm_set_permissions script
+
+* Mon Jul 07 2003 Simon Matter <simon.matter@invoca.ch>
+- changed permissions on config and spool dirs
+- modified init script
+
+* Thu Jul 03 2003 Simon Matter <simon.matter@invoca.ch>
+- upgraded to 2.1.14
+- removed now obsolete forcedowncase patch
+- use --with-extraident to add extra version information
+- updated munge8bit patch
+
+* Wed Jun 04 2003 Simon Matter <simon.matter@invoca.ch>
+- added RedHat 2.1ES support to the perlhack detection
+
+* Tue May 20 2003 Simon Matter <simon.matter@invoca.ch>
+- upgraded autocreate patch
+
+* Fri May 09 2003 Simon Matter <simon.matter@invoca.ch>
+- upgraded autocreate patch
+- modified init script
+
+* Mon May 05 2003 Simon Matter <simon.matter@invoca.ch>
+- upgraded to 2.1.13
+- replaced commands with macros, cleaned up spec file
+
+* Fri May 02 2003 Simon Matter <simon.matter@invoca.ch>
+- added murder subpackage
+- changed exec path to /usr/lib/cyrus-imapd
+
+* Thu May 01 2003 Simon Matter <simon.matter@invoca.ch>
+- included modified munge8bit patch again
+
+* Tue Apr 29 2003 Simon Matter <simon.matter@invoca.ch>
+- added new 8bit header patch
+- upgraded IPv6 patch
+- upgraded autocreate patch to 0.7
+
+* Mon Apr 28 2003 Simon Matter <simon.matter@invoca.ch>
+- added new autocreate patch
+
+* Mon Mar 31 2003 H-E Sandstrom <hes@mailcore.net>
+- added munge8bit patch
+
+* Mon Mar 24 2003 Simon Matter <simon.matter@invoca.ch>
+- added createonpost fix patch
+
+* Thu Mar 20 2003 Simon Matter <simon.matter@invoca.ch>
+- added functionality to patch the IPv6 patch on the fly if
+ autoconf > 2.13, we can now use newer autoconf again.
+
+* Tue Mar 18 2003 Paul Bender <pbender@qualcomm.com>
+- fixed spec file so that autoconf 2.13 will always be used,
+ since the IPv6 patch requires autoconf <= 2.13
+
+* Fri Mar 14 2003 Simon Matter <simon.matter@invoca.ch>
+- fixed problems with new file package
+
+* Thu Mar 13 2003 Simon Matter <simon.matter@invoca.ch>
+- added kerberos include for RedHat Beta phoebe 2
+- added Henrique's forcedowncase patch
+
+* Mon Mar 03 2003 Simon Matter <simon.matter@invoca.ch>
+- corrected imapd.conf
+
+* Sat Mar 01 2003 Simon Matter <simon.matter@invoca.ch>
+- added note about lmtp socket in sendmail
+- added flock patches
+
+* Fri Feb 07 2003 Simon Matter <simon.matter@invoca.ch>
+- added build time option for fulldirhash
+
+* Wed Feb 05 2003 Simon Matter <simon.matter@invoca.ch>
+- added IPV6 patch to source rpm
+- fixed build on RedHat 6.2
+
+* Tue Feb 04 2003 Simon Matter <simon.matter@invoca.ch>
+- update to 2.1.12
+- added logrotate entry for /var/log/auth.log
+- modified init script to use builtin daemon mode
+
+* Fri Jan 10 2003 Simon Matter <simon.matter@invoca.ch>
+- small change in mboxlist backup script
+
+* Fri Jan 10 2003 Simon Matter <simon.matter@invoca.ch>
+- fixed a cosmetic bug in cvt_cyrusdb_all
+- added cron.daily job to backup mailboxes.db
+
+* Mon Jan 06 2003 Simon Matter <simon.matter@invoca.ch>
+- add more entries to /etc/services
+
+* Wed Jan 01 2003 Simon Matter <simon.matter@invoca.ch>
+- include snmpargs patch for build on RedHat 6.2
+- added build support for RedHat 6.2
+
+* Mon Dec 30 2002 Simon Matter <simon.matter@invoca.ch>
+- removed autoconf hack, not needed anymore
+- enabled build on RedHat Beta Phoebe
+- added services entry for lmtp
+- cleanup spec file
+
+* Thu Dec 26 2002 Simon Matter <simon.matter@invoca.ch>
+- removed BuildPrereq for e2fsprogs-devel
+
+* Thu Dec 12 2002 Simon Matter <simon.matter@invoca.ch>
+- modified RedHat release detection
+- added BuildPrereq for file
+
+* Thu Dec 05 2002 Simon Matter <simon.matter@invoca.ch>
+- upgraded to cyrus-imapd 2.1.11
+- upgrade IPV6 patch to 20021205
+
+* Thu Nov 28 2002 Simon Matter <simon.matter@invoca.ch>
+- Fixed some default attributes
+
+* Thu Nov 28 2002 Troels Arvin <troels@arvin.dk>
+- Explicitly changed files-section to
+ - use defattr for simple (root-owned 0644) files
+ - explictly set root as user/group owner where
+ the user/group ownership was previously indicated
+ as "-"; this allows building valid packages without
+ having to being root when building
+
+* Mon Nov 25 2002 Simon Matter <simon.matter@invoca.ch>
+- changed default build option for IDLED to off
+- included some useful info in README.*
+
+* Thu Nov 21 2002 Simon Matter <simon.matter@invoca.ch>
+- added build time option for IDLED, thank you Roland Pope
+
+* Tue Nov 19 2002 Simon Matter <simon.matter@invoca.ch>
+- fixed spec to really use fdatasync patch
+- added createonpost patch
+
+* Thu Nov 14 2002 Simon Matter <simon.matter@invoca.ch>
+- upgraded to cyrus-imapd 2.1.10
+- build without IPv6 support by default
+
+* Tue Nov 12 2002 Simon Matter <simon.matter@invoca.ch>
+- fixed db detection in .spec
+
+* Mon Oct 21 2002 Simon Matter <simon.matter@invoca.ch>
+- updated cvt_cyrusdb_all script
+
+* Fri Oct 18 2002 Simon Matter <simon.matter@invoca.ch>
+- added fdatasync patch
+
+* Thu Oct 03 2002 Simon Matter <simon.matter@invoca.ch>
+- add RPM version 4.1 compatibility, which means remove installed
+ but not packaged files
+
+* Wed Sep 18 2002 Simon Matter <simix@datacomm.ch>
+- added auto db converting functionality
+- changed default for MBOXLIST_DB and SEEN_DB to skiplist
+
+* Mon Sep 16 2002 Simon Matter <simix@datacomm.ch>
+- remove creation of cyrus user at build time
+- added scripts from ftp://kalamazoolinux.org/pub/projects/awilliam/cyrus/
+
+* Mon Sep 02 2002 Simon Matter <simix@datacomm.ch>
+- upgraded to cyrus-imapd 2.1.9
+
+* Fri Aug 30 2002 Simon Matter <simix@datacomm.ch>
+- included extra ident string
+
+* Thu Aug 29 2002 Simon Matter <simix@datacomm.ch>
+- modified path in deliver-wrapper, thank you Richard L. Phipps
+- added RedHat 2.1AS support to the perlhack detection
+- added build time option to force syncronous updates on ext3
+
+* Wed Aug 28 2002 Simon Matter <simix@datacomm.ch>
+- added updated IPv6 patch from Hajimu UMEMOTO
+
+* Wed Aug 28 2002 Simon Matter <simix@datacomm.ch>
+- upgraded to cyrus-imapd 2.1.8
+
+* Thu Aug 22 2002 Simon Matter <simix@datacomm.ch>
+- included IPv6 patch from Hajimu UMEMOTO
+
+* Wed Aug 21 2002 Simon Matter <simix@datacomm.ch>
+- upgraded to cyrus-imapd 2.1.7 because of wrong version info
+
+* Wed Aug 21 2002 Simon Matter <simix@datacomm.ch>
+- upgraded to cyrus-imapd 2.1.6
+
+* Mon Aug 19 2002 Simon Matter <simix@datacomm.ch>
+- change db version detection, thank you Chris for reporting
+
+* Tue Aug 13 2002 Simon Matter <simix@datacomm.ch>
+- fixed autoconf detection
+
+* Mon Aug 12 2002 Simon Matter <simix@datacomm.ch>
+- included support for different autoconf versions
+- modified the perl build and install process
+- made some .spec changes to build on RedHat 7.x and limbo
+
+* Fri Aug 09 2002 Simon Matter <simix@datacomm.ch>
+- included sieve matching patch
+
+* Thu Jun 27 2002 Simon Matter <simix@datacomm.ch>
+- fixed %%post script where %%F was expanded to file.file
+
+* Wed Jun 26 2002 Simon Matter <simix@datacomm.ch>
+- fixed missing man page
+
+* Tue Jun 25 2002 Simon Matter <simix@datacomm.ch>
+- upgraded to cyrus-imapd 2.1.5
+
+* Mon Jun 24 2002 Simon Matter <simix@datacomm.ch>
+- added compile time parameters to configure the package based on
+ the idea from Luca Olivetti <luca@olivetti.cjb.net>
+- make deliver-wrapper a compile time option
+
+* Fri May 03 2002 Simon Matter <simix@datacomm.ch>
+- upgraded to cyrus-imapd 2.1.4
+
+* Mon Apr 22 2002 Simon Matter <simix@datacomm.ch>
+- small initscript fix
+
+* Fri Mar 08 2002 Simon Matter <simix@datacomm.ch>
+- upgraded to cyrus-imapd 2.1.3
+- removed some stuff that was cleaned up in the sources
+- added compile time options for db backends
+
+* Wed Mar 06 2002 Simon Matter <simix@datacomm.ch>
+- removed requires perl-File-Temp for utils package, it's in the RedHat
+ perl RPM now
+
+* Fri Feb 22 2002 Simon Matter <simix@datacomm.ch>
+- removed deliverdb/db
+
+* Wed Feb 20 2002 Simon Matter <simix@datacomm.ch>
+- upgraded to cyrus-imapd 2.1.2
+
+* Mon Feb 11 2002 Simon Matter <simix@datacomm.ch>
+- changed sasl_mech_list: PLAIN in /etc/imapd.conf
+- added sieve to /etc/pam.d
+
+* Fri Feb 08 2002 Simon Matter <simix@datacomm.ch>
+- added requires perl-File-Temp for utils package
+
+* Wed Feb 06 2002 Simon Matter <simix@datacomm.ch>
+- added some %%dir flags
+- removed /usr/lib/sasl/Cyrus.conf
+- added conf templates
+- build time option for usage of saslauth group
+
+* Tue Feb 05 2002 Simon Matter <simix@datacomm.ch>
+- upgraded to cyrus-imapd 2.1.1
+- dependency of cyrus-sasl >= 2.1.0-1
+
+* Sun Feb 03 2002 Simon Matter <simix@datacomm.ch>
+- saslauth group is only deleted on uninstall if there is no other
+ member in this group
+
+* Sat Feb 02 2002 Simon Matter <simix@datacomm.ch>
+- changed start/stop level in init file
+
+* Tue Jan 29 2002 Simon Matter <simix@datacomm.ch>
+- dependency of cyrus-sasl >= 1.5.24-22
+- dotstuffing patch for sendmail calls made by sieve for outgoing
+ mails
+- patch for ability to force ipurge to traverse personal folders
+
+* Mon Jan 28 2002 Simon Matter <simix@datacomm.ch>
+- minor spec file changes
+
+* Sat Jan 19 2002 Simon Matter <simix@datacomm.ch>
+- changed default auth to pam
+- remove several %%dir from %%files sections
+- change from /usr/lib/cyrus -> /usr/libexec/cyrus
+- rename source files to something like cyrus...
+- added rehash tool
+- changed to hashed spool
+
+* Fri Jan 18 2002 Simon Matter <simix@datacomm.ch>
+- fixed init script
+- fixed %%post section in spec
 
-* Wed Nov 21 2012 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.4.15-2
-- Ship fix for APPEND BINARY GUID (#3754)
+* Thu Jan 17 2002 Simon Matter <simix@datacomm.ch>
+- ready for first build
 
+* Wed Jan 09 2002 Simon Matter <simix@datacomm.ch>
+- initial package, with help from other packages out there

0001-Fixed-CALDAV-PUT-requests-while-proxying.patch Added

0002-Openssl-3.0-fixes.patch Added

@@ -0,0 +1,175 @@
+From 5e22772d2c1972e6e97ee2486951d3048f36a360 Mon Sep 17 00:00:00 2001
+From: Christian Mollekopf <mollekopf@apheleia-it.ch>
+Date: Fri, 14 Oct 2022 17:00:07 +0200
+Subject: PATCH 2/4 Openssl 3.0 fixes
+
+---
+ imap/tls.c | 31 +++++++++++++++++++------------
+ imtest/imtest.c | 12 +++++++-----
+ 2 files changed, 26 insertions(+), 17 deletions(-)
+
+diff --git a/imap/tls.c b/imap/tls.c
+index a4b04dfb1..6a028b890 100644
+--- a/imap/tls.c
++++ b/imap/tls.c
+@@ -149,7 +149,7 @@ static int tls_serverengine = 0; /* server engine initialized? */
+ static int tls_clientengine = 0; /* client engine initialized? */
+ static int do_dump = 0; /* actively dumping protocol? */
+ 
+-#if (OPENSSL_VERSION_NUMBER >= 0x0090800fL)
++#if (OPENSSL_VERSION_NUMBER >= 0x0090800fL) && (OPENSSL_VERSION_NUMBER < 0x30000000L)
+ static DH *dh_params = NULL;
+ #endif
+ 
+@@ -240,7 +240,7 @@ static int DH_set0_pqg(DH *dh, BIGNUM *p, BIGNUM *q, BIGNUM *g)
+ }
+ #endif
+ 
+-#if (OPENSSL_VERSION_NUMBER >= 0x0090800fL)
++#if (OPENSSL_VERSION_NUMBER >= 0x0090800fL) && (OPENSSL_VERSION_NUMBER < 0x30000000L)
+ /* Logic copied from OpenSSL apps/s_server.c: give the TLS context
+ * DH params to work with DHE-* cipher suites. Hardcoded fallback
+ * in case no DH params in server_key or server_cert.
+@@ -739,7 +739,6 @@ EXPORTED int tls_init_serverengine(const char *ident,
+ const char *client_ca_file;
+ const char *server_ca_file;
+ const char *server_cert_file;
+- const char *server_dhparam_file;
+ const char *server_key_file;
+ const char *crl_file_path;
+ enum enum_value tls_client_certs;
+@@ -883,7 +882,6 @@ EXPORTED int tls_init_serverengine(const char *ident,
+ 
+ server_ca_file = config_getstring(IMAPOPT_TLS_SERVER_CA_FILE);
+ server_cert_file = config_getstring(IMAPOPT_TLS_SERVER_CERT);
+- server_dhparam_file = config_getstring(IMAPOPT_TLS_SERVER_DHPARAM);
+ server_key_file = config_getstring(IMAPOPT_TLS_SERVER_KEY);
+ 
+ if (config_debug) {
+@@ -949,8 +947,11 @@ EXPORTED int tls_init_serverengine(const char *ident,
+ SSL_CTX_set_tmp_rsa_callback(s_ctx, tmp_rsa_cb);
+ #endif
+ 
+-#if (OPENSSL_VERSION_NUMBER >= 0x0090800fL)
++#if (OPENSSL_VERSION_NUMBER >= 0x30000000L)
++ SSL_CTX_set_dh_auto(s_ctx, 1);
++#elif (OPENSSL_VERSION_NUMBER >= 0x0090800fL)
+ /* Load DH params for DHE-* key exchanges */
++ const char *server_dhparam_file = config_getstring(IMAPOPT_TLS_SERVER_DHPARAM);
+ dh_params = load_dh_param(server_dhparam_file, server_key_file, server_cert_file);
+ SSL_CTX_set_tmp_dh(s_ctx, dh_params);
+ #endif
+@@ -959,12 +960,16 @@ EXPORTED int tls_init_serverengine(const char *ident,
+ const char *ec = config_getstring(IMAPOPT_TLS_ECCURVE);
+ int openssl_nid = OBJ_sn2nid(ec);
+ if (openssl_nid != 0) {
++#if (OPENSSL_VERSION_NUMBER >= 0x30000000L)
++ SSL_CTX_set1_curves(s_ctx, &openssl_nid, 1);
++#else
+ EC_KEY *ecdh;
+ ecdh = EC_KEY_new_by_curve_name(openssl_nid);
+ if (ecdh != NULL) {
+ SSL_CTX_set_tmp_ecdh(s_ctx, ecdh);
+ EC_KEY_free(ecdh);
+ }
++#endif
+ }
+ #endif
+ 
+@@ -1086,20 +1091,22 @@ EXPORTED int tls_init_serverengine(const char *ident,
+ 
+ /* taken from OpenSSL apps/s_cb.c */
+ 
+-static long bio_dump_cb(BIO * bio, int cmd, const char *argp, int argi,
+- long argl __attribute__((unused)), long ret)
++static long bio_dump_cb(BIO * bio, int cmd, const char *argp,
++ size_t len __attribute__((unused)), int argi,
++ long argl __attribute__((unused)), int ret,
++ size_t *processed __attribute__((unused)))
+ {
+ if (!do_dump)
+ return (ret);
+ 
+ if (cmd == (BIO_CB_READ | BIO_CB_RETURN)) {
+- printf("read from %08lX %08lX (%d bytes => %ld (0x%lX))",
++ printf("read from %08lX %08lX (%d bytes => %d (0x%X))",
+ (unsigned long)bio, (unsigned long)argp,
+ argi, ret, ret);
+ tls_dump(argp, (int) ret);
+ return (ret);
+ } else if (cmd == (BIO_CB_WRITE | BIO_CB_RETURN)) {
+- printf("write to %08lX %08lX (%d bytes => %ld (0x%lX))",
++ printf("write to %08lX %08lX (%d bytes => %d (0x%X))",
+ (unsigned long) bio, (unsigned long)argp,
+ argi, ret, ret);
+ tls_dump(argp, (int) ret);
+@@ -1171,7 +1178,7 @@ EXPORTED int tls_start_servertls(int readfd, int writefd, int timeout,
+ * created for us, so we can use it for debugging purposes.
+ */
+ if (var_imapd_tls_loglevel >= 3)
+- BIO_set_callback(SSL_get_rbio(tls_conn), bio_dump_cb);
++ BIO_set_callback_ex(SSL_get_rbio(tls_conn), bio_dump_cb);
+ 
+ /* Dump the negotiation for loglevels 3 and 4*/
+ if (var_imapd_tls_loglevel >= 3)
+@@ -1402,7 +1409,7 @@ EXPORTED int tls_shutdown_serverengine(void)
+ sess_dbopen = 0;
+ }
+ 
+-#if (OPENSSL_VERSION_NUMBER >= 0x0090800fL)
++#if (OPENSSL_VERSION_NUMBER >= 0x0090800fL) && (OPENSSL_VERSION_NUMBER < 0x30000000L)
+ if (dh_params) DH_free(dh_params);
+ #endif
+ }
+@@ -1659,7 +1666,7 @@ HIDDEN int tls_start_clienttls(int readfd, int writefd,
+ * created for us, so we can use it for debugging purposes.
+ */
+ if (var_proxy_tls_loglevel >= 3)
+- BIO_set_callback(SSL_get_rbio(tls_conn), bio_dump_cb);
++ BIO_set_callback_ex(SSL_get_rbio(tls_conn), bio_dump_cb);
+ 
+ /* Dump the negotiation for loglevels 3 and 4*/
+ if (var_proxy_tls_loglevel >= 3)
+diff --git a/imtest/imtest.c b/imtest/imtest.c
+index 128fb5a5e..57eafe5c1 100644
+--- a/imtest/imtest.c
++++ b/imtest/imtest.c
+@@ -630,20 +630,22 @@ static int tls_dump(const char *s, int len)
+ 
+ /* taken from OpenSSL apps/s_cb.c */
+ 
+-static long bio_dump_cb(BIO * bio, int cmd, const char *argp, int argi,
+- long argl __attribute__((unused)), long ret)
++static long bio_dump_cb(BIO * bio, int cmd, const char *argp,
++ size_t len __attribute__((unused)), int argi,
++ long argl __attribute__((unused)), int ret,
++ size_t *processed __attribute__((unused)))
+ {
+ if (!do_dump)
+ return (ret);
+ 
+ if (cmd == (BIO_CB_READ | BIO_CB_RETURN)) {
+- printf("read from %08lX %08lX (%d bytes => %ld (0x%lX))\n",
++ printf("read from %08lX %08lX (%d bytes => %d (0x%X))\n",
+ (unsigned long) bio, (unsigned long) argp,
+ argi, ret, ret);
+ tls_dump(argp, (int) ret);
+ return (ret);
+ } else if (cmd == (BIO_CB_WRITE | BIO_CB_RETURN)) {
+- printf("write to %08lX %08lX (%d bytes => %ld (0x%lX))\n",
++ printf("write to %08lX %08lX (%d bytes => %d (0x%X))\n",
+ (unsigned long) bio, (unsigned long) argp,
+ argi, ret, ret);
+ tls_dump(argp, (int) ret);
+@@ -686,7 +688,7 @@ static int tls_start_clienttls(unsigned *layer, char **authid)
+ * created for us, so we can use it for debugging purposes.
+ */
+ if (verbose==1)
+- BIO_set_callback(SSL_get_rbio(tls_conn), bio_dump_cb);
++ BIO_set_callback_ex(SSL_get_rbio(tls_conn), bio_dump_cb);
+ 
+ /* Dump the negotiation for loglevels 3 and 4 */
+ if (verbose==1)
+-- 
+2.37.3
+

0003-Configurable-default-addressbook-display-name.patch Added

@@ -0,0 +1,41 @@
+From 9481178e24b09637ac8df3ceb3db462a9dfabdf5 Mon Sep 17 00:00:00 2001
+From: Christian Mollekopf <mollekopf@apheleia-it.ch>
+Date: Fri, 21 Oct 2022 12:15:20 +0200
+Subject: PATCH 3/4 Configurable default addressbook display name
+
+---
+ imap/http_carddav.c | 3 ++-
+ lib/imapoptions | 3 +++
+ 2 files changed, 5 insertions(+), 1 deletion(-)
+
+diff --git a/imap/http_carddav.c b/imap/http_carddav.c
+index ce2aa2370..a1fdf3718 100644
+--- a/imap/http_carddav.c
++++ b/imap/http_carddav.c
+@@ -502,7 +502,8 @@ EXPORTED int carddav_create_defaultaddressbook(const char *userid) {
+ r = mboxlist_lookup(mbname_intname(mbname), NULL, NULL);
+ if (r == IMAP_MAILBOX_NONEXISTENT) {
+ r = _create_mailbox(userid, mbname_intname(mbname),
+- MBTYPE_ADDRESSBOOK, "personal",
++ MBTYPE_ADDRESSBOOK,
++ config_getstring(IMAPOPT_ADDRESSBOOK_DEFAULT_DISPLAYNAME),
+ &namespacelock);
+ }
+ 
+diff --git a/lib/imapoptions b/lib/imapoptions
+index 3d43d1c36..c15163265 100644
+--- a/lib/imapoptions
++++ b/lib/imapoptions
+@@ -113,6 +113,9 @@ are listed with ``<none>''.
+ hierarchy will be at the toplevel of the shared namespace. A
+ user's personal addressbook hierarchy will be a child of their Inbox. */
+ 
++{ "addressbook_default_displayname", "personal", STRING, "3.4.5" }
++/* The displayname to be used when creating a user's 'Default' addressbook. */
++
+ { "admins", "", STRING, "2.3.17" }
+ /* The list of userids with administrative rights. Separate each userid
+ with a space. Sites using Kerberos authentication may use
+-- 
+2.37.3
+

0004-Autocreate-on-PROPFIND.patch Added

@@ -0,0 +1,70 @@
+From 26d7c35f3c674901c0691ea2ab388cbc818d9e9b Mon Sep 17 00:00:00 2001
+From: Christian Mollekopf <mollekopf@apheleia-it.ch>
+Date: Mon, 24 Oct 2022 21:37:34 +0200
+Subject: PATCH 4/4 Autocreate on PROPFIND
+
+If we don't have existing calendar folders then dav_parse_req_target
+fails, because it looks for the base calendar via mupdate.
+The new codepath simply attempts to lookup the inbox instead and then
+proxies the request to that backend, triggering the autocreate.
+This requires that the inbox has been created before though.
+---
+ imap/http_dav.c | 35 ++++++++++++++++++++++++++++++++++-
+ 1 file changed, 34 insertions(+), 1 deletion(-)
+
+diff --git a/imap/http_dav.c b/imap/http_dav.c
+index bd73964f2..285d4b939 100644
+--- a/imap/http_dav.c
++++ b/imap/http_dav.c
+@@ -509,6 +509,28 @@ static unsigned long principal_allow_cb(struct request_target_t *tgt)
+ return tgt->namespace->allow;
+ }
+ 
++static struct backend *proxy_findinboxserver(const char *userid)
++{
++ mbentry_t *mbentry = NULL;
++ struct backend *s = NULL;
++
++ char *inbox = mboxname_user_mbox(userid, NULL);
++ int r = mboxlist_lookup(inbox, &mbentry, NULL);
++ free(inbox);
++
++ if (r) return NULL;
++
++ if (mbentry->mbtype & MBTYPE_REMOTE) {
++ s = proxy_findserver(mbentry->server, &http_protocol,
++ httpd_userid, &backend_cached,
++ NULL, NULL, httpd_in);
++ }
++
++ mboxlist_entry_free(&mbentry);
++
++ return s;
++}
++
+ 
+ /* Parse request-target path in DAV principals namespace */
+ static int principal_parse_path(const char *path, struct request_target_t *tgt,
+@@ -6121,7 +6143,18 @@ EXPORTED int meth_propfind(struct transaction_t *txn, void *params)
+ /* Parse the path */
+ if (fparams->parse_path) {
+ r = dav_parse_req_target(txn, fparams);
+- if (r) return r;
++ if (r) {
++
++ struct backend *be;
++ be = proxy_findinboxserver(txn->req_tgt.userid);
++ if (!be) {
++ syslog(LOG_ERR, "Could not find a backend");
++ return HTTP_UNAVAILABLE;
++ }
++ return http_pipe_req_resp(be, txn);
++
++ return r;
++ }
+ }
+ 
+ /* Make sure method is allowed */
+-- 
+2.37.3
+

README.rpm Added

@@ -0,0 +1,34 @@
+---------------
+Cyrus IMAPd RPM
+---------------
+
+This is a _very_ 'quick and dirty' install howto.
+
+The following steps should lead you to a running Cyrus IMAP server:
+
+1) Install on a distribution which is supported by this RPM. Don't install
+ on a dirty system, where you have previously installed from source.
+2) Don't install if you have a previous Cyrus IMAPd installation <=2.1.x on
+ your box. Upgrading any Invoca rpm based installation should be fine.
+3) Make sure you understand that this RPM installs in FHS compliant
+ directories, like /var/lib/imap and /var/spool/imap
+4) Make sure cyrus-sasl is installed.
+5) Make sure saslauthd is running. If not, edit /etc/sysconfig/saslauthd as
+ needed and do 'chkconfig saslauthd on ; service saslauthd start'
+6) Install the cyrus-imapd RPMs.
+7) If it's your first install of Cyrus IMAPd, then set a password for the
+ cyrus user in whatever database you are using to authenticate. When
+ using a local account, this should be 'passwd cyrus'.
+8) Make sure your MTA delivers to Cyrus IMAPd, I recommend LMTP for this.
+9) Start Cyrus IMAPd with 'service cyrus-imapd start'
+10) Run cyradm and create a user. Usually it's something like this:
+ 'cyradm --user=cyrus --auth=login localhost'
+11) If you're using sendmail, be aware that cyrusv2.m4 included in standard
+ sendmail distribution uses socket /var/imap/socket/lmtp while this rpm
+ uses /var/lib/imap/socket/lmtp.
+12) Check your syslog configuration. This RPM uses the mail facility to log
+ messages. On busy sites you may want to limit the mail facility to the
+ info priority with something like 'mail.info /var/log/maillog' in
+ /etc/syslog.conf.
+
+Enjoy!

cassandane-testdata-ca669d4b.tar.gz Added

cassandane.ini Added

@@ -0,0 +1,56 @@
+# A basic cassandane.ini file for running cassandane as part of the Fedora
+# package build process.
+
+# The idea here is to run tests on the just-compiled version of cyrus-imapd.
+# However, many of the build locations are just random temporary directories, and
+# so this requires some finesse.
+
+cassandane
+rootdir = CASSDIR/work
+pwcheck = alwaystrue # This is enabled in Fedora builds
+cleanup = no
+maxworkers = 1
+base_port = 19100
+
+#valgrind
+#enabled = no
+
+# The installed copy
+cyrus default
+prefix = /usr
+destdir = BUILDROOT
+quota = cyr_quota
+
+# Replication testing disabled
+# cyrus replica
+# cyrus murder
+
+# Don't enable any of the gdb options but leave them here in case someone ever
+# needs to do so
+#gdb
+# imapd = yes
+# sync_server = yes
+# lntpd = yes
+# timsieved = yes
+# backupd = yes
+
+config
+altnamespace = no
+unixhierarchysep = no
+client_timeout = 60
+
+#caldavtalk
+#basedir = CASSDIR/cassandane/testdata
+
+imaptest
+# Cassandane wants this to not be installed.  Don't know why.  To use it we
+# have to make a directory and link things into it.
+basedir = imaptest
+
+# jmaptester
+# basedir = JMAP-Tester
+# The JMAP modules end up needing JSON-Typist (which I could bundle) and CryptX (which is a bit too much to bundle)
+
+# caldavtester
+# XXX Would need to include the source in the cyrus package just as cassandane is, and get it built before running tests
+# basedir = ...

cyr_systemd_helper Deleted

@@ -1,106 +0,0 @@
-#!/bin/sh
-# get_config config default
-# extracts config option from config file
-
-if ! -c /dev/null ; then
- exit 1
-fi
-
-if ! -r /dev/null -o ! -w /dev/null ; then
- exit 1
-fi
-
-if "$(stat -c %a /dev/null)" != "666" ; then
- chmod 666 /dev/null
-fi
-
-if -f /etc/sysconfig/cyrus-imapd ; then
- . /etc/sysconfig/cyrus-imapd
-elif -f /etc/default/cyrus-imapd ; then
- . /etc/default/cyrus-imapd
-fi
-
-if ! -z "${QUICK}" ; then
- if ${QUICK} -ne 0 ; then
- exit 0
- fi
-fi
-
-get_config() {
- if conf=$(grep "^$1" /etc/imapd.conf); then
- echo $conf | cut -d: -f2
- else
- echo $2
- fi
-}
-
-CONFIGDIRECTORY=$(get_config configdirectory /var/lib/imap)
-if ! -d ${CONFIGDIRECTORY} ; then
- mkdir -p ${CONFIGDIRECTORY}
- chmod 700 ${CONFIGDIRECTORY}
- chown cyrus:mail ${CONFIGDIRECTORY}
-fi
-
-RETVAL=0
-
-# Sometimes, there is no path
-runuser=$(which runuser 2>/dev/null)
-
-if -z "${runuser}" ; then
- runuser=/usr/sbin/runuser
-fi
-
-reload() {
- if ! -f /var/run/cyrus-master.pid ; then
- exit 255
- fi
-
- if -z "$(pidof cyrus-master)" ; then
- exit 1
- fi
-
- if "$(cat /var/run/cyrus-master.pid)" != "$(pidof cyrus-master)" ; then
- exit 1
- fi
-
- kill -HUP $(cat /var/run/cyrus-master.pid)
-}
-
-start() {
- cd $CONFIGDIRECTORY
- $runuser - cyrus -s /bin/bash -c '/usr/lib/cyrus-imapd/mkimap' >/dev/null 2>&1 < /dev/null
-
- mkdir -p ${CONFIGDIRECTORY}/rpm
- chown cyrus:mail ${CONFIGDIRECTORY}/rpm
-
- $runuser - cyrus -s /bin/sh -c "umask 166 ; /usr/lib/cyrus-imapd/cvt_cyrusdb_all import > ${CONFIGDIRECTORY}/rpm/db_import.log 2>&1" < /dev/null
- RETVAL=$?
-}
-
-stop() {
- cd $CONFIGDIRECTORY
- mkdir -p ${CONFIGDIRECTORY}/rpm
- chown cyrus:mail ${CONFIGDIRECTORY}/rpm
-
- $runuser - cyrus -s /bin/sh -c "umask 166 ; /usr/lib/cyrus-imapd/cvt_cyrusdb_all export > ${CONFIGDIRECTORY}/rpm/db_export.log 2>&1" < /dev/null
- RETVAL=$?
-}
-
-case "$1" in
- reload)
- reload
- ;;
-
- start)
- start
- ;;
-
- stop)
- stop
- ;;
-
- *)
- ;;
-esac
-
-exit $RETVAL

cyrus-imapd-2.5.17-34-3e2a85d6e.tar.gz Deleted

cyrus-imapd-3.6.0-rc1.tar.gz Added

cyrus-imapd-init.service Added

cyrus-imapd.cron-daily Changed

cyrus-imapd.cvt_cyrusdb_all Deleted

@@ -1,268 +0,0 @@
-#!/bin/bash
-# Simplified version of Simon Matter's cvt_cyrusdb_all.
-
-function usage() {
- echo "Usage: $0 -C <altconfig> --verbose --devel <export|import>"
- exit 1
-}
-
-if ! -c /dev/null ; then
- exit 1
-fi
-
-if ! -r /dev/null -o ! -w /dev/null ; then
- exit 1
-fi
-
-if "$(stat -c %a /dev/null)" != "666" ; then
- chmod 666 /dev/null
-fi
-
-if -f /etc/sysconfig/cyrus-imapd ; then
- . /etc/sysconfig/cyrus-imapd
-elif -f /etc/default/cyrus-imapd ; then
- . /etc/default/cyrus-imapd
-fi
-
-if ! -z "${QUICK}" ; then
- if ${QUICK} -ne 0 ; then
- exit 0
- fi
-fi
-
-# Ensure this script is run as the cyrus user.
-if -x "$(which runuser 2>/dev/null)" ; then
- SWITCHUSER=runuser
-else
- SWITCHUSER=su
-fi
-
-#if ! $(whoami) = "cyrus" ; then
-# exec $SWITCHUSER -s /bin/bash - cyrus -c "cd \$HOME < /dev/null ; INSTANCE=$0 $*"
-# exit 0
-#fi
-
-alt_config="/etc/imapd.conf"
-devel_mode=0
-verbose_mode=0
-mode=""
-
-while $# -gt 0 ; do
- case $1 in
- -C)
- alt_config=$2
- shift; shift
- ;;
-
- --devel)
- devel_mode=1
- shift
- ;;
-
- --verbose)
- verbose_mode=1
- shift
- ;;
-
- export|import)
- mode=$1
- shift
- ;;
-
- *)
- usage
- ;;
-
- esac
-done
-
-if -z "${mode}" ; then
- usage
-fi
-
-if ${devel_mode} -eq 1 ; then
- verbose_mode=1
-fi
-
-declare -a dbs
-declare -a db_paths
-
-dbs${#dbs@}="annotation_db"; db_paths${#db_paths@}="annotations.db"
-dbs${#dbs@}="duplicate_db"; db_paths${#db_paths@}="deliver.db"
-# dbs${#dbs@}="mboxkey_db"; db_paths${#db_paths@}=""
-dbs${#dbs@}="mboxlist_db"; db_paths${#db_paths@}="mailboxes.db"
-dbs${#dbs@}="ptscache_db"; db_paths${#db_paths@}="ptclient/ptscache.db"
-dbs${#dbs@}="quota_db"; db_paths${#db_paths@}="quotas.db"
-# dbs${#dbs@}="seenstate_db"; db_paths${#db_paths@}=""
-dbs${#dbs@}="statuscache_db"; db_paths${#db_paths@}="statuscache.db"
-# dbs${#dbs@}="subscription_db"; db_paths${#db_paths@}=""
-dbs${#dbs@}="tls_sessions_db"; db_paths${#db_paths@}="tls_sessions.db"
-dbs${#dbs@}="userdeny_db"; db_paths${#db_paths@}="user_deny.db"
-
-# /usr/lib/cyrus-imapd/cyr_dbtool /var/lib/imap/annotations.db skiplist consistent; echo $?
-# Yes, consistent
-# 0
-
-cvt_cyrusdb="/usr/lib/cyrus-imapd/cvt_cyrusdb"
-cyr_dbtool="/usr/lib/cyrus-imapd/cyr_dbtool"
-cyr_info="/usr/lib/cyrus-imapd/cyr_info"
-
-system_magic=$(file --version 2>&1 | awk '/magic file/ {print $4}')
-
-if ${devel_mode} -gt 0 ; then
- if -f "$(pwd)/imap/cvt_cyrusdb" ; then
- cvt_cyrusdb="$(pwd)/imap/cvt_cyrusdb"
- fi
-
- if -f "$(pwd)/imap/.libs/cyr_dbtool" ; then
- cyr_dbtool="$(pwd)/imap/cyr_dbtool"
- fi
-
- if -f "$(pwd)/imap/.libs/cyr_info" ; then
- cyr_info="$(pwd)/imap/cyr_info"
- fi
-fi
-
-function check_consistency() {
- db_path=$1
- db_tech=$2
-
- if ! -f "${db_path}" ; then
- return 1
- fi
-
- retval=$(${cyr_dbtool} -C ${alt_config} ${db_path} ${db_tech} consistent >/dev/null 2>&1; echo $?)
-
- return ${retval}
-}
-
-function convert_database() {
- retval=$(${cvt_cyrusdb} -C ${alt_config} "$1" "$2" "$3" "$4" >/dev/null 2>&1; echo $?)
- chown cyrus:mail "$3"
-}
-
-function expand_db_path() {
- if "${1:0:1}" != "/" ; then
- config_directory=$(get_config "configdirectory")
- value="${config_directory}/${1}"
- fi
-
- echo "${value}"
-}
-
-function get_config() {
- echo $(${cyr_info} -C ${alt_config} conf | grep -E "^$1:\s+" | sed -r -e 's/a-z0-9_-+\:\s*(.*)/\1/g')
-}
-
-function get_config_default() {
- echo $(${cyr_info} -C ${alt_config} conf-default | grep -E "^$1:\s+" | sed -r -e 's/a-z0-9_-+\:\s*(.*)/\1/g')
-}
-
-function get_current() {
- default_path="$2"
- value=$(${cyr_info} -C ${alt_config} conf-all | grep -E "^$1_path:\s+" | sed -r -e 's/a-z0-9_-+\:\s*(.*)/\1/g')
-
- if -z "${value}" ; then
- if ! -z "${default_path}" ; then
- value=$(expand_db_path "${default_path}")
- fi
- fi
-
- if -z "${value}" ; then
- return 1
- fi
-
- if ! -f "${value}" ; then
- return 1
- fi
-
- current=$(file -b -m /var/lib/imap/rpm/magic:${system_magic} "${value}")
-
- if echo "${current}" | grep -qi skiplist > /dev/null 2>&1; then
- current="skiplist"
- elif echo "${current}" | grep -qi twoskip > /dev/null 2>&1; then
- current="twoskip"
- elif echo "${current}" | grep -qi text > /dev/null 2>&1; then
- current="flat"
- else
- current="berkeley"
- fi
-
- echo "${current}"
-}
-
-config_directory=$(get_config "configdirectory")
-
-if ${devel_mode} -eq 1 ; then
- echo "Using configuration directory: '${config_directory}'"
-fi
-
-x=0
-while ${x} -lt ${#dbs@} ; do
- config=$(get_config "${dbs${x}}")
- default=$(get_config_default "${dbs${x}}")
- current=$(get_current "${dbs${x}}" "${db_paths${x}}")
-
- if ${verbose_mode} -eq 1 ; then
- echo -n "${dbs${x}}: "
- fi
-
- if $? -ne 0 ; then
- if ${verbose_mode} -eq 1 ; then
- echo "SKIPPED"
- fi
- let x++
- continue
- fi
-
- # If configuration doesn't hold anything, we have defaults
- if -z "${config}" ; then
- config="${default}"
- fi
-
- if "${config}" == "${default}" -a "${config}" == "${current}" ; then
- if ${verbose_mode} -eq 1 ; then
- echo "SKIPPED (unchanged)"
- fi
- let x++
- continue
- fi
-
- db_path=$(expand_db_path "${db_paths${x}}")
-
- if ! -f "${db_path}" ; then
- if ${verbose_mode} -eq 1 ; then
- echo "SKIPPED (No such file or directory '${db_path}')"
- fi
- let x++
- continue
- fi
-
- if "${current}" != "${default}" ; then
- if ${devel_mode} -eq 1 ; then
- echo -n "to default(1), "
- fi
- convert_database "${db_path}" "${current}" "${db_path}.${default}" "${default}"
- fi
-
- if "${current}" != "${config}" ; then
- mv "${db_path}" "${db_path}.${current}"
- if "${current}" != "${default}" ; then
- if ${devel_mode} -eq 1 ; then
- echo -n "to default(2), "
- fi
- convert_database "${db_path}.${current}" "${current}" "${db_path}.${default}" "${default}"
- fi
-
- if ${devel_mode} -eq 1 ; then
- echo -n "to config(1), "
- fi
- convert_database "${db_path}.${current}" "${current}" "${db_path}" "${config}"
- fi
-
- if ${verbose_mode} -eq 1 ; then
- echo "OK"
- fi
-
- let x++
-done

cyrus-imapd.dsc Deleted

@@ -1,47 +0,0 @@
-Format: 1.0
-Source: cyrus-imapd
-Binary: cyrus-imapd
-Architecture: any
-Version: 2.5.17.34-0~kolab1
-Maintainer: Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com>
-Uploaders: Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com>
-Homepage: http://www.cyrusimap.org/
-Standards-Version: 3.9.1
-Vcs-Browser: http://git.kolabsys.com/apt/cyrus-imapd/
-Vcs-Git: git://git.kolabsys.com/git/apt/cyrus-imapd
-Build-Depends:
- autoconf,
- automake,
- autotools-dev,
- bison,
- comerr-dev,
- debhelper (>= 5),
- flex,
- ghostscript | gs-gpl,
- groff,
- heimdal-dev,
- libdb5.1-dev | libdb-dev,
- libjansson-dev,
- libkvm-dev kfreebsd-amd64,
- libkvm-dev kfreebsd-i391,
- libldap2-dev,
- libpam0g-dev,
- libpcre3-dev,
- libsasl2-dev (>= 2.1.9),
- libsnmp-dev | libsnmp9-dev,
- libssl-dev,
- libtool,
- libwrap0-dev,
- libzephyr-dev,
- lsb-base,
- perl,
- pkg-config,
- po-debconf,
- tcl-dev | tcl8.3-dev,
- transfig,
- xutils-dev | xutils
-Package-List:
- cyrus-imapd deb mail extra
-Files:
- 00000000000000000000000000000000 0 cyrus-imapd-2.5.17-34-3e2a85d6e.tar.gz
- 00000000000000000000000000000000 0 debian.tar.gz

cyrus-imapd.imap-2.3.x-conf Deleted

cyrus-imapd.init Deleted

@@ -1,160 +0,0 @@
-#!/bin/sh
-#
-# chkconfig: - 65 35
-# description: The Cyrus IMAPD master serves as a master process for the Cyrus \
-# IMAP and POP servers.
-# config: /etc/cyrus.conf
-# config: /etc/imapd.conf
-# pidfile: /var/run/cyrus-master.pid
-
-# author:	Simon Matter, Invoca Systems <simon.matter@invoca.ch>
-# version:	2005111100
-# changed:	add quickstart/stop option to init script to bypass db import/export
-
-. /etc/init.d/functions
-
-config=/etc/imapd.conf
-config2=/etc/cyrus.conf
-exec=/usr/lib/cyrus-imapd/cyrus-master
-lockfile=/var/lock/subsys/cyrus-imapd
-pidfile=/var/run/cyrus-master.pid
-prog="cyrus-imapd"
-
-QUICK=0
-
-if -f /etc/sysconfig/$prog ; then
- . /etc/sysconfig/$prog
-fi
-
-# check if the config files are present
-configok=true
- -f $config -a $config2 || configok=false
- 
-# get_config config default
-# extracts config option from config file
-get_config() {
- if conf=$(grep "^$1" /etc/imapd.conf); then
- echo $conf | cut -d: -f2
- else
- echo $2
- fi
-}
-
-# where to find files and directories
-CONFIGDIRECTORY=$(get_config configdirectory /var/lib/imap)
-CYRUSMASTER=/usr/lib/cyrus-imapd/cyrus-master
-CYRUS_PROC_NAME=$(basename $CYRUSMASTER)
-ALWAYS_CONVERT=1
-
-RETVAL=0
-RETVAL2=1
-
-start() {
- $UID -eq 0 || exit 4
- -x $exec || exit 5
- $configok || exit 6
- if $(/sbin/pidof -s $CYRUSMASTER) ; then
- echo -n $"$prog already running."
- true
- echo
- else
- if $QUICK -eq 0 ; then
- echo -n $"Importing $prog databases: "
- cd $CONFIGDIRECTORY
- runuser - cyrus -s /bin/sh -c "umask 166 ; /usr/lib/cyrus-imapd/cvt_cyrusdb_all import > ${CONFIGDIRECTORY}/rpm/db_import.log 2>&1" < /dev/null
- RETVAL=$?
- if $RETVAL -eq 0 ; then
- success $"$prog importing databases"
- else
- failure $"$prog error importing databases, check ${CONFIGDIRECTORY}/rpm/db_import.log"
- fi
- echo
- fi
- if $RETVAL -eq 0 ; then
- echo -n $"Starting $prog: "
- daemon $CYRUSMASTER -d $CYRUSOPTIONS
- RETVAL2=$?
- echo
- fi
- fi
- $RETVAL -eq 0 -a $RETVAL2 -eq 0 && touch $lockfile
- return $RETVAL
-}
-
-stop() {
- $UID -eq 0 || exit 4
- -x $exec || exit 5
-
- echo -n $"Shutting down $prog: "
- killproc $CYRUSMASTER
- RETVAL=$?
- if $QUICK -eq 0 ; then
- if ! $(/sbin/pidof -s $CYRUSMASTER) ; then
- echo
- echo -n $"Exporting $prog databases: "
- cd $CONFIGDIRECTORY
- runuser - cyrus -s /bin/sh -c "umask 166 ; /usr/lib/cyrus-imapd/cvt_cyrusdb_all export > ${CONFIGDIRECTORY}/rpm/db_export.log 2>&1" < /dev/null
- RETVAL2=$?
- if $RETVAL2 -eq 0 ; then
- success $"$prog exporting databases"
- else
- failure $"$prog error exporting databases, check ${CONFIGDIRECTORY}/rpm/db_export.log"
- fi
- fi
- fi
- echo
- $RETVAL -eq 0 -a $RETVAL2 -eq 0 && rm -f $lockfile
- return $RETVAL
-}
-
-restart() {
- stop
- start
-}
-
-reload() {
- echo -n $"Reloading cyrus.conf file: "
- killproc $CYRUSMASTER -HUP
- RETVAL=$?
- echo
- return $RETVAL
-}
- 
-case "$1" in
- start)
- start
- ;;
- stop)
- stop
- ;;
- force-reload|restart)
- restart
- ;;
- reload)
- reload
- ;;
- condrestart|try-restart)
- if -f $lockfile ; then
- stop
- start
- fi
- ;;
- status)
- status -p $pidfile $prog 
- RETVAL=$?
- ;;
- quickstart)
- QUICK=1
- start
- ;;
- quickstop)
- QUICK=1
- stop
- ;;
- *)
- echo $"Usage: $0 {start|stop|restart|reload|force-reload|condrestart|try-restart|status|quickstart|quickstop}"
- RETVAL=2
- "$1" = "usage" && RETVAL=0
-esac
-
-exit $RETVAL

cyrus-imapd.magic Changed

cyrus-imapd.pam-config Changed

cyrus-imapd.service Changed

cyrus-imapd.sysconfig Changed

cyrus-imapd.tmpfiles.conf Added

debian.changelog Deleted

@@ -1,543 +0,0 @@
-cyrus-imapd (2.5.17.34-0~kolab1) unstable; urgency=low
-
- * Check in 34 revisions ahead of the upsteam 2.5.17 release
-
- -- Jeroen van Meeuwen <vanmeeuwen@apheleia-it.ch> Wed, 28 Jul 2021 11:30:13 +0100
-
-cyrus-imapd (2.5.15.28-0~kolab1) unstable; urgency=low
-
- * Ensure MessageExpunge notifications include a user parameter even if it is (none)
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Thu, 30 Jan 2020 11:30:13 +0100
-
-cyrus-imapd (2.5.13.36-0~kolab4) unstable; urgency=low
-
- * added patch: 0003-Canonification-for-multiple-domains.patch
- * added cyrus-(admin,clients,murder,nntpd,pop3d,replication) to Provides
- Control field to match vanilla cyrus-imapd packages
-
- -- Daniel Hoffend <dh@dotlan.net> Sun, 24 Nov 2019 01:44:00 +0100
-
-cyrus-imapd (2.5.13.36-0~kolab3) unstable; urgency=low
-
- * Include the user or group ID in failed authentication attempts
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Tue, 29 Oct 2019 11:30:13 +0100
-
-cyrus-imapd (2.5.13.36-0~kolab2) unstable; urgency=low
-
- * Rebase on to upstream 2.5.13
- * Fix ptloader group membership (Bifrost T250286)
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Wed, 23 Oct 2019 11:30:13 +0100
-
-cyrus-imapd (2.5.13.30-0~kolab2) unstable; urgency=low
-
- * Rebase on to upstream 2.5.13
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Mon, 19 Aug 2019 11:30:13 +0100
-
-cyrus-imapd (2.5.12.25-0~kolab1) unstable; urgency=low
-
- * Rebase on to upstream 2.5.12
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Wed, 2 Jan 2019 11:30:13 +0100
-
-cyrus-imapd (2.5.11.41-0~kolab2) unstable; urgency=low
-
- * Fix potential non-writeable /dev/null and consequences
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Tue, 17 Oct 2017 11:30:13 +0100
-
-cyrus-imapd (2.5.11.41-0~kolab1) unstable; urgency=low
-
- * Fix syntax of badlogin messages
- * Fix erroneous IOERRER messages for proc_foreach
- * Fix segfault in XFER
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Tue, 11 Jul 2017 11:30:13 +0100
-
-cyrus-imapd (2.5.11.29-0~kolab1) unstable; urgency=low
-
- * Check in upstream version 2.5.11
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Sat, 1 Jul 2017 11:30:13 +0100
-
-cyrus-imapd (2.5.10.55-0~kolab1) unstable; urgency=low
-
- * Fix proxying extended list usage.
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Tue, 13 Dec 2016 11:30:13 +0100
-
-cyrus-imapd (2.5.10.49-0~kolab1) unstable; urgency=low
-
- * Decode subject line before re-encoding it in automatic responses.
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Mon, 14 Nov 2016 11:30:13 +0100
-
-cyrus-imapd (2.5.10.43-0~kolab1) unstable; urgency=low
-
- * Preserve the folder uniqueid on rename.
- * Transfer a folder between backends preserving the mailboxes.db uniqueid.
- * Allow replicated backends to transfer mailboxes between pairs.
- * Preserve the original partition as the target partition if not the default
- partition, when replicating or transferring a mailbox.
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Sat, 05 Nov 2016 11:30:13 +0100
-
-cyrus-imapd (2.5.9-0~kolab31.1) unstable; urgency=low
-
- * Check in a snapshot version 31 revisions ahead of the upstream 2.5.9 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Fri, 30 Sep 2016 11:30:13 +0100
-
-cyrus-imapd (2.5.9-0~kolab27.1) unstable; urgency=low
-
- * Check in a snapshot version 27 revisions ahead of the upstream 2.5.9 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Thu, 22 Sep 2016 11:30:13 +0100
-
-cyrus-imapd (2.5.9-0~kolab11.1) unstable; urgency=low
-
- * Check in a snapshot version 11 revisions ahead of the upstream 2.5.9 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Thu, 2 Jun 2016 11:30:13 +0100
-
-cyrus-imapd (2.5.8-0~kolab22.1) unstable; urgency=low
-
- * Check in a snapshot version 22 revisions ahead of the upstream 2.5.8 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Thu, 7 Jul 2016 11:30:13 +0100
-
-cyrus-imapd (2.5.8-0~kolab12.1) unstable; urgency=low
-
- * Check in a snapshot version 12 revisions ahead of the upstream 2.5.8 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Thu, 2 Jun 2016 11:30:13 +0100
-
-cyrus-imapd (2.5.7-0~kolab26.1) unstable; urgency=low
-
- * Check in a snapshot version 26 revisions ahead of the upstream 2.5.7 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Mon, 9 May 2016 11:30:13 +0100
-
-cyrus-imapd (2.5.7-0~kolab25.1) unstable; urgency=low
-
- * Check in a snapshot version 25 revisions ahead of the upstream 2.5.7 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Fri, 29 Apr 2016 11:30:13 +0100
-
-cyrus-imapd (2.5.7-0~kolab23.1) unstable; urgency=low
-
- * Check in a snapshot version 23 revisions ahead of the upstream 2.5.7 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Tue, 12 Apr 2016 11:30:13 +0100
-
-cyrus-imapd (2.5.7-0~kolab10.1) unstable; urgency=low
-
- * Check in a snapshot version 10 revisions ahead of the upstream 2.5.7 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Mon, 21 Mar 2016 11:30:13 +0100
-
-cyrus-imapd (2.5.7-0~kolab8.1) unstable; urgency=low
-
- * Check in a snapshot version 8 revisions ahead of the upstream 2.5.7 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Thu, 10 Mar 2016 11:30:13 +0100
-
-cyrus-imapd (2.5.7-0~kolab1) unstable; urgency=low
-
- * New upstream 2.5.7 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Wed, 16 Dec 2015 11:30:13 +0100
-
-cyrus-imapd (2.5.6-0~kolab7.1) unstable; urgency=low
-
- * Check in a snapshot version 7 revisions ahead of the new upstream 2.5.6 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Fri, 25 Sep 2015 11:30:13 +0100
-
-cyrus-imapd (2.5.6-0~kolab3.1) unstable; urgency=low
-
- * Check in a snapshot version 3 revisions ahead of the new upstream 2.5.6 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Sun, 20 Sep 2015 11:30:13 +0100
-
-cyrus-imapd (2.5.5-0~kolab5.2) unstable; urgency=low
-
- * Fixed building and packing of cyrus perl modules
-
- -- Daniel Hoffend <dh@dotlan.net> Mon, 14 Sep 2015 22:03:00 +0200
-
-cyrus-imapd (2.5.5-0~kolab5.1) unstable; urgency=low
-
- * Check in a snapshot version 5 revisions ahead of the new upstream 2.5.5 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Wed, 13 May 2015 11:30:13 +0100
-
-cyrus-imapd (2.5.2-0~kolab3.1) unstable; urgency=low
-
- * Check in a snapshot version 3 revisions ahead of the new upstream 2.5.2 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Wed, 13 May 2015 11:30:13 +0100
-
-cyrus-imapd (2.5.2-0~kolab1.1) unstable; urgency=low
-
- * Check in a snapshot version 1 revision ahead of the new upstream 2.5.2 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Tue, 12 May 2015 11:30:13 +0100
-
-cyrus-imapd (2.5.1-0~kolab19.1) unstable; urgency=low
-
- * Check in a snapshot version 19 revisions ahead of the new upstream 2.5.1 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Tue, 28 Apr 2015 11:30:13 +0100
-
-cyrus-imapd (2.5.1-0~kolab5.1) unstable; urgency=low
-
- * Check in a snapshot version 5 revisions ahead of the new upstream 2.5.1 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Mon, 27 Apr 2015 11:30:13 +0100
-
-cyrus-imapd (2.5.0-0~kolab91.1) unstable; urgency=low
-
- * Check in a snapshot version 91 revisions ahead of the new upstream 2.5.0 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Thu, 19 Apr 2015 11:30:13 +0100
-
-cyrus-imapd (2.5.0-0~kolab58.1) unstable; urgency=low
-
- * Check in a snapshot version 58 revisions ahead of the new upstream 2.5.0 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Sat, 11 Apr 2015 11:30:13 +0100
-
-cyrus-imapd (2.5.0-0~kolab45.1) unstable; urgency=low
-
- * Check in a snapshot version 45 revisions ahead of the new upstream 2.5.0 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Wed, 25 Mar 2015 11:30:13 +0100
-
-cyrus-imapd (2.5.0-0~kolab34.1) unstable; urgency=low
-
- * Check in a snapshot version 34 revisions ahead of the new upstream 2.5.0 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Fri, 20 Mar 2015 11:30:13 +0100
-
-cyrus-imapd (2.5.0-0~kolab30.1) unstable; urgency=low
-
- * Check in a snapshot version 30 revisions ahead of the new upstream 2.5.0 release
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Tue, 10 Mar 2015 11:30:13 +0100
-
-cyrus-imapd (2.5~dev2015021301-0~kolab1) unstable; urgency=low
-
- * New snapshot at e9158f39130b553a4f62b891f61193cf1b199fc3
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Fri, 13 Feb 2015 11:30:13 +0100
-
-cyrus-imapd (2.5~dev2014120901-0~kolab1) unstable; urgency=low
-
- * New snapshot at f01310091cbf58958412deda9c61ecfd7c82a19b
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Tue, 9 Dec 2014 11:30:13 +0100
-
-cyrus-imapd (2.5~dev2014120401-0~kolab1) unstable; urgency=low
-
- * New snapshot at 7f5b99bab9641d89735a882761e4d19eca3a4068
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Thu, 4 Dec 2014 11:30:13 +0100
-
-cyrus-imapd (2.5~dev2014112701-0~kolab1) unstable; urgency=low
-
- * New snapshot at 3123ee091529130cd7045a0ba4f9296be77cb5ac
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Thu, 27 Nov 2014 11:30:13 +0100
-
-cyrus-imapd (2.5~dev2014112301-0~kolab1) unstable; urgency=low
-
- * New snapshot at 631aa71cf5fe691563ae1d7e740a5cc76d0bf75f
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Sun, 23 Nov 2014 11:30:13 +0100
-
-cyrus-imapd (2.5~dev2014112201-0~kolab1) unstable; urgency=low
-
- * New snapshot at 790df515eedd8be0050b14bfb7ab471c6ab9c6d3
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Sat, 22 Nov 2014 11:30:13 +0100
-
-cyrus-imapd (2.5~dev2014111801-0~kolab1) unstable; urgency=low
-
- * New snapshot at e1f53f2dda607c19c7f6b2293aba65e4d2c9c47f
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Tue, 18 Nov 2014 11:30:13 +0100
-
-cyrus-imapd (2.5~dev2014111701-0~kolab1) unstable; urgency=low
-
- * New snapshot at b20b142c6ce0ee58e4e47da84a2ce099310b2dcb
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Mon, 17 Nov 2014 11:30:13 +0100
-
-cyrus-imapd (2.5~dev2014111201-0~kolab2) unstable; urgency=low
-
- * Set the default database format to skiplist
- * New snapshot at 7361099c548f11f5dff5d65591ba39f150e46938
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Thu, 12 Nov 2014 11:30:13 +0100
-
-cyrus-imapd (2.5~dev2014111201-0~kolab1) unstable; urgency=low
-
- * Ship a GIT development snapshot from git.cyrusimap.org
- 58e1f4b277591e448f726bdafe6f2e250c9ea5f4
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Wed, 11 Nov 2014 11:30:13 +0100
-
-cyrus-imapd (2.5~dev2014110501-0~kolab1) unstable; urgency=low
-
- * Ship a GIT development snapshot from git.cyrusimap.org
- 2941de1350adf7f0d99443ace884f40c754df193
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Wed, 5 Nov 2014 11:30:13 +0100
-
-cyrus-imapd (2.5~dev2014103002-0~kolab1) unstable; urgency=low
-
- * Ship a GIT development snapshot from git.cyrusimap.org
- 8f15dcd0c71aff01f6d30e91944e9efcb5915b87
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Thu, 30 Oct 2014 11:30:13 +0100
-
-cyrus-imapd (2.5~dev2014101701-0~kolab1) unstable; urgency=low
-
- * Ship a GIT development snapshot from git.cyrusimap.org
- 9704e5d41981a18f46a63af78cf02c63fe3824a6
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Fri, 17 Oct 2014 11:30:13 +0100
-
-cyrus-imapd (2.5~dev2014100701-0~kolab1) unstable; urgency=low
-
- * Ship a GIT development snapshot from git.cyrusimap.org
- d8beae4e3a9490b0435caee22ddae313b8f4b17b
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Tue, 7 Oct 2014 11:30:13 +0100
-
-cyrus-imapd (2.5~dev2014100301-0~kolab1) unstable; urgency=low
-
- * Ship a GIT development snapshot from git.cyrusimap.org
- 44e8e7f7d0e19cc6005441709fc7c02e7032d6b3
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Fri, 3 Oct 2014 11:30:13 +0100
-
-cyrus-imapd (2.5~dev2014092501-0~kolab1) unstable; urgency=low
-
- * Ship a GIT development snapshot from git.cyrusimap.org
- 1907cfc24b5b3bee0e4f81f87ba5ab3be3a8a418
- * Fix event notifications
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Thu, 25 Sep 2014 11:30:13 +0100
-
-cyrus-imapd (2.5~dev2014082901-0~kolab1) unstable; urgency=low
-
- * Ship a GIT development snapshot from git.cyrusimap.org
- b2ef80bee2102d0eadf280c6c23b5759920d1752
- * Merge enhanced Sieve Date and Index extension
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Fri, 29 Aug 2014 11:30:13 +0100
-
-cyrus-imapd (2.5~dev2014081301-0~kolab1) unstable; urgency=low
-
- * Ship a GIT development snapshot from git.cyrusimap.org
- 3d45146a7befa1951d46a4db381fb10be40e53ee
- * Correct the default location of sockets (https://issues.kolab.org/show_bug.cgi?id=3468)
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Thu, 21 Aug 2014 11:30:13 +0100
-
-cyrus-imapd (2.5~dev2014011701-0~kolab1) unstable; urgency=low
-
- * Ship a GIT development snapshot
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Fri, 17 Jan 2014 11:30:13 +0100
-
-cyrus-imapd (2.4.17-8) unstable; urgency=low
-
- * Add /var/lib/imap/ptclient directory
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Mon, 10 Feb 2013 11:30:13 +0100
-
-cyrus-imapd (2.4.17-7) unstable; urgency=low
-
- * Start cyrus-imapd service in postinst
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Sat, 23 Nov 2013 11:30:13 +0100
-
-cyrus-imapd (2.4.17-6) unstable; urgency=low
-
- Jeroen van Meeuwen (Kolab Systems) 
- * Supply 3.1 version of /etc/imapd.annotations.conf
- * When stat-overriding directories, really they should exist as well
-
- Jeroen van Meeuwen 
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Fri, 15 Nov 2013 11:30:13 +0100
-
-cyrus-imapd (2.4.17-4) unstable; urgency=low
-
- Jeroen van Meeuwen (Kolab Systems) 
- * Refresh patch to normalize the uid so that it actually takes the configuration option in to account
-
- Jeroen van Meeuwen 
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Tue, 12 Mar 2013 11:30:13 +0100
-
-cyrus-imapd (2.4.17-3) unstable; urgency=low
-
- Jeroen van Meeuwen (Kolab Systems) 
- * Escape a failing db_get cyrus-imapd/removespools and do not remove files that do not exist
-
- Jeroen van Meeuwen 
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Wed, 19 Dec 2012 15:07:03 +0100
-
-cyrus-imapd (2.4.17-2) unstable; urgency=low
-
- * Set socket permission to 751 on /var/lib/imap/socket
-
- -- Paul Klos <kolab@klos2day.nl> Mon, 10 Dec 2012 23:58:52 +0100
-
-cyrus-imapd (2.4.17-1) unstable; urgency=low
-
- Jeroen van Meeuwen (Kolab Systems) 
- * Add ptloader ldap_user_attribute patch
- * New upstream version 2.4.17
-
- Jeroen van Meeuwen 
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Mon, 10 Dec 2012 18:25:36 +0100
-
-cyrus-imapd (2.4.19-15) unstable; urgency=low
-
- Jeroen van Meeuwen (Kolab Systems) 
- * Fix newbie mistake on double redirection
-
- Jeroen van Meeuwen 
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Tue, 13 Nov 2012 11:14:32 -0500
-
-cyrus-imapd (2.4.19-14) unstable; urgency=low
-
- Jeroen van Meeuwen (Kolab Systems) 
- * Include all files that are installed to /usr/bin/ and /usr/sbin/
- * Add more Conflicts/Replaces/Obsoletes headers in debian/control
-
- Jeroen van Meeuwen 
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Wed, 07 Nov 2012 08:34:21 -0500
-
-cyrus-imapd (2.4.19-13) unstable; urgency=low
-
- Franz Skale 
- * Fix typo in openssl parameter -des (was -ides)
-
- Jeroen van Meeuwen 
-
- -- Franz Skale <i.bin@dah.am> Mon, 05 Nov 2012 05:46:11 -0500
-
-cyrus-imapd (2.4.19-12) unstable; urgency=low
-
- Jeroen van Meeuwen (Kolab Systems) 
- * Don't forget to add the cyrus user to ssl-cert (which has access to /etc/ssl/private/)
-
- Jeroen van Meeuwen 
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Sat, 03 Nov 2012 12:21:50 -0400
-
-cyrus-imapd (2.4.19-11) unstable; urgency=low
-
- Jeroen van Meeuwen (Kolab Systems) 
- * Eliminate faulty fix_directories and verify_15_upgrade functions.
- * Correct the use of ${NAME} (use ${PROG})
- * Daemonize the daemon
- * Use `pidof ${DAEMON}` rather than the unconfigurable static path
- * Set correct certificate file path
- * Generate certificate if it doesn't already exist
- * Incorporate #1157 and #1158 fixes
-
- Jeroen van Meeuwen 
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Sat, 03 Nov 2012 12:00:53 -0400
-
-cyrus-imapd (2.4.19-10) unstable; urgency=low
-
- Jeroen van Meeuwen (Kolab Systems) 
- * Still rename Cyrus' master blob to cyrus-master (#1158, c#4)
- * Update changelog
- * Update invokation of invoke-rc.d to match the cyrus-imapd service name
-
- Jeroen van Meeuwen 
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Tue, 30 Oct 2012 17:11:32 -0400
-
-cyrus-imapd (2.4.19-9) unstable; urgency=low
-
- Jeroen van Meeuwen (Kolab Systems) 
- * Add --with-ldap and --with-auth (#1158)
-
- Jeroen van Meeuwen 
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Tue, 30 Oct 2012 08:19:42 -0400
-
-cyrus-imapd (2.4.19-8) unstable; urgency=low
-
- * Correct Default-Start (all runlevels need to be listed explicitely)
- * Correct git-buildpackage settings for wheezy/kolab-3.0
- * Correct libdb4.7-dev build dependency -> libdb5.1
- * Add db51 compatibility patch
- * comerr development packaged changed, and not in a fun way
- * Add perl5.14 patch
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen> Tue, 11 Sep 2012 22:34:23 +0200
-
-cyrus-imapd (2.4.19-3) unstable; urgency=low
-
- Jeroen van Meeuwen (Kolab Systems) 
- * Correct reference to /etc/default/kolab-cyrus -> /etc/default/cyrus-
- imapd
- * Correct the use of $PROG over $SERVICE
- * Correct references to kolab-cyrus-common -> cyrus-imapd
- * Update translations and translation master file to no longer refer
- to kolab-cyrus-common
- * kolab-cyrus-imapd -> cyrus-imapd
- * Source no longer contains CVS directory
-
- Jeroen van Meeuwen 
-
- -- Jeroen van Meeuwen <vanmeeuwen@auto.kolabsys.com> Thu, 10 May 2012 14:09:58 +0200
-
-cyrus-imapd (2.4.19-2) unstable; urgency=low
-
- Jeroen van Meeuwen (Kolab Systems) 
- * Add usr/sbin/cyrus-makedirs to the list of installed files
- * Update gbp.conf
-
- Jeroen van Meeuwen 
-
- -- Jeroen van Meeuwen <vanmeeuwen@auto.kolabsys.com> Thu, 10 May 2012 13:57:04 +0200
-
-cyrus-imapd (2.4.19-1) unstable; urgency=low
-
- * New upstream version
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Wed, 9 May 2012 00:21:24 +0000
-
-cyrus-imapd (2.4.3-1) unstable; urgency=low
-
- * Update to new upstream version
- * Rename binary package
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Wed, 10 Nov 2010 13:46:33 +0000
-
-cyrus-imapd (2.4.2-1) unstable; urgency=low
-
- * Update Debian packaging metadata
- * New upstream version
-
- -- Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com> Wed, 20 Oct 2010 20:26:24 +0200
-

debian.control Deleted

@@ -1,120 +0,0 @@
-Source: cyrus-imapd
-Section: mail
-Priority: extra
-Maintainer: Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com>
-Uploaders: Paul Klos <kolab@klos2day.nl>
-Standards-Version: 3.9.1
-Build-Depends:
- autoconf,
- automake,
- autotools-dev,
- bison,
- comerr-dev,
- debhelper (>= 5),
- flex,
- ghostscript | gs-gpl,
- groff,
- heimdal-dev,
- libdb5.1-dev | libdb-dev,
- libkvm-dev kfreebsd-amd64,
- libkvm-dev kfreebsd-i386,
- libjansson-dev,
- libldap2-dev,
- libpam0g-dev,
- libpcre3-dev,
- libsasl2-dev (>= 2.1.9),
- libsnmp-dev | libsnmp9-dev,
- libssl-dev,
- libtool,
- libwrap0-dev,
- libzephyr-dev,
- lsb-base,
- perl,
- pkg-config,
- po-debconf,
- tcl-dev | tcl8.3-dev,
- transfig,
- xutils-dev | xutils,
- zlib1g-dev
-Vcs-Browser: http://git.kolabsys.com/apt/cyrus-imapd/
-Vcs-Git: git://git.kolabsys.com/git/apt/cyrus-imapd
-Homepage: http://www.cyrusimap.org/
-
-Package: cyrus-imapd
-Architecture: any
-Section: mail
-Depends: postfix | mail-transport-agent, adduser (>= 3.34), dpkg (>> 1.9.0), netbase (>= 4.07), gawk, ${shlibs:Depends}, ${perl:Depends}, ${misc:Depends}
-Suggests: sasl2-bin, apt-listchanges (>= 2.35)
-Conflicts: imap-server,
-	pop3-server,
-	suidmanager (<< 0.50),
-	cyrus-common,
-	cyrus21-common,
-	cyrus22-common,
-	cyrus-common-2.2,
-	cyrus23-common,
-	cyrus-common-2.3,
-	cyrus24-common,
-	cyrus-common-2.4,
-	cyrus-admin,
-	cyrus-clients,
-	cyrus-common,
-	cyrus-murder,
-	cyrus-nntpd,
-	cyrus-pop3d,
-	cyrus-replication
-Replaces: cyrus22-common,
-	cyrus22-imapd,
-	cyrus-common-2.2,
-	cyrus-imapd-2.2,
-	cyrus23-common,
-	cyrus23-imapd,
-	cyrus-common-2.3,
-	cyrus-imapd-2.3,
-	cyrus24-common,
-	cyrus24-imapd,
-	cyrus-common-2.4,
-	cyrus-imapd-2.4,
-	cyrus-admin,
-	cyrus-clients,
-	cyrus-common,
-	cyrus-murder,
-	cyrus-nntpd,
-	cyrus-pop3d,
-	cyrus-replication
-Provides: imap-server,
-	pop3-server,
-	cyrus22-common,
-	cyrus-common-2.2,
-	cyrus-imapd-2.2,
-	cyrus23-common,
-	cyrus-common-2.3,
-	cyrus-imapd-2.3,
-	cyrus24-common,
-	cyrus-common-2.4,
-	cyrus-imapd-2.4,
-	cyrus-admin,
-	cyrus-clients,
-	cyrus-common,
-	cyrus-murder,
-	cyrus-nntpd,
-	cyrus-pop3d,
-	cyrus-replication
-Description: Cyrus IMAP Server
- Cyrus is an IMAP server designed to handle massive quantities of mail,
- with a number of features not found in other IMAP implementations,
- including support for:
- - running the daemon without root privileges;
- - POP3 in addition to plain IMAP;
- - POP/IMAP-before-SMTP using DRAC;
- - secure IMAP using SSL;
- - server-side filtering with Sieve;
- - mail users without login accounts;
- - simple mail quotas;
- - virtual domains;
- - IPv6.
- .
- Cyrus doesn't support reading from and storing mail in the
- standard mail spool. It stores mail in a separate directory in its
- own MH-like format.
-

debian.rules Deleted

@@ -1,320 +0,0 @@
-#!/usr/bin/make -f
-# debian/rules for CMU Cyrus IMAP version 2.2
-# GNU copyright 1997 by Joey Hess.
-# Copyright (c) 2001 by Henrique de Moraes Holschuh
-# Published under the GNU GPL license
-# Based on previous work by Michael-John Turner <mj@debian.org>,
-#			 David Parker <david@neongoat.com>
-#
-
-# DebHelper control
-export DH_ALWAYS_EXCLUDE=CVS
-
-# This is the debhelper compatibility version to use.
-export DH_VERBOSE=1
-export DH_COMPAT=9
-
-export MAINPKG=cyrus-imapd
-export TMPPKG := $(CURDIR)/debian/tmp
-export PKGDIR := $(CURDIR)/debian/$(MAINPKG)
-
-export DEB_HOST_GNU_TYPE ?= $(shell dpkg-architecture -qDEB_HOST_GNU_TYPE)
-export DEB_BUILD_GNU_TYPE ?= $(shell dpkg-architecture -qDEB_BUILD_GNU_TYPE)
-
-# Extra version information to add to Cyrus IMAPd ID
-DEBVERSION:=$(shell LCALL=C dpkg-parsechangelog | sed -ne 's/^Version: $.*-$/\1/p')
-EXTRA_IDENT:="Debian-$(DEBVERSION)"
-
-# DB engine version
-DBENGINE=BerkeleyDB4.7
-
-DEBUGFLAGS=-g
-ifneq (,$(findstring noopt,$(DEB_BUILD_OPTIONS)))
-	DEBUGFLAGS += -O0
-else
-	DEBUGFLAGS += -O2
-endif
-
-# TODO: Support parallel builds (make -j x)
-
-# FOR AUTOCONF 2.52 AND NEWER ONLY
-CONFFLAGS =
-ifeq ($(DEB_BUILD_GNU_TYPE), $(DEB_HOST_GNU_TYPE))
- CONFFLAGS += --build $(DEB_HOST_GNU_TYPE)
-else
- CONFFLAGS += --build $(DEB_BUILD_GNU_TYPE) --host $(DEB_HOST_GNU_TYPE)
-endif
-
-# Other oddities
-ifneq (,$(findstring strict,$(DEB_BUILD_OPTIONS)))
-	CONFFLAGS += --enable-warnings-are-errors
-endif
-
-clean:
-	dh_testdir
-	dh_testroot
-	dh_clean
-
-build: build-arch build-indep
-
-configure-stamp: $(QUILT_STAMPFN)
-	dh_testdir
-	aclocal -I cmulocal
-	libtoolize --install
-	autoheader
-	automake --add-missing || autoreconf -v && automake --add-missing
-	autoreconf -v
-
-	#
-	# IF YOU CHANGE BERKELEY DB VERSION, MAKE SURE TO UPDATE
-	# DBENGINE AT THE TOP OF THIS MAKEFILE!
-	PERL_MM_OPT="INSTALLDIRS=vendor" ./configure CFLAGS="-fno-strict-aliasing -fPIC -Wall -pipe $(DEBUGFLAGS)" $(CONFFLAGS) \
-		--enable-event-notification \
-		--enable-idled \
-		--enable-gssapi --with-gss_impl=heimdal \
-		--enable-listext \
-		--enable-murder \
-		--enable-nntp \
-		--enable-replication \
-		--enable-xapian \
-		--prefix=/usr \
-		--exec-prefix=/usr \
-		--libexecdir=/usr/sbin \
-		--bindir=/usr/bin \
-		--sbindir=/usr/sbin \
-		--includedir=/usr/include \
-		--datadir=/usr/share/cyrus \
-		--sysconfdir=/etc \
-		--sharedstatedir=/usr/share/cyrus \
-		--localstatedir=/var/lib/imap \
-		--mandir=/usr/share/man \
-		--with-auth=pts \
-		--with-com_err="" \
-		--with-cyrus-prefix=/usr/lib/cyrus-imapd \
-		--with-cyrus-group=mail \
-		--with-cyrus-user=cyrus \
-		--with-extraident=$(EXTRA_IDENT) \
-		--with-ldap=/usr \
-		--with-lock=fcntl \
-		--with-perl=/usr/bin/perl \
-		--with-openssl=/usr \
-		--with-sasl=/usr \
-		--without-clamav \
-		--without-wrap \
-		--without-zlib \
-		--with-pidfile=/var/run/cyrus-master.pid \
-		--with-service-path=/usr/lib/cyrus-imapd \
-		--with-syslogfacility=MAIL \
-		--with-ucdsnmp=/usr
-	if grep -q "WARNING: Disabling GSSAPI" config.log ; then \
-		echo "ERROR: GSSAPI not found by configure" >&2 ;\
-		exit 1 ;\
-	fi
-	echo 'To build this package, configure was called as follows:' \
-		> debian/README.configure-options
-	grep with\ options config.status \
-	| sed -e 's/^.*options \\"/configure /;s/\\"$///' \
-		>> debian/README.configure-options
-	touch configure-stamp
-
-build-arch: build-arch-stamp
-build-arch-stamp: configure-stamp
-	dh_testdir
-	#
-	$(MAKE)
-	# store database configuration for possible automatic
-	# upgrading later
-	echo "DBENGINE $(DBENGINE)" >>debian/cyrus-db-types.txt
-	grep _db lib/imapoptions \
-	| cut -d, -f1-2 | sed -e 's/{ "//;s/_db", "/ /;s/"$$//' \
-	| sed -e 's/^tls.* /TLS /;s/^subs.* /SUBS /;s/^seen.* /SEEN /;s/^pts.* /PTS /;s/^mbox.* /MBOX /'\
-	| awk '{printf("%s %s\n",toupper($$1),$$2);}' \
-	>>debian/cyrus-db-types.txt
-	mv debian/cyrus-db-types.txt debian/cyrus-db-types.txt.old \
-	&& sort -u < debian/cyrus-db-types.txt.old > debian/cyrus-db-types.txt \
-	&& rm debian/cyrus-db-types.txt.old
-	#
-	# store some useful state about the current package
-	echo "PACKAGE_VERSION $(DEBVERSION)" >debian/cyrus-hardwired-config.txt
-	if grep -q -s -n -E '^:space:*#define:space:+USE_DIR_FULL:space:+1' config.h ; then \
-		echo "USE_DIR_FULL 1" >>debian/cyrus-hardwired-config.txt ;\
-	else \
-		echo "USE_DIR_FULL 0" >>debian/cyrus-hardwired-config.txt ;\
-	fi
-	touch build-arch-stamp
-
-# We aren't actually able to build arch-indep independently from
-# arch-dep, so we guarantee that the arch build has been done first
-build-indep: build-indep-stamp
-build-indep-stamp: configure-stamp build-arch-stamp
-	dh_testdir
-	cd doc && \
-		pod2man ../perl/sieve/scripts/sieveshell.pl > ../man/sieveshell.1 && \
-		fig2dev -L png murder.fig murder.png && \
-		rm -f groff-html-*.png pod2htm*
-	cd doc && \
-		mkdir -p man && \
-		for man in ../man/*.1-9 ../debian/*.1-9; do \
-			echo "Generating html manpage for $$man..."; \
-			groff -man -Thtml $$man > man/`basename $$man`.html; \
-		done
-	pod2html perl/imap/cyradm.sh > doc/man/cyradm.1.html
-	rm -f pod2htm*
-	touch build-indep-stamp
-
-install-arch: build-arch-stamp
-	dh_testdir
-	dh_testroot
-	dh_clean -k
-	dh_installdirs -a
-	$(MAKE) install DESTDIR=$(TMPPKG)
-	mv $(TMPPKG)/usr/lib/cyrus-imapd/master $(TMPPKG)/usr/lib/cyrus-imapd/cyrus-master
-
-	# Default configuration
-	mkdir -p $(TMPPKG)/etc
-	install -p -m 644 debian/imapd.conf $(TMPPKG)/etc
-	install -p -m 644 debian/cyrus-imapd-2.4.x-imapd.annotations.conf \
-		$(TMPPKG)/etc/imapd.annotations.conf
-	install -m 644 master/conf/prefork.conf $(TMPPKG)/etc/cyrus.conf
-
-	# Correct paths used in cyrus.conf (https://issues.kolab.org/show_bug.cgi?id=3468)
-	sed -i -e 's/\/var\/imap\//\/var\/lib\/imap\//g' $(TMPPKG)/etc/cyrus.conf
-
-	# Avoid namespace turf wars
-	mv $(TMPPKG)/usr/share/man/man8/master.8 $(TMPPKG)/usr/share/man/man8/cyrus-master.8
-	mv $(TMPPKG)/usr/share/man/man8/deliver.8 $(TMPPKG)/usr/share/man/man8/cyr_deliver.8
-	install -p -m 644 debian/cyrdump.8 $(TMPPKG)/usr/share/man/man8/cyrdump.8
-
-	# And add our own manpages
-	mkdir -p $(TMPPKG)/usr/share/man/man8
-	install -p -m 644 debian/cyrus-makedirs.8 $(TMPPKG)/usr/share/man/man8/cyrus-makedirs.8
-	install -p -m 644 debian/arbitronsort.8 $(TMPPKG)/usr/share/man/man8/arbitronsort.8
-
-	# SNMP files
-	mkdir -p $(TMPPKG)/usr/share/snmp/mibs
-	install -m 644 master/CYRUS-MASTER.mib $(TMPPKG)/usr/share/snmp/mibs/CYRUS-MASTER-MIB.txt
-
-	# Install cyradm icons
-	mkdir -p $(TMPPKG)/usr/share/icons/mini
-	install -p -m 644 debian/cyradm-32x32.xpm $(TMPPKG)/usr/share/icons/cyradm.xpm
-	install -p -m 644 debian/cyradm-16x16.xpm $(TMPPKG)/usr/share/icons/mini/cyradm.xpm
-
-	# Install debian-provided scripts
-	mkdir -p $(TMPPKG)/usr/sbin
-	install debian/cyrus-makedirs $(TMPPKG)/usr/sbin/cyrus-makedirs
-
-	# and logcheck files
-	mkdir -p \
-		$(TMPPKG)/etc/logcheck/ignore.d.server/ \
-		$(TMPPKG)/etc/logcheck/violations.ignore.d/
-	install -p -m 644 debian/logcheck.ignore \
-		$(TMPPKG)/etc/logcheck/ignore.d.server/logcheck-cyrus
-	install -p -m 644 debian/logcheck.violations.ignore \
-		$(TMPPKG)/etc/logcheck/violations.ignore.d/logcheck-cyrus
-
-	# Install the stuff needed for upgrades
-	mkdir $(TMPPKG)/usr/lib/cyrus-imapd/upgrade
-	for i in convert-sieve.pl dohash rehash undohash translatesieve \
-		upgradesieve masssievec; do \
-		install -p -m 755 tools/$$i $(TMPPKG)/usr/lib/cyrus-imapd/upgrade ;\
-	done
-	# And other upgrade helpers
-	install -p -m 644 debian/cyrus-db-types.txt debian/cyrus-hardwired-config.txt \
-		 $(TMPPKG)/usr/lib/cyrus-imapd/
-	# And other misc useful tools
-	install -p -m 755 tools/arbitronsort.pl $(TMPPKG)/usr/sbin/arbitronsort
-	# Lintian overrides
-	cd debian ; \
-	for i in *.lintian ; do \
-		mkdir -p "$${i%%.lintian}/usr/share/lintian/overrides" ;\
-		install -p -m 644 "$$i" "$${i%%.lintian}/usr/share/lintian/overrides/$${i%%.lintian}" ;\
-	done
-	# the old debian package format doesn't support file modes
-	# maybe switch to quilt soon(tm)
-	chmod 755 debian/cyrus-imapd.install
-	dh_install -a --sourcedir=$(TMPPKG)
-	touch install-arch-stamp
-
-# We aren't actually able to install arch-indep independently from
-# arch-dep, so we guarantee that the arch build has been done first
-install-indep: build-indep-stamp install-arch
-	dh_testdir
-	dh_testroot
-	#dh_clean -k
-	dh_installdirs -i
-	#
-	# Massage the documentation into place
-#	#mkdir -p $(DOCDIR)
-	#find doc/text -name 'Ra-z*' -type f -exec cp -f {} $(PKGDIR)/usr/share/doc/$(MAINPKG) \;
-	#-(cd $(PKGDIR)/usr/share/doc/$(MAINPKG) && rm copyrights changes htmlstrip.c)
-	#find $(PKGDIR)/usr/share/doc/$(MAINPKG) -type f ! -name '*txt' ! -name '*.*' -exec mv {} {}.txt \;
-	#
-	# Install the html docs and examples
-#	mkdir -p $(DOCDIR)/html
-#	install -m 644 doc/*.html doc/murder.png $(DOCDIR)/html
-#	cp -a doc/man $(DOCDIR)/html
-#	cp -a debian/examples $(DOCDIR)
-#	install -m 644 doc/cyrusv2.mc $(DOCDIR)/examples
-	#
-	# Install contrib/ files
-#	mkdir -p $(DOCDIR)/contrib
-#	xargs < debian/cyrus-common.contrib -rti cp -r '{}' $(DOCDIR)/contrib
-	#
-	dh_install -i --sourcedir=$(TMPPKG)
-
-binary-indep: install-indep
-	dh_testdir -i
-	dh_testroot -i
-#	dh_installdebconf -i
-	dh_installdocs -p cyrus-imapd
-	dh_installexamples -p cyrus-imapd
-	dh_installmenu -i
-#	dh_installlogrotate -i
-#	dh_installpam -i
-#	dh_installmime -i
-#	dh_installcron -i
-	dh_installman -i
-	dh_installchangelogs -p cyrus-imapd doc/changes.html
-	#dh_installchangelogs -p cyrus-doc-2.2
-	dh_strip -i
-	dh_link -i
-	dh_compress -i
-	dh_fixperms -i
-	dh_makeshlibs -i
-	dh_installdeb -i
-	dh_perl -i
-	dh_shlibdeps -i
-	dh_gencontrol -i
-	dh_md5sums -i
-	dh_builddeb -i
-
-binary-arch: install-arch
-	dh_testdir -a
-	dh_testroot -a
-	dh_installdebconf -a
-	dh_installdocs -p $(MAINPKG)
-	dh_installexamples -p $(MAINPKG)
-	dh_installmenu -a
-#	dh_installlogrotate -a
-#	dh_installpam -a
-#	dh_installmime -a
-	dh_installinit -p $(MAINPKG) --noscripts --name=cyrus-imapd
-	dh_installcron -a --name=cyrus-imapd
-	dh_installman -a
-#	dh_installinfo -a
-	dh_installchangelogs -p $(MAINPKG) doc/changes.html perl/imap/Changes
-	dh_fixperms -a
-	dh_strip -a
-	dh_link -a
-	dh_compress -a
-	dh_fixperms -a
-	dh_makeshlibs -a
-	dh_installdeb -a
-	dh_perl -a
-	dh_shlibdeps -a
-	dh_gencontrol -a
-	dh_md5sums -a
-	dh_builddeb -a
-
-binary: binary-indep binary-arch
-.PHONY: build build-indep build-arch clean binary-indep binary-arch binary install-arch install-indep

debian.series Deleted

debian.tar.gz Deleted

gating.yaml Added

patch-cassandane-fix-annotator Added

patch-cassandane-no-syslog Added

@@ -0,0 +1,41 @@
+diff --git a/Cassandane/Instance.pm b/Cassandane/Instance.pm
+index fb36b8f..78e7100 100644
+--- a/Cassandane/Instance.pm
++++ b/Cassandane/Instance.pm
+@@ -2146,12 +2146,8 @@ sub setup_syslog_replacement
+ {
+     my ($self) = @_;
+ 
+-    if (not(-e 'utils/syslog.so') || not(-e 'utils/syslog_probe')) {
+-        xlog "utils/syslog.so not found (do you need to run 'make'?)";
+-        xlog "tests will not examine syslog output";
+-        $self->{have_syslog_replacement} = 0;
+-        return;
+-    }
++    $self->{have_syslog_replacement} = 0;
++    return;
+ 
+     $self->{syslog_fname} = "$self->{basedir}/conf/log/syslog";
+     $self->{have_syslog_replacement} = 1;
+diff --git a/Cassandane/Util/Log.pm b/Cassandane/Util/Log.pm
+index 7c17f0c..9eb07ad 100644
+--- a/Cassandane/Util/Log.pm
++++ b/Cassandane/Util/Log.pm
+@@ -51,9 +51,6 @@ our @EXPORT = qw(
+ 
+ my $verbose = 0;
+ 
+-openlog('cassandane', '', LOG_LOCAL6)
+-    or die "Cannot openlog";
+-
+ sub xlog
+ {
+     my $id;
+@@ -74,7 +71,6 @@ sub xlog
+     $msg .= "($id) " if $id;
+     $msg .= join(' ', @_);
+     print STDERR "$msg\n";
+-    syslog(LOG_ERR, "$msg");
+ }
+ 
+ sub set_verbose

patch-cassandane-xapian-delve-path Added

patch-cyrus-default-configs Added

@@ -0,0 +1,105 @@
+diff --git a/doc/examples/imapd_conf/normal.conf b/doc/examples/imapd_conf/normal.conf
+index 95b54e9..3935b77 100644
+--- a/doc/examples/imapd_conf/normal.conf
++++ b/doc/examples/imapd_conf/normal.conf
+@@ -10,7 +10,7 @@ admins: cyrus
+ ###################################################################
+ 
+ # Configuration directory
+-configdirectory: /var/lib/cyrus
++configdirectory: /var/lib/imap
+ 
+ # Directories for proc and lock files
+ proc_path: /run/cyrus/proc
+@@ -19,18 +19,18 @@ mboxname_lockpath: /run/cyrus/lock
+ # Locations for DB files
+ # The following DB are recreated upon initialization, so should live in
+ # ephemeral storage for best performance.
+-duplicate_db_path: /run/cyrus/deliver.db
+-ptscache_db_path:  /run/cyrus/ptscache.db
+-statuscache_db_path: /run/cyrus/statuscache.db
+-tls_sessions_db_path: /run/cyrus/tls_sessions.db
++duplicate_db_path: /run/cyrus/db/deliver.db
++ptscache_db_path:  /run/cyrus/db/ptscache.db
++statuscache_db_path: /run/cyrus/db/statuscache.db
++tls_sessions_db_path: /run/cyrus/db/tls_sessions.db
+ 
+ # Which partition to use for default mailboxes
+ defaultpartition: default
+-partition-default: /var/spool/cyrus/mail
++partition-default: /var/spool/imap
+ 
+ # If sieveusehomedir is false (the default), this directory is searched
+ # for Sieve scripts.
+-sievedir: /var/spool/sieve
++sievedir: /var/lib/imap/sieve
+ 
+ ###################################################################
+ ## Important: KEEP THESE IN SYNC WITH cyrus.conf
+@@ -51,19 +51,16 @@ syslog_prefix: cyrus
+ # Space-separated list of HTTP modules that will be enabled in
+ # httpd(8).  This option has no effect on modules that are disabled at
+ # compile time due to missing dependencies (e.g. libical).
+-#
+-# Allowed values: caldav, carddav, domainkey, ischedule, rss
+-httpmodules: caldav carddav
++# Fedora default: enable all modules besides admin and tzdist
++httpmodules: caldav carddav domainkey freebusy ischedule rss webdav
+ 
+ # If enabled, the partitions will also be hashed, in addition to the
+ # hashing done on configuration directories. This is recommended if one
+ # partition has a very bushy mailbox tree.
+ hashimapspool: true
+ 
+-# Enable virtual domains
+-# and set default domain to localhost
+-virtdomains: yes
+-defaultdomain: localhost
++# Disable virtual domains by default
++virtdomains: off
+ 
+ ###################################################################
+ ## User experience settings
+@@ -72,6 +69,14 @@ defaultdomain: localhost
+ # Minimum time between POP mail fetches in minutes
+ popminpoll: 1
+ 
++# Conversation support is required for jmap
++conversations: 1
++conversations_db: twoskip
++
++# This will default to on in 3.1, and improves compatibility with some Apple
++# devices.  Upstream https://github.com/cyrusimap/cyrus-imapd/issues/1556
++specialusealways: 1
++
+ ###################################################################
+ ## User Authentication settings
+ ###################################################################
+@@ -99,6 +104,12 @@ sasl_auto_transition: no
+ ## SSL/TLS Options
+ ###################################################################
+ 
++# These three files will automatically be generated by the systemd unit when
++# the service starts for the first time.
++tls_server_cert: /etc/pki/cyrus-imapd/cyrus-imapd.pem
++tls_server_key: /etc/pki/cyrus-imapd/cyrus-imapd-key.pem
++tls_client_ca_file: /etc/pki/cyrus-imapd/cyrus-imapd-ca.pem
++
+ # File containing the global certificate used for ALL services (imap,
+ # pop3, lmtp, sieve)
+ #tls_server_cert: /etc/ssl/certs/ssl-cert-snakeoil.pem
+diff --git a/doc/examples/cyrus_conf/prefork.conf b/doc/examples/cyrus_conf/prefork.conf
+index 186fe66..ab97848 100644
+--- a/doc/examples/cyrus_conf/prefork.conf
++++ b/doc/examples/cyrus_conf/prefork.conf
+@@ -19,8 +19,8 @@ SERVICES {
+ #  nntps         cmd="nntpd -s" listen="nntps" prefork=1
+ 
+   # these are only necessary if using HTTP for CalDAV, CardDAV, or RSS
+-#  http          cmd="httpd" listen="http" prefork=3
+-#  https         cmd="httpd -s" listen="https" prefork=1
++  http          cmd="httpd" listen="http" prefork=3
++  https         cmd="httpd -s" listen="https" prefork=1
+ 
+   # at least one LMTP is required for delivery
+ #  lmtp          cmd="lmtpd" listen="lmtp" prefork=0

patch-cyrus-perl-linking Added

@@ -0,0 +1,26 @@
+diff --git a/perl/sieve/managesieve/Makefile.PL.in b/perl/sieve/managesieve/Makefile.PL.in
+index 7180b98..d589ebe 100644
+--- a/perl/sieve/managesieve/Makefile.PL.in
++++ b/perl/sieve/managesieve/Makefile.PL.in
+@@ -69,7 +69,7 @@ WriteMakefile(
+     'ABSTRACT'  => 'Cyrus Sieve management interface',
+     'VERSION_FROM' => "@top_srcdir@/perl/sieve/managesieve/managesieve.pm", # finds $VERSION
+     'MYEXTLIB'  => '../lib/.libs/libisieve.a @top_builddir@/perl/.libs/libcyrus.a @top_builddir@/perl/.libs/libcyrus_min.a',
+-    'LIBS'	=> "$LIB_SASL @SSL_LIBS@ @LIB_UUID@ @LIB_REGEX@ @ZLIB@ @SQLITE_LIBADD@ @MYSQL_LIBADD@ @PGSQL_LIBADD@",
++    'LIBS'	=> "$LIB_SASL @SSL_LIBS@ @LIB_UUID@ @LIB_REGEX@ @ZLIB@ @SQLITE_LIBADD@ @MYSQL_LIBADD@ @PGSQL_LIBADD@ -lpcreposix",
+     'CCFLAGS'	=> '@GCOV_CFLAGS@',
+     'DEFINE'	=> '-DPERL_POLLUTE',     # e.g., '-DHAVE_SOMETHING' 
+     'INC'	=> "-I@top_srcdir@/lib -I@top_srcdir@/perl/sieve -I@top_srcdir@/perl/sieve/lib @SASLFLAGS@ @SSL_CPPFLAGS@",
+diff --git a/perl/imap/Makefile.PL.in b/perl/imap/Makefile.PL.in
+index 71416cc..f76cda6 100644
+--- a/perl/imap/Makefile.PL.in
++++ b/perl/imap/Makefile.PL.in
+@@ -91,7 +91,7 @@ WriteMakefile(
+     'LD'       => $Config{ld} . ' @GCOV_LDFLAGS@',
+     'OBJECT'    => 'IMAP.o',
+     'MYEXTLIB'  => '@top_builddir@/perl/.libs/libcyrus.a @top_builddir@/perl/.libs/libcyrus_min.a',
+-    'LIBS'	=>  "$LIB_SASL @SSL_LIBS@ @LIB_UUID@ @ZLIB@ @GCOV_LIBS@ @LIBCAP_LIBS@",
++    'LIBS'	=>  "$LIB_SASL @SSL_LIBS@ @LIB_UUID@ @ZLIB@ @GCOV_LIBS@ @LIBCAP_LIBS@ -lpcreposix",
+     'DEFINE'	=> '-DPERL_POLLUTE',    # e.g., '-DHAVE_SOMETHING'
+     'INC'	=> "-I@top_srcdir@ -I@top_srcdir@/com_err/et @SASLFLAGS@ @SSL_CPPFLAGS@ @GCOV_CFLAGS@ -I@top_srcdir@/perl/imap",
+     'EXE_FILES' => cyradm,

patch-cyrus-rename-quota Added

patch-cyrus-squatter-assert-crash Added

patch-cyrus-testsuite-timeout Added

Build Results
RPM Lint

Refresh

Submit package home:mollekopf...ab:Winterfell / cyrus-sasl to package Kolab:16:Testing / cyrus-sasl

cyrus-sasl.spec Added

@@ -0,0 +1,393 @@
+%global username    saslauth
+
+%global _plugindir2 %{_libdir}/sasl2
+%global bootstrap_cyrus_sasl 0
+%global gdbm_db_file /etc/sasl2/sasldb2
+
+Summary: The Cyrus SASL library
+Name: cyrus-sasl
+Version: 2.1.28
+Release: %autorelease
+License: BSD with advertising
+URL: https://www.cyrusimap.org/sasl/
+
+# Source0 originally comes from https://www.cyrusimap.org/releases/;
+# make-no-dlcompatorsrp-tarball.sh removes the "dlcompat" subdirectory and builds a
+# new tarball.
+Source0: cyrus-sasl-%{version}-nodlcompatorsrp.tar.gz
+Source3: saslauth.sysusers
+Source5: saslauthd.service
+Source7: sasl-mechlist.c
+Source9: saslauthd.sysconfig
+Source10: make-no-dlcompatorsrp-tarball.sh
+# From upstream git, required for reconfigure after applying patches to configure.ac
+# https://raw.githubusercontent.com/cyrusimap/cyrus-sasl/master/autogen.sh
+Source11: autogen.sh
+
+
+Requires: %{name}-lib%{?_isa} = %{version}-%{release}
+Patch11: cyrus-sasl-2.1.25-no_rpath.patch
+Patch15: cyrus-sasl-2.1.20-saslauthd.conf-path.patch
+Patch23: cyrus-sasl-2.1.23-man.patch
+Patch24: cyrus-sasl-2.1.21-sizes.patch
+# The 64 bit *INT8 type is not used anywhere and other types match
+Patch49: cyrus-sasl-2.1.26-md5global.patch
+
+Patch101: cyrus-sasl-2.1.27-Add-basic-test-infrastructure.patch
+Patch102: cyrus-sasl-2.1.27-Add-Channel-Binding-support-for-GSSAPI-GSS-SPNEGO.patch
+#https://github.com/simo5/cyrus-sasl/commit/ebd2387f06c84c7f9aac3167ec041bb01e5c6e48
+Patch106: cyrus-sasl-2.1.27-nostrncpy.patch
+# Upstream PR: https://github.com/cyrusimap/cyrus-sasl/pull/635
+Patch107: cyrus-sasl-2.1.27-more-tests.patch
+Patch108: cyrus-sasl-2.1.27-Add-support-for-setting-max-ssf-0-to-GSS-SPNEGO.patch
+#Migration tool should be removed from Fedora 36
+Patch109: cyrus-sasl-2.1.27-Migration-from-BerkeleyDB.patch
+Patch500: cyrus-sasl-2.1.27-coverity.patch
+Patch501: cyrus-sasl-2.1.27-cumulative-digestmd5.patch
+Patch502: cyrus-sasl-2.1.27-cumulative-ossl3.patch
+
+
+BuildRequires: autoconf, automake, libtool, gdbm-devel, groff
+BuildRequires: krb5-devel >= 1.2.2, openssl-devel, pam-devel, pkgconfig
+BuildRequires: mariadb-connector-c-devel, libpq-devel, zlib-devel
+%if ! %{bootstrap_cyrus_sasl}
+BuildRequires: openldap-devel
+%endif
+#build reqs for migration from BerkeleyDB
+#should be removed from RHEL10
+BuildRequires: libdb-devel-static
+#build reqs for make check
+BuildRequires: python3 nss_wrapper socket_wrapper krb5-server
+BuildRequires: make
+Requires(pre): /usr/sbin/useradd /usr/sbin/groupadd
+Requires(postun): /usr/sbin/userdel /usr/sbin/groupdel
+Requires: /sbin/nologin
+Provides: user(%username)
+Provides: group(%username)
+
+
+%description
+The %{name} package contains the Cyrus implementation of SASL.
+SASL is the Simple Authentication and Security Layer, a method for
+adding authentication support to connection-based protocols.
+
+%package lib
+Summary: Shared libraries needed by applications which use Cyrus SASL
+
+%description lib
+The %{name}-lib package contains shared libraries which are needed by
+applications which use the Cyrus SASL library.
+
+%package devel
+Requires: %{name}-lib%{?_isa} = %{version}-%{release}
+Requires: %{name}%{?_isa} = %{version}-%{release}
+Requires: pkgconfig
+Summary: Files needed for developing applications with Cyrus SASL
+
+%description devel
+The %{name}-devel package contains files needed for developing and
+compiling applications which use the Cyrus SASL library.
+
+%package gssapi
+Requires: %{name}-lib%{?_isa} = %{version}-%{release}
+Summary: GSSAPI authentication support for Cyrus SASL
+
+%description gssapi
+The %{name}-gssapi package contains the Cyrus SASL plugins which
+support GSSAPI authentication. GSSAPI is commonly used for Kerberos
+authentication.
+
+%package plain
+Requires: %{name}-lib%{?_isa} = %{version}-%{release}
+Summary: PLAIN and LOGIN authentication support for Cyrus SASL
+
+%description plain
+The %{name}-plain package contains the Cyrus SASL plugins which support
+PLAIN and LOGIN authentication schemes.
+
+%package md5
+Requires: %{name}-lib%{?_isa} = %{version}-%{release}
+Summary: CRAM-MD5 and DIGEST-MD5 authentication support for Cyrus SASL
+
+%description md5
+The %{name}-md5 package contains the Cyrus SASL plugins which support
+CRAM-MD5 and DIGEST-MD5 authentication schemes.
+
+%package ntlm
+Requires: %{name}-lib%{?_isa} = %{version}-%{release}
+Summary: NTLM authentication support for Cyrus SASL
+
+%description ntlm
+The %{name}-ntlm package contains the Cyrus SASL plugin which supports
+the NTLM authentication scheme.
+
+# This would more appropriately be named cyrus-sasl-auxprop-sql.
+%package sql
+Requires: %{name}-lib%{?_isa} = %{version}-%{release}
+Summary: SQL auxprop support for Cyrus SASL
+
+%description sql
+The %{name}-sql package contains the Cyrus SASL plugin which supports
+using a RDBMS for storing shared secrets.
+
+%if ! %{bootstrap_cyrus_sasl}
+# This was *almost* named cyrus-sasl-auxprop-ldapdb, but that's a lot of typing.
+%package ldap
+Requires: %{name}-lib%{?_isa} = %{version}-%{release}
+Summary: LDAP auxprop support for Cyrus SASL
+
+%description ldap
+The %{name}-ldap package contains the Cyrus SASL plugin which supports using
+a directory server, accessed using LDAP, for storing shared secrets.
+%endif
+
+%package scram
+Requires: %{name}-lib%{?_isa} = %{version}-%{release}
+Summary: SCRAM auxprop support for Cyrus SASL
+
+%description scram
+The %{name}-scram package contains the Cyrus SASL plugin which supports
+the SCRAM authentication scheme.
+
+%package gs2
+Requires: %{name}-lib%{?_isa} = %{version}-%{release}
+Summary: GS2 support for Cyrus SASL
+
+%description gs2
+The %{name}-gs2 package contains the Cyrus SASL plugin which supports
+the GS2 authentication scheme.
+
+###
+
+
+%prep
+%setup -q -n cyrus-sasl-%{version}
+%patch11 -p1 -b .no_rpath
+%patch15 -p1 -b .path
+%patch23 -p1 -b .man
+%patch24 -p1 -b .sizes
+%patch49 -p1 -b .md5global.h
+%patch101 -p1 -b .tests
+%patch102 -p1 -b .gssapi_cbs
+%patch106 -p1 -b .nostrncpy
+%patch107 -p1 -b .moretests
+%patch108 -p1 -b .maxssf0
+%patch109 -p1 -b .frombdb
+%patch500 -p1 -b .coverity
+%patch501 -p1 -b .digestmd5
+%patch502 -p1 -b .ossl3
+
+%build
+# reconfigure
+cp %{SOURCE11} ./
+rm configure aclocal.m4 config/ltmain.sh Makefile.in
+export NOCONFIGURE=yes
+sh autogen.sh
+
+# Find Kerberos.
+krb5_prefix=`krb5-config --prefix`
+if test x$krb5_prefix = x%{_prefix} ; then
+        krb5_prefix=
+else
+        CPPFLAGS="-I${krb5_prefix}/include $CPPFLAGS"; export CPPFLAGS
+        LDFLAGS="-L${krb5_prefix}/%{_lib} $LDFLAGS"; export LDFLAGS
+fi
+
+# Find OpenSSL.
+LIBS="-lcrypt"; export LIBS
+if pkg-config openssl ; then
+        CPPFLAGS="`pkg-config --cflags-only-I openssl` $CPPFLAGS"; export CPPFLAGS
+        LDFLAGS="`pkg-config --libs-only-L openssl` $LDFLAGS"; export LDFLAGS
+fi
+
+# Find the MySQL libraries used needed by the SQL auxprop plugin.
+INC_DIR="`mysql_config --include`"
+if test x"$INC_DIR" != "x-I%{_includedir}"; then
+        CPPFLAGS="$INC_DIR $CPPFLAGS"; export CPPFLAGS
+fi
+LIB_DIR="`mysql_config --libs | sed -e 's,-^L^ *,,g' -e 's,^ *,,' -e 's, *$,,' -e 's,  *, ,g'`"
+if test x"$LIB_DIR" != "x-L%{_libdir}"; then
+        LDFLAGS="$LIB_DIR $LDFLAGS"; export LDFLAGS
+fi
+
+# Find the PostgreSQL libraries used needed by the SQL auxprop plugin.
+INC_DIR="-I`pg_config --includedir`"
+if test x"$INC_DIR" != "x-I%{_includedir}"; then
+        CPPFLAGS="$INC_DIR $CPPFLAGS"; export CPPFLAGS
+fi
+LIB_DIR="-L`pg_config --libdir`"
+if test x"$LIB_DIR" != "x-L%{_libdir}"; then
+        LDFLAGS="$LIB_DIR $LDFLAGS"; export LDFLAGS
+fi
+
+CFLAGS="$RPM_OPT_FLAGS $CFLAGS $CPPFLAGS -fPIC -pie -Wl,-z,relro -Wl,-z,now"; export CFLAGS
+
+echo "$CFLAGS"
+echo "$CPPFLAGS"
+echo "$LDFLAGS"
+
+%configure \
+        --enable-shared --disable-static \
+        --disable-java \
+        --with-plugindir=%{_plugindir2} \
+        --with-configdir=%{_plugindir2}:%{_sysconfdir}/sasl2 \
+        --disable-krb4 \
+        --enable-gssapi${krb5_prefix:+=${krb5_prefix}} \
+        --with-gss_impl=mit \
+        --with-rc4 \
+        --with-dblib=gdbm \
+        --with-dbpath=%{gdbm_db_file} \
+        --with-saslauthd=/run/saslauthd --without-pwcheck \
+%if ! %{bootstrap_cyrus_sasl}
+        --with-ldap \
+%endif
+        --with-devrandom=/dev/urandom \
+        --enable-anon \
+        --enable-cram \
+        --enable-digest \
+        --enable-ntlm \
+        --enable-plain \
+        --enable-login \
+        --enable-alwaystrue \
+        --enable-httpform \
+        --disable-otp \
+%if ! %{bootstrap_cyrus_sasl}
+        --enable-ldapdb \
+%endif
+        --enable-sql --with-mysql=yes --with-pgsql=yes \
+        --without-sqlite \
+        --enable-auth-sasldb \
+        "$@"
+make sasldir=%{_plugindir2}
+make -C saslauthd testsaslauthd
+make -C sample
+
+# Build a small program to list the available mechanisms, because I need it.
+pushd lib
+../libtool --mode=link %{__cc} -o sasl2-shared-mechlist -I../include $CFLAGS %{SOURCE7} $LDFLAGS ./libsasl2.la
+
+
+%install
+test "$RPM_BUILD_ROOT" != "/" && rm -rf $RPM_BUILD_ROOT
+
+make install DESTDIR=$RPM_BUILD_ROOT sasldir=%{_plugindir2}
+make install DESTDIR=$RPM_BUILD_ROOT sasldir=%{_plugindir2} -C plugins
+
+install -m755 -d $RPM_BUILD_ROOT%{_bindir}
+./libtool --mode=install \
+install -m755 sample/client $RPM_BUILD_ROOT%{_bindir}/sasl2-sample-client
+./libtool --mode=install \
+install -m755 sample/server $RPM_BUILD_ROOT%{_bindir}/sasl2-sample-server
+#Migration tool should be removed from RHEL10
+mv $RPM_BUILD_ROOT%{_sbindir}/cyrusbdb2current $RPM_BUILD_ROOT%{_bindir}/cyrusbdb2current
+./libtool --mode=install \
+install -m755 saslauthd/testsaslauthd $RPM_BUILD_ROOT%{_sbindir}/testsaslauthd
+
+# Install the saslauthd mdoc page in the expected location.  Sure, it's not
+# really a man page, but groff seems to be able to cope with it.
+install -m755 -d $RPM_BUILD_ROOT%{_mandir}/man8/
+install -m644 -p saslauthd/saslauthd.mdoc $RPM_BUILD_ROOT%{_mandir}/man8/saslauthd.8
+install -m644 -p saslauthd/testsaslauthd.8 $RPM_BUILD_ROOT%{_mandir}/man8/testsaslauthd.8
+
+# Install the systemd unit file for saslauthd and the config file.
+install -d -m755 $RPM_BUILD_ROOT/%{_unitdir} $RPM_BUILD_ROOT/etc/sysconfig
+install -m644 -p %{SOURCE5} $RPM_BUILD_ROOT/%{_unitdir}/saslauthd.service
+install -m644 -p %{SOURCE9} $RPM_BUILD_ROOT/etc/sysconfig/saslauthd
+
+# Install the config dirs if they're not already there.
+install -m755 -d $RPM_BUILD_ROOT/%{_sysconfdir}/sasl2
+install -m755 -d $RPM_BUILD_ROOT/%{_plugindir2}
+
+# Provide an easy way to query the list of available mechanisms.
+./libtool --mode=install \
+install -m755 lib/sasl2-shared-mechlist $RPM_BUILD_ROOT/%{_sbindir}/
+
+# Sysusers file
+install -p -D -m 0644 %{SOURCE3} %{buildroot}%{_sysusersdir}/cyrus-sasl.conf
+
+# Remove unpackaged files from the buildroot.
+rm -f $RPM_BUILD_ROOT%{_libdir}/sasl2/libotp.*
+rm -f $RPM_BUILD_ROOT%{_libdir}/sasl2/*.a
+rm -f $RPM_BUILD_ROOT%{_libdir}/sasl2/*.la
+rm -f $RPM_BUILD_ROOT%{_libdir}/*.la
+rm -f $RPM_BUILD_ROOT%{_mandir}/cat8/saslauthd.8
+
+%check
+make check %{?_smp_mflags}
+
+%pre
+%sysusers_create_compat %{SOURCE3}
+
+%post
+%systemd_post saslauthd.service
+
+%preun
+%systemd_preun saslauthd.service
+
+%postun
+%systemd_postun_with_restart saslauthd.service
+
+%ldconfig_scriptlets lib
+
+%files
+%doc saslauthd/LDAP_SASLAUTHD
+%{_mandir}/man8/*
+%{_sbindir}/pluginviewer
+%{_sbindir}/saslauthd
+%{_sbindir}/testsaslauthd
+%config(noreplace) /etc/sysconfig/saslauthd
+%{_unitdir}/saslauthd.service
+%ghost /run/saslauthd
+%{_sysusersdir}/cyrus-sasl.conf
+
+%files lib
+%license COPYING
+%doc AUTHORS doc/html/*.html
+%{_libdir}/libsasl*.so.*
+%dir %{_sysconfdir}/sasl2
+%dir %{_plugindir2}/
+%{_plugindir2}/*anonymous*.so*
+%{_plugindir2}/*sasldb*.so*
+%{_sbindir}/saslpasswd2
+%{_sbindir}/sasldblistusers2
+%{_bindir}/cyrusbdb2current
+
+%files plain
+%{_plugindir2}/*plain*.so*
+%{_plugindir2}/*login*.so*
+
+%if ! %{bootstrap_cyrus_sasl}
+%files ldap
+%{_plugindir2}/*ldapdb*.so*
+%endif
+
+%files md5
+%{_plugindir2}/*crammd5*.so*
+%{_plugindir2}/*digestmd5*.so*
+
+%files ntlm
+%{_plugindir2}/*ntlm*.so*
+
+%files sql
+%{_plugindir2}/*sql*.so*
+
+%files gssapi
+%{_plugindir2}/*gssapi*.so*
+
+%files scram
+%{_plugindir2}/libscram.so*
+
+%files gs2
+%{_plugindir2}/libgs2.so*
+
+%files devel
+%{_bindir}/sasl2-sample-client
+%{_bindir}/sasl2-sample-server
+%{_includedir}/*
+%{_libdir}/libsasl*.*so
+%{_libdir}/pkgconfig/*.pc
+%{_mandir}/man3/*
+%{_sbindir}/sasl2-shared-mechlist
+
+%changelog
+%autochangelog

0001-CVE-2022-24407-Escape-password-for-SQL-insert-update.patch Added

@@ -0,0 +1,82 @@
+From 37f2e0f0658d78a1496dc277f402f8b577ce6aae Mon Sep 17 00:00:00 2001
+From: Klaus Espenlaub <klaus@espenlaub.com>
+Date: Tue, 8 Feb 2022 20:34:40 +0000
+Subject: PATCH CVE-2022-24407 Escape password for SQL insert/update
+ commands.
+
+Signed-off-by: Klaus Espenlaub <klaus@espenlaub.com>
+---
+ plugins/sql.c | 26 +++++++++++++++++++++++---
+ 1 file changed, 23 insertions(+), 3 deletions(-)
+
+diff --git a/plugins/sql.c b/plugins/sql.c
+index 31b54a78..6ac81c2f 100644
+--- a/plugins/sql.c
++++ b/plugins/sql.c
+@@ -1151,6 +1151,7 @@ static int sql_auxprop_store(void *glob_context,
+ char *statement = NULL;
+ char *escap_userid = NULL;
+ char *escap_realm = NULL;
++ char *escap_passwd = NULL;
+ const char *cmd;
+ 
+ sql_settings_t *settings;
+@@ -1222,6 +1223,11 @@ static int sql_auxprop_store(void *glob_context,
+ 			 "Unable to begin transaction\n");
+ }
+ for (cur = to_store; ret == SASL_OK && cur->name; cur++) {
++	/* Free the buffer, current content is from previous loop. */
++	if (escap_passwd) {
++	 sparams->utils->free(escap_passwd);
++	 escap_passwd = NULL;
++	}
+ 
+ 	if (cur->name0 == '*') {
+ 	 continue;
+@@ -1243,19 +1249,32 @@ static int sql_auxprop_store(void *glob_context,
+ 	}
+ 	sparams->utils->free(statement);
+ 
++	if (cur->values0) {
++	 escap_passwd = (char *)sparams->utils->malloc(strlen(cur->values0)*2+1);
++	 if (!escap_passwd) {
++		ret = SASL_NOMEM;
++		break;
++	 }
++	 settings->sql_engine->sql_escape_str(escap_passwd, cur->values0);
++	}
++
+ 	/* create a statement that we will use */
+ 	statement = sql_create_statement(cmd, cur->name, escap_userid,
+ 					 escap_realm,
+-					 cur->values && cur->values0 ?
+-					 cur->values0 : SQL_NULL_VALUE,
++					 escap_passwd ?
++					 escap_passwd : SQL_NULL_VALUE,
+ 					 sparams->utils);
++	if (!statement) {
++	 ret = SASL_NOMEM;
++	 break;
++	}
+ 	
+ 	{
+ 	 char *log_statement =
+ 		sql_create_statement(cmd, cur->name,
+ 				 escap_userid,
+ 				 escap_realm,
+-				 cur->values && cur->values0 ?
++				 escap_passwd ?
+ 				 "<omitted>" : SQL_NULL_VALUE,
+ 				 sparams->utils);
+ 	 sparams->utils->log(sparams->utils->conn, SASL_LOG_DEBUG,
+@@ -1288,6 +1307,7 @@ static int sql_auxprop_store(void *glob_context,
+ done:
+ if (escap_userid) sparams->utils->free(escap_userid);
+ if (escap_realm) sparams->utils->free(escap_realm);
++ if (escap_passwd) sparams->utils->free(escap_passwd);
+ if (conn) settings->sql_engine->sql_close(conn);
+ if (userid) sparams->utils->free(userid);
+ if (realm) sparams->utils->free(realm);
+-- 
+2.25.1
+

cyrus-sasl-2.1.20-saslauthd.conf-path.patch Added

@@ -0,0 +1,26 @@
+diff -up cyrus-sasl-2.1.27/saslauthd/saslauthd.mdoc.path cyrus-sasl-2.1.27/saslauthd/saslauthd.mdoc
+--- cyrus-sasl-2.1.27/saslauthd/saslauthd.mdoc.path	2015-10-15 15:44:43.000000000 +0200
++++ cyrus-sasl-2.1.27/saslauthd/saslauthd.mdoc	2015-11-20 15:05:30.421377527 +0100
+@@ -221,7 +221,7 @@ instead.
+ .Em (All platforms that support OpenLDAP 2.0 or higher)
+ .Pp
+ Authenticate against an ldap server.  The ldap configuration parameters are
+-read from /usr/local/etc/saslauthd.conf.  The location of this file can be
++read from /etc/saslauthd.conf.  The location of this file can be
+ changed with the -O parameter. See the LDAP_SASLAUTHD file included with the
+ distribution for the list of available parameters.
+ .It Li sia
+@@ -251,10 +251,10 @@ these ticket files can cause serious per
+ servers. (Kerberos
+ was never intended to be used in this manner, anyway.)
+ .Sh FILES
+-.Bl -tag -width "/var/run/saslauthd/mux"
+-.It Pa /var/run/saslauthd/mux
++.Bl -tag -width "/run/saslauthd/mux"
++.It Pa /run/saslauthd/mux
+ The default communications socket.
+-.It Pa /usr/local/etc/saslauthd.conf
++.It Pa /etc/saslauthd.conf
+ The default configuration file for ldap support.
+ .El
+ .Sh SEE ALSO

cyrus-sasl-2.1.21-sizes.patch Added

@@ -0,0 +1,119 @@
+diff -up cyrus-sasl-2.1.27/configure.ac.sizes cyrus-sasl-2.1.27/configure.ac
+--- cyrus-sasl-2.1.27/configure.ac.sizes	2015-11-18 09:46:24.000000000 +0100
++++ cyrus-sasl-2.1.27/configure.ac	2015-11-20 15:11:20.474588247 +0100
+@@ -1312,6 +1312,10 @@ AC_HEADER_STDC
+ AC_HEADER_DIRENT
+ AC_HEADER_SYS_WAIT
+ AC_CHECK_HEADERS(crypt.h des.h dlfcn.h fcntl.h limits.h malloc.h paths.h strings.h sys/file.h sys/time.h syslog.h unistd.h inttypes.h sys/uio.h sys/param.h sysexits.h stdarg.h varargs.h krb5.h)
++AC_CHECK_TYPES(long long, int8_t, uint8_t, int16_t, uint16_t, int32_t, uint32_t, int64_t, uint64_t,,,
++#ifdef HAVE_INTTYPES_H
++#include <inttypes.h>
++#endif)
+ 
+ IPv6_CHECK_SS_FAMILY()
+ IPv6_CHECK_SA_LEN()
+diff -up cyrus-sasl-2.1.27/include/makemd5.c.sizes cyrus-sasl-2.1.27/include/makemd5.c
+--- cyrus-sasl-2.1.27/include/makemd5.c.sizes	2015-10-15 15:44:43.000000000 +0200
++++ cyrus-sasl-2.1.27/include/makemd5.c	2015-11-20 15:11:20.477588240 +0100
+@@ -82,12 +82,19 @@
+ */
+ 
+ 
++#ifdef HAVE_CONFIG_H
++#include "../config.h"
++#endif
+ 
+ #include <stdio.h>
+ #include <string.h>
+ #include <stdlib.h>
+ #include <ctype.h>
+ 
++#ifdef HAVE_INTTYPES_H
++#include <inttypes.h>
++#endif
++
+ 
+ static void
+ my_strupr(char *s)
+@@ -122,6 +129,18 @@ my_strupr(char *s)
+ static void
+ try_signed(FILE *f, int len)
+ {
++#ifdef HAVE_INT8_T
++ BITSIZE(int8_t);
++#endif
++#ifdef HAVE_INT16_T
++ BITSIZE(int16_t);
++#endif
++#ifdef HAVE_INT32_T
++ BITSIZE(int32_t);
++#endif
++#ifdef HAVE_INT64_T
++ BITSIZE(int64_t);
++#endif
+ BITSIZE(signed char);
+ BITSIZE(short);
+ BITSIZE(int);
+@@ -135,6 +154,18 @@ try_signed(FILE *f, int len)
+ static void
+ try_unsigned(FILE *f, int len)
+ {
++#ifdef HAVE_UINT8_T
++ BITSIZE(uint8_t);
++#endif
++#ifdef HAVE_UINT16_T
++ BITSIZE(uint16_t);
++#endif
++#ifdef HAVE_UINT32_T
++ BITSIZE(uint32_t);
++#endif
++#ifdef HAVE_UINT64_T
++ BITSIZE(uint64_t);
++#endif
+ BITSIZE(unsigned char);
+ BITSIZE(unsigned short);
+ BITSIZE(unsigned int);
+@@ -165,6 +196,11 @@ static int print_pre(FILE *f)
+ 	 "/* POINTER defines a generic pointer type */\n"
+ 	 "typedef unsigned char *POINTER;\n"
+ 	 "\n"
++#ifdef HAVE_INTTYPES_H
++	 "/* We try to define integer types for our use */\n"
++	 "#include <inttypes.h>\n"
++	 "\n"
++#endif
+ 	 );
+ return 1;
+ }
+@@ -212,31 +248,15 @@ int main(int argc, char **argv)
+ 
+ print_pre(f);
+ 
+-#ifndef HAVE_INT8_T
+ try_signed (f, 8);
+-#endif /* HAVE_INT8_T */
+-#ifndef HAVE_INT16_T
+ try_signed (f, 16);
+-#endif /* HAVE_INT16_T */
+-#ifndef HAVE_INT32_T
+ try_signed (f, 32);
+-#endif /* HAVE_INT32_T */
+-#ifndef HAVE_INT64_T
+ try_signed (f, 64);
+-#endif /* HAVE_INT64_T */
+ 
+-#ifndef HAVE_U_INT8_T
+ try_unsigned (f, 8);
+-#endif /* HAVE_INT8_T */
+-#ifndef HAVE_U_INT16_T
+ try_unsigned (f, 16);
+-#endif /* HAVE_U_INT16_T */
+-#ifndef HAVE_U_INT32_T
+ try_unsigned (f, 32);
+-#endif /* HAVE_U_INT32_T */
+-#ifndef HAVE_U_INT64_T
+ try_unsigned (f, 64);
+-#endif /* HAVE_U_INT64_T */
+ 
+ print_post(f);
+

cyrus-sasl-2.1.23-db5.patch Added

cyrus-sasl-2.1.23-man.patch Added

cyrus-sasl-2.1.23-race.patch Added

cyrus-sasl-2.1.23-rimap2.patch Added

@@ -0,0 +1,70 @@
+diff -up cyrus-sasl-2.1.23/saslauthd/auth_rimap.c.rimap2 cyrus-sasl-2.1.23/saslauthd/auth_rimap.c
+--- cyrus-sasl-2.1.23/saslauthd/auth_rimap.c.rimap2	2011-06-01 05:54:13.339252378 +0200
++++ cyrus-sasl-2.1.23/saslauthd/auth_rimap.c	2011-06-01 05:54:39.626252337 +0200
+@@ -1,3 +1,4 @@
++
+ /* MODULE: auth_rimap */
+ 
+ /* COPYRIGHT
+@@ -368,6 +369,30 @@ auth_rimap (
+ alarm(NETWORK_IO_TIMEOUT);
+ rc = read(s, rbuf, sizeof(rbuf));
+ alarm(0);
++ if ( rc>0 ) {
++ /* check if there is more to read */
++ fd_set perm;
++ int fds, ret;
++ struct timeval timeout;
++
++ FD_ZERO(&perm);
++ FD_SET(s, &perm);
++ fds = s +1;
++
++ timeout.tv_sec = 1;
++ timeout.tv_usec = 0;
++ while( select (fds, &perm, NULL, NULL, &timeout ) >0 ) {
++ if ( FD_ISSET(s, &perm) ) {
++ ret = read(s, rbuf+rc, sizeof(rbuf)-rc);
++ if ( ret<0 ) {
++ rc = ret;
++ break;
++ } else {
++ rc += ret;
++ }
++ }
++ }
++ }
+ if (rc == -1) {
+ 	syslog(LOG_WARNING, "auth_rimap: read (banner): %m");
+ 	(void) close(s);
+@@ -457,6 +482,30 @@ auth_rimap (
+ alarm(NETWORK_IO_TIMEOUT);
+ rc = read(s, rbuf, sizeof(rbuf));
+ alarm(0);
++ if ( rc>0 ) {
++ /* check if there is more to read */
++ fd_set perm;
++ int fds, ret;
++ struct timeval timeout;
++
++ FD_ZERO(&perm);
++ FD_SET(s, &perm);
++ fds = s +1;
++
++ timeout.tv_sec = 1;
++ timeout.tv_usec = 0;
++ while( select (fds, &perm, NULL, NULL, &timeout ) >0 ) {
++ if ( FD_ISSET(s, &perm) ) {
++ ret = read(s, rbuf+rc, sizeof(rbuf)-rc);
++ if ( ret<0 ) {
++ rc = ret;
++ break;
++ } else {
++ rc += ret;
++ }
++ }
++ }
++ }
+ (void) close(s);			/* we're done with the remote */
+ if (rc == -1) {
+ 	syslog(LOG_WARNING, "auth_rimap: read (response): %m");

cyrus-sasl-2.1.25-no_rpath.patch Added

cyrus-sasl-2.1.26-md5global.patch Added

cyrus-sasl-2.1.27-Add-Channel-Binding-support-for-GSSAPI-GSS-SPNEGO.patch Added

@@ -0,0 +1,475 @@
+Backport of commit ids (minor inline mods to make them apply):
+975edbb69070eba6b035f08776de771a129cfb57
+ea8eb892e44129ac3890298da91c868d5592ed20
+
+From 975edbb69070eba6b035f08776de771a129cfb57 Mon Sep 17 00:00:00 2001
+From: Simo Sorce <simo@redhat.com>
+Date: Fri, 20 Mar 2020 14:51:04 -0400
+Subject: PATCH Add Channel Binding support for GSSAPI/GSS-SPNEGO
+
+Signed-off-by: Simo Sorce <simo@redhat.com>
+---
+ plugins/gssapi.c | 30 +++++++++++---
+ tests/runtests.py | 93 ++++++++++++++++++++++++++++++++++++++++----
+ tests/t_common.c | 14 +++++++
+ tests/t_common.h | 2 +
+ tests/t_gssapi_cli.c | 21 +++++++++-
+ tests/t_gssapi_srv.c | 21 +++++++++-
+ 6 files changed, 164 insertions(+), 17 deletions(-)
+
+diff --git a/plugins/gssapi.c b/plugins/gssapi.c
+index ff663da7..5d900c5e 100644
+--- a/plugins/gssapi.c
++++ b/plugins/gssapi.c
+@@ -830,7 +830,9 @@ gssapi_server_mech_authneg(context_t *text,
+ gss_buffer_desc name_without_realm;
+ gss_name_t client_name_MN = NULL, without = NULL;
+ gss_OID mech_type;
+-	
++ gss_channel_bindings_t bindings = GSS_C_NO_CHANNEL_BINDINGS;
++ struct gss_channel_bindings_struct cb = {0};
++
+ input_token = &real_input_token;
+ output_token = &real_output_token;
+ output_token->value = NULL; output_token->length = 0;
+@@ -902,6 +904,12 @@ gssapi_server_mech_authneg(context_t *text,
+ 	real_input_token.length = clientinlen;
+ }
+ 
++ if (params->cbinding != NULL) {
++ cb.application_data.length = params->cbinding->len;
++ cb.application_data.value = params->cbinding->data;
++ bindings = &cb;
++ }
++
+ 
+ GSS_LOCK_MUTEX_CTX(params->utils, text);
+ maj_stat =
+@@ -909,7 +917,7 @@ gssapi_server_mech_authneg(context_t *text,
+ 			 &(text->gss_ctx),
+ 			 server_creds,
+ 			 input_token,
+-			 GSS_C_NO_CHANNEL_BINDINGS,
++			 bindings,
+ 			 &text->client_name,
+ 			 &mech_type,
+ 			 output_token,
+@@ -1505,7 +1513,8 @@ static sasl_server_plug_t gssapi_server_plugins =
+ 	| SASL_SEC_PASS_CREDENTIALS,
+ 	SASL_FEAT_WANT_CLIENT_FIRST
+ 	| SASL_FEAT_ALLOWS_PROXY
+-	| SASL_FEAT_DONTUSE_USERPASSWD,	/* features */
++	| SASL_FEAT_DONTUSE_USERPASSWD
++	| SASL_FEAT_CHANNEL_BINDING,	/* features */
+ 	NULL,				/* glob_context */
+ 	&gssapi_server_mech_new,	/* mech_new */
+ 	&gssapi_server_mech_step,	/* mech_step */
+@@ -1529,6 +1538,7 @@ static sasl_server_plug_t gssapi_server_plugins =
+ 	SASL_FEAT_WANT_CLIENT_FIRST
+ 	| SASL_FEAT_ALLOWS_PROXY
+ 	| SASL_FEAT_DONTUSE_USERPASSWD
++	| SASL_FEAT_CHANNEL_BINDING
+ 	| SASL_FEAT_SUPPORTS_HTTP,	/* features */
+ 	&gss_spnego_oid,		/* glob_context */
+ 	&gssapi_server_mech_new,	/* mech_new */
+@@ -1662,6 +1672,8 @@ static int gssapi_client_mech_step(void *conn_context,
+ input_token->value = NULL; 
+ input_token->length = 0;
+ gss_cred_id_t client_creds = (gss_cred_id_t)params->gss_creds;
++ gss_channel_bindings_t bindings = GSS_C_NO_CHANNEL_BINDINGS;
++ struct gss_channel_bindings_struct cb = {0};
+ 
+ if (clientout)
+ *clientout = NULL;
+@@ -1777,6 +1789,12 @@ static int gssapi_client_mech_step(void *conn_context,
+ 	 req_flags = req_flags | GSS_C_DELEG_FLAG;
+ 	}
+ 
++ if (params->cbinding != NULL) {
++ cb.application_data.length = params->cbinding->len;
++ cb.application_data.value = params->cbinding->data;
++ bindings = &cb;
++ }
++
+ 	GSS_LOCK_MUTEX_CTX(params->utils, text);
+ 	maj_stat = gss_init_sec_context(&min_stat,
+ 					client_creds, /* GSS_C_NO_CREDENTIAL */
+@@ -1785,7 +1803,7 @@ static int gssapi_client_mech_step(void *conn_context,
+ 					text->mech_type,
+ 					req_flags,
+ 					0,
+-					GSS_C_NO_CHANNEL_BINDINGS,
++					bindings,
+ 					input_token,
+ 					NULL,
+ 					output_token,
+@@ -2190,7 +2208,8 @@ static sasl_client_plug_t gssapi_client_plugins =
+ 	| SASL_SEC_PASS_CREDENTIALS, /* security_flags */
+ 	SASL_FEAT_NEEDSERVERFQDN
+ 	| SASL_FEAT_WANT_CLIENT_FIRST
+-	| SASL_FEAT_ALLOWS_PROXY,	/* features */
++	| SASL_FEAT_ALLOWS_PROXY
++	| SASL_FEAT_CHANNEL_BINDING,	/* features */
+ 	gssapi_required_prompts,	/* required_prompts */
+ 	GSS_C_NO_OID,			/* glob_context */
+ 	&gssapi_client_mech_new,	/* mech_new */
+@@ -2213,6 +2232,7 @@ static sasl_client_plug_t gssapi_client_plugins =
+ 	SASL_FEAT_NEEDSERVERFQDN
+ 	| SASL_FEAT_WANT_CLIENT_FIRST
+ 	| SASL_FEAT_ALLOWS_PROXY
++	| SASL_FEAT_CHANNEL_BINDING
+ 	| SASL_FEAT_SUPPORTS_HTTP,	/* features */
+ 	gssapi_required_prompts,	/* required_prompts */
+ 	&gss_spnego_oid,		/* glob_context */
+diff --git a/tests/runtests.py b/tests/runtests.py
+index f645adf4..fc9cf244 100755
+--- a/tests/runtests.py
++++ b/tests/runtests.py
+@@ -1,6 +1,7 @@
+ #!/usr/bin/python3
+ 
+ import argparse
++import base64
+ import os
+ import shutil
+ import signal
+@@ -126,14 +127,7 @@ def setup_kdc(testdir, env):
+ 
+ return kdc, env
+ 
+-
+-def gssapi_tests(testdir):
+- """ SASL/GSSAPI Tests """
+- env = setup_socket_wrappers(testdir)
+- kdc, kenv = setup_kdc(testdir, env)
+- #print("KDC: {}, ENV: {}".format(kdc, kenv))
+- kenv'KRB5_TRACE' = os.path.join(testdir, 'trace.log')
+-
++def gssapi_basic_test(kenv):
+ try:
+ srv = subprocess.Popen("../tests/t_gssapi_srv",
+ stdout=subprocess.PIPE,
+@@ -155,11 +149,94 @@ def gssapi_tests(testdir):
+ srv.returncode, srv.stderr.read().decode('utf-8')))
+ except Exception as e:
+ print("FAIL: {}".format(e))
++ return
++
++ print("PASS: CLI({}) SRV({})".format(
++ cli.stdout.read().decode('utf-8').strip(),
++ srv.stdout.read().decode('utf-8').strip()))
++
++def gssapi_channel_binding_test(kenv):
++ try:
++ bindings = base64.b64encode("MATCHING CBS".encode('utf-8'))
++ srv = subprocess.Popen("../tests/t_gssapi_srv", "-c", bindings,
++ stdout=subprocess.PIPE,
++ stderr=subprocess.PIPE, env=kenv)
++ srv.stdout.readline() # Wait for srv to say it is ready
++ cli = subprocess.Popen("../tests/t_gssapi_cli", "-c", bindings,
++ stdout=subprocess.PIPE,
++ stderr=subprocess.PIPE, env=kenv)
++ try:
++ cli.wait(timeout=5)
++ srv.wait(timeout=5)
++ except Exception as e:
++ print("Failed on {}".format(e));
++ cli.kill()
++ srv.kill()
++ if cli.returncode != 0 or srv.returncode != 0:
++ raise Exception("CLI ({}): {} --> SRV ({}): {}".format(
++ cli.returncode, cli.stderr.read().decode('utf-8'),
++ srv.returncode, srv.stderr.read().decode('utf-8')))
++ except Exception as e:
++ print("FAIL: {}".format(e))
++ return
+ 
+ print("PASS: CLI({}) SRV({})".format(
+ cli.stdout.read().decode('utf-8').strip(),
+ srv.stdout.read().decode('utf-8').strip()))
+ 
++def gssapi_channel_binding_mismatch_test(kenv):
++ result = "FAIL"
++ try:
++ bindings = base64.b64encode("SRV CBS".encode('utf-8'))
++ srv = subprocess.Popen("../tests/t_gssapi_srv", "-c", bindings,
++ stdout=subprocess.PIPE,
++ stderr=subprocess.PIPE, env=kenv)
++ srv.stdout.readline() # Wait for srv to say it is ready
++ bindings = base64.b64encode("CLI CBS".encode('utf-8'))
++ cli = subprocess.Popen("../tests/t_gssapi_cli", "-c", bindings,
++ stdout=subprocess.PIPE,
++ stderr=subprocess.PIPE, env=kenv)
++ try:
++ cli.wait(timeout=5)
++ srv.wait(timeout=5)
++ except Exception as e:
++ print("Failed on {}".format(e));
++ cli.kill()
++ srv.kill()
++ if cli.returncode != 0 or srv.returncode != 0:
++ cli_err = cli.stderr.read().decode('utf-8').strip()
++ srv_err = srv.stderr.read().decode('utf-8').strip()
++ if "authentication failure" in srv_err:
++ result = "PASS"
++ raise Exception("CLI ({}): {} --> SRV ({}): {}".format(
++ cli.returncode, cli_err, srv.returncode, srv_err))
++ except Exception as e:
++ print("{}: {}".format(result, e))
++ return
++
++ print("FAIL: This test should fail CLI({}) SRV({})".format(
++ cli.stdout.read().decode('utf-8').strip(),
++ srv.stdout.read().decode('utf-8').strip()))
++
++def gssapi_tests(testdir):
++ """ SASL/GSSAPI Tests """
++ env = setup_socket_wrappers(testdir)
++ kdc, kenv = setup_kdc(testdir, env)
++ #print("KDC: {}, ENV: {}".format(kdc, kenv))
++ kenv'KRB5_TRACE' = os.path.join(testdir, 'trace.log')
++
++ print('GSSAPI BASIC:')
++ print(' ', end='')
++ gssapi_basic_test(kenv)
++
++ print('GSSAPI CHANNEL BINDING:')
++ print(' ', end='')
++ gssapi_channel_binding_test(kenv)
++
++ print('GSSAPI CHANNEL BINDING MISMTACH:')
++ print(' ', end='')
++ gssapi_channel_binding_mismatch_test(kenv)
++
+ os.killpg(kdc.pid, signal.SIGTERM)
+ 
+ 
+diff --git a/tests/t_common.c b/tests/t_common.c
+index 7168b2f1..87875b48 100644
+--- a/tests/t_common.c
++++ b/tests/t_common.c
+@@ -65,4 +65,18 @@ int getpath(void *context __attribute__((unused)), const char **path)
+ return SASL_OK;
+ }
+ 
++void parse_cb(sasl_channel_binding_t *cb, char *buf, unsigned max, char *in)
++{
++ unsigned len;
++ int r;
+ 
++ r = sasl_decode64(in, strlen(in), buf, max, &len);
++ if (r != SASL_OK) {
++ saslerr(r, "failed to parse channel bindings");
++ exit(-1);
++ }
++ cb->name = "TEST BINDINGS";
++ cb->critical = 0;
++ cb->data = (unsigned char *)buf;
++ cb->len = len;
++}
+diff --git a/tests/t_common.h b/tests/t_common.h
+index 4ee1976c..0d08d8ba 100644
+--- a/tests/t_common.h
++++ b/tests/t_common.h
+@@ -7,9 +7,11 @@
+ #include <sys/socket.h>
+ 
+ #include <sasl.h>
++#include <saslutil.h>
+ 
+ void s_error(const char *hdr, ssize_t ret, ssize_t len, int err);
+ void send_string(int sd, const char *s, unsigned int l);
+ void recv_string(int sd, char *buf, unsigned int *buflen);
+ void saslerr(int why, const char *what);
+ int getpath(void *context __attribute__((unused)), const char **path);
++void parse_cb(sasl_channel_binding_t *cb, char *buf, unsigned max, char *in);
+diff --git a/tests/t_gssapi_cli.c b/tests/t_gssapi_cli.c
+index c833c055..6b5664eb 100644
+--- a/tests/t_gssapi_cli.c
++++ b/tests/t_gssapi_cli.c
+@@ -13,6 +13,7 @@
+ 
+ #include <arpa/inet.h>
+ #include <saslplug.h>
++#include <saslutil.h>
+ 
+ static int setup_socket(void)
+ {
+@@ -32,7 +33,7 @@ static int setup_socket(void)
+ return sock;
+ }
+ 
+-int main(int argc __attribute__((unused)), char *argv __attribute__((unused)))
++int main(int argc, char *argv)
+ {
+ sasl_callback_t callbacks2 = {};
+ char buf8192;
+@@ -40,8 +41,20 @@ int main(int argc __attribute__((unused)), char *argv __attribute__((unused)))
+ sasl_conn_t *conn;
+ const char *data;
+ unsigned int len;
++ sasl_channel_binding_t cb = {0};
++ char cb_buf256;
+ int sd;
+- int r;
++ int c, r;
++
++ while ((c = getopt(argc, argv, "c:")) != EOF) {
++ switch (c) {
++ case 'c':
++ parse_cb(&cb, cb_buf, 256, optarg);
++ break;
++ default:
++ break;
++ }
++ }
+ 
+ /* initialize the sasl library */
+ callbacks0.id = SASL_CB_GETPATH;
+@@ -60,6 +73,10 @@ int main(int argc __attribute__((unused)), char *argv __attribute__((unused)))
+ exit(-1);
+ }
+ 
++ if (cb.name) {
++ sasl_setprop(conn, SASL_CHANNEL_BINDING, &cb);
++ }
++
+ r = sasl_client_start(conn, "GSSAPI", NULL, &data, &len, &chosenmech);
+ if (r != SASL_OK && r != SASL_CONTINUE) {
+ 	saslerr(r, "starting SASL negotiation");
+diff --git a/tests/t_gssapi_srv.c b/tests/t_gssapi_srv.c
+index 29f538dd..3a8a5d44 100644
+--- a/tests/t_gssapi_srv.c
++++ b/tests/t_gssapi_srv.c
+@@ -44,15 +44,28 @@ static int setup_socket(void)
+ return sd;
+ }
+ 
+-int main(int argc __attribute__((unused)), char *argv __attribute__((unused)))
++int main(int argc, char *argv)
+ {
+ sasl_callback_t callbacks2 = {};
+ char buf8192;
+ sasl_conn_t *conn;
+ const char *data;
+ unsigned int len;
++ sasl_channel_binding_t cb = {0};
++ unsigned char cb_buf256;
+ int sd;
+- int r;
++ int c, r;
++
++ while ((c = getopt(argc, argv, "c:")) != EOF) {
++ switch (c) {
++ case 'c':
++ parse_cb(&cb, cb_buf, 256, optarg);
++ break;
++ default:
++ break;
++ }
++ }
++
+ 
+ /* initialize the sasl library */
+ callbacks0.id = SASL_CB_GETPATH;
+@@ -72,6 +85,10 @@ int main(int argc __attribute__((unused)), char *argv __attribute__((unused)))
+ exit(-1);
+ }
+ 
++ if (cb.name) {
++ sasl_setprop(conn, SASL_CHANNEL_BINDING, &cb);
++ }
++
+ sd = setup_socket();
+ 
+ len = 8192;
+
+From ea8eb892e44129ac3890298da91c868d5592ed20 Mon Sep 17 00:00:00 2001
+From: Simo Sorce <simo@redhat.com>
+Date: Fri, 20 Mar 2020 14:52:15 -0400
+Subject: PATCH Fixup minor issues in previous PR.
+
+Remove spurious debugging code, this was left in by mistake.
+Add C notices, this was omitted by mistake.
+
+Signed-off-by: Simo Sorce <simo@redhat.com>
+---
+ tests/t_common.c | 10 ++--------
+ tests/t_common.h | 3 ++-
+ tests/t_gssapi_cli.c | 3 ++-
+ tests/t_gssapi_srv.c | 3 ++-
+ 4 files changed, 8 insertions(+), 11 deletions(-)
+
+diff --git a/tests/t_common.c b/tests/t_common.c
+index 87875b48..478e6a1f 100644
+--- a/tests/t_common.c
++++ b/tests/t_common.c
+@@ -1,4 +1,5 @@
+-/* TBD, add (C) */
++/* Copyright (C) Simo Sorce <simo@redhat.com>
++ * See COPYING file for License */
+ 
+ #include <t_common.h>
+ 
+@@ -13,9 +14,6 @@ void send_string(int sd, const char *s, unsigned int l)
+ {
+ ssize_t ret;
+ 
+-fprintf(stderr, "s:%u ", l);
+-fflush(stderr);
+-
+ ret = send(sd, &l, sizeof(l), 0);
+ if (ret != sizeof(l)) s_error("send size", ret, sizeof(l), errno);
+ 
+@@ -34,8 +32,6 @@ void recv_string(int sd, char *buf, unsigned int *buflen)
+ if (ret != sizeof(l)) s_error("recv size", ret, sizeof(l), errno);
+ 
+ if (l == 0) {
+-fprintf(stderr, "r:0 ");
+-fflush(stderr);
+ *buflen = 0;
+ return;
+ }
+@@ -45,8 +41,6 @@ fflush(stderr);
+ ret = recv(sd, buf, l, 0);
+ if (ret != l) s_error("recv data", ret, l, errno);
+ 
+-fprintf(stderr, "r:%ld ", ret);
+-fflush(stderr);
+ *buflen = ret;
+ }
+ 
+diff --git a/tests/t_common.h b/tests/t_common.h
+index 0d08d8ba..a10def17 100644
+--- a/tests/t_common.h
++++ b/tests/t_common.h
+@@ -1,4 +1,5 @@
+-/* TBD, add (C) */
++/* Copyright (C) Simo Sorce <simo@redhat.com>
++ * See COPYING file for License */
+ 
+ #include "config.h"
+ 
+diff --git a/tests/t_gssapi_cli.c b/tests/t_gssapi_cli.c
+index 6b5664eb..a44a3f58 100644
+--- a/tests/t_gssapi_cli.c
++++ b/tests/t_gssapi_cli.c
+@@ -1,4 +1,5 @@
+-/* TBD, add (C) */
++/* Copyright (C) Simo Sorce <simo@redhat.com>
++ * See COPYING file for License */
+ 
+ #include "t_common.h"
+ 
+diff --git a/tests/t_gssapi_srv.c b/tests/t_gssapi_srv.c
+index 3a8a5d44..ef1217f6 100644
+--- a/tests/t_gssapi_srv.c
++++ b/tests/t_gssapi_srv.c
+@@ -1,4 +1,5 @@
+-/* TBD, add (C) */
++/* Copyright (C) Simo Sorce <simo@redhat.com>
++ * See COPYING file for License */
+ 
+ #include "t_common.h"
+ 
+

cyrus-sasl-2.1.27-Add-basic-test-infrastructure.patch Added

@@ -0,0 +1,642 @@
+Backport of 18ff41d5d18f61c2ded7235dad1d9618aa84784b with minor inline mods to
+make it apply.
+
+From 18ff41d5d18f61c2ded7235dad1d9618aa84784b Mon Sep 17 00:00:00 2001
+From: Simo Sorce <simo@redhat.com>
+Date: Sat, 14 Mar 2020 10:50:19 -0400
+Subject: PATCH Add basic test infrastructure
+
+First test is for SASL/GSSAPI
+
+Signed-off-by: Simo Sorce <simo@redhat.com>
+
+:x
+---
+ Makefile.am | 2 +-
+ configure.ac | 3 +-
+ tests/Makefile.am | 79 +++++++++++++++++++
+ tests/runtests.py | 179 +++++++++++++++++++++++++++++++++++++++++++
+ tests/t_common.c | 68 ++++++++++++++++
+ tests/t_common.h | 15 ++++
+ tests/t_gssapi_cli.c | 95 +++++++++++++++++++++++
+ tests/t_gssapi_srv.c | 111 +++++++++++++++++++++++++++
+ 10 files changed, 559 insertions(+), 4 deletions(-)
+ create mode 100644 tests/Makefile.am
+ create mode 100755 tests/runtests.py
+ create mode 100644 tests/t_common.c
+ create mode 100644 tests/t_common.h
+ create mode 100644 tests/t_gssapi_cli.c
+ create mode 100644 tests/t_gssapi_srv.c
+
+diff --git a/Makefile.am b/Makefile.am
+index f7d3b22e..102e2a3e 100644
+--- a/Makefile.am
++++ b/Makefile.am
+@@ -65,7 +65,7 @@ else
+ INSTALLOSX = 
+ endif
+ 
+-SUBDIRS=include sasldb common lib plugins utils $(PWC) $(SAM) $(SAD)
++SUBDIRS=include sasldb common lib plugins utils $(PWC) $(SAM) $(SAD) tests
+ EXTRA_DIST=config doc docsrc win32 mac dlcompat-20010505 NTMakefile \
+ INSTALL.TXT libsasl2.pc.in
+ 
+diff --git a/configure.ac b/configure.ac
+index 3610671b..dd7908a3 100644
+--- a/configure.ac
++++ b/configure.ac
+@@ -1516,8 +1516,9 @@ plugins/Makefile
+ lib/Makefile
+ utils/Makefile
+ sample/Makefile
+-pwcheck/Makefile)
++pwcheck/Makefile
++tests/Makefile)
+ AC_OUTPUT
+ 
+ AC_MSG_NOTICE(
+ 
+diff --git a/tests/Makefile.am b/tests/Makefile.am
+new file mode 100644
+index 00000000..1edf010a
+--- /dev/null
++++ b/tests/Makefile.am
+@@ -0,0 +1,79 @@
++# Makefile.am -- automake input for cyrus-sasl tests
++# Simo Sorce
++#
++################################################################
++# Copyright (c) 2000 Carnegie Mellon University. All rights reserved.
++#
++# Redistribution and use in source and binary forms, with or without
++# modification, are permitted provided that the following conditions
++# are met:
++#
++# 1. Redistributions of source code must retain the above copyright
++# notice, this list of conditions and the following disclaimer.
++#
++# 2. Redistributions in binary form must reproduce the above copyright
++# notice, this list of conditions and the following disclaimer in
++# the documentation and/or other materials provided with the
++# distribution.
++#
++# 3. The name "Carnegie Mellon University" must not be used to
++# endorse or promote products derived from this software without
++# prior written permission. For permission or any other legal
++# details, please contact
++# Office of Technology Transfer
++# Carnegie Mellon University
++# 5000 Forbes Avenue
++# Pittsburgh, PA 15213-3890
++# (412) 268-4387, fax: (412) 268-7395
++# tech-transfer@andrew.cmu.edu
++#
++# 4. Redistributions of any form whatsoever must retain the following
++# acknowledgment:
++# "This product includes software developed by Computing Services
++# at Carnegie Mellon University (http://www.cmu.edu/computing/)."
++#
++# CARNEGIE MELLON UNIVERSITY DISCLAIMS ALL WARRANTIES WITH REGARD TO
++# THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
++# AND FITNESS, IN NO EVENT SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE
++# FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
++# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
++# AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
++# OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
++#
++################################################################
++
++AM_CPPFLAGS=-I$(top_srcdir)/include -DPLUGINDIR='"${top_srcdir}/plugins/.libs"'
++
++COMMON_LDADD = ../lib/libsasl2.la $(GSSAPIBASE_LIBS) $(GSSAPI_LIBS) $(LIB_SOCKET)
++
++t_gssapi_cli_SOURCES = \
++	t_common.c \
++	t_gssapi_cli.c
++
++t_gssapi_cli_LDADD = $(COMMON_LDADD)
++
++t_gssapi_srv_SOURCES = \
++	t_common.c \
++	t_gssapi_srv.c
++
++t_gssapi_srv_LDADD = $(COMMON_LDADD)
++
++check_PROGRAMS = \
++	t_gssapi_cli \
++	t_gssapi_srv \
++	$(NULL)
++
++noinst_PROGRAMS = $(check_PROGRAMS)
++
++EXTRA_DIST = \
++	runtests.py \
++	$(NULL)
++
++all: $(check_PROGRAMS)
++
++check:
++if MACOSX
++# skip Mac OSX for now
++else
++	$(srcdir)/runtests.py $(CHECKARGS)
++endif
+diff --git a/tests/runtests.py b/tests/runtests.py
+new file mode 100755
+index 00000000..f645adf4
+--- /dev/null
++++ b/tests/runtests.py
+@@ -0,0 +1,179 @@
++#!/usr/bin/python3
++
++import argparse
++import os
++import shutil
++import signal
++import subprocess
++import time
++from string import Template
++
++
++def setup_socket_wrappers(testdir):
++ """ Try to set up socket wrappers """
++ wrapdir = os.path.join(testdir, 'w')
++ os.makedirs(wrapdir)
++
++ wrappers = subprocess.Popen('pkg-config', '--exists', 'socket_wrapper')
++ wrappers.wait()
++ if wrappers.returncode != 0:
++ raise Exception('Socket Wrappers not available')
++
++ wrappers = subprocess.Popen('pkg-config', '--exists', 'nss_wrapper')
++ wrappers.wait()
++ if wrappers.returncode != 0:
++ raise Exception('NSS Wrappers not available')
++
++ hosts = os.path.join(wrapdir, 'hosts')
++ with open(hosts, 'w+') as conffile:
++ conffile.write('127.0.0.9 host.realm.test')
++
++ return {'LD_PRELOAD': 'libsocket_wrapper.so libnss_wrapper.so',
++ 'SOCKET_WRAPPER_DIR': wrapdir,
++ 'SOCKET_WRAPPER_DEFAULT_IFACE': '9',
++ 'NSS_WRAPPER_HOSTNAME': 'host.realm.test',
++ 'NSS_WRAPPER_HOSTS': hosts}
++
++
++KERBEROS_CONF = '''
++libdefaults
++ default_realm = REALM.TEST
++ dns_lookup_realm = false
++ dns_lookup_kdc = false
++ rdns = false
++ ticket_lifetime = 24h
++ forwardable = yes
++ default_ccache_name = FILE://${TESTDIR}/ccache
++ udp_preference_limit = 1
++
++domain_realm
++ .realm.test = REALM.TEST
++ realm.test = REALM.TEST
++
++realms
++ REALM.TEST = {
++ kdc = 127.0.0.9
++ admin_server = 127.0.0.9
++ acl_file = ${TESTDIR}/kadm.acl
++ dict_file = /usr/share/dict/words
++ admin_keytab = ${TESTDIR}/kadm.keytab
++ database_name = ${TESTDIR}/kdc.db
++ key_stash_file = ${TESTDIR}/kdc.stash
++ }
++
++kdcdefaults
++ kdc_ports = 88
++ kdc_tcp_ports = 88
++
++logging
++ kdc = FILE:${TESTDIR}/kdc.log
++ admin_server = FILE:${TESTDIR}/kadm.log
++ default = FILE:${TESTDIR}/krb5.log
++'''
++
++
++def setup_kdc(testdir, env):
++ """ Setup KDC and start process """
++ krbconf = os.path.join(testdir, 'krb.conf')
++ env'KRB5_CONFIG' = krbconf
++
++ kenv = {'KRB5_KDC_PROFILE': krbconf,
++ 'PATH': '/sbin:/bin:/usr/sbin:/usr/bin'}
++ kenv.update(env)
++
++ # KDC/KRB5 CONFIG
++ templ = Template(KERBEROS_CONF)
++ text = templ.substitute({'TESTDIR': testdir})
++ with open(krbconf, 'w+') as conffile:
++ conffile.write(text)
++
++ testlog = os.path.join(testdir, 'kdc.log')
++ log = open(testlog, 'a')
++
++ subprocess.check_call(
++ "kdb5_util", "create",
++ "-r", "REALM.TEST", "-s", "-P", "password"
++ , stdout=log, stderr=log, env=kenv, timeout=5)
++
++ kdc = subprocess.Popen('krb5kdc', '-n', env=kenv, preexec_fn=os.setsid)
++ time.sleep(5)
++
++ # Add a user and genrate a keytab
++ keytab = os.path.join(testdir, "user.keytab")
++ subprocess.check_call(
++ "kadmin.local", "-q",
++ "addprinc -randkey user"
++ , stdout=log, stderr=log, env=kenv, timeout=5)
++
++ subprocess.check_call(
++ "kadmin.local", "-q",
++ "ktadd -k {} user".format(keytab)
++ , stdout=log, stderr=log, env=kenv, timeout=5)
++ env'KRB5_CLIENT_KTNAME' = keytab
++
++ # Add a service and genrate a keytab
++ keytab = os.path.join(testdir, "test.keytab")
++ subprocess.check_call(
++ "kadmin.local", "-q",
++ "addprinc -randkey test/host.realm.test"
++ , stdout=log, stderr=log, env=kenv, timeout=5)
++
++ subprocess.check_call(
++ "kadmin.local", "-q",
++ "ktadd -k {} test/host.realm.test".format(keytab)
++ , stdout=log, stderr=log, env=kenv, timeout=5)
++ env'KRB5_KTNAME' = keytab
++
++ return kdc, env
++
++
++def gssapi_tests(testdir):
++ """ SASL/GSSAPI Tests """
++ env = setup_socket_wrappers(testdir)
++ kdc, kenv = setup_kdc(testdir, env)
++ #print("KDC: {}, ENV: {}".format(kdc, kenv))
++ kenv'KRB5_TRACE' = os.path.join(testdir, 'trace.log')
++
++ try:
++ srv = subprocess.Popen("../tests/t_gssapi_srv",
++ stdout=subprocess.PIPE,
++ stderr=subprocess.PIPE, env=kenv)
++ srv.stdout.readline() # Wait for srv to say it is ready
++ cli = subprocess.Popen("../tests/t_gssapi_cli",
++ stdout=subprocess.PIPE,
++ stderr=subprocess.PIPE, env=kenv)
++ try:
++ cli.wait(timeout=5)
++ srv.wait(timeout=5)
++ except Exception as e:
++ print("Failed on {}".format(e));
++ cli.kill()
++ srv.kill()
++ if cli.returncode != 0 or srv.returncode != 0:
++ raise Exception("CLI ({}): {} --> SRV ({}): {}".format(
++ cli.returncode, cli.stderr.read().decode('utf-8'),
++ srv.returncode, srv.stderr.read().decode('utf-8')))
++ except Exception as e:
++ print("FAIL: {}".format(e))
++
++ print("PASS: CLI({}) SRV({})".format(
++ cli.stdout.read().decode('utf-8').strip(),
++ srv.stdout.read().decode('utf-8').strip()))
++
++ os.killpg(kdc.pid, signal.SIGTERM)
++
++
++if __name__ == "__main__":
++
++ P = argparse.ArgumentParser(description='Cyrus SASL Tests')
++ P.add_argument('--testdir', default=os.path.join(os.getcwd(), '.tests'),
++ help="Directory for running tests")
++ A = vars(P.parse_args())
++
++ T = A'testdir'
++
++ if os.path.exists(T):
++ shutil.rmtree(T)
++ os.makedirs(T)
++
++ gssapi_tests(T)
+diff --git a/tests/t_common.c b/tests/t_common.c
+new file mode 100644
+index 00000000..7168b2f1
+--- /dev/null
++++ b/tests/t_common.c
+@@ -0,0 +1,68 @@
++/* TBD, add (C) */
++
++#include <t_common.h>
++
++void s_error(const char *hdr, ssize_t ret, ssize_t len, int err)
++{
++ fprintf(stderr, "%s l:%ld/%ld %d %s",
++ hdr, ret, len, err, strerror(err));
++ exit(-1);
++}
++
++void send_string(int sd, const char *s, unsigned int l)
++{
++ ssize_t ret;
++
++fprintf(stderr, "s:%u ", l);
++fflush(stderr);
++
++ ret = send(sd, &l, sizeof(l), 0);
++ if (ret != sizeof(l)) s_error("send size", ret, sizeof(l), errno);
++
++ if (l == 0) return;
++
++ ret = send(sd, s, l, 0);
++ if (ret != l) s_error("send data", ret, l, errno);
++}
++
++void recv_string(int sd, char *buf, unsigned int *buflen)
++{
++ unsigned int l;
++ ssize_t ret;
++
++ ret = recv(sd, &l, sizeof(l), MSG_WAITALL);
++ if (ret != sizeof(l)) s_error("recv size", ret, sizeof(l), errno);
++
++ if (l == 0) {
++fprintf(stderr, "r:0 ");
++fflush(stderr);
++ *buflen = 0;
++ return;
++ }
++
++ if (*buflen < l) s_error("recv len", l, *buflen, E2BIG);
++
++ ret = recv(sd, buf, l, 0);
++ if (ret != l) s_error("recv data", ret, l, errno);
++
++fprintf(stderr, "r:%ld ", ret);
++fflush(stderr);
++ *buflen = ret;
++}
++
++void saslerr(int why, const char *what)
++{
++ fprintf(stderr, "%s: %s", what, sasl_errstring(why, NULL, NULL));
++}
++
++int getpath(void *context __attribute__((unused)), const char **path)
++{
++ if (! path) {
++ return SASL_BADPARAM;
++ }
++
++ *path = PLUGINDIR;
++ return SASL_OK;
++}
++
++
+diff --git a/tests/t_common.h b/tests/t_common.h
+new file mode 100644
+index 00000000..4ee1976c
+--- /dev/null
++++ b/tests/t_common.h
+@@ -0,0 +1,15 @@
++/* TBD, add (C) */
++
++#include "config.h"
++
++#include <errno.h>
++#include <stdio.h>
++#include <sys/socket.h>
++
++#include <sasl.h>
++
++void s_error(const char *hdr, ssize_t ret, ssize_t len, int err);
++void send_string(int sd, const char *s, unsigned int l);
++void recv_string(int sd, char *buf, unsigned int *buflen);
++void saslerr(int why, const char *what);
++int getpath(void *context __attribute__((unused)), const char **path);
+diff --git a/tests/t_gssapi_cli.c b/tests/t_gssapi_cli.c
+new file mode 100644
+index 00000000..c833c055
+--- /dev/null
++++ b/tests/t_gssapi_cli.c
+@@ -0,0 +1,95 @@
++/* TBD, add (C) */
++
++#include "t_common.h"
++
++#include <stdlib.h>
++#include <stdarg.h>
++#include <ctype.h>
++#include <string.h>
++
++#ifdef HAVE_UNISTD_H
++#include <unistd.h>
++#endif
++
++#include <arpa/inet.h>
++#include <saslplug.h>
++
++static int setup_socket(void)
++{
++ struct sockaddr_in addr;
++ int sock, ret;
++
++ sock = socket(AF_INET, SOCK_STREAM, 0);
++ if (sock < 0) s_error("socket", 0, 0, errno);
++
++ addr.sin_family = AF_INET;
++ addr.sin_addr.s_addr = inet_addr("127.0.0.9");
++ addr.sin_port = htons(9000);
++
++ ret = connect(sock, (struct sockaddr *)&addr, sizeof(addr));
++ if (ret != 0) s_error("connect", 0, 0, errno);
++
++ return sock;
++}
++
++int main(int argc __attribute__((unused)), char *argv __attribute__((unused)))
++{
++ sasl_callback_t callbacks2 = {};
++ char buf8192;
++ const char *chosenmech;
++ sasl_conn_t *conn;
++ const char *data;
++ unsigned int len;
++ int sd;
++ int r;
++
++ /* initialize the sasl library */
++ callbacks0.id = SASL_CB_GETPATH;
++ callbacks0.proc = (sasl_callback_ft)&getpath;
++ callbacks0.context = NULL;
++ callbacks1.id = SASL_CB_LIST_END;
++ callbacks1.proc = NULL;
++ callbacks1.context = NULL;
++
++ r = sasl_client_init(callbacks);
++ if (r != SASL_OK) exit(-1);
++
++ r = sasl_client_new("test", "host.realm.test", NULL, NULL, NULL, 0, &conn);
++ if (r != SASL_OK) {
++ saslerr(r, "allocating connection state");
++ exit(-1);
++ }
++
++ r = sasl_client_start(conn, "GSSAPI", NULL, &data, &len, &chosenmech);
++ if (r != SASL_OK && r != SASL_CONTINUE) {
++	saslerr(r, "starting SASL negotiation");
++	printf("\n%s\n", sasl_errdetail(conn));
++	exit(-1);
++ }
++
++ sd = setup_socket();
++
++ while (r == SASL_CONTINUE) {
++ send_string(sd, data, len);
++ len = 8192;
++ recv_string(sd, buf, &len);
++
++	r = sasl_client_step(conn, buf, len, NULL, &data, &len);
++	if (r != SASL_OK && r != SASL_CONTINUE) {
++	 saslerr(r, "performing SASL negotiation");
++	 printf("\n%s\n", sasl_errdetail(conn));
++	 exit(-1);
++ }
++ }
++
++ if (r != SASL_OK) exit(-1);
++
++ if (len > 0) {
++ send_string(sd, data, len);
++ }
++
++ fprintf(stdout, "DONE\n");
++ fflush(stdout);
++ return 0;
++}
++
+diff --git a/tests/t_gssapi_srv.c b/tests/t_gssapi_srv.c
+new file mode 100644
+index 00000000..29f538dd
+--- /dev/null
++++ b/tests/t_gssapi_srv.c
+@@ -0,0 +1,111 @@
++/* TBD, add (C) */
++
++#include "t_common.h"
++
++#include <stdlib.h>
++#include <stdarg.h>
++#include <ctype.h>
++#include <string.h>
++
++#ifdef HAVE_UNISTD_H
++#include <unistd.h>
++#endif
++
++#include <arpa/inet.h>
++#include <saslplug.h>
++
++static int setup_socket(void)
++{
++ struct sockaddr_in addr;
++ int sock, ret, sd;
++
++ sock = socket(AF_INET, SOCK_STREAM, 0);
++ if (sock < 0) s_error("socket", 0, 0, errno);
++
++ addr.sin_family = AF_INET;
++ addr.sin_addr.s_addr = inet_addr("127.0.0.9");
++ addr.sin_port = htons(9000);
++
++ ret = bind(sock, (struct sockaddr *)&addr, sizeof(addr));
++ if (ret != 0) s_error("bind", 0, 0, errno);
++
++ ret = listen(sock, 1);
++ if (ret != 0) s_error("listen", 0, 0, errno);
++
++ /* signal we are ready */
++ fprintf(stdout, "READY\n");
++ fflush(stdout);
++
++ /* block until the client connects */
++ sd = accept(sock, NULL, NULL);
++ if (sd < 0) s_error("accept", 0, 0, errno);
++
++ close(sock);
++ return sd;
++}
++
++int main(int argc __attribute__((unused)), char *argv __attribute__((unused)))
++{
++ sasl_callback_t callbacks2 = {};
++ char buf8192;
++ sasl_conn_t *conn;
++ const char *data;
++ unsigned int len;
++ int sd;
++ int r;
++
++ /* initialize the sasl library */
++ callbacks0.id = SASL_CB_GETPATH;
++ callbacks0.proc = (sasl_callback_ft)&getpath;
++ callbacks0.context = NULL;
++ callbacks1.id = SASL_CB_LIST_END;
++ callbacks1.proc = NULL;
++ callbacks1.context = NULL;
++
++ r = sasl_server_init(callbacks, "t_gssapi_srv");
++ if (r != SASL_OK) exit(-1);
++
++ r = sasl_server_new("test", "host.realm.test", NULL, NULL, NULL,
++ callbacks, 0, &conn);
++ if (r != SASL_OK) {
++ saslerr(r, "allocating connection state");
++ exit(-1);
++ }
++
++ sd = setup_socket();
++
++ len = 8192;
++ recv_string(sd, buf, &len);
++
++ r = sasl_server_start(conn, "GSSAPI", buf, len, &data, &len);
++ if (r != SASL_OK && r != SASL_CONTINUE) {
++	saslerr(r, "starting SASL negotiation");
++	printf("\n%s\n", sasl_errdetail(conn));
++	exit(-1);
++ }
++
++ while (r == SASL_CONTINUE) {
++ send_string(sd, data, len);
++ len = 8192;
++ recv_string(sd, buf, &len);
++
++	r = sasl_server_step(conn, buf, len, &data, &len);
++	if (r != SASL_OK && r != SASL_CONTINUE) {
++	 saslerr(r, "performing SASL negotiation");
++	 printf("\n%s\n", sasl_errdetail(conn));
++	 exit(-1);
++	}
++
++ }
++
++ if (r != SASL_OK) exit(-1);
++
++ if (len > 0) {
++ send_string(sd, data, len);
++ }
++
++ fprintf(stdout, "DONE\n");
++ fflush(stdout);
++ return 0;
++}
++
+

cyrus-sasl-2.1.27-Add-support-for-setting-max-ssf-0-to-GSS-SPNEGO.patch Added

@@ -0,0 +1,95 @@
+Backport of part of Upstream PR#603 minimal part needed for interop
+
+From 0e722dd3266d5ebd0f889462cc23856fde3d21ed Mon Sep 17 00:00:00 2001
+From: Simo Sorce <simo@redhat.com>
+Date: Thu, 19 Sep 2019 15:58:04 -0400
+Subject: PATCH Add support for setting max ssf 0 to GSS-SPNEGO
+
+This is needed to interop with Windows within a TLS channel.
+
+Signed-off-by: Simo Sorce <simo@redhat.com>
+---
+ m4/sasl2.m4 | 13 +++++++++++++
+ plugins/gssapi.c | 45 ++++++++++++++++++++++++++++++++++++++++++++-
+ 2 files changed, 57 insertions(+), 1 deletion(-)
+
+diff --git a/m4/sasl2.m4 b/m4/sasl2.m4
+index 17f5d081..60306943 100644
+--- a/m4/sasl2.m4
++++ b/m4/sasl2.m4
+@@ -287,6 +287,19 @@ if test "$gssapi" != no; then
+ AC_CHECK_FUNCS(gss_oid_equal)
+ LIBS="$cmu_save_LIBS"
+ 
++ cmu_save_LIBS="$LIBS"
++ LIBS="$LIBS $GSSAPIBASE_LIBS"
++ if test "$ac_cv_header_gssapi_gssapi_krb5_h" = "yes"; then
++ AC_CHECK_DECL(GSS_KRB5_CRED_NO_CI_FLAGS_X,
++ AC_DEFINE(HAVE_GSS_KRB5_CRED_NO_CI_FLAGS_X,1,
++ Define if your GSSAPI implementation supports GSS_KRB5_CRED_NO_CI_FLAGS_X),,
++ 
++ AC_INCLUDES_DEFAULT
++ #include <gssapi/gssapi_krb5.h>
++ )
++ fi
++ LIBS="$cmu_save_LIBS"
++
+ cmu_save_LIBS="$LIBS"
+ LIBS="$LIBS $GSSAPIBASE_LIBS"
+ AC_CHECK_FUNCS(gss_get_name_attribute)
+diff --git a/plugins/gssapi.c b/plugins/gssapi.c
+index 46de7d48..cca6cc0a 100644
+--- a/plugins/gssapi.c
++++ b/plugins/gssapi.c
+@@ -2123,7 +2123,50 @@ static int gssapi_client_mech_step(void *conn_context,
+ 		/* We want to try for privacy */
+ 		req_flags |= GSS_C_CONF_FLAG;
+ 	 }
+-	}
++#ifdef HAVE_GSS_KRB5_CRED_NO_CI_FLAGS_X
++ /* The krb5 mechanism automatically adds INTEG and CONF flags even when
++ * not specified, this has the effect of rendering explicit requests
++ * of no confidentiality and integrity via setting maxssf 0 moot.
++ * However to interoperate with Windows machines it needs to be
++ * possible to unset these flags as Windows machines refuse to allow
++ * two layers (say TLS and GSSAPI) to both provide these services.
++ * So if we do not suppress these flags a SASL/GSS-SPNEGO negotiation
++ * over, say, LDAPS will fail against Windows Servers */
++	} else if (params->props.max_ssf == 0) {
++ gss_buffer_desc empty_buffer = GSS_C_EMPTY_BUFFER;
++ if (client_creds == GSS_C_NO_CREDENTIAL) {
++ gss_OID_set_desc mechs = { 0 };
++ gss_OID_set desired_mechs = GSS_C_NO_OID_SET;
++ if (text->mech_type != GSS_C_NO_OID) {
++ mechs.count = 1;
++ mechs.elements = text->mech_type;
++ desired_mechs = &mechs;
++ }
++
++ maj_stat = gss_acquire_cred(&min_stat, GSS_C_NO_NAME,
++ GSS_C_INDEFINITE, desired_mechs,
++ GSS_C_INITIATE,
++ &text->client_creds, NULL, NULL);
++ if (GSS_ERROR(maj_stat)) {
++ sasl_gss_seterror(text->utils, maj_stat, min_stat);
++ sasl_gss_free_context_contents(text);
++ return SASL_FAIL;
++ }
++ client_creds = text->client_creds;
++ }
++
++ maj_stat = gss_set_cred_option(&min_stat, &client_creds,
++ (gss_OID)GSS_KRB5_CRED_NO_CI_FLAGS_X,
++ &empty_buffer);
++ if (GSS_ERROR(maj_stat)) {
++ sasl_gss_seterror(text->utils, maj_stat, min_stat);
++ sasl_gss_free_context_contents(text);
++ return SASL_FAIL;
++ }
++#endif
++ }
++
++
+
+	if (params->props.security_flags & SASL_SEC_PASS_CREDENTIALS) {
+	 req_flags = req_flags | GSS_C_DELEG_FLAG;

cyrus-sasl-2.1.27-Migration-from-BerkeleyDB.patch Added

@@ -0,0 +1,566 @@
+diff -up cyrus-sasl-2.1.27/configure.ac.frombdb cyrus-sasl-2.1.27/configure.ac
+--- cyrus-sasl-2.1.27/configure.ac.frombdb	2021-04-28 15:36:37.313675329 +0200
++++ cyrus-sasl-2.1.27/configure.ac	2021-04-28 15:36:37.320675385 +0200
+@@ -1091,6 +1091,9 @@ AC_SUBST(SASL_STATIC_SRCS)
+ AC_SUBST(SASL_STATIC_OBJS)
+ AC_SUBST(SASL_STATIC_LIBS)
+ 
++CYRUS_BERKELEY_DB_STATIC_LIB()
++AC_SUBST(BDB_STATIC_LIBADD)
++
+ AC_ARG_WITH(plugindir, --with-plugindir=DIR set the directory where plugins will
+ be found LIBDIR/sasl2 ,
+ plugindir=$withval,
+diff -up cyrus-sasl-2.1.27/m4/berkdb.m4.frombdb cyrus-sasl-2.1.27/m4/berkdb.m4
+--- cyrus-sasl-2.1.27/m4/berkdb.m4.frombdb	2016-01-29 18:35:35.000000000 +0100
++++ cyrus-sasl-2.1.27/m4/berkdb.m4	2021-05-04 15:58:12.266748283 +0200
+@@ -286,3 +286,10 @@ AC_DEFUN(CYRUS_BERKELEY_DB_CHK,
+ 
+ 	CPPFLAGS=$cmu_save_CPPFLAGS
+ )
++
++AC_DEFUN(CYRUS_BERKELEY_DB_STATIC_LIB,
++
++BDB_STATIC_LIBADD="/dev/null -lpthread"
++AC_CHECK_FILE(/usr/lib64/libdb-5.3.a,BDB_STATIC_LIBADD="/usr/lib64/libdb-5.3.a -lpthread ",)
++AC_CHECK_FILE(/usr/lib/libdb-5.3.a,BDB_STATIC_LIBADD="/usr/lib/libdb-5.3.a -lpthread",)
++)
+diff -up cyrus-sasl-2.1.27/m4/sasldb.m4.frombdb cyrus-sasl-2.1.27/m4/sasldb.m4
+--- cyrus-sasl-2.1.27/m4/sasldb.m4.frombdb	2017-07-13 20:45:19.000000000 +0200
++++ cyrus-sasl-2.1.27/m4/sasldb.m4	2021-05-04 15:51:20.827090074 +0200
+@@ -111,7 +111,7 @@ AC_MSG_RESULT($dblib)
+ SASL_DB_BACKEND="db_${dblib}.lo"
+ SASL_DB_BACKEND_STATIC="db_${dblib}.o allockey.o"
+ SASL_DB_BACKEND_STATIC_SRCS="\$(top_srcdir)/sasldb/db_${dblib}.c \$(top_srcdir)/sasldb/allockey.c"
+-SASL_DB_UTILS="saslpasswd2\$(EXEEXT) sasldblistusers2\$(EXEEXT)"
++SASL_DB_UTILS="cyrusbdb2current\$(EXEEXT) saslpasswd2\$(EXEEXT) sasldblistusers2\$(EXEEXT)"
+ SASL_DB_MANS="saslpasswd2.8 sasldblistusers2.8"
+ 
+ case "$dblib" in
+diff -up cyrus-sasl-2.1.27/sasldb/db_gdbm.c.frombdb cyrus-sasl-2.1.27/sasldb/db_gdbm.c
+--- cyrus-sasl-2.1.27/sasldb/db_gdbm.c.frombdb	2017-07-13 14:34:03.000000000 +0200
++++ cyrus-sasl-2.1.27/sasldb/db_gdbm.c	2021-06-04 13:04:24.098206887 +0200
+@@ -67,6 +67,7 @@ int _sasldb_getdata(const sasl_utils_t *
+ void *cntxt;
+ sasl_getopt_t *getopt;
+ const char *path = SASL_DB_PATH;
++ int fetch_errno = 0;
+ 
+ if (!utils) return SASL_BADPARAM;
+ if (!authid || !propName || !realm || !out || !max_out) {
+@@ -99,6 +100,9 @@ int _sasldb_getdata(const sasl_utils_t *
+ }
+ db = gdbm_open((char *)path, 0, GDBM_READER, S_IRUSR | S_IWUSR, NULL);
+ if (! db) {
++ utils->log(conn, SASL_LOG_ERR,
++		 "SASL error opening password file. "
++		 "Have you performed the migration from db2 using cyrusbdb2current?\n");
+ utils->seterror(cntxt, 0, "Could not open %s: gdbm_errno=%d",
+ 		 path, gdbm_errno);
+ result = SASL_FAIL;
+@@ -107,7 +111,7 @@ int _sasldb_getdata(const sasl_utils_t *
+ gkey.dptr = key;
+ gkey.dsize = key_len;
+ gvalue = gdbm_fetch(db, gkey);
+- int fetch_errno = gdbm_errno;
++ fetch_errno = gdbm_errno;
+ 
+ gdbm_close(db);
+ if (! gvalue.dptr) {
+@@ -186,7 +191,8 @@ int _sasldb_putdata(const sasl_utils_t *
+ if (! db) {
+ utils->log(conn, SASL_LOG_ERR,
+ 		 "SASL error opening password file. "
+-		 "Do you have write permissions?\n");
++		 "Do you have write permissions?\n"
++		 "Have you performed the migration from db2 using cyrusbdb2current?\n");
+ utils->seterror(conn, 0, "Could not open %s for write: gdbm_errno=%d",
+ path, gdbm_errno);
+ result = SASL_FAIL;
+@@ -298,6 +302,9 @@ sasldb_handle _sasldb_getkeyhandle(const
+ db = gdbm_open((char *)path, 0, GDBM_READER, S_IRUSR | S_IWUSR, NULL);
+ 
+ if(!db) {
++ utils->log(conn, SASL_LOG_ERR,
++		 "SASL error opening password file. "
++		 "Have you performed the migration from db2 using cyrusbdb2current?\n");
+ utils->seterror(conn, 0, "Could not open %s: gdbm_errno=%d",
+ 			 path, gdbm_errno);
+ 	return NULL;
+diff -up cyrus-sasl-2.1.27/utils/cyrusbdb2current.8.frombdb cyrus-sasl-2.1.27/utils/cyrusbdb2current.8
+--- cyrus-sasl-2.1.27/utils/cyrusbdb2current.8.frombdb	2021-04-28 15:36:37.321675394 +0200
++++ cyrus-sasl-2.1.27/utils/cyrusbdb2current.8	2021-04-28 15:36:37.321675394 +0200
+@@ -0,0 +1,159 @@
++.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.40)
++.\"
++.\" Standard preamble:
++.\" ========================================================================
++.de Sp \" Vertical space (when we can't use .PP)
++.if t .sp .5v
++.if n .sp
++..
++.de Vb \" Begin verbatim text
++.ft CW
++.nf
++.ne \\$1
++..
++.de Ve \" End verbatim text
++.ft R
++.fi
++..
++.\" Set up some character translations and predefined strings. \*(-- will
++.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
++.\" double quote, and \*(R" will give a right double quote. \*(C+ will
++.\" give a nicer C++. Capital omega is used to do unbreakable dashes and
++.\" therefore won't be available. \*(C` and \*(C' expand to `' in nroff,
++.\" nothing in troff, for use with C<>.
++.tr \(*W-
++.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
++.ie n \{\
++. ds -- \(*W-
++. ds PI pi
++. if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
++. if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
++. ds L" ""
++. ds R" ""
++. ds C` ""
++. ds C' ""
++'br\}
++.el\{\
++. ds -- \|\(em\|
++. ds PI \(*p
++. ds L" ``
++. ds R" ''
++. ds C`
++. ds C'
++'br\}
++.\"
++.\" Escape single quotes in literal strings from groff's Unicode transform.
++.ie \n(.g .ds Aq \(aq
++.el .ds Aq '
++.\"
++.\" If the F register is >0, we'll generate index entries on stderr for
++.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
++.\" entries marked with X<> in POD. Of course, you'll have to process the
++.\" output yourself in some meaningful fashion.
++.\"
++.\" Avoid warning from groff about undefined register 'F'.
++.de IX
++..
++.nr rF 0
++.if \n(.g .if rF .nr rF 1
++.if (\n(rF:(\n(.g==0)) \{\
++. if \nF \{\
++. de IX
++. tm Index:\\$1\t\\n%\t"\\$2"
++..
++. if !\nF==2 \{\
++. nr % 0
++. nr F 2
++. \}
++. \}
++.\}
++.rr rF
++.\"
++.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
++.\" Fear. Run. Save yourself. No user-serviceable parts.
++. \" fudge factors for nroff and troff
++.if n \{\
++. ds #H 0
++. ds #V .8m
++. ds #F .3m
++. ds # \f1
++. ds # \fP
++.\}
++.if t \{\
++. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
++. ds #V .6m
++. ds #F 0
++. ds # \&
++. ds # \&
++.\}
++. \" simple accents for nroff and troff
++.if n \{\
++. ds ' \&
++. ds ` \&
++. ds ^ \&
++. ds , \&
++. ds ~ ~
++. ds /
++.\}
++.if t \{\
++. ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
++. ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
++. ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
++. ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
++. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
++. ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
++.\}
++. \" troff and (daisy-wheel) nroff accents
++.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
++.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
++.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#\z\(de\v'.3n'\h'|\\n:u'\*(#
++.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
++.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
++.ds th \*(#\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#
++.ds Th \*(#\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#
++.ds ae a\h'-(\w'a'u*4/10)'e
++.ds Ae A\h'-(\w'A'u*4/10)'E
++. \" corrections for vroff
++.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
++.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
++. \" for low resolution devices (crt and lpr)
++.if \n(.H>23 .if \n(.V>19 \
++\{\
++. ds : e
++. ds 8 ss
++. ds o a
++. ds d- d\h'-1'\(ga
++. ds D- D\h'-1'\(hy
++. ds th \o'bp'
++. ds Th \o'LP'
++. ds ae ae
++. ds Ae AE
++.\}
++.rm # # #H #V #F C
++.\" ========================================================================
++.\"
++.IX Title "CYRUSBDB2CURRENT 1"
++.TH CYRUSBDB2CURRENT 1 "2021-04-28" "perl v5.30.3" "User Contributed Perl Documentation"
++.\" For nroff, turn off justification. Always turn off hyphenation; it makes
++.\" way too many mistakes in technical documents.
++.if n .ad l
++.nh
++.SH "NAME"
++cyrusbdb2current \- command\-line utility converting the SASLDB database from
++BerkeleyDB to the database format currently used bys sasldb.
++.SH "SYNOPSIS"
++.IX Header "SYNOPSIS"
++cyrusbdb2current <sasldb_old_path> <sasldb_new_path>
++.SH "DESCRIPTION"
++.IX Header "DESCRIPTION"
++\&\fBcyrusbdb2current\fR converts the current sasldb database from BerkeleyDB format to the
++currently used database format. It is \fB\s-1STRONGLY RECOMMENDED\s0\fR to make a backup
++of the current database before the conversion.
++.PP
++We expect that the old path is \fB/etc/sasldb2\fR and the new one is
++\&\fB/etc/sasl2/sasldb2\fR
++.SH "SEE ALSO"
++.IX Header "SEE ALSO"
++\&\fBsaslpasswd2\fR\|(8)
++.PP
++rfc4422 \- Simple Authentication and Security Layer (\s-1SASL\s0)
+diff -up cyrus-sasl-2.1.27/utils/cyrusbdb2current.c.frombdb cyrus-sasl-2.1.27/utils/cyrusbdb2current.c
+--- cyrus-sasl-2.1.27/utils/cyrusbdb2current.c.frombdb	2021-04-28 15:36:37.321675394 +0200
++++ cyrus-sasl-2.1.27/utils/cyrusbdb2current.c	2021-04-28 15:36:37.321675394 +0200
+@@ -0,0 +1,282 @@
++#include <config.h>
++
++#include <stdio.h>
++#include <stdlib.h>
++
++#include <sasl.h>
++#include <saslplug.h>
++#include "../sasldb/sasldb.h"
++
++/* Cheating to make the utils work out right */
++extern const sasl_utils_t *sasl_global_utils;
++sasl_conn_t *globalconn;
++
++typedef void *listcb_t(const char *, const char *, const char *,
++		 const char *, unsigned);
++
++void listusers_cb(const char *authid, const char *realm,
++		 const char *propName, const char *secret,
++		 unsigned seclen)
++{
++ if (!authid || !propName || !realm) {
++	fprintf(stderr,"userlist callback has bad param");
++	return;
++ }
++
++ /* the entries that just say the mechanism exists */
++ if (strlen(authid)==0) return;
++
++ printf("Converting: %s@%s (%s)...",authid,realm,propName);
++
++ _sasldb_putdata(sasl_global_utils, globalconn,
++		 authid, realm, propName,
++		 secret, seclen);
++
++ printf("ok\n");
++}
++
++/*
++ * List all users in database
++ */
++
++#include <db.h>
++
++#define DB_VERSION_FULL ((DB_VERSION_MAJOR << 24) | (DB_VERSION_MINOR << 16) | DB_VERSION_PATCH)
++/*
++ * Open the database
++ *
++ */
++static int berkeleydb_open(const char *path,DB **mbdb)
++{
++ int ret;
++
++#if DB_VERSION_FULL < 0x03000000
++ ret = db_open(path, DB_HASH, DB_CREATE, 0664, NULL, NULL, mbdb);
++#else /* DB_VERSION_FULL < 0x03000000 */
++ ret = db_create(mbdb, NULL, 0);
++ if (ret == 0 && *mbdb != NULL)
++ {
++#if DB_VERSION_FULL >= 0x04010000
++	ret = (*mbdb)->open(*mbdb, NULL, path, NULL, DB_HASH, DB_CREATE, 0664);
++#else
++	ret = (*mbdb)->open(*mbdb, path, NULL, DB_HASH, DB_CREATE, 0664);
++#endif
++	if (ret != 0)
++	{
++	 (void) (*mbdb)->close(*mbdb, 0);
++	 *mbdb = NULL;
++	}
++ }
++#endif /* DB_VERSION_FULL < 0x03000000 */
++
++ if (ret != 0) {
++	fprintf(stderr,"Error opening password file %s\n", path);
++	return SASL_FAIL;
++ }
++
++ return SASL_OK;
++}
++
++/*
++ * Close the database
++ *
++ */
++
++static void berkeleydb_close(DB *mbdb)
++{
++ int ret;
++ 
++ ret = mbdb->close(mbdb, 0);
++ if (ret!=0) {
++	fprintf(stderr,"error closing sasldb: %s",
++		db_strerror(ret));
++ }
++}
++
++int listusers(const char *path, listcb_t *cb)
++{
++ int result;
++ DB *mbdb = NULL;
++ DBC *cursor;
++ DBT key, data;
++
++ /* open the db */
++ result=berkeleydb_open(path, &mbdb);
++ if (result!=SASL_OK) goto cleanup;
++
++ /* make cursor */
++#if DB_VERSION_FULL < 0x03060000
++ result = mbdb->cursor(mbdb, NULL,&cursor); 
++#else
++ result = mbdb->cursor(mbdb, NULL,&cursor, 0); 
++#endif /* DB_VERSION_FULL < 0x03060000 */
++
++ if (result!=0) {
++	fprintf(stderr,"Making cursor failure: %s\n",db_strerror(result));
++ result = SASL_FAIL;
++ goto cleanup;
++ }
++
++ memset(&key,0, sizeof(key));
++ memset(&data,0,sizeof(data));
++
++ /* loop thru */
++ result = cursor->c_get(cursor, &key, &data,
++			 DB_FIRST);
++
++ while (result != DB_NOTFOUND)
++ {
++	char *authid;
++	char *realm;
++	char *tmp;
++	unsigned int len;
++	char prop1024;
++	int numnulls = 0;
++	unsigned int lup;
++
++	/* make sure there are exactly 2 null's */
++	for (lup=0;lup<key.size;lup++)
++	 if (((char *)key.data)lup=='\0')
++		numnulls++;
++
++	if (numnulls != 2) {
++	 fprintf(stderr,"warning: probable database corruption\n");
++	 result = cursor->c_get(cursor, &key, &data, DB_NEXT);
++	 continue;
++	}
++
++	authid = key.data;
++	realm = authid + strlen(authid)+1;
++	tmp = realm + strlen(realm)+1;
++	len = key.size - (tmp - authid);
++
++	/* make sure we have enough space of prop */
++	if (len >=sizeof(prop)) {
++	 fprintf(stderr,"warning: absurdly long prop name\n");
++	 result = cursor->c_get(cursor, &key, &data, DB_NEXT);
++	 continue;
++	}
++
++	memcpy(prop, tmp, key.size - (tmp - ((char *)key.data)));
++	propkey.size - (tmp - ((char *)key.data)) = '\0';
++
++	if (*authid) {
++	 /* don't check return values */
++	 cb(authid,realm,prop,data.data,data.size);
++	}
++
++	result = cursor->c_get(cursor, &key, &data, DB_NEXT);
++ }
++
++ if (result != DB_NOTFOUND) {
++	fprintf(stderr,"failure: %s\n",db_strerror(result));
++	result = SASL_FAIL;
++	goto cleanup;
++ }
++
++ result = cursor->c_close(cursor);
++ if (result != 0) {
++ result = SASL_FAIL;
++ goto cleanup;
++ }
++
++ result = SASL_OK;
++
++ cleanup:
++
++ if (mbdb != NULL) berkeleydb_close(mbdb);
++ return result;
++}
++
++
++char *db = NULL, *db_new=NULL;
++
++int good_getopt(void *context __attribute__((unused)), 
++		const char *plugin_name __attribute__((unused)), 
++		const char *option,
++		const char **result,
++		unsigned *len)
++{
++ if (db_new && !strcmp(option, "sasldb_path")) {
++	*result = db_new;
++	if (len)
++	 *len = strlen(db_new);
++	return SASL_OK;
++ }
++
++ return SASL_FAIL;
++}
++
++static struct sasl_callback goodsasl_cb = {
++ { SASL_CB_GETOPT, (int (*)(void))&good_getopt, NULL },
++ { SASL_CB_LIST_END, NULL, NULL }
++};
++
++int main(int argc, char **argv)
++{
++ int result;
++ FILE *f;
++
++ if (argc != 3) {
++	fprintf(stderr, "Usage: cyrusbdb2current old_sasldb new_sasldb\n");
++	fprintf(stderr, "old_sasldb is presumably /etc/sasldb2\n");
++ 	fprintf(stderr, "new_sasldb is presumably /etc/sasl2/sasldb2\n");
++	return 1;
++ }
++
++ db = argv1;
++ db_new = argv2;
++
++ if (strcmp(db, db_new) == 0) {
++	fprintf(stderr, "Old and new files should be different\n");
++	return 1;
++ }
++
++
++ f = fopen(db_new, "rb");
++ if (f != NULL) {
++	fprintf(stderr, "The specified target file %s already exists\n", db_new);
++	fclose(f);
++	return 1;
++ }
++
++ result = sasl_server_init(goodsasl_cb, "dbconverter");
++ if (result != SASL_OK) {
++	fprintf(stderr, "couldn't init saslv2\n");
++	return 1;
++ }
++
++ result = sasl_server_new("sasldb",
++			 "localhost",
++			 NULL,
++			 NULL,
++			 NULL,
++			 NULL,
++			 0,
++			 &globalconn);
++ if (result != SASL_OK) {
++	fprintf(stderr, "couldn't create globalconn\n");
++	return 1;
++ }
++
++ if(_sasl_check_db(sasl_global_utils,globalconn) != SASL_OK) {
++	fprintf(stderr, "target DB %s is not OK\n", db_new);
++	return 1;
++ }
++
++ printf("\nThis program will take the sasldb file specified on the\n"
++ "command line and convert it to a new sasldb specified\n"
++ "on the command line. It is STRONGLY RECOMMENDED that you\n"
++ "backup sasldb before allowing this program to run\n\n"
++	 "We are going to convert %s and our output will be in %s\n\n"
++ "Press return to continue\n", db, db_new);
++
++ getchar();
++
++ listusers(db, (listcb_t *) &listusers_cb);
++
++ sasl_dispose(&globalconn);
++ sasl_done();
++
++ exit(0);
++}
+diff -up cyrus-sasl-2.1.27/utils/Makefile.am.frombdb cyrus-sasl-2.1.27/utils/Makefile.am
+--- cyrus-sasl-2.1.27/utils/Makefile.am.frombdb	2018-10-05 16:40:16.000000000 +0200
++++ cyrus-sasl-2.1.27/utils/Makefile.am	2021-04-28 15:36:37.321675394 +0200
+@@ -46,14 +46,14 @@ all_sasl_libs = ../lib/libsasl2.la $(SAS
+ all_sasl_static_libs = ../lib/.libs/libsasl2.a $(SASL_DB_LIB) $(LIB_SOCKET) $(GSSAPIBASE_LIBS) $(GSSAPI_LIBS) $(SASL_KRB_LIB) $(LIB_DES) $(PLAIN_LIBS) $(SRP_LIBS) $(LIB_MYSQL) $(LIB_PGSQL) $(LIB_SQLITE)
+ 
+ sbin_PROGRAMS = @SASL_DB_UTILS@ @SMTPTEST_PROGRAM@ pluginviewer
+-EXTRA_PROGRAMS = saslpasswd2 sasldblistusers2 testsuite testsuitestatic smtptest pluginviewer
++EXTRA_PROGRAMS = saslpasswd2 sasldblistusers2 testsuite testsuitestatic smtptest pluginviewer cyrusbdb2current
+ 
+ noinst_PROGRAMS = dbconverter-2
+ 
+ if NO_SASL_DB_MANS
+ man_MANS = 
+ else
+-man_MANS = saslpasswd2.8 sasldblistusers2.8 pluginviewer.8
++man_MANS = saslpasswd2.8 sasldblistusers2.8 pluginviewer.8 cyrusbdb2current.8
+ endif
+ 
+ saslpasswd2_LDADD = ../sasldb/libsasldb.la $(all_sasl_libs)
+@@ -63,6 +63,7 @@ sasldblistusers2_SOURCES = sasldblistuse
+ dbconverter_2_LDADD = ../sasldb/libsasldb.la $(all_sasl_libs)
+ pluginviewer_LDADD = $(all_sasl_libs)
+ pluginviewer_SOURCES = pluginviewer.c
++cyrusbdb2current_LDADD = ../sasldb/libsasldb.la @BDB_STATIC_LIBADD@ $(all_sasl_libs)
+ 
+ testsuite_LDADD = $(all_sasl_libs) @DMALLOC_LIBS@
+

cyrus-sasl-2.1.27-coverity.patch Added

@@ -0,0 +1,56 @@
+diff -up cyrus-sasl-2.1.27/include/makemd5.c.coverity cyrus-sasl-2.1.27/include/makemd5.c
+--- cyrus-sasl-2.1.27/include/makemd5.c.coverity	2021-04-12 15:10:25.421431535 +0200
++++ cyrus-sasl-2.1.27/include/makemd5.c	2021-04-12 15:56:46.752827737 +0200
+@@ -107,7 +107,6 @@ my_strupr(char *s)
+     }	
+ }
+ 
+-
+ #define BITSIZE(TYPE)						\
+ {								\
+     int b = 0; TYPE x = 1, zero = 0; char *pre = "U";		\
+@@ -129,6 +128,8 @@ my_strupr(char *s)
+ static void
+ try_signed(FILE *f, int len)
+ {
++/* Local macros for not-installed program. No coverity/compiler issues! */
++#pragma GCC diagnostic ignored "-Wformat-overflow"
+ #ifdef HAVE_INT8_T
+     BITSIZE(int8_t);
+ #endif
+@@ -149,6 +150,7 @@ try_signed(FILE *f, int len)
+     BITSIZE(long long);
+ #endif
+     fprintf(f, "/* There is no %d bit type */\n", len);
++#pragma GCC pop
+ }
+ 
+ static void
+diff -up cyrus-sasl-2.1.27/saslauthd/lak.c.coverity cyrus-sasl-2.1.27/saslauthd/lak.c
+--- cyrus-sasl-2.1.27/saslauthd/lak.c.coverity	2018-11-08 18:29:57.000000000 +0100
++++ cyrus-sasl-2.1.27/saslauthd/lak.c	2021-04-12 15:10:25.433431630 +0200
+@@ -337,9 +337,9 @@ static int lak_config_read(
+          EMPTY(conf->group_search_base) )
+         strlcpy(conf->group_search_base, conf->search_base, LAK_DN_LEN);
+         
+-	fclose(infile);
++    fclose(infile);
+ 
+-	return LAK_OK;
++    return LAK_OK;
+ }
+ 
+ static int lak_config_int(
+diff -up cyrus-sasl-2.1.27/saslauthd/saslauthd-main.c.coverity cyrus-sasl-2.1.27/saslauthd/saslauthd-main.c
+--- cyrus-sasl-2.1.27/saslauthd/saslauthd-main.c.coverity	2018-01-19 15:13:40.000000000 +0100
++++ cyrus-sasl-2.1.27/saslauthd/saslauthd-main.c	2021-04-12 15:10:25.433431630 +0200
+@@ -833,7 +833,8 @@ void detach_tty() {
+     }
+     
+     logger(L_INFO, L_FUNC, "master pid is: %lu", (unsigned long)master_pid);
+-    
++    /* null_fd expected to be more than 2, so it is closed after dups, no leaks occur */
++    /* coverityleaked_handle : FALSE*/
+     return;
+ }
+

cyrus-sasl-2.1.27-cumulative-digestmd5.patch Added

@@ -0,0 +1,554 @@
+diff -uPr cyrus-sasl-2.1.27/plugins/digestmd5.c cyrus-sasl-2.1.27.digestmd5/plugins/digestmd5.c
+--- cyrus-sasl-2.1.27/plugins/digestmd5.c	2021-09-30 17:13:06.573093526 -0400
++++ cyrus-sasl-2.1.27.digestmd5/plugins/digestmd5.c	2021-09-30 17:26:31.818378442 -0400
+@@ -80,6 +80,12 @@
+ # endif
+ #endif /* WITH_DES */
+ 
++/* legacy provider with openssl 3.0 */
++#if OPENSSL_VERSION_NUMBER >= 0x30000000L
++# include <openssl/provider.h>
++# include <openssl/crypto.h>
++#endif
++
+ #ifdef WIN32
+ # include <winsock2.h>
+ #else /* Unix */
+@@ -170,6 +176,12 @@
+ 
+ typedef struct cipher_context cipher_context_t;
+ 
++typedef struct crypto_context {
++ void *libctx;
++ cipher_context_t *enc_ctx;
++ cipher_context_t *dec_ctx;
++} crypto_context_t;
++
+ /* cached auth info used for fast reauth */
+ typedef struct reauth_entry {
+ char *authid;
+@@ -254,12 +266,12 @@
+ decode_context_t decode_context;
+ 
+ /* if privacy mode is used use these functions for encode and decode */
++ char *cipher_name;
+ cipher_function_t *cipher_enc;
+ cipher_function_t *cipher_dec;
+ cipher_init_t *cipher_init;
+ cipher_free_t *cipher_free;
+- struct cipher_context *cipher_enc_context;
+- struct cipher_context *cipher_dec_context;
++ crypto_context_t crypto;
+ } context_t;
+ 
+ struct digest_cipher {
+@@ -888,7 +900,7 @@
+ 		 char *output,
+ 		 unsigned *outputlen)
+ {
+- des_context_t *c = (des_context_t *) text->cipher_dec_context;
++ des_context_t *c = (des_context_t *) text->crypto.dec_ctx;
+ int padding, p;
+ 
+ des_ede2_cbc_encrypt((void *) input,
+@@ -925,7 +937,7 @@
+ 		 char *output,
+ 		 unsigned *outputlen)
+ {
+- des_context_t *c = (des_context_t *) text->cipher_enc_context;
++ des_context_t *c = (des_context_t *) text->crypto.enc_ctx;
+ int len;
+ int paddinglen;
+ 
+@@ -973,7 +985,7 @@
+ 	return SASL_FAIL;
+ memcpy(c->ivec, ((char *) enckey) + 8, 8);
+ 
+- text->cipher_enc_context = (cipher_context_t *) c;
++ text->crypto.enc_ctx = (cipher_context_t *) c;
+ 
+ /* setup dec context */
+ c++;
+@@ -987,7 +999,7 @@
+ 
+ memcpy(c->ivec, ((char *) deckey) + 8, 8);
+ 
+- text->cipher_dec_context = (cipher_context_t *) c;
++ text->crypto.dec_ctx = (cipher_context_t *) c;
+ 
+ return SASL_OK;
+ }
+@@ -1006,7 +1018,7 @@
+ 		 char *output,
+ 		 unsigned *outputlen)
+ {
+- des_context_t *c = (des_context_t *) text->cipher_dec_context;
++ des_context_t *c = (des_context_t *) text->crypto.dec_ctx;
+ int p, padding = 0;
+ 
+ des_cbc_encrypt((void *) input,
+@@ -1046,7 +1058,7 @@
+ 		 char *output,
+ 		 unsigned *outputlen)
+ {
+- des_context_t *c = (des_context_t *) text->cipher_enc_context;
++ des_context_t *c = (des_context_t *) text->crypto.enc_ctx;
+ int len;
+ int paddinglen;
+ 
+@@ -1093,7 +1105,7 @@
+ 
+ memcpy(c->ivec, ((char *) enckey) + 8, 8);
+ 
+- text->cipher_enc_context = (cipher_context_t *) c;
++ text->crypto.enc_ctx = (cipher_context_t *) c;
+ 
+ /* setup dec context */
+ c++;
+@@ -1102,60 +1114,143 @@
+ 
+ memcpy(c->ivec, ((char *) deckey) + 8, 8);
+ 
+- text->cipher_dec_context = (cipher_context_t *) c;
++ text->crypto.dec_ctx = (cipher_context_t *) c;
+ 
+ return SASL_OK;
+ }
+ 
+ static void free_des(context_t *text)
+ {
+- /* free des contextss. only cipher_enc_context needs to be free'd,
+- since cipher_dec_context was allocated at the same time. */
+- if (text->cipher_enc_context) text->utils->free(text->cipher_enc_context);
++ /* free des contextss. only enc_ctx needs to be free'd,
++ since dec_cxt was allocated at the same time. */
++ if (text->crypto.enc_ctx) {
++ text->utils->free(text->crypto.enc_ctx);
++ }
+ }
+ 
+ #endif /* WITH_DES */
+ 
+ #ifdef WITH_RC4
+-#ifdef HAVE_OPENSSL
+ #include <openssl/evp.h>
+ 
++#if OPENSSL_VERSION_NUMBER >= 0x30000000L
++typedef struct ossl3_library_context {
++ OSSL_LIB_CTX *libctx;
++ OSSL_PROVIDER *legacy_provider;
++ OSSL_PROVIDER *default_provider;
++} ossl3_context_t;
++
++static int init_ossl3_ctx(context_t *text)
++{
++ ossl3_context_t *ctx = text->utils->malloc(sizeof(ossl3_context_t));
++ if (!ctx) return SASL_NOMEM;
++
++ ctx->libctx = OSSL_LIB_CTX_new();
++ if (!ctx->libctx) {
++ text->utils->free(ctx);
++ return SASL_FAIL;
++ }
++
++ /* Load both legacy and default provider as both may be needed */
++ /* if they fail keep going and an error will be raised when we try to
++ * fetch the cipher later */
++ ctx->legacy_provider = OSSL_PROVIDER_load(ctx->libctx, "legacy");
++ ctx->default_provider = OSSL_PROVIDER_load(ctx->libctx, "default");
++ text->crypto.libctx = (void *)ctx;
++
++ return SASL_OK;
++}
++
++static void free_ossl3_ctx(context_t *text)
++{
++ ossl3_context_t *ctx;
++
++ if (!text->crypto.libctx) return;
++
++ ctx = (ossl3_context_t *)text->crypto.libctx;
++
++ if (ctx->legacy_provider) OSSL_PROVIDER_unload(ctx->legacy_provider);
++ if (ctx->default_provider) OSSL_PROVIDER_unload(ctx->default_provider);
++ if (ctx->libctx) OSSL_LIB_CTX_free(ctx->libctx);
++
++ text->utils->free(ctx);
++ text->crypto.libctx = NULL;
++}
++#endif
++
+ static void free_rc4(context_t *text)
+ {
+- if (text->cipher_enc_context) {
+- EVP_CIPHER_CTX_free((EVP_CIPHER_CTX *)text->cipher_enc_context);
+- text->cipher_enc_context = NULL;
+- }
+- if (text->cipher_dec_context) {
+- EVP_CIPHER_CTX_free((EVP_CIPHER_CTX *)text->cipher_dec_context);
+- text->cipher_dec_context = NULL;
++ if (text->crypto.enc_ctx) {
++ EVP_CIPHER_CTX_free((EVP_CIPHER_CTX *)text->crypto.enc_ctx);
++ text->crypto.enc_ctx = NULL;
++ }
++ if (text->crypto.dec_ctx) {
++ EVP_CIPHER_CTX_free((EVP_CIPHER_CTX *)text->crypto.dec_ctx);
++ text->crypto.dec_ctx = NULL;
+ }
++#if OPENSSL_VERSION_NUMBER >= 0x30000000L
++ free_ossl3_ctx(text);
++#endif
+ }
+ 
+ static int init_rc4(context_t *text,
+ 		 unsigned char enckey16,
+ 		 unsigned char deckey16)
+ {
+ EVP_CIPHER_CTX *ctx;
+ int rc;
+ 
+- ctx = EVP_CIPHER_CTX_new();
+- if (ctx == NULL) return SASL_NOMEM;
++#if OPENSSL_VERSION_NUMBER >= 0x30000000L
++ EVP_CIPHER *cipher;
++ ossl3_context_t *ossl3_ctx;
+ 
+- rc = EVP_EncryptInit_ex(ctx, EVP_rc4(), NULL, enckey, NULL);
+- if (rc != 1) return SASL_FAIL;
++ rc = init_ossl3_ctx(text);
++ if (rc != SASL_OK) return rc;
++
++ ossl3_ctx = (ossl3_context_t *)text->crypto.libctx;
++ cipher = EVP_CIPHER_fetch(ossl3_ctx->libctx, "RC4", "");
++#else
++ const EVP_CIPHER *cipher;
++ cipher = EVP_rc4();
++#endif
+ 
+- text->cipher_enc_context = (void *)ctx;
+ 
+ ctx = EVP_CIPHER_CTX_new();
+- if (ctx == NULL) return SASL_NOMEM;
++ if (ctx == NULL) {
++ rc = SASL_NOMEM;
++ goto done;
++ }
+ 
+- rc = EVP_DecryptInit_ex(ctx, EVP_rc4(), NULL, deckey, NULL);
+- if (rc != 1) return SASL_FAIL;
++ rc = EVP_EncryptInit_ex(ctx, cipher, NULL, enckey, NULL);
++ if (rc != 1) {
++ rc = SASL_FAIL;
++ goto done;
++ }
++ text->crypto.enc_ctx = (void *)ctx;
+ 
+- text->cipher_dec_context = (void *)ctx;
++ ctx = EVP_CIPHER_CTX_new();
++ if (ctx == NULL) {
++ rc = SASL_NOMEM;
++ goto done;
++ }
+ 
+- return SASL_OK;
++ rc = EVP_DecryptInit_ex(ctx, cipher, NULL, deckey, NULL);
++ if (rc != 1) {
++ rc = SASL_FAIL;
++ goto done;
++ }
++ text->crypto.dec_ctx = (void *)ctx;
++
++ rc = SASL_OK;
++
++done:
++#if OPENSSL_VERSION_NUMBER >= 0x30000000L
++ EVP_CIPHER_free(cipher);
++#endif
++ if (rc != SASL_OK) {
++ free_rc4(text);
++ }
++ return rc;
+ }
+ 
+ static int dec_rc4(context_t *text,
+@@ -1169,14 +1260,14 @@
+ int rc;
+ 
+ /* decrypt the text part & HMAC */
+- rc = EVP_DecryptUpdate((EVP_CIPHER_CTX *)text->cipher_dec_context,
++ rc = EVP_DecryptUpdate((EVP_CIPHER_CTX *)text->crypto.dec_ctx,
+ (unsigned char *)output, &len,
+ (const unsigned char *)input, inputlen);
+ if (rc != 1) return SASL_FAIL;
+ 
+ *outputlen = len;
+ 
+- rc = EVP_DecryptFinal_ex((EVP_CIPHER_CTX *)text->cipher_dec_context,
++ rc = EVP_DecryptFinal_ex((EVP_CIPHER_CTX *)text->crypto.dec_ctx,
+ (unsigned char *)output + len, &len);
+ if (rc != 1) return SASL_FAIL;
+ 
+@@ -1198,7 +1289,7 @@
+ int len;
+ int rc;
+ /* encrypt the text part */
+- rc = EVP_EncryptUpdate((EVP_CIPHER_CTX *)text->cipher_enc_context,
++ rc = EVP_EncryptUpdate((EVP_CIPHER_CTX *)text->crypto.enc_ctx,
+ (unsigned char *)output, &len,
+ (const unsigned char *)input, inputlen);
+ if (rc != 1) return SASL_FAIL;
+@@ -1206,14 +1297,14 @@
+ *outputlen = len;
+ 
+ /* encrypt the `MAC part */
+- rc = EVP_EncryptUpdate((EVP_CIPHER_CTX *)text->cipher_enc_context,
++ rc = EVP_EncryptUpdate((EVP_CIPHER_CTX *)text->crypto.enc_ctx,
+ (unsigned char *)output + *outputlen, &len,
+ digest, 10);
+ if (rc != 1) return SASL_FAIL;
+ 
+ *outputlen += len;
+ 
+- rc = EVP_EncryptFinal_ex((EVP_CIPHER_CTX *)text->cipher_enc_context,
++ rc = EVP_EncryptFinal_ex((EVP_CIPHER_CTX *)text->crypto.enc_ctx,
+ (unsigned char *)output + *outputlen, &len);
+ if (rc != 1) return SASL_FAIL;
+ 
+@@ -1221,194 +1312,11 @@
+ 
+ return SASL_OK;
+ }
+-#else
+-/* quick generic implementation of RC4 */
+-struct rc4_context_s {
+- unsigned char sbox256;
+- int i, j;
+-};
+-
+-typedef struct rc4_context_s rc4_context_t;
+-
+-static void rc4_init(rc4_context_t *text,
+-		 const unsigned char *key,
+-		 unsigned keylen)
+-{
+- int i, j;
+- 
+- /* fill in linearly s0=0 s1=1... */
+- for (i=0;i<256;i++)
+-	text->sboxi=i;
+- 
+- j=0;
+- for (i = 0; i < 256; i++) {
+-	unsigned char tmp;
+-	/* j = (j + Si + Ki) mod 256 */
+-	j = (j + text->sboxi + keyi % keylen) % 256;
+-	
+-	/* swap Si and Sj */
+-	tmp = text->sboxi;
+-	text->sboxi = text->sboxj;
+-	text->sboxj = tmp;
+- }
+- 
+- /* counters initialized to 0 */
+- text->i = 0;
+- text->j = 0;
+-}
+-
+-static void rc4_encrypt(rc4_context_t *text,
+-			const char *input,
+-			char *output,
+-			unsigned len)
+-{
+- int tmp;
+- int i = text->i;
+- int j = text->j;
+- int t;
+- int K;
+- const char *input_end = input + len;
+- 
+- while (input < input_end) {
+-	i = (i + 1) % 256;
+-	
+-	j = (j + text->sboxi) % 256;
+-	
+-	/* swap Si and Sj */
+-	tmp = text->sboxi;
+-	text->sboxi = text->sboxj;
+-	text->sboxj = tmp;
+-	
+-	t = (text->sboxi + text->sboxj) % 256;
+-	
+-	K = text->sboxt;
+-	
+-	/* byte K is Xor'ed with plaintext */
+-	*output++ = *input++ ^ K;
+- }
+- 
+- text->i = i;
+- text->j = j;
+-}
+-
+-static void rc4_decrypt(rc4_context_t *text,
+-			const char *input,
+-			char *output,
+-			unsigned len)
+-{
+- int tmp;
+- int i = text->i;
+- int j = text->j;
+- int t;
+- int K;
+- const char *input_end = input + len;
+- 
+- while (input < input_end) {
+-	i = (i + 1) % 256;
+-	
+-	j = (j + text->sboxi) % 256;
+-	
+-	/* swap Si and Sj */
+-	tmp = text->sboxi;
+-	text->sboxi = text->sboxj;
+-	text->sboxj = tmp;
+-	
+-	t = (text->sboxi + text->sboxj) % 256;
+-	
+-	K = text->sboxt;
+-	
+-	/* byte K is Xor'ed with plaintext */
+-	*output++ = *input++ ^ K;
+- }
+- 
+- text->i = i;
+- text->j = j;
+-}
+-
+-static void free_rc4(context_t *text)
+-{
+- /* free rc4 context structures */
+-
+- if (text->cipher_enc_context) {
+- text->utils->free(text->cipher_enc_context);
+- text->cipher_enc_context = NULL;
+- }
+- if (text->cipher_dec_context) {
+- text->utils->free(text->cipher_dec_context);
+- text->cipher_dec_context = NULL;
+- }
+-}
+-
+-static int init_rc4(context_t *text, 
+-		 unsigned char enckey16,
+-		 unsigned char deckey16)
+-{
+- /* allocate rc4 context structures */
+- text->cipher_enc_context=
+-	(cipher_context_t *) text->utils->malloc(sizeof(rc4_context_t));
+- if (text->cipher_enc_context == NULL) return SASL_NOMEM;
+- 
+- text->cipher_dec_context=
+-	(cipher_context_t *) text->utils->malloc(sizeof(rc4_context_t));
+- if (text->cipher_dec_context == NULL) return SASL_NOMEM;
+- 
+- /* initialize them */
+- rc4_init((rc4_context_t *) text->cipher_enc_context,
+- (const unsigned char *) enckey, 16);
+- rc4_init((rc4_context_t *) text->cipher_dec_context,
+- (const unsigned char *) deckey, 16);
+- 
+- return SASL_OK;
+-}
+-
+-static int dec_rc4(context_t *text,
+-		 const char *input,
+-		 unsigned inputlen,
+-		 unsigned char digest16 __attribute__((unused)),
+-		 char *output,
+-		 unsigned *outputlen)
+-{
+- /* decrypt the text part & HMAC */
+- rc4_decrypt((rc4_context_t *) text->cipher_dec_context, 
+- input, output, inputlen);
+-
+- /* no padding so we just subtract the HMAC to get the text length */
+- *outputlen = inputlen - 10;
+- 
+- return SASL_OK;
+-}
+-
+-static int enc_rc4(context_t *text,
+-		 const char *input,
+-		 unsigned inputlen,
+-		 unsigned char digest16,
+-		 char *output,
+-		 unsigned *outputlen)
+-{
+- /* pad is zero */
+- *outputlen = inputlen+10;
+- 
+- /* encrypt the text part */
+- rc4_encrypt((rc4_context_t *) text->cipher_enc_context,
+- input,
+- output,
+- inputlen);
+- 
+- /* encrypt the HMAC part */
+- rc4_encrypt((rc4_context_t *) text->cipher_enc_context, 
+- (const char *) digest, 
+-		(output)+inputlen, 10);
+- 
+- return SASL_OK;
+-}
+-#endif /* HAVE_OPENSSL */
+ #endif /* WITH_RC4 */
+ 
+ struct digest_cipher available_ciphers =
+ {
+ #ifdef WITH_RC4
+- { "rc4-40", 40, 5, 0x01, &enc_rc4, &dec_rc4, &init_rc4, &free_rc4 },
+- { "rc4-56", 56, 7, 0x02, &enc_rc4, &dec_rc4, &init_rc4, &free_rc4 },
+ { "rc4", 128, 16, 0x04, &enc_rc4, &dec_rc4, &init_rc4, &free_rc4 },
+ #endif
+ #ifdef WITH_DES
+@@ -2815,6 +2729,7 @@
+ 	}
+ 	
+ 	if (cptr->name) {
++	 text->cipher_name = cptr->name;
+ 	 text->cipher_enc = cptr->cipher_enc;
+ 	 text->cipher_dec = cptr->cipher_dec;
+ 	 text->cipher_init = cptr->cipher_init;
+@@ -2958,7 +2873,10 @@
+ 	if (text->cipher_init) {
+ 	 if (text->cipher_init(text, enckey, deckey) != SASL_OK) {
+ 		sparams->utils->seterror(sparams->utils->conn, 0,
+-					 "couldn't init cipher");
++					 "couldn't init cipher '%s'",
++ text->cipher_name);
++ result = SASL_FAIL;
++ goto FreeAllMem;
+ 	 }
+ 	}
+ }
+@@ -3509,6 +3427,7 @@
+ 	oparams->mech_ssf = ctext->cipher->ssf;
+ 
+ 	nbits = ctext->cipher->n;
++	text->cipher_name = ctext->cipher->name;
+ 	text->cipher_enc = ctext->cipher->cipher_enc;
+ 	text->cipher_dec = ctext->cipher->cipher_dec;
+ 	text->cipher_free = ctext->cipher->cipher_free;
+@@ -3733,7 +3652,13 @@
+ 	
+ 	/* initialize cipher if need be */
+ 	if (text->cipher_init) {
+-	 text->cipher_init(text, enckey, deckey);
++	 if (text->cipher_init(text, enckey, deckey) != SASL_OK) {
++	 params->utils->seterror(params->utils->conn, 0,
++		 "internal error: failed to init cipher '%s'",
++ text->cipher_name);
++ result = SASL_FAIL;
++ goto FreeAllocatedMem;
++ }
+ 	}
+ }
+

cyrus-sasl-2.1.27-cumulative-ossl3.patch Added

@@ -0,0 +1,109 @@
+diff -uPr cyrus-sasl-2.1.27/configure.ac cyrus-sasl-2.1.27.ossl3/configure.ac
+--- cyrus-sasl-2.1.27/configure.ac	2021-10-06 11:29:53.274375206 -0400
++++ cyrus-sasl-2.1.27.ossl3/configure.ac	2021-10-06 11:31:19.966726775 -0400
+@@ -1115,7 +1115,11 @@
+ 	with_rc4=yes)
+ 
+ if test "$with_rc4" != no; then
+- AC_DEFINE(WITH_RC4,,Use RC4)
++ if test "$with_openssl" = no; then
++ AC_WARN(OpenSSL not found -- RC4 will be disabled)
++ else
++ AC_DEFINE(WITH_RC4,,Use RC4)
++ fi
+ fi
+ 
+ building_for_macosx=no
+diff -uPr cyrus-sasl-2.1.27/plugins/scram.c cyrus-sasl-2.1.27.ossl3/plugins/scram.c
+--- cyrus-sasl-2.1.27/plugins/scram.c	2018-11-08 12:29:57.000000000 -0500
++++ cyrus-sasl-2.1.27.ossl3/plugins/scram.c	2021-10-06 11:31:04.407484201 -0400
+@@ -65,7 +65,9 @@
+ 
+ #include <openssl/sha.h>
+ #include <openssl/evp.h>
++#if OPENSSL_VERSION_NUMBER < 0x30000000L
+ #include <openssl/hmac.h>
++#endif
+ 
+ /***************************** Common Section *****************************/
+ 
+@@ -291,6 +293,32 @@
+ }
+ #endif
+ 
++#if OPENSSL_VERSION_NUMBER >= 0x30000000L
++
++/* Decalre as void given functions never use the result */
++void *HMAC(const EVP_MD *evp_md, const void *key, int key_len,
++ const unsigned char *data, size_t data_len,
++ unsigned char *md, unsigned int *md_len)
++{
++ const char *digest;
++ size_t digest_size;
++ size_t out_len;
++ void *ret = NULL;
++
++ digest = EVP_MD_get0_name(evp_md);
++ if (digest == NULL) {
++ return NULL;
++ }
++ digest_size = EVP_MD_size(evp_md);
++
++ ret = EVP_Q_mac(NULL, "hmac", NULL, digest, NULL, key, key_len,
++ data, data_len, md, digest_size, &out_len);
++ if (ret != NULL) {
++ *md_len = (unsigned int)out_len;
++ }
++ return ret;
++}
++#endif
+ 
+ /* The result variable need to point to a buffer big enough for the SHA-* hash */
+ static void
+diff -uPr cyrus-sasl-2.1.27/saslauthd/lak.c cyrus-sasl-2.1.27.ossl3/saslauthd/lak.c
+--- cyrus-sasl-2.1.27/saslauthd/lak.c	2022-01-09 11:30:50.000000000 -0400
++++ cyrus-sasl-2.1.27.ossl3/saslauthd/lak.c	2022-01-09 11:30:50.000000001 -0400
+@@ -1806,18 +1806,36 @@
+ 		return rc;
+ 	}
+ 
+-	EVP_DigestInit(mdctx, md);
+-	EVP_DigestUpdate(mdctx, passwd, strlen(passwd));
++	rc = EVP_DigestInit(mdctx, md);
++	if (rc != 1) {
++		rc = LAK_FAIL;
++		goto done;
++	}
++	rc = EVP_DigestUpdate(mdctx, passwd, strlen(passwd));
++	if (rc != 1) {
++		rc = LAK_FAIL;
++		goto done;
++	}
+ 	if (hrock->salted) {
+-		EVP_DigestUpdate(mdctx, &credEVP_MD_size(md),
+-				 clen - EVP_MD_size(md));
++		rc = EVP_DigestUpdate(mdctx, &credEVP_MD_size(md),
++				 clen - EVP_MD_size(md));
++		if (rc != 1) {
++		 rc = LAK_FAIL;
++		 goto done;
++		}
++	}
++	rc = EVP_DigestFinal(mdctx, digest, NULL);
++	if (rc != 1) {
++		rc = LAK_FAIL;
++		goto done;
+ 	}
+-	EVP_DigestFinal(mdctx, digest, NULL);
+-	EVP_MD_CTX_free(mdctx);
+ 
+ 	rc = memcmp((char *)cred, (char *)digest, EVP_MD_size(md));
++	rc = rc ? LAK_INVALID_PASSWORD : LAK_OK;
++done:
++	EVP_MD_CTX_free(mdctx);
+ 	free(cred);
+-	return rc ? LAK_INVALID_PASSWORD : LAK_OK;
++	return rc;
+ }
+ 
+ #endif /* HAVE_OPENSSL */

cyrus-sasl-2.1.27-more-tests.patch Added

@@ -0,0 +1,761 @@
+From 10ac4d4822023b24734acde3c07186937ad52813 Mon Sep 17 00:00:00 2001
+From: Dmitry Belyavskiy <beldmit@gmail.com>
+Date: Wed, 6 Jan 2021 12:38:46 +0100
+Subject: PATCH Some basic PLAIN auth tests
+
+Signed-off-by: Dmitry Belyavskiy <beldmit@gmail.com>
+---
+ tests/runtests.py | 91 +++++++++++++++++++++++++++++++++++++++++
+ tests/t_gssapi_cli.c | 97 +++++++++++++++++++++++++++++++++++++++-----
+ tests/t_gssapi_srv.c | 78 +++++++++++++++++++++++++++--------
+ 3 files changed, 239 insertions(+), 27 deletions(-)
+
+diff --git a/tests/runtests.py b/tests/runtests.py
+index fc9cf244..513ed3ff 100755
+--- a/tests/runtests.py
++++ b/tests/runtests.py
+@@ -239,6 +239,96 @@ def gssapi_tests(testdir):
+ 
+ os.killpg(kdc.pid, signal.SIGTERM)
+ 
++def setup_plain(testdir):
++ """ Create sasldb file """
++ sasldbfile = os.path.join(testdir, 'testsasldb.db')
++
++ sasldbenv = {'SASL_PATH': os.path.join(testdir, '../../plugins/.libs'),
++ 'LD_LIBRARY_PATH' : os.path.join(testdir, '../../lib/.libs')}
++
++ passwdprog = os.path.join(testdir, '../../utils/saslpasswd2')
++
++ echo = subprocess.Popen(('echo', '1234567'), stdout=subprocess.PIPE)
++ subprocess.check_call(
++ passwdprog, "-f", sasldbfile, "-c", "test",
++ "-u", "host.realm.test", "-p"
++ , stdin=echo.stdout, env=sasldbenv, timeout=5)
++
++ return (sasldbfile, sasldbenv)
++
++def plain_test(sasldbfile, sasldbenv):
++ try:
++ srv = subprocess.Popen("../tests/t_gssapi_srv", "-P", sasldbfile,
++ stdout=subprocess.PIPE,
++ stderr=subprocess.PIPE, env=sasldbenv)
++ srv.stdout.readline() # Wait for srv to say it is ready
++ cli = subprocess.Popen("../tests/t_gssapi_cli", "-P", "1234567",
++ stdout=subprocess.PIPE,
++ stderr=subprocess.PIPE, env=sasldbenv)
++ try:
++ cli.wait(timeout=5)
++ srv.wait(timeout=5)
++ except Exception as e:
++ print("Failed on {}".format(e));
++ cli.kill()
++ srv.kill()
++ if cli.returncode != 0 or srv.returncode != 0:
++ raise Exception("CLI ({}): {} --> SRV ({}): {}".format(
++ cli.returncode, cli.stderr.read().decode('utf-8'),
++ srv.returncode, srv.stderr.read().decode('utf-8')))
++ except Exception as e:
++ print("FAIL: {}".format(e))
++ return
++
++ print("PASS: PLAIN CLI({}) SRV({})".format(
++ cli.stdout.read().decode('utf-8').strip(),
++ srv.stdout.read().decode('utf-8').strip()))
++ return
++
++def plain_mismatch_test(sasldbfile, sasldbenv):
++ result = "FAIL"
++ try:
++ srv = subprocess.Popen("../tests/t_gssapi_srv", "-P", sasldbfile,
++ stdout=subprocess.PIPE,
++ stderr=subprocess.PIPE, env=sasldbenv)
++ srv.stdout.readline() # Wait for srv to say it is ready
++ bindings = base64.b64encode("CLI CBS".encode('utf-8'))
++ cli = subprocess.Popen("../tests/t_gssapi_cli", "-P", "12345678",
++ stdout=subprocess.PIPE,
++ stderr=subprocess.PIPE, env=sasldbenv)
++ try:
++ cli.wait(timeout=5)
++ srv.wait(timeout=5)
++ except Exception as e:
++ print("Failed on {}".format(e));
++ cli.kill()
++ srv.kill()
++ if cli.returncode != 0 or srv.returncode != 0:
++ cli_err = cli.stderr.read().decode('utf-8').strip()
++ srv_err = srv.stderr.read().decode('utf-8').strip()
++ if "authentication failure" in srv_err:
++ result = "PASS"
++ raise Exception("CLI ({}): {} --> SRV ({}): {}".format(
++ cli.returncode, cli_err, srv.returncode, srv_err))
++ except Exception as e:
++ print("{}: {}".format(result, e))
++ return
++
++ print("FAIL: This test should fail CLI({}) SRV({})".format(
++ cli.stdout.read().decode('utf-8').strip(),
++ srv.stdout.read().decode('utf-8').strip()))
++ return
++
++def plain_tests(testdir):
++ sasldbfile, sasldbenv = setup_plain(testdir)
++ #print("DB file: {}, ENV: {}".format(sasldbfile, sasldbenv))
++ print('SASLDB PLAIN:')
++ print(' ', end='')
++ plain_test(sasldbfile, sasldbenv)
++
++ print('SASLDB PLAIN PASSWORD MISMATCH:')
++ print(' ', end='')
++ plain_mismatch_test(sasldbfile, sasldbenv)
+ 
+ if __name__ == "__main__":
+ 
+@@ -254,3 +344,4 @@ def gssapi_tests(testdir):
+ os.makedirs(T)
+ 
+ gssapi_tests(T)
++ plain_tests(T)
+diff --git a/tests/t_gssapi_cli.c b/tests/t_gssapi_cli.c
+index a44a3f58..20d22070 100644
+--- a/tests/t_gssapi_cli.c
++++ b/tests/t_gssapi_cli.c
+@@ -16,6 +16,8 @@
+ #include <saslplug.h>
+ #include <saslutil.h>
+ 
++const char *testpass = NULL;
++
+ static int setup_socket(void)
+ {
+ struct sockaddr_in addr;
+@@ -34,9 +36,60 @@ static int setup_socket(void)
+ return sock;
+ }
+ 
++static int get_user(void *context __attribute__((unused)),
++ int id,
++ const char **result,
++ unsigned *len)
++{
++ const char *testuser = "test@host.realm.test";
++
++ if (! result)
++ return SASL_BADPARAM;
++
++ switch (id) {
++ case SASL_CB_USER:
++ case SASL_CB_AUTHNAME:
++ *result = testuser;
++ break;
++ default:
++ return SASL_BADPARAM;
++ }
++
++ if (len) *len = strlen(*result);
++
++ return SASL_OK;
++}
++
++static int get_pass(sasl_conn_t *conn __attribute__((unused)),
++ void *context __attribute__((unused)),
++ int id,
++ sasl_secret_t **psecret)
++{
++ size_t len;
++ static sasl_secret_t *x;
++
++ /* paranoia check */
++ if (! conn || ! psecret || id != SASL_CB_PASS)
++ return SASL_BADPARAM;
++
++ len = strlen(testpass);
++
++ x = (sasl_secret_t *) realloc(x, sizeof(sasl_secret_t) + len);
++
++ if (!x) {
++ return SASL_NOMEM;
++ }
++
++ x->len = len;
++ strcpy((char *)x->data, testpass);
++
++ *psecret = x;
++ return SASL_OK;
++}
++
+ int main(int argc, char *argv)
+ {
+- sasl_callback_t callbacks2 = {};
++ sasl_callback_t callbacks4 = {};
+ char buf8192;
+ const char *chosenmech;
+ sasl_conn_t *conn;
+@@ -46,12 +99,18 @@ int main(int argc, char *argv)
+ char cb_buf256;
+ int sd;
+ int c, r;
++ const char *sasl_mech = "GSSAPI";
++ int plain = 0;
+ 
+- while ((c = getopt(argc, argv, "c:")) != EOF) {
++ while ((c = getopt(argc, argv, "c:P:")) != EOF) {
+ switch (c) {
+ case 'c':
+ parse_cb(&cb, cb_buf, 256, optarg);
+ break;
++ case 'P':
++ plain = 1;
++ testpass = optarg;
++ break;
+ default:
+ break;
+ }
+@@ -64,6 +123,22 @@ int main(int argc, char *argv)
+ callbacks1.id = SASL_CB_LIST_END;
+ callbacks1.proc = NULL;
+ callbacks1.context = NULL;
++ callbacks2.id = SASL_CB_LIST_END;
++ callbacks2.proc = NULL;
++ callbacks2.context = NULL;
++ callbacks3.id = SASL_CB_LIST_END;
++ callbacks3.proc = NULL;
++ callbacks3.context = NULL;
++
++ if (plain) {
++ sasl_mech = "PLAIN";
++
++ callbacks1.id = SASL_CB_AUTHNAME;
++ callbacks1.proc = (sasl_callback_ft)&get_user;
++
++ callbacks2.id = SASL_CB_PASS;
++ callbacks2.proc = (sasl_callback_ft)&get_pass;
++ }
+ 
+ r = sasl_client_init(callbacks);
+ if (r != SASL_OK) exit(-1);
+@@ -78,11 +153,11 @@ int main(int argc, char *argv)
+ sasl_setprop(conn, SASL_CHANNEL_BINDING, &cb);
+ }
+ 
+- r = sasl_client_start(conn, "GSSAPI", NULL, &data, &len, &chosenmech);
++ r = sasl_client_start(conn, sasl_mech, NULL, &data, &len, &chosenmech);
+ if (r != SASL_OK && r != SASL_CONTINUE) {
+-	saslerr(r, "starting SASL negotiation");
+-	printf("\n%s\n", sasl_errdetail(conn));
+-	exit(-1);
++ saslerr(r, "starting SASL negotiation");
++ printf("\n%s\n", sasl_errdetail(conn));
++ exit(-1);
+ }
+ 
+ sd = setup_socket();
+@@ -92,11 +167,11 @@ int main(int argc, char *argv)
+ len = 8192;
+ recv_string(sd, buf, &len);
+ 
+-	r = sasl_client_step(conn, buf, len, NULL, &data, &len);
+-	if (r != SASL_OK && r != SASL_CONTINUE) {
+-	 saslerr(r, "performing SASL negotiation");
+-	 printf("\n%s\n", sasl_errdetail(conn));
+-	 exit(-1);
++ r = sasl_client_step(conn, buf, len, NULL, &data, &len);
++ if (r != SASL_OK && r != SASL_CONTINUE) {
++ saslerr(r, "performing SASL negotiation");
++ printf("\n%s\n", sasl_errdetail(conn));
++ exit(-1);
+ }
+ }
+ 
+diff --git a/tests/t_gssapi_srv.c b/tests/t_gssapi_srv.c
+index ef1217f6..430cad65 100644
+--- a/tests/t_gssapi_srv.c
++++ b/tests/t_gssapi_srv.c
+@@ -1,4 +1,5 @@
+-/* Copyright (C) Simo Sorce <simo@redhat.com>
++/* Copyright (C) Simo Sorce <simo@redhat.com>,
++ * Dmitry Belyavskiy <dbelyavs@redhat.com>
+ * See COPYING file for License */
+ 
+ #include "t_common.h"
+@@ -15,6 +16,10 @@
+ #include <arpa/inet.h>
+ #include <saslplug.h>
+ 
++const char *sasldb_path = NULL,
++ *auxprop_plugin = "sasldb",
++ *pwcheck_method = "auxprop-hashed";
++
+ static int setup_socket(void)
+ {
+ struct sockaddr_in addr;
+@@ -45,9 +50,38 @@ static int setup_socket(void)
+ return sd;
+ }
+ 
++static int test_getopt(void *context __attribute__((unused)),
++ const char *plugin_name __attribute__((unused)),
++ const char *option,
++ const char **result,
++ unsigned *len)
++{
++ if (sasldb_path && !strcmp(option, "sasldb_path")) {
++ *result = sasldb_path;
++ if (len)
++ *len = (unsigned) strlen(sasldb_path);
++ return SASL_OK;
++ }
++
++ if (sasldb_path && !strcmp(option, "auxprop_plugin")) {
++ *result = auxprop_plugin;
++ if (len)
++ *len = (unsigned) strlen(auxprop_plugin);
++ return SASL_OK;
++ }
++
++ if (sasldb_path && !strcmp(option, "pwcheck_method")) {
++ *result = pwcheck_method;
++ if (len)
++ *len = (unsigned) strlen(pwcheck_method);
++ return SASL_OK;
++ }
++ return SASL_FAIL;
++}
++
+ int main(int argc, char *argv)
+ {
+- sasl_callback_t callbacks2 = {};
++ sasl_callback_t callbacks3 = {};
+ char buf8192;
+ sasl_conn_t *conn;
+ const char *data;
+@@ -56,25 +90,33 @@ int main(int argc, char *argv)
+ unsigned char cb_buf256;
+ int sd;
+ int c, r;
++ const char *sasl_mech = "GSSAPI";
++ int plain = 0;
+ 
+- while ((c = getopt(argc, argv, "c:")) != EOF) {
++ while ((c = getopt(argc, argv, "c:P:")) != EOF) {
+ switch (c) {
+ case 'c':
+ parse_cb(&cb, cb_buf, 256, optarg);
+ break;
++ case 'P':
++ plain = 1;
++ sasldb_path = optarg;
++ break;
+ default:
+ break;
+ }
+ }
+ 
+-
+ /* initialize the sasl library */
+ callbacks0.id = SASL_CB_GETPATH;
+ callbacks0.proc = (sasl_callback_ft)&getpath;
+ callbacks0.context = NULL;
+- callbacks1.id = SASL_CB_LIST_END;
+- callbacks1.proc = NULL;
++ callbacks1.id = SASL_CB_GETOPT;
++ callbacks1.proc = (sasl_callback_ft)&test_getopt;
+ callbacks1.context = NULL;
++ callbacks2.id = SASL_CB_LIST_END;
++ callbacks2.proc = NULL;
++ callbacks2.context = NULL;
+ 
+ r = sasl_server_init(callbacks, "t_gssapi_srv");
+ if (r != SASL_OK) exit(-1);
+@@ -90,16 +132,20 @@ int main(int argc, char *argv)
+ sasl_setprop(conn, SASL_CHANNEL_BINDING, &cb);
+ }
+ 
++ if (plain) {
++ sasl_mech = "PLAIN";
++ }
++
+ sd = setup_socket();
+ 
+ len = 8192;
+ recv_string(sd, buf, &len);
+ 
+- r = sasl_server_start(conn, "GSSAPI", buf, len, &data, &len);
++ r = sasl_server_start(conn, sasl_mech, buf, len, &data, &len);
+ if (r != SASL_OK && r != SASL_CONTINUE) {
+-	saslerr(r, "starting SASL negotiation");
+-	printf("\n%s\n", sasl_errdetail(conn));
+-	exit(-1);
++ saslerr(r, "starting SASL negotiation");
++ printf("\n%s\n", sasl_errdetail(conn));
++ exit(-1);
+ }
+ 
+ while (r == SASL_CONTINUE) {
+@@ -107,12 +153,12 @@ int main(int argc, char *argv)
+ len = 8192;
+ recv_string(sd, buf, &len);
+ 
+-	r = sasl_server_step(conn, buf, len, &data, &len);
+-	if (r != SASL_OK && r != SASL_CONTINUE) {
+-	 saslerr(r, "performing SASL negotiation");
+-	 printf("\n%s\n", sasl_errdetail(conn));
+-	 exit(-1);
+-	}
++ r = sasl_server_step(conn, buf, len, &data, &len);
++ if (r != SASL_OK && r != SASL_CONTINUE) {
++ saslerr(r, "performing SASL negotiation");
++ printf("\n%s\n", sasl_errdetail(conn));
++ exit(-1);
++ }
+ 
+ }
+ 
+From d95b0afef1289194148090874799428e9e4f4cff Mon Sep 17 00:00:00 2001
+From: Simo Sorce <idra@samba.org>
+Date: Wed, 15 Apr 2020 11:57:17 -0400
+Subject: PATCH Test GSS-SPNEGO as well
+
+Signed-off-by: Simo Sorce <simo@redhat.com>
+---
+ tests/runtests.py | 91 ++++++++++++++++++++++++++++++++++++++++----
+ tests/t_common.c | 13 ++++---
+ tests/t_common.h | 3 +-
+ tests/t_gssapi_cli.c | 22 ++++++++++-
+ tests/t_gssapi_srv.c | 25 ++++++++++--
+ 5 files changed, 134 insertions(+), 20 deletions(-)
+
+diff --git a/tests/runtests.py b/tests/runtests.py
+index 513ed3ff..7be60745 100755
+--- a/tests/runtests.py
++++ b/tests/runtests.py
+@@ -6,6 +6,7 @@
+ import shutil
+ import signal
+ import subprocess
++import sys
+ import time
+ from string import Template
+ 
+@@ -149,11 +150,12 @@ def gssapi_basic_test(kenv):
+ srv.returncode, srv.stderr.read().decode('utf-8')))
+ except Exception as e:
+ print("FAIL: {}".format(e))
+- return
++ return 1
+ 
+ print("PASS: CLI({}) SRV({})".format(
+ cli.stdout.read().decode('utf-8').strip(),
+ srv.stdout.read().decode('utf-8').strip()))
++ return 0
+ 
+ def gssapi_channel_binding_test(kenv):
+ try:
+@@ -178,11 +180,12 @@ def gssapi_channel_binding_test(kenv):
+ srv.returncode, srv.stderr.read().decode('utf-8')))
+ except Exception as e:
+ print("FAIL: {}".format(e))
+- return
++ return 1
+ 
+ print("PASS: CLI({}) SRV({})".format(
+ cli.stdout.read().decode('utf-8').strip(),
+ srv.stdout.read().decode('utf-8').strip()))
++ return 0
+ 
+ def gssapi_channel_binding_mismatch_test(kenv):
+ result = "FAIL"
+@@ -212,11 +215,70 @@ def gssapi_channel_binding_mismatch_test(kenv):
+ cli.returncode, cli_err, srv.returncode, srv_err))
+ except Exception as e:
+ print("{}: {}".format(result, e))
+- return
++ return 0
+ 
+ print("FAIL: This test should fail CLI({}) SRV({})".format(
+ cli.stdout.read().decode('utf-8').strip(),
+ srv.stdout.read().decode('utf-8').strip()))
++ return 1
++
++def gss_spnego_basic_test(kenv):
++ try:
++ srv = subprocess.Popen("../tests/t_gssapi_srv", "-N",
++ stdout=subprocess.PIPE,
++ stderr=subprocess.PIPE, env=kenv)
++ srv.stdout.readline() # Wait for srv to say it is ready
++ cli = subprocess.Popen("../tests/t_gssapi_cli", "-N",
++ stdout=subprocess.PIPE,
++ stderr=subprocess.PIPE, env=kenv)
++ try:
++ cli.wait(timeout=5)
++ srv.wait(timeout=5)
++ except Exception as e:
++ print("Failed on {}".format(e));
++ cli.kill()
++ srv.kill()
++ if cli.returncode != 0 or srv.returncode != 0:
++ raise Exception("CLI ({}): {} --> SRV ({}): {}".format(
++ cli.returncode, cli.stderr.read().decode('utf-8'),
++ srv.returncode, srv.stderr.read().decode('utf-8')))
++ except Exception as e:
++ print("FAIL: {}".format(e))
++ return 1
++
++ print("PASS: CLI({}) SRV({})".format(
++ cli.stdout.read().decode('utf-8').strip(),
++ srv.stdout.read().decode('utf-8').strip()))
++ return 0
++
++def gss_spnego_zeromaxssf_test(kenv):
++ try:
++ srv = subprocess.Popen("../tests/t_gssapi_srv", "-N", "-z",
++ stdout=subprocess.PIPE,
++ stderr=subprocess.PIPE, env=kenv)
++ srv.stdout.readline() # Wait for srv to say it is ready
++ cli = subprocess.Popen("../tests/t_gssapi_cli", "-N", "-z",
++ stdout=subprocess.PIPE,
++ stderr=subprocess.PIPE, env=kenv)
++ try:
++ cli.wait(timeout=5)
++ srv.wait(timeout=5)
++ except Exception as e:
++ print("Failed on {}".format(e));
++ cli.kill()
++ srv.kill()
++ if cli.returncode != 0 or srv.returncode != 0:
++ raise Exception("CLI ({}): {} --> SRV ({}): {}".format(
++ cli.returncode, cli.stderr.read().decode('utf-8'),
++ srv.returncode, srv.stderr.read().decode('utf-8')))
++ except Exception as e:
++ print("FAIL: {}".format(e))
++ return 1
++
++ print("PASS: CLI({}) SRV({})".format(
++ cli.stdout.read().decode('utf-8').strip(),
++ srv.stdout.read().decode('utf-8').strip()))
++ return 0
+ 
+ def gssapi_tests(testdir):
+ """ SASL/GSSAPI Tests """
+@@ -225,19 +287,30 @@ def gssapi_tests(testdir):
+ #print("KDC: {}, ENV: {}".format(kdc, kenv))
+ kenv'KRB5_TRACE' = os.path.join(testdir, 'trace.log')
+ 
++ err = 0
++
+ print('GSSAPI BASIC:')
+ print(' ', end='')
+- gssapi_basic_test(kenv)
++ err += gssapi_basic_test(kenv)
+ 
+ print('GSSAPI CHANNEL BINDING:')
+ print(' ', end='')
+- gssapi_channel_binding_test(kenv)
++ err += gssapi_channel_binding_test(kenv)
+ 
+ print('GSSAPI CHANNEL BINDING MISMTACH:')
+ print(' ', end='')
+- gssapi_channel_binding_mismatch_test(kenv)
++ err += gssapi_channel_binding_mismatch_test(kenv)
++
++ print('GSS-SPNEGO BASIC:')
++ print(' ', end='')
++ err += gss_spnego_basic_test(kenv)
++
++ print('GSS-SPNEGO 0 MAXSSF:')
++ print(' ', end='')
++ err += gss_spnego_zeromaxssf_test(kenv)
+ 
+ os.killpg(kdc.pid, signal.SIGTERM)
++ return err
+ 
+ def setup_plain(testdir):
+ """ Create sasldb file """
+@@ -343,5 +416,9 @@ def plain_tests(testdir):
+ shutil.rmtree(T)
+ os.makedirs(T)
+ 
+- gssapi_tests(T)
+ plain_tests(T)
++
++ err = gssapi_tests(T)
++ if err != 0:
++ print('{} test(s) FAILED'.format(err))
++ sys.exit(-1)
+diff --git a/tests/t_common.c b/tests/t_common.c
+index 478e6a1f..f56098ef 100644
+--- a/tests/t_common.c
++++ b/tests/t_common.c
+@@ -23,20 +23,21 @@ void send_string(int sd, const char *s, unsigned int l)
+ if (ret != l) s_error("send data", ret, l, errno);
+ }
+ 
+-void recv_string(int sd, char *buf, unsigned int *buflen)
++void recv_string(int sd, char *buf, unsigned int *buflen, bool allow_eof)
+ {
++ unsigned int bufsize = *buflen;
+ unsigned int l;
+ ssize_t ret;
+ 
++ *buflen = 0;
++
+ ret = recv(sd, &l, sizeof(l), MSG_WAITALL);
++ if (allow_eof && ret == 0) return;
+ if (ret != sizeof(l)) s_error("recv size", ret, sizeof(l), errno);
+ 
+- if (l == 0) {
+- *buflen = 0;
+- return;
+- }
++ if (l == 0) return;
+ 
+- if (*buflen < l) s_error("recv len", l, *buflen, E2BIG);
++ if (bufsize < l) s_error("recv len", l, bufsize, E2BIG);
+ 
+ ret = recv(sd, buf, l, 0);
+ if (ret != l) s_error("recv data", ret, l, errno);
+diff --git a/tests/t_common.h b/tests/t_common.h
+index a10def17..be24a53d 100644
+--- a/tests/t_common.h
++++ b/tests/t_common.h
+@@ -4,6 +4,7 @@
+ #include "config.h"
+ 
+ #include <errno.h>
++#include <stdbool.h>
+ #include <stdio.h>
+ #include <sys/socket.h>
+ 
+@@ -12,7 +13,7 @@
+ 
+ void s_error(const char *hdr, ssize_t ret, ssize_t len, int err);
+ void send_string(int sd, const char *s, unsigned int l);
+-void recv_string(int sd, char *buf, unsigned int *buflen);
++void recv_string(int sd, char *buf, unsigned int *buflen, bool allow_eof);
+ void saslerr(int why, const char *what);
+ int getpath(void *context __attribute__((unused)), const char **path);
+ void parse_cb(sasl_channel_binding_t *cb, char *buf, unsigned max, char *in);
+diff --git a/tests/t_gssapi_cli.c b/tests/t_gssapi_cli.c
+index 20d22070..b1dd6ce0 100644
+--- a/tests/t_gssapi_cli.c
++++ b/tests/t_gssapi_cli.c
+@@ -101,8 +101,10 @@ int main(int argc, char *argv)
+ int c, r;
+ const char *sasl_mech = "GSSAPI";
+ int plain = 0;
++ bool spnego = false;
++ bool zeromaxssf = false;
+ 
+- while ((c = getopt(argc, argv, "c:P:")) != EOF) {
++ while ((c = getopt(argc, argv, "c:P:zN")) != EOF) {
+ switch (c) {
+ case 'c':
+ parse_cb(&cb, cb_buf, 256, optarg);
+@@ -111,6 +113,12 @@ int main(int argc, char *argv)
+ plain = 1;
+ testpass = optarg;
+ break;
++ case 'z':
++ zeromaxssf = true;
++ break;
++ case 'N':
++ spnego = true;
++ break;
+ default:
+ break;
+ }
+@@ -153,6 +161,16 @@ int main(int argc, char *argv)
+ sasl_setprop(conn, SASL_CHANNEL_BINDING, &cb);
+ }
+ 
++ if (spnego) {
++ sasl_mech = "GSS-SPNEGO";
++ }
++
++ if (zeromaxssf) {
++ /* set all security properties to 0 including maxssf */
++ sasl_security_properties_t secprops = { 0 };
++ sasl_setprop(conn, SASL_SEC_PROPS, &secprops);
++ }
++
+ r = sasl_client_start(conn, sasl_mech, NULL, &data, &len, &chosenmech);
+ if (r != SASL_OK && r != SASL_CONTINUE) {
+ saslerr(r, "starting SASL negotiation");
+@@ -165,7 +183,7 @@ int main(int argc, char *argv)
+ while (r == SASL_CONTINUE) {
+ send_string(sd, data, len);
+ len = 8192;
+- recv_string(sd, buf, &len);
++ recv_string(sd, buf, &len, false);
+ 
+ r = sasl_client_step(conn, buf, len, NULL, &data, &len);
+ if (r != SASL_OK && r != SASL_CONTINUE) {
+diff --git a/tests/t_gssapi_srv.c b/tests/t_gssapi_srv.c
+index 430cad65..0adbd12f 100644
+--- a/tests/t_gssapi_srv.c
++++ b/tests/t_gssapi_srv.c
+@@ -92,8 +92,10 @@ int main(int argc, char *argv)
+ int c, r;
+ const char *sasl_mech = "GSSAPI";
+ int plain = 0;
++ bool spnego = false;
++ bool zeromaxssf = false;
+ 
+- while ((c = getopt(argc, argv, "c:P:")) != EOF) {
++ while ((c = getopt(argc, argv, "c:P:zN")) != EOF) {
+ switch (c) {
+ case 'c':
+ parse_cb(&cb, cb_buf, 256, optarg);
+@@ -102,6 +104,12 @@ int main(int argc, char *argv)
+ plain = 1;
+ sasldb_path = optarg;
+ break;
++ case 'z':
++ zeromaxssf = true;
++ break;
++ case 'N':
++ spnego = true;
++ break;
+ default:
+ break;
+ }
+@@ -136,10 +144,20 @@ int main(int argc, char *argv)
+ sasl_mech = "PLAIN";
+ }
+ 
++ if (spnego) {
++ sasl_mech = "GSS-SPNEGO";
++ }
++
++ if (zeromaxssf) {
++ /* set all security properties to 0 including maxssf */
++ sasl_security_properties_t secprops = { 0 };
++ sasl_setprop(conn, SASL_SEC_PROPS, &secprops);
++ }
++
+ sd = setup_socket();
+ 
+ len = 8192;
+- recv_string(sd, buf, &len);
++ recv_string(sd, buf, &len, false);
+ 
+ r = sasl_server_start(conn, sasl_mech, buf, len, &data, &len);
+ if (r != SASL_OK && r != SASL_CONTINUE) {
+@@ -151,7 +169,7 @@ int main(int argc, char *argv)
+ while (r == SASL_CONTINUE) {
+ send_string(sd, data, len);
+ len = 8192;
+- recv_string(sd, buf, &len);
++ recv_string(sd, buf, &len, true);
+ 
+ r = sasl_server_step(conn, buf, len, &data, &len);
+ if (r != SASL_OK && r != SASL_CONTINUE) {
+@@ -159,7 +177,6 @@ int main(int argc, char *argv)
+ printf("\n%s\n", sasl_errdetail(conn));
+ exit(-1);
+ }
+-
+ }
+ 
+ if (r != SASL_OK) exit(-1);
+

cyrus-sasl-2.1.27-nostrncpy.patch Added

@@ -0,0 +1,51 @@
+diff --git a/plugins/gssapi.c b/plugins/gssapi.c
+index 5d900c5e..4688bb9a 100644
+--- a/plugins/gssapi.c
++++ b/plugins/gssapi.c
+@@ -1567,7 +1567,6 @@ int gssapiv2_server_plug_init(
+ {
+ #ifdef HAVE_GSSKRB5_REGISTER_ACCEPTOR_IDENTITY
+ const char *keytab = NULL;
+- char keytab_path1024;
+ unsigned int rl;
+ #endif
+ 
+@@ -1589,15 +1588,7 @@ int gssapiv2_server_plug_init(
+ 	 return SASL_FAIL;
+ 	}
+ 	
+-	if(strlen(keytab) > 1024) {
+-	 utils->log(NULL, SASL_LOG_ERR,
+-		 "path to keytab is > 1024 characters");
+-	 return SASL_BUFOVER;
+-	}
+-	
+-	strncpy(keytab_path, keytab, 1024);
+-	
+-	gsskrb5_register_acceptor_identity(keytab_path);
++	gsskrb5_register_acceptor_identity(keytab);
+ }
+ #endif
+ 
+diff --git a/plugins/ntlm.c b/plugins/ntlm.c
+index aeb3ac34..8a7d9065 100644
+--- a/plugins/ntlm.c
++++ b/plugins/ntlm.c
+@@ -375,10 +375,15 @@ static unsigned char *P16_lm(unsigned char *P16, sasl_secret_t *passwd,
+ 			 unsigned *buflen __attribute__((unused)),
+ 			 int *result)
+ {
+- char P1414;
++ char P1414 = { 0 };
++ int Plen;
+ unsigned char S8 = { 0x4b, 0x47, 0x53, 0x21, 0x40, 0x23, 0x24, 0x25 };
+ 
+- strncpy(P14, (const char *) passwd->data, sizeof(P14));
++ Plen = sizeof(P14);
++ if (passwd->len < Plen) {
++ Plen = passwd->len;
++ }
++ memcpy(P14, (const char *) passwd->data, Plen);
+ ucase(P14, sizeof(P14));
+ 
+ E(P16, (unsigned char *) P14, sizeof(P14), S8, sizeof(S8));

autogen.sh Added

changelog Added

@@ -0,0 +1,790 @@
+* Tue Oct 12 2021 Simo Sorce <simo@redhat.com> - 2.1.27-16
+- Fix rpath patch
+- Resolves: rhbz#2012172
+
+* Wed Oct 6 2021 Simo Sorce <simo@redhat.com> - 2.1.27-15
+- More openssl 3 compatibility and digestmd5 updates.
+
+* Tue Sep 14 2021 Sahana Prasad <sahana@redhat.com> - 2.1.27-14
+- Rebuilt with OpenSSL 3.0.0
+
+* Tue Aug 10 2021 Dmitry Belyavskiy <dbelyavs@redhat.com> - 2.1.27-13
+- Preserve GDBM error to correctly deal with GDBM sasldb
+- Related: rhbz#1952926
+
+* Wed Jul 21 2021 Fedora Release Engineering <releng@fedoraproject.org> - 2.1.27-12
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_35_Mass_Rebuild
+
+* Mon May 03 2021 Dmitry Belyavskiy <dbelyavs@redhat.com> - 2.1.27-11
+- Fix some coverity issues
+- Set default sasldb database to GDBM instead of BerkeleyDB
+- Add the migration tool from BerkeleyDB
+- Add some PLAIN auth tests
+
+* Tue Apr 06 2021 Simo Sorce <simo@redhat.com> - 2.1.27-10
+- Fix issues with autoconf 2.70+
+
+* Tue Mar 02 2021 Zbigniew Jędrzejewski-Szmek <zbyszek@in.waw.pl> - 2.1.27-9
+- Rebuilt for updated systemd-rpm-macros
+ See https://pagure.io/fesco/issue/2583.
+
+* Mon Feb 08 2021 Pavel Raiskup <praiskup@redhat.com> - 2.1.27-8
+- rebuild for libpq ABI fix rhbz#1908268
+
+* Tue Jan 26 2021 Fedora Release Engineering <releng@fedoraproject.org> - 2.1.27-7
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_34_Mass_Rebuild
+
+* Mon Jul 27 2020 Fedora Release Engineering <releng@fedoraproject.org> - 2.1.27-6
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_33_Mass_Rebuild
+
+* Thu May 7 2020 Simo Sorce <simo@redhat.com> - 2.1.27-5
+- Backport GSSAPI Channel Bindings support
+- Add support for setting maxssf=0 in GSS-SPNEGO
+- Reduce excessive GSSAPI plugin logging
+
+* Thu Mar 19 2020 Simo Sorce - 2.1.27-4
+- Fix CVE 2019 19906
+
+* Tue Jan 28 2020 Fedora Release Engineering <releng@fedoraproject.org> - 2.1.27-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_32_Mass_Rebuild
+
+* Wed Jul 24 2019 Fedora Release Engineering <releng@fedoraproject.org> - 2.1.27-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_31_Mass_Rebuild
+
+* Thu Jun 13 2019 Simo Sorce - 2.1.27-1
+- Update to final 2.1.27 sources
+- Also add patch to use OpenSSL RC4, currently proposed as PR 559
+
+* Thu Jan 31 2019 Fedora Release Engineering <releng@fedoraproject.org> - 2.1.27-0.6rc7
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_30_Mass_Rebuild
+
+* Mon Jan 14 2019 Björn Esser <besser82@fedoraproject.org> - 2.1.27-0.5rc7
+- Rebuilt for libcrypt.so.2 (#1666033)
+
+* Sun Oct 14 2018 Peter Robinson <pbrobinson@fedoraproject.org> 2.1.27-0.4rc7
+- Clean up remanents of sys-v, spec cleanups
+
+* Thu Jul 12 2018 Fedora Release Engineering <releng@fedoraproject.org> - 2.1.27-0.3rc7
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_29_Mass_Rebuild
+
+* Thu May 17 2018 Jakub Jelen <jjelen@redhat.com> - 2.1.27-0.2rc7
+- Avoid multilib conflicts between devel subpackages (#1577675)
+
+* Mon Mar 05 2018 Jakub Jelen <jjelen@redhat.com> - 2.1.27-0.1rc7
+- New upstream (pre-)release
+- Import LDFLAGS from redhat-rpm-config (#1548437)
+
+* Wed Feb 07 2018 Fedora Release Engineering <releng@fedoraproject.org> - 2.1.26-37
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_28_Mass_Rebuild
+
+* Sat Jan 20 2018 Björn Esser <besser82@fedoraproject.org> - 2.1.26-36
+- Rebuilt for switch to libxcrypt
+
+* Mon Oct 23 2017 Jakub Jelen <jjelen@redhat.com> - 2.1.26-35
+- Use mariadb-connector-c-devel instead of mysql-devel (#1493620)
+
+* Wed Aug 02 2017 Fedora Release Engineering <releng@fedoraproject.org> - 2.1.26-34
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Binutils_Mass_Rebuild
+
+* Wed Jul 26 2017 Fedora Release Engineering <releng@fedoraproject.org> - 2.1.26-33
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Mass_Rebuild
+
+* Wed Apr 19 2017 Jakub Jelen <jjelen@redhat.com> - 2.1.26-32
+- Add missing patch for separate mutexes per connection in GSSAPI
+
+* Tue Apr 18 2017 Jakub Jelen <jjelen@redhat.com> - 2.1.26-31
+- Allow cyrus sasl to get the ssf from gssapi
+
+* Wed Apr 12 2017 Petr Šabata <contyk@redhat.com> - 2.1.26-30
+- Removing the obsolete scriptlet /sbin/service dependency
+
+* Tue Mar 07 2017 Jakub Jelen <jjelen@redhat.com> - 2.1.26-29
+- Fix GSS SPNEGO support (#1421663)
+
+* Fri Feb 10 2017 Fedora Release Engineering <releng@fedoraproject.org> - 2.1.26-28
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_26_Mass_Rebuild
+
+* Mon Nov 07 2016 Jakub Jelen <jjelen@redhat.com> - 2.1.26-27
+- Add support for OpenSSL 1.1.0
+
+* Wed Feb 03 2016 Fedora Release Engineering <releng@fedoraproject.org> - 2.1.26-26.2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_24_Mass_Rebuild
+
+* Thu Jul 16 2015 Jakub Jelen <jjelen@redhat.com> 2.1.26-25.2
+- Revert tmpfiles.d and use new systemd feature RuntimeDirectory
+
+* Wed Jun 17 2015 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 2.1.26-24
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_23_Mass_Rebuild
+
+* Fri May 29 2015 Jakub Jelen <jjelen@redhat.com> 2.1.26-23
+- Add ability to handle logging in gssapi plugin (#1187097)
+
+* Mon Mar 16 2015 Jakub Jelen <jjelen@redhat.com> 2.1.26-22
+- Rever "Do not leak memory in plugin_common.c ..." due the breakage of svn (#1202364)
+
+* Thu Mar 12 2015 Jakub Jelen <jjelen@redhat.com> 2.1.26-21
+- Add and Document ability to run saslauthd as non-root user, fix tpmfiles ownership (#1189203)
+- Do not leak memory in sample server (#852755)
+- Do not leak memory in plugin_common.c for password callback (#1191183)
+- Cleanup spec file: tmpfiles.d macros and tab/space
+
+* Wed Feb 04 2015 Petr Lautrbach <plautrba@redhat.com> 2.1.26-20
+- Change the ownership of /run/saslauth to saslauth:saslauth (#1189203)
+
+* Sat Aug 16 2014 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 2.1.26-19
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_21_22_Mass_Rebuild
+
+* Fri Jul 11 2014 Tom Callaway <spot@fedoraproject.org> - 2.1.26-18
+- fix license handling
+
+* Sat Jun 07 2014 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 2.1.26-17
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_21_Mass_Rebuild
+
+* Sun Jan 19 2014 Ville Skyttä <ville.skytta@iki.fi> - 2.1.26-16
+- Don't order service after syslog.target.
+
+* Fri Nov 15 2013 Petr Lautrbach <plautrba@redhat.com> 2.1.26-15
+- Treat SCRAM-SHA-1/DIGEST-MD5 as more secure than PLAIN (#970718)
+- improve configuration error message
+
+* Fri Nov 01 2013 Petr Lautrbach <plautrba@redhat.com> 2.1.26-14
+- revert upstream commit 080e51c7fa0421eb2f0210d34cf0ac48a228b1e9 (#984079)
+
+* Tue Oct 15 2013 Karsten Hopp <karsten@redhat.com> 2.1.26-13
+- add ppc64p7 subarch support in config.sub (Fedora only)
+
+* Mon Sep 09 2013 Petr Lautrbach <plautrba@redhat.com> 2.1.26-12
+- build with RPM_OPT_FLAGS <ville.skytta@iki.fi> (#1005535)
+
+* Tue Sep 03 2013 Petr Lautrbach <plautrba@redhat.com> 2.1.26-11
+- fix hardening for /usr/sbin/saslauthd
+- add testsaslauthd.8 man page to the package
+- use static md5global.h file
+
+* Sat Aug 03 2013 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 2.1.26-10
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_20_Mass_Rebuild
+
+* Mon Jun 24 2013 Petr Lautrbach <plautrba@redhat.com> 2.1.26-9
+- detect gsskrb5_register_acceptor_identity macro <nalin@redhat.com> (#976538)
+
+* Tue Jun 04 2013 Karsten Hopp <karsten@redhat.com> 2.1.26-8
+- disable incorrect check for MkLinux to allow building with shared libraries on PPC
+
+* Tue May 21 2013 Petr Lautrbach <plautrba@redhat.com> 2.1.26-7
+- fix the spec file in order to build the cyrus-sasl-sql plugin
+ with support for PostgreSQL and MySQL
+
+* Thu Feb 21 2013 Petr Lautrbach <plautrba@redhat.com> 2.1.26-6
+- don't include system sasl2 library needed for rebuilds after rebase
+
+* Mon Feb 11 2013 Petr Lautrbach <plautrba@redhat.com> 2.1.26-5
+- enable full relro and PIE compiler flags for saslauthd
+
+* Fri Feb 01 2013 Petr Lautrbach <plautrba@redhat.com> 2.1.26-4
+- fix library symlinks
+
+* Thu Jan 31 2013 Rex Dieter <rdieter@fedoraproject.org> 2.1.26-3
+- actually apply size_t patch (#906519)
+
+* Thu Jan 31 2013 Rex Dieter <rdieter@fedoraproject.org> 2.1.26-2
+- sasl.h: +#include<sys/types.h> for missing size_t type (#906519)
+- tighten subpkg deps via %%?_isa
+
+* Thu Dec 20 2012 Petr Lautrbach <plautrba@redhat.com> 2.1.26-1
+- update to 2.1.26
+- fix segfaults in sasl_gss_encode (#886140)
+
+* Mon Dec 10 2012 Petr Lautrbach <plautrba@redhat.com> 2.1.25-2
+- always use the current external Berkeley DB when linking
+
+* Fri Dec 07 2012 Petr Lautrbach <plautrba@redhat.com> 2.1.25-1
+- update to 2.1.25
+- add cyrus-sasl-scram and cyrus-sasl-gs2 packages
+
+* Fri Sep 14 2012 Petr Lautrbach <plautrba@redhat.com> 2.1.23-36
+- replace scriptlets with systemd macros (#856666)
+
+* Wed Jul 18 2012 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 2.1.23-35
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_18_Mass_Rebuild
+
+* Tue Jul 17 2012 Petr Lautrbach <plautrba@redhat.com> 2.1.23-34
+- move /etc/tmpfiles.d/saslauthd.conf to /usr/lib/tmpfiles.d/saslauthd.conf (#840193)
+
+* Wed Jun 20 2012 Petr Lautrbach <plautrba@redhat.com> 2.1.23-33
+- properly deal with crypt() returning NULL (#816250)
+- use fixed gid 76 for saslauth
+
+* Mon Apr 16 2012 Jindrich Novy <jnovy@redhat.com> 2.1.23-32
+- re-enable libdb support and utilities
+
+* Wed Apr 04 2012 Jindrich Novy <jnovy@redhat.com> 2.1.23-31
+- temporarily disable libdb support to resolve cyrus-sasl
+ chicken and egg build problem against libdb
+
+* Tue Apr 03 2012 Jindrich Novy <jnovy@redhat.com> 2.1.23-30
+- rebuild against new libdb
+
+* Wed Feb 08 2012 Petr Lautrbach <plautrba@redhat.com> 2.1.23-29
+- Change saslauth user homedir to /run/saslauthd (#752889)
+- Change all /var/run/ to /run/
+- DAEMONOPTS are not supported any more in systemd units
+
+* Mon Jan 09 2012 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 2.1.23-28
+- Ship with sasl_pwcheck_method: alwaystrue
+
+* Mon Dec 12 2011 Petr Lautrbach <plautrba@redhat.com> 2.1.23-27
+- remove support for logging of the remote host via PAM (#759334)
+- fix systemd files (#750436)
+
+* Wed Aug 10 2011 Jan F. Chadima <jchadima@redhat.com> - 2.1.23-26
+- Add partial relro support for libraries
+
+* Mon Jul 25 2011 Jan F. Chadima <jchadima@redhat.com> - 2.1.23-25
+- Add support for berkeley db 5
+
+* Wed Jun 29 2011 Jan F. Chadima <jchadima@redhat.com> - 2.1.23-23
+- Migrate the package to full native systemd unit files, according to the Fedora
+ packaging guidelines.
+
+* Wed Jun 1 2011 Jan F. Chadima <jchadima@redhat.com> - 2.1.23-22
+- repair rimap support (more packets in response)
+
+* Wed May 25 2011 Jan F. Chadima <jchadima@redhat.com> - 2.1.23-21
+- repair ntlm support
+
+* Mon May 23 2011 Jan F. Chadima <jchadima@redhat.com> - 2.1.23-20
+- add logging of the remote host via PAM
+
+* Thu Apr 28 2011 Jan F. Chadima <jchadima@redhat.com> - 2.1.23-19
+- temporarilly revert systemd units
+
+* Tue Apr 26 2011 Jan F. Chadima <jchadima@redhat.com> - 2.1.23-18
+- update scriptlets
+
+* Fri Apr 22 2011 Jan F. Chadima <jchadima@redhat.com> - 2.1.23-17
+- Add systemd units
+
+* Wed Mar 23 2011 Tomas Mraz <tmraz@redhat.com> - 2.1.23-16
+- Rebuilt with new mysqlclient
+
+* Fri Feb 25 2011 Jan F. Chadima <jchadima@redhat.com> - 2.1.23-15
+- set correct license tag
+- add ghost to /var/run/saslauthd
+
+* Tue Feb 08 2011 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 2.1.23-14
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_15_Mass_Rebuild
+
+* Fri Apr 9 2010 Jan F. Chadima <jchadima@redhat.com> - 2.1.23-13
+- Add /etc/tmpfiles.d element (#662734)
+
+* Fri Apr 9 2010 Jan F. Chadima <jchadima@redhat.com> - 2.1.23-12
+- Update init script to impeach pid file
+
+* Thu Mar 11 2010 Jan F. Chadima <jchadima@redhat.com> - 2.1.23-11
+- Update pre post preun and postun scripts (#572399)
+
+* Wed Mar 10 2010 Jan F. Chadima <jchadima@redhat.com> - 2.1.23-10
+- Rewrite spec file, make corect CFLAGS, CPPFLAGS and LDFLAGS
+
+* Mon Feb 22 2010 Jan F. Chadima <jchadima@redhat.com> - 2.1.23-9
+- solve race condition (#566875)
+
+* Wed Feb 17 2010 Stepan Kasal <skasal@redhat.com> - 2.1.23-8
+- improve m4 quoting to fix saslauthd/configure (#566088)
+- call autotools in build, not in prep
+
+* Fri Feb 5 2010 Jan F. Chadima <jchadima@redhat.com> - 2.1.23-7
+- Add man page to testtcpauthd (#526189)
+
+* Fri Oct 16 2009 Jan F. Chadima <jchadima@redhat.com> - 2.1.23-6
+- Create the saslauth user according to fedora packaging guide
+
+* Thu Sep 24 2009 Jan F. Chadima <jchadima@redhat.com> - 2.1.23-5
+- Repair initscript to make condrestart working properly (#522103)
+
+* Wed Sep 23 2009 Jan F. Chadima <jchadima@redhat.com> - 2.1.23-3
+- Add possibility to run the saslauth without root privilegies (#185614)
+
+* Fri Aug 21 2009 Tomas Mraz <tmraz@redhat.com> - 2.1.23-2
+- rebuilt with new openssl
+
+* Fri Aug 7 2009 Jan F. Chadima <jchadima@redhat.com> - 2.1.23-1
+- update to 2.1.23
+
+* Fri Jul 24 2009 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 2.1.22-25
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_12_Mass_Rebuild
+
+* Mon May 11 2009 Jan F. Chadima <jchadima@redhat.com> - 2.1.22-24
+- repair sasl_encode64 nul termination (#487251)
+
+* Thu Apr 16 2009 Robert Scheck <robert@fedoraproject.org> - 2.1.22-23
+- Don't build the krb4 plugin as krb5 1.7 will drop it (#225974 #c6)
+
+* Tue Feb 24 2009 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 2.1.22-22
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_11_Mass_Rebuild
+
+* Fri Feb 6 2009 Tomas Mraz <tmraz@redhat.com> - 2.1.22-21
+- fix build with gcc-4.4
+
+* Fri Jan 23 2009 Tomas Mraz <tmraz@redhat.com> - 2.1.22-20
+- set LDAP_OPT_TIMEOUT (#326452)
+- provide LSB compatible init script (#246900)
+
+* Fri Sep 26 2008 Tomas Mraz <tmraz@redhat.com> - 2.1.22-19
+- always use the current external db4 when linking,
+ thanks to Dan Horak for the original patch (#464098)
+
+* Wed Sep 10 2008 Tomas Mraz <tmraz@redhat.com> - 2.1.22-18
+- fix most critical build warnings (#433583)
+- use external db4
+
+* Fri Aug 29 2008 Tomas Mraz <tmraz@redhat.com> - 2.1.22-17
+- always link against the internal db4 (#459163)
+- rediff patches for no fuzz
+
+* Wed Jul 9 2008 Tomas Mraz <tmraz@redhat.com> - 2.1.22-16
+- update internal db4 (#449737)
+
+* Tue Jul 1 2008 Tomas Mraz <tmraz@redhat.com> - 2.1.22-15
+- drop reload from initscript help (#448154)
+- fix hang in rimap auth method (#438533)
+- build the krb4 plugin (#154675)
+
+* Fri May 23 2008 Dennis Gilmore <dennis@ausil.us> - 2.1.22-14
+- make it so that bootstrap actually works
+
+* Thu May 22 2008 Tom "spot" Callaway <tcallawa@redhat.com> - 2.1.22-13.1
+- minor release bump for sparc rebuild
+
+* Tue Feb 19 2008 Fedora Release Engineering <rel-eng@fedoraproject.org> - 2.1.22-13
+- Autorebuild for GCC 4.3
+
+* Thu Feb 14 2008 Steve Conklin <sconklin@redhat.com> - 2.1.22-12
+- rebuild for gcc4.3
+
+* Fri Jan 25 2008 Steve Conklin <sconklin@redhat.com> - 2.1.22-11
+- Cleanup after merge review bz #225673
+- no longer mark /etc/rc.d/init.d/saslauthd as config file
+- removed -x permissions on include files
+- added devel package dependency on cyrus-sasl
+- removed some remaining .la files that were being delivered
+
+* Wed Dec 05 2007 Release Engineering <rel-eng at fedoraproject dot org> - 2.1.22-10
+ - Rebuild for deps
+
+* Wed Nov 7 2007 Steve Conklin <sconklin@redhat.com> - 2.1.22-9
+- Fixed a typo in the spec file
+
+* Wed Nov 7 2007 Steve Conklin <sconklin@redhat.com> - 2.1.22-8
+- Removed srp plugin source and added dist to NVR
+
+* Tue Sep 18 2007 Steve Conklin <sconklin@redhat.com> 2.1.22-7
+- use db4 version 4.6.19 bz#249737
+
+* Mon Feb 26 2007 Nalin Dahyabhai <nalin@redhat.com> 2.1.22-6
+- install config files and init scripts using -p
+- pull in patch to build with current automake (#229010, Jacek Konieczny
+ and Robert Scheck)
+- remove prereq on ldconfig, RPM should pick it up based on the -libs
+ scriptlets
+- pull in patch to correctly detect gsskrb5_register_acceptor_identity
+ (#200892, Mirko Streckenbach)
+- move sasldb auxprop modules into the -lib subpackage, so that we'll pick
+ it up for multilib systems
+
+* Thu Feb 22 2007 Nalin Dahyabhai <nalin@redhat.com>
+- pull CVS fix for not tripping over extra commas in digest-md5
+ challenges (#229640)
+
+* Fri Feb 16 2007 Nalin Dahyabhai <nalin@redhat.com>
+- remove static build, which is no longer a useful option because not all of
+ our dependencies are available as static libraries
+- drop patches which were needed to keep static builds going
+- drop gssapi-generic patch due to lack of interest
+- update the bundled copy of db to 4.5.20 (#229012)
+- drop dbconverter-2, as we haven't bundled v1 libraries since FC4
+
+* Tue Dec 5 2006 Nalin Dahyabhai <nalin@redhat.com> 2.1.22-5
+- rebuild
+- add 'authentication' or 'auxprop' to summaries for plugin packages to
+ better indicate what the plugin provides
+- switch from automake 1.9 to automake 1.7
+
+* Fri Sep 29 2006 Nalin Dahyabhai <nalin@redhat.com> 2.1.22-4
+- rebuild without 'dlcompat' bits (#206119)
+
+* Mon Jul 17 2006 Nalin Dahyabhai <nalin@redhat.com> 2.1.22-3
+- rebuild
+
+* Tue Jun 20 2006 Nalin Dahyabhai <nalin@redhat.com> 2.1.22-2
+- fix a typo in sasl_client_start(3) (#196066)
+
+* Mon May 22 2006 Nalin Dahyabhai <nalin@redhat.com> 2.1.22-1
+- update to 2.1.22, adding pluginviewer to %%{_sbindir}
+
+* Tue May 16 2006 Nalin Dahyabhai <nalin@redhat.com> 2.1.21-12
+- add conditionalized build dependency on openldap-devel (#191855)
+- patch md5global.h to be the same on all architectures
+
+* Thu Apr 27 2006 Nalin Dahyabhai <nalin@redhat.com> 2.1.21-11
+- add unapplied patch which makes the DIGEST-MD5 plugin omit the realm
+ argument when the environment has $CYRUS_SASL_DIGEST_MD5_OMIT_REALM set to a
+ non-zero value, for testing purposes
+- add missing buildrequires on zlib-devel (#190113)
+
+* Mon Feb 20 2006 Nalin Dahyabhai <nalin@redhat.com> 2.1.21-10
+- add missing buildrequires on gdbm-devel (Karsten Hopp)
+
+* Fri Feb 10 2006 Jesse Keating <jkeating@redhat.com> - 2.1.21-9.2
+- bump again for double-long bug on ppc(64)
+
+* Tue Feb 07 2006 Jesse Keating <jkeating@redhat.com> - 2.1.21-9.1
+- rebuilt for new gcc4.1 snapshot and glibc changes
+
+* Mon Dec 19 2005 Nalin Dahyabhai <nalin@redhat.com> 2.1.21-9
+- use --as-needed to avoid linking dbconverter-2 with SQL libraries, which
+ it doesn't use because it manipulates files directly (#173321)
+
+* Fri Dec 09 2005 Jesse Keating <jkeating@redhat.com>
+- rebuilt
+
+* Mon Nov 14 2005 Nalin Dahyabhai <nalin@redhat.com> 2.1.21-8
+- rebuild with new OpenLDAP, overriding the version checks to assume that
+ 2.3.11 is acceptable
+- remove a lingering patch for 1.x which we no longer use
+
+* Sat Nov 12 2005 Tom Lane <tgl@redhat.com> 2.1.21-7
+- Rebuild due to mysql update.
+
+* Tue Nov 8 2005 Tomas Mraz <tmraz@redhat.com> 2.1.21-6
+- rebuilt with new openssl
+
+* Fri Sep 9 2005 Nalin Dahyabhai <nalin@redhat.com> 2.1.21-5
+- add missing buildrequires: on groff (#163032)
+
+* Thu Sep 1 2005 Nalin Dahyabhai <nalin@redhat.com> 2.1.21-4
+- move the ldapdb auxprop support into a subpackage (#167300)
+ (note: the ldap password check support in saslauthd doesn't use auxprop)
+
+* Tue Aug 30 2005 Nalin Dahyabhai <nalin@redhat.com> 2.1.21-3
+- correct a use of uninitialized memory in the bundled libdb (Arjan van de Ven)
+
+* Mon Aug 29 2005 Nalin Dahyabhai <nalin@redhat.com> 2.1.21-2
+- move the ANONYMOUS mech plugin to the -lib subpackage so that multilib
+ systems can use it without installing the main package
+- build the static libraries without sql auxprop support
+
+* Mon Aug 29 2005 Nalin Dahyabhai <nalin@redhat.com> 2.1.21-1
+- update to 2.1.21
+- turn off compilation of libsasl v1 (finally)
+- explicitly disable sqlite to avoid the build warning
+- change the default mechanism which is set for saslauthd from "shadow" to
+ "pam" (#159194)
+- split the shared library up from saslauthd so that multilib systems don't
+ have to pull in every dependency of saslauthd for the compat arch (#166749)
+
+* Wed Apr 13 2005 Nalin Dahyabhai <nalin@redhat.com> 2.1.20-5
+- rebuild with new deps
+
+* Tue Mar 1 2005 Nalin Dahyabhai <nalin@redhat.com> 2.1.20-4
+- rebuild with new deps
+
+* Thu Nov 11 2004 Jeff Johnson <jbj@jbj.org> 2.1.20-3
+- rebuild against db-4.3.21.
+
+* Thu Nov 11 2004 Nalin Dahyabhai <nalin@redhat.com> 2.1.20-2
+- build with mysql-devel instead of mysqlclient10
+
+* Mon Nov 1 2004 Nalin Dahyabhai <nalin@redhat.com> 2.1.20-1
+- build with mysqlclient10 instead of mysql-devel
+
+* Wed Oct 27 2004 Nalin Dahyabhai <nalin@redhat.com> 2.1.20-0
+- update to 2.1.20, including the fix for CAN-2004-0884
+
+* Tue Oct 5 2004 Nalin Dahyabhai <nalin@redhat.com> 2.1.19-3
+- use notting's fix for incorrect patch for CAN-2004-0884 for 1.5.28
+
+* Tue Oct 5 2004 Nalin Dahyabhai <nalin@redhat.com> 2.1.19-2
+- don't trust the environment in setuid/setgid contexts (CAN-2004-0884, #134660)
+
+* Thu Aug 19 2004 Nalin Dahyabhai <nalin@redhat.com> 2.1.19-1
+- rebuild (the 2.1.19 changelog for fixing a buffer overflow referred to a CVS
+ revision between 2.1.18 and 2.1.19)
+
+* Mon Jul 19 2004 Nalin Dahyabhai <nalin@redhat.com> 2.1.19-0
+- update to 2.1.19, maybe for update
+
+* Tue Jun 15 2004 Elliot Lee <sopwith@redhat.com>
+- rebuilt
+
+* Mon Jun 7 2004 Nalin Dahyabhai <nalin@redhat.com> 2.1.18-4
+- enable sql auxprop support in a subpackage
+- include LDAP_SASLAUTHD documentation file (#124830)
+
+* Fri Jun 4 2004 Nalin Dahyabhai <nalin@redhat.com>
+- turn on ntlm in a subpackage
+
+* Thu May 13 2004 Thomas Woerner <twoerner@redhat.com> 2.1.18-3
+- removed rpath
+
+* Tue Mar 16 2004 Nalin Dahyabhai <nalin@redhat.com> 2.1.18-2
+- turn on building of libsasl v1 again
+
+* Fri Mar 12 2004 Nalin Dahyabhai <nalin@redhat.com> 2.1.18-1
+- update to 2.1.18
+- saslauthd's ldap code is no longer marked experimental, so we build it
+
+* Mon Mar 8 2004 Nalin Dahyabhai <nalin@redhat.com> 2.1.17-4
+- rebuild
+
+* Tue Mar 02 2004 Elliot Lee <sopwith@redhat.com>
+- rebuilt
+
+* Fri Feb 13 2004 Elliot Lee <sopwith@redhat.com>
+- rebuilt
+
+* Tue Feb 3 2004 Nalin Dahyabhai <nalin@redhat.com> 2.1.17-2
+- include default /etc/sysconfig/saslauthd configuration file for the init
+ script (#114868)
+
+* Thu Jan 29 2004 Nalin Dahyabhai <nalin@redhat.com>
+- drop saslauthd_version patch for libsasl2
+
+* Thu Jan 29 2004 Nalin Dahyabhai <nalin@redhat.com>
+- add a saslauthd_version option to libsasl's saslauthd client and teach it to
+ do the right thing
+- enable the saslauthd client code in libsasl version 1 (it's still going away!)
+- add saslauthd1-checkpass/saslauthd2-checkpass for testing the above change
+
+* Wed Jan 7 2004 Nalin Dahyabhai <nalin@redhat.com> 2.1.17-1
+- forcibly disable otp and sql plugins at compile-time
+
+* Fri Dec 19 2003 Nalin Dahyabhai <nalin@redhat.com>
+- update to 2.1.17, forcing the gssapi plugin to be shared now, as before
+- use a bundled libdb (#112215)
+- build static-with-all-plugins and normal-shared libsasl versions
+- add sasl2-{shared,static}-mechlist for very basic sanity checking
+- make inclusion of sasl1 stuffs conditional, because it's so going away
+
+* Sat Dec 13 2003 Jeff Johnson <jbj@jbj.org> 2.1.15-7
+- rebuild against db-4.2.52.
+
+* Thu Oct 23 2003 Nalin Dahyabhai <nalin@redhat.com> 2.1.15-6
+- use /dev/urandom instead of /dev/random for SASL2 (docs indicate that this is
+ safe if you aren't using OTP or SRP, and we build neither); SASL1 appears to
+ use it to seed the libc RNG only (#103378)
+
+* Mon Oct 20 2003 Nalin Dahyabhai <nalin@redhat.com>
+- obey RPM_OPT_FLAGS again when krb5_prefix != %%{_prefix}
+
+* Fri Oct 17 2003 Nalin Dahyabhai <nalin@redhat.com> 2.1.15-5
+- install saslauthd's mdoc page instead of the pre-formatted man page, which
+ would get formatted again
+
+* Thu Sep 25 2003 Jeff Johnson <jbj@jbj.org> 2.1.15-5
+- rebuild against db-4.2.42.
+
+* Mon Sep 15 2003 Nalin Dahyabhai <nalin@redhat.com>
+- include testsaslauthd
+- note in the README that the saslauthd protocol is different for v1 and v2,
+ so v1's clients can't talk to the v2 server
+
+* Thu Aug 21 2003 Nalin Dahyabhai <nalin@redhat.com> 2.1.15-4
+- rebuild
+
+* Thu Aug 21 2003 Nalin Dahyabhai <nalin@redhat.com> 2.1.15-3
+- add logic to build with gssapi libs in either /usr or /usr/kerberos
+
+* Mon Jul 21 2003 Nalin Dahyabhai <nalin@redhat.com> 2.1.15-2
+- rebuild
+
+* Tue Jul 15 2003 Nalin Dahyabhai <nalin@redhat.com> 2.1.15-1
+- update to 2.1.15
+
+* Mon Jul 14 2003 Nalin Dahyabhai <nalin@redhat.com> 2.1.14-1
+- update to 2.1.14
+
+* Wed Jun 04 2003 Elliot Lee <sopwith@redhat.com>
+- rebuilt
+
+* Fri May 9 2003 Nalin Dahyabhai <nalin@redhat.com> 2.1.13-3
+- change -m argument to saslauthd to be a directory instead of a path
+
+* Thu May 8 2003 Nalin Dahyabhai <nalin@redhat.com> 2.1.13-2
+- link libsasl2 with -lpthread to ensure that the sasldb plug-in can always
+ be loaded
+
+* Tue Apr 29 2003 Nalin Dahyabhai <nalin@redhat.com> 2.1.13-1
+- update to 2.1.13
+
+* Wed Jan 22 2003 Tim Powers <timp@redhat.com>
+- rebuilt
+
+* Tue Jan 7 2003 Nalin Dahyabhai <nalin@redhat.com> 2.1.10-3
+- rebuild
+
+* Thu Dec 12 2002 Nalin Dahyabhai <nalin@redhat.com>
+- consider either des_cbc_encrypt or DES_cbc_encrypt to be sufficient when
+ searching for a DES implementation in libcrypto
+- pull in CPPFLAGS and LDFLAGS from openssl's pkg-config data, if it exists
+
+* Mon Dec 9 2002 Nalin Dahyabhai <nalin@redhat.com> 2.1.10-2
+- rebuild
+
+* Mon Dec 9 2002 Nalin Dahyabhai <nalin@redhat.com> 2.1.10-1
+- update to 2.1.10, fixing buffer overflows in libsasl2 noted by Timo Sirainen
+
+* Tue Nov 12 2002 Tim Powers <timp@redhat.com> 2.1.7-5
+- remove files from $RPM_BUILD_ROOT that we don't intend to include
+
+* Wed Oct 9 2002 Nalin Dahyabhai <nalin@redhat.com> 2.1.7-4
+- update to SASLv1 to final 1.5.28
+
+* Fri Sep 13 2002 Nalin Dahyabhai <nalin@redhat.com> 2.1.7-3
+- rebuild, overriding sasldir when running make so that on multilib systems
+ applications will be able to load modules for the right arch
+
+* Mon Sep 2 2002 Nalin Dahyabhai <nalin@redhat.com> 2.1.7-2
+- include dbconverter-2 (#68741)
+
+* Fri Aug 9 2002 Nalin Dahyabhai <nalin@redhat.com> 2.1.7-1
+- update to 2.1.7, fixing a race condition in digest-md5
+
+* Wed Jul 17 2002 Nalin Dahyabhai <nalin@redhat.com> 2.1.6-1
+- update to 2.1.6 and 1.5.28
+
+* Fri Jun 21 2002 Tim Powers <timp@redhat.com>
+- automated rebuild
+
+* Thu Jun 13 2002 Nalin Dahyabhai <nalin@redhat.com> 2.1.5-1
+- update to 2.1.5
+
+* Mon Jun 10 2002 Nalin Dahyabhai <nalin@redhat.com> 2.1.4-1
+- update to 2.1.4
+
+* Sun May 26 2002 Tim Powers <timp@redhat.com>
+- automated rebuild
+
+* Thu May 16 2002 Nalin Dahyabhai <nalin@redhat.com> 2.1.2-1
+- modify to build with db 4.x
+
+* Thu Apr 18 2002 Nalin Dahyabhai <nalin@redhat.com>
+- update cyrus-sasl 2 to 2.1.2
+- change buildreq to db3-devel
+
+* Tue Feb 12 2002 Nalin Dahyabhai <nalin@redhat.com> 2.1.1-3
+- suppress output to stdout/stderr in %%postun
+
+* Sun Feb 10 2002 Nalin Dahyabhai <nalin@redhat.com> 2.1.1-2
+- configure sasldb2 to use berkeley DB instead of gdbm
+
+* Wed Feb 6 2002 Nalin Dahyabhai <nalin@redhat.com> 2.1.1-1
+- update to 2.1.1
+
+* Thu Jan 31 2002 Nalin Dahyabhai <nalin@redhat.com> 2.1.0-1
+- marge 1.5.24 back in, making a note that it should be removed at some
+ point in the future
+
+* Wed Jan 30 2002 Nalin Dahyabhai <nalin@redhat.com>
+- update to 2.1.0, which is designed to be installed in parallel with cyrus sasl
+ 1.x, so fork the package and rename it to cyrus-sasl2
+- add the sasldb auxprop plugin to the main package
+- add disabled-by-default saslauthd init script
+- move the .la files for plugins into their respective packages -- they're
+ needed by the library
+
+* Wed Jan 23 2002 Nalin Dahyabhai <nalin@redhat.com> 1.5.24-24
+- free ride through the build system
+
+* Fri Nov 2 2001 Nalin Dahyabhai <nalin@redhat.com> 1.5.24-23
+- patch to fix possible syslog format-string vulnerability 
+
+* Mon Oct 29 2001 Nalin Dahyabhai <nalin@redhat.com> 1.5.24-22
+- add pam-devel as a buildprereq
+
+* Wed Aug 29 2001 Nalin Dahyabhai <nalin@redhat.com> 1.5.24-21
+- include sample programs in the -devel subpackage, prefixing their names
+ with "sasl-" to reduce future potential naming conflicts
+
+* Tue Aug 14 2001 Nalin Dahyabhai <nalin@redhat.com> 1.5.24-20
+- build without -ggdb
+
+* Fri Aug 3 2001 Nalin Dahyabhai <nalin@redhat.com>
+- add gdbm-devel as a build dependency (#44990)
+- split off CRAM-MD5 and DIGEST-MD5 into a subpackage of their own (#43079,
+ and dialogs with David L. Parsley)
+
+* Fri Apr 27 2001 Nalin Dahyabhai <nalin@redhat.com>
+- split out the PLAIN and LOGIN mechanisms into their own package (this allows
+ an administrator to disable them by simply removing the package)
+
+* Fri Jan 19 2001 Nalin Dahyabhai <nalin@redhat.com>
+- rebuild in new environment
+
+* Wed Dec 6 2000 Nalin Dahyabhai <nalin@redhat.com>
+- fix gssapi-over-tls
+
+* Fri Oct 27 2000 Nalin Dahyabhai <nalin@redhat.com>
+- enable static libraries, but always build with -fPIC
+
+* Wed Oct 25 2000 Nalin Dahyabhai <nalin@redhat.com>
+- make sure the version of 1.5.24 in the package matches the masters (#18968)
+
+* Mon Oct 9 2000 Nalin Dahyabhai <nalin@redhat.com>
+- re-add the libsasl.so symlink to the -devel package (oops)
+
+* Fri Oct 6 2000 Nalin Dahyabhai <nalin@redhat.com>
+- move .so files for modules to their respective packages -- they're not -devel
+ links meant for use by ld anyway
+
+* Thu Oct 5 2000 Nalin Dahyabhai <nalin@redhat.com>
+- split off -devel subpackage
+- add a -gssapi subpackage for the gssapi plugins
+
+* Wed Aug 16 2000 Nalin Dahyabhai <nalin@redhat.com>
+- fix the summary text
+
+* Sun Aug 13 2000 Nalin Dahyabhai <nalin@redhat.com>
+- re-enable arcfour and CRAM
+
+* Fri Aug 4 2000 Nalin Dahyabhai <nalin@redhat.com>
+- force use of gdbm for database files to avoid DB migration weirdness
+- enable login mechanism
+- disable gssapi until it can coexist peacefully with non-gssapi setups
+- actually do a make in the build section (#15410)
+
+* Fri Jul 21 2000 Nalin Dahyabhai <nalin@redhat.com>
+- update to 1.5.24
+
+* Wed Jul 12 2000 Prospector <bugzilla@redhat.com>
+- automatic rebuild
+
+* Tue Jun 27 2000 Nalin Dahyabhai <nalin@redhat.com>
+- rebuild in new environment (release 3)
+
+* Mon Jun 19 2000 Nalin Dahyabhai <nalin@redhat.com>
+- don't muck with syslogd in post
+- remove patch for db-3.0 wackiness, no longer needed
+
+* Thu Jun 8 2000 Nalin Dahyabhai <nalin@redhat.com>
+- FHS cleanup
+- don't strip anything by default
+
+* Fri Feb 11 2000 Tim Powers <timp@redhat.com>
+- fixed man pages not being gzipped
+
+* Tue Nov 16 1999 Tim Powers <timp@redhat.com>
+- incorporated changes from Mads Kiilerich
+- release number is 1, not mk1
+
+* Wed Nov 10 1999 Mads Kiilerich <mads@kiilerich.com>
+- updated to sasl 1.5.11
+- configure --disable-krb4 --without-rc4 --disable-cram 
+ because of missing libraries and pine having cram as default...
+- handle changing libsasl.so versions
+
+* Mon Aug 30 1999 Tim Powers <timp@redhat.com>
+- changed group
+
+* Fri Aug 13 1999 Tim Powers <timp@redhat.com>
+- first build for Powertools

cyrus-sasl-2.1.28-nodlcompatorsrp.tar.gz Added

make-no-dlcompatorsrp-tarball.sh Added

@@ -0,0 +1,41 @@
+#!/bin/bash -e
+#
+#  See https://github.com/cyrusimap/cyrus-sasl/releases for unmodified sources.
+#
+
+tmppath=`mktemp -d ${TMPDIR:-/tmp}/make-no-dlcompat-tarball-XXXXXX`
+if test -z "$tmppath" ; then
+	echo Error creating temporary directory.
+	exit 1
+fi
+trap "rm -fr $tmppath" EXIT
+
+initialdir=`pwd`
+
+for tarball in ${initialdir}/cyrus-sasl-*.tar.{gz,bz2} ; do
+	if ! test -s "$tarball" ; then
+		continue
+	fi
+	rm -fr $tmppath/*
+	pushd $tmppath > /dev/null
+	case "$tarball" in
+	*nodlcompat*)
+		: Do nothing.
+		;;
+	*.gz)
+		gzip  -dc "$tarball" | tar xf -
+		rm -fr cyrus-sasl-*/dlcompat*
+		rm -fr cyrus-sasl-*/plugins/srp*
+		tar cf - * | gzip  -9c > \
+		$initialdir/`basename $tarball .tar.gz`-nodlcompatorsrp.tar.gz
+		;;
+	*.bz2)
+		bzip2 -dc "$tarball" | tar xf -
+		rm -fr cyrus-sasl-*/dlcompat*
+		rm -fr cyrus-sasl-*/plugins/srp*
+		tar cf - * | bzip2 -9c > \
+		$initialdir/`basename $tarball .tar.bz2`-nodlcompatorsrp.tar.bz2
+		;;
+	esac
+	popd > /dev/null
+done

sasl-mechlist.c Added

@@ -0,0 +1,99 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+
+#include "sasl.h"
+
+static int
+my_getopt(void *context, const char *plugin_name,
+	 const char *option, const char **result, unsigned *len)
+{
+	if (result) {
+		*result = NULL;
+#if 0
+		fprintf(stderr, "Getopt plugin=%s%s%s/option=%s%s%s -> ",
+			plugin_name ? "\"" : "",
+			plugin_name ? plugin_name : "(null)",
+			plugin_name ? "\"" : "",
+			option ? "\"" : "",
+			option ? option : "(null)",
+			option ? "\"" : "");
+		fprintf(stderr, "'%s'.\n", *result ? *result : "");
+#endif
+	}
+	if (len) {
+		*len = 0;
+	}
+	return 0;
+}
+
+int
+main(int argc, char **argv)
+{
+	int ret, i;
+	const char *mechs, **globals;
+	sasl_callback_t callbacks = {
+		{SASL_CB_GETOPT, my_getopt, NULL},
+		{SASL_CB_LIST_END},
+	};
+	sasl_conn_t *connection;
+	char hostname512;
+
+	if ((argc > 1) && (argv10 == '-')) {
+		fprintf(stderr, "Usage: %s appname hostname \n", argv0);
+		return 0;
+	}
+
+	ret = sasl_server_init(callbacks, argc > 1 ? argv1 : "sasl-mechlist");
+	if (ret != SASL_OK) {
+		fprintf(stderr, "Error in sasl_server_init(): %s\n",
+			sasl_errstring(ret, NULL, NULL));
+	}
+
+	connection = NULL;
+	strcpy(hostname, "localhost");
+	gethostname(hostname, sizeof(hostname));
+	ret = sasl_server_new(argc > 2 ? argv2 : "host",
+			 hostname,
+			 NULL,
+			 NULL,
+			 NULL,
+			 callbacks,
+			 0,
+			 &connection);
+	if (ret != SASL_OK) {
+		fprintf(stderr, "Error in sasl_server_new(): %s\n",
+			sasl_errstring(ret, NULL, NULL));
+	}
+
+	ret = sasl_listmech(connection,
+			 getenv("USER") ? getenv("USER") : "root",
+			 "Available mechanisms: ",
+			 ",",
+			 "\n",
+			 &mechs,
+			 NULL,
+			 NULL);
+	if (ret != SASL_OK) {
+		fprintf(stderr, "Error in sasl_listmechs(): %s\n",
+			sasl_errstring(ret, NULL, NULL));
+	} else {
+		fprintf(stdout, "%s", mechs);
+	}
+
+	globals = sasl_global_listmech();
+	for (i = 0; (globals != NULL) && (globalsi != NULL); i++) {
+		if (i == 0) {
+			fprintf(stdout, "Library supports: ");
+		}
+		fprintf(stdout, "%s", globalsi);
+		if (globalsi + 1 != NULL) {
+			fprintf(stdout, ",");
+		} else {
+			fprintf(stdout, "\n");
+		}
+	}
+
+	return 0;
+}

saslauth.sysusers Added

saslauthd.service Added

saslauthd.sysconfig Added

Build Results
RPM Lint

Refresh

Submit package home:molle...interfell / guam-selfcontained to package Kolab:16:Testing / guam

guam.spec Changed

@@ -14,11 +14,13 @@
 %endif
 
 %{!?_unitdir: %global _unitdir /usr/lib/systemd/system}
+%{!?_erldir: %global _erldir /usr/lib64/erlang/}
+%{!?_erllibdir: %global _erllibdir /usr/lib64/erlang/lib}
 
 %define lock_version() %{1}%{?_isa} = %(rpm -q --queryformat "%%{VERSION}" %{1})
 
 Name: guam
-Version: 0.9.11
+Version: 0.9.12
 Release: 1%{?dist}
 Summary: A Smart Reverse IMAP Proxy
 
@@ -29,26 +31,18 @@
 Source0: guam-%{version}.tar.gz
 Source100: plesk.sys.config
 
-Patch9991: nodeps.patch
-
 BuildRequires: erlang >= 17.4
 BuildRequires: erlang-asn1
 BuildRequires: erlang-common_test
 BuildRequires: erlang-compiler
 BuildRequires: erlang-crypto
 BuildRequires: erlang-debugger
-BuildRequires: erlang-eimap >= 0.4.0
 BuildRequires: erlang-erts
 BuildRequires: erlang-et
-BuildRequires: erlang-goldrush >= 0.1.8
 BuildRequires: erlang-kernel
-BuildRequires: erlang-lager >= 3.1.0
-BuildRequires: erlang-lager_syslog >= 2.0.3
 BuildRequires: erlang-mnesia
 BuildRequires: erlang-observer
 BuildRequires: erlang-public_key
-BuildRequires: erlang-rebar3 >= 3.3.2
-BuildRequires: erlang-rpm-macros
 BuildRequires: erlang-runtime_tools
 BuildRequires: erlang-sasl
 BuildRequires: erlang-snmp
@@ -56,17 +50,11 @@
 BuildRequires: erlang-ssl
 BuildRequires: erlang-stdlib
 BuildRequires: erlang-syntax_tools
-BuildRequires: erlang-syslog >= 1.0.3
 BuildRequires: erlang-tools
 BuildRequires: erlang-wx
 BuildRequires: erlang-xmerl
 
-Requires: %lock_version erlang
-Requires: %lock_version erlang-eimap
-Requires: %lock_version erlang-goldrush
-Requires: %lock_version erlang-lager
-Requires: %lock_version erlang-lager_syslog
-
+Requires: erlang
 Requires: which
 
 %if 0%{?with_systemd}
@@ -95,17 +83,23 @@
 %prep
 %setup -q
 
-%patch9991 -p1
-
 %build
 
 DEBUG=1
 export DEBUG
 
+# Only available since hex v0.9.0
 HEX_OFFLINE=true
 export HEX_OFFLINE
 
-rebar3 release \
+REBAR_CACHE_DIR=cache/rebar3/
+export REBAR_CACHE_DIR
+
+# Rebuild all beam files (The otp version from the tarball may not match)
+rm -rf _build
+./rebar3 compile
+
+./rebar3 release \
 --dev-mode false \
 --relname %{name} \
 --relvsn %{version} \
@@ -119,7 +113,7 @@
 %{buildroot}%{_sysconfdir}/%{name}/ \
 %{buildroot}%{_sbindir} \
 %{buildroot}%{_erldir}/bin/ \
- %{buildroot}%{_erllibdir}/%{realname}-%{version}/ \
+ %{buildroot}%{_erllibdir}/ \
 %if 0%{?with_systemd}
 %{buildroot}%{_unitdir}/ \
 %else
@@ -146,10 +140,19 @@
 ln -s ../lib/%{realname}-%{version}/bin/%{binname} %{realname}
 popd
 
-cp -a _build/default/rel/%{name}/bin %{buildroot}%{_erllibdir}/%{realname}-%{version}/
-cp -a _build/default/rel/%{name}/lib/%{realname}-%{version}/ebin/ %{buildroot}%{_erllibdir}/%{realname}-%{version}/
-cp -a _build/default/rel/%{name}/releases/ %{buildroot}%{_erllibdir}/%{realname}-%{version}/
+mkdir -p %{buildroot}%{_erllibdir}/%{realname}-%{version}/bin/
+cp -av _build/default/rel/%{name}/bin/* %{buildroot}%{_erllibdir}/%{realname}-%{version}/bin/
 
+# Remove the sources
+find _build/default/rel/%{name}/lib/ -type d -name "src" -exec rm -Rf {} +
+
+# Copy over all lib dirs
+cp -av _build/default/rel/%{name}/lib/* %{buildroot}%{_erllibdir}/
+
+# Copy over the release directory as well
+cp -av _build/default/rel/%{name}/releases/ %{buildroot}%{_erllibdir}/%{realname}-%{version}/
+
+# More configuration
 %if 0%{?plesk}
 install -m 644 -p %{SOURCE100} %{buildroot}%{_sysconfdir}/guam/sys.config
 %endif
@@ -171,8 +174,18 @@
 EOF
 
 %check
-# Hopeless on -0.9
-rebar3 eunit -v || :
+
+DEBUG=1
+export DEBUG
+
+HEX_OFFLINE=true
+export HEX_OFFLINE
+
+REBAR_CACHE_DIR=cache/rebar3/
+export REBAR_CACHE_DIR
+
+./rebar3 eunit -v
+./rebar3 ct -v
 
 %postun
 %if 0%{?with_systemd}
@@ -214,7 +227,7 @@
 %config(noreplace) %{_sysconfdir}/%{name}/vm.args
 %attr(0750,root,root) %{_sbindir}/%{name}
 %{_libdir}/erlang/bin/%{realname}
-%{_libdir}/erlang/lib/%{realname}-%{version}
+%{_libdir}/erlang/lib/
 %attr(0640,root,root) %{_var}/log/%{name}/
 
 %if 0%{?with_systemd}
@@ -224,6 +237,9 @@
 %endif
 
 %changelog
+* Tue Apr 19 2022 Christian Mollekopf <mollekopf@apheleia-it.ch> - 0.9.12-1
+- Release of version 0.9.12
+
 * Mon Jun 07 2021 Christian Mollekopf <mollekopf@kolabsys.com> - 0.9.11-1
 - Release of version 0.9.11

nodeps.patch Deleted

README.md Added

buildtarball.sh Added

debian.changelog Changed

debian.control Changed

@@ -5,37 +5,17 @@
 Standards-Version: 3.9.6
 Build-Depends: debhelper (>= 10) | dh-systemd (>= 1.5),
 	erlang (>= 17.4),
-	erlang-eimap (>= 0.3.0),
-	erlang-goldrush (>= 0.2.0),
-	erlang-lager,
-	erlang-lager-syslog,
-	psa | bash,
-	erlang-rebar3 (>= 3.3.2)
+	psa | bash
 Homepage: https://kolab.org/about/guam
 
 Package: guam
 Architecture: any
 Section: mail
-Depends: ${misc:Depends}, ${dist:GuamDepends}
+Depends: erlang-base | erlang-base-hipe,
+    erlang-asn1,
+    erlang-inets,
+    erlang-public-key
+Conflicts: erlang-goldrush, erlang-eimap, erlang-lager, erlang-syslog
 Description: Smart Reverse IMAP Proxy
  Guam is a smart, unjustly outcast Reverse IMAP Proxy that lives at
  the perimeter of your IMAP environment.
-
-Package: guam-libs
-Architecture: any
-Section: mail
-Depends: ${misc:Depends}, ${dist:GuamLibDepends}
-Conflicts: guam-bundled-libs
-Description: Dependency meta-package for Guam
- This package pulls in all the library dependencies required to run Guam.
- Debian backports users who have a backported Erlang version may need to install
- guam-bundled-libs instead.
-
-Package: guam-bundled-libs
-Architecture: any
-Section: mail
-Depends: ${misc:Depends}, ${dist:GuamBundleDepends}
-Conflicts: guam-libs
-Description: Bundled runtime environment for Guam
- This is a support package for Debian backports users who have a backported
- Erlang version. All others should preferably use guam-libs.

debian.rules Changed

@@ -3,73 +3,49 @@
 include /usr/share/dpkg/pkg-info.mk
 
 DESTDIR = $(CURDIR)/debian/guam
-LIBDIR = $(CURDIR)/debian/guam-libs
-BUNDLEDIR = $(CURDIR)/debian/guam-bundled-libs
-
-# The versions of all dependencies are hardcoded by relx (which honestly sucks).
-# The following magic tries to ensure that the Debian package's dependencies are
-# pinned to the versions present on the build machine.
-# Usually, we pull in the package "guam-libs", which declares all the regular
-# dependencies and creates an appropriate "lib" symlink.
-# However, if the dependencies cannot be satisfied on the end user's machine -
-# for instance because a different Erlang version was installed from backports
-# - we make the package manager pull in an extra package "guam-bundled-libs"
-# that contains all the dependencies in the exact versions expected by relx.
-#
-# For maintainers, the bottom line is this: please revision-bump this package
-# every time one of its dependencies gets version-bumped.
-currver = $(shell dpkg-query -f '$${Version}' -W $(1) | sed 's/+-.*$$//')
-nextver = $(shell echo $(call currver,$(1)) | perl -pe 's/((\d+\.)*)(\d+)$$/$$1.($$3+1)/e')
-pinvermin = $(1) (>= $(call currver,$(1)))
-pinvermax = $(1) (<< $(call nextver,$(1)))
-pinver = $(call pinvermin,$(1)), $(call pinvermax,$(1))
-pinvererlmin = $(1) (>= $(call currver,erlang))
-pinvererlmax = $(1) (<< $(call nextver,erlang))
-
-# We ship these packages ourselves, so they don't need bundling
-KOLAB_PROVIDED_DEPS := $(call pinver,erlang-eimap), $(call pinver,erlang-lager-syslog)
-EIMAP_DIR := eimap-$(call currver,erlang-eimap)
-LAGER_SYSLOG_DIR := lager_syslog-$(call currver,erlang-lager-syslog)
-
-SUBSTVARS += -Vdist:GuamDepends="guam-libs (= $(DEB_VERSION)) | guam-bundled-libs (= $(DEB_VERSION))"
-SUBSTVARS += -Vdist:GuamLibDepends="$(call pinvererlmin,erlang-base) | $(call pinvererlmin,erlang-base-hipe), $(call pinvererlmax,erlang-base) | $(call pinvererlmax,erlang-base-hipe), $(KOLAB_PROVIDED_DEPS), $(call pinver,erlang-asn1), $(call pinver,erlang-goldrush), $(call pinver,erlang-inets), $(call pinver,erlang-lager), $(call pinver,erlang-public-key)"
-SUBSTVARS += -Vdist:GuamBundleDepends="$(KOLAB_PROVIDED_DEPS)"
 
 %:
 	dh $@ --with=systemd
 
 override_dh_auto_build:
-	sed -i -e 's/include_erts,\s*false/include_erts, true/' rebar.config
 	export DEBUG=1
-	export HEX_OFFLINE=1
+	export HEX_OFFLINE=true
+	export REBAR_CACHE_DIR="cache/rebar3/"
+
+	# Rebuild all beam files (The otp version from the tarball may not match)
+	rm -rf _build
+	./rebar3 compile
+
 	./rebar3 release \
 		--dev-mode false \
 		--relname guam \
 		--relvsn $(DEB_VERSION_UPSTREAM) \
 		--verbose
 
-
 override_dh_auto_clean:
-	./rebar3 clean || :
+ # do nothing, rebar3 clean would clear the artifacts that we need above
+ #./rebar3 clean || :
 
 override_dh_auto_test:
+	export DEBUG=1
+	export HEX_OFFLINE=true
+	export REBAR_CACHE_DIR="cache/rebar3/"
 	./rebar3 eunit -v || :
+	./rebar3 ct -v || :
 
 override_dh_auto_install:
-	mkdir -p $(DESTDIR)/usr/sbin $(DESTDIR)/etc/guam \
-		$(DESTDIR)/lib/systemd/system $(DESTDIR)/var/log/ \
+	mkdir -p $(DESTDIR)/usr/sbin \
+		$(DESTDIR)/etc/guam \
+		$(DESTDIR)/lib/systemd/system \
+		$(DESTDIR)/var/log/ \
 		$(DESTDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/ \
-		$(DESTDIR)/usr/lib/erlang/bin $(DESTDIR)/var/log/guam
+		$(DESTDIR)/usr/lib/erlang/bin \
+		$(DESTDIR)/var/log/guam
 	chmod o= $(DESTDIR)/var/log/guam
 
+	# Service scripts
 	install -p -m 644 contrib/guam.service \
-	 $(DESTDIR)/lib/systemd/system/guam.service
-
-	cp -a _build/default/rel/guam/bin \
-		$(DESTDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/
-
-	cp -a _build/default/rel/guam/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/ebin \
-		$(DESTDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/
+			$(DESTDIR)/lib/systemd/system/guam.service
 
 	rm _build/default/rel/guam/releases/$(DEB_VERSION_UPSTREAM)/sys.config
 	rm _build/default/rel/guam/releases/$(DEB_VERSION_UPSTREAM)/vm.args
@@ -77,6 +53,7 @@
 	cp -a _build/default/rel/guam/releases \
 		$(DESTDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/
 
+	# Configuration
 	if -f "/etc/plesk-release" ; then \
 		cp ../SOURCES/plesk.sys.config \
 			$(DESTDIR)/etc/guam/sys.config ; \
@@ -99,30 +76,25 @@
 
 	ln -s ../../../../../var/log/guam $(DESTDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/log
 
+	cp -a _build/default/rel/guam/bin \
+		$(DESTDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/
+
+	# Remove the sources
+	find _build/default/rel/guam/lib/ -type d -name "src" -exec rm -Rf {} +
+
+	# Copy over all lib dirs
+	cp -av _build/default/rel/guam/lib $(DESTDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/lib
+
+	# Copy over the release directory as well
+	cp -av _build/default/rel/guam/releases/ $(DESTDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/
+
 	echo '#!/bin/bash' > $(DESTDIR)/usr/sbin/guam
 	echo 'exec /usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/bin/guam $$*' \
-	 >> $(DESTDIR)/usr/sbin/guam
+		 >> $(DESTDIR)/usr/sbin/guam
 	chmod +x $(DESTDIR)/usr/sbin/guam
 
 	ln -s ../lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/bin/guam \
 		$(DESTDIR)/usr/lib/erlang/bin/kolab_guam
 
-	# Symlink for system-installed libraries
-	mkdir -p $(LIBDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)
-	ln -s ../../lib $(LIBDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/lib
-
-	# Bundled runtime system and libraries
-	mkdir -p $(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)
-	cp -a _build/default/rel/guam/erts-* \
-		$(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/
-	cp -a _build/default/rel/guam/lib \
-		$(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/
-	rm -r $(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)
-	ln -s .. $(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)
-	for dir in $(EIMAP_DIR) $(LAGER_SYSLOG_DIR); do \
-		rm -r $(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/lib/$$dir; \
-		ln -s ../../$$dir $(BUNDLEDIR)/usr/lib/erlang/lib/kolab_guam-$(DEB_VERSION_UPSTREAM)/lib/$$dir; \
-	done
-
 override_dh_gencontrol:
-	dh_gencontrol -- $(SUBSTVARS)
+	dh_gencontrol

debian.series Changed

guam-0.9.11.tar.gz/CHANGELOG.md -> guam-0.9.12.tar.gz/CHANGELOG.md Changed

guam-0.9.12.tar.gz/_checkouts Added

guam-0.9.12.tar.gz/_checkouts/eimap Added

guam-0.9.12.tar.gz/_checkouts/eimap/.arcconfig Added

guam-0.9.12.tar.gz/_checkouts/eimap/.erlang Added

guam-0.9.12.tar.gz/_checkouts/eimap/.gitignore Added

guam-0.9.12.tar.gz/_checkouts/eimap/CHANGELOG.md Added

@@ -0,0 +1,83 @@
+# Changelog
+All notable changes to this project will be documented in this file.
+
+This project adheres to Semantic Versioning(http://semver.org/).
+
+## Unreleased
+### Added
+### Changed
+### Deprecated
+### Removed
+### Fixed
+### Security
+
+## 0.4.6 - 2022-04-04
+### Added
+- split_lines/1 to split a binary into lines
+- split_lines_with_literals/1 to split a binary into lines, but leaving literals as part of a line
+### Changed
+- eimap_utils:num_literal_continuation_bytes now returns if bytes were found in addition to an integer
+
+## 0.4.5 - 2022-04-01
+### Fixed
+- 0-length literal support
+### Changed
+- eimap_utils:num_literal_continuation_bytes now returns none if there is no valid literal
+
+## 0.4.4 - 2021-05-31
+### Fixed
+- LITERAL+ support
+
+## 0.4.3 - 2020-10-28
+### Fixed
+- Throttle reading of responses if the target process's inbox is getting full.
+
+## 0.4.2 - 2020-04-24
+### Fixed
+- Workaround for metadata request breaking other commands (required for guam)
+
+## 0.4.1 - 2020-03-28
+### Added
+- Enabled tcp keepalive
+- Support for untagged commands
+
+## 0.4.0 - 2016-11-11
+### Added
+- optional timeout on eimap objects for server delay
+  passing in an integer command_timeout value to eimap:start_link
+  sets the timeout to that number of ms
+
+### Fixed
+- METADATA command parses multiple key/value returns correctly
+
+## 0.3.0 - 2016-07-29
+### Changed
+- moved to rebar3
+
+### Fixed
+- consistency in capabilities response parsing
+
+## 0.2.5 - 2016-07-04
+### Fixed
+- improved the capabilities response parsing
+
+## 0.2.4 - 2016-06-08
+This section contains the changes from 0.2.0 through 0.2.4
+### Added
+- NOOP command
+- support for automated interruption of passthrough state to send structured commands
+- commands receive server responses for commands they put into the queue
+
+### Changed
+- centralize core IMAP response handling and utils in eimap_command
+- support for multi-line, single-line and binary response command types
+- improved TLS support
+
+### Fixed
+- crash in GETMETADATA command when the Folder param is a list
+- Support more variations of the LIST command args in the filter_groupware rule
+- Prevent crashes (while maintaining simplicity) in session FSM by limiting
+  processcommandqueue messages in the mailbox to one
+- support for literals continuation
+- fixes for metadata fetching
+

guam-0.9.12.tar.gz/_checkouts/eimap/LICENSE Added

guam-0.9.12.tar.gz/_checkouts/eimap/Makefile Added

guam-0.9.12.tar.gz/_checkouts/eimap/README.md Added

@@ -0,0 +1,202 @@
+This is a basic IMAP client implementation written in Erlang.
+
+The API is not finalized, and is currently limited to the eimap module. Its
+current and only recognized use case is software intended to interact with a
+Kolab server environment which are written in Erlang. Expansion of that scope
+is welcome through community participation. However, currently the following
+disclaimer should be taken with seriousness:
+
+ USE AT YOUR OWN RISK. THINGS WILL CHANGE.
+
+The following is equally true, however:
+
+ CONTRIBUTIONS WELCOME. USAGE WELCOME.
+
+Usage
+=====
+
+To add eimap from your application, add the following line to the deps of rebar.config:
+
+ * rebar 2.x: { eimap, "*", {git, "git://git.kolab.org/diffusion/EI/eimap.git" } }
+ * rebar3: eimap
+
+
+
+There is no need to start the eimap application as it does not have any process
+or startup routines related to its usage. eimap does rely on lager being avilable,
+however.
+
+eimap Module
+============
+The eimap erlang module is the home of the primary API for the eimap library. It
+is a gen_fsm and should be started as a process in the normal Erlang/OTP manner for
+use.
+
+An eimap instance represents a single IMAP connection to a single IMAP server
+and is stateful: commands that are started may change the selected folder, for
+instance, and commands that are sent may be put into a command queue for subsequent
+execution depeding on the current state of the connection.
+
+Once started, an eimap process may be directed to connect to an imap server
+and then start with functions such as fetching path tokens:
+
+ ImapServerArgs = { host, "imap.acme.com" }, { port, 143 }, { tls, starttls } 
+ { ok, Imap } = eimap:start_link(ImapServerArgs),
+ eimap_imap:starttls(),
+ eimap_imap:login(Imap, self(), undefined, "username", "password"),
+ eimap_imap:connect(Imap),
+ eimap_imap:get_path_tokens(Imap, self(), get_path_tokens)
+
+The Imap server args is a simple proplist which allows one to set
+host, port and TLS settings. For TLS, the following values are supported:
+
+ * true: start a TLS session when opening the socket ("implicit TLS")
+ * starttls: start TLS via the STARTTLS IMAP command auomagically
+ * false: just open a regular connection; this is what you usually want, and
+ the client will call eimap:starttls/3 when it wishes to switch to
+ an encrypted connection
+
+The starttls, login and even get_path_tokens commands will be
+queued and sent to the IMAP server only when the connection has been established.
+This prevents having to wait for connection signals and lets you write what you
+intend to be executed with as few issues as possible.
+
+Commands are executed in the order they are queued, and they follow a consistent
+parametic pattern:
+
+ * the first parameter is the eimap PID returned by eimap:start_link/1
+ * the second parameter is the PID the response should be sent to as a message
+ * the third parameter is a token to send back with the response, allowing users
+ of eimap to track responses to specific commands; undefined is allowed and will
+ surpress the use of a response token
+ * .. additional parameters specific to the command, such as username and
+ password in the case of login
+
+Responses are sent as a normal message with the form:
+
+ Response
+ { Token, Resposne }
+
+The Token is the resposne token provided as the third parameter and may be anything.
+The Response depends on the given command, but will be a properly formed Erlang term
+representing the content of the response.
+
+Passthrough Mode
+================
+eimap supports a mode of operation which simply passes data between the user
+and the imap server blindly. This is known as "passthrough" mode and can be
+started and stopped with the start_passthrough/2 and stop_passthrough/1
+functions.
+
+Data is queued up for sending with the passthrough_data/2 function, and will be
+sent to the server as soon as possible.
+
+Responses are similarly sent back to the initiator of the passthrough mode
+for dispatch in the form of { imap_server_response, Data } messages. The receiver
+is the PID passed to start_passthrough/2 as the second parameter.
+
+As the user is entirely responsible for the traffic and thereby the state
+of the IMAP conenction during passthrough, exercise caution while using
+this mode.
+
+Any commands which are queued using eimap's command functions (logini/5,
+logout/3, etc) will interupt passthrough to run those commands. Once the queued
+commands have been cleared passthrough will restart auomatically.
+
+Commands
+========
+
+Individual commands are implemented in individual modules in the src/commands/
+directory, and this is the prefered mechanism for adding features to eimap.
+
+The API for commands is defined in src/eimap_command.erl as a behavior. Commands
+are expected to provide at least two functions:
+
+ new_command(Args) -> { Command, ResponseType }
+ create a command bitstring to be passed to the imap server and defines
+ the type of response for this command. Response types include
+ single_line_response, multiline_response, all_multiline_response
+ and blob_response.
+
+ Args is specific to the command, and some commands
+ ignore this parameter
+
+Single line response
+--------------------
+Commands which the IMAP server will respond to with a single line in return
+should use single_line_response and must implement formulate_response/2 which
+is passed the Data and the command Tag. This usually returns one of
+{ fini, Result } or { error, Reason }, though some special commands may return
+atoms which the eimap module responds to such as starttls.
+
+Multiline Response
+------------------
+This is the most common response type and is used when the IMAP server may
+respond with zero or more untagged responses and a final tagged response.
+
+Such commands must implement:
+
+ process_line/2 which is passed one line at a time (minus newlines)
+ and a list accumulator to add responses to
+
+ formulate_response/2 which is passed ok on success or an error tuple of 
+ { no|bad, Reason }. This should return either { fini, Response } or
+ { error, Reason } in most cases; and for that there is
+ eimap_command:formulate_response. Which means that for most commands
+ formulate_response/2 is implemented as:
+
+ formulate_response(Result, Response) -> eimap_command:formulate(Result, Response).
+
+Commands which are all_multiline_responses also must implement process_tagged_line/2
+which behaves exactly like process_line but which accepts the tagged response line
+from the IMAP server. This is useful for commands where useful information is also
+passed in the tagged response line. An example of this is the select/exmine
+commands.
+
+Unstructured (blob) responses
+-----------------------------
+Responses that do not follow the usual untagged/tagged line response pattern
+may use the blog_response type and implement parse/2 which will be passed
+the data as it arrives. The command is responsible for all buffer stitching
+across network packets, etc.
+
+In the case of partial responses, parse/2 may return { more, fun/3, State }.
+The State object allows preserving the parsing state and will be passed back to
+fun/3 in addition to the Data and Tag parameters.
+
+parse/2 (or the continuation fun/3) should return { fini, Result } when 
+successfully completed, or { error, Reason } when it fails. Only once either a
+fini or error tuple are returned will the eimap process move on to the next
+command queued.
+
+IMAP Utils
+==========
+
+eimap_utils provides a set of handy helpers for use when IMAP'ing your way
+across the network. These include folder path and UID set extractors, IMAP
+server response manipulators and misc utilities.
+
+Testing
+=======
+Tests can be run with `make tests` or `rebar eunit`.
+
+All new commands must be accompanied by tests in the test/ directory.
+
+Contributing
+============
+Maintainer: Aaron Seigo <aseigo@kolabsystems.com>
+Mailing list: devel@lists.kolab.com
+Project page: https://git.kolab.org/tag/eimap/
+
+This project uses the git flow workflow as described here:
+
+ http://nvie.com/posts/a-successful-git-branching-model/
+
+You can installed git flow from here:
+
+ https://github.com/nvie/gitflow
+
+Then initialize your local clone with `git flow init -d`.
+
+You can find the list of open tasks on the project page's workboard. Anything
+in the backlog is open to be worked on.

guam-0.9.12.tar.gz/_checkouts/eimap/rebar.config Added

guam-0.9.12.tar.gz/_checkouts/eimap/rebar3 Added

guam-0.9.12.tar.gz/_checkouts/eimap/src Added

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands Added

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_annotation.erl Added

@@ -0,0 +1,49 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_annotation).
+-behavior(eimap_command).
+-export(new_command/1, process_line/2, formulate_response/2).
+
+%% Public API
+new_command(Folder) when is_list(Folder) -> new_command(list_to_binary(Folder));
+new_command(Folder) -> { <<"GETANNOTATION \"", Folder/binary, "\" \"*\" \"value.shared\"">>, multiline_response }.
+
+process_line(<<" ", Data/binary>>, Acc) ->
+ process_line(Data, Acc);
+process_line(<<"* ANNOTATION ", Data/binary>>, Acc) ->
+ Pieces = binary:split(Data, <<"\"">>, global),
+ process_pieces(Pieces, Acc);
+process_line(<<>>, Acc) ->
+ Acc.
+
+formulate_response(Result, Data) -> eimap_command:formulate_response(Result, Data).
+
+%% Private API
+process_pieces(MBox, Key, _, _, _, Value, _, Acc) when MBox =/= <<>> -> { Key, translate(Value) } | Acc ;
+process_pieces(_, _MBox, _, Key, _, _, _, Value, _, Acc) -> { Key, translate(Value) } | Acc ;
+process_pieces(_, Acc) -> Acc.
+
+translate(<<"false">>) -> false;
+translate(<<"true">>) -> true;
+translate(Value) ->
+ try list_to_integer(binary_to_list(Value)) of
+ Number -> Number
+ catch
+ _:_ -> Value
+ end.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_capability.erl Added

@@ -0,0 +1,50 @@
+%% Copyright 2015 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_capability).
+-behavior(eimap_command).
+-export(new_command/1, process_line/2, formulate_response/2).
+
+%% http://tools.ietf.org/html/rfc2342
+
+%% Public API
+new_command(parse_serverid) -> { <<"CAPABILITY">>, single_line_response };
+new_command(_Args) -> { <<"CAPABILITY">>, multiline_response }.
+
+process_line(<<"* CAPABILITY ", Data/binary>>, _Acc) ->
+ Data;
+process_line(_Data, Acc) -> Acc.
+
+formulate_response(ok, Response) -> { fini, Response };
+formulate_response({ _, Reason }, _Data) -> { error, Reason };
+formulate_response(Data, Tag) -> parse_oneliner(eimap_utils:check_response_for_failure(Data, Tag),
+ eimap_utils:remove_tag_from_response(Data, Tag, check)).
+
+%% Private API
+% TODO: probably way too cyrus imap specific on the responses (capitalization, etc)
+% make generic with a nicer parser
+parse_oneliner(ok, <<"* OK CAPABILITY ", Data/binary>>) ->
+ % this is a server response on connect
+ { End, _ } = binary:match(Data, <<"">>),
+ { TextEnd, _ } = binary:match(Data, <<"\r\n">>),
+ Capabilities = binary:part(Data, { 0, End }),
+ ServerID = binary:part(Data, { End + 2, TextEnd - End - 2}),
+ { fini, { Capabilities, ServerID } };
+parse_oneliner({ _, Reason }, _Data) -> { error, Reason };
+parse_oneliner(_, Data) -> { fini, { Data, <<>> } }.
+
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_compress.erl Added

@@ -0,0 +1,32 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_compress).
+-behavior(eimap_command).
+-export(new_command/1, formulate_response/2).
+
+%% http://tools.ietf.org/html/rfc2342
+
+%% Public API
+new_command(_Args) -> { <<"COMPRESS DEFLATE">>, single_line_response }.
+
+formulate_response(Data, Tag) ->
+ case eimap_utils:check_response_for_failure(Data, Tag) of
+ ok -> compression_active;
+ { _, Reason } -> { error, Reason }
+ end.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_getmetadata.erl Added

@@ -0,0 +1,118 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_getmetadata).
+-behavior(eimap_command).
+-export(new_command/1, process_line/2, formulate_response/2).
+
+%% http://tools.ietf.org/html/rfc2342
+
+%% Public API
+new_command({ Folder }) -> new_command({ Folder, });
+new_command({ Folder, Attributes }) -> new_command({ Folder, Attributes, infinity, nomax });
+
+%% Depth and MaxSize are both optional arguments, so we have a 4-tuple version of new_command to accomodate this
+%% "Depth, Maxsize" could be replaced with a proplist of the form { depth, Depth }, { maxsize, MaxSize } but
+%% as this is an internal (to eimap) API there is little benefit for the performance cost
+new_command({ Folder, Attributes, Depth, MaxSize }) when is_list(Folder) -> new_command({ list_to_binary(Folder), Attributes, Depth, MaxSize });
+new_command({ Folder, Attributes, Depth, MaxSize }) ->
+ AttributesString = format_attributes(Attributes, <<>>),
+ DepthString = depth_param(Depth),
+ MaxSizeString = maxsize_param(MaxSize),
+ Command = metadata_command(DepthString, MaxSizeString, Folder, AttributesString),
+ { Command, multiline_response }.
+
+process_line(<<"* METADATA ", Details/binary>>, Acc) ->
+ Results = parse_folder(Details),
+ Results|Acc;
+process_line(_Line, Acc) -> Acc.
+
+formulate_response(Result, Data) -> eimap_command:formulate_response(Result, Data).
+
+%% Private API
+depth_param(infinity) -> <<"DEPTH infinity">>;
+depth_param(Depth) when is_integer(Depth) -> Bin = integer_to_binary(Depth), <<"DEPTH ", Bin/binary>>;
+depth_param(_) -> <<>>.
+
+maxsize_param(Size) when is_integer(Size) -> Bin = integer_to_binary(Size), <<"MAXSIZE ", Bin/binary>>;
+maxsize_param(_) -> <<>>.
+
+metadata_command(<<>>, <<>>, Folder, Attributes) -> <<"GETMETADATA \"", Folder/binary, "\"", Attributes/binary>>;
+metadata_command(Depth, <<>>, Folder, Attributes) -> <<"GETMETADATA (", Depth/binary, ") \"", Folder/binary, "\"", Attributes/binary>>;
+metadata_command(<<>>, MaxSize, Folder, Attributes) -> <<"GETMETADATA (", MaxSize/binary, ") \"", Folder/binary, "\"", Attributes/binary>>;
+metadata_command(Depth, MaxSize, Folder, Attributes) -> <<"GETMETADATA (", Depth/binary, " ", MaxSize/binary, ") \"", Folder/binary, "\"", Attributes/binary>>.
+
+format_attributes(, <<>>) -> <<>>;
+format_attributes(, String) -> <<" (", String/binary, ")">>;
+format_attributes(Attribute|Attributes, String) ->
+ AttrBin = case is_list(Attribute) of
+ true -> list_to_binary(Attribute);
+ false -> Attribute
+ end,
+ case String of
+ <<>> -> format_attributes(Attributes, AttrBin);
+ _ -> format_attributes(Attributes, <<String/binary, " ", AttrBin/binary>>)
+ end;
+format_attributes(_, _String) -> <<>>.
+
+parse_folder(<<"\"", Rest/binary>>) ->
+ { Folder, RemainingBuffer } = until_closing_quote(Rest),
+ Properties = parse_properties(RemainingBuffer),
+ { Folder, Properties };
+parse_folder(Buffer) ->
+ { FolderEnd, _ } = binary:match(Buffer, <<" ">>),
+ Folder = binary:part(Buffer, 0, FolderEnd),
+ Properties = parse_properties(binary:part(Buffer, FolderEnd, size(Buffer) - FolderEnd)),
+ { Folder, Properties }.
+
+parse_properties(Buffer) ->
+ { Start, _ } = binary:match(Buffer, <<"(">>),
+ { End, _ } = binary:match(Buffer, <<")">>),
+ Properties = binary:part(Buffer, Start + 1, End - Start - 1),
+ next_property(Properties, ).
+
+next_property(<<>>, Acc) -> Acc;
+next_property(<<$ ,Rest/binary>>, Acc) -> next_property(Rest, Acc);
+next_property(Buffer, Acc) ->
+ { KeyEnd, _ } = binary:match(Buffer, <<" ">>),
+ Key = binary:part(Buffer, 0, KeyEnd),
+ { Value, RemainingBuffer } = 
+ case next_value(binary:part(Buffer, KeyEnd + 1, size(Buffer) - KeyEnd - 1)) of
+ { <<"NIL">>, RBuffer } -> { null, RBuffer };
+ Rv -> Rv
+ end,
+ next_property(RemainingBuffer, { Key, Value }|Acc).
+
+next_value(<<"\"", Rest/binary>>) ->
+ until_closing_quote(Rest);
+next_value(Buffer) ->
+ case binary:match(Buffer, <<" ">>) of
+ nomatch -> { Buffer, <<>> };
+ { ValueEnd , _ } -> { binary:part(Buffer, 0, ValueEnd - 1), binary:part(Buffer, ValueEnd, size(Buffer) - ValueEnd) }
+ end.
+
+until_closing_quote(Buffer) -> until_closing_quote(Buffer, 0, binary:at(Buffer, 0), 0, <<>>).
+
+until_closing_quote(Buffer, Start, $\\, Pos, Acc) ->
+ Escaped = binary:at(Buffer, Pos + 1 ),
+ until_closing_quote(Buffer, Start, binary:at(Buffer, Pos + 2), Pos + 2, <<Acc/binary, Escaped>>);
+until_closing_quote(Buffer, Start, $", Pos, Acc) ->
+ { Acc, binary:part(Buffer, Start + Pos + 1, size(Buffer) - Start - Pos - 1) };
+until_closing_quote(Buffer, _Start, Char, Pos, Acc) when Pos =:= size(Buffer) - 1 ->
+ { <<Acc/binary, Char>>, <<>> };
+until_closing_quote(Buffer, Start, Char, Pos, Acc) ->
+ until_closing_quote(Buffer, Start, binary:at(Buffer, Pos + 1), Pos + 1, <<Acc/binary, Char>>).

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_login.erl Added

@@ -0,0 +1,35 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_login).
+-behavior(eimap_command).
+-export(new_command/1, process_line/2, formulate_response/2).
+
+%% http://tools.ietf.org/html/rfc2342
+
+%% Public API
+new_command({ User, Password }) ->
+ UserBin = eimap_utils:ensure_binary(User),
+ PasswordBin = eimap_utils:ensure_binary(Password),
+ { <<"LOGIN ", UserBin/binary, " ", PasswordBin/binary>>, multiline_response }.
+
+process_line(_Data, Acc) -> Acc.
+
+%% Private API
+formulate_response(ok, _Acc) -> { fini, authed };
+formulate_response({ _, Reason }, _Acc) -> { error, Reason }.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_logout.erl Added

@@ -0,0 +1,29 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_logout).
+-behavior(eimap_command).
+-export(new_command/1, process_line/2, formulate_response/2).
+
+%% Public API
+new_command(_Args) -> { <<"LOGOUT">>, multiline_response }.
+
+process_line(_Data, Acc) -> Acc.
+
+formulate_response(ok, _Data) -> { close_socket, ok };
+formulate_response({ _, Reason }, _Data) -> { close_socket, { error, Reason } }.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_namespace.erl Added

@@ -0,0 +1,74 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_namespace).
+-behavior(eimap_command).
+-export(new_command/1, process_line/2, formulate_response/2).
+
+%% http://tools.ietf.org/html/rfc2342
+
+%% Public API
+new_command(_Args) -> { <<"NAMESPACE">>, multiline_response }.
+
+process_line(<<"* NAMESPACE ", Data/binary>>, Acc) -> process_shared_prefix_parts(Data, 1)|Acc;
+process_line(_Line, Acc) -> Acc.
+
+
+formulate_response(ok, Acc) -> { fini, relevant_shared_prefix_parts(Acc) };
+formulate_response({ _, Reason }, _Acc) -> { error, Reason }.
+
+% Private API
+relevant_shared_prefix_parts() -> { none, none};
+relevant_shared_prefix_parts(, , _) -> { none, none };
+relevant_shared_prefix_parts(, Delim) -> { none, Delim };
+relevant_shared_prefix_parts(SharedPrefix, , _) -> { SharedPrefix, "/" };
+relevant_shared_prefix_parts(SharedPrefix, Delim) -> { SharedPrefix, Delim }.
+
+process_shared_prefix_parts(<<"NIL ", Data/binary>>, PartNumber) ->
+ process_shared_prefix_parts(Data, PartNumber + 1);
+process_shared_prefix_parts(<<"NIL", Data/binary>>, PartNumber) ->
+ process_shared_prefix_parts(Data, PartNumber + 1);
+process_shared_prefix_parts(<<"((", Data/binary>>, PartNumber) ->
+ process_shared_prefix_parts_inner(Data, , PartNumber);
+process_shared_prefix_parts(<<>>, _PartNumber) -> .
+
+process_shared_prefix_parts_inner(<<"))", _/binary>>, Acc, 3) ->
+ parse_shared_prefix_fields(lists:reverse(Acc), );
+process_shared_prefix_parts_inner(<<")) ", Data/binary>>, _Acc, N) ->
+ process_shared_prefix_parts(Data, N + 1);
+process_shared_prefix_parts_inner(<<Char, Data/binary>>, Acc, 3) ->
+ process_shared_prefix_parts_inner(Data, Char|Acc, 3);
+process_shared_prefix_parts_inner(<<_Char, Data/binary>>, Acc, N) ->
+ process_shared_prefix_parts_inner(Data, Acc, N);
+process_shared_prefix_parts_inner(<<>>, _Acc, _N) ->
+ .
+
+%%FIXME: naively assumes no "s in the values are allowed. is this correct?
+parse_shared_prefix_fields($"|Tail, Acc) ->
+ parse_shared_prefix_field_inner(Tail, , Acc);
+parse_shared_prefix_fields(_|Tail, Acc) ->
+ parse_shared_prefix_fields(Tail, Acc);
+parse_shared_prefix_fields(, Acc) ->
+ lists:reverse(Acc).
+
+parse_shared_prefix_field_inner($"|Tail, PartAcc, Acc) ->
+ parse_shared_prefix_fields(Tail, lists:reverse(PartAcc)|Acc);
+parse_shared_prefix_field_inner(Char|Tail, PartAcc, Acc) ->
+ parse_shared_prefix_field_inner(Tail, Char|PartAcc, Acc);
+parse_shared_prefix_field_inner(, _PartAcc, Acc) ->
+ Acc.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_noop.erl Added

@@ -0,0 +1,30 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_noop).
+-behavior(eimap_command).
+-export(new_command/1, process_line/2, formulate_response/2).
+
+%% https://tools.ietf.org/html/rfc3501#section-6.3.2
+
+%% Public API
+new_command(_) -> { <<"NOOP">>, multiline_response }.
+
+process_line(Data, Acc) -> eimap_command:process_status_line(Data, Acc).
+
+formulate_response(Response, Acc) -> eimap_command:formulate_response(Response, Acc).
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_peek_message.erl Added

@@ -0,0 +1,137 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_peek_message).
+-behavior(eimap_command).
+-export(new_command/1, parse/2, continue_parse/3).
+-record(parse_state, { body_size, parts, data }).
+-record(parts, { headers = <<"">>, body = <<"">>, flags = <<"">> }).
+
+%% https://tools.ietf.org/html/rfc3501#section-6.4.5
+
+%% Public API
+new_command(MessageID) when is_integer(MessageID) -> new_command(integer_to_binary(MessageID));
+new_command(MessageID) when is_binary(MessageID) -> { <<"UID FETCH ", MessageID/binary, " (FLAGS BODY.PEEKHEADER BODY.PEEKTEXT)">>, blob_response }.
+
+continue_parse(Data, _Tag, #parse_state{ body_size = Size, parts = Parts, data = PrevData }) ->
+ try_body_parse(<<PrevData/binary, Data/binary>>, Size, Parts).
+
+parse(Data, Tag) when is_binary(Data) ->
+ case eimap_utils:check_response_for_failure(Data, Tag) of
+ ok -> process_parts(get_past_headers(Data));
+ { _, Reason } -> { error, Reason }
+ end.
+
+%% Private API
+process_parts(#parts{ headers = Headers, flags = Flags, body = Body }) ->
+ { fini, { flags, binary:split(Flags, <<" ">>, global) },
+ { headers, filter_headers(binary:split(Headers, <<"\r\n">>, global)) },
+ { message, <<Headers/binary, Body/binary>> } };
+process_parts(Result) ->
+ Result.
+
+get_past_headers(<<" OK ", _Data/binary>>) -> #parts{};
+get_past_headers(<<" FETCH ", Data/binary>>) -> find_open_parens(Data);
+get_past_headers(<<_, Data/binary>>) -> get_past_headers(Data);
+get_past_headers(<<>>) -> { error, <<"Unparsable">> }.
+
+find_open_parens(<<$(, Data/binary>>) -> parse_next_component(Data, #parts{});
+find_open_parens(<<_, Data/binary>>) -> find_open_parens(Data).
+
+parse_next_component(<<"FLAGS (", Data/binary>>, Parts) ->
+ parse_flags(Data, Parts);
+parse_next_component(<<"BODYHEADER {", Data/binary>>, Parts) ->
+ parse_header(Data, Parts);
+parse_next_component(<<"BODYTEXT {", Data/binary>>, Parts) ->
+ parse_body(Data, Parts);
+parse_next_component(<<_, Data/binary>>, Parts) -> parse_next_component(Data, Parts);
+parse_next_component(<<"OK Completed", _/binary>>, Parts) -> Parts;
+parse_next_component(<<>>, Parts) -> Parts.
+
+parse_flags(Data, Parts) -> parse_flags(Data, Parts, Data, 0).
+parse_flags(OrigData, Parts, <<$), Rest/binary>>, Length) ->
+ FlagsString = binary:part(OrigData, 0, Length),
+ parse_next_component(Rest, Parts#parts{ flags = FlagsString });
+parse_flags(OrigData, Parts, <<_, Data/binary>>, Length) ->
+ parse_flags(OrigData, Parts, Data, Length + 1);
+parse_flags(_OrigData, Parts, <<>>, _Length) ->
+ Parts.
+
+parse_header(Data, Parts) -> parse_header(Data, Parts, Data, 0).
+parse_header(_OrigData, Parts, <<$}, Rest/binary>>, 0) ->
+ parse_next_component(Rest, Parts);
+parse_header(OrigData, Parts, <<$}, Rest/binary>>, Length) ->
+ ByteSizeString = binary:part(OrigData, 0, Length),
+ Size = binary_to_integer(ByteSizeString),
+ HeaderString = binary:part(Rest, 2, Size), %% the 2 is for \r\n
+ %%FIXME: make sure we have enough data loaded, otherwise continue
+ Remainder = binary:part(Rest, Size, byte_size(Rest) - Size),
+ parse_next_component(Remainder, Parts#parts{ headers = HeaderString });
+parse_header(OrigData, Parts, <<_, Rest/binary>>, Length) ->
+ parse_header(OrigData, Parts, Rest, Length + 1);
+parse_header(_OrigData, Parts, <<>>, _Length) ->
+ Parts.
+
+parse_body(Data, Parts) -> parse_body(Data, Parts, Data, 0).
+parse_body(_OrigData, Parts, <<$}, Rest/binary>>, 0) ->
+ parse_next_component(Rest, Parts);
+parse_body(OrigData, Parts, <<$}, Rest/binary>>, Length) ->
+ ByteSizeString = binary:part(OrigData, 0, Length),
+ Size = binary_to_integer(ByteSizeString),
+ %%lager:info("We have ... ~p ~p ~p", ByteSizeString, Size, byte_size(Rest)),
+ try_body_parse(Rest, Size, Parts);
+parse_body(OrigData, Parts, <<_, Rest/binary>>, Length) ->
+ parse_body(OrigData, Parts, Rest, Length + 1);
+parse_body(_OrigData, Parts, <<>>, _Length) ->
+ Parts.
+
+try_body_parse(Data, Size, Parts) ->
+ case Size > byte_size(Data) of
+ true ->
+ { more, fun ?MODULE:continue_parse/3, #parse_state{ body_size = Size, parts = Parts, data = Data } };
+ false ->
+ Body = binary:part(Data, 2, Size), %% the 2 is for \r\n
+ Remainder = binary:part(Data, Size, byte_size(Data) - Size),
+ process_parts(parse_next_component(Remainder, Parts#parts{ body = Body }))
+ end.
+
+filter_headers(RawHeaders) ->
+ filter_headers(RawHeaders, none, none, ).
+
+filter_headers(, CurrentKey, CurrentValue, Acc) ->
+ filter_header_add(CurrentKey, CurrentValue, Acc);
+filter_headers(<<>>|Headers, CurrentKey, CurrentValue, Acc) ->
+ filter_headers(Headers, CurrentKey, CurrentValue, Acc);
+filter_headers(Header|Headers, CurrentKey, CurrentValue, Acc) ->
+ filter_header(Headers, CurrentKey, CurrentValue, Acc, binary:split(Header, <<": ">>)).
+
+filter_header(Headers, CurrentKey, CurrentValue, Acc, Key, Value) ->
+ Added = filter_header_add(CurrentKey, CurrentValue, Acc),
+ filter_headers(Headers, Key, Value, Added);
+filter_header(Headers, none, _CurrentValue, Acc, _Value) ->
+ filter_headers(Headers, none, none, Acc);
+filter_header(Headers, CurrentKey, CurrentValue, Acc, Value) ->
+ %%TODO: get rid of tab, ensure "proper" whitespace
+ NewValue = <<CurrentValue/binary, Value/binary>>,
+ filter_headers(Headers, CurrentKey, NewValue, Acc).
+
+filter_header_add(CurrentKey, CurrentValue, Acc) when CurrentKey =/= none, CurrentValue =/= none ->
+ %%TODO: split CurrentValue on ','
+ { CurrentKey, CurrentValue } | Acc ;
+filter_header_add(_, _, Acc) ->
+ Acc.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_starttls.erl Added

@@ -0,0 +1,32 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_starttls).
+-behavior(eimap_command).
+-export(new_command/1, formulate_response/2).
+
+%% http://tools.ietf.org/html/rfc2342
+
+%% Public API
+new_command(_Args) -> { <<"STARTTLS">>, single_line_response }.
+
+formulate_response(Data, Tag) ->
+ case eimap_utils:check_response_for_failure(Data, Tag) of
+ ok -> starttls;
+ { _, Reason } -> { error, Reason }
+ end.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_status.erl Added

@@ -0,0 +1,78 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_status).
+-behavior(eimap_command).
+-export(new_command/1, process_line/2, formulate_response/2).
+
+% https://tools.ietf.org/html/rfc5464
+
+% supported attributes: messages, recent, uidnext, uidvalidity, unseen, annotate
+% Public API
+new_command({ Folder, Attributes }) when is_list(Folder) -> new_command({ list_to_binary(Folder), Attributes });
+new_command({ <<>>, Attributes}) -> new_command({ <<"INBOX">>, Attributes });
+new_command({ Folder, }) -> new_command({ Folder, messages });
+new_command({ Folder, Attributes }) when is_list(Attributes) ->
+ AttributesString = attribute_string(Attributes, <<>>),
+ { <<"STATUS ", Folder/binary, " (", AttributesString/binary, ")">>, multiline_response }.
+
+process_line(<<"* STATUS ", Data/binary>>, Acc) ->
+ process_status_items(binary:match(Data, <<"(">>),
+ binary:match(Data, <<")">>),
+ Data, Acc);
+process_line(_, Acc) -> Acc.
+
+formulate_response(Result, Data) -> eimap_command:formulate_response(Result, Data).
+
+%% Private API
+attribute_string(, <<>>) -> attribute_string(messages);
+attribute_string(, String) -> String;
+attribute_string(Attribute|Attributes, <<>>) -> 
+ Attr = attribute_string(Attribute),
+ attribute_string(Attributes, Attr);
+attribute_string(Attribute|Attributes, String) -> 
+ case attribute_string(Attribute) of
+ <<>> -> attribute_string(Attributes, String);
+ Attr -> attribute_string(Attributes, <<String/binary, " ", Attr/binary>>)
+ end.
+
+% Private API
+process_status_items(nomatch, _, _Data, Acc) -> Acc;
+process_status_items(_, nomatch, _Data, Acc) -> Acc;
+process_status_items({ Start, _ }, { End, _ }, Data, Acc) ->
+ Parts = binary:split(binary:part(Data, Start + 1, End - Start - 1), <<" ">>, global),
+ process_next_status_item(Parts, Acc).
+
+process_next_status_item(, Acc) -> Acc;
+process_next_status_item(_, Acc) -> Acc;
+process_next_status_item(Token, Value|Parts, Acc) ->
+ Tuple = { attribute_atom(Token), binary_to_integer(Value) },
+ process_next_status_item(Parts, Tuple|Acc).
+
+attribute_string(messages) -> <<"MESSAGES">>;
+attribute_string(recent) -> <<"RECENT">>;
+attribute_string(uidnext) -> <<"UIDNEXT">>;
+attribute_string(uidvalidity) -> <<"UIDVALIDITY">>;
+attribute_string(unseen) -> <<"UNSEEN">>;
+attribute_string(_) -> <<>>.
+
+attribute_atom(<<"MESSAGES">>) -> messages;
+attribute_atom(<<"RECENT">>) -> recent;
+attribute_atom(<<"UIDNEXT">>) -> uidnext;
+attribute_atom(<<"UIDVALIDITY">>) -> uidvalidity;
+attribute_atom(<<"UNSEEN">>) -> unseen.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/commands/eimap_command_switch_folder.erl Added

@@ -0,0 +1,65 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_switch_folder).
+-behavior(eimap_command).
+-export(new_command/1, process_line/2, process_tagged_line/2, formulate_response/2).
+
+%% https://tools.ietf.org/html/rfc3501#section-6.3.2
+
+%% Public API
+new_command({ MBox, Mechanism }) when is_list(MBox) -> new_command({ list_to_binary(MBox), Mechanism });
+new_command({ MBox, select }) -> new_command(MBox);
+new_command({ MBox, examine }) -> { <<"EXAMINE \"", MBox/binary, "\"">>, all_multiline_response };
+new_command(MBox) when is_list(MBox) -> new_command(list_to_binary(MBox));
+new_command(MBox) when is_binary(MBox) -> { <<"SELECT \"", MBox/binary, "\"">>, all_multiline_response }.
+
+%TODO: parse:
+% REQUIRED untagged responses: FLAGS, EXISTS, RECENT
+% REQUIRED OK untagged responses: UNSEEN, PERMANENTFLAGS, UIDNEXT, UIDVALIDITY
+process_line(<<"* OK ", Info/binary>>, Acc) ->
+ case binary:match(Info, <<"">>) of
+ nomatch -> Acc;
+ { ClosingBracket, _ } -> process_ok_response(binary:part(Info, 0, ClosingBracket), Acc)
+ end;
+process_line(<<"* FLAGS ", FlagString/binary>>, Acc) ->
+ Flags = eimap_utils:parse_flags(FlagString),
+ { flags, Flags }|Acc;
+process_line(<<"* ", Info/binary>>, Acc) ->
+ case binary:split(Info, <<" ">>) of
+ Value, Key -> { eimap_utils:binary_to_atom(Key), binary_to_integer(Value) }|Acc;
+ _ ->Acc
+ end;
+process_line(_Data, Acc) -> Acc.
+
+process_tagged_line(Data, Acc) ->
+ case binary:match(Data, <<"READ-WRITE">>) of
+ nomatch -> { writeable, false }|Acc;
+ _ -> { writeable, true}|Acc
+ end.
+
+formulate_response(Response, Acc) -> eimap_command:formulate_response(Response, Acc).
+
+%PRIVATE
+process_ok_response(<<"PERMANENTFLAGS ", FlagString/binary>>, Acc) -> { permanent_flags, eimap_utils:parse_flags(FlagString) }|Acc;
+process_ok_response(<<"UIDVALIDITY ", String/binary>>, Acc) -> { uid_validity, binary_to_integer(String) }|Acc;
+process_ok_response(<<"UIDNEXT ", String/binary>>, Acc) -> { uid_next, binary_to_integer(String) }|Acc;
+process_ok_response(<<"HIGHESTMODSEQ ", String/binary>>, Acc) -> { highest_mod_seq, binary_to_integer(String) }|Acc;
+process_ok_response(<<"URLMECH ", String/binary>>, Acc) -> { url_mech, eimap_utils:binary_to_atom(String) }|Acc; %TODO: this is very ugly
+process_ok_response(<<"ANNOTATIONS ", String/binary>>, Acc) -> { annotations, binary_to_integer(String) }|Acc;
+process_ok_response(String, Acc) -> lager:warning("eimap_command_select_folder: Unknown untagged OK response ~s~n", String), Acc.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/eimap.app.src Added

guam-0.9.12.tar.gz/_checkouts/eimap/src/eimap.erl Added

@@ -0,0 +1,533 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap).
+-behaviour(gen_fsm).
+
+%% API
+-export(start_link/1,
+ %% passthrough mode, where data is just sent to the server blindly and
+ %% responses passed back equally blindly. in this mode the user is on
+ %% their own and better know what they are doing. can only be activated
+ %% when disconnected or idle
+ start_passthrough/2, stop_passthrough/1, passthrough_data/2,
+ %% connection management
+ connect/1, connect/3, disconnect/1,
+ %% commands
+ starttls/3,
+ capabilities/3,
+ login/5, logout/3,
+ compress/1,
+ get_server_metadata/4, get_server_metadata/6,
+ get_folder_status/5,
+ get_folder_metadata/5, get_folder_metadata/7,
+ get_folder_annotations/4,
+ peek_message_headers_and_body/5,
+ get_path_tokens/3,
+ noop/3).
+
+%% gen_fsm callbacks
+-export(disconnected/2, idle/2, passthrough/2, wait_response/2, startingtls/2).
+-export(init/1, handle_event/3, handle_sync_event/4, handle_info/3, terminate/3, code_change/4).
+
+%% state record definition
+-record(state, { host, port, tls, tls_state = false, socket, server_id = <<>>,
+ command_serial = 1, command_queue = queue:new(),
+ current_command, current_mbox,
+ passthrough = false, passthrough_recv, passthrough_send_buffer = <<>>,
+ inflator, deflator, process_command_queue_guard = false,
+ command_timeout = infinity, command_timeout_timer = none }).
+-record(command, { tag, mbox, message, from, response_type, response_token, parse_state }).
+
+-define(SSL_UPGRADE_TIMEOUT, 5000).
+-define(TCP_CONNECT_TIMEOUT, 5000).
+-define(DEFAULT_COMMAND_TIMEOUT, infinity).
+
+%% public API
+start_link(Options) when is_list(Options) -> gen_fsm:start_link(?MODULE, Options, ).
+
+start_passthrough(PID, Receiver) when is_pid(Receiver) -> gen_fsm:send_all_state_event(PID, { start_passthrough, Receiver } ).
+stop_passthrough(PID) -> gen_fsm:send_all_state_event(PID, stop_passthrough).
+passthrough_data(PID, Data) when is_binary(Data) -> gen_fsm:send_all_state_event(PID, { passthrough, Data }).
+connect(PID) -> connect(PID, undefined, undefined).
+connect(PID, From, ResponseToken) -> gen_fsm:send_all_state_event(PID, { connect, From, ResponseToken }).
+disconnect(PID) -> gen_fsm:send_all_state_event(PID, disconnect).
+
+-spec compress(EImap :: pid()) -> ok.
+compress(EImap) when is_pid(EImap) ->
+ send_command_to_queue(EImap, EImap, compress, eimap_command_compress, ok).
+
+-spec starttls(EImap :: pid(), From :: pid(), ResponseToken :: any()) -> ok.
+starttls(EImap, From, ResponseToken) when is_pid(EImap) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_starttls, ok).
+
+-spec capabilities(EImap :: pid(), From :: pid(), ResponseToken :: any()) -> ok.
+capabilities(EImap, From, ResponseToken) when is_pid(EImap) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_capability, ok).
+
+-spec login(EImap :: pid(), From :: pid(), ResponseToken :: any(), User :: list() | binary(), Pass :: list() | binary()) -> ok.
+login(EImap, From, ResponseToken, User, Pass) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_login, { User, Pass }).
+
+-spec logout(EImap :: pid(), From :: pid(), ResponseToken :: any()) -> ok.
+logout(EImap, From, ResponseToken) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_logout, ok).
+
+-type status_property() :: messages | recent | uidnext | uidvalidity | unseen.
+-type status_properties() :: status_property().
+-spec get_folder_status(EImap :: pid(), From :: pid(), ResponseToken :: any(), Folder :: list() | binary(), Properties:: status_properties()) -> ok.
+get_folder_status(EImap, From, ResponseToken, Folder, Properties) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_status, { Folder, Properties }).
+
+-spec get_folder_metadata(EImap :: pid(), From :: pid(), ResponseToken :: any(), Folder :: list() | binary(), Properties:: list() | binary()) -> ok.
+get_folder_metadata(EImap, From, ResponseToken, Folder, Properties) ->
+ get_folder_metadata(EImap, From, ResponseToken, Folder, Properties, infinity, nomax).
+
+-spec get_folder_metadata(EImap :: pid(), From :: pid(), ResponseToken :: any(), Folder :: list() | binary(), Properties:: list() | binary(), Depth :: infinity | integer(), MaxSize :: nomax | integer()) -> ok.
+get_folder_metadata(EImap, From, ResponseToken, Folder, Properties, Depth, MaxSize) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_getmetadata, { Folder, Properties, Depth, MaxSize }).
+
+-spec get_server_metadata(EImap :: pid(), From :: pid(), ResponseToken :: any(), Properties:: list() | binary()) -> ok.
+get_server_metadata(EImap, From, ResponseToken, Properties) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_getmetadata, { <<>>, Properties, infinity, nomax }).
+
+-spec get_server_metadata(EImap :: pid(), From :: pid(), ResponseToken :: any(), Properties:: list() | binary(), Depth :: infinity | integer(), MaxSize :: nomax | integer()) -> ok.
+get_server_metadata(EImap, From, ResponseToken, Properties, Depth, MaxSize) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_getmetadata, { <<>>, Properties, Depth, MaxSize }).
+
+-spec get_folder_annotations(EImap :: pid(), From :: pid(), ResponseToken :: any(), Folder :: list() | binary()) -> ok.
+get_folder_annotations(EImap, From, ResponseToken, Folder) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_annotation, Folder).
+
+-spec peek_message_headers_and_body(EImap :: pid(), From :: pid(), ResponseToken :: any(), Folder :: list() | binary(), MessageID :: integer() | binary()) -> ok.
+peek_message_headers_and_body(EImap, From, ResponseToken, Folder, MessageID) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_peek_message, MessageID, Folder).
+
+-spec get_path_tokens(EImap :: pid(), From :: pid(), ResponseToken :: any()) -> ok.
+get_path_tokens(EImap, From, ResponseToken) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_namespace, ok).
+
+-spec noop(EImap :: pid(), From :: pid(), ResponseToken :: any()) -> ok.
+noop(EImap, From, ResponseToken) ->
+ send_command_to_queue(EImap, From, ResponseToken, eimap_command_noop, ok).
+
+
+%% gen_server API
+init(Options) ->
+ Host = proplists:get_value(host, Options, "127.0.0.1"),
+ Port = proplists:get_value(port, Options, 143),
+ TLS = proplists:get_value(tls, Options, false),
+ CommandTimeout = proplists:get_value(command_timeout, Options, ?DEFAULT_COMMAND_TIMEOUT),
+ State = #state { host = Host, port = Port, tls = TLS, command_timeout = CommandTimeout },
+ { ok, disconnected, State }.
+
+disconnected({ connect, Receiver, ResponseToken }, #state{ command_queue = CommandQueue, host = Host, port = Port, tls = TLS, socket = undefined } = State) ->
+ %lager:debug("CONNECTING! ~p ~p", Receiver, ResponseToken),
+ { {ok, Socket}, TlsState, SendCapabilitiesTo, NewCommandQueue } = create_socket(Host, Port, TLS, Receiver, ResponseToken, CommandQueue),
+ { Message, ResponseType } = eimap_command_capability:new_command(parse_serverid),
+ Command = #command{ message = Message, response_type = ResponseType,
+ from = SendCapabilitiesTo, response_token = { connected, Receiver, ResponseToken },
+ parse_state = eimap_command_capability },
+ { next_state, wait_response, State#state { socket = Socket, tls_state = TlsState, current_command = Command, command_queue = NewCommandQueue } };
+disconnected(Command, State) when is_record(Command, command) ->
+ { next_state, disconnected, enque_command(Command, State) }.
+
+
+%Throttle if the target process is getting overloaded.
+%This allows the socket buffers to fill up eventually,
+%so regular congestion control can kick in.
+throttle(Receiver, Limit) ->
+ {_, MessageQueueLength} = process_info(Receiver, message_queue_len),
+ if
+ MessageQueueLength > Limit ->
+ SleepDuration = trunc(MessageQueueLength / 2),
+ lager:debug("Throttling for ~p with queue length ~p", SleepDuration, MessageQueueLength),
+ timer:sleep(SleepDuration),
+ throttle(Receiver, Limit);
+ true -> false
+ end.
+
+passthrough(flush_passthrough_buffer, #state{ passthrough_send_buffer = Buffer } = State) ->
+ %lager:info("Passing through ~p", Buffer),
+ passthrough({ passthrough, Buffer }, State#state{ passthrough_send_buffer = <<>> });
+passthrough({ passthrough, Data }, #state{ socket = Socket, tls_state = true } = State) ->
+ %lager:info("Passing through ssl \"~s\"", Data),
+ ssl:send(Socket, deflated(Data, State)),
+ { next_state, passthrough, State };
+passthrough({ passthrough, Data }, #state{ socket = Socket } = State) ->
+ %lager:info("Passing through tcp \"~s\"", Data),
+ gen_tcp:send(Socket, deflated(Data, State)),
+ { next_state, passthrough, State };
+passthrough({ data, Data }, #state{ passthrough_recv = Receiver } = State) ->
+ %lager:info("Passing back ~p", Data),
+
+ throttle(Receiver, 100),
+ Receiver ! { imap_server_response, Data },
+ { next_state, passthrough, State };
+passthrough(Command, State) when is_record(Command, command) ->
+ NewState = ensure_process_command_queue(State),
+ { next_state, idle, enque_command(Command, NewState) }.
+
+idle(process_command_queue, #state{ command_queue = Queue } = State) ->
+ UnguardedState = State#state{ process_command_queue_guard = false },
+ case queue:out(Queue) of
+ { { value, Command }, ModifiedQueue } when is_record(Command, command) ->
+ %lager:info("Clearing queue of ~p", Command),
+ NewState = send_command(Command, UnguardedState#state{ command_queue = ModifiedQueue }),
+ { next_state, wait_response, NewState };
+ { empty, _ModifiedQueue } ->
+ NextState = next_state_after_emptied_queue(State),
+ { next_state, NextState, UnguardedState }
+ end;
+idle({ data, _Data }, State) ->
+ %%lager:info("Idling, server sent: ~p", _Data),
+ { next_state, idle, State };
+idle(Command, State) when is_record(Command, command) ->
+ %%lager:info("Idling"),
+ NewState = send_command(Command, State),
+ { next_state, wait_response, NewState };
+idle(_Event, State) ->
+ { next_state, idle, ensure_process_command_queue(State) }.
+
+
+next_state_after_emptied_queue(#state{ passthrough = true }) ->
+ gen_fsm:send_event(self(), flush_passthrough_buffer),
+ passthrough;
+next_state_after_emptied_queue(_State) ->
+ idle.
+
+ensure_process_command_queue(State) ->
+ case State#state.process_command_queue_guard of
+ true ->
+ State;
+ _ ->
+ gen_fsm:send_event(self(), process_command_queue),
+ State#state{ process_command_queue_guard = true }
+ end.
+
+%%TODO a variant that checks "#command{ from = undefined }" to avoid parsing responses which will go undelivered?
+wait_response(Command, State) when is_record(Command, command) ->
+ { next_state, wait_response, enque_command(Command, State) };
+wait_response({ data, _Data }, #state{ current_command = #command{ parse_state = undefined } } = State) ->
+ NewState = cancel_timeout(State),
+ { next_state, idle, ensure_process_command_queue(NewState) };
+wait_response({ data, Data }, #state{ current_command = #command{ response_type = ResponseType, parse_state = CommandState , tag = Tag } } = State) ->
+ Response = eimap_command:parse_response(ResponseType, Data, Tag, CommandState),
+ %%lager:info("Response from parser was ~p ~p, size of queue ~p", More, Response, queue:len(State#state.command_queue)),
+ % FIXME
+ % Because several commands can be in flight at the same time, it can happen that we have something like:
+ % * Client send: CMD1, CMD2 (triggering a request for metadata)
+ % * Because we immediately after processing CMD2 from the client request metadata and start waiting for the response,
+ % a response that actually still belongs to CMD1 will not be recognized as such (will end up in here).
+ %
+ % Below is a workaround for that case; If we fail to parse the repsonse we simply assume it's none of our business and pass it trough.
+ %
+ % For a proper fix more work would be required, here are some ideas:
+ % * Track pending tags and only start associating with this command once we have all outstanding tags completed. The problem is that we don't know about pending tags because normally we don't look for them while passing through.
+ % * Buffer data and watch out for any tag. If its not ours pass the data through (would result in performance penalty only while waiting for the command).
+ case Response of
+ {more,{<<>>,,_}} -> passthrough({data, Data}, State);
+ _ -> {}
+ end,
+ NewState = cancel_timeout(State),
+ next_command_after_response(Response, NewState);
+wait_response(process_command_queue, State) ->
+ % ignore this one, we'll get to it when the response comes
+ { next_state, wait_response, State }.
+
+startingtls({ passthrough, Data }, #state{ passthrough = true, passthrough_send_buffer = Buffer } = State) ->
+ { next_state, startingtls, State#state{ passthrough_send_buffer = <<Buffer/binary, Data>> } };
+startingtls(Command, State) when is_record(Command, command) ->
+ { next_state, startingtls, enque_command(Command, State) };
+startingtls({ data, Data }, #state{ current_command = #command{ response_type = ResponseType, parse_state = CommandState, tag = Tag } } = State) ->
+ Response = eimap_command:parse_response(ResponseType, Data, Tag, CommandState),
+ %%lager:info("Response from parser was ~p ~p, size of queue ~p", More, Response, queue:len(State#state.command_queue)),
+ next_command_after_response(Response, State).
+
+handle_event({ connect, _From, _ResponseToken } = Event, disconnected, State) ->
+ gen_fsm:send_event(self(), Event),
+ { next_state, disconnected, State };
+handle_event({ connect, _From, _ResponseToken }, _Statename, State) ->
+ %%lager:info("Already connected to IMAP server!"),
+ { next_state, _Statename, State };
+handle_event(disconnect, _StateName, State) ->
+ close_socket(State),
+ { next_state, disconnected, reset_state(State) };
+handle_event({ ready_command, Command }, StateName, State) when is_record(Command, command) ->
+ ?MODULE:StateName(Command, State);
+handle_event({ start_passthrough, Receiver }, StateName, State) ->
+ { next_state, StateName, State#state{ passthrough = true, passthrough_recv = Receiver } };
+handle_event(stop_passthrough, StateName, State) ->
+ { NextStateName, NewState } = case StateName of
+ passthrough -> { idle, ensure_process_command_queue(State) };
+ StateName -> { StateName, State }
+ end,
+ { next_state, NextStateName, NewState#state{ passthrough = false } };
+handle_event({ passthrough, Data }, passthrough, #state{ passthrough = true } = State) ->
+ ?MODULE:passthrough({ passthrough, Data }, State);
+handle_event({ passthrough, Data }, StateName, #state{ passthrough = true, passthrough_send_buffer = Buffer } = State) ->
+ NewBuffer = <<Buffer/binary, Data/binary>>,
+ NewState =
+ case StateName of
+ idle -> ensure_process_command_queue(State);
+ _ -> State
+ end,
+ { next_state, StateName, NewState#state{ passthrough_send_buffer = NewBuffer } };
+handle_event(_Event, StateName, State) -> { next_state, StateName, State}.
+
+handle_sync_event(_Event, _From, StateName, State) -> { next_state, StateName, State}.
+
+handle_info({ ssl, Socket, Bin }, StateName, #state{ socket = Socket } = State) ->
+ % Flow control: enable forwarding of next TCP message
+ ssl:setopts(Socket, { active, once }),
+ Data = inflated(Bin, State),
+ %lager:info("Received from server over ssl: ~s", Data),
+ ?MODULE:StateName({ data, Data }, State);
+handle_info({ tcp, Socket, Bin }, StateName, #state{ socket = Socket } = State) ->
+ % Flow control: enable forwarding of next TCP message
+ inet:setopts(Socket, { active, once }),
+ Data = inflated(Bin, State),
+ %lager:info("Received from server plaintext: ~s", Data),
+ ?MODULE:StateName({ data, Data }, State);
+handle_info({ ssl_closed, Socket }, _StateName, #state{ socket = Socket, host = Host, port = Port } = State) ->
+ lager:debug("~p Disconnected from ~p:~p .\n", self(), Host, Port),
+ { stop, normal, State };
+handle_info({ ssl_error, Socket, _Reason }, _StateName, #state{ socket = Socket, host = Host, port = Port } = State) ->
+ lager:info("~p Disconnected due to socket error from ~p:~p .\n", self(), Host, Port),
+ { stop, normal, State };
+handle_info({ tcp_closed, Socket }, _StateName, #state{ socket = Socket, host = Host, port = Port } = State) ->
+ lager:debug("~p Disconnected from ~p:~p .\n", self(), Host, Port),
+ { stop, normal, State };
+handle_info({ tcp_error, Socket, _Reason }, _StateName, #state{ socket = Socket, host = Host, port = Port } = State) ->
+ lager:info("~p Disconnected due to socket error from ~p:~p .\n", self(), Host, Port),
+ { stop, normal, State };
+handle_info({ { connected, Receiver, ResponseToken }, { Capabilities, ServerID } }, _StateName, #state{ passthrough = Passthrough, passthrough_recv = PassthroughReceiver, tls = TLS } = State) ->
+ case TLS of
+ starttls ->
+ % we do not pass through or notifty when we are going to automatically do a starttls
+ % this allows us to send the post-starttls capabilities triggering client activity
+ % only AFTER we have completely set up the connectiona, as that usually tends to
+ % alter the capabilities
+ %
+ % if the user of eimap does not want this behavior, they can starttls themselves
+ % explicitly
+ ok;
+ _ ->
+ %lager:debug("Connected, capabilities are: ~s; ServerID is ~s", Capabilities, ServerID),
+ send_hello_string(Capabilities, ServerID, Receiver, ResponseToken, Passthrough, PassthroughReceiver)
+ end,
+ { next_state, idle, State#state{ current_command = undefined, server_id = ServerID } };
+handle_info({ { posttls_capabilities, Receiver, ResponseToken }, Capabilities }, _StateName, #state{ server_id = ServerID, passthrough = Passthrough, passthrough_recv = PassthroughReceiver } = State) ->
+ send_hello_string(Capabilities, ServerID, Receiver, ResponseToken, Passthrough, PassthroughReceiver),
+ { next_state, idle, State#state{ current_command = none } };
+handle_info({ { selected, MBox }, ok }, StateName, State) ->
+ %%lager:info("~p Selected mbox ~p", self(), MBox),
+ { next_state, StateName, State#state{ current_mbox = MBox } };
+handle_info({ { selected, MBox }, { error, Reason } }, StateName, State) ->
+ lager:info("Failed to select mbox ~p: ~p", MBox, Reason),
+ NewQueue = queue:filter(fun(Command) -> notify_of_mbox_failure_during_filter(Command, Command#command.mbox =:= MBox) end, State#state.command_queue),
+ { next_state, StateName, State#state{ command_queue = NewQueue } };
+handle_info(starttls_complete, StateName, State) ->
+ %lager:info("STARTTLS completed successfully"),
+ { next_state, StateName, State };
+handle_info(response_timeout, _StateName, State) ->
+ { stop, normal, State };
+handle_info(Info, StateName, State) ->
+ lager:debug("handle_info called with unhandled info of ~p", Info),
+ { next_state, StateName, State }.
+
+terminate(_Reason, _Statename, State) -> close_socket(State), ok.
+
+code_change(_OldVsn, Statename, State, _Extra) -> { ok, Statename, State }.
+
+%% private API
+send_command_to_queue(EImap, From, ResponseToken, Module, Args) ->
+ send_command_to_queue(EImap, From, ResponseToken, Module, Args, undefined).
+send_command_to_queue(EImap, From, ResponseToken, Module, Args, Folder) ->
+ { Message, ResponseType } = Module:new_command(Args),
+ Command = #command{ mbox = Folder, message = Message, response_type = ResponseType,
+ from = From, response_token = ResponseToken,
+ parse_state = Module },
+ gen_fsm:send_all_state_event(EImap, { ready_command, Command }).
+
+send_hello_string(Capabilities, ServerId, Receiver, ResponseToken, Passthrough, PassthroughReceiver) ->
+ notify_of_response({ capabilities, Capabilities }, { server_id, ServerId } , Receiver, ResponseToken),
+ passthrough_capabilities(Capabilities, ServerId, Passthrough, PassthroughReceiver).
+
+passthrough_capabilities(Capabilities, ServerId, true, Receiver) ->
+ Message = <<"* OK CAPABILITY ", Capabilities/binary, " ", ServerId/binary, "\r\n">>,
+ Receiver ! { imap_server_response, Message };
+passthrough_capabilities(_Capabilities, _ServerId, _Passthrough, _Receiver) -> ok.
+
+notify_of_response(none, _Command) -> ok;
+notify_of_response(Response, #command { from = From, response_token = Token }) -> notify_of_response(Response, From, Token);
+notify_of_response(_, _) -> ok.
+
+notify_of_response(_Response, undefined, _Token) -> ok;
+notify_of_response(Response, From, undefined) -> From ! Response;
+notify_of_response(Response, From, Token) -> From ! { Token, Response }.
+
+%% the return is inverted for filtering
+notify_of_mbox_failure_during_filter(Command, true) -> notify_of_response({ error, mailboxnotfound }, Command), false;
+notify_of_mbox_failure_during_filter(_Command, false) -> true.
+
+next_command_after_response({ more, ParseState }, State) ->
+ { next_state, wait_response, State#state{ current_command = State#state.current_command#command{ parse_state = ParseState } } };
+next_command_after_response({ error, _ } = ErrorResponse, State) ->
+ notify_of_response(ErrorResponse, State#state.current_command),
+ NewState = ensure_process_command_queue(State),
+ { next_state, idle, NewState#state{ current_command = undefined } };
+next_command_after_response({ fini, Response }, State) ->
+ %lager:info("Notifying with ~p", State#state.current_command),
+ notify_of_response(Response, State#state.current_command),
+ NewState = ensure_process_command_queue(State),
+ { next_state, idle, NewState#state{ current_command = undefined } };
+next_command_after_response(starttls, State) ->
+ { TLSState, Socket } = upgrade_socket(State),
+ %lager:info("~p Upgraded the socket ...", self()),
+ NewState = ensure_process_command_queue(State),
+ { next_state, idle, NewState#state{ current_command = undefined, socket = Socket, tls_state = TLSState } };
+next_command_after_response(compression_active, State) ->
+ { Inflator, Deflator } = eimap_utils:new_imap_compressors(),
+ NewState = ensure_process_command_queue(State),
+ { next_state, idle, NewState#state{ current_command = undefined, inflator = Inflator, deflator = Deflator } };
+next_command_after_response({ close_socket, Response }, State) ->
+ notify_of_response(Response, State#state.current_command),
+ { stop, normal, State }.
+
+tag_field_width(Serial) when Serial < 10000 -> 4;
+tag_field_width(Serial) -> tag_field_width(Serial / 10000, 5).
+tag_field_width(Serial, Count) when Serial < 10 -> Count;
+tag_field_width(Serial, Count) -> tag_field_width(Serial / 10, Count + 1).
+
+create_socket(Host, Port, true, _Receiver, _ResponseToken, CommandQueue) ->
+ { ssl:connect(Host, Port, socket_options(), ?SSL_UPGRADE_TIMEOUT), true, self(), CommandQueue };
+create_socket(Host, Port, starttls, Receiver, ResponseToken, CommandQueue) ->
+ %lager:debug("Setting up the tls creation with ultimate end point of ~p ~p", Receiver, ResponseToken),
+ % we do an implicit TLS by adding a starttls command and then a capability command so we can
+ % pretend to the user that the socket just magically opened up like this.
+ %TODO: some duplicated code here; would be nice to clean this up a bit?
+ { TlsMessage, TlsResponseType } = eimap_command_starttls:new_command(ok),
+ TlsCommand = #command{ message = TlsMessage, response_type = TlsResponseType,
+ from = self(), response_token = undefined,
+ parse_state = eimap_command_starttls },
+ { CapMessage, CapResponseType } = eimap_command_capability:new_command(ok),
+ CapabilitiesCommand = #command{ message = CapMessage, response_type = CapResponseType,
+ from = self(), response_token = { posttls_capabilities, Receiver, ResponseToken },
+ parse_state = eimap_command_capability },
+ % note the use of queue:in_r to _prepend_ the commands so they get run first even if the user
+ % has pre-connection queued up commands
+ NewCommandQueue = queue:in_r(TlsCommand, queue:in_r(CapabilitiesCommand, CommandQueue)),
+ { gen_tcp:connect(Host, Port, socket_options(), ?TCP_CONNECT_TIMEOUT), false, self(), NewCommandQueue };
+create_socket(Host, Port, _, _Receiver, _ResponseToken, CommandQueue) ->
+ { gen_tcp:connect(Host, Port, socket_options(), ?TCP_CONNECT_TIMEOUT), false, self(), CommandQueue }.
+
+socket_options() -> binary, { active, once }, { send_timeout, 5000 }, { keepalive, true }.
+
+upgrade_socket(#state{ socket = Socket, tls_state = true, current_command = Command }) ->
+ notify_of_response(starttls_complete, Command),
+ ssl:setopts(Socket, { active, once }),
+ { true, Socket };
+upgrade_socket(#state{ socket = Socket, current_command = Command }) ->
+ %lager:debug("~p upgrading the server socket due to starttls"self()),
+ case ssl:connect(Socket, socket_options(), ?SSL_UPGRADE_TIMEOUT) of
+ { ok, SSLSocket } ->
+ %lager:info("~p it worked", self()),
+ notify_of_response(starttls_complete, Command),
+ ssl:setopts(SSLSocket, { active, once }),
+ { true, SSLSocket };
+ { error, Reason } ->
+ lager:warning("~p StartTLS failed due to: ~p", self(), Reason),
+ notify_of_response(starttls_failed, Command),
+ inet:setopts(Socket, { active, once }),
+ { false, Socket }
+ end.
+
+close_socket(#state{ socket = undefined }) -> false;
+close_socket(#state{ socket = Socket, tls_state = true }) -> ssl:close(Socket);
+close_socket(#state{ socket = Socket }) -> gen_tcp:close(Socket).
+
+reset_state(State) -> State#state{ socket = undefined, command_serial = 1 }.
+
+%% sending command code paths:
+%% 0. not connected, TLS/SSL, unencrypted
+%% 1. no mbox needed, mbox is already selected, mbox needs selecting
+send_command(Command, #state{ socket = undefined } = State) ->
+ lager:warning("Not connected, dropping command on floor: ~s", Command),
+ State;
+send_command(Command, #state{ tls_state = true} = State) ->
+ send_command(fun ssl:send/2, Command, State);
+send_command(Command, State) ->
+ send_command(fun gen_tcp:send/2, Command, State).
+
+send_command(SocketFun, #command{ mbox = undefined } = Command, State) ->
+ %%lager:info("~p SELECT_DEBUG issuing command without mbox: ~p", self(), Command#command.message),
+ send_command_now(SocketFun, Command, State);
+send_command(SocketFun, #command{ mbox = MBox } = Command, #state{ current_mbox = CurrentMbox } = State) ->
+ %%lager:info("~p SELECT_DEBUG issuing command with mbox ~p (current: ~p, equal -> ~p): ~p", self(), MBox, CurrentMbox, (MBox =:= CurrentMbox), Command#command.message),
+ send_command_or_select_mbox(SocketFun, Command, State, MBox, MBox =:= CurrentMbox).
+
+send_command_or_select_mbox(SocketFun, Command, State, _MBox, true) ->
+ send_command_now(SocketFun, Command, State);
+send_command_or_select_mbox(SocketFun, DelayedCommand, State, MBox, false) ->
+ NextState = reenque_command(DelayedCommand, State),
+ %TODO: this really should be SELECT rather than EXAMINE
+ { SelectMessage, ResponseType } = eimap_command_switch_folder:new_command(MBox),
+ SelectCommand = #command{ message = SelectMessage, response_type = ResponseType,
+ parse_state = eimap_command_switch_folder,
+ from = self(), response_token = { selected, MBox } },
+ %%lager:info("~p SELECT_DEBUG: Doing a select first ~p", self(), SelectMessage),
+ send_command_now(SocketFun, SelectCommand, NextState).
+
+send_command_now(SocketFun, #command{ message = Message } = Command, #state{ command_serial = Serial, socket = Socket } = State) ->
+ Tag = list_to_binary(io_lib:format("EG~*..0B", tag_field_width(Serial), Serial)),
+ Data = <<Tag/binary, " ", Message/binary, "\r\n">>,
+ %lager:info("Sending command via ~p: ~s", Fun, Data),
+ SocketFun(Socket, deflated(Data, State)),
+ StateWithTimeout = reset_timeout(State),
+ StateWithTimeout#state{ command_serial = Serial + 1, current_command = Command#command{ tag = Tag } }.
+
+enque_command(Command, State) ->
+ %%lager:info("Enqueuing command ~p", Command),
+ State#state { command_queue = queue:in(Command, State#state.command_queue) }.
+
+reenque_command(Command, State) ->
+ %%lager:info("Re-queueing command ~p", Command),
+ State#state { command_queue = queue:in_r(Command, State#state.command_queue) }.
+
+inflated(Data, #state{ inflator = undefined }) -> Data;
+inflated(Data, #state{ inflator = Inflator }) -> iolist_to_binary(zlib:inflate(Inflator, Data)).
+
+deflated(Data, #state{ deflator = undefined }) -> Data;
+deflated(Data, #state{ deflator = Deflator }) -> iolist_to_binary(zlib:deflate(Deflator, Data, sync)).
+
+reset_timeout(#state{ command_timeout = Timeout } = State) ->
+ cancel_timeout(State),
+ { ok, TimerRef } =
+ case Timeout of
+ Timeout when is_integer(Timeout), Timeout >= 0 ->
+ timer:send_after(Timeout, response_timeout);
+ _ ->
+ { ok, none }
+ end,
+ State#state{ command_timeout_timer = TimerRef }.
+
+cancel_timeout(#state{ command_timeout_timer = none } = State) -> State;
+cancel_timeout(#state{ command_timeout_timer = TimerRef } = State) ->
+ timer:cancel(TimerRef),
+ State#state{ command_timeout_timer = none }.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/eimap_command.erl Added

@@ -0,0 +1,78 @@
+-module(eimap_command).
+
+-export(
+ parse_response/4,
+ formulate_response/2,
+ process_status_line/2
+ ).
+
+-type more_tuple() :: { more, ParseContinuation :: parse_continuation(), State :: term }.
+-type finished_tuple() :: { fini, Results :: term }.
+-type error_tuple() :: { error, Reason :: binary() }.
+-type parse_continuation() :: fun((Data :: binary(), Tag :: binary(), State :: term()) ->
+ more_tuple() | finished_tuple() | error_tuple()).
+
+-callback new_command(Args :: any()) -> { binary(), single_line_response | multiline_reponse | blob_response }.
+% TODO:bring back when we can depend on OTP 18 which introduced optional_callback
+% also define parse/2 (for blob_response), formulate_response/2
+%-callback process_line(Data :: binary(), Acc :: any()) ->
+% more_tuple() | finished_tuple() | error_tuple() | starttls.
+
+parse_response(multiline_response, Data, Tag, ParseState) -> multiline_parse(false, Data, Tag, ParseState);
+parse_response(all_multiline_response, Data, Tag, ParseState) -> multiline_parse(parse_tagged, Data, Tag, ParseState);
+parse_response(single_line_response, Data, Tag, Module) -> Module:formulate_response(Data, Tag);
+parse_response(blob_response, Data, Tag, { Continuation, ParseState }) -> Continuation(Data, Tag, ParseState);
+parse_response(blob_response, Data, Tag, Module) ->
+ case Module:parse(Data, Tag) of
+ { more, Continuation, ParseState } -> { more, { Continuation, ParseState } };
+ Response -> Response
+ end.
+
+multiline_parse(ParseTaggedLine, Data, Tag, { LastPartialLine, Acc, Module }) ->
+ FullBuffer = <<LastPartialLine/binary, Data/binary>>,
+ { FullLinesBuffer, NewLastPartialLine } = eimap_utils:only_full_lines(FullBuffer),
+ Lines = binary:split(FullLinesBuffer, <<"\r\n">>, global),
+ process_lines(ParseTaggedLine, Tag, NewLastPartialLine, Lines, Acc, Module);
+multiline_parse(ParseTaggedLine, Data, Tag, Module) ->
+ multiline_parse(ParseTaggedLine, Data, Tag, { <<>>, , Module }).
+
+process_lines(_ParseTaggedLine, _Tag, LastPartialLine, , Acc, Module) -> { more, { LastPartialLine, Acc, Module } };
+process_lines(ParseTaggedLine, Tag, LastPartialLine, Line|MoreLines, Acc, Module) ->
+ { FirstLine, ContinuationBytes, Result } = eimap_utils:num_literal_continuation_bytes(Line),
+ process_line(Result, ContinuationBytes, ParseTaggedLine, eimap_utils:is_tagged_response(FirstLine, Tag), Tag, LastPartialLine, FirstLine, MoreLines, Acc, Module).
+
+
+process_line(Result, ContinuationBytes, ParseTaggedLine, IsTagged, Tag, LastPartialLine, Line, <<>>|MoreLines, Acc, Module) ->
+ %% skip empty lines
+ process_line(Result, ContinuationBytes, ParseTaggedLine, IsTagged, Tag, LastPartialLine, Line, MoreLines, Acc, Module);
+process_line(none, _ContinuationBytes, ParseTaggedLine, tagged, Tag, _LastPartialLine, Line, _MoreLines, Acc, Module) ->
+ Checked = eimap_utils:check_response_for_failure(Line, Tag),
+ Module:formulate_response(Checked, parse_tagged(Checked, ParseTaggedLine, Line, Acc, Module));
+ %io:format("Calling it here with ~p~n~n...", Line),
+process_line(none, _ContinuationBytes, ParseTaggedLine, untagged, Tag, LastPartialLine, Line, MoreLines, Acc, Module) ->
+ process_lines(ParseTaggedLine, Tag, LastPartialLine, MoreLines, Module:process_line(Line, Acc), Module);
+process_line(_Result, ContinuationBytes, ParseTaggedLine, _IsTagged, Tag, LastPartialLine, Line, , Acc, Module) ->
+ %% the line was continued, but there is no more lines ... so this line is now our last partial line. more must be on its way
+ io:format("Missing lines!~p~n~n", Acc),
+ BytesAsBinary = integer_to_binary(ContinuationBytes),
+ process_lines(ParseTaggedLine, Tag, <<Line/binary, ${, BytesAsBinary/binary, $}, LastPartialLine/binary>>, , Acc, Module);
+process_line(_Result, _ContinuationBytes, ParseTaggedLine, IsTagged, Tag, LastPartialLine, Line, NextLine|MoreLines, Acc, Module) ->
+ { StrippedNextLine, NextContinuationBytes, Result } = eimap_utils:num_literal_continuation_bytes(NextLine),
+ io:format("Connected up the next line: ~p ~i~n", StrippedNextLine, NextContinuationBytes),
+ FullLine = <<Line/binary, StrippedNextLine/binary>>,
+ process_line(Result, NextContinuationBytes, ParseTaggedLine, IsTagged, Tag, LastPartialLine, FullLine, MoreLines, Acc, Module).
+
+formulate_response(ok, Data) -> { fini, Data };
+formulate_response({ _, Reason }, _Data) -> { error, Reason }.
+
+parse_tagged(_, false, _Line, Acc, _Module) -> Acc; % we are not passing the tagged line forward (no content, e.g)
+parse_tagged(ok, _, Line, Acc, Module) -> Module:process_tagged_line(Line, Acc); % success, so pass it forward
+parse_tagged(_Checked, _ParsedTaggedLine, _Line, Acc, _Module) -> Acc. % error, don't bother passing it forward
+
+-spec process_status_line(Line :: binary(), Acc :: list()) -> NewAcc :: list().
+process_status_line(<<"* ", Rest/binary>>, Acc) -> process_matched_status_line(binary:split(Rest, <<" ">>, global), Acc);
+process_status_line(_, Acc) -> Acc.
+
+process_matched_status_line(Number, Key|_, Acc) -> { eimap_utils:binary_to_atom(Key), binary_to_integer(Number) }|Acc;
+process_matched_status_line(_, Acc) -> Acc.
+

guam-0.9.12.tar.gz/_checkouts/eimap/src/eimap_uidset.erl Added

@@ -0,0 +1,80 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_uidset).
+-export(uid_list_to_binary/1, empty_uidset/0, parse/1, next_uid/1).
+
+% for internal use only
+-export(add_uid_as_binary_to_list/2, stitch_bin_list/2).
+
+%% tokens have the form: integer | { integer, integer }
+-record(uidset, { tokens = , current = none }).
+
+uid_list_to_binary(UidList) when is_list(UidList) ->
+ ListOfBins = lists:foldl(fun ?MODULE:add_uid_as_binary_to_list/2, , UidList),
+ lists:foldl(fun ?MODULE:stitch_bin_list/2, <<>>, ListOfBins);
+uid_list_to_binary(_UidList) -> <<>>.
+
+parse(UidSet) when is_list(UidSet) -> parse(list_to_binary(UidSet));
+parse(<<>>) -> badarg;
+parse(UidSet) when is_binary(UidSet) ->
+ Components = binary:split(UidSet, <<",">>, global),
+ try lists:foldl(fun(Component, Acc) -> add_component(binary:split(Component, <<":">>), Acc) end, , Components) of
+ Parsed -> #uidset{ tokens = lists:reverse(Parsed) }
+ catch
+ _:_ -> badarg
+ end.
+
+empty_uidset() -> #uidset{}.
+
+next_uid(#uidset{ tokens = Tokens, current = Current }) -> next_uid(Tokens, Current).
+next_uid(, _Current) -> { none, #uidset {} };
+next_uid({ First, Second }|_ = FullList, Current) -> next_in_range(FullList, First, Second, Current);
+next_uid(Uid|UidSet, _Current) -> { Uid, #uidset{ tokens = UidSet } }.
+
+% PRIVATE API
+add_uid_as_binary_to_list(Uid, Acc) when is_integer(Uid), Uid >= 0 -> integer_to_binary(Uid)|Acc;
+add_uid_as_binary_to_list({ StartUid, EndUid }, Acc) when is_integer(StartUid), is_integer(EndUid) ->
+ case add_uid_range_as_binary_to_list(StartUid, EndUid) of
+ error -> Acc;
+ { Start, End } -> <<Start/binary, ":", End/binary>>|Acc
+ end;
+add_uid_as_binary_to_list(_, Acc) -> Acc.
+
+add_uid_range_as_binary_to_list(Start, End) when Start < 0; End < 0 -> error;
+add_uid_range_as_binary_to_list(Start, End) when Start < End -> { integer_to_binary(Start), integer_to_binary(End) };
+add_uid_range_as_binary_to_list(Start, End) -> { integer_to_binary(End), integer_to_binary(Start) }.
+
+stitch_bin_list(Uid, <<>>) -> Uid;
+stitch_bin_list(Uid, Acc) -> <<Uid/binary, ",", Acc/binary>>.
+
+add_component(Uid, Acc) when is_integer(Uid), Uid >= 0 -> Uid|Acc;
+add_component(First, Second, Acc) -> add_component(binary_to_integer(First), binary_to_integer(Second), Acc);
+add_component(<<"">>, Acc) -> Acc;
+add_component(Single, Acc) when is_binary(Single) -> add_component(binary_to_integer(Single), Acc);
+add_component(_, _Acc) -> throw(badarg).
+
+add_component(First, Second, Acc) when is_integer(First), First >= 0, is_integer(Second), Second >= 0 -> add_range(First, Second, Acc);
+add_component(_, _, _Acc) -> throw(badarg).
+
+add_range(First, Second, Acc) when First == Second -> First|Acc;
+add_range(First, Second, Acc) -> { First, Second }|Acc.
+
+next_in_range(Tokens, First, _Second, none) -> { First, #uidset{ tokens = Tokens, current = First } };
+next_in_range(Tokens, First, Second, Current) when First < Second, Current < Second -> Next = Current + 1, { Next, #uidset{ tokens = Tokens, current = Next } };
+next_in_range(Tokens, First, Second, Current) when First > Second, Current > Second -> Next = Current - 1, { Next, #uidset{ tokens = Tokens, current = Next } };
+next_in_range(_|Tokens, _First, _Second, _Current) -> next_uid(#uidset{ tokens = Tokens }).

guam-0.9.12.tar.gz/_checkouts/eimap/src/eimap_utils.erl Added

@@ -0,0 +1,292 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_utils).
+-export(
+ extract_path_from_uri/3, extract_uidset_from_uri/1,
+ split_command_into_components/1, is_tagged_response/2, remove_tag_from_response/3,
+ header_name/1, parse_flags/1,
+ check_response_for_failure/2,
+ ensure_binary/1,
+ new_imap_compressors/0,
+ only_full_lines/1,
+ binary_to_atom/1,
+ num_literal_continuation_bytes/1,
+ split_lines/1,
+ split_lines_with_literals/1
+ ).
+
+%% Translate the folder name in to a fully qualified folder path such as it
+%% would be used by a cyrus administrator.
+-spec extract_path_from_uri(SharedPrefix :: binary(), HierarchyDelim :: binary, URI :: binary()) -> Path :: binary() | bad_uri.
+extract_path_from_uri(SharedPrefix, HierarchyDelim, URI) when is_binary(URI) ->
+ extract_path_from_uri(SharedPrefix, HierarchyDelim, binary_to_list(URI));
+extract_path_from_uri(SharedPrefix, HierarchyDelim, URI) when is_list(URI) ->
+ %%lager:info("Parsing ~p", URI),
+ SchemeDefaults = { imap, 143 }, { imaps, 993 },
+ ParseOpts = { scheme_defaults, SchemeDefaults } ,
+ case imap_folder_path(SharedPrefix, HierarchyDelim, http_uri:parse(URI, ParseOpts)) of
+ Path when is_list(Path) -> list_to_binary(Path);
+ Error -> Error
+ end.
+
+-spec extract_uidset_from_uri(URI :: binary()) -> UIDSet:: binary().
+extract_uidset_from_uri(URI) when is_binary(URI) ->
+ { TagStart, TagEnd } = binary:match(URI, <<";UID=">>),
+ UIDStart = TagStart + TagEnd + 1,
+ UriLength = byte_size(URI),
+ case binary:match(URI, <<";">>, { scope, { UIDStart, UriLength - UIDStart } }) of
+ nomatch -> binary:part(URI, UIDStart - 1, UriLength - UIDStart + 1);
+ { Semicolon, _ } -> binary:part(URI, UIDStart - 1, Semicolon - UIDStart + 1)
+ end.
+
+-spec header_name(mailbox_uid | groupware_uid | groupware_uid) -> binary(); (any()) -> unknown.
+header_name(mailbox_uid) -> <<"/vendor/cmu/cyrus-imapd/uniqueid">>;
+header_name(groupware_type) -> <<"X-Kolab-Type">>;
+header_name(groupware_uid) -> <<"Subject">>;
+header_name(_) -> unknown.
+
+-spec parse_flags(FlagString :: binary() | list()) -> Flags :: binary().
+parse_flags(String) when is_list(String) -> parse_flags(list_to_binary(String));
+parse_flags(<<"(", Parened/binary>>) ->
+ case binary:match(Parened, <<")">>) of
+ nomatch -> ;
+ { ClosingParens, _ } -> parse_flags(binary_part(Parened, 0, ClosingParens))
+ end;
+parse_flags(<<>>) -> ;
+parse_flags(FlagString) when is_binary(FlagString) ->
+ binary:split(FlagString, <<" ">>, global).
+
+-spec check_response_for_failure(Data :: binary(), Tag :: undefined | binary()) -> ok | { error, Reason :: binary() }.
+check_response_for_failure(Data, undefined) when is_binary(Data) ->
+ check_response_for_failure(Data, <<>>);
+check_response_for_failure(Data, Tag) when is_binary(Data), is_binary(Tag) ->
+ NoToken = <<Tag/binary, " NO ">>,
+ NoTokenLength = byte_size(NoToken),
+ case NoTokenLength > byte_size(Data) of
+ true -> ok;
+ false -> is_no_token_found(Data, Tag, binary:match(Data, NoToken, { scope, { 0, NoTokenLength } } ))
+ end.
+
+-spec split_command_into_components(Buffer :: binary()) -> { Tag :: binary(), Command :: binary(), Data :: binary() }.
+split_command_into_components(Buffer) when is_binary(Buffer) ->
+ split_command(Buffer).
+
+-spec is_tagged_response(Buffer :: binary(), Tag :: binary()) -> tagged | untagged.
+is_tagged_response(Buffer, Tag) ->
+ TagSize = size(Tag) + 1, % The extra char is a space
+ BufferSize = size(Buffer),
+ case
+ case (TagSize =< BufferSize) of
+ true -> <<Tag/binary, " ">> =:= binary:part(Buffer, 0, TagSize);
+ _ -> false
+ end of
+
+ true -> tagged;
+ _ -> untagged
+ end.
+
+-spec num_literal_continuation_bytes(Buffer :: binary()) -> { BufferSansContinuation :: binary(), NumberBytes :: integer(), found|none }.
+num_literal_continuation_bytes(Buffer) when size(Buffer) < 4 ->
+ { Buffer, 0, none };
+num_literal_continuation_bytes(Buffer) ->
+ case binary:last(Buffer) =:= $} of
+ true -> number_of_bytes_in_continuation(Buffer);
+ false -> { Buffer, 0, none }
+ end.
+
+number_of_bytes_in_continuation(Buffer) ->
+ BufferSize = size(Buffer),
+ OpenBracePos = find_continuation_open_brace(Buffer, BufferSize - 3),
+ confirm_continuation(Buffer, OpenBracePos).
+
+find_continuation_open_brace(_Buffer, 0) -> -1;
+find_continuation_open_brace(Buffer, Pos) ->
+ case binary:at(Buffer, Pos) of
+ ${ -> Pos;
+ _ -> find_continuation_open_brace(Buffer, Pos - 1)
+ end.
+
+confirm_continuation(Buffer, -1) ->
+ { Buffer, 0, none };
+confirm_continuation(Buffer, OpenBracePos) ->
+ BufferSize = size(Buffer),
+ % Strip any '+' following the literal size (due to LITERAL+)
+ LiteralSize = case binary:at(Buffer, BufferSize - 2) of
+ $+ -> binary:part(Buffer, OpenBracePos + 1, BufferSize - OpenBracePos - 3);
+ _ -> binary:part(Buffer, OpenBracePos + 1, BufferSize - OpenBracePos - 2)
+ end,
+
+ try binary_to_integer(LiteralSize) of
+ Result -> { binary:part(Buffer, 0, OpenBracePos), Result, found }
+ catch
+ _:_ -> { Buffer, 0, none }
+ end.
+
+-spec remove_tag_from_response(Buffer :: binary(), Tag :: undefine | binary(), Check :: check | trust) -> Command :: binary().
+remove_tag_from_response(Buffer, undefined, _) ->
+ Buffer;
+remove_tag_from_response(Buffer, <<>>, _) ->
+ Buffer;
+remove_tag_from_response(Buffer, Tag, check) ->
+ TagSize = size(Tag) + 1, % The extra char is a space
+ BufferSize = size(Buffer),
+ case TagSize =< BufferSize of
+ true ->
+ case <<Tag/binary, " ">> =:= binary:part(Buffer, 0, TagSize) of
+ true -> binary:part(Buffer, TagSize, BufferSize - TagSize);
+ false -> Buffer
+ end;
+ false -> Buffer
+ end;
+remove_tag_from_response(Buffer, Tag, trust) ->
+ TagSize = size(Tag) + 1, % The extra char is a space
+ BufferSize = size(Buffer),
+ case TagSize =< BufferSize of
+ true -> binary:part(Buffer, TagSize, BufferSize - TagSize);
+ false -> Buffer
+ end.
+
+%% Private
+split_command(<<>>) -> { <<>>, <<>>, <<>> };
+split_command(Buffer) ->
+ {Terminated, End} = eol_found(Buffer, binary:match(Buffer, <<"\r\n">>)),
+ { Tag, CommandStart } = searched_in_buffer(Buffer, 0, End, binary:match(Buffer, <<" ">>, { scope, { 0, End } } )),
+ case Terminated of
+ true when End == CommandStart ->
+ %% when we have a newline, and the tag takes the entire line, the "tag" is actually the command
+ {<<>>, Tag, <<>>};
+ _ ->
+ { Command, DataStart } = searched_in_buffer(Buffer, CommandStart, End, binary:match(Buffer, <<" ">>, { scope, { CommandStart, End - CommandStart } } )),
+ Data = binary:part(Buffer, DataStart, End - (DataStart)),
+ { Tag, Command, Data }
+ end.
+
+eol_found(Buffer, nomatch) -> {false, size(Buffer)};
+eol_found(_Buffer, { MatchStart, _MatchLength }) -> {true, MatchStart}.
+
+searched_in_buffer(Buffer, Start, End, nomatch) -> { binary:part(Buffer, Start, End - Start), End };
+searched_in_buffer(Buffer, Start, _End, { MatchStart, MatchLength } ) -> { binary:part(Buffer, Start, MatchStart - Start), MatchStart + MatchLength }.
+
+is_no_token_found(Data, Tag, nomatch) ->
+ BadToken = <<Tag/binary, " BAD ">>,
+ BadTokenLength = byte_size(BadToken),
+ Match = binary:match(Data, BadToken, { scope, { 0, BadTokenLength } } ),
+ is_bad_token_found(Data, Tag, Match);
+is_no_token_found(Data, _Tag, { Start, Length }) ->
+ ReasonStart = Start + Length,
+ Reason = binary:part(Data, ReasonStart, byte_size(Data) - ReasonStart),
+ { no, chop_newlines(Reason) }.
+
+is_bad_token_found(_Data, _Tag, nomatch) ->
+ ok;
+is_bad_token_found(Data, _Tag, { Start, Length }) ->
+ ReasonStart = Start + Length,
+ %% -2 is due to the traling \r\n
+ Reason = binary:part(Data, ReasonStart, byte_size(Data) - ReasonStart),
+ { bad, chop_newlines(Reason) }.
+
+chop_newlines(Data) ->
+ Size = size(Data),
+ chop_newline(Data, binary:at(Data, Size - 1), Size - 1).
+
+chop_newline(Data, $\r, Size) -> chop_newline(Data, binary:at(Data, Size - 1), Size - 1);
+chop_newline(Data, $\n, Size) -> chop_newline(Data, binary:at(Data, Size - 1), Size - 1);
+chop_newline(Data, _, Size) -> binary_part(Data, 0, Size + 1).
+
+imap_folder_path_from_parts(none, _HierarchyDelim, , _Domain, Path) ->
+ Path;
+imap_folder_path_from_parts(SharedPrefix, _HierarchyDelim, , _Domain, Path) ->
+ case string:str(Path, SharedPrefix) of
+ 1 -> string:substr(Path, length(SharedPrefix) + 1);
+ _ -> Path
+ end;
+imap_folder_path_from_parts(_SharedPrefix, HierarchyDelim, User, Domain, "INBOX") ->
+ string:join("user", string:join(User, Domain, "@"), HierarchyDelim);
+imap_folder_path_from_parts(_SharedPrefix, HierarchyDelim, User , Domain, Path) ->
+ string:join("user", User, string:join(Path, Domain, "@"), HierarchyDelim).
+
+imap_folder_path(_SharedPrefix, _HierarchyDelim, { error, Reason }) ->
+ lager:info("ERROR! ~p", Reason),
+ bad_uri;
+imap_folder_path(SharedPrefix, HierarchyDelim, { ok, {_Scheme, User, Domain, _Port, FullPath, _Query} }) ->
+ { VDomain, _ImapHost } = split_imap_uri_domain(string:tokens(Domain, "@")),
+ _|Path | _ = string:tokens(FullPath, ";"),
+ %%lager:info("PARSED IMAP URI: ~p ~p ~p", User, VDomain, Path),
+ CanonicalPath = imap_folder_path_from_parts(SharedPrefix, HierarchyDelim, User, VDomain, http_uri:decode(Path)),
+ %%lager:info("PUT TOGETHER AS: ~p", CanonicalPath),
+ CanonicalPath.
+
+split_imap_uri_domain( ImapHost ) -> { ImapHost, ImapHost };
+split_imap_uri_domain( VDomain, ImapHost ) -> { VDomain, ImapHost }.
+
+ensure_binary(Arg) when is_list(Arg) -> list_to_binary(Arg);
+ensure_binary(Arg) when is_binary(Arg) -> Arg;
+ensure_binary(Arg) when is_atom(Arg) -> atom_to_binary(Arg, latin1);
+ensure_binary(_Arg) -> <<>>.
+
+% Split Data into a list of lines separated by \r\n (each entry including the \r\n)
+-spec split_lines_with_literals(Buffer :: binary()) -> {CompleteLines :: binary(), TrailingFragmentaryLine :: binary()}.
+split_lines_with_literals(Data) ->
+ Result = split_with_literals(, Data, binary:compile_pattern(<<"\r\n">>), 0),
+ Result.
+
+split_with_literals(Lines, Data, Pattern, Offset) ->
+ case binary:match(Data, Pattern, {scope, {Offset, size(Data) - Offset}}) of
+ nomatch -> {lists:reverse(Lines), Data};
+ { Start, Length } ->
+ case binary:at(Data, max(0, Start - 1)) of
+ $} -> split_with_literals(Lines, Data, Pattern, Start + 1);
+ _ -> Num = Start + Length,
+ <<Line:Num/binary, Remainder/binary>> = Data,
+ split_with_literals(Line|Lines, Remainder, Pattern, 0)
+ end
+ end.
+
+% Split Data into a list of lines separated by \r\n (each entry including the \r\n)
+-spec split_lines(Buffer :: binary()) -> {CompleteLines :: binary(), TrailingFragmentaryLine :: binary()}.
+split_lines(Data) ->
+ split(, Data, binary:compile_pattern(<<"\r\n">>)).
+
+split(Lines, Data, Pattern) ->
+ case binary:match(Data, Pattern) of
+ nomatch -> {lists:reverse(Lines), Data};
+ { Start, Length } ->
+ Num = Start + Length,
+ <<Line:Num/binary, Remainder/binary>> = Data,
+ split(Line|Lines, Remainder, Pattern)
+ end.
+
+new_imap_compressors() ->
+ Inflator = zlib:open(),
+ ok = zlib:inflateInit(Inflator, -15),
+ Deflator = zlib:open(),
+ ok = zlib:deflateInit(Deflator, 1, deflated, -15, 8, default),
+ { Inflator, Deflator }.
+
+-spec only_full_lines(Buffer :: binary()) -> { BufferOfFullLines :: binary(), TrailingFragmentaryLine :: binary() }.
+only_full_lines(Buffer) ->
+ BufferLength = size(Buffer),
+ only_full_lines(Buffer, BufferLength, binary:at(Buffer, BufferLength - 1), BufferLength).
+
+only_full_lines(Buffer, BufferLength, $\n, Pos) when Pos =:= BufferLength -> { Buffer, <<>> };
+only_full_lines(Buffer, BufferLength, $\n, Pos) -> { binary:part(Buffer, 0, Pos + 1), binary:part(Buffer, Pos + 1, BufferLength - Pos - 1) };
+only_full_lines(Buffer, _BufferLength, _, 0) -> { <<>>, Buffer };
+only_full_lines(Buffer, BufferLength, _, Pos) -> only_full_lines(Buffer, BufferLength, binary:at(Buffer, Pos - 1), Pos - 1).
+
+-spec binary_to_atom(Value :: binary()) -> ValueAsAtom :: atom().
+binary_to_atom(Value) -> list_to_atom(string:to_lower(binary_to_list(Value))).

guam-0.9.12.tar.gz/_checkouts/eimap/test Added

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_annotation_tests.erl Added

@@ -0,0 +1,71 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_annotation_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+% c("test/eimap_command_annotation_tests.erl"). eunit:test(eimap_command_annotation).
+
+parse_test_() ->
+ Data =
+ 
+ %% { tag, server_response, expected_parsed_results }
+ {
+ <<"EG0002">>,
+ <<"* ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/kolab/color\" (\"value.shared\" \"32CD32\")\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/kolab/folder-type\" (\"value.shared\" \"event\")\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/x-toltec/test\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/horde/share-params\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/kolab/h-share-attr-desc\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/kolab/uniqueid\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/kolab/pxfb-readable-for\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/kolab/incidences-for\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/kolab/folder-test\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/kolab/displayname\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/kolab/activesync\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/uniqueid\" (\"value.shared\" \"b1a5bb95-2bd3-4628-a0d2-49e9bd10735e\")\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/squat\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/size\" (\"value.shared\" \"5726\")\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/sieve\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/sharedseen\" (\"value.shared\" \"false\")\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/pop3showafter\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/pop3newuidl\" (\"value.shared\" \"true\")\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/partition\" (\"value.shared\" \"default\")\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/news2mail\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/lastupdate\" (\"value.shared\" \"20-Mar-2015 05:17:51 +0100\")\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/lastpop\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/expire\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/vendor/cmu/cyrus-imapd/duplicatedeliver\" (\"value.shared\" \"false\")\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/thread\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/specialuse\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/sort\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/comment\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/checkperiod\" (\"value.shared\" NIL)\r\n * ANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"/check\" (\"value.shared\" NIL)\r\nEG0002 OK Completed\r\n">>,
+ { fini, 
+ {<<"/vendor/cmu/cyrus-imapd/duplicatedeliver">>, false},
+ {<<"/vendor/cmu/cyrus-imapd/lastupdate">>, <<"20-Mar-2015 05:17:51 +0100">>},
+ {<<"/vendor/cmu/cyrus-imapd/partition">>,<<"default">>},
+ {<<"/vendor/cmu/cyrus-imapd/pop3newuidl">>,true},
+ {<<"/vendor/cmu/cyrus-imapd/sharedseen">>,false},
+ {<<"/vendor/cmu/cyrus-imapd/size">>,5726},
+ {<<"/vendor/cmu/cyrus-imapd/uniqueid">>, <<"b1a5bb95-2bd3-4628-a0d2-49e9bd10735e">>},
+ {<<"/vendor/kolab/folder-type">>,<<"event">>},
+ {<<"/vendor/kolab/color">>,<<"32CD32">>}
+ 
+ }
+ },
+ {
+ <<"EG0002">>,
+ <<"* ANNOTATION user/john.doe/Sent@example.org \"/vendor/x-toltec/test\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/horde/share-params\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/kolab/h-share-attr-desc\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/kolab/uniqueid\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/kolab/pxfb-readable-for\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/kolab/incidences-for\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/kolab/folder-type\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/kolab/folder-test\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/kolab/displayname\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/kolab/color\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/kolab/activesync\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/uniqueid\" (\"value.shared\" \"237357ec-7610-422e-9e55-0bae83caf58a\")\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/squat\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/size\" (\"value.shared\" \"401\")\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/sieve\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/sharedseen\" (\"value.shared\" \"false\")\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/pop3showafter\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/pop3newuidl\" (\"value.shared\" \"true\")\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/partition\" (\"value.shared\" \"default\")\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/news2mail\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/lastupdate\" (\"value.shared\" \"23-Mar-2015 15:19:29 +0100\")\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/lastpop\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/expire\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/vendor/cmu/cyrus-imapd/duplicatedeliver\" (\"value.shared\" \"false\")\r\n * ANNOTATION user/john.doe/Sent@example.org \"/thread\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/specialuse\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/sort\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/comment\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/checkperiod\" (\"value.shared\" NIL)\r\n * ANNOTATION user/john.doe/Sent@example.org \"/check\" (\"value.shared\" NIL)\r\nEG0002 OK Completed\r\n">>,
+ { fini, 
+ {<<"/vendor/cmu/cyrus-imapd/duplicatedeliver">>,false},
+ {<<"/vendor/cmu/cyrus-imapd/lastupdate">>,<<"23-Mar-2015 15:19:29 +0100">>},
+ {<<"/vendor/cmu/cyrus-imapd/partition">>,<<"default">>},
+ {<<"/vendor/cmu/cyrus-imapd/pop3newuidl">>,true},
+ {<<"/vendor/cmu/cyrus-imapd/sharedseen">>,false},
+ {<<"/vendor/cmu/cyrus-imapd/size">>,401},
+ {<<"/vendor/cmu/cyrus-imapd/uniqueid">>,<<"237357ec-7610-422e-9e55-0bae83caf58a">>}
+ 
+ }
+ }
+ ,
+ { _Command, ResponseType } = eimap_command_annotation:new_command(<<"/my/folder">>),
+ lists:foldl(fun({ Tag, ServerData, Expected }, Acc) -> ?_assertEqual(Expected, eimap_command:parse_response(ResponseType, ServerData, Tag, eimap_command_annotation))|Acc end, , Data).
+
+new_test_() ->
+ Data =
+ 
+ %% mailbox, command
+ {
+ <<"user/john.doe/Calendar/Personal Calendar@example.org">>,
+ { <<"GETANNOTATION \"user/john.doe/Calendar/Personal Calendar@example.org\" \"*\" \"value.shared\"">>, multiline_response }
+ }
+ ,
+ lists:foldl(fun({ Mailbox, Command }, Acc) -> ?_assertEqual(Command, eimap_command_annotation:new_command(Mailbox))|Acc end, , Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_capability_tests.erl Added

@@ -0,0 +1,70 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_capability_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test_() ->
+ Data =
+ 
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ parse_serverid,
+ <<"* OK CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE STARTTLS LOGINDISABLED acme.com Cyrus IMAP 2.5.5.5-Kolab-2.5.5-5.1.el6.kolab_14 server ready\r\n">>,
+ <<>>,
+ { fini, { <<"IMAP4rev1 LITERAL+ ID ENABLE STARTTLS LOGINDISABLED">>, <<"acme.com Cyrus IMAP 2.5.5.5-Kolab-2.5.5-5.1.el6.kolab_14 server ready">> } }
+ },
+ {
+ ok,
+ <<"* CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE STARTTLS AUTH=PLAIN AUTH=LOGIN SASL-IR\r\nabcd OK CAPABILITY COMPLETED\r\n">>,
+ <<"abcd">>,
+ { fini, <<"IMAP4rev1 LITERAL+ ID ENABLE STARTTLS AUTH=PLAIN AUTH=LOGIN SASL-IR">> }
+ },
+ {
+ ok,
+ <<"other stuff\r\n">>,
+ <<"abcd">>,
+ { more, { <<>>, , eimap_command_capability } }
+ },
+ {
+ ok,
+ <<"abcd BAD Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ },
+ {
+ ok,
+ <<"abcd NO Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ }
+ ,
+ lists:foldl(fun({ InitArgs, Response, Tag, Parsed }, Acc) ->
+ { _Command, ResponseType } = eimap_command_capability:new_command(InitArgs),
+ ?_assertEqual(Parsed, eimap_command:parse_response(ResponseType, Response, Tag, eimap_command_capability))|Acc end, , Data).
+
+new_test_() ->
+ Data =
+ 
+ % input, output
+ { parse_serverid, { <<"CAPABILITY">>, single_line_response } },
+ { <<>>, { <<"CAPABILITY">>, multiline_response } },
+ { true, { <<"CAPABILITY">>, multiline_response } },
+ { , { <<"CAPABILITY">>, multiline_response } }
+ ,
+ lists:foldl(fun({ Params, Command }, Acc) -> ?_assertEqual(Command, eimap_command_capability:new_command(Params))|Acc end, , Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_compress_tests.erl Added

@@ -0,0 +1,55 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_compress_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test_() ->
+ Data =
+ 
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ <<"abcd OK DEFLATE active\r\n">>,
+ <<"abcd">>,
+ compression_active
+ },
+ {
+ <<"abcd BAD Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ },
+ {
+ <<"abcd NO Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ }
+ ,
+ InitArgs = ok,
+ { _Command, ResponseType } = eimap_command_compress:new_command(InitArgs),
+ lists:foldl(fun({ Response, Tag, Parsed }, Acc) -> ?_assertEqual(Parsed, eimap_command:parse_response(ResponseType, Response, Tag, eimap_command_compress))|Acc end, , Data).
+
+new_test_() ->
+ Data =
+ 
+ % input, output
+ { ok, { <<"COMPRESS DEFLATE">>, single_line_response } },
+ { <<>>, { <<"COMPRESS DEFLATE">>, single_line_response } },
+ { true, { <<"COMPRESS DEFLATE">>, single_line_response } },
+ { , { <<"COMPRESS DEFLATE">>, single_line_response } }
+ ,
+ lists:foldl(fun({ Params, Command }, Acc) -> ?_assertEqual(Command, eimap_command_compress:new_command(Params))|Acc end, , Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_getmetadata_tests.erl Added

@@ -0,0 +1,99 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_getmetadata_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test_() ->
+ Data =
+ 
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ <<"* METADATA Tasks (/shared/vendor/kolab/folder-type \"task\")\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, { <<"Tasks">>, { <<"/shared/vendor/kolab/folder-type">>, <<"task">> } } }
+ },
+ {
+ <<"* METADATA \"Tasks Tasks\" (/shared/vendor/kolab/folder-type \"task\")\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, { <<"Tasks Tasks">>, { <<"/shared/vendor/kolab/folder-type">>, <<"task">> } } }
+ },
+ {
+ <<"* METADATA Tasks (/shared/vendor/kolab/folder-type \"task \\\"sigh\\\"\")\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, { <<"Tasks">>, { <<"/shared/vendor/kolab/folder-type">>, <<"task \"sigh\"">> } } }
+ },
+ {
+ <<"* METADATA Tasks (/shared/vendor/kolab/folder-type \"task \\\"sigh\\\"\" /private/comment \"My own comment\")\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, { <<"Tasks">>, { <<"/private/comment">>, <<"My own comment">> }, { <<"/shared/vendor/kolab/folder-type">>, <<"task \"sigh\"">> } } }
+ },
+ {
+ <<"* METADATA Tasks (/shared/vendor/kolab/folder-type \"task \\\"sigh\\\"\")\r\n* METADATA Archive (/shared/vendor/kolab/folder-type NIL)\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, 
+ { <<"Archive">>, {<<"/shared/vendor/kolab/folder-type">>, null } },
+ { <<"Tasks">>, { <<"/shared/vendor/kolab/folder-type">>, <<"task \"sigh\"">> } }
+ 
+ }
+ },
+ {
+ <<"* METADATA \"INBOX.Test Folder\" (/shared/vendor/kolab/folder-type {5}\r\nevent)\r\nEG0001 OK Getmetadata completed (0.014 + 0.000 + 0.013 secs).\r\n">>,
+ <<"EG0001">>,
+ { fini, 
+ { <<"INBOX.Test Folder">>, {<<"/shared/vendor/kolab/folder-type">>, <<"event">> } }
+ 
+ }
+ },
+ {
+ <<"* METADATA \"INBOX.Test Folder\" (/shared/vendor/kolab/folder-type {0}\r\n)\r\nEG0001 OK Getmetadata completed (0.014 + 0.000 + 0.013 secs).\r\n">>,
+ <<"EG0001">>,
+ { fini, 
+ { <<"INBOX.Test Folder">>, {<<"/shared/vendor/kolab/folder-type">>, <<>> } }
+ 
+ }
+ },
+ {
+ <<"abcd BAD Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ },
+ {
+ <<"abcd NO Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ }
+ ,
+ lists:foldl(fun({ Response, Tag, Parsed }, Acc) ->
+ ?_assertEqual(Parsed, eimap_command:parse_response(multiline_response, Response, Tag, eimap_command_getmetadata))|Acc end, , Data).
+
+new_test_() ->
+ Data =
+ 
+ % input, output
+ { { <<>> }, { <<"GETMETADATA (DEPTH infinity) \"\"">>, multiline_response } },
+ { { <<>>, <<"/shared/comment">>, "/private/comment" }, { <<"GETMETADATA (DEPTH infinity) \"\" (/shared/comment /private/comment)">>, multiline_response } },
+ { { <<"/my/folder">>, <<"/shared/comment">>, "/private/comment" }, { <<"GETMETADATA (DEPTH infinity) \"/my/folder\" (/shared/comment /private/comment)">>, multiline_response } },
+ { { "/my/folder", <<"/shared/comment">>, "/private/comment" }, { <<"GETMETADATA (DEPTH infinity) \"/my/folder\" (/shared/comment /private/comment)">>, multiline_response } },
+ { { <<"/my/folder">> }, { <<"GETMETADATA (DEPTH infinity) \"/my/folder\"">>, multiline_response } },
+ { { "/my/folder", , 10, 100 }, { <<"GETMETADATA (DEPTH 10 MAXSIZE 100) \"/my/folder\"">>, multiline_response } },
+ { { <<"/my/folder">>, , 10, 100 }, { <<"GETMETADATA (DEPTH 10 MAXSIZE 100) \"/my/folder\"">>, multiline_response } },
+ { { <<"/my/folder">>, , 10, none}, { <<"GETMETADATA (DEPTH 10) \"/my/folder\"">>, multiline_response } },
+ { { <<"/my/folder">>, , none, 100 }, { <<"GETMETADATA (MAXSIZE 100) \"/my/folder\"">>, multiline_response } }
+ ,
+ lists:foldl(fun({ Params, Command }, Acc) -> ?_assertEqual(Command, eimap_command_getmetadata:new_command(Params))|Acc end, , Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_login_tests.erl Added

@@ -0,0 +1,51 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_login_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test_() ->
+ Data =
+ 
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ <<"abcd OK LOGIN completed\r\n">>,
+ <<"abcd">>,
+ { fini, authed }
+ },
+ {
+ <<"abcd BAD Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ },
+ {
+ <<"abcd NO Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ }
+ ,
+ lists:foldl(fun({ Response, Tag, Parsed }, Acc) -> ?_assertEqual(Parsed, eimap_command:parse_response(multiline_response, Response, Tag, eimap_command_login))|Acc end, , Data).
+
+new_test_() ->
+ Data =
+ 
+ % input, output
+ { { <<"aseigo">>, <<"oohyeah">> }, { <<"LOGIN aseigo oohyeah">>, multiline_response } },
+ { { "aseigo", "oohyeah" }, { <<"LOGIN aseigo oohyeah">>, multiline_response } }
+ ,
+ lists:foldl(fun({ Params, Command }, Acc) -> ?_assertEqual(Command, eimap_command_login:new_command(Params))|Acc end, , Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_logout_tests.erl Added

@@ -0,0 +1,52 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_logout_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test_() ->
+ Data =
+ 
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ <<"abcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { close_socket, ok }
+ },
+ {
+ <<"abcd BAD Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { close_socket, { error, <<"Uh uh uh">> } }
+ },
+ {
+ <<"abcd NO Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { close_socket, { error, <<"Uh uh uh">> } }
+ }
+ ,
+ lists:foldl(fun({ Response, Tag, Parsed }, Acc) -> ?_assertEqual(Parsed, eimap_command:parse_response(multiline_response, Response, Tag, eimap_command_logout))|Acc end, , Data).
+
+new_test_() ->
+ Data =
+ 
+ % input, output
+ { <<>>, { <<"LOGOUT">>, multiline_response } },
+ { true, { <<"LOGOUT">>, multiline_response } },
+ { , { <<"LOGOUT">>, multiline_response } }
+ ,
+ lists:foldl(fun({ Params, Command }, Acc) -> ?_assertEqual(Command, eimap_command_logout:new_command(Params))|Acc end, , Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_namespace_tests.erl Added

@@ -0,0 +1,72 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_namespace_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test_() ->
+ Data =
+ 
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ <<"* NAMESPACE ((\"\" \"/\")) NIL NIL\r\nabcd OK NAMESPACE command completed\r\n">>,
+ <<"abcd">>,
+ { fini, { none, none } }
+ },
+% {
+% <<"* NAMESPACE NIL NIL ((\"\" \".\"))\r\nabcd OK NAMESPACE command completed\r\n">>,
+% <<"abcd">>,
+% namespace
+% },
+% {
+% <<"* NAMESPACE ((\"\" \"/\")) NIL ((\"Public Folders/\" \"/\"))\r\nabcd OK NAMESPACE command completed\r\n">>,
+% <<"abcd">>,
+% namespace
+% },
+% {
+% <<"* NAMESPACE ((\"\" \"/\")) ((\"~\" \"/\")) ((\"#shared/\" \"/\")\r\n(\"#public/\" \"/\")(\"#ftp/\" \"/\")(\"#news.\" \".\"))\r\nabcd OK NAMESPACE command completed\r\n">>,
+% <<"abcd">>,
+% namespace
+% },
+% {
+% <<"* NAMESPACE ((\"INBOX.\" \".\")) NIL NIL\r\nabcd OK NAMESPACE command completed\r\n">>,
+% <<"abcd">>,
+% namespace
+% },
+ {
+ <<"abcd BAD Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ },
+ {
+ <<"abcd NO Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ }
+ ,
+ lists:foldl(fun({ Response, Tag, Parsed }, Acc) -> ?_assertEqual(Parsed, eimap_command:parse_response(multiline_response, Response, Tag, eimap_command_namespace))|Acc end, , Data).
+
+new_test_() ->
+ Data =
+ 
+ % input, output
+ { <<>>, { <<"NAMESPACE">>, multiline_response } },
+ { true, { <<"NAMESPACE">>, multiline_response } },
+ { , { <<"NAMESPACE">>, multiline_response } }
+ ,
+ lists:foldl(fun({ Params, Command }, Acc) -> ?_assertEqual(Command, eimap_command_namespace:new_command(Params))|Acc end, , Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_noop_tests.erl Added

@@ -0,0 +1,69 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_noop_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test_() ->
+ Data =
+ 
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ ok,
+ <<"* 100 EXISTS\r\n* 22 EXPUNGE\r\n* 14 FETCH (FLAGS (\\\\Answered \\\\Flagged \\\\Draft \\\\Deleted \\\\Seen))\r\n* 3 Recent\r\nabcd OK Completed\r\n">>,
+ <<"abcd">>,
+ { fini,
+ 
+ { recent, 3 },
+ { fetch, 14 },
+ { expunge, 22 },
+ { exists, 100 }
+ 
+ }
+ },
+ {
+ ok,
+ <<"abcd OK Completed\r\n">>,
+ <<"abcd">>,
+ { fini, }
+ },
+ {
+ ok,
+ <<"abcd BAD Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ },
+ {
+ ok,
+ <<"abcd NO Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ }
+ ,
+ lists:foldl(fun({ InitArgs, ServerResponse, Tag, Parsed }, Acc) ->
+ { _Command, ResponseType } = eimap_command_noop:new_command(InitArgs),
+ ?_assertEqual(Parsed, eimap_command:parse_response(ResponseType, ServerResponse, Tag, eimap_command_noop))|Acc end, , Data).
+
+new_test_() ->
+ Data =
+ 
+ % input, output
+ { ok, { <<"NOOP">>, multiline_response } },
+ { <<>>, { <<"NOOP">>, multiline_response } }
+ ,
+ lists:foldl(fun({ Params, Command }, Acc) -> ?_assertEqual(Command, eimap_command_noop:new_command(Params))|Acc end, , Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_starttls_tests.erl Added

@@ -0,0 +1,52 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_starttls_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test_() ->
+ Data =
+ 
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ <<"abcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ starttls
+ },
+ {
+ <<"abcd BAD Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ },
+ {
+ <<"abcd NO Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ }
+ ,
+ lists:foldl(fun({ Response, Tag, Parsed }, Acc) -> ?_assertEqual(Parsed, eimap_command:parse_response(single_line_response, Response, Tag, eimap_command_starttls))|Acc end, , Data).
+
+new_test_() ->
+ Data =
+ 
+ % input, output
+ { <<>>, { <<"STARTTLS">>, single_line_response } },
+ { true, { <<"STARTTLS">>, single_line_response } },
+ { , { <<"STARTTLS">>, single_line_response } }
+ ,
+ lists:foldl(fun({ Params, Command }, Acc) -> ?_assertEqual(Command, eimap_command_starttls:new_command(Params))|Acc end, , Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_status_tests.erl Added

@@ -0,0 +1,65 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_status_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test_() ->
+ Data =
+ 
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ <<"* STATUS blurdybloop (MESSAGES 231 UIDNEXT 44292)\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, { uidnext, 44292 }, { messages, 231 } }
+ },
+ {
+ <<"* STATUS blurdybloop (MESSAGES 231 UIDNEXT 44292 RECENT 0 UIDVALIDITY 10110 UNSEEN 10)\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, { unseen, 10 }, { uidvalidity, 10110 }, { recent, 0 }, { uidnext, 44292 }, { messages, 231 } }
+ },
+ {
+ <<"* STATUS blurdybloop (RECENT 1 UIDVALIDITY 44292)\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, { uidvalidity, 44292 }, { recent, 1 } }
+ }
+ ,
+ lists:foldl(fun({ Response, Tag, Parsed }, Acc) -> ?_assertEqual(Parsed, eimap_command:parse_response(multiline_response, Response, Tag, eimap_command_status))|Acc end, , Data).
+
+new_test_() ->
+ Data =
+ 
+ % input, output
+ { { "INBOX", },
+ { <<"STATUS INBOX (MESSAGES)">>, multiline_response } },
+ { { <<"INBOX">>, },
+ { <<"STATUS INBOX (MESSAGES)">>, multiline_response } },
+ { { <<>>, messages },
+ { <<"STATUS INBOX (MESSAGES)">>, multiline_response } },
+ { { <<"">>, messages },
+ { <<"STATUS INBOX (MESSAGES)">>, multiline_response } },
+ { { <<"/my/folder">>, messages, recent, uidnext, uidvalidity, unseen },
+ { <<"STATUS /my/folder (MESSAGES RECENT UIDNEXT UIDVALIDITY UNSEEN)">>, multiline_response } },
+ { { <<"/my/folder">>, uidnext, recent, uidvalidity, unseen },
+ { <<"STATUS /my/folder (UIDNEXT RECENT UIDVALIDITY UNSEEN)">>, multiline_response } },
+ { { <<"/my/folder">>, garbage, unseen },
+ { <<"STATUS /my/folder (UNSEEN)">>, multiline_response } },
+ { { <<"/my/folder">>, garbage },
+ { <<"STATUS /my/folder (MESSAGES)">>, multiline_response } }
+ ,
+ lists:foldl(fun({ Params, Command }, Acc) -> ?_assertEqual(Command, eimap_command_status:new_command(Params))|Acc end, , Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_switch_folder_tests.erl Added

@@ -0,0 +1,72 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_switch_folder_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+parse_test_() ->
+ Data =
+ 
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ <<"Trash">>,
+ <<"* 0 EXISTS\r\n* 0 RECENT\r\n* FLAGS (\\\\Answered \\\\Flagged \\\\Draft \\\\Deleted \\\\Seen)\r\n* OK PERMANENTFLAGS () Ok\r\n* OK UIDVALIDITY 1447439786 Ok\r\n* OK UIDNEXT 1 Ok\r\n* OK HIGHESTMODSEQ 1 Ok\r\n* OK URLMECH INTERNAL Ok>\r\n* OK ANNOTATIONS 65536 Ok\r\nabcd OK READ-WRITE SELECT completed\r\n">>,
+ <<"abcd">>,
+ { fini,
+ 
+ { writeable, true },
+ { annotations, 65536 },
+ { url_mech, internal },
+ { highest_mod_seq, 1 },
+ { uid_next, 1 },
+ { uid_validity, 1447439786 },
+ { permanent_flags, },
+ { flags, <<"\\\\Answered">>, <<"\\\\Flagged">>, <<"\\\\Draft">>, <<"\\\\Deleted">>, <<"\\\\Seen">> },
+ { recent, 0 },
+ { exists, 0 }
+ 
+ }
+ },
+ {
+ <<"Nope">>,
+ <<"abcd BAD Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ },
+ {
+ <<"ALsoWrong">>,
+ <<"abcd NO Uh uh uh\r\n">>,
+ <<"abcd">>,
+ { error, <<"Uh uh uh">> }
+ }
+ ,
+ lists:foldl(fun({ InitArgs, ServerResponse, Tag, Parsed }, Acc) ->
+ { _Command, ResponseType } = eimap_command_switch_folder:new_command(InitArgs),
+ ?_assertEqual(Parsed, eimap_command:parse_response(ResponseType, ServerResponse, Tag, eimap_command_switch_folder))|Acc end, , Data).
+
+new_test_() ->
+ Data =
+ 
+ % input, output
+ { "Trash", { <<"SELECT \"Trash\"">>, all_multiline_response } },
+ { <<"Trash">>, { <<"SELECT \"Trash\"">>, all_multiline_response } },
+ { { <<"Trash">>, select }, { <<"SELECT \"Trash\"">>, all_multiline_response } },
+ { { <<"Trash">>, examine }, { <<"EXAMINE \"Trash\"">>, all_multiline_response } },
+ { { "Trash", examine }, { <<"EXAMINE \"Trash\"">>, all_multiline_response } }
+ ,
+ lists:foldl(fun({ Params, Command }, Acc) -> ?_assertEqual(Command, eimap_command_switch_folder:new_command(Params))|Acc end, , Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_command_tests.erl Added

@@ -0,0 +1,70 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_command_tests).
+-include_lib("eunit/include/eunit.hrl").
+-export(process_line/2, formulate_response/2).
+
+% c("test/eimap_command_tests.erl"). eunit:test(eimap_command).
+
+process_line(Data, Acc) -> { marked, Data } | Acc.
+formulate_response(Result, Data) -> eimap_command:formulate_response(Result, lists:reverse(Data)).
+
+
+literal_continuations_test_() ->
+ Data =
+ 
+ % input, output
+ % { Binary Response, Binary Tag, Parsed Results }
+ {
+ <<"* STATUS 1 (MESSAGES 231 {14}\r\nUIDNEXT 44292)\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, { marked, <<"* STATUS 1 (MESSAGES 231 UIDNEXT 44292)">> } }
+ },
+ {
+ <<"* STATUS 1a (MESSAGES 231 {14}\r\nUIDNEXT 44292)\r\nabcd OK Begin TLS negotiation">>,
+ <<"abcd">>,
+ { more, { <<"abcd OK Begin TLS negotiation">>, { marked, <<"* STATUS 1a (MESSAGES 231 UIDNEXT 44292)">> } , ?MODULE } }
+ },
+ {
+ <<"* STATUS 2 (MESSAGES 231 {14}\r\n">>,
+ <<"abcd">>,
+ { more, { <<"* STATUS 2 (MESSAGES 231 {14}">>, , ?MODULE } }
+ },
+ {
+ <<"* STATUS 1 (MESSAGES 231 {0}\r\n)\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, { marked, <<"* STATUS 1 (MESSAGES 231 )">> } }
+ },
+ {
+ <<"* STATUS 3 (MESSAGES 231 {h14}\r\nUIDNEXT 44292)\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, { marked, <<"* STATUS 3 (MESSAGES 231 {h14}">> }, { marked, <<"UIDNEXT 44292)">> } }
+ },
+ {
+ <<"* STATUS 4 (MESSAGES 231 \r\nUIDNEXT 44292)\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, { marked, <<"* STATUS 4 (MESSAGES 231 ">> }, { marked, <<"UIDNEXT 44292)">> } }
+ },
+ {
+ <<"* STATUS 5 (MESSAGES 231 UIDNEXT 44292)\r\nabcd OK Begin TLS negotiation now\r\n">>,
+ <<"abcd">>,
+ { fini, { marked, <<"* STATUS 5 (MESSAGES 231 UIDNEXT 44292)">> } }
+ }
+ ,
+ lists:foldl(fun({ Binary, Tag, Result }, Acc) -> ?_assertEqual(Result, eimap_command:parse_response(multiline_response, Binary, Tag, ?MODULE))|Acc end, , Data).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_uidset_tests.erl Added

@@ -0,0 +1,103 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_uidset_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+% c("test/eimap_uidset_tests.erl"). eunit:test(eimap_uidset).
+
+new_test_() ->
+ Data =
+ 
+ % input, output
+ { 4, <<"4">> },
+ { 1, 2, 3, 4, <<"1,2,3,4">> },
+ { -1, 1, 2, 3, 4, <<"1,2,3,4">> },
+ { 1, {100, 10}, 2, 3, 4, <<"1,10:100,2,3,4">> },
+ { 1, {10, 100}, 2, 3, 4, <<"1,10:100,2,3,4">> },
+ { 1, {-10, 100}, 2, 3, 4, <<"1,2,3,4">> },
+ { 1, {-100, 10}, 2, 3, 4, <<"1,2,3,4">> },
+ { 1, {-10, 100}, 2, 3, 4, <<"1,2,3,4">> },
+ { 1, {"alpha", 100}, <<"random_binary">>, some_atom, 2, 3, 4, <<"1,2,3,4">> },
+ { <<"1,2,3,4">>, <<>> },
+ { other, <<>> },
+ { , <<>> }
+ ,
+ lists:foldl(fun({ List, Binary }, Acc) -> ?_assertEqual(Binary, eimap_uidset:uid_list_to_binary(List))|Acc end, , Data).
+
+single_value_test_() ->
+ 
+ ?_assertEqual(1, iterate_uidset(eimap_uidset:parse(<<"1,">>))),
+ ?_assertEqual(1, iterate_uidset(eimap_uidset:parse(<<"1">>))),
+ ?_assertEqual(20, iterate_uidset(eimap_uidset:parse(<<"20">>))),
+ ?_assertEqual(147, iterate_uidset(eimap_uidset:parse(<<"147">>)))
+ .
+
+multiple_single_value_test_() ->
+ 
+ ?_assertEqual(1, 2, iterate_uidset(eimap_uidset:parse(<<"1,2">>)))
+ .
+
+range_test_() ->
+ 
+ ?_assertEqual(1, 2, 3, iterate_uidset(eimap_uidset:parse(<<"1:3">>))),
+ ?_assertEqual(3, 2, 1, iterate_uidset(eimap_uidset:parse(<<"3:1">>))),
+ ?_assertEqual(1, iterate_uidset(eimap_uidset:parse(<<"1:1">>)))
+ .
+
+multiple_range_test_() ->
+ ?_assertEqual(1, 2, 3, 10, 11, 12, 13, 14, 15, iterate_uidset(eimap_uidset:parse(<<"1:3,10:15">>))) .
+
+mix_single_and_range_test_() ->
+ 
+ ?_assertEqual(1, 3, 4, 5, iterate_uidset(eimap_uidset:parse(<<"1,3:5">>))),
+ ?_assertEqual(1, 3, 4, 5, 10, iterate_uidset(eimap_uidset:parse(<<"1,3:5,10">>))),
+ ?_assertEqual(1, 3, 4, 5, 10, 20, 21, 22, 23, 30, iterate_uidset(eimap_uidset:parse(<<"1,3:5,10,20:23,30">>)))
+ .
+
+mix_single_and_range_with_whitespace_test_() ->
+ 
+ ?_assertEqual(badarg, eimap_uidset:parse(<<"1, 3:5">>)),
+ ?_assertEqual(badarg, eimap_uidset:parse(<<"1,3:5 ,10">>)),
+ ?_assertEqual(badarg, eimap_uidset:parse(<<"1,3 :5,10,20: 23,30">>))
+ .
+
+bad_uidsets_test_() ->
+ 
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"">>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<>>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"-1,3:5">>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"alpha">>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"1,a,3:5">>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"1,3:5,a">>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"1;2">>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"1, 2">>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"1:3:5">>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"-11,3:5">>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"11,-3:5">>))),
+ ?_assertEqual(badarg, iterate_uidset(eimap_uidset:parse(<<"11,3:-5">>)))
+ .
+
+
+iterate_uidset(badarg) ->
+ badarg;
+iterate_uidset(UidSet) ->
+ %%io:fwrite("we are going to iterate over ~p~n", UidSet),
+ lists:reverse(iterate_uidset(eimap_uidset:next_uid(UidSet), )).
+iterate_uidset({ none, _UidSet }, Acc) -> Acc;
+iterate_uidset({ Uid, UidSet }, Acc) -> iterate_uidset(eimap_uidset:next_uid(UidSet), Uid|Acc).
+

guam-0.9.12.tar.gz/_checkouts/eimap/test/eimap_utils_tests.erl Added

@@ -0,0 +1,216 @@
+%% Copyright 2014 Kolab Systems AG (http://www.kolabsys.com)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU Library General Public License as published by
+%% the Free Software Foundation, either version 3 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU Library General Public License for more details.
+%%
+%% You should have received a copy of the GNU Library General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+-module(eimap_utils_tests).
+-include_lib("eunit/include/eunit.hrl").
+
+% c("test/eimap_utils_tests.erl"). eunit:test(eimap_utils).
+
+extract_path_from_uri_test_() ->
+ Data =
+ 
+ {
+ <<"user/john.doe/Calendar@example.org">>,
+ none, "/",
+ <<"imap://john.doe@example.org@kolab.example.org/Calendar;UIDVALIDITY=1424683684/;UID=1">>
+ },
+ {
+ <<"user/john.doe/Personal Calendar@example.org">>,
+ none, "/",
+ <<"imap://john.doe@example.org@kolab.example.org/Personal%20Calendar;UIDVALIDITY=1424683684/;UID=1">>
+ },
+ {
+ <<"Personal Calendar">>,
+ none, "/",
+ <<"imap://kolab.example.org/Personal%20Calendar;UIDVALIDITY=1424683684/;UID=1">>
+ },
+ {
+ <<"Personal Calendar">>,
+ "Shared/", "/",
+ <<"imap://kolab.example.org/Shared/Personal%20Calendar;UIDVALIDITY=1424683684/;UID=1">>
+ },
+ {
+ <<"Personal Calendar">>,
+ "Shared/", "/",
+ <<"imap://kolab.example.org/Personal%20Calendar;UIDVALIDITY=1424683684/;UID=1">>
+ },
+ {
+ <<"user/john.doe@example.org">>,
+ "Shared/", "/",
+ <<"imap://john.doe@example.org@kolab.example.org/INBOX;UIDVALIDITY=1424683684/;UID=1">>
+ },
+ {
+ bad_uri,
+ none, "/",
+ <<"merf">>
+ }
+ ,
+ lists:foldl(fun({ Val, SharePrefix, Sep, Input }, Acc) -> ?_assertEqual(Val, eimap_utils:extract_path_from_uri(SharePrefix, Sep, Input))|Acc end,
+ , Data).
+
+extract_uid_from_uri_test_() ->
+ Data =
+ 
+ { <<"1">>, <<"imap://john.doe@example.org@kolab.example.org/Calendar;UIDVALIDITY=1424683684/;UID=1">> },
+ { <<"12">>, <<"imap://john.doe@example.org@kolab.example.org/Calendar;UIDVALIDITY=1424683684/;UID=12">> },
+ { <<"123">>, <<"imap://john.doe@example.org@kolab.example.org/Calendar;UIDVALIDITY=1424683684/;UID=123">> },
+ { <<"1">>, <<"imap://john.doe@example.org@kolab.example.org/Calendar;UIDVALIDITY=1424683684/;UID=1;foo">> },
+ { <<"12">>, <<"imap://john.doe@example.org@kolab.example.org/Calendar;UIDVALIDITY=1424683684/;UID=12;foo=bar">> },
+ { <<"123">>, <<"imap://john.doe@example.org@kolab.example.org/Calendar;UIDVALIDITY=1424683684/;UID=123;foo=bar">> }
+ ,
+ lists:foldl(fun({ Val, Input }, Acc) -> ?_assertEqual(Val, eimap_utils:extract_uidset_from_uri(Input))|Acc end,
+ , Data).
+
+split_command_into_components_test_() ->
+ Data =
+ 
+ { { <<>>, <<>>, <<>> }, <<>> },
+ { { <<>>, <<"DONE">>, <<>> }, <<"DONE\r\n">> },
+ { { <<".">>, <<"LIST">>, <<"\"\" \"*\"">> }, <<". LIST \"\" \"*\"">> },
+ { { <<"1">>, <<"STARTTLS">>, <<>> }, <<"1 STARTTLS">> },
+ { { <<"1">>, <<"STARTTLS">>, <<>> }, <<"1 STARTTLS\r\n">> },
+ { { <<"3">>, <<"ID">>, <<"(\"name\" \"Thunderbird\" \"version\" \"38.3.0\")">> }, <<"3 ID (\"name\" \"Thunderbird\" \"version\" \"38.3.0\")">> }
+ ,
+ lists:foldl(fun({ Val, Input }, Acc) -> ?_assertEqual(Val, eimap_utils:split_command_into_components(Input)) | Acc end,
+ , Data).
+
+check_response_for_failure_test_() ->
+ Tag = <<"abcdef">>,
+ Data =
+ 
+ { Tag, <<Tag/binary, " NO reasons\r\n">>, { no, <<"reasons">> } },
+ { Tag, <<Tag/binary, " NO reasons">>, { no, <<"reasons">> } },
+ { Tag, <<Tag/binary, " BAD reasons\r\n">>, { bad, <<"reasons">> } },
+ { Tag, <<Tag/binary, " BAD reasons">>, { bad, <<"reasons">> } },
+ { Tag, <<Tag/binary, " OK reasons">>, ok },
+ { Tag, <<"short">>, ok },
+ { undefined, <<"* OK reasons">>, ok }
+ ,
+ lists:foldl(fun({ Tag2, Input, Output}, Acc) -> ?_assertEqual(Output, eimap_utils:check_response_for_failure(Input, Tag2)) | Acc end, , Data).
+
+is_tagged_response_test_() ->
+ Tag = <<"abcd">>,
+ Data =
+ 
+ { <<Tag/binary, " Indeed\r\n">>, tagged },
+ { <<Tag/binary, " Indeed">>, tagged },
+ { <<"one">>, untagged },
+ { <<"* Yeah baby">>, untagged }
+ ,
+ lists:foldl(fun({ Input, Output}, Acc) -> ?_assertEqual(Output, eimap_utils:is_tagged_response(Input, Tag)) | Acc end, , Data).
+
+remove_tag_from_response_test_() ->
+ Tag = <<"abcd">>,
+ Data =
+ 
+ { Tag, <<Tag/binary, " Indeed\r\n">>, check, <<"Indeed\r\n">> },
+ { Tag, <<Tag/binary, " Indeed\r\n">>, trust, <<"Indeed\r\n">> },
+ { Tag, <<Tag/binary, " Indeed">>, check, <<"Indeed">>},
+ { Tag, <<Tag/binary, " Indeed">>, trust, <<"Indeed">>},
+ { undefined, <<"abcd4 Indeed">>, check, <<"abcd4 Indeed">>},
+ { undefined, <<"abcd4 Indeed">>, trust, <<"abcd4 Indeed">>},
+ { <<>>, <<"abcd4 Indeed">>, check, <<"abcd4 Indeed">>},
+ { <<>>, <<"abcd4 Indeed">>, trust, <<"abcd4 Indeed">>},
+ { Tag, <<"abcd4 Indeed">>, check, <<"abcd4 Indeed">>},
+ { Tag, <<"abcd4 Indeed">>, trust, <<" Indeed">>},
+ { Tag, <<"* Yeah baby">>, check, <<"* Yeah baby">> },
+ { Tag, <<"">>, check, <<"">> },
+ { Tag, <<"">>, trust, <<"">> },
+ { Tag, <<>>, check, <<>> },
+ { Tag, <<>>, trust, <<>> }
+ ,
+ lists:foldl(fun({ Tag2, Input, Check, Output}, Acc) -> ?_assertEqual(Output, eimap_utils:remove_tag_from_response(Input, Tag2, Check)) | Acc end, , Data).
+
+header_name_test_() ->
+ Data =
+ 
+ { mailbox_uid , <<"/vendor/cmu/cyrus-imapd/uniqueid">> },
+ { groupware_type , <<"X-Kolab-Type">> },
+ { groupware_uid , <<"Subject">> },
+ { dunno, unknown },
+ { "dunno", unknown },
+ { <<"dunno">>, unknown },
+ { 134, unknown }
+ ,
+ lists:foldl(fun({ Input, Output}, Acc) -> ?_assertEqual(Output, eimap_utils:header_name(Input)) | Acc end, , Data).
+
+ensure_binary_test_() ->
+ Data = 
+ 
+ { "yep", <<"yep">> },
+ { <<"yep">>, <<"yep">> },
+ { 1, 2, 3, <<1, 2, 3>> },
+ { yep, <<"yep">> },
+ { 123, <<>> }
+ ,
+ lists:foldl(fun({ Input, Output}, Acc) -> ?_assertEqual(Output, eimap_utils:ensure_binary(Input)) | Acc end, , Data).
+
+only_full_lines_test_() ->
+ Data = 
+ 
+ { <<"yep">>, { <<>>, <<"yep">> } },
+ { <<"yep\r\nhohoho">>, { <<"yep\r\n">>, <<"hohoho">> } },
+ { <<"nope\r\nyep\r\nhohoho">>, { <<"nope\r\nyep\r\n">>, <<"hohoho">> } },
+ { <<"nope\r\nyep\r\nhohoho\r\n">>, { <<"nope\r\nyep\r\nhohoho\r\n">>, <<>> } }
+ ,
+ lists:foldl(fun({ Input, Output}, Acc) -> ?_assertEqual(Output, eimap_utils:only_full_lines(Input)) | Acc end, , Data).
+
+parse_flags_test_() ->
+ Data =
+ 
+ { <<"()">>, },
+ { <<>>, },
+ { <<"\\\\Answered \\\\Flagged \\\\Draft \\\\Deleted \\\\Seen">>, <<"\\\\Answered">>, <<"\\\\Flagged">>, <<"\\\\Draft">>, <<"\\\\Deleted">>, <<"\\\\Seen">> },
+ { <<"(\\\\Answered \\\\Flagged \\\\Draft \\\\Deleted \\\\Seen)">>, <<"\\\\Answered">>, <<"\\\\Flagged">>, <<"\\\\Draft">>, <<"\\\\Deleted">>, <<"\\\\Seen">> },
+ { "(\\\\Answered \\\\Flagged \\\\Draft \\\\Deleted \\\\Seen)", <<"\\\\Answered">>, <<"\\\\Flagged">>, <<"\\\\Draft">>, <<"\\\\Deleted">>, <<"\\\\Seen">> }
+ ,
+ lists:foldl(fun({ Input, Output}, Acc) -> ?_assertEqual(Output, eimap_utils:parse_flags(Input)) | Acc end, , Data).
+
+num_literal_continuation_bytes_test_() ->
+ Data =
+ 
+ { <<"abcd">>, { <<"abcd">>, 0, none } },
+ { <<"abcd{0}">>, { <<"abcd">>, 0, found } },
+ { <<"abcd{5}">>, { <<"abcd">>, 5, found } },
+ { <<"abcd{100}">>, { <<"abcd">>, 100, found } },
+ { <<"123abcd{100}">>, { <<"123abcd">>, 100, found } },
+ { <<"ab{123abcd{100}">>, { <<"ab{123abcd">>, 100, found } },
+ { <<"ab{123abcd{1{00}">>, { <<"ab{123abcd{1">>, 0, found } },
+ { <<"abcd{aa0}">>, { <<"abcd{aa0}">>, 0, none } },
+ { <<"abcd{10aa0}">>, { <<"abcd{10aa0}">>, 0, none } },
+ { <<"abcd100}">>, { <<"abcd100}">>, 0, none } },
+ { <<"abcd100}">>, { <<"abcd100}">>, 0, none } },
+ { <<"abcd{5+}">>, { <<"abcd">>, 5, found } }
+ ,
+ lists:foldl(fun({ Input, Output}, Acc) -> ?_assertEqual(Output, eimap_utils:num_literal_continuation_bytes(Input)) | Acc end, , Data).
+
+split_lines_test_() ->
+ Data =
+ 
+ { <<"abcd\r\nabcd">>, { <<"abcd\r\n">>, <<"abcd">> } },
+ { <<"\r\nabcd\r\nabcd\r\n\r\n">>, { <<"\r\n">>, <<"abcd\r\n">>, <<"abcd\r\n">>, <<"\r\n">>, <<"">> } }
+ ,
+ lists:foldl(fun({ Input, Output}, Acc) -> ?_assertEqual(Output, eimap_utils:split_lines(Input)) | Acc end, , Data).
+
+split_lines_with_literals_test_() ->
+ Data =
+ 
+ { <<"abcd\r\nabcd">>, { <<"abcd\r\n">>, <<"abcd">> } },
+ { <<"\r\nabcd\r\nabcd\r\n\r\n">>, { <<"\r\n">>, <<"abcd\r\n">>, <<"abcd\r\n">>, <<"\r\n">>, <<"">> } },
+ { <<"abcd{5}\r\n12345\r\nabcd{3}">>, { <<"abcd{5}\r\n12345\r\n">>, <<"abcd{3}">> } }
+ ,
+ lists:foldl(fun({ Input, Output}, Acc) -> ?_assertEqual(Output, eimap_utils:split_lines_with_literals(Input)) | Acc end, , Data).

guam-0.9.12.tar.gz/_checkouts/goldrush Added

guam-0.9.12.tar.gz/_checkouts/goldrush/LICENSE Added

guam-0.9.12.tar.gz/_checkouts/goldrush/README.org Added

@@ -0,0 +1,336 @@
+# Goldrush #
+
+Goldrush is a small Erlang app that provides fast event stream processing
+
+# Features #
+* Event processing compiled to a query module
+ - per module private event processing statistics
+ - query module logic can be combined for any/all filters
+ - query module logic can be reduced to efficiently match event processing
+
+* Complex event processing logic
+ - match input events with greater than (gt) logic
+ - match input events with less than (lt) logic
+ - match input events with equal to (eq) logic
+ - match input events with wildcard (wc) logic
+ - match input events with notfound (nf) logic
+ - match no input events (null blackhole) logic
+ - match all input events (null passthrough) logic
+
+* Handle output events
+ - Once a query has been composed the output action can be overriden
+   with one or more erlang functions. The functions will be applied to each
+   output event from the query.
+
+* Handle low latency retrieval of compile-time stored values.
+- Values stored are also provided to functions called on event output.
+- Handle job execution and timing which can also get values stored
+- create input events that include runtime on successful function executions.
+
+* Handle fastest lookups of stored values.
+- provide state storage option to compile, caching the values in query module.
+
+* Usage 
+  To use goldrush in your application, you need to define it as a rebar dep or
+  include it in erlang's path.
+
+
+Before composing modules, you'll need to define a query. The query syntax 
+matches any number of `{erlang, terms}' and is composed as follows:
+
+* Simple Logic 
+ - Simple logic is defined as any logic matching a single event filter
+
+Select all events where 'a' exists and is greater than 0.
+#+BEGIN_EXAMPLE
+    glc:gt(a, 0).
+#+END_EXAMPLE
+
+Select all events where 'a' exists and is greater than or equal to 0.
+#+BEGIN_EXAMPLE
+    glc:gte(a, 0).
+#+END_EXAMPLE
+
+Select all events where 'a' exists and is equal to 0.
+#+BEGIN_EXAMPLE
+    glc:eq(a, 0).
+#+END_EXAMPLE
+
+Select all events where 'a' exists and is not equal to 0.
+#+BEGIN_EXAMPLE
+    glc:neq(a, 0).
+#+END_EXAMPLE
+
+Select all events where 'a' exists and is less than 0.
+#+BEGIN_EXAMPLE
+    glc:lt(a, 0).
+#+END_EXAMPLE
+
+Select all events where 'a' exists and is less than or equal to 0.
+#+BEGIN_EXAMPLE
+    glc:lte(a, 0).
+#+END_EXAMPLE
+
+Select all events where 'a' exists.
+#+BEGIN_EXAMPLE
+    glc:wc(a).
+#+END_EXAMPLE
+
+Select all events where 'a' does not exist.
+#+BEGIN_EXAMPLE
+    glc:nf(a).
+#+END_EXAMPLE
+
+Select no input events. User as a black hole query.
+#+BEGIN_EXAMPLE
+    glc:null(false).
+#+END_EXAMPLE
+
+Select all input events. Used as a passthrough query.
+#+BEGIN_EXAMPLE
+    glc:null(true).
+#+END_EXAMPLE
+
+
+* Combined Logic
+ - Combined logic is defined as logic matching multiple event filters
+
+Select all events where both 'a' AND 'b' exists and are greater than 0.
+#+BEGIN_EXAMPLE
+    glc:all(glc:gt(a, 0), glc:gt(b, 0)).
+#+END_EXAMPLE
+
+Select all events where 'a' OR 'b' exists and are greater than 0.
+#+BEGIN_EXAMPLE
+    glc:any(glc:gt(a, 0), glc:gt(b, 0)).
+#+END_EXAMPLE
+
+Select all events where 'a' AND 'b' exists where 'a' is greater than 1 and 'b' is less than 2.
+#+BEGIN_EXAMPLE
+    glc:all(glc:gt(a, 1), glc:lt(b, 2)).
+#+END_EXAMPLE
+
+Select all events where 'a' OR 'b' exists where 'a' is greater than 1 and 'b' is less than 2.
+#+BEGIN_EXAMPLE
+    glc:any(glc:gt(a, 1), glc:lt(b, 2)).
+#+END_EXAMPLE
+
+
+* Reduced Logic
+ - Reduced logic is defined as logic which can be simplified to improve efficiency.
+
+Select all events where 'a' is equal to 1, 'b' is equal to 2 and 'c' is equal to 3 and collapse any duplicate logic.
+#+BEGIN_EXAMPLE
+        glc_lib:reduce(
+            glc:all(
+                glc:any(glc:eq(a, 1), glc:eq(b, 2)),
+                glc:any(glc:eq(a, 1), glc:eq(c, 3)))).
+#+END_EXAMPLE
+
+The previous example will produce and is equivalent to:
+#+BEGIN_EXAMPLE
+    glc:all(glc:eq(a, 1), glc:eq(b, 2), glc:eq(c, 3)).
+#+END_EXAMPLE
+
+
+
+* Composing Modules 
+  - All query modules must be compiled before use
+
+To compose a module you will take your Query defined above and compile it. 
+#+BEGIN_EXAMPLE
+    glc:compile(Module, Query).
+    glc:compile(Module, Query, State).
+    glc:compile(Module, Query, State, ResetStatistics).
+#+END_EXAMPLE
+
+
+- At this point you will be able to handle an event using a compiled query. 
+
+Begin by constructing an event list.
+#+BEGIN_EXAMPLE
+    Event = gre:make({'a', 2}, list).
+#+END_EXAMPLE
+
+Now pass it to your query module to be handled.
+#+BEGIN_EXAMPLE
+    glc:handle(Module, Event).
+#+END_EXAMPLE
+
+* Handling output events
+  - You can override the output action with an erlang function.
+
+Write all input events as info reports to the error logger.
+#+BEGIN_EXAMPLE
+    glc:with(glc:null(true), fun(E) ->
+         error_logger:info_report(gre:pairs(E)) end).
+#+END_EXAMPLE
+
+Write all input events where `error_level' exists and is less than 5 as info reports to the error logger.
+#+BEGIN_EXAMPLE
+    glc:with(glc:lt(error_level, 5), fun(E) ->
+         error_logger:info_report(gre:pairs(E)) end).
+#+END_EXAMPLE
+
+Write all input events where `error_level' exists and is 3 or 5 as info reports to the error logger.
+#+BEGIN_EXAMPLE
+   glc:any(
+     glc:with(glc:lt(error_level, 3), fun(E) ->
+         error_logger:info_report(gre:pairs(E)) end),
+     glc:with(glc:lt(error_level, 5), fun(E) ->
+         error_logger:info_report(gre:pairs(E)) end)).
+
+#+END_EXAMPLE
+
+
+# Composing Modules with stored state #
+
+To compose a module with state data you will add a third argument (orddict).
+#+BEGIN_EXAMPLE
+    glc:compile(Module, Query, {stored, value}).
+#+END_EXAMPLE
+
+# Accessing stored state data #
+
+Return the stored value in this query module.
+#+BEGIN_EXAMPLE
+{ok, value} = glc:get(stored).
+#+END_EXAMPLE
+
+Return all stored values in this query module.
+#+BEGIN_EXAMPLE
+... = Module:get().
+#+END_EXAMPLE
+
+
+* Composing Modules with stored data
+  - You can create query modules with local state to compare to event data in `with' and `run'
+
+To compose a module with state data you will add a third argument (orddict).
+#+BEGIN_EXAMPLE
+    glc:compile(Module, Query, {stored, value}).
+#+END_EXAMPLE
+
+* Accessing stored data in constant time 
+ - You can use query modules in a way similar to mochiglobal 
+
+Return the stored value in this query module.
+#+BEGIN_EXAMPLE
+{ok, value} = glc:get(stored).
+#+END_EXAMPLE
+
+
+* Job processing with composed modules 
+  - You can use query modules to execute jobs, if the job errors or not, process an event.
+  - `with' is similar to `run', the main difference is additional statistics and execution order
+  - when a job completes in error, the event data will contain an additional {error, _} item
+
+To execute a job through the query module, inputting an event on success.
+#+BEGIN_EXAMPLE
+    Event = gre:make({'a', 2}, list).
+    {ExecutionTime, Result}= glc:run(Module, fun(Event, State) ->
+        %% do not end with {error, _} or throw an exception 
+    end, Event).
+#+END_EXAMPLE
+
+* Event Processing Statistics 
+
+Return the number of input events for this query module.
+#+BEGIN_EXAMPLE
+glc:input(Module).
+#+END_EXAMPLE
+
+Return the number of output events for this query module.
+#+BEGIN_EXAMPLE
+glc:output(Module).
+#+END_EXAMPLE
+
+Return the number of filtered events for this query module.
+#+BEGIN_EXAMPLE
+glc:filter(Module).
+#+END_EXAMPLE
+
+
+* Job Processing Statistics 
+
+Return the number of job runs for this query module.
+#+BEGIN_EXAMPLE
+glc:job_run(Module).
+#+END_EXAMPLE
+
+Return the number of job errors for this query module.
+#+BEGIN_EXAMPLE
+glc:job_error(Module).
+#+END_EXAMPLE
+
+Return the number of job inputs for this query module.
+#+BEGIN_EXAMPLE
+glc:job_input(Module).
+#+END_EXAMPLE
+
+Return the amount of time jobs took for this query module.
+#+BEGIN_EXAMPLE
+glc:job_time(Module).
+#+END_EXAMPLE
+
+
+* Some Tips & Tricks 
+  - This is really just a drop in the bucket.
+
+Return the average time jobs took for this query module.
+#+BEGIN_EXAMPLE
+glc:job_time(Module) / glc:job_input(Module) / 1000000.
+#+END_EXAMPLE
+
+
+Return the query combining the conditional logic of multiple modules 
+#+BEGIN_EXAMPLE
+glc_lib:reduce(glc:all(Module1:info('query'), Module2:info('query')).
+#+END_EXAMPLE
+
+Return all statistics from this query module.
+#+BEGIN_EXAMPLE
+glc:info(Module).
+#+END_EXAMPLE
+
+* Build
+
+#+BEGIN_EXAMPLE
+ $ ./rebar compile
+#+END_EXAMPLE
+
+or
+
+#+BEGIN_EXAMPLE
+    $ make
+#+END_EXAMPLE
+
+* CHANGELOG 
+0.1.9
+- Add support for running jobs
+
+0.1.8
+- Add support for not equal
+
+0.1.7
+- Support multiple functions specified using `with/2` 
+- Add support for greater than or less than operators
+- Add state storage option for output events or lookup
+
+0.1.7
+- Add job execution and timings
+- Add state storage option 
+
+0.1.7
+- Add job execution and timings
+- Add state storage option 
+
+0.1.6 
+- Add notfound event matching
+
+0.1.5 
+- Rewrite to make highly crash resilient
+  - per module supervision
+  - statistics data recovery 
+- Add wildcard event matching
+- Add reset counters

guam-0.9.12.tar.gz/_checkouts/goldrush/hex_metadata.config Added

guam-0.9.12.tar.gz/_checkouts/goldrush/priv Added

guam-0.9.12.tar.gz/_checkouts/goldrush/priv/edoc.css Added

@@ -0,0 +1,130 @@
+/* Baseline rhythm */
+body {
+   font-size: 16px;
+   font-family: Helvetica, sans-serif;
+   margin: 8px;
+}
+
+p {
+   font-size: 1em; /* 16px */
+   line-height: 1.5em; /* 24px */
+   margin: 0 0 1.5em 0;
+}
+
+h1 {
+   font-size: 1.5em; /* 24px */
+   line-height: 1em; /* 24px */
+   margin-top: 1em;
+   margin-bottom: 0em;
+}
+
+h2 {
+   font-size: 1.375em; /* 22px */
+   line-height: 1.0909em; /* 24px */
+   margin-top: 1.0909em;
+   margin-bottom: 0em;
+}
+
+h3 {
+   font-size: 1.25em; /* 20px */
+   line-height: 1.2em; /* 24px */
+   margin-top: 1.2em;
+   margin-bottom: 0em;
+}
+
+h4 {
+   font-size: 1.125em; /* 18px */
+   line-height: 1.3333em; /* 24px */
+   margin-top: 1.3333em;
+   margin-bottom: 0em;
+}
+
+.class-for-16px {
+   font-size: 1em; /* 16px */
+   line-height: 1.5em; /* 24px */
+   margin-top: 1.5em;
+   margin-bottom: 0em;
+}
+
+.class-for-14px {
+   font-size: 0.875em; /* 14px */
+   line-height: 1.7143em; /* 24px */
+   margin-top: 1.7143em;
+   margin-bottom: 0em;
+}
+
+ul {
+   margin: 0 0 1.5em 0;
+}
+
+/* Customizations */
+body {
+   color: #333;
+}
+
+tt, code, pre {
+   font-family: "Andale Mono", "Inconsolata", "Monaco", "DejaVu Sans Mono", monospaced;
+}
+
+tt, code { font-size: 0.875em }
+
+pre {
+   font-size: 0.875em; /* 14px */
+   line-height: 1.7143em; /* 24px */
+   margin: 0 1em 1.7143em;
+   padding: 0 1em;
+   background: #eee;
+}
+
+.navbar img, hr { display: none }
+
+table {
+   border-collapse: collapse;
+}
+
+h1 {
+   border-left: 0.5em solid #fa0;
+   padding-left: 0.5em;
+}
+
+h2.indextitle {
+   font-size: 1.25em; /* 20px */
+   line-height: 1.2em; /* 24px */
+   margin: -8px -8px 0.6em;
+   background-color: #fa0;
+   color: white;
+   padding: 0.3em;
+}
+
+ul.index {
+   list-style: none;
+   margin-left: 0em;
+   padding-left: 0;
+}
+
+ul.index li {
+   display: inline;
+   padding-right: 0.75em
+}
+
+div.spec p {
+   margin-bottom: 0;
+   padding-left: 1.25em;
+   background-color: #eee;
+}
+
+h3.function {
+   border-left: 0.5em solid #fa0;
+   padding-left: 0.5em;
+   background: #fc9;
+}
+a, a:visited, a:hover, a:active { color: #C60 }
+h2 a, h3 a { color: #333 }
+
+i {
+   font-size: 0.875em; /* 14px */
+   line-height: 1.7143em; /* 24px */
+   margin-top: 1.7143em;
+   margin-bottom: 0em;
+   font-style: normal;
+}

guam-0.9.12.tar.gz/_checkouts/goldrush/rebar.config Added

guam-0.9.12.tar.gz/_checkouts/goldrush/rebar.lock Added

guam-0.9.12.tar.gz/_checkouts/goldrush/src Added

guam-0.9.12.tar.gz/_checkouts/goldrush/src/glc.erl Added

@@ -0,0 +1,1034 @@
+%% Copyright (c) 2012, Magnus Klaar <klaar@ninenines.eu>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+
+%% @doc Event filter implementation.
+%%
+%% An event query is constructed using the built in operators exported from
+%% this module. The filtering operators are used to specify which events
+%% should be included in the output of the query. The default output action
+%% is to copy all events matching the input filters associated with a query
+%% to the output. This makes it possible to construct and compose multiple
+%% queries at runtime.
+%%
+%% === Examples of built in filters ===
+%% ```
+%% %% Select all events where 'a' exists and is greater than 0.
+%% glc:gt(a, 0).
+%% %% Select all events where 'a' exists and is equal to 0.
+%% glc:eq(a, 0).
+%% %% Select all events where 'a' exists and is not equal to 0.
+%% glc:neq(a, 0).
+%% %% Select all events where 'a' exists and is less than 0.
+%% glc:lt(a, 0).
+%% %% Select all events where 'a' exists and is anything.
+%% glc:wc(a).
+%%
+%% %% Select no input events. Used as black hole query.
+%% glc:null(false).
+%% %% Select all input events. Used as passthrough query.
+%% glc:null(true).
+%% '''
+%%
+%% === Examples of combining filters ===
+%% ```
+%% %% Select all events where both 'a' and 'b' exists and are greater than 0.
+%% glc:all(glc:gt(a, 0), glc:gt(b, 0)).
+%% %% Select all events where 'a' or 'b' exists and are greater than 0.
+%% glc:any(glc:gt(a, 0), glc:gt(b, 0)).
+%% '''
+%%
+%% === Handling output events ===
+%%
+%% Once a query has been composed it is possible to override the output action
+%% with an erlang function. The function will be applied to each output event
+%% from the query. The return value from the function will be ignored.
+%%
+%% ```
+%% %% Write all input events as info reports to the error logger.
+%% glc:with(glc:null(true), fun(E) ->
+%% error_logger:info_report(gre:pairs(E)) end).
+%% '''
+%%
+-module(glc).
+
+-export(
+ compile/2,
+ compile/3,
+ compile/4,
+ handle/2,
+ get/2,
+ delete/1,
+ reset_counters/1,
+ reset_counters/2,
+ start/0
+).
+
+-export(
+ lt/2, lte/2,
+ eq/2, neq/2,
+ gt/2, gte/2,
+ wc/1,
+ nf/1
+).
+
+-export(
+ all/1,
+ any/1,
+ null/1,
+ with/2,
+ run/3
+).
+
+-export(
+ info/1,
+ input/1,
+ output/1,
+ job_input/1,
+ job_run/1,
+ job_error/1,
+ job_time/1,
+ filter/1,
+ union/1
+).
+
+-record(module, {
+ 'query' :: term(),
+ tables :: {atom(), atom()},
+ qtree :: term(),
+ store :: term()
+}).
+
+-spec lt(atom(), term()) -> glc_ops:op().
+lt(Key, Term) ->
+ glc_ops:lt(Key, Term).
+
+-spec lte(atom(), term()) -> glc_ops:op().
+lte(Key, Term) ->
+ glc_ops:lte(Key, Term).
+
+-spec eq(atom(), term()) -> glc_ops:op().
+eq(Key, Term) ->
+ glc_ops:eq(Key, Term).
+
+-spec neq(atom(), term()) -> glc_ops:op().
+neq(Key, Term) ->
+ glc_ops:neq(Key, Term).
+
+-spec gt(atom(), term()) -> glc_ops:op().
+gt(Key, Term) ->
+ glc_ops:gt(Key, Term).
+
+-spec gte(atom(), term()) -> glc_ops:op().
+gte(Key, Term) ->
+ glc_ops:gte(Key, Term).
+
+-spec wc(atom()) -> glc_ops:op().
+wc(Key) ->
+ glc_ops:wc(Key).
+
+-spec nf(atom()) -> glc_ops:op().
+nf(Key) ->
+ glc_ops:nf(Key).
+
+%% @doc Filter the input using multiple filters.
+%%
+%% For an input to be considered valid output the all filters specified
+%% in the list must hold for the input event. The list is expected to
+%% be a non-empty list. If the list of filters is an empty list a `badarg'
+%% error will be thrown.
+-spec all(glc_ops:op()) -> glc_ops:op().
+all(Filters) ->
+ glc_ops:all(Filters).
+
+
+%% @doc Filter the input using one of multiple filters.
+%%
+%% For an input to be considered valid output on of the filters specified
+%% in the list must hold for the input event. The list is expected to be
+%% a non-empty list. If the list of filters is an empty list a `badarg'
+%% error will be thrown.
+-spec any(glc_ops:op()) -> glc_ops:op().
+any(Filters) ->
+ glc_ops:any(Filters).
+
+
+%% @doc Always return `true' or `false'.
+-spec null(boolean()) -> glc_ops:op().
+null(Result) ->
+ glc_ops:null(Result).
+
+
+%% @doc Apply a function to each output of a query.
+%%
+%% Updating the output action of a query finalizes it. Attempting
+%% to use a finalized query to construct a new query will result
+%% in a `badarg' error.
+-spec with(glc_ops:op(), fun((gre:event()) -> term())) -> glc_ops:op().
+with(Query, Action) ->
+ glc_ops:with(Query, Action).
+
+
+%% @doc Return a union of multiple queries.
+%%
+%% The union of multiple queries is the equivalent of executing multiple
+%% queries separately on the same input event. The advantage is that filter
+%% conditions that are common to all or some of the queries only need to
+%% be tested once.
+%%
+%% All queries are expected to be valid and have an output action other
+%% than the default which is `output'. If these expectations don't hold
+%% a `badarg' error will be thrown.
+-spec union(glc_ops:op()) -> glc_ops:op().
+union(Queries) ->
+ glc_ops:union(Queries).
+
+
+%% @doc Compile a query to a module.
+%%
+%% On success the module representing the query is returned. The module and
+%% data associated with the query must be released using the {@link delete/1}
+%% function. The name of the query module is expected to be unique.
+%% The counters are reset by default, unless Reset is set to false 
+-spec compile(atom(), glc_ops:op() | glc_ops:op()) -> {ok, atom()}.
+compile(Module, Query) ->
+ compile(Module, Query, undefined, true).
+
+-spec compile(atom(), glc_ops:op() | glc_ops:op(), boolean()) -> {ok, atom()}.
+compile(Module, Query, Reset) when is_boolean(Reset) ->
+ compile(Module, Query, undefined, Reset);
+compile(Module, Query, undefined) ->
+ compile(Module, Query, undefined, true);
+compile(Module, Query, Store) when is_list(Store) ->
+ compile(Module, Query, Store, true).
+
+compile(Module, Query, Store, Reset) ->
+ {ok, ModuleData} = module_data(Module, Query, Store),
+ case glc_code:compile(Module, ModuleData) of
+ {ok, Module} when Reset ->
+ reset_counters(Module),
+ {ok, Module};
+ {ok, Module} ->
+ {ok, Module}
+ end.
+
+
+%% @doc Handle an event using a compiled query.
+%%
+%% The input event is expected to have been returned from {@link gre:make/2}.
+-spec handle(atom(), list({atom(), term()}) | gre:event()) -> ok.
+handle(Module, Event) when is_list(Event) ->
+ Module:handle(gre:make(Event, list));
+handle(Module, Event) ->
+ Module:handle(Event).
+
+get(Module, Key) ->
+ Module:get(Key).
+
+run(Module, Fun, Event) when is_list(Event) ->
+ Module:runjob(Fun, gre:make(Event, list));
+run(Module, Fun, Event) ->
+ Module:runjob(Fun, Event).
+
+
+info(Module) ->
+ Counters = input, filter, output, 
+ job_input, job_run, 
+ job_time, job_error,
+ {C, Module:info(C)} || C <- 'query' | Counters .
+
+%% @doc The number of input events for this query module.
+-spec input(atom()) -> non_neg_integer().
+input(Module) ->
+ Module:info(input).
+
+%% @doc The number of output events for this query module.
+-spec output(atom()) -> non_neg_integer().
+output(Module) ->
+ Module:info(output).
+
+%% @doc The number of filtered events for this query module.
+-spec filter(atom()) -> non_neg_integer().
+filter(Module) ->
+ Module:info(filter).
+
+
+%% @doc The number of job runs for this query module.
+-spec job_run(atom()) -> non_neg_integer().
+job_run(Module) ->
+ Module:info(job_run).
+
+%% @doc The number of job errors for this query module.
+-spec job_error(atom()) -> non_neg_integer().
+job_error(Module) ->
+ Module:info(job_error).
+
+%% @doc The number of job inputs for this query module.
+-spec job_input(atom()) -> non_neg_integer().
+job_input(Module) ->
+ Module:info(job_input).
+
+%% @doc The amount of time jobs took for this query module.
+-spec job_time(atom()) -> non_neg_integer().
+job_time(Module) ->
+ Module:info(job_time).
+
+%% @doc Release a compiled query.
+%%
+%% This releases all resources allocated by a compiled query. The query name
+%% is expected to be associated with an existing query module. Calling this
+%% function will shutdown all relevant processes and purge/delete the module.
+-spec delete(atom()) -> ok.
+delete(Module) ->
+ Params = params_name(Module),
+ Counts = counts_name(Module),
+ ManageParams = manage_params_name(Module),
+ ManageCounts = manage_counts_name(Module),
+
+ _ = begin 
+ ok = supervisor:terminate_child(Sup, Name),
+ ok = supervisor:delete_child(Sup, Name)
+ end || {Sup, Name} <- 
+ {gr_manager_sup, ManageParams}, {gr_manager_sup, ManageCounts},
+ {gr_param_sup, Params}, {gr_counter_sup, Counts}
+ ,
+
+ code:soft_purge(Module),
+ code:delete(Module),
+ ok.
+
+%% @doc Reset all counters
+%%
+%% This resets all the counters associated with a module
+-spec reset_counters(atom()) -> ok.
+reset_counters(Module) ->
+ Module:reset_counters(all).
+
+%% @doc Reset a specific counter
+%%
+%% This resets a specific counter associated with a module
+-spec reset_counters(atom(), atom()) -> ok.
+reset_counters(Module, Counter) ->
+ Module:reset_counters(Counter).
+
+%% @private Map a query to a module data term.
+-spec module_data(atom(), term(), term()) -> {ok, #module{}}.
+module_data(Module, Query, Store) ->
+ %% terms in the query which are not valid arguments to the
+ %% erl_syntax:abstract/1 functions are stored in ETS.
+ %% the terms are only looked up once they are necessary to
+ %% continue evaluation of the query.
+
+ %% query counters are stored in a shared ETS table. this should
+ %% be an optional feature. enabled by defaults to simplify tests.
+ %% the abstract_tables/1 function expects a list of name-atom pairs.
+ %% tables are referred to by name in the generated code. the table/1
+ %% function maps names to registered processes response for those tables.
+ Tables = module_tables(Module),
+ Query2 = glc_lib:reduce(Query),
+ {ok, #module{'query'=Query, tables=Tables, qtree=Query2, store=Store}}.
+
+%% @private Create a data managed supervised process for params, counter tables
+module_tables(Module) ->
+ Params = params_name(Module),
+ Counts = counts_name(Module),
+ ManageParams = manage_params_name(Module),
+ ManageCounts = manage_counts_name(Module),
+ Counters = {input,0}, {filter,0}, {output,0}, 
+ {job_input, 0}, {job_run,0}, {job_time, 0},
+ {job_error, 0},
+
+ _ = supervisor:start_child(gr_param_sup, 
+ {Params, {gr_param, start_link, Params}, 
+ transient, brutal_kill, worker, Params}),
+ _ = supervisor:start_child(gr_counter_sup, 
+ {Counts, {gr_counter, start_link, Counts}, 
+ transient, brutal_kill, worker, Counts}),
+ _ = supervisor:start_child(gr_manager_sup, 
+ {ManageParams, {gr_manager, start_link, ManageParams, Params, },
+ transient, brutal_kill, worker, ManageParams}),
+ _ = supervisor:start_child(gr_manager_sup, {ManageCounts, 
+ {gr_manager, start_link, ManageCounts, Counts, Counters},
+ transient, brutal_kill, worker, ManageCounts}),
+ {params,Params}, {counters, Counts}.
+
+reg_name(Module, Name) ->
+ list_to_atom("gr_" ++ atom_to_list(Module) ++ Name).
+
+params_name(Module) -> reg_name(Module, "_params").
+counts_name(Module) -> reg_name(Module, "_counters").
+manage_params_name(Module) -> reg_name(Module, "_params_mgr").
+manage_counts_name(Module) -> reg_name(Module, "_counters_mgr").
+
+
+start() ->
+ ok = application:start(syntax_tools),
+ ok = application:start(compiler),
+ ok = application:start(goldrush).
+
+%% @todo Move comment.
+%% @private Map a query to a simplified query tree term.
+%%
+%% The simplified query tree is used to combine multiple queries into one
+%% query module. The goal of this is to reduce the filtering and dispatch
+%% overhead when multiple concurrent queries are executed.
+%%
+%% A fixed selection condition may be used to specify a property that an event
+%% must have in order to be considered part of the input stream for a query.
+%%
+%% For the sake of simplicity it is only possible to define selection
+%% conditions using the fields present in the context and identifiers
+%% of an event. The fields in the context are bound to the reserved
+%% names:
+%%
+%% - '$n': node name
+%% - '$a': application name
+%% - '$p': process identifier
+%% - '$t': timestamp
+%% 
+%%
+%% If an event must be selected based on the runtime state of an event handler
+%% this must be done in the body of the handler.
+
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+
+setup_query(Module, Query) ->
+ setup_query(Module, Query, undefined).
+
+setup_query(Module, Query, Store) ->
+ ?assertNot(erlang:module_loaded(Module)),
+ ?assertEqual({ok, Module}, case (catch compile(Module, Query, Store)) of
+ {'EXIT',_}=Error -> ?debugFmt("~p", Error), Error; Else -> Else end),
+ ?assert(erlang:function_exported(Module, table, 1)),
+ ?assert(erlang:function_exported(Module, handle, 1)),
+ {compiled, Module}.
+
+events_test_() ->
+ {foreach,
+ fun() ->
+ error_logger:tty(false),
+ application:start(syntax_tools),
+ application:start(compiler),
+ application:start(goldrush)
+ end,
+ fun(_) ->
+ application:stop(goldrush),
+ application:stop(compiler),
+ application:stop(syntax_tools),
+ error_logger:tty(true)
+ end,
+ 
+ {"null query compiles",
+ fun() ->
+ {compiled, Mod} = setup_query(testmod1, glc:null(false)),
+ ?assertError(badarg, Mod:table(noexists))
+ end
+ },
+ {"params table exists",
+ fun() ->
+ {compiled, Mod} = setup_query(testmod2, glc:null(false)),
+ ?assert(is_atom(Mod:table(params))),
+ ?assertMatch(_|_, gr_param:info(Mod:table(params)))
+ end
+ },
+ {"null query exists",
+ fun() ->
+ {compiled, Mod} = setup_query(testmod3, glc:null(false)),
+ ?assert(erlang:function_exported(Mod, info, 1)),
+ ?assertError(badarg, Mod:info(invalid)),
+ ?assertEqual({null, false}, Mod:info('query'))
+ end
+ },
+ {"init counters test",
+ fun() ->
+ {compiled, Mod} = setup_query(testmod4, glc:null(false)),
+ ?assertEqual(0, Mod:info(input)),
+ ?assertEqual(0, Mod:info(filter)),
+ ?assertEqual(0, Mod:info(output))
+ end
+ },
+ {"filtered events test",
+ fun() ->
+ %% If no selection condition is specified no inputs can match.
+ {compiled, Mod} = setup_query(testmod5, glc:null(false)),
+ glc:handle(Mod, gre:make(, list)),
+ ?assertEqual(1, Mod:info(input)),
+ ?assertEqual(1, Mod:info(filter)),
+ ?assertEqual(0, Mod:info(output))
+ end
+ },
+ {"nomatch event test",
+ fun() ->
+ %% If a selection condition but no body is specified the event
+ %% is expected to count as filtered out if the condition does
+ %% not hold.
+ {compiled, Mod} = setup_query(testmod6, glc:eq('$n', 'noexists@nohost')),
+ glc:handle(Mod, gre:make({'$n', 'noexists2@nohost'}, list)),
+ ?assertEqual(1, Mod:info(input)),
+ ?assertEqual(1, Mod:info(filter)),
+ ?assertEqual(0, Mod:info(output))
+ end
+ },
+ {"opfilter equal test",
+ fun() ->
+ %% If a selection condition but no body is specified the event
+ %% counts as input to the query, but not as filtered out.
+ {compiled, Mod} = setup_query(testmod7a, glc:eq('$n', 'noexists@nohost')),
+ glc:handle(Mod, gre:make({'$n', 'noexists@nohost'}, list)),
+ ?assertEqual(1, Mod:info(input)),
+ ?assertEqual(0, Mod:info(filter)),
+ ?assertEqual(1, Mod:info(output))
+ end
+ },
+ {"opfilter not equal test",
+ fun() ->
+ {compiled, Mod} = setup_query(testmod7b, glc:neq('$n', 'noexists@nohost')),
+ glc:handle(Mod, gre:make({'$n', 'noexists@nohost'}, list)),
+ glc:handle(Mod, gre:make({'$n', 'notexists@nohost'}, list)),
+ ?assertEqual(2, Mod:info(input)),
+ ?assertEqual(1, Mod:info(filter)),
+ ?assertEqual(1, Mod:info(output))
+ end
+ },
+ {"opfilter wildcard test",
+ fun() ->
+ {compiled, Mod} = setup_query(testmod8, glc:wc(a)),
+ glc:handle(Mod, gre:make({b, 2}, list)),
+ ?assertEqual(1, Mod:info(input)),
+ ?assertEqual(1, Mod:info(filter)),
+ ?assertEqual(0, Mod:info(output)),
+ glc:handle(Mod, gre:make({a, 2}, list)),
+ ?assertEqual(2, Mod:info(input)),
+ ?assertEqual(1, Mod:info(filter)),
+ ?assertEqual(1, Mod:info(output))
+ end
+ },
+ {"opfilter notfound test",
+ fun() ->
+ {compiled, Mod} = setup_query(testmod9, glc:nf(a)),
+ glc:handle(Mod, gre:make({a, 2}, list)),
+ ?assertEqual(1, Mod:info(input)),
+ ?assertEqual(1, Mod:info(filter)),
+ ?assertEqual(0, Mod:info(output)),
+ glc:handle(Mod, gre:make({b, 2}, list)),
+ ?assertEqual(2, Mod:info(input)),
+ ?assertEqual(1, Mod:info(filter)),
+ ?assertEqual(1, Mod:info(output))
+ end
+ },
+ {"opfilter greater than test",
+ fun() ->
+ {compiled, Mod} = setup_query(testmod10a, glc:gt(a, 1)),
+ glc:handle(Mod, gre:make({'a', 2}, list)),
+ ?assertEqual(1, Mod:info(input)),
+ ?assertEqual(0, Mod:info(filter)),
+ glc:handle(Mod, gre:make({'a', 0}, list)),
+ ?assertEqual(2, Mod:info(input)),
+ ?assertEqual(1, Mod:info(filter)),
+ ?assertEqual(1, Mod:info(output))
+ end
+ },
+ {"opfilter greater than or equal to test",
+ fun() ->
+ {compiled, Mod} = setup_query(testmod10b, glc:gte(a, 1)),
+ glc:handle(Mod, gre:make({'a', 2}, list)),
+ ?assertEqual(1, Mod:info(input)),
+ ?assertEqual(0, Mod:info(filter)),
+ glc:handle(Mod, gre:make({'a', 1}, list)),
+ ?assertEqual(2, Mod:info(input)),
+ ?assertEqual(0, Mod:info(filter)),
+ glc:handle(Mod, gre:make({'a', 0}, list)),
+ ?assertEqual(3, Mod:info(input)),
+ ?assertEqual(1, Mod:info(filter)),
+ ?assertEqual(2, Mod:info(output))
+ end
+ },
+ {"opfilter less than test",
+ fun() ->
+ {compiled, Mod} = setup_query(testmod11a, glc:lt(a, 1)),
+ glc:handle(Mod, gre:make({'a', 0}, list)),
+ ?assertEqual(1, Mod:info(input)),
+ ?assertEqual(0, Mod:info(filter)),
+ ?assertEqual(1, Mod:info(output)),
+ glc:handle(Mod, gre:make({'a', 2}, list)),
+ ?assertEqual(2, Mod:info(input)),
+ ?assertEqual(1, Mod:info(filter)),
+ ?assertEqual(1, Mod:info(output))
+ end
+ },
+ {"opfilter less than or equal to test",
+ fun() ->
+ {compiled, Mod} = setup_query(testmod11b, glc:lte(a, 1)),
+ glc:handle(Mod, gre:make({'a', 0}, list)),
+ ?assertEqual(1, Mod:info(input)),
+ ?assertEqual(0, Mod:info(filter)),
+ ?assertEqual(1, Mod:info(output)),
+ glc:handle(Mod, gre:make({'a', 1}, list)),
+ ?assertEqual(2, Mod:info(input)),
+ ?assertEqual(0, Mod:info(filter)),
+ ?assertEqual(2, Mod:info(output)),
+ glc:handle(Mod, gre:make({'a', 2}, list)),
+ ?assertEqual(3, Mod:info(input)),
+ ?assertEqual(1, Mod:info(filter)),
+ ?assertEqual(2, Mod:info(output))
+ end
+ },
+ {"allholds op test",
+ fun() ->
+ {compiled, Mod} = setup_query(testmod12,
+ glc:all(glc:eq(a, 1), glc:eq(b, 2))),
+ glc:handle(Mod, gre:make({'a', 1}, list)),
+ glc:handle(Mod, gre:make({'a', 2}, list)),
+ ?assertEqual(2, Mod:info(input)),
+ ?assertEqual(2, Mod:info(filter)),
+ glc:handle(Mod, gre:make({'b', 1}, list)),
+ glc:handle(Mod, gre:make({'b', 2}, list)),
+ ?assertEqual(4, Mod:info(input)),
+ ?assertEqual(4, Mod:info(filter)),
+ glc:handle(Mod, gre:make({'a', 1},{'b', 2}, list)),
+ ?assertEqual(5, Mod:info(input)),
+ ?assertEqual(4, Mod:info(filter)),
+ ?assertEqual(1, Mod:info(output))
+ end
+ },
+ {"anyholds op test",
+ fun() ->
+ {compiled, Mod} = setup_query(testmod13,
+ glc:any(glc:eq(a, 1), glc:eq(b, 2))),
+ glc:handle(Mod, gre:make({'a', 2}, list)),
+ glc:handle(Mod, gre:make({'b', 1}, list)),
+ ?assertEqual(2, Mod:info(input)),
+ ?assertEqual(2, Mod:info(filter)),
+ glc:handle(Mod, gre:make({'a', 1}, list)),
+ glc:handle(Mod, gre:make({'b', 2}, list)),
+ ?assertEqual(4, Mod:info(input)),
+ ?assertEqual(2, Mod:info(filter))
+ end
+ },
+ {"with function test",
+ fun() ->
+ Self = self(),
+ {compiled, Mod} = setup_query(testmod14,
+ glc:with(glc:eq(a, 1), fun(Event) -> Self ! gre:fetch(a, Event) end)),
+ glc:handle(Mod, gre:make({a,1}, list)),
+ ?assertEqual(1, Mod:info(output)),
+ ?assertEqual(1, receive Msg -> Msg after 0 -> notcalled end)
+ end
+ },
+ {"with function storage test",
+ fun() ->
+ Self = self(),
+ Store = {stored, value},
+ {compiled, Mod} = setup_query(testmod15,
+ glc:with(glc:eq(a, 1), fun(Event, EStore) -> 
+ Self ! {gre:fetch(a, Event), EStore} end),
+ Store),
+ glc:handle(Mod, gre:make({a,1}, list)),
+ ?assertEqual(1, Mod:info(output)),
+ ?assertEqual(1, receive {Msg, Store} -> Msg after 0 -> notcalled end)
+ end
+ },
+ {"delete test",
+ fun() ->
+ {compiled, Mod} = setup_query(testmod16, glc:null(false)),
+ ?assert(is_atom(Mod:table(params))),
+ ?assertMatch(_|_, gr_param:info(Mod:table(params))),
+ ?assert(is_list(code:which(Mod))),
+ ?assert(is_pid(whereis(params_name(Mod)))),
+ ?assert(is_pid(whereis(counts_name(Mod)))),
+ ?assert(is_pid(whereis(manage_params_name(Mod)))),
+ ?assert(is_pid(whereis(manage_counts_name(Mod)))),
+
+ glc:delete(Mod),
+ 
+ ?assertEqual(non_existing, code:which(Mod)),
+ ?assertEqual(undefined, whereis(params_name(Mod))),
+ ?assertEqual(undefined, whereis(counts_name(Mod))),
+ ?assertEqual(undefined, whereis(manage_params_name(Mod))),
+ ?assertEqual(undefined, whereis(manage_counts_name(Mod)))
+ end
+ },
+ {"reset counters test",
+ fun() ->
+ {compiled, Mod} = setup_query(testmod17,
+ glc:any(glc:eq(a, 1), glc:eq(b, 2))),
+ glc:handle(Mod, gre:make({'a', 2}, list)),
+ glc:handle(Mod, gre:make({'b', 1}, list)),
+ ?assertEqual(2, Mod:info(input)),
+ ?assertEqual(2, Mod:info(filter)),
+ glc:handle(Mod, gre:make({'a', 1}, list)),
+ glc:handle(Mod, gre:make({'b', 2}, list)),
+ ?assertEqual(4, Mod:info(input)),
+ ?assertEqual(2, Mod:info(filter)),
+ ?assertEqual(2, Mod:info(output)),
+
+ glc:reset_counters(Mod, input),
+ ?assertEqual(0, Mod:info(input)),
+ ?assertEqual(2, Mod:info(filter)),
+ ?assertEqual(2, Mod:info(output)),
+ glc:reset_counters(Mod, filter),
+ ?assertEqual(0, Mod:info(input)),
+ ?assertEqual(0, Mod:info(filter)),
+ ?assertEqual(2, Mod:info(output)),
+ glc:reset_counters(Mod),
+ ?assertEqual(0, Mod:info(input)),
+ ?assertEqual(0, Mod:info(filter)),
+ ?assertEqual(0, Mod:info(output))
+ end
+ },
+ {"ets data recovery test",
+ fun() ->
+ Self = self(),
+ {compiled, Mod} = setup_query(testmod18,
+ glc:with(glc:eq(a, 1), fun(Event) -> Self ! gre:fetch(a, Event) end)),
+ glc:handle(Mod, gre:make({a,1}, list)),
+ ?assertEqual(1, Mod:info(output)),
+ ?assertEqual(1, receive Msg -> Msg after 0 -> notcalled end),
+ ?assertEqual(1, length(gr_param:list(Mod:table(params)))),
+ ?assertEqual(7, length(gr_param:list(Mod:table(counters)))),
+ true = exit(whereis(Mod:table(params)), kill),
+ true = exit(whereis(Mod:table(counters)), kill),
+ ?assertEqual(1, Mod:info(input)),
+ glc:handle(Mod, gre:make({'a', 1}, list)),
+ ?assertEqual(2, Mod:info(input)),
+ ?assertEqual(2, Mod:info(output)),
+ ?assertEqual(1, length(gr_param:list(Mod:table(params)))),
+ ?assertEqual(7, length(gr_counter:list(Mod:table(counters))))
+ end
+ },
+ {"run timed job test",
+ fun() ->
+ Self = self(),
+ Store = {stored, value},
+ Runtime = 0.15,
+ {compiled, Mod} = setup_query(testmod19,
+ glc:gt(runtime, Runtime),
+ Store),
+ glc:run(Mod, fun(Event, EStore) -> 
+ timer:sleep(100),
+ Self ! {gre:fetch(a, Event), EStore}
+ end, gre:make({a,1}, list)),
+ ?assertEqual(0, Mod:info(output)),
+ ?assertEqual(1, Mod:info(filter)),
+ ?assertEqual(1, receive {Msg, Store} -> Msg after 0 -> notcalled end),
+
+ delete(testmod19),
+ {compiled, Mod} = setup_query(testmod19,
+ glc:gt(runtime, Runtime),
+ Store),
+ glc:handle(Mod, gre:make({'a', 1}, list)),
+ glc:run(Mod, fun(Event, EStore) -> 
+ timer:sleep(200),
+ Self ! {gre:fetch(a, Event), EStore}
+ end, gre:make({a,2}, list)),
+ ?assertEqual(1, Mod:info(output)),
+ ?assertEqual(1, Mod:info(filter)),
+ ?assertEqual(2, receive {Msg, Store} -> Msg after 0 -> notcalled end)
+
+ end
+ },
+ {"reset job counters",
+ fun() ->
+ {compiled, Mod} = setup_query(testmod20,
+ glc:any(glc:eq(a, 1), glc:gt(runtime, 0.15))),
+ glc:handle(Mod, gre:make({'a', 2}, list)),
+ glc:handle(Mod, gre:make({'b', 1}, list)),
+ ?assertEqual(2, Mod:info(input)),
+ ?assertEqual(2, Mod:info(filter)),
+ glc:handle(Mod, gre:make({'a', 1}, list)),
+ glc:handle(Mod, gre:make({'b', 2}, list)),
+ ?assertEqual(4, Mod:info(input)),
+ ?assertEqual(3, Mod:info(filter)),
+ ?assertEqual(1, Mod:info(output)),
+
+ Self = self(),
+ glc:run(Mod, fun(Event, EStore) -> 
+ timer:sleep(100),
+ Self ! {gre:fetch(a, Event), EStore}
+ end, gre:make({a,1}, list)),
+ ?assertEqual(2, Mod:info(output)),
+ ?assertEqual(3, Mod:info(filter)),
+ ?assertEqual(1, receive {Msg, undefined} -> Msg after 0 -> notcalled end),
+
+ {_, Msg1} = glc:run(Mod, fun(_Event, _EStore) -> 
+ timer:sleep(200),
+ {error, badtest}
+ 
+ end, gre:make({a,1}, list)),
+ ?assertEqual(3, Mod:info(output)),
+ ?assertEqual(3, Mod:info(filter)),
+ ?assertEqual(2, Mod:info(job_input)),
+ ?assertEqual(1, Mod:info(job_error)),
+ ?assertEqual(1, Mod:info(job_run)),
+ ?assertEqual({error, badtest}, Msg1),
+
+ {_, Msg2} = glc:run(Mod, fun(_Event, _EStore) -> 
+ timer:sleep(20),
+ {ok, goodtest}
+ 
+ end, gre:make({a,2}, list)),
+ ?assertEqual(3, Mod:info(output)),
+ ?assertEqual(4, Mod:info(filter)),
+ ?assertEqual(3, Mod:info(job_input)),
+ ?assertEqual(1, Mod:info(job_error)),
+ ?assertEqual(2, Mod:info(job_run)),
+ ?assertEqual({ok, goodtest}, Msg2),
+
+
+ glc:reset_counters(Mod, input),
+ ?assertEqual(0, Mod:info(input)),
+ ?assertEqual(4, Mod:info(filter)),
+ ?assertEqual(3, Mod:info(output)),
+ ?assertEqual(3, Mod:info(job_input)),
+ ?assertEqual(1, Mod:info(job_error)),
+ ?assertEqual(2, Mod:info(job_run)),
+ glc:reset_counters(Mod, filter),
+ ?assertEqual(0, glc:input(Mod)),
+ ?assertEqual(0, glc:filter(Mod)),
+ ?assertEqual(3, glc:output(Mod)),
+ ?assertEqual(3, glc:job_input(Mod)),
+ ?assertEqual(1, glc:job_error(Mod)),
+ ?assertEqual(2, glc:job_run(Mod)),
+ glc:reset_counters(Mod, output),
+ ?assertEqual(0, Mod:info(input)),
+ ?assertEqual(0, Mod:info(filter)),
+ ?assertEqual(0, Mod:info(output)),
+ ?assertEqual(3, Mod:info(job_input)),
+ ?assertEqual(1, Mod:info(job_error)),
+ ?assertEqual(2, Mod:info(job_run)),
+ glc:reset_counters(Mod, job_input),
+ ?assertEqual(0, Mod:info(input)),
+ ?assertEqual(0, Mod:info(filter)),
+ ?assertEqual(0, Mod:info(output)),
+ ?assertEqual(0, Mod:info(job_input)),
+ ?assertEqual(1, Mod:info(job_error)),
+ ?assertEqual(2, Mod:info(job_run)),
+ glc:reset_counters(Mod, job_error),
+ ?assertEqual(0, Mod:info(input)),
+ ?assertEqual(0, Mod:info(filter)),
+ ?assertEqual(0, Mod:info(output)),
+ ?assertEqual(0, Mod:info(job_input)),
+ ?assertEqual(0, Mod:info(job_error)),
+ ?assertEqual(2, Mod:info(job_run)),
+ glc:reset_counters(Mod, job_run),
+ ?assertEqual(0, Mod:info(input)),
+ ?assertEqual(0, Mod:info(filter)),
+ ?assertEqual(0, Mod:info(output)),
+ ?assertEqual(0, Mod:info(job_input)),
+ ?assertEqual(0, Mod:info(job_error)),
+ ?assertEqual(0, Mod:info(job_run))
+ end
+ },
+ {"variable storage test",
+ fun() ->
+ {compiled, Mod} = setup_query(testmod20a,
+ glc:eq(a, 2), {stream, time}),
+ glc:handle(Mod, gre:make({'a', 2}, list)),
+ glc:handle(Mod, gre:make({'b', 1}, list)),
+ ?assertEqual(2, Mod:info(input)),
+ ?assertEqual(1, Mod:info(filter)),
+ glc:handle(Mod, gre:make({'b', 2}, list)),
+ ?assertEqual(3, Mod:info(input)),
+ ?assertEqual(2, Mod:info(filter)),
+ ?assertEqual({ok, time}, glc:get(Mod, stream)),
+ ?assertEqual({error, undefined}, glc:get(Mod, beam))
+ end
+ },
+ {"with multi function any test",
+ fun() ->
+ Self = self(),
+ Store = {stored, value},
+
+ G1 = glc:with(glc:eq(a, 1), fun(_Event, EStore) -> 
+ Self ! {a, EStore} end),
+ G2 = glc:with(glc:eq(b, 2), fun(_Event, EStore) -> 
+ Self ! {b, EStore} end),
+
+ {compiled, Mod} = setup_query(testmod20b, any(G1, G2),
+ Store),
+ glc:handle(Mod, gre:make({a,1}, list)),
+ ?assertEqual(1, Mod:info(output)),
+ ?assertEqual(a, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
+ ?assertEqual(b, receive {Msg, _Store} -> Msg after 0 -> notcalled end)
+ end
+ },
+ {"with multi function all test",
+ fun() ->
+ Self = self(),
+ Store = {stored, value},
+
+ G1 = glc:with(glc:eq(a, 1), fun(_Event, EStore) -> 
+ Self ! {a, EStore} end),
+ G2 = glc:with(glc:eq(b, 2), fun(_Event, EStore) -> 
+ Self ! {b, EStore} end),
+ G3 = glc:with(glc:eq(c, 3), fun(_Event, EStore) -> 
+ Self ! {c, EStore} end),
+
+ {compiled, Mod} = setup_query(testmod21, all(G1, G2, G3),
+ Store),
+ glc:handle(Mod, gre:make({a,1}, list)),
+ ?assertEqual(0, Mod:info(output)),
+ ?assertEqual(1, Mod:info(filter)),
+ glc:handle(Mod, gre:make({a,1}, {b, 2}, list)),
+ ?assertEqual(0, Mod:info(output)),
+ ?assertEqual(2, Mod:info(filter)),
+ glc:handle(Mod, gre:make({a,1}, {b, 2}, {c, 3}, list)),
+ ?assertEqual(1, Mod:info(output)),
+ ?assertEqual(a, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
+ ?assertEqual(b, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
+ ?assertEqual(c, receive {Msg, _Store} -> Msg after 0 -> notcalled end)
+ end
+ },
+ {"with multi-function output match test",
+ fun() ->
+ Self = self(),
+ Store = {stored, value},
+
+ {compiled, Mod} = setup_query(testmod22,
+ glc:with(glc:eq(a, 1), fun(Event, _EStore) -> 
+ Self ! {a, gre:fetch(a, Event)} end),
+ glc:with(glc:gt(b, 1), fun(Event, _EStore) -> 
+ Self ! {b, gre:fetch(b, Event)} end),
+ Store),
+ glc:handle(Mod, gre:make({a,1}, {b, 1}, list)),
+ ?assertEqual(1, Mod:info(output)),
+ ?assertEqual(a, receive {a=Msg, _Store} -> Msg after 0 -> notcalled end)
+
+ end
+ },
+ {"with multi-function output double-match test",
+ fun() ->
+ Self = self(),
+ Store = {stored, value},
+ {compiled, Mod} = setup_query(testmod23,
+ glc:with(glc:eq(a, 1), fun(Event, _EStore) -> 
+ Self ! {a, gre:fetch(a, Event)} end),
+ glc:with(glc:eq(b, 1), fun(Event, _EStore) -> 
+ Self ! {b, gre:fetch(b, Event)} end),
+ Store),
+ glc:handle(Mod, gre:make({a,1}, {b, 1}, list)),
+ ?assertEqual(2, Mod:info(output)),
+ ?assertEqual(a, receive {a=Msg, _Store} -> Msg after 0 -> notcalled end),
+ ?assertEqual(b, receive {b=Msg, _Store} -> Msg after 0 -> notcalled end)
+ end
+ },
+ {"with multi function complex match test",
+ fun() ->
+ Self = self(),
+ Store = {stored, value},
+
+ G1 = glc:with(glc:gt(r, 0.1), fun(_Event, EStore) -> 
+ Self ! {a, EStore} end),
+ G2 = glc:with(glc:all(glc:eq(a, 1), glc:gt(r, 0.5)), fun(_Event, EStore) -> 
+ Self ! {b, EStore} end),
+ G3 = glc:with(glc:all(glc:eq(a, 1), glc:eq(b, 2), glc:gt(r, 0.6)), fun(_Event, EStore) -> 
+ Self ! {c, EStore} end),
+
+ {compiled, Mod} = setup_query(testmod24, G1, G2, G3,
+ Store),
+ glc:handle(Mod, gre:make({a,1}, {r, 0.7}, {b, 3}, list)),
+ ?assertEqual(2, Mod:info(output)),
+ ?assertEqual(1, Mod:info(input)),
+ ?assertEqual(1, Mod:info(filter)),
+ ?assertEqual(a, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
+ ?assertEqual(b, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
+ %
+ glc:handle(Mod, gre:make({a,1}, {r, 0.6}, list)),
+ ?assertEqual(4, Mod:info(output)),
+ ?assertEqual(2, Mod:info(input)),
+ ?assertEqual(2, Mod:info(filter)),
+ ?assertEqual(a, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
+ ?assertEqual(b, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
+ %
+ glc:handle(Mod, gre:make({a,2}, {r, 0.7}, {b, 3}, list)),
+ ?assertEqual(5, Mod:info(output)),
+ ?assertEqual(3, Mod:info(input)),
+ ?assertEqual(4, Mod:info(filter)),
+ ?assertEqual(a, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
+
+ glc:handle(Mod, gre:make({a,1}, {r, 0.7}, {b, 2}, list)),
+ ?assertEqual(8, Mod:info(output)),
+ ?assertEqual(4, Mod:info(input)),
+ ?assertEqual(4, Mod:info(filter)),
+ ?assertEqual(a, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
+ ?assertEqual(b, receive {Msg, _Store} -> Msg after 0 -> notcalled end),
+ ?assertEqual(c, receive {Msg, _Store} -> Msg after 0 -> notcalled end)
+ end
+ },
+ {"with single-function run test",
+ fun() ->
+ Self = self(),
+ Store = {stored, value},
+ {compiled, Mod1} = setup_query(testmod25a,
+ glc:with(glc:all(glc:gt(runtime, 0.15), glc:lt(a, 3)), fun(Event, EStore) -> 
+ Self ! {gre:fetch(a, Event), EStore} end),
+ Store),
+ glc:run(Mod1, fun(_Event, _EStore) -> timer:sleep(200), ok end, gre:make({a, 2}, list)),
+ ?assertEqual(1, Mod1:info(output)),
+ ?assertEqual(2, receive {Msg, Store} -> Msg after 250 -> notcalled end),
+ {compiled, Mod2} = setup_query(testmod25b,
+ glc:with(glc:all(glc:gt(runtime, 0.15), glc:lt(a, 3)), fun(Event, EStore) -> 
+ Self ! {gre:fetch(a, Event), EStore}
+ end), Store),
+ {_, {error, later}} = glc:run(Mod2, fun(_Event, _EStore) -> 
+ timer:sleep(200), 
+ erlang:exit(later)
+ end, gre:make({a, 2}, list)),
+ ?assertEqual(1, Mod2:info(output)),
+ ?assertEqual(1, Mod2:info(job_error)),
+ ?assertEqual(2, receive {Msg, Store} -> Msg after 250 -> notcalled end)
+ end
+ },
+ {"with multi-function output run error test",
+ fun() ->
+ Self = self(),
+ Store = {stored, value},
+ {compiled, Mod} = setup_query(testmod26,
+ glc:with(glc:gt(runtime, 0.15), fun(Event, _EStore) -> 
+ Self ! {a, gre:fetch(b, Event)} 
+ end),
+ glc:with(glc:eq(c, 3), fun(Event, _EStore) -> 
+ Self ! {a, gre:fetch(a, Event)} 
+ end),
+ glc:with(glc:eq(b, 3), fun(Event, _EStore) -> 
+ Self ! {a, gre:fetch(a, Event)} 
+ end),
+ glc:with(glc:eq(a, 1), fun(Event, _EStore) -> 
+ receive {a, _Store} -> 
+ Self ! {b, gre:fetch(b, Event)}
+ after 10 -> notcalled end
+ end)
+ ,
+ Store),
+ Event = gre:make({a,1}, {b, 3}, {c, 4}, list),
+ {_, {error, bye}} = glc:run(Mod, fun(_Event, _EStore) -> 
+ timer:sleep(200),
+ erlang:error(bye) 
+ end, Event),
+ ?assertEqual(3, Mod:info(output)),
+ ?assertEqual(1, Mod:info(filter)),
+ ?assertEqual(1, Mod:info(job_error)),
+ ?assertEqual(b, receive {b=Msg, _Store} -> Msg after 0 -> notcalled end)
+ end
+ }
+ 
+ }.
+
+union_error_test() ->
+ ?assertError(badarg, glc:union(glc:eq(a, 1))),
+ done.
+
+-endif.

guam-0.9.12.tar.gz/_checkouts/goldrush/src/glc_code.erl Added

@@ -0,0 +1,624 @@
+%% @doc Code generation functions.
+-module(glc_code).
+-compile({nowarn_unused_function, {abstract_module,2}}).
+-compile({nowarn_unused_function, {abstract_tables,1}}).
+-compile({nowarn_unused_function, {abstract_reset,0}}).
+-compile({nowarn_unused_function, {abstract_filter,3}}).
+-compile({nowarn_unused_function, {abstract_filter_,4}}).
+-compile({nowarn_unused_function, {abstract_opfilter,6}}).
+-compile({nowarn_unused_function, {abstract_all,4}}).
+-compile({nowarn_unused_function, {abstract_any,4}}).
+-compile({nowarn_unused_function, {abstract_with,3}}).
+-compile({nowarn_unused_function, {abstract_within,3}}).
+-compile({nowarn_unused_function, {abstract_getkey,4}}).
+-compile({nowarn_unused_function, {abstract_getkey_,4}}).
+-compile({nowarn_unused_function, {abstract_getparam,3}}).
+-compile({nowarn_unused_function, {param_variable,1}}).
+-compile({nowarn_unused_function, {field_variable,1}}).
+-compile({nowarn_unused_function, {field_variable_,1}}).
+-compile({nowarn_unused_function, {compile_forms,2}}).
+-compile({nowarn_unused_function, {load_binary,2}}).
+
+
+-export(
+ compile/2
+).
+
+-define(erl, erl_syntax).
+
+-record(module, {
+ 'query' :: term(),
+ tables :: {atom(), atom()},
+ qtree :: term(),
+ store :: term()
+}).
+
+-type syntaxTree() :: erl_syntax:syntaxTree().
+
+-record(state, {
+ event = undefined :: syntaxTree(),
+ fields = :: {atom(), syntaxTree()},
+ fieldc = 0 :: non_neg_integer(),
+ paramvars = :: {term(), syntaxTree()},
+ paramstab = undefined :: atom(),
+ countstab = undefined :: atom()
+}).
+
+-type nextFun() :: fun((#state{}) -> syntaxTree()).
+
+compile(Module, ModuleData) ->
+ {ok, forms, Forms} = abstract_module(Module, ModuleData),
+ {ok, Module, Binary} = compile_forms(Forms, nowarn_unused_vars),
+ {ok, loaded, Module} = load_binary(Module, Binary),
+ {ok, Module}.
+
+%% abstract code generation functions
+
+%% @private Generate an abstract dispatch module.
+-spec abstract_module(atom(), #module{}) -> {ok, forms, list()}.
+abstract_module(Module, Data) ->
+ Forms = ?erl:revert(E) || E <- abstract_module_(Module, Data),
+ case lists:keyfind(errors, 1, erl_syntax_lib:analyze_forms(Forms)) of
+ false -> {ok, forms, Forms};
+ {_, } -> {ok, forms, Forms};
+ {_, _|_}=Errors -> Errors
+ end.
+
+%% @private Generate an abstract dispatch module.
+-spec abstract_module_(atom(), #module{}) -> ?erl:syntaxTree().
+abstract_module_(Module, #module{tables=Tables, 
+ qtree=Tree, store=Store}=Data) ->
+ {_, ParamsTable} = lists:keyfind(params, 1, Tables),
+ {_, CountsTable} = lists:keyfind(counters, 1, Tables),
+ AbstractMod = 
+ %% -module(Module)
+ ?erl:attribute(?erl:atom(module), ?erl:atom(Module)),
+ %% -export(
+ ?erl:attribute(
+ ?erl:atom(export),
+ ?erl:list(
+ %% get/1
+ ?erl:arity_qualifier(
+ ?erl:atom(get),
+ ?erl:integer(1)),
+ %% info/1
+ ?erl:arity_qualifier(
+ ?erl:atom(info),
+ ?erl:integer(1)),
+ %% reset_counters/1
+ ?erl:arity_qualifier(
+ ?erl:atom(reset_counters),
+ ?erl:integer(1)),
+ %% table/1
+ ?erl:arity_qualifier(
+ ?erl:atom(table),
+ ?erl:integer(1)),
+ ?erl:arity_qualifier(
+ ?erl:atom(runjob),
+ ?erl:integer(2)),
+ %% handle/1
+ ?erl:arity_qualifier(
+ ?erl:atom(handle),
+ ?erl:integer(1)))),
+ %% ).
+ %% get(Name) -> Term.
+ ?erl:function(
+ ?erl:atom(get),
+ abstract_get(Data) ++
+ ?erl:clause(
+ ?erl:underscore(), none,
+ ?erl:abstract({error, undefined}))),
+ %% info(Name) -> Term.
+ ?erl:function(
+ ?erl:atom(info),
+ abstract_info(Data) ++
+ ?erl:clause(
+ ?erl:underscore(), none,
+ abstract_apply(erlang, error, ?erl:atom(badarg)))),
+ %% reset_counters(Name) -> boolean().
+ ?erl:function(
+ ?erl:atom(reset_counters),
+ abstract_reset() ++
+ ?erl:clause(
+ ?erl:underscore(), none,
+ abstract_apply(erlang, error, ?erl:atom(badarg)))),
+ %% table(Name) -> atom().
+ ?erl:function(
+ ?erl:atom(table),
+ abstract_tables(Tables) ++
+ ?erl:clause(
+ ?erl:underscore(), none,
+ abstract_apply(erlang, error, ?erl:atom(badarg)))),
+ %% handle(Event) - entry function
+ ?erl:function(
+ ?erl:atom(handle),
+ ?erl:clause(?erl:variable("Event"), none,
+ abstract_count(input),
+ ?erl:application(none,
+ ?erl:atom(handle_), ?erl:variable("Event")))),
+ ?erl:function(
+ ?erl:atom(runjob),
+ ?erl:clause(?erl:variable("Fun"), ?erl:variable("Event"), none,
+ abstract_count(job_input),
+ ?erl:application(none,
+ ?erl:atom(job_), ?erl:variable("Fun"),
+ ?erl:variable("Event")))),
+ %% input_(Node, App, Pid, Tags, Values) - filter roots
+ ?erl:function(
+ ?erl:atom(handle_),
+ ?erl:clause(?erl:variable("Event"), none,
+ abstract_filter(Tree, Data, #state{
+ event=?erl:variable("Event"),
+ paramstab=ParamsTable,
+ countstab=CountsTable}))),
+ ?erl:function(
+ ?erl:atom(job_),
+ ?erl:clause(?erl:variable("Fun"),
+ ?erl:variable("Meta"), none,
+
+ ?erl:application(none,
+ ?erl:atom(job_result), 
+ ?erl:catch_expr(
+ abstract_apply(glc_run, execute, 
+ ?erl:variable("Fun"),
+ ?erl:list(?erl:variable("Meta"), 
+ ?erl:abstract(Store))
+ )),
+ ?erl:variable("Meta"))
+ 
+ )),
+ ?erl:function(
+ ?erl:atom(job_result),
+ abstract_runjob(Data)
+ )
+ ,
+ %% Transform Term -> Key to Key -> Term
+ gr_param:transform(ParamsTable),
+ AbstractMod.
+
+%% @private Return the clauses of the table/1 function.
+abstract_tables(Tables) ->
+ ?erl:clause(
+ ?erl:abstract(K), none,
+ ?erl:abstract(V))
+ || {K, V} <- Tables.
+
+abstract_query_find(K, Store) ->
+ case lists:keyfind(K, 1, Store) of
+ {_, Val} -> 
+ {ok, Val};
+ _ -> 
+ {error, notfound}
+ end.
+
+%% @private Return the original query as an expression.
+abstract_query({with, Query, _}) ->
+ ?erl:abstract(Query);
+abstract_query({with, _Query, _}|_ = I) ->
+ ?erl:abstract(Query || {with, Query, _} <- I);
+ %?erl:abstract(_Query);
+abstract_query({any, {with, _Q, _A}|_ = I}) ->
+ Queries = glc_lib:reduce(glc:any(Q || {with, Q, _} <- I)),
+ ?erl:abstract(Queries);
+abstract_query({all, {with, _Q, _A}|_ = I}) ->
+ Queries = glc_lib:reduce(glc:all(Q || {with, Q, _} <- I)),
+ ?erl:abstract(Queries);
+abstract_query(Query) ->
+ ?erl:abstract(Query).
+
+
+%% @private Return the clauses of the get/1 function.
+abstract_get(#module{'query'=_Query, store=undefined}) ->
+ ;
+abstract_get(#module{'query'=_Query, store=Store}) ->
+ ?erl:clause(?erl:abstract(K), none, 
+ abstract_query(abstract_query_find(K, Store)))
+ || {K, _} <- Store.
+
+%% @private 
+abstract_runjob(#module{'query'=_Query, store=_Store}) ->
+ Time = abstract_apply(erlang, '/', ?erl:variable("Time"),
+ ?erl:abstract(1000000)),
+ ?erl:clause(?erl:variable("JobResult"),
+ ?erl:variable("Meta"), none,
+ 
+ ?erl:case_expr(?erl:variable("JobResult"),
+ 
+ ?erl:clause(
+ ?erl:tuple(?erl:variable("Time"), ?erl:variable("Result")),
+ none,
+ ?erl:case_expr(?erl:variable("Result"),
+ 
+ ?erl:clause(
+ ?erl:tuple(?erl:atom(error),?erl:variable("Reason")),
+ none,
+ abstract_count(input), abstract_count(job_error),
+ ?erl:application(none, ?erl:atom(handle_), 
+ abstract_job(Time, ?erl:tuple(?erl:atom(error), 
+ ?erl:variable("Reason")))),
+ abstract_count(job_time, ?erl:variable("Time")),
+ ?erl:tuple(?erl:variable("Time"), 
+ ?erl:tuple(?erl:atom(error), 
+ ?erl:variable("Reason")))),
+
+ ?erl:clause(
+ ?erl:variable("Result"),
+ none,
+ abstract_count(input), abstract_count(job_run),
+ ?erl:application(none, ?erl:atom(handle_), 
+ abstract_job(Time)),
+ abstract_count(job_time, ?erl:variable("Time")),
+ ?erl:tuple(?erl:variable("Time"), 
+ ?erl:variable("Result")))
+ )
+ )
+ )
+ 
+ ).
+
+abstract_job(Time) ->
+ abstract_job(Time, ).
+abstract_job(Time, Error) ->
+ Pairs = abstract_apply(gre, pairs, ?erl:variable("Meta")),
+ Runtime = ?erl:list(?erl:tuple(?erl:atom(runtime), Time)),
+ abstract_apply(gre, make, 
+ abstract_apply(erlang, '++', ?erl:list(Error), 
+ abstract_apply(erlang, '++', Pairs, Runtime)),
+ ?erl:abstract(list)).
+
+%% @private Return the clauses of the info/1 function.
+abstract_info(#module{'query'=Query}) ->
+ ?erl:clause(?erl:abstract(K), none, V)
+ || {K, V} <- 
+ {'query', abstract_query(Query)},
+ {input, abstract_getcount(input)},
+ {filter, abstract_getcount(filter)},
+ {output, abstract_getcount(output)},
+ {job_input, abstract_getcount(job_input)},
+ {job_run, abstract_getcount(job_run)},
+ {job_time, abstract_getcount(job_time)},
+ {job_error, abstract_getcount(job_error)}
+ .
+
+
+abstract_reset() ->
+ ?erl:clause(?erl:abstract(K), none, V)
+ || {K, V} <- 
+ {all, abstract_resetcount(input, filter, output, 
+ job_input, job_run, 
+ job_time, job_error)},
+ {input, abstract_resetcount(input)},
+ {filter, abstract_resetcount(filter)},
+ {output, abstract_resetcount(output)},
+ {job_input, abstract_resetcount(job_input)},
+ {job_run, abstract_resetcount(job_run)},
+ {job_time, abstract_resetcount(job_time)},
+ {job_error, abstract_resetcount(job_error)}
+ .
+
+
+%% @private Return a list of expressions to apply a filter.
+%% @todo Allow mulitple functions to be specified using `with/2'.
+-spec abstract_filter(glc_ops:op() | glc_ops:op(), #module{}, #state{}) -> syntaxTree().
+abstract_filter({Type, {with, _Cond, _Fun}|_ = I}, Data, State) when Type =:= all; Type =:= any ->
+ Cond = glc_lib:reduce(glc:Type(Q || {with, Q, _} <- I)),
+ abstract_filter_(Cond,
+ _OnMatch=fun(State2) ->
+ Funs = F || {with, _, F} <- I ,
+ abstract_count(output) ++ 
+ abstract_with(Funs, Data, State2) end,
+ _OnNomatch=fun(_State2) -> abstract_count(filter) end, State);
+abstract_filter({with, _Cond, _Fun}|_ = I, Data, State) ->
+ OnNomatch = fun(_State2) -> abstract_count(filter, 0) end,
+ Funs = lists:foldr(fun({with, Cond, Fun}, Acc) -> 
+ {Cond, Fun, Data}|Acc
+ end, , I),
+ abstract_within(Funs, OnNomatch, State);
+abstract_filter({with, Cond, Fun}, Data, State) ->
+ abstract_filter_(Cond,
+ _OnMatch=fun(State2) ->
+ abstract_count(output) ++ 
+ abstract_with(Fun, Data, State2) end,
+ _OnNomatch=fun(_State2) -> abstract_count(filter) end, State);
+abstract_filter(Cond, _Data, State) ->
+ abstract_filter_(Cond,
+ _OnMatch=fun(_State2) -> abstract_count(output) end,
+ _OnNomatch=fun(_State2) -> abstract_count(filter) end, State).
+
+%% @private Return a list of expressions to apply a filter.
+%% A filter expects two continuation functions which generates the expressions
+%% to apply when the filter matches or fails to match. The state passed to the
+%% functions will contain all the variable bindings of previously accessed
+%% fields and parameters.
+-spec abstract_filter_(glc_ops:op(), nextFun(), nextFun(), #state{}) ->
+ syntaxTree().
+abstract_filter_({null, true}, OnMatch, _OnNomatch, State) ->
+ OnMatch(State);
+abstract_filter_({null, false}, _OnMatch, OnNomatch, State) ->
+ OnNomatch(State);
+abstract_filter_({Key, '*'}, OnMatch, OnNomatch, State) ->
+ abstract_getkey(Key,
+ _OnMatch=fun(#state{}=State2) -> OnMatch(State2) end,
+ _OnNomatch=fun(State2) -> OnNomatch(State2) end, State);
+abstract_filter_({Key, '!'}, OnMatch, OnNomatch, State) ->
+ abstract_getkey(Key,
+ _OnNomatch=fun(State2) -> OnNomatch(State2) end, 
+ _OnMatch=fun(#state{}=State2) -> OnMatch(State2) end,
+ State);
+abstract_filter_({Key, Op, Value}, OnMatch, OnNomatch, State)
+ when Op =:= '>'; Op =:= '='; Op =:= '!='; Op =:= '<';
+ Op =:= '>='; Op =:= '=<'; Op =:= '<=' ->
+ Op2 = case Op of 
+ '=' -> '=:='; 
+ '!=' -> '=/='; 
+ '<=' -> '=<';
+ Op -> Op 
+ end,
+ abstract_opfilter(Key, Op2, Value, OnMatch, OnNomatch, State);
+abstract_filter_({'any', Conds}, OnMatch, OnNomatch, State) ->
+ abstract_any(Conds, OnMatch, OnNomatch, State);
+abstract_filter_({'all', Conds}, OnMatch, OnNomatch, State) ->
+ abstract_all(Conds, OnMatch, OnNomatch, State).
+
+%% @private Return a branch based on a built in operator.
+-spec abstract_opfilter(atom(), atom(), term(), nextFun(),
+ nextFun(), #state{}) -> syntaxTree().
+abstract_opfilter(Key, Opname, Value, OnMatch, OnNomatch, State) ->
+ abstract_getkey(Key,
+ _OnMatch=fun(#state{}=State2) ->
+ ?erl:case_expr(
+ abstract_apply(erlang, Opname, 
+ ?erl:variable(field_variable(Key)),
+ ?erl:abstract(Value)
+ ),
+ ?erl:clause(?erl:atom(true), none, 
+ OnMatch(State2)),
+ ?erl:clause(?erl:atom(false), none,
+ OnNomatch(State2))) end,
+ _OnNomatch=fun(State2) -> OnNomatch(State2) end, State).
+
+%% @private Generate an `all' filter.
+%% An `all' filter is evaluated by testing all conditions that must hold. If
+%% any of the conditions does not hold the evaluation is short circuted at that
+%% point. This means that the `OnNomatch' branch is executed once for each
+%% condition. The `OnMatch' branch is only executed once.
+-spec abstract_all(glc_ops:op(), nextFun(), nextFun(), #state{}) ->
+ syntaxTree().
+abstract_all(H|T, OnMatch, OnNomatch, State) ->
+ abstract_filter_(H,
+ _OnMatch=fun(State2) -> abstract_all(T, OnMatch, OnNomatch, State2)
+ end, OnNomatch, State);
+abstract_all(, OnMatch, _OnNomatch, State) ->
+ OnMatch(State).
+
+%% @private
+-spec abstract_any(glc_ops:op(), nextFun(), nextFun(), #state{}) ->
+ syntaxTree().
+abstract_any(H|T, OnMatch, OnNomatch, State) ->
+ abstract_filter_(H, OnMatch,
+ _OnNomatch=fun(State2) -> abstract_any(T, OnMatch, OnNomatch, State2)
+ end, State);
+abstract_any(, _OnMatch, OnNomatch, State) ->
+ OnNomatch(State).
+
+%% @private
+-spec abstract_with(fun((gre:event()) -> term()), 
+ #module{}, #state{}) -> syntaxTree().
+abstract_with(Fun0|_ = Funs, Data, State) 
+ when is_function(Fun0, 1); is_function(Fun0, 2) ->
+ abstract_getparam(Funs, fun(#state{event=Event, paramvars=Params}) ->
+ lists:map(fun(Fun) -> 
+ {_, Fun2} = lists:keyfind(Fun, 1, Params),
+ abstract_with_({Fun, Fun2}, Event, Data)
+ end, Funs)
+ end, State);
+abstract_with(Fun, Data, State) when is_function(Fun, 1); is_function(Fun, 2) ->
+ abstract_getparam(Fun, fun(#state{event=Event, paramvars=Params}) ->
+ {_, Fun2} = lists:keyfind(Fun, 1, Params),
+ abstract_with_({Fun, Fun2}, Event, Data)
+ end, State).
+
+abstract_within({H, Fun, Data}|T, OnNomatch, State) ->
+ OnMatch = fun(State2) -> abstract_count(output) ++ 
+ abstract_with(Fun, Data, State2) 
+ ++ abstract_within(T, OnNomatch, State2)
+ end,
+ abstract_filter_(H, OnMatch,
+ _OnNomatch=fun(State2) -> 
+ abstract_count(filter) ++ 
+ abstract_within(T, OnNomatch, State2)
+ end, State);
+abstract_within(, OnNomatch, State) ->
+ OnNomatch(State).
+
+abstract_with_({Fun, Fun2}, Event, #module{store=Store}) ->
+ ?erl:application(none, Fun2, 
+ case Fun of
+ _ when is_function(Fun, 1) ->
+ Event;
+ _ when is_function(Fun, 2) ->
+ Event, ?erl:abstract(Store)
+ end).
+
+%% @private Bind the value of a field to a variable.
+%% If the value of a field has already been bound to a variable the previous
+%% binding is reused over re-accessing the value. The `OnMatch' function is
+%% expected to access the variable stored in the state record. The `OnNomatch'
+%% function must not attempt to access the variable.
+-spec abstract_getkey(atom(), nextFun(), nextFun(), #state{}) ->
+ syntaxTree().
+abstract_getkey(Key, OnMatch, OnNomatch, #state{fields=Fields}=State) ->
+ case lists:keyfind(Key, 1, Fields) of
+ {Key, _Variable} -> OnMatch(State);
+ false -> abstract_getkey_(Key, OnMatch, OnNomatch, State)
+ end.
+
+
+-spec abstract_getkey_(atom(), nextFun(), nextFun(), #state{}) ->
+ syntaxTree().
+abstract_getkey_(Key, OnMatch, OnNomatch, #state{
+ event=Event, fields=Fields}=State) ->
+ ?erl:case_expr(
+ abstract_apply(gre, find, ?erl:atom(Key), Event),
+ ?erl:clause(
+ ?erl:tuple(
+ ?erl:atom(true),
+ ?erl:variable(field_variable(Key))), none,
+ OnMatch(State#state{
+ fields={Key, ?erl:variable(field_variable(Key))}
+ |Fields})),
+ ?erl:clause(
+ ?erl:atom(false), none,
+ OnNomatch(State))
+ 
+ ).
+
+%% @private Bind the value of a parameter to a variable.
+%% During code generation the parameter value is used as the identity of the
+%% parameter. At runtime a unique integer is used as the identity.
+-spec abstract_getparam(term(), nextFun(), #state{}) -> syntaxTree().
+abstract_getparam(_|_=Terms, OnBound, #state{paramvars=_Params, fields=_Fields,
+ paramstab=_ParamsTable}=State) 
+ when is_list(Terms) ->
+
+ {Keys, Bound} = lists:foldl(fun(Term, {Acc0, #state{paramvars=Params,
+ paramstab=ParamsTable}=State0}) ->
+ case lists:keyfind(Term, 1, Params) of
+ {_, _Variable} -> 
+ {Acc0, State0};
+
+ false ->
+ Key = abstract_getparam_key(Term, ParamsTable),
+ Lookup = abstract_apply(gr_param, lookup_element,
+ abstract_apply(table, ?erl:atom(params)),
+ ?erl:abstract(Key)),
+ Expr = ?erl:match_expr(param_variable(Key), Lookup),
+ State1 = State0#state{paramvars={Term, param_variable(Key)}|Params},
+ {Expr|Acc0, State1}
+
+ end
+ end, {, State}, Terms),
+ Keys ++ OnBound(Bound);
+abstract_getparam(Term, OnBound, #state{paramvars=Params}=State) ->
+ case lists:keyfind(Term, 1, Params) of
+ {_, _Variable} -> OnBound(State);
+ %% parameter not bound to variable in this scope.
+ false -> abstract_getparam(Term, OnBound, State)
+ end.
+
+abstract_getparam_key(Term, ParamsTable) ->
+ case gr_param:lookup(ParamsTable, Term) of
+ {_, Key2} ->
+ Key2;
+ ->
+ Key2 = gr_param:info_size(ParamsTable),
+ gr_param:insert(ParamsTable, {Term, Key2}),
+ Key2
+ end.
+
+%% @private Generate a variable name for the value of a field.
+-spec field_variable(atom()) -> string().
+field_variable(Key) ->
+ "Field_" ++ field_variable_(atom_to_list(Key)).
+
+%% @private Escape non-alphanumeric values.
+-spec field_variable_(string()) -> string().
+field_variable_(H|T) when H >= $0, H =< $9 ->
+ H|field_variable_(T);
+field_variable_(H|T) when H >= $A, H =< $Z ->
+ H|field_variable_(T);
+field_variable_(H|T) when H >= $a, H =< $z ->
+ H|field_variable_(T);
+field_variable_(H|T) ->
+ "_" ++ integer_to_list(H, 16) ++ "_" ++ field_variable_(T);
+field_variable_() ->
+ .
+
+%% @private Generate a variable name for the value of a parameter.
+-spec param_variable(integer()) -> syntaxTree().
+param_variable(Key) ->
+ ?erl:variable("Param_" ++ integer_to_list(Key)).
+
+%% @ private Generate a list of field variable names.
+%% Walk the query tree and generate a safe variable name string for each field
+%% that is accessed by the conditions in the query. Only allow alpha-numeric.
+%%-spec field_variables(glc_ops:op()) -> {atom(), string()}.
+%%field_variables(Query) ->
+%% lists:usort(field_variables_(Query)).
+
+%%-spec field_variables(glc_ops:op()) -> {atom(), string()}.
+%%field_variables_({Key, '=', _Term}) ->
+%% {Key, field_variable(Key)}.
+
+
+
+%% @private Return an expression to increment a counter.
+%% @todo Pass state record. Only Generate code if `statistics' is enabled.
+-spec abstract_count(atom()) -> syntaxTree().
+abstract_count(Counter) ->
+ abstract_count(Counter, 1).
+abstract_count(Counter, Value) when is_integer(Value) ->
+ abstract_apply(gr_counter, update_counter,
+ abstract_apply(table, ?erl:atom(counters)),
+ ?erl:abstract(Counter),
+ ?erl:abstract({2,Value}));
+abstract_count(Counter, Value) ->
+ abstract_apply(gr_counter, update_counter,
+ abstract_apply(table, ?erl:atom(counters)),
+ ?erl:abstract(Counter),
+ ?erl:tuple(?erl:abstract(2), Value)
+ ).
+
+
+%% @private Return an expression to get the value of a counter.
+%% @todo Pass state record. Only Generate code if `statistics' is enabled.
+-spec abstract_getcount(atom()) -> syntaxTree().
+abstract_getcount(Counter) when is_atom(Counter) ->
+ abstract_getcount(?erl:abstract(Counter));
+abstract_getcount(Counter) ->
+ abstract_apply(gr_counter, lookup_element,
+ abstract_apply(table, ?erl:atom(counters)), Counter).
+
+%% @private Return an expression to reset a counter.
+-spec abstract_resetcount(atom() | filter | input | output | 
+ job_input | job_run | job_time | job_error ) 
+ -> syntaxTree().
+abstract_resetcount(Counter) ->
+ abstract_apply(gr_counter, reset_counters,
+ abstract_apply(table, ?erl:atom(counters)),
+ ?erl:abstract(Counter)).
+
+
+
+%% abstract code util functions
+
+
+%% @private Compile an abstract module.
+-spec compile_forms(term(), term()) -> {ok, atom(), binary()}.
+compile_forms(Forms, Opts) ->
+ case compile:forms(Forms, Opts) of
+ {ok, Module, Binary} ->
+ {ok, Module, Binary};
+ {ok, Module, Binary, _Warnings} ->
+ {ok, Module, Binary};
+ Error ->
+ erlang:error({compile_forms, Error})
+ end.
+
+%% @private Load a module binary.
+-spec load_binary(atom(), binary()) -> {ok, loaded, atom()}.
+load_binary(Module, Binary) ->
+ case code:load_binary(Module, "", Binary) of
+ {module, Module} -> {ok, loaded, Module};
+ {error, Reason} -> exit({error_loading_module, Module, Reason})
+ end.
+
+%% @private Apply an exported function.
+-spec abstract_apply(atom(), atom(), syntaxTree()) -> syntaxTree().
+abstract_apply(Module, Function, Arguments) ->
+ ?erl:application(?erl:atom(Module), ?erl:atom(Function), Arguments).
+
+%% @private Apply a module local function.
+-spec abstract_apply(atom(), syntaxTree()) -> syntaxTree().
+abstract_apply(Function, Arguments) ->
+ ?erl:application(?erl:atom(Function), Arguments).

guam-0.9.12.tar.gz/_checkouts/goldrush/src/glc_lib.erl Added

@@ -0,0 +1,451 @@
+%% Copyright (c) 2012, Magnus Klaar <klaar@ninenines.eu>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+%% @doc Query processing functions.
+-module(glc_lib).
+
+-export(
+ reduce/1,
+ matches/2,
+ onoutput/1,
+ onoutput/2
+).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-undef(LET).
+-ifdef(PROPER).
+-include_lib("proper/include/proper.hrl").
+-endif.
+-endif.
+
+%% @doc Return a reduced version of a query.
+%% 
+%% The purpose of this function is to ensure that a query filter
+%% is in the simplest possible form. The query filter returned
+%% from this function is functionally equivalent to the original.
+reduce(Query) ->
+ repeat(Query, fun(Q0) ->
+ Q1 = repeat(Q0, fun flatten/1),
+ Q2 = required(Q1),
+ Q3 = repeat(Q2, fun flatten/1),
+ Q4 = common(Q3),
+ Q5 = repeat(Q4, fun flatten/1),
+ Q6 = constants(Q5),
+ Q6
+ end).
+
+
+%% @doc Test if an event matches a query.
+%% This function is only intended to be used for testing purposes.
+matches({any, Conds}, Event) ->
+ lists:any(fun(Cond) -> matches(Cond, Event) end, Conds);
+matches({all, Conds}, Event) ->
+ lists:all(fun(Cond) -> matches(Cond, Event) end, Conds);
+matches({null, Const}, _Event) ->
+ Const;
+matches({Key, '<', Term}, Event) ->
+ case gre:find(Key, Event) of
+ {true, Term2} -> Term2 < Term;
+ false -> false
+ end;
+matches({Key, '=<', Term}, Event) ->
+ case gre:find(Key, Event) of
+ {true, Term2} -> Term2 =< Term;
+ false -> false
+ end;
+matches({Key, '=', Term}, Event) ->
+ case gre:find(Key, Event) of
+ {true, Term2} -> Term2 =:= Term;
+ false -> false
+ end;
+matches({Key, '!=', Term}, Event) ->
+ case gre:find(Key, Event) of
+ {true, Term2} -> Term2 =/= Term;
+ false -> false
+ end;
+matches({Key, '>', Term}, Event) ->
+ case gre:find(Key, Event) of
+ {true, Term2} -> Term2 > Term;
+ false -> false
+ end;
+matches({Key, '>=', Term}, Event) ->
+ case gre:find(Key, Event) of
+ {true, Term2} -> Term2 >= Term;
+ false -> false
+ end;
+matches({Key, '*'}, Event) ->
+ case gre:find(Key, Event) of
+ {true, _} -> true;
+ false -> false
+ end;
+matches({Key, '!'}, Event) ->
+ not matches({Key, '*'}, Event).
+
+%% @private Repeatedly apply a function to a query.
+%% This is used for query transformation functions that must be applied
+%% multiple times to yield the simplest possible version of a query.
+repeat(Query, Fun) ->
+ case Fun(Query) of
+ Query -> Query;
+ Query2 -> repeat(Query2, Fun)
+ end.
+
+
+%% @doc Return the output action of a query.
+-spec onoutput(glc_ops:op()) -> output | no_return().
+onoutput({_, '<', _}) ->
+ output;
+onoutput({_, '=<', _}) ->
+ output;
+onoutput({_, '=', _}) ->
+ output;
+onoutput({_, '>', _}) ->
+ output;
+onoutput({_, '>=', _}) ->
+ output;
+onoutput({_, '*'}) ->
+ output;
+onoutput({_, '!'}) ->
+ output;
+onoutput(Query) ->
+ erlang:error(badarg, Query).
+
+%% @doc Modify the output action of a query.
+-spec onoutput(Action :: any(), Query :: glc_ops:op()) -> no_return().
+onoutput(Action, Query) ->
+ erlang:error(badarg, Action, Query).
+
+
+%% @private Flatten a condition tree.
+flatten({all, Cond}) ->
+ Cond;
+flatten({any, Cond}) ->
+ Cond;
+flatten({all, Conds}) ->
+ flatten_all(flatten(Cond) || Cond <- Conds);
+flatten({any, _|_=Conds}) ->
+ flatten_any(flatten(Cond) || Cond <- Conds);
+flatten({with, Cond, Action}) ->
+ {with, flatten(Cond), Action};
+flatten({with, _Cond, _Action}|_ = I) ->
+ {with, flatten(Cond), Action} || {with, Cond, Action} <- I;
+flatten(Other) ->
+ valid(Other).
+
+
+%% @private Flatten and remove duplicate members of an "all" filter.
+flatten_all(Conds) ->
+ {all, lists:usort(flatten_tag(all, Conds))}.
+
+%% @private Flatten and remove duplicate members of an "any" filter.
+flatten_any(Conds) ->
+ {any, lists:usort(flatten_tag(any, Conds))}.
+
+%% @private Common function for flattening "all" or "and" filters.
+flatten_tag(Tag, {Tag, Conds}|T) ->
+ Conds ++ flatten_tag(Tag, T);
+flatten_tag(Tag, H|T) ->
+ H|flatten_tag(Tag, T);
+flatten_tag(_Tag, ) ->
+ .
+
+%% @private Factor out required filters.
+%%
+%% Identical conditions may occur in all sub-filters of an "any" filter. These
+%% filters can be tested once before testing the conditions that are unique to
+%% each sub-filter.
+%%
+%% Assume that the input has been flattened first in order to eliminate all
+%% occurances of an "any" filters being "sub-filters" of "any" filters.
+required({any, H|_=Conds}) ->
+ Init = ordsets:from_list(case H of {all, Init2} -> Init2; H -> H end),
+ case required(Conds, Init) of
+ nonefound ->
+ Conds2 = required(Cond) || Cond <- Conds,
+ {any, Conds2};
+ {found, Req} ->
+ Conds2 = required(deleteall(Cond, Req)) || Cond <- Conds,
+ {all, {all, Req}, {any, Conds2}}
+ end;
+required({all, Conds}) ->
+ {all, required(Cond) || Cond <- Conds};
+required(Other) ->
+ Other.
+
+required({all, Conds}|T, Acc) ->
+ required(T, ordsets:intersection(ordsets:from_list(Conds), Acc));
+required({any, _}|_=Cond, Acc) ->
+ erlang:error(badarg, Cond, Acc);
+required(H|T, Acc) ->
+ required(T, ordsets:intersection(ordsets:from_list(H), Acc));
+required(, _|_=Req) ->
+ {found, Req};
+required(, ) ->
+ nonefound.
+
+%% @private Factor our common filters.
+%%
+%% Identical conditions may occur in some sub-filters of an "all" filter. These
+%% filters can be tested once before testing the conditions that are unique to
+%% each sub-filter. This is different from factoring out common sub-filters
+%% in an "any" filter where the only those sub-filters that exist in all
+%% members.
+%%
+%% Assume that the input has been flattened first in order to eliminate all
+%% occurances of an "any" filters being "sub-filters" of "any" filters.
+common({all, Conds}) ->
+ case common_(Conds, ) of
+ {found, Found} ->
+ {all, Found|delete(Cond, Found) || Cond <- Conds};
+ nonefound ->
+ {all, common(Cond) || Cond <- Conds}
+ end;
+common({any, Conds}) ->
+ {any, common(Cond) || Cond <- Conds};
+common(Other) ->
+ Other.
+ 
+
+common_({any, Conds}|T, Seen) ->
+ Set = ordsets:from_list(Conds),
+ case ordsets:intersection(Set, Seen) of
+ -> common_(T, ordsets:union(Set, Seen));
+ H|_ -> {found, H}
+ end;
+common_(H|T, Seen) ->
+ case ordsets:is_element(H, Seen) of
+ false -> common_(T, ordsets:union(ordsets:from_list(H), Seen));
+ true -> {found, H}
+ end;
+common_(, _Seen) ->
+ nonefound.
+
+%% @private Delete all occurances of constants.
+%%
+%% An "all" or "any" filter may be reduced to a constant outcome when all
+%% sub-filters has been factored out from the filter. In these cases the
+%% filter can be removed from the query.
+constants(Query) ->
+ delete(Query, {null, true}).
+ 
+
+
+%% @private Delete all occurances of a filter.
+%%
+%% Assume that the function is called because a filter is tested
+%% by a parent filter. It is therefore safe to replace occurances
+%% with a null filter that always returns true.
+delete({all, Conds}, Filter) ->
+ {all, delete(Cond, Filter) || Cond <- Conds, Cond =/= Filter};
+delete({any, Conds}, Filter) ->
+ {any, delete(Cond, Filter) || Cond <- Conds, Cond =/= Filter};
+delete(Filter, Filter) ->
+ {null, true};
+delete(Cond, _Filter) ->
+ Cond.
+
+%% @private Delete all occurances of multiple filters.
+deleteall(Filter, H|T) ->
+ deleteall(delete(Filter, H), T);
+deleteall(Filter, ) ->
+ Filter.
+
+
+
+%% @private Test if a term is a valid filter.
+-spec is_valid(glc_ops:op()) -> boolean().
+is_valid({Field, '<', _Term}) when is_atom(Field) ->
+ true;
+is_valid({Field, '=<', _Term}) when is_atom(Field) ->
+ true;
+is_valid({Field, '=', _Term}) when is_atom(Field) ->
+ true;
+is_valid({Field, '!=', _Term}) when is_atom(Field) ->
+ true;
+is_valid({Field, '>=', _Term}) when is_atom(Field) ->
+ true;
+is_valid({Field, '>', _Term}) when is_atom(Field) ->
+ true;
+is_valid({Field, '*'}) when is_atom(Field) ->
+ true;
+is_valid({Field, '!'}) when is_atom(Field) ->
+ true;
+is_valid({null, true}) ->
+ true;
+is_valid({null, false}) ->
+ true;
+is_valid(_Other) ->
+ false.
+
+%% @private Assert that a term is a valid filter.
+%% If the term is a valid filter. The original term will be returned.
+%% If the term is not a valid filter. A `badarg' error is thrown.
+valid(Term) ->
+ is_valid(Term) orelse erlang:error(badarg, Term),
+ Term.
+
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+
+all_one_test() ->
+ ?assertEqual(glc:eq(a, 1),
+ glc_lib:reduce(glc:all(glc:eq(a, 1)))
+ ).
+
+all_sort_test() ->
+ ?assertEqual(glc:all(glc:eq(a, 1), glc:eq(b, 2)),
+ glc_lib:reduce(glc:all(glc:eq(b, 2), glc:eq(a, 1)))
+ ).
+
+any_one_test() ->
+ ?assertEqual(glc:eq(a, 1),
+ glc_lib:reduce(glc:any(glc:eq(a, 1)))
+ ).
+
+all_two_test() ->
+ ?assertEqual(glc_lib:reduce(glc:all(glc:wc(a), glc:nf(b))),
+ glc_lib:reduce(glc:any(
+ glc:all(glc:wc(a)), 
+ glc:all(glc:wc(a), glc:nf(b))))
+ ).
+
+any_sort_test() ->
+ ?assertEqual(glc:any(glc:eq(a, 1), glc:eq(b, 2)),
+ glc_lib:reduce(glc:any(glc:eq(b, 2), glc:eq(a, 1)))
+ ).
+
+all_nest_test() ->
+ ?assertEqual(glc:all(glc:eq(a, 1), glc:eq(b, 2)),
+ glc_lib:reduce(glc:all(glc:eq(a, 1), glc:all(glc:eq(b, 2))))
+ ),
+ ?assertEqual(glc:all(glc:eq(a, 1), glc:eq(b, 2), glc:eq(c, 3)),
+ glc_lib:reduce(glc:all(glc:eq(c, 3),
+ glc:all(glc:eq(a, 1),
+ glc:all(glc:eq(b, 2)))))
+ ).
+
+any_nest_test() ->
+ ?assertEqual(glc:any(glc:eq(a, 1), glc:eq(b, 2)),
+ glc_lib:reduce(glc:any(glc:eq(a, 1), glc:any(glc:eq(b, 2))))
+ ),
+ ?assertEqual(glc:any(glc:eq(a, 1), glc:eq(b, 2), glc:eq(c, 3)),
+ glc_lib:reduce(glc:any(glc:eq(c, 3),
+ glc:any(glc:eq(a, 1),
+ glc:any(glc:eq(b, 2)))))
+ ).
+
+all_equiv_test() ->
+ ?assertEqual(glc:eq(a, 1),
+ glc_lib:reduce(glc:all(glc:eq(a, 1), glc:eq(a, 1)))
+ ).
+
+any_equiv_test() ->
+ ?assertEqual(glc:eq(a, 1),
+ glc_lib:reduce(glc:any(glc:eq(a, 1), glc:eq(a, 1)))
+ ).
+
+any_required_test() ->
+ ?assertEqual(
+ glc:all(
+ glc:any(glc:nf(d), glc:eq(b, 2), glc:eq(c, 3)),
+ glc:eq(a, 1)
+ ),
+ glc_lib:reduce(
+ glc:any(
+ glc:all(glc:eq(a, 1), glc:nf(d)),
+ glc:all(glc:eq(a, 1), glc:eq(b, 2)),
+ glc:all(glc:eq(a, 1), glc:eq(c, 3))))
+ ).
+ 
+
+all_common_test() ->
+ ?assertEqual(
+ glc:all(glc:eq(a, 1), glc:eq(b, 2), glc:eq(c, 3)),
+ glc_lib:reduce(
+ glc:all(
+ glc:any(glc:eq(a, 1), glc:eq(b, 2)),
+ glc:any(glc:eq(a, 1), glc:eq(c, 3))))
+ ).
+
+delete_from_all_test() ->
+ ?assertEqual(
+ glc:all(glc:eq(b,2)),
+ deleteall(
+ glc:all(glc:eq(a, 1),glc:eq(b,2)), glc:eq(a, 1), glc:nf(a))
+ ).
+
+delete_from_any_test() ->
+ ?assertEqual(
+ glc:any(glc:eq(b,2)),
+ deleteall(
+ glc:any(glc:eq(a, 1),glc:eq(b,2)), glc:eq(a, 1), glc:wc(a))
+ ).
+
+default_is_output_test_() ->
+ ?_assertEqual(output, glc_lib:onoutput(glc:lt(a, 1))),
+ ?_assertEqual(output, glc_lib:onoutput(glc:lte(a, 1))),
+ ?_assertEqual(output, glc_lib:onoutput(glc:eq(a, 1))),
+ ?_assertEqual(output, glc_lib:onoutput(glc:gt(a, 1))),
+ ?_assertEqual(output, glc_lib:onoutput(glc:gte(a, 1))),
+ ?_assertEqual(output, glc_lib:onoutput(glc:wc(a))),
+ ?_assertEqual(output, glc_lib:onoutput(glc:nf(a)))
+ .
+
+matches_test_() ->
+ Event = gre:make({a, 2}, list),
+ ?_assertEqual(true, glc_lib:matches(glc:lt(a, 3), Event)),
+ ?_assertEqual(true, glc_lib:matches(glc:lte(a, 2), Event)),
+ ?_assertEqual(true, glc_lib:matches(glc:eq(a, 2), Event)),
+ ?_assertEqual(true, glc_lib:matches(glc:gt(a, 1), Event)),
+ ?_assertEqual(true, glc_lib:matches(glc:gte(a, 2), Event)),
+ ?_assertEqual(true, glc_lib:matches(glc:wc(a), Event)),
+ ?_assertEqual(true, glc_lib:matches(glc:nf(b), Event)),
+
+ ?_assertEqual(false, glc_lib:matches(glc:lt(a, 2), Event)),
+ ?_assertEqual(false, glc_lib:matches(glc:lte(a, 1), Event)),
+ ?_assertEqual(false, glc_lib:matches(glc:eq(a, 3), Event)),
+ ?_assertEqual(false, glc_lib:matches(glc:gt(a, 2), Event)),
+ ?_assertEqual(false, glc_lib:matches(glc:gte(a, 3), Event)),
+ ?_assertEqual(false, glc_lib:matches(glc:wc(b), Event)),
+ ?_assertEqual(false, glc_lib:matches(glc:nf(a), Event))
+ .
+
+-ifdef(PROPER).
+
+
+prop_reduce_returns() ->
+ ?FORALL(Query, glc_ops:op(),
+ returns(fun() -> glc_lib:reduce(Query) end)).
+
+reduce_returns_test() ->
+ ?assert(proper:quickcheck(prop_reduce_returns())).
+
+prop_matches_returns_boolean() ->
+ ?FORALL({Query, Event}, {glc_ops:op(), {atom(), term()}},
+ is_boolean(glc_lib:matches(Query, gre:make(Event, list)))).
+
+matches_returns_boolean_test() ->
+ ?assert(proper:quickcheck(prop_matches_returns_boolean())).
+
+returns(Fun) ->
+ try Fun(),
+ true
+ catch _:_ ->
+ false
+ end.
+
+-endif.
+-endif.

guam-0.9.12.tar.gz/_checkouts/goldrush/src/glc_ops.erl Added

@@ -0,0 +1,155 @@
+%% @doc Built in operators.
+-module(glc_ops).
+
+-export(
+ lt/2, lte/2,
+ eq/2, neq/2,
+ gt/2, gte/2,
+ wc/1,
+ nf/1
+).
+
+-export(
+ all/1,
+ any/1,
+ null/1,
+ with/2
+).
+
+-export(
+ union/1
+).
+
+-type op() ::
+ {atom(), '<', term()} |
+ {atom(), '=<', term()} |
+ {atom(), '=', term()} |
+ {atom(), '!=', term()} |
+ {atom(), '>', term()} |
+ {atom(), '>=', term()} |
+ {atom(), '*'} |
+ {atom(), '!'} |
+ {any, op(), ...} |
+ {all, op(), ...} |
+ {null, true|false}.
+
+-export_type(op/0).
+
+%% @doc Test that a field value is less than a term.
+-spec lt(atom(), term()) -> op().
+lt(Key, Term) when is_atom(Key) ->
+ {Key, '<', Term};
+lt(Key, Term) ->
+ erlang:error(badarg, Key, Term).
+
+
+%% @doc Test that a field value is less than or equal to a term.
+-spec lte(atom(), term()) -> op().
+lte(Key, Term) when is_atom(Key) ->
+ {Key, '=<', Term};
+lte(Key, Term) ->
+ erlang:error(badarg, Key, Term).
+
+%% @doc Test that a field value is equal to a term.
+-spec eq(atom(), term()) -> op().
+eq(Key, Term) when is_atom(Key) ->
+ {Key, '=', Term};
+eq(Key, Term) ->
+ erlang:error(badarg, Key, Term).
+
+%% @doc Test that a field value is not equal to a term.
+-spec neq(atom(), term()) -> op().
+neq(Key, Term) when is_atom(Key) ->
+ {Key, '!=', Term};
+neq(Key, Term) ->
+ erlang:error(badarg, Key, Term).
+
+
+%% @doc Test that a field value is greater than a term.
+-spec gt(atom(), term()) -> op().
+gt(Key, Term) when is_atom(Key) ->
+ {Key, '>', Term};
+gt(Key, Term) ->
+ erlang:error(badarg, Key, Term).
+
+%% @doc Test that a field value is greater than or equal to a term.
+-spec gte(atom(), term()) -> op().
+gte(Key, Term) when is_atom(Key) ->
+ {Key, '>=', Term};
+gte(Key, Term) ->
+ erlang:error(badarg, Key, Term).
+
+%% @doc Test that a field exists.
+-spec wc(atom()) -> op().
+wc(Key) when is_atom(Key) ->
+ {Key, '*'};
+wc(Key) ->
+ erlang:error(badarg, Key).
+
+%% @doc Test that a field is not found.
+-spec nf(atom()) -> op().
+nf(Key) when is_atom(Key) ->
+ {Key, '!'};
+nf(Key) ->
+ erlang:error(badarg, Key).
+
+%% @doc Filter the input using multiple filters.
+%%
+%% For an input to be considered valid output the all filters specified
+%% in the list must hold for the input event. The list is expected to
+%% be a non-empty list. If the list of filters is an empty list a `badarg'
+%% error will be thrown.
+-spec all(op()) -> op().
+all(_|_=Conds) ->
+ {all, Conds};
+all(Other) ->
+ erlang:error(badarg, Other).
+
+%% @doc Filter the input using one of multiple filters.
+%%
+%% For an input to be considered valid output on of the filters specified
+%% in the list must hold for the input event. The list is expected to be
+%% a non-empty list. If the list of filters is an empty list a `badarg'
+%% error will be thrown.
+-spec any(op()) -> op().
+any(_|_=Conds) ->
+ {any, Conds};
+any(Other) ->
+ erlang:error(badarg, Other).
+
+
+%% @doc Always return `true' or `false'.
+-spec null(boolean()) -> op().
+null(Result) when is_boolean(Result) ->
+ {null, Result};
+null(Result) ->
+ erlang:error(badarg, Result).
+
+%% @doc Apply a function to each output of a query.
+%%
+%% Updating the output action of a query finalizes it. Attempting
+%% to use a finalized query to construct a new query will result
+%% in a `badarg' error.
+-spec with(op(), fun((gre:event()) -> term())) -> op().
+with(Query, Fun) when is_function(Fun, 1);
+ is_function(Fun, 2) ->
+ {with, Query, Fun};
+with(Query, Fun) ->
+ erlang:error(badarg, Query, Fun).
+
+%% @doc Return a union of multiple queries.
+%%
+%% The union of multiple queries is the equivalent of executing multiple
+%% queries separately on the same input event. The advantage is that filter
+%% conditions that are common to all or some of the queries only need to
+%% be tested once.
+%%
+%% All queries are expected to be valid and have an output action other
+%% than the default which is `output'. If these expectations don't hold
+%% a `badarg' error will be thrown.
+-spec union(op()) -> op().
+union(Queries) ->
+ case Query || Query <- Queries, glc_lib:onoutput(Query) =:= output of
+ -> {union, Queries};
+ _|_ -> erlang:error(badarg, Queries)
+ end.

guam-0.9.12.tar.gz/_checkouts/goldrush/src/glc_run.erl Added

guam-0.9.12.tar.gz/_checkouts/goldrush/src/goldrush.app.src Added

guam-0.9.12.tar.gz/_checkouts/goldrush/src/gr_app.erl Added

guam-0.9.12.tar.gz/_checkouts/goldrush/src/gr_context.erl Added

@@ -0,0 +1,71 @@
+%% Copyright (c) 2012, Magnus Klaar <klaar@ninenines.eu>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+%% @doc Runtime context for events.
+-module(gr_context).
+
+-export(
+ make/1
+).
+
+make(Options) ->
+ make_(undefined, undefined, undefined, undefined, Options).
+
+make_(_Node, App, Pid, Time, {'$n', Node}|T) ->
+ make_(Node, App, Pid, Time, T);
+make_(Node, _App, Pid, Time, {'$a', App}|T) ->
+ make_(Node, App, Pid, Time, T);
+make_(Node, App, _Pid, Time, {'$p', Pid}|T) ->
+ make_(Node, App, Pid, Time, T);
+make_(Node, App, Pid, _Time, {'$t', Time}|T) ->
+ make_(Node, App, Pid, Time, T);
+make_(Node, App, Pid, Time, ) ->
+ Pid2 = case Pid of undefined -> self(); _ -> Pid end,
+ Node2 = case Node of undefined -> node(Pid2); _ -> Node end,
+ App2 = case App of undefined -> application(Pid2); _ -> App end,
+ Time2 = case Time of undefined -> os:timestamp(); _ -> Time end,
+ {Node2, App2, Pid2, Time2}.
+
+application(Pid) when Pid =:= self() ->
+ case application:get_application(group_leader()) of
+ {ok, App} -> App;
+ undefined -> undefined
+ end;
+application(Pid) ->
+ {_, GroupLeader} = erlang:process_info(Pid, group_leader),
+ case application:get_application(GroupLeader) of
+ {ok, App} -> App;
+ undefined -> undefined
+ end.
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+
+make_defaults_test() ->
+ {Node, App, Pid, Time} = gr_context:make(),
+ ?assertEqual(Node, node()),
+ ?assertEqual(Pid, self()),
+ ?assert(is_atom(App)),
+ ?assertMatch({_,_,_}, Time).
+
+
+make_override_test() ->
+ Pid = spawn(fun() -> ok end),
+ {Node, App, Pid, Time} = gr_context:make(
+ {'$n', nodename}, {'$a', appname}, {'$p', Pid}, {'$t', timeval}),
+ ?assertEqual(nodename, Node),
+ ?assertEqual(appname, App),
+ ?assertEqual(timeval, Time).
+
+-endif.

guam-0.9.12.tar.gz/_checkouts/goldrush/src/gr_counter.erl Added

@@ -0,0 +1,268 @@
+%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+-module(gr_counter).
+
+-behaviour(gen_server).
+
+%% API
+-export(start_link/1, 
+ list/1, lookup_element/2,
+ insert_counter/3,
+ update_counter/3, reset_counters/2).
+
+%% gen_server callbacks
+-export(init/1,
+ handle_call/3,
+ handle_cast/2,
+ handle_info/2,
+ terminate/2,
+ code_change/3).
+
+-record(state, {table_id, waiting=}).
+
+%%%===================================================================
+%%% API
+%%%===================================================================
+list(Server) ->
+ case (catch gen_server:call(Server, list)) of
+ {'EXIT', _Reason} ->
+ list(gr_manager:wait_for_pid(Server));
+ Else -> Else
+ end.
+
+lookup_element(Server, Term) ->
+ case (catch gen_server:call(Server, {lookup_element, Term})) of
+ {'EXIT', _Reason} ->
+ lookup_element(gr_manager:wait_for_pid(Server), Term);
+ Else -> Else
+ end.
+
+insert_counter(Server, Counter, Value) when is_atom(Server) ->
+ case whereis(Server) of
+ undefined -> 
+ insert_counter(gr_manager:wait_for_pid(Server), Counter, Value);
+ Pid -> 
+ case erlang:is_process_alive(Pid) of
+ true ->
+ insert_counter(Pid, Counter, Value);
+ false ->
+ ServerPid = gr_manager:wait_for_pid(Server),
+ insert_counter(ServerPid, Counter, Value)
+ end
+ end;
+insert_counter(Server, Counter, Value) when is_pid(Server) ->
+ case (catch gen_server:call(Server, {insert_counter, Counter, Value})) of
+ {'EXIT', _Reason} ->
+ insert_counter(gr_manager:wait_for_pid(Server), Counter, Value);
+ Else -> Else
+ end.
+
+update_counter(Server, Counter, Value) when is_atom(Server) ->
+ case whereis(Server) of
+ undefined -> 
+ update_counter(gr_manager:wait_for_pid(Server), Counter, Value);
+ Pid -> 
+ case erlang:is_process_alive(Pid) of
+ true ->
+ update_counter(Pid, Counter, Value);
+ false ->
+ ServerPid = gr_manager:wait_for_pid(Server),
+ update_counter(ServerPid, Counter, Value)
+ end
+ end;
+update_counter(Server, Counter, Value) when is_pid(Server) ->
+ gen_server:cast(Server, {update, Counter, Value}).
+
+reset_counters(Server, Counter) ->
+ case (catch gen_server:call(Server, {reset_counters, Counter})) of
+ {'EXIT', _Reason} ->
+ reset_counters(gr_manager:wait_for_pid(Server), Counter);
+ Else -> Else
+ end.
+
+%%--------------------------------------------------------------------
+%% @doc
+%% Starts the server
+%%
+%% @spec start_link(Name) -> {ok, Pid} | ignore | {error, Error}
+%% @end
+%%--------------------------------------------------------------------
+start_link(Name) ->
+ gen_server:start_link({local, Name}, ?MODULE, , ).
+
+%%%===================================================================
+%%% gen_server callbacks
+%%%===================================================================
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Initializes the server
+%%
+%% @spec init(Args) -> {ok, State} |
+%% {ok, State, Timeout} |
+%% ignore |
+%% {stop, Reason}
+%% @end
+%%--------------------------------------------------------------------
+init() ->
+ {ok, #state{}}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Handling call messages
+%%
+%% @spec handle_call(Request, From, State) ->
+%% {reply, Reply, State} |
+%% {reply, Reply, State, Timeout} |
+%% {noreply, State} |
+%% {noreply, State, Timeout} |
+%% {stop, Reason, Reply, State} |
+%% {stop, Reason, State}
+%% @end
+%%--------------------------------------------------------------------
+handle_call(list=Call, From, State) ->
+ TableId = State#state.table_id,
+ Waiting = State#state.waiting,
+ case TableId of
+ undefined -> {noreply, State#state{waiting={Call, From}|Waiting}};
+ _ -> {reply, lists:sort(handle_list(TableId)), State}
+ end;
+handle_call({lookup_element, Term}=Call, From, State) ->
+ TableId = State#state.table_id,
+ Waiting = State#state.waiting,
+ case TableId of
+ undefined -> {noreply, State#state{waiting={Call, From}|Waiting}};
+ _ -> {reply, handle_lookup_element(TableId, Term), State}
+ end;
+handle_call({insert_counter, Counter, Value}, From, State) ->
+ Term = {Counter, Value},
+ Call = {insert, Term},
+ TableId = State#state.table_id,
+ Waiting = State#state.waiting,
+ case TableId of
+ undefined -> {noreply, State#state{waiting={Call, From}|Waiting}};
+ _ -> {reply, handle_insert(TableId, Term), State}
+ end;
+handle_call({reset_counters, Counter}, From, State) ->
+ Term = case Counter of
+ _ when is_list(Counter) -> 
+ {Item, 0} || Item <- Counter;
+ _ when is_atom(Counter) -> 
+ {Counter, 0}
+ end,
+ Call = {insert, Term},
+ TableId = State#state.table_id,
+ Waiting = State#state.waiting,
+ case TableId of
+ undefined -> {noreply, State#state{waiting={Call, From}|Waiting}};
+ _ -> {reply, handle_insert(TableId, Term), State}
+ end;
+handle_call(_Request, _From, State) ->
+ Reply = {error, unhandled_message},
+ {reply, Reply, State}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Handling cast messages
+%%
+%% @spec handle_cast(Msg, State) -> {noreply, State} |
+%% {noreply, State, Timeout} |
+%% {stop, Reason, State}
+%% @end
+%%--------------------------------------------------------------------
+handle_cast({update, Counter, Value}=Call, State) ->
+ TableId = State#state.table_id,
+ Waiting = State#state.waiting,
+ State2 = case TableId of
+ undefined -> State#state{waiting=Call|Waiting};
+ _ -> _ = handle_update_counter(TableId, Counter, Value), 
+ State
+ end,
+ {noreply, State2};
+handle_cast(_Msg, State) ->
+ {noreply, State}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Handling all non call/cast messages
+%%
+%% @spec handle_info(Info, State) -> {noreply, State} |
+%% {noreply, State, Timeout} |
+%% {stop, Reason, State}
+%% @end
+%%--------------------------------------------------------------------
+handle_info({'ETS-TRANSFER', TableId, _Pid, _Data}, State) ->
+ _ = gen_server:reply(From, perform_call(TableId, Call)) 
+ || {Call, From} <- State#state.waiting ,
+ _ = handle_update_counter(TableId, Counter, Value) 
+ || {update, Counter, Value} <- State#state.waiting ,
+ {noreply, State#state{table_id=TableId, waiting=}};
+handle_info(_Info, State) ->
+ {noreply, State}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% This function is called by a gen_server when it is about to
+%% terminate. It should be the opposite of Module:init/1 and do any
+%% necessary cleaning up. When it returns, the gen_server terminates
+%% with Reason. The return value is ignored.
+%%
+%% @spec terminate(Reason, State) -> void()
+%% @end
+%%--------------------------------------------------------------------
+terminate(_Reason, _State) ->
+ ok.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Convert process state when code is changed
+%%
+%% @spec code_change(OldVsn, State, Extra) -> {ok, NewState}
+%% @end
+%%--------------------------------------------------------------------
+code_change(_OldVsn, State, _Extra) ->
+ {ok, State}.
+
+%%%===================================================================
+%%% Internal functions
+%%%===================================================================
+
+perform_call(TableId, Call) ->
+ case Call of
+ list ->
+ handle_list(TableId);
+ {insert, Term} ->
+ handle_insert(TableId, Term);
+ {lookup_element, Term} ->
+ handle_lookup_element(TableId, Term)
+ end.
+
+handle_list(TableId) ->
+ ets:tab2list(TableId).
+
+handle_update_counter(TableId, Counter, Value) ->
+ ets:update_counter(TableId, Counter, Value).
+
+handle_insert(TableId, Term) ->
+ ets:insert(TableId, Term).
+
+handle_lookup_element(TableId, Term) ->
+ ets:lookup_element(TableId, Term, 2).

guam-0.9.12.tar.gz/_checkouts/goldrush/src/gr_counter_sup.erl Added

@@ -0,0 +1,42 @@
+%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+-module(gr_counter_sup).
+
+-behaviour(supervisor).
+
+-type startlink_err() :: {'already_started', pid()} | 'shutdown' | term().
+-type startlink_ret() :: {'ok', pid()} | 'ignore' | {'error', startlink_err()}.
+
+%% API
+-export(start_link/0).
+
+%% Supervisor callbacks
+-export(init/1).
+
+%% ===================================================================
+%% API functions
+%% ===================================================================
+%% @hidden
+-spec start_link() -> startlink_ret().
+start_link() ->
+ supervisor:start_link({local, ?MODULE}, ?MODULE, ).
+
+%% ===================================================================
+%% Supervisor callbacks
+%% ===================================================================
+%% @hidden
+-spec init() -> {ok, { {one_for_one, 50, 10}, supervisor:child_spec()} }.
+init(_Args) ->
+ {ok, { {one_for_one, 50, 10}, } }.

guam-0.9.12.tar.gz/_checkouts/goldrush/src/gr_manager.erl Added

@@ -0,0 +1,185 @@
+%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+
+%% @doc Process table manager for goldrush.
+%%
+%% Manager responsible for the processes, which serve as heir of the 
+%% {@link gr_counter:start_link/0. Counter} and
+%% {@link gr_param:start_link/0. Param} ets table processes.
+%% This process creates the table and initial data then assigns itself
+%% to inherit the ets table if any process responsible for it is killed.
+%% It then waits to give it back while that process is recreated by its 
+%% supervisor.
+-module(gr_manager).
+-behaviour(gen_server).
+
+%% API
+-export(start_link/3, wait_for_pid/1).
+
+%% gen_server callbacks
+-export(init/1,
+ handle_call/3,
+ handle_cast/2,
+ handle_info/2,
+ terminate/2,
+ code_change/3).
+
+-define(SERVER, ?MODULE).
+
+-record(state, {table_id :: ets:tab(), managee :: atom()}).
+
+%%%===================================================================
+%%% API
+%%%===================================================================
+
+%% Setup the initial data for the ets table
+-spec setup(atom() | pid(), term()) -> ok.
+setup(Name, Data) ->
+ gen_server:cast(Name, {setup, Data}).
+
+%%--------------------------------------------------------------------
+%% @doc
+%% Starts the server
+%%
+%% @spec start_link(Name, Managee, Data) -> {ok, Pid} | ignore | 
+%% {error, Error}
+%% @end
+%%--------------------------------------------------------------------
+start_link(Name, Managee, Data) ->
+ gen_server:start_link({local, Name}, ?MODULE, Managee, Data, ).
+
+%%%===================================================================
+%%% gen_server callbacks
+%%%===================================================================
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Initializes the server
+%%
+%% @spec init(Args) -> {ok, State} |
+%% {ok, State, Timeout} |
+%% ignore |
+%% {stop, Reason}
+%% @end
+%%--------------------------------------------------------------------
+init(Managee, Data) ->
+ process_flag(trap_exit, true),
+ setup(self(), Data),
+ {ok, #state{managee=Managee}}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Handling call messages
+%%
+%% @spec handle_call(Request, From, State) ->
+%% {reply, Reply, State} |
+%% {reply, Reply, State, Timeout} |
+%% {noreply, State} |
+%% {noreply, State, Timeout} |
+%% {stop, Reason, Reply, State} |
+%% {stop, Reason, State}
+%% @end
+%%--------------------------------------------------------------------
+handle_call(_Request, _From, State) ->
+ Reply = {error, unhandled_message},
+ {reply, Reply, State}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Handling cast messages
+%%
+%% @spec handle_cast(Msg, State) -> {noreply, State} |
+%% {noreply, State, Timeout} |
+%% {stop, Reason, State}
+%% @end
+%%--------------------------------------------------------------------
+handle_cast({setup, Data}, State = #state{managee=Managee}) ->
+ ManageePid = whereis(Managee),
+ link(ManageePid),
+ TableId = ets:new(?MODULE, set, private),
+ ets:insert(TableId, Data),
+ ets:setopts(TableId, {heir, self(), Data}),
+ ets:give_away(TableId, ManageePid, Data),
+ {noreply, State#state{table_id=TableId}};
+handle_cast(_Msg, State) ->
+ {noreply, State}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Handling all non call/cast messages
+%%
+%% @spec handle_info(Info, State) -> {noreply, State} |
+%% {noreply, State, Timeout} |
+%% {stop, Reason, State}
+%% @end
+%%--------------------------------------------------------------------
+handle_info({'EXIT', _Pid, _Reason}, State) ->
+ {noreply, State};
+handle_info({'ETS-TRANSFER', TableId, _Pid, Data}, State = #state{managee=Managee}) ->
+ ManageePid = wait_for_pid(Managee),
+ link(ManageePid),
+ ets:give_away(TableId, ManageePid, Data),
+ {noreply, State#state{table_id=TableId}}.
+
+%% @doc Wait for a registered process to be associated to a process identifier.
+%% @spec wait_for_pid(Managee) -> ManageePid
+-spec wait_for_pid(atom()) -> pid().
+wait_for_pid(Managee) when is_pid(Managee) -> 
+ Managee;
+wait_for_pid(Managee) when is_atom(Managee), Managee =/= undefined -> 
+ case whereis(Managee) of
+ undefined -> 
+ timer:sleep(1),
+ wait_for_pid(Managee);
+ ManageePid -> ManageePid
+ end.
+
+
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% This function is called by a gen_server when it is about to
+%% terminate. It should be the opposite of Module:init/1 and do any
+%% necessary cleaning up. When it returns, the gen_server terminates
+%% with Reason. The return value is ignored.
+%%
+%% @spec terminate(Reason, State) -> void()
+%% @end
+%%--------------------------------------------------------------------
+terminate(_Reason, _State) ->
+ ok.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Convert process state when code is changed
+%%
+%% @spec code_change(OldVsn, State, Extra) -> {ok, NewState}
+%% @end
+%%--------------------------------------------------------------------
+code_change(_OldVsn, State, _Extra) ->
+ {ok, State}.
+
+%%%===================================================================
+%%% Internal functions
+%%%===================================================================
+
+
+

guam-0.9.12.tar.gz/_checkouts/goldrush/src/gr_manager_sup.erl Added

@@ -0,0 +1,47 @@
+%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+%% @doc Table manager supervisor for all goldrush ets process tables.
+%%
+%% Manager supervisor responsible for the {@link gr_manager:start_link/3. 
+%% Manager} processes, which serve as heir of the 
+%% {@link gr_counter:start_link/0. Counter} and
+%% {@link gr_param:start_link/0. Param} ets table processes.
+-module(gr_manager_sup).
+-behaviour(supervisor).
+
+-type startlink_err() :: {'already_started', pid()} | 'shutdown' | term().
+-type startlink_ret() :: {'ok', pid()} | 'ignore' | {'error', startlink_err()}.
+
+%% API
+-export(start_link/0).
+
+%% Supervisor callbacks
+-export(init/1).
+
+%% ===================================================================
+%% API functions
+%% ===================================================================
+%% @hidden
+-spec start_link() -> startlink_ret().
+start_link() ->
+ supervisor:start_link({local, ?MODULE}, ?MODULE, ).
+
+%% ===================================================================
+%% Supervisor callbacks
+%% ===================================================================
+%% @hidden
+-spec init() -> {ok, { {one_for_one, 50, 10}, supervisor:child_spec()} }.
+init(_Args) ->
+ {ok, { {one_for_one, 50, 10}, } }.

guam-0.9.12.tar.gz/_checkouts/goldrush/src/gr_param.erl Added

@@ -0,0 +1,269 @@
+%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+-module(gr_param).
+
+-behaviour(gen_server).
+
+%% API
+-export(start_link/1, 
+ list/1, insert/2, 
+ lookup/2, lookup_element/2,
+ info/1, info_size/1, transform/1).
+
+%% gen_server callbacks
+-export(init/1,
+ handle_call/3,
+ handle_cast/2,
+ handle_info/2,
+ terminate/2,
+ code_change/3).
+
+-record(state, {table_id, waiting=}).
+
+%%%===================================================================
+%%% API
+%%%===================================================================
+list(Server) ->
+ case (catch gen_server:call(Server, list)) of
+ {'EXIT', _Reason} ->
+ list(gr_manager:wait_for_pid(Server));
+ Else -> Else
+ end.
+
+info_size(Server) ->
+ case (catch gen_server:call(Server, info_size)) of
+ {'EXIT', _Reason} ->
+ info_size(gr_manager:wait_for_pid(Server));
+ Else -> Else
+ end.
+
+insert(Server, Term) ->
+ case (catch gen_server:call(Server, {insert, Term})) of
+ {'EXIT', _Reason} ->
+ insert(gr_manager:wait_for_pid(Server), Term);
+ Else -> Else
+ end.
+
+lookup(Server, Term) ->
+ case (catch gen_server:call(Server, {lookup, Term})) of
+ {'EXIT', _Reason} ->
+ lookup(gr_manager:wait_for_pid(Server), Term);
+ Else -> Else
+ end.
+
+lookup_element(Server, Term) ->
+ case (catch gen_server:call(Server, {lookup_element, Term})) of
+ {'EXIT', _Reason} ->
+ lookup_element(gr_manager:wait_for_pid(Server), Term);
+ Else -> Else
+ end.
+
+info(Server) ->
+ case (catch gen_server:call(Server, info)) of
+ {'EXIT', _Reason} ->
+ info(gr_manager:wait_for_pid(Server));
+ Else -> Else
+ end.
+
+%% @doc Transform Term -> Key to Key -> Term
+transform(Server) ->
+ case (catch gen_server:call(Server, transform)) of
+ {'EXIT', _Reason} ->
+ transform(gr_manager:wait_for_pid(Server));
+ Else -> Else
+ end.
+
+%%--------------------------------------------------------------------
+%% @doc
+%% Starts the server
+%%
+%% @spec start_link(Name) -> {ok, Pid} | ignore | {error, Error}
+%% @end
+%%--------------------------------------------------------------------
+start_link(Name) ->
+ gen_server:start_link({local, Name}, ?MODULE, , ).
+
+%%%===================================================================
+%%% gen_server callbacks
+%%%===================================================================
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Initializes the server
+%%
+%% @spec init(Args) -> {ok, State} |
+%% {ok, State, Timeout} |
+%% ignore |
+%% {stop, Reason}
+%% @end
+%%--------------------------------------------------------------------
+init() ->
+ {ok, #state{}}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Handling call messages
+%%
+%% @spec handle_call(Request, From, State) ->
+%% {reply, Reply, State} |
+%% {reply, Reply, State, Timeout} |
+%% {noreply, State} |
+%% {noreply, State, Timeout} |
+%% {stop, Reason, Reply, State} |
+%% {stop, Reason, State}
+%% @end
+%%--------------------------------------------------------------------
+handle_call(Call, From, State) when is_atom(Call), Call =:= list; 
+ Call =:= info; Call =:= info_size;
+ Call =:= transform ->
+ TableId = State#state.table_id,
+ Waiting = State#state.waiting,
+ case TableId of
+ undefined -> {noreply, State#state{waiting={Call, From}|Waiting}};
+ _ when Call =:= list -> 
+ {reply, handle_list(TableId), State};
+ _ when Call =:= info -> 
+ {reply, handle_info(TableId), State};
+ _ when Call =:= info_size -> 
+ {reply, handle_info_size(TableId), State};
+ _ when Call =:= transform -> 
+ {reply, handle_transform(TableId), State}
+ end;
+
+handle_call({Call, Term}, From, State) when is_atom(Call), Call =:= insert; 
+ Call =:= lookup; 
+ Call =:= lookup_element ->
+ TableId = State#state.table_id,
+ Waiting = State#state.waiting,
+ case TableId of
+ undefined -> 
+ {noreply, State#state{waiting={{Call, Term}, From}|Waiting}};
+ _ when Call =:= insert -> 
+ {reply, handle_insert(TableId, Term), State};
+ _ when Call =:= lookup -> 
+ {reply, handle_lookup(TableId, Term), State};
+ _ when Call =:= lookup_element -> 
+ {reply, handle_lookup_element(TableId, Term), State}
+ end;
+
+handle_call(_Request, _From, State) ->
+ Reply = {error, unhandled_message},
+ {reply, Reply, State}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Handling cast messages
+%%
+%% @spec handle_cast(Msg, State) -> {noreply, State} |
+%% {noreply, State, Timeout} |
+%% {stop, Reason, State}
+%% @end
+%%--------------------------------------------------------------------
+handle_cast(_Msg, State) ->
+ {noreply, State}.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Handling all non call/cast messages
+%%
+%% @spec handle_info(Info, State) -> {noreply, State} |
+%% {noreply, State, Timeout} |
+%% {stop, Reason, State}
+%% @end
+%%--------------------------------------------------------------------
+handle_info({'ETS-TRANSFER', TableId, _Pid, _Data}, State) ->
+ _ = gen_server:reply(From, perform_call(TableId, Call)) 
+ || {Call, From} <- State#state.waiting ,
+ {noreply, State#state{table_id=TableId, waiting=}};
+handle_info(_Info, State) ->
+ {noreply, State}.
+
+
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% This function is called by a gen_server when it is about to
+%% terminate. It should be the opposite of Module:init/1 and do any
+%% necessary cleaning up. When it returns, the gen_server terminates
+%% with Reason. The return value is ignored.
+%%
+%% @spec terminate(Reason, State) -> void()
+%% @end
+%%--------------------------------------------------------------------
+terminate(_Reason, _State) ->
+ ok.
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Convert process state when code is changed
+%%
+%% @spec code_change(OldVsn, State, Extra) -> {ok, NewState}
+%% @end
+%%--------------------------------------------------------------------
+code_change(_OldVsn, State, _Extra) ->
+ {ok, State}.
+
+%%%===================================================================
+%%% Internal functions
+%%%===================================================================
+
+perform_call(TableId, Call) ->
+ case Call of
+ list ->
+ handle_list(TableId);
+ info ->
+ handle_info(TableId);
+ info_size ->
+ handle_info_size(TableId);
+ transform ->
+ handle_transform(TableId);
+ {insert, Term} ->
+ handle_insert(TableId, Term);
+ {lookup, Term} ->
+ handle_lookup(TableId, Term);
+ {lookup_element, Term} ->
+ handle_lookup_element(TableId, Term)
+ end.
+
+
+handle_list(TableId) ->
+ ets:tab2list(TableId).
+
+handle_info(TableId) ->
+ ets:info(TableId).
+
+handle_info_size(TableId) ->
+ ets:info(TableId, size).
+
+handle_transform(TableId) ->
+ ParamsList = {K, V} || {V, K} <- ets:tab2list(TableId),
+ ets:delete_all_objects(TableId),
+ ets:insert(TableId, ParamsList).
+
+handle_insert(TableId, Term) ->
+ ets:insert(TableId, Term).
+
+handle_lookup(TableId, Term) ->
+ ets:lookup(TableId, Term).
+
+handle_lookup_element(TableId, Term) ->
+ ets:lookup_element(TableId, Term, 2).
+

guam-0.9.12.tar.gz/_checkouts/goldrush/src/gr_param_sup.erl Added

@@ -0,0 +1,48 @@
+%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+%% @doc Second level supervisor for goldrush.
+%%
+%% Supervisor for the {@link gr_param:start_link/0. 
+%% Param}, process table responsible for params
+%% {@link gr_param:start_link/0. Counter} and
+%% their {@link gr_counter:start_link/0. Manager} supervisors.
+
+-module(gr_param_sup).
+-behaviour(supervisor).
+
+-type startlink_err() :: {'already_started', pid()} | 'shutdown' | term().
+-type startlink_ret() :: {'ok', pid()} | 'ignore' | {'error', startlink_err()}.
+
+%% API
+-export(start_link/0).
+
+%% Supervisor callbacks
+-export(init/1).
+
+%% ===================================================================
+%% API functions
+%% ===================================================================
+%% @hidden
+-spec start_link() -> startlink_ret().
+start_link() ->
+ supervisor:start_link({local, ?MODULE}, ?MODULE, ).
+
+%% ===================================================================
+%% Supervisor callbacks
+%% ===================================================================
+%% @hidden
+-spec init() -> {ok, { {one_for_one, 50, 10}, supervisor:child_spec()} }.
+init(_Args) ->
+ {ok, { {one_for_one, 50, 10}, } }.

guam-0.9.12.tar.gz/_checkouts/goldrush/src/gr_sup.erl Added

@@ -0,0 +1,42 @@
+%% Copyright (c) 2012, Magnus Klaar <klaar@ninenines.eu>
+%% Copyright (c) 2013, Pedram Nimreezi <deadzen@deadzen.com>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+
+%% @doc Top level supervisor for goldrush.
+%%
+%% Main supervisor responsible for the {@link gr_counter_sup:start_link/0. 
+%% Counter}, {@link gr_param_sup:start_link/0. Param} and
+%% their {@link gr_manager_sup:start_link/0. Manager} supervisors.
+-module(gr_sup).
+-behaviour(supervisor).
+
+-type startlink_err() :: {'already_started', pid()} | 'shutdown' | term().
+-type startlink_ret() :: {'ok', pid()} | 'ignore' | {'error', startlink_err()}.
+
+-export(start_link/0).
+-export(init/1).
+
+-define(CHILD(I, Type), {I, {I, start_link, }, permanent, 5000, Type, I}).
+
+-spec start_link() -> startlink_ret().
+start_link() ->
+ supervisor:start_link({local, ?MODULE}, ?MODULE, ).
+
+-spec init() -> {ok, { {one_for_one, 50, 10}, supervisor:child_spec()} }.
+init() ->
+ CounterSup = ?CHILD(gr_counter_sup, supervisor),
+ ParamSup = ?CHILD(gr_param_sup, supervisor),
+ MgrSup = ?CHILD(gr_manager_sup, supervisor),
+ {ok, {{one_for_one, 50, 10}, CounterSup, ParamSup, MgrSup}}.

guam-0.9.12.tar.gz/_checkouts/goldrush/src/gre.erl Added

@@ -0,0 +1,104 @@
+%% Copyright (c) 2012, Magnus Klaar <klaar@ninenines.eu>
+%%
+%% Permission to use, copy, modify, and/or distribute this software for any
+%% purpose with or without fee is hereby granted, provided that the above
+%% copyright notice and this permission notice appear in all copies.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+%% WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+%% MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+%% ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+%% WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+%% ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+%% OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+%% @doc Accessor function for goldrush event terms.
+-module(gre).
+
+-export(
+ make/2,
+ has/2,
+ fetch/2,
+ append/2,
+ merge/2,
+ find/2,
+ keys/1,
+ pairs/1
+).
+
+-type event() :: {list, {atom(), term()}}.
+-export_type(event/0).
+
+%% @doc Construct an event term.
+-spec make(term(), list) -> event().
+make(Term, Type) ->
+ {Type, Term}.
+
+
+%% @doc Check if a field exists in an event.
+-spec has(atom(), event()) -> boolean().
+has(Key, {list, List}) ->
+ lists:keymember(Key, 1, List).
+
+-spec append(term(), event()) -> event().
+append(KeyVal, {list, List}) ->
+ {list, KeyVal|List}.
+
+-spec merge(event(), event()) -> event().
+merge({list, AList}, {list, BList}) ->
+ {list, lists:merge(AList, BList)}.
+
+%% @doc Get the value of a field in an event.
+%% The field is expected to exist in the event.
+-spec fetch(atom(), event()) -> term().
+fetch(Key, {list, List}=Event) ->
+ case lists:keyfind(Key, 1, List) of
+ {_, Value} -> Value;
+ false -> erlang:error(badarg, Key, Event)
+ end.
+
+
+%% @doc Find the value of a field in an event.
+%% This is equivalent to testing if a field exists using {@link has/2}
+%% before accessing the value of the field using {@link fetch/2}.
+-spec find(atom(), event()) -> {true, term()} | false.
+find(Key, {list, List}) ->
+ case lists:keyfind(Key, 1, List) of
+ {_, Value} -> {true, Value};
+ false -> false
+ end.
+
+
+%% @doc Get the names of all fields in an event.
+-spec keys(event()) -> atom().
+keys({list, List}) ->
+ kv_keys_(List).
+
+%% @private Get the names of all fields in a key-value list.
+-spec kv_keys_({atom(), term()}) -> atom().
+kv_keys_({Key, _}|T) ->
+ Key|kv_keys_(T);
+kv_keys_() ->
+ .
+
+%% @doc Get the name and value of all fields in an event.
+-spec pairs(event()) -> {atom(), term()}.
+pairs({list, List}) ->
+ lists:sort(List).
+
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+
+gre_test_() ->
+ ?_assert(gre:has(a, gre:make({a,1}, list))),
+ ?_assertNot(gre:has(b, gre:make({a,1}, list))),
+ ?_assertEqual(1, gre:fetch(a, gre:make({a,1}, list))),
+ ?_assertError(badarg, gre:fetch(a, gre:make(, list))),
+ ?_assertEqual(, gre:keys(gre:make(, list))),
+ ?_assertEqual(a, gre:keys(gre:make({a,1}, list))),
+ ?_assertEqual(a,b, gre:keys(gre:make({a,1},{b,2}, list))),
+ ?_assertEqual({a,1},{b,2}, gre:pairs(gre:make({b,2},{a,1}, list)))
+ .
+
+-endif.

guam-0.9.12.tar.gz/_checkouts/lager Added

guam-0.9.12.tar.gz/_checkouts/lager/LICENSE Added

@@ -0,0 +1,178 @@
+
+                                 Apache License
+                           Version 2.0, January 2004
+                        http://www.apache.org/licenses/
+
+   TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
+
+   1. Definitions.
+
+      "License" shall mean the terms and conditions for use, reproduction,
+      and distribution as defined by Sections 1 through 9 of this document.
+
+      "Licensor" shall mean the copyright owner or entity authorized by
+      the copyright owner that is granting the License.
+
+      "Legal Entity" shall mean the union of the acting entity and all
+      other entities that control, are controlled by, or are under common
+      control with that entity. For the purposes of this definition,
+      "control" means (i) the power, direct or indirect, to cause the
+      direction or management of such entity, whether by contract or
+      otherwise, or (ii) ownership of fifty percent (50%) or more of the
+      outstanding shares, or (iii) beneficial ownership of such entity.
+
+      "You" (or "Your") shall mean an individual or Legal Entity
+      exercising permissions granted by this License.
+
+      "Source" form shall mean the preferred form for making modifications,
+      including but not limited to software source code, documentation
+      source, and configuration files.
+
+      "Object" form shall mean any form resulting from mechanical
+      transformation or translation of a Source form, including but
+      not limited to compiled object code, generated documentation,
+      and conversions to other media types.
+
+      "Work" shall mean the work of authorship, whether in Source or
+      Object form, made available under the License, as indicated by a
+      copyright notice that is included in or attached to the work
+      (an example is provided in the Appendix below).
+
+      "Derivative Works" shall mean any work, whether in Source or Object
+      form, that is based on (or derived from) the Work and for which the
+      editorial revisions, annotations, elaborations, or other modifications
+      represent, as a whole, an original work of authorship. For the purposes
+      of this License, Derivative Works shall not include works that remain
+      separable from, or merely link (or bind by name) to the interfaces of,
+      the Work and Derivative Works thereof.
+
+      "Contribution" shall mean any work of authorship, including
+      the original version of the Work and any modifications or additions
+      to that Work or Derivative Works thereof, that is intentionally
+      submitted to Licensor for inclusion in the Work by the copyright owner
+      or by an individual or Legal Entity authorized to submit on behalf of
+      the copyright owner. For the purposes of this definition, "submitted"
+      means any form of electronic, verbal, or written communication sent
+      to the Licensor or its representatives, including but not limited to
+      communication on electronic mailing lists, source code control systems,
+      and issue tracking systems that are managed by, or on behalf of, the
+      Licensor for the purpose of discussing and improving the Work, but
+      excluding communication that is conspicuously marked or otherwise
+      designated in writing by the copyright owner as "Not a Contribution."
+
+      "Contributor" shall mean Licensor and any individual or Legal Entity
+      on behalf of whom a Contribution has been received by Licensor and
+      subsequently incorporated within the Work.
+
+   2. Grant of Copyright License. Subject to the terms and conditions of
+      this License, each Contributor hereby grants to You a perpetual,
+      worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+      copyright license to reproduce, prepare Derivative Works of,
+      publicly display, publicly perform, sublicense, and distribute the
+      Work and such Derivative Works in Source or Object form.
+
+   3. Grant of Patent License. Subject to the terms and conditions of
+      this License, each Contributor hereby grants to You a perpetual,
+      worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+      (except as stated in this section) patent license to make, have made,
+      use, offer to sell, sell, import, and otherwise transfer the Work,
+      where such license applies only to those patent claims licensable
+      by such Contributor that are necessarily infringed by their
+      Contribution(s) alone or by combination of their Contribution(s)
+      with the Work to which such Contribution(s) was submitted. If You
+      institute patent litigation against any entity (including a
+      cross-claim or counterclaim in a lawsuit) alleging that the Work
+      or a Contribution incorporated within the Work constitutes direct
+      or contributory patent infringement, then any patent licenses
+      granted to You under this License for that Work shall terminate
+      as of the date such litigation is filed.
+
+   4. Redistribution. You may reproduce and distribute copies of the
+      Work or Derivative Works thereof in any medium, with or without
+      modifications, and in Source or Object form, provided that You
+      meet the following conditions:
+
+      (a) You must give any other recipients of the Work or
+          Derivative Works a copy of this License; and
+
+      (b) You must cause any modified files to carry prominent notices
+          stating that You changed the files; and
+
+      (c) You must retain, in the Source form of any Derivative Works
+          that You distribute, all copyright, patent, trademark, and
+          attribution notices from the Source form of the Work,
+          excluding those notices that do not pertain to any part of
+          the Derivative Works; and
+
+      (d) If the Work includes a "NOTICE" text file as part of its
+          distribution, then any Derivative Works that You distribute must
+          include a readable copy of the attribution notices contained
+          within such NOTICE file, excluding those notices that do not
+          pertain to any part of the Derivative Works, in at least one
+          of the following places: within a NOTICE text file distributed
+          as part of the Derivative Works; within the Source form or
+          documentation, if provided along with the Derivative Works; or,
+          within a display generated by the Derivative Works, if and
+          wherever such third-party notices normally appear. The contents
+          of the NOTICE file are for informational purposes only and
+          do not modify the License. You may add Your own attribution
+          notices within Derivative Works that You distribute, alongside
+          or as an addendum to the NOTICE text from the Work, provided
+          that such additional attribution notices cannot be construed
+          as modifying the License.
+
+      You may add Your own copyright statement to Your modifications and
+      may provide additional or different license terms and conditions
+      for use, reproduction, or distribution of Your modifications, or
+      for any such Derivative Works as a whole, provided Your use,
+      reproduction, and distribution of the Work otherwise complies with
+      the conditions stated in this License.
+
+   5. Submission of Contributions. Unless You explicitly state otherwise,
+      any Contribution intentionally submitted for inclusion in the Work
+      by You to the Licensor shall be under the terms and conditions of
+      this License, without any additional terms or conditions.
+      Notwithstanding the above, nothing herein shall supersede or modify
+      the terms of any separate license agreement you may have executed
+      with Licensor regarding such Contributions.
+
+   6. Trademarks. This License does not grant permission to use the trade
+      names, trademarks, service marks, or product names of the Licensor,
+      except as required for reasonable and customary use in describing the
+      origin of the Work and reproducing the content of the NOTICE file.
+
+   7. Disclaimer of Warranty. Unless required by applicable law or
+      agreed to in writing, Licensor provides the Work (and each
+      Contributor provides its Contributions) on an "AS IS" BASIS,
+      WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
+      implied, including, without limitation, any warranties or conditions
+      of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
+      PARTICULAR PURPOSE. You are solely responsible for determining the
+      appropriateness of using or redistributing the Work and assume any
+      risks associated with Your exercise of permissions under this License.
+
+   8. Limitation of Liability. In no event and under no legal theory,
+      whether in tort (including negligence), contract, or otherwise,
+      unless required by applicable law (such as deliberate and grossly
+      negligent acts) or agreed to in writing, shall any Contributor be
+      liable to You for damages, including any direct, indirect, special,
+      incidental, or consequential damages of any character arising as a
+      result of this License or out of the use or inability to use the
+      Work (including but not limited to damages for loss of goodwill,
+      work stoppage, computer failure or malfunction, or any and all
+      other commercial damages or losses), even if such Contributor
+      has been advised of the possibility of such damages.
+
+   9. Accepting Warranty or Additional Liability. While redistributing
+      the Work or Derivative Works thereof, You may choose to offer,
+      and charge a fee for, acceptance of support, warranty, indemnity,
+      or other liability obligations and/or rights consistent with this
+      License. However, in accepting such obligations, You may act only
+      on Your own behalf and on Your sole responsibility, not on behalf
+      of any other Contributor, and only if You agree to indemnify,
+      defend, and hold each Contributor harmless for any liability
+      incurred by, or claims asserted against, such Contributor by reason
+      of your accepting any such warranty or additional liability.
+
+   END OF TERMS AND CONDITIONS
+

guam-0.9.12.tar.gz/_checkouts/lager/README.md Added

@@ -0,0 +1,1400 @@
+Overview
+--------
+Lager (as in the beer) is a logging framework for Erlang. Its purpose is
+to provide a more traditional way to perform logging in an erlang application
+that plays nicely with traditional UNIX logging tools like logrotate and
+syslog.
+
+!Build Status(https://github.com/erlang-lager/lager/workflows/build/badge.svg)(https://github.com/erlang-lager/lager)
+!Hex pm(https://img.shields.io/hexpm/v/lager)(https://hex.pm/packages/lager)
+
+Features
+--------
+* Finer grained log levels (debug, info, notice, warning, error, critical,
+ alert, emergency)
+* Logger calls are transformed using a parse transform to allow capturing
+ Module/Function/Line/Pid information
+* When no handler is consuming a log level (eg. debug) no event is sent
+ to the log handler
+* Supports multiple backends, including console and file.
+* Supports multiple sinks
+* Rewrites common OTP error messages into more readable messages
+* Support for pretty printing records encountered at compile time
+* Tolerant in the face of large or many log messages, won't out of memory the node
+* Optional feature to bypass log size truncation ("unsafe")
+* Supports internal time and date based rotation, as well as external rotation tools
+* Syslog style log level comparison flags
+* Colored terminal output (requires R16+)
+* Map support (requires 17+)
+* Optional load shedding by setting a high water mark to kill (and reinstall)
+ a sink after a configurable cool down timer
+
+Contributing
+------------
+We welcome contributions from the community. We are always excited to get ideas
+for improving lager.
+
+If you are looking for an idea to help out, please take a look at our open
+issues - a number of them are tagged with Help Wanted(https://github.com/erlang-lager/lager/issues?q=is%3Aopen+is%3Aissue+label%3A%22Help+Wanted%22)
+and Easy(https://github.com/erlang-lager/lager/issues?q=is%3Aopen+is%3Aissue+label%3AEasy) - some
+of them are tagged as both! We are happy to mentor people get started with any
+of these issues, and they don't need prior discussion.
+
+That being said, before you send large changes please open an issue first to
+discuss the change you'd like to make along with an idea of your proposal to
+implement that change.
+
+### PR guidelines ###
+
+* Large changes without prior discussion are likely to be rejected.
+* Changes without test cases are likely to be rejected.
+* Please use the style of the existing codebase when submitting PRs.
+
+We review PRs and issues at least once a month as described below.
+
+OTP Support Policy
+------------------
+The lager maintainers intend to support the past three OTP releases from
+current on the main 3.x branch of the project. As of August 2019 that includes
+22, 21 20
+
+Lager may or may not run on older OTP releases but it will only be guaranteed
+tested on the previous three OTP releases. If you need a version of lager
+which runs on older OTP releases, we recommend you use either the 3.4.0 release
+or the 2.x branch.
+
+Monthly triage cadence
+----------------------
+We have (at least) monthly issue and PR triage for lager in the #lager room on the
+freenode(https://freenode.net) IRC network every third Thursday at 2 pm US/Pacific,
+10 pm UTC. You are welcome to join us there to ask questions about lager or
+participate in the triage.
+
+Usage
+-----
+To use lager in your application, you need to define it as a rebar dep or have
+some other way of including it in Erlang's path. You can then add the
+following option to the erlang compiler flags:
+
+```erlang
+{parse_transform, lager_transform}
+```
+
+Alternately, you can add it to the module you wish to compile with logging
+enabled:
+
+```erlang
+-compile({parse_transform, lager_transform}).
+```
+
+Before logging any messages, you'll need to start the lager application. The
+lager module's `start` function takes care of loading and starting any dependencies
+lager requires.
+
+```erlang
+lager:start().
+```
+
+You can also start lager on startup with a switch to `erl`:
+
+```erlang
+erl -pa path/to/lager/ebin -s lager
+```
+
+Once you have built your code with lager and started the lager application,
+you can then generate log messages by doing the following:
+
+```erlang
+lager:error("Some message")
+```
+
+ Or:
+
+```erlang
+lager:warning("Some message with a term: ~p", Term)
+```
+
+The general form is `lager:Severity()` where `Severity` is one of the log levels
+mentioned above.
+
+Configuration
+-------------
+To configure lager's backends, you use an application variable (probably in
+your app.config):
+
+```erlang
+{lager, 
+ {log_root, "/var/log/hello"},
+ {handlers, 
+ {lager_console_backend, {level, info}},
+ {lager_file_backend, {file, "error.log"}, {level, error}},
+ {lager_file_backend, {file, "console.log"}, {level, info}}
+ }
+}.
+```
+
+```log_root``` variable is optional, by default file paths are relative to CWD.
+
+The available configuration options for each backend are listed in their
+module's documentation.
+
+Sinks
+-----
+Lager has traditionally supported a single sink (implemented as a
+`gen_event` manager) named `lager_event` to which all backends were
+connected.
+
+Lager now supports extra sinks; each sink can have different
+sync/async message thresholds and different backends.
+
+### Sink configuration
+
+To use multiple sinks (beyond the built-in sink of lager and lager_event), you
+need to:
+
+1. Setup rebar.config
+2. Configure the backends in app.config
+
+#### Names
+
+Each sink has two names: one atom to be used like a module name for
+sending messages, and that atom with `_lager_event` appended for backend
+configuration.
+
+This reflects the legacy behavior: `lager:info` (or `critical`, or
+`debug`, etc) is a way of sending a message to a sink named
+`lager_event`. Now developers can invoke `audit:info` or
+`myCompanyName:debug` so long as the corresponding `audit_lager_event` or
+`myCompanyName_lager_event` sinks are configured.
+
+#### rebar.config
+
+In `rebar.config` for the project that requires lager, include a list
+of sink names (without the `_lager_event` suffix) in `erl_opts`:
+
+`{lager_extra_sinks, audit}`
+
+#### Runtime requirements
+
+To be useful, sinks must be configured at runtime with backends.
+
+In `app.config` for the project that requires lager, for example,
+extend the lager configuration to include an `extra_sinks` tuple with
+backends (aka "handlers") and optionally `async_threshold` and
+`async_threshold_window` values (see **Overload Protection**
+below). If async values are not configured, no overload protection
+will be applied on that sink.
+
+```erlang
+{lager, 
+ {log_root, "/tmp"},
+
+ %% Default handlers for lager/lager_event
+ {handlers, 
+ {lager_console_backend, {level, info}},
+ {lager_file_backend, {file, "error.log"}, {level, error}},
+ {lager_file_backend, {file, "console.log"}, {level, info}}
+ },
+
+ %% Any other sinks
+ {extra_sinks,
+ 
+ {audit_lager_event,
+ {handlers,
+ {lager_file_backend,
+ {file, "sink1.log"},
+ {level, info}
+ 
+ }
+ },
+ {async_threshold, 500},
+ {async_threshold_window, 50}
+ }
+ }
+ 
+ }
+.
+```
+
+Custom Formatting
+-----------------
+All loggers have a default formatting that can be overriden. A formatter is any module that
+exports `format(#lager_log_message{},Config#any())`. It is specified as part of the configuration
+for the backend:
+
+```erlang
+{lager, 
+ {handlers, 
+ {lager_console_backend, {level, info}, {formatter, lager_default_formatter},
+ {formatter_config, time," ",severity," ", message, "\n"}},
+ {lager_file_backend, {file, "error.log"}, {level, error}, {formatter, lager_default_formatter},
+ {formatter_config, date, " ", time," ",severity," ",pid, " ", message, "\n"}},
+ {lager_file_backend, {file, "console.log"}, {level, info}}
+ }
+}.
+```
+
+Included is `lager_default_formatter`. This provides a generic, default
+formatting for log messages using a structure similar to Erlang's
+iolist(http://learnyousomeerlang.com/buckets-of-sockets#io-lists) which we
+call "semi-iolist":
+
+* Any traditional iolist elements in the configuration are printed verbatim.
+* Atoms in the configuration are treated as placeholders for lager metadata and
+ extracted from the log message.
+ * The placeholders `date`, `time`, `message`, `sev` and `severity` will always exist.
+ * `sev` is an abbreviated severity which is interpreted as a capitalized
+ single letter encoding of the severity level (e.g. `'debug'` -> `$D`)
+ * The placeholders `pid`, `file`, `line`, `module`, `function`, and `node`
+ will always exist if the parse transform is used.
+ * The placeholder `application` may exist if the parse transform is used.
+ It is dependent on finding the applications `app.src` file.
+ * If the error logger integration is used, the placeholder `pid`
+ will always exist and the placeholder `name` may exist.
+ * Applications can define their own metadata placeholder.
+ * A tuple of `{atom(), semi-iolist()}` allows for a fallback for
+ the atom placeholder. If the value represented by the atom
+ cannot be found, the semi-iolist will be interpreted instead.
+ * A tuple of `{atom(), semi-iolist(), semi-iolist()}` represents a
+ conditional operator: if a value for the atom placeholder can be
+ found, the first semi-iolist will be output; otherwise, the
+ second will be used.
+ * A tuple of `{pterm, atom()}` will attempt to lookup
+ the value of the specified atom from the
+ persistent_term(http://erlang.org/doc/man/persistent_term.html)
+ feature added in OTP 21.2. The default value is `""`. The
+ default value will be used if the key cannot be found or
+ if this formatting term is specified on an OTP release before
+ OTP 21.
+ * A tuple of `{pterm, atom(), semi-iolist()}` will attempt to
+ lookup the value of the specified atom from the persistent_term
+ feature added in OTP 21.2. The default value is the specified
+ semi-iolist(). The default value will be used if the key cannot
+ be found or the if this formatting term is specified on an OTP
+ release before OTP 21.
+
+Examples:
+
+```
+"Foo" -> "Foo", regardless of message content.
+message -> The content of the logged message, alone.
+{pid,"Unknown Pid"} -> "<?.?.?>" if pid is in the metadata, "Unknown Pid" if not.
+{pid, "My pid is ", pid, "Unknown Pid"} -> if pid is in the metadata print "My pid is <?.?.?>", otherwise print "Unknown Pid"
+{server,{pid, "(", pid, ")", "(Unknown Server)"}} -> user provided server metadata, otherwise "(<?.?.?>)", otherwise "(Unknown Server)"
+{pterm, pterm_key, <<"undefined">>} -> if a value for 'pterm_key' is found in OTP 21 (or later) persistent_term storage it is used, otherwise "undefined"
+```
+
+Universal time
+--------------
+By default, lager formats timestamps as local time for whatever computer
+generated the log message.
+
+To make lager use UTC timestamps, you can set the `sasl` application's
+`utc_log` configuration parameter to `true` in your application configuration
+file.
+
+Example:
+
+```
+%% format log timestamps as UTC
+{sasl, {utc_log, true}}.
+```
+
+Error logger integration
+------------------------
+Lager is also supplied with a `error_logger` handler module that translates
+traditional erlang error messages into a friendlier format and sends them into
+lager itself to be treated like a regular lager log call. To disable this, set
+the lager application variable `error_logger_redirect` to `false`.
+You can also disable reformatting for OTP and Cowboy messages by setting variable
+`error_logger_format_raw` to `true`.
+
+If you installed your own handler(s) into `error_logger`, you can tell
+lager to leave it alone by using the `error_logger_whitelist` environment
+variable with a list of handlers to allow.
+
+```
+{error_logger_whitelist, my_handler}
+```
+
+The `error_logger` handler will also log more complete error messages (protected
+with use of `trunc_io`) to a "crash log" which can be referred to for further
+information. The location of the crash log can be specified by the `crash_log`
+application variable. If set to `false` it is not written at all.
+
+Messages in the crash log are subject to a maximum message size which can be
+specified via the `crash_log_msg_size` application variable.
+
+Messages from `error_logger` will be redirected to `error_logger_lager_event` sink
+if it is defined so it can be redirected to another log file.
+
+For example:
+
+```
+{lager, 
+ {extra_sinks,
+ 
+ {error_logger_lager_event, 
+ {handlers, 
+ {lager_file_backend, {file, "error_logger.log"}, {level, info}}
+ }
+ }
+ }
+}.
+```
+will send all `error_logger` messages to `error_logger.log` file.
+
+Overload Protection
+-------------------
+
+### Asynchronous mode
+
+Prior to lager 2.0, the `gen_event` at the core of lager operated purely in
+synchronous mode. Asynchronous mode is faster, but has no protection against
+message queue overload. As of lager 2.0, the `gen_event` takes a hybrid
+approach. it polls its own mailbox size and toggles the messaging between
+synchronous and asynchronous depending on mailbox size.
+
+```erlang
+{async_threshold, 20},
+{async_threshold_window, 5}
+```
+
+This will use async messaging until the mailbox exceeds 20 messages, at which
+point synchronous messaging will be used, and switch back to asynchronous, when
+size reduces to `20 - 5 = 15`.
+
+If you wish to disable this behaviour, simply set `async_threshold` to `undefined`. It defaults
+to a low number to prevent the mailbox growing rapidly beyond the limit and causing
+problems. In general, lager should process messages as fast as they come in, so getting
+20 behind should be relatively exceptional anyway.
+
+If you want to limit the number of messages per second allowed from `error_logger`,
+which is a good idea if you want to weather a flood of messages when lots of
+related processes crash, you can set a limit:
+
+```erlang
+{error_logger_hwm, 50}
+```
+
+It is probably best to keep this number small.
+
+### Event queue flushing
+
+When the high-water mark is exceeded, lager can be configured to flush all
+event notifications in the message queue. This can have unintended consequences
+for other handlers in the same event manager (in e.g. the `error_logger`), as
+events they rely on may be wrongly discarded. By default, this behavior is enabled,
+but can be controlled, for the `error_logger` via:
+
+```erlang
+{error_logger_flush_queue, true | false}
+```
+
+or for a specific sink, using the option:
+
+```erlang
+{flush_queue, true | false}
+```
+
+If `flush_queue` is true, a message queue length threshold can be set, at which
+messages will start being discarded. The default threshold is `0`, meaning that
+if `flush_queue` is true, messages will be discarded if the high-water mark is
+exceeded, regardless of the length of the message queue. The option to control
+the threshold is, for `error_logger`:
+
+```erlang
+{error_logger_flush_threshold, 1000}
+```
+
+and for sinks:
+
+```erlang
+{flush_threshold, 1000}
+```
+
+### Sink Killer
+
+In some high volume situations, it may be preferable to drop all pending log
+messages instead of letting them drain over time.
+
+If you prefer, you may choose to use the sink killer to shed load. In this
+operational mode, if the `gen_event` mailbox exceeds a configurable
+high water mark, the sink will be killed and reinstalled after a
+configurable cool down time.
+
+You can configure this behavior by using these configuration directives:
+
+```erlang
+{killer_hwm, 1000},
+{killer_reinstall_after, 5000}
+```
+
+This means if the sink's mailbox size exceeds 1000 messages, kill the
+entire sink and reload it after 5000 milliseconds. This behavior can
+also be installed into alternative sinks if desired.
+
+By default, the manager killer *is not installed* into any sink. If
+the `killer_reinstall_after` cool down time is not specified it defaults
+to 5000.
+
+"Unsafe"
+--------
+The unsafe code pathway bypasses the normal lager formatting code and uses the
+same code as error_logger in OTP. This provides a marginal speedup to your logging
+code (we measured between 0.5-1.3% improvement during our benchmarking; others have
+reported better improvements.)
+
+This is a **dangerous** feature. It *will not* protect you against
+large log messages - large messages can kill your application and even your
+Erlang VM dead due to memory exhaustion as large terms are copied over and
+over in a failure cascade. We strongly recommend that this code pathway
+only be used by log messages with a well bounded upper size of around 500 bytes.
+
+If there's any possibility the log messages could exceed that limit, you should
+use the normal lager message formatting code which will provide the appropriate
+size limitations and protection against memory exhaustion.
+
+If you want to format an unsafe log message, you may use the severity level (as
+usual) followed by `_unsafe`. Here's an example:
+
+```erlang
+lager:info_unsafe("The quick brown ~s jumped over the lazy ~s", "fox", "dog").
+```
+
+Runtime loglevel changes
+------------------------
+You can change the log level of any lager backend at runtime by doing the
+following:
+
+```erlang
+lager:set_loglevel(lager_console_backend, debug).
+```
+
+ Or, for the backend with multiple handles (files, mainly):
+
+```erlang
+lager:set_loglevel(lager_file_backend, "console.log", debug).
+```
+
+Lager keeps track of the minimum log level being used by any backend and
+suppresses generation of messages lower than that level. This means that debug
+log messages, when no backend is consuming debug messages, are effectively
+free. A simple benchmark of doing 1 million debug log messages while the
+minimum threshold was above that takes less than half a second.
+
+Syslog style loglevel comparison flags
+--------------------------------------
+In addition to the regular log level names, you can also do finer grained masking
+of what you want to log:
+
+```
+info - info and higher (>= is implicit)
+=debug - only the debug level
+!=info - everything but the info level
+<=notice - notice and below
+<warning - anything less than warning
+```
+
+These can be used anywhere a loglevel is supplied, although they need to be either
+a quoted atom or a string.
+
+Internal log rotation
+---------------------
+Lager can rotate its own logs or have it done via an external process. To
+use internal rotation, use the `size`, `date` and `count` values in the file
+backend's config:
+
+```erlang
+{file, "error.log"}, {level, error}, {size, 10485760}, {date, "$D0"}, {count, 5}
+```
+
+This tells lager to log error and above messages to `error.log` and to
+rotate the file at midnight or when it reaches 10mb, whichever comes first,
+and to keep 5 rotated logs in addition to the current one. Setting the
+count to 0 does not disable rotation, it instead rotates the file and keeps
+no previous versions around. To disable rotation set the size to 0 and the
+date to "".
+
+The `$D0` syntax is taken from the syntax newsyslog uses in newsyslog.conf.
+The relevant extract follows:
+
+```
+Day, week and month time format: The lead-in character
+for day, week and month specification is a `$'-sign.
+The particular format of day, week and month
+specification is: Dhh, WwDhh and MddDhh,
+respectively. Optional time fields default to
+midnight. The ranges for day and hour specifications
+are:
+
+ hh hours, range 0 ... 23
+ w day of week, range 0 ... 6, 0 = Sunday
+ dd day of month, range 1 ... 31, or the
+ letter L or l to specify the last day of
+ the month.
+
+Some examples:
+ $D0 rotate every night at midnight
+ $D23 rotate every day at 23:00 hr
+ $W0D23 rotate every week on Sunday at 23:00 hr
+ $W5D16 rotate every week on Friday at 16:00 hr
+ $M1D0 rotate on the first day of every month at
+ midnight (i.e., the start of the day)
+ $M5D6 rotate on every 5th day of the month at
+ 6:00 hr
+```
+
+On top of the day, week and month time format from newsyslog,
+hour specification is added from PR #420(https://github.com/erlang-lager/lager/pull/420)
+
+```
+Format of hour specification is : Hmm
+The range for minute specification is:
+
+ mm minutes, range 0 ... 59
+
+Some examples:
+
+ $H00 rotate every hour at HH:00
+ $D12H30 rotate every day at 12:30
+ $W0D0H0 rotate every week on Sunday at 00:00
+```
+
+To configure the crash log rotation, the following application variables are
+used:
+* `crash_log_size`
+* `crash_log_date`
+* `crash_log_count`
+* `crash_log_rotator`
+
+See the `.app.src` file for further details.
+
+Custom Log Rotation
+-------------------
+Custom log rotator could be configured with option for `lager_file_backend`
+```erlang
+{rotator, lager_rotator_default}
+```
+
+The module should provide the following callbacks as `lager_rotator_behaviour`
+
+```erlang
+%% @doc Create a log file
+-callback(create_logfile(Name::list(), Buffer::{integer(), integer()} | any()) ->
+ {ok, {FD::file:io_device(), Inode::integer(), Size::integer()}} | {error, any()}).
+
+%% @doc Open a log file
+-callback(open_logfile(Name::list(), Buffer::{integer(), integer()} | any()) ->
+ {ok, {FD::file:io_device(), Inode::integer(), Size::integer()}} | {error, any()}).
+
+%% @doc Ensure reference to current target, could be rotated
+-callback(ensure_logfile(Name::list(), FD::file:io_device(), Inode::integer(),
+ Buffer::{integer(), integer()} | any()) ->
+ {ok, {FD::file:io_device(), Inode::integer(), Size::integer()}} | {error, any()}).
+
+%% @doc Rotate the log file
+-callback(rotate_logfile(Name::list(), Count::integer()) ->
+ ok).
+```
+
+Syslog Support
+--------------
+Lager syslog output is provided as a separate application:
+lager_syslog(https://github.com/erlang-lager/lager_syslog). It is packaged as a
+separate application so lager itself doesn't have an indirect dependency on a
+port driver. Please see the `lager_syslog` README for configuration information.
+
+Other Backends
+--------------
+There are lots of them! Some connect log messages to AMQP, various logging
+analytic services (bunyan(https://github.com/Vagabond/lager_bunyan_formatter),
+loggly(https://github.com/kivra/lager_loggly), etc), and more. Looking on
+hex(https://hex.pm/packages?_utf8=✓&search=lager&sort=recent_downloads) or
+using "lager BACKEND" where "BACKEND" is your preferred log solution
+on your favorite search engine is a good starting point.
+
+Exception Pretty Printing
+----------------------
+Up to OTP 20:
+
+```erlang
+try
+ foo()
+catch
+ Class:Reason ->
+ lager:error(
+ "~nStacktrace:~s",
+ lager:pr_stacktrace(erlang:get_stacktrace(), {Class, Reason}))
+end.
+```
+
+On OTP 21+:
+
+```erlang
+try
+ foo()
+catch
+ Class:Reason:Stacktrace ->
+ lager:error(
+ "~nStacktrace:~s",
+ lager:pr_stacktrace(Stacktrace, {Class, Reason}))
+end.
+```
+
+Record Pretty Printing
+----------------------
+Lager's parse transform will keep track of any record definitions it encounters
+and store them in the module's attributes. You can then, at runtime, print any
+record a module compiled with the lager parse transform knows about by using the
+`lager:pr/2` function, which takes the record and the module that knows about the record:
+
+```erlang
+lager:info("My state is ~p", lager:pr(State, ?MODULE))
+```
+
+Often, `?MODULE` is sufficent, but you can obviously substitute that for a literal module name.
+`lager:pr` also works from the shell.
+
+Colored terminal output
+-----------------------
+If you have Erlang R16 or higher, you can tell lager's console backend to be colored. Simply
+add to lager's application environment config:
+
+```erlang
+{colored, true}
+```
+
+If you don't like the default colors, they are also configurable; see
+the `.app.src` file for more details.
+
+The output will be colored from the first occurrence of the atom color
+in the formatting configuration. For example:
+
+```erlang
+{lager_console_backend, {level, info}, {formatter, lager_default_formatter},
+ {formatter_config, time, color, " ",severity," ", message, "\e0m\r\n"}}
+```
+
+This will make the entire log message, except time, colored. The
+escape sequence before the line break is needed in order to reset the
+color after each log message.
+
+Tracing
+-------
+Lager supports basic support for redirecting log messages based on log message
+attributes. Lager automatically captures the pid, module, function and line at the
+log message callsite. However, you can add any additional attributes you wish:
+
+```erlang
+lager:warning({request, RequestID},{vhost, Vhost}, "Permission denied to ~s", User)
+```
+
+Then, in addition to the default trace attributes, you'll be able to trace
+based on request or vhost:
+
+```erlang
+lager:trace_file("logs/example.com.error", {vhost, "example.com"}, error)
+```
+
+To persist metadata for the life of a process, you can use `lager:md/1` to store metadata
+in the process dictionary:
+
+```erlang
+lager:md({zone, forbidden})
+```
+
+Note that `lager:md` will *only* accept a list of key/value pairs keyed by atoms.
+
+You can also omit the final argument, and the loglevel will default to
+`debug`.
+
+Tracing to the console is similar:
+
+```erlang
+lager:trace_console({request, 117})
+```
+
+In the above example, the loglevel is omitted, but it can be specified as the
+second argument if desired.
+
+You can also specify multiple expressions in a filter, or use the `*` atom as
+a wildcard to match any message that has that attribute, regardless of its
+value. You may also use the special value `!` to mean, only select if this
+key is **not** present.
+
+Tracing to an existing logfile is also supported (but see **Multiple
+sink support** below):
+
+```erlang
+lager:trace_file("log/error.log", {module, mymodule}, {function, myfunction}, warning)
+```
+
+To view the active log backends and traces, you can use the `lager:status()`
+function. To clear all active traces, you can use `lager:clear_all_traces()`.
+
+To delete a specific trace, store a handle for the trace when you create it,
+that you later pass to `lager:stop_trace/1`:
+
+```erlang
+{ok, Trace} = lager:trace_file("log/error.log", {module, mymodule}),
+...
+lager:stop_trace(Trace)
+```
+
+Tracing to a pid is somewhat of a special case, since a pid is not a
+data-type that serializes well. To trace by pid, use the pid as a string:
+
+```erlang
+lager:trace_console({pid, "<0.410.0>"})
+```
+
+### Filter expressions
+As of lager 3.3.1, you can also use a 3 tuple while tracing where the second
+element is a comparison operator. The currently supported comparison operators
+are:
+
+* `<` - less than
+* `=<` - less than or equal
+* `=` - equal to
+* `!=` - not equal to
+* `>` - greater than
+* `>=` - greater than or equal
+
+```erlang
+lager:trace_console({request, '>', 117}, {request, '<', 120})
+```
+
+Using `=` is equivalent to the 2-tuple form.
+
+### Filter composition
+As of lager 3.3.1 you may also use the special filter composition keys of
+`all` or `any`. For example the filter example above could be
+expressed as:
+
+```erlang
+lager:trace_console({all, {request, '>', 117}, {request, '<', 120}})
+```
+
+`any` has the effect of "OR style" logical evaluation between filters; `all`
+means "AND style" logical evaluation between filters. These compositional filters
+expect a list of additional filter expressions as their values.
+
+### Null filters
+The `null` filter has a special meaning. A filter of `{null, false}` acts as
+a black hole; nothing is passed through. A filter of `{null, true}` means
+*everything* passes through. No other values for the null filter are valid and
+will be rejected.
+
+### Multiple sink support
+
+If using multiple sinks, there are limitations on tracing that you
+should be aware of.
+
+Traces are specific to a sink, which can be specified via trace
+filters:
+
+```erlang
+lager:trace_file("log/security.log", {sink, audit_event}, {function, myfunction}, warning)
+```
+
+If no sink is thus specified, the default lager sink will be used.
+
+This has two ramifications:
+
+* Traces cannot intercept messages sent to a different sink.
+* Tracing to a file already opened via `lager:trace_file` will only be
+ successful if the same sink is specified.
+
+The former can be ameliorated by opening multiple traces; the latter
+can be fixed by rearchitecting lager's file backend, but this has not
+been tackled.
+
+### Traces from configuration
+
+Lager supports starting traces from its configuration file. The keyword
+to define them is `traces`, followed by a proplist of tuples that define
+a backend handler and zero or more filters in a required list,
+followed by an optional message severity level.
+
+An example looks like this:
+
+```erlang
+{lager, 
+ {handlers, ...},
+ {traces, 
+ %% handler, filter, message level (defaults to debug if not given)
+ {lager_console_backend, {module, foo}, info },
+ {{lager_file_backend, "trace.log"}, {request, '>', 120}, error},
+ {{lager_file_backend, "event.log"}, {module, bar} } %% implied debug level here
+ }
+}.
+```
+
+In this example, we have three traces. One using the console backend, and two
+using the file backend. If the message severity level is left out, it defaults
+to `debug` as in the last file backend example.
+
+The `traces` keyword works on alternative sinks too but the same limitations
+and caveats noted above apply.
+
+**IMPORTANT**: You **must** define a severity level in all lager releases
+up to and including 3.1.0 or previous. The 2-tuple form wasn't added until
+3.2.0.
+
+Setting dynamic metadata at compile-time
+----------------------------------------
+Lager supports supplying metadata from external sources by registering a 
+callback function. This metadata is also persistent across processes even if 
+the process dies.
+
+In general use you won't need to use this feature. However it is useful in 
+situations such as:
+ * Tracing information provided by 
+ seq_trace(http://erlang.org/doc/man/seq_trace.html)
+ * Contextual information about your application
+ * Persistent information which isn't provided by the default placeholders
+ * Situations where you would have to set the metadata before every logging call 
+
+You can add the callbacks by using the `{lager_parse_transform_functions, X}` 
+option. It is only available when using `parse_transform`. In rebar, you can 
+add it to `erl_opts` as below:
+
+```erlang
+{erl_opts, {parse_transform, lager_transform}, 
+ {lager_function_transforms, 
+ 
+ %% Placeholder Resolve type Callback tuple
+ {metadata_placeholder, on_emit, {module_name, function_name}},
+ {other_metadata_placeholder, on_log, {module_name, function_name}}
+ }}.
+```
+
+The first atom is the placeholder atom used for the substitution in your custom
+ formatter. See Custom Formatting(#custom-formatting) for more information.
+
+The second atom is the resolve type. This specify the callback to resolve at 
+the time of the message being emitted or at the time of the logging call. You 
+have to specify either the atom `on_emit` or `on_log`. There is not a 'right' 
+resolve type to use, so please read the uses/caveats of each and pick the option 
+which fits your requirements best.
+ 
+`on_emit`:
+ * The callback functions are not resolved until the message is emitted by the
+ backend.
+ * If the callback function cannot be resolved, not loaded or produces 
+ unhandled errors then `undefined` will be returned.
+ * Since the callback function is dependent on a process, there is the 
+ chance that message will be emitted after the dependent process has died 
+ resulting in `undefined` being returned. This process can also be your own
+ process
+ 
+`on_log`:
+ * The callback functions are resolved regardless whether the message is 
+ emitted or not
+ * If the callback function cannot be resolved or not loaded the errors are 
+ not handled by lager itself.
+ * Any potential errors in callback should be handled in the callback function
+ itself.
+ * Because the function is resolved at log time there should be less chance
+ of the dependent process dying before you can resolve it, especially if
+ you are logging from the app which contains the callback.
+
+The third element is the callback to your function consisting of a tuple in the
+form `{Module Function}`. The callback should look like the following 
+regardless if using `on_emit` or `on_log`: 
+ * It should be exported
+ * It should takes no arguments e.g. has an arity of 0
+ * It should return any traditional iolist elements or the atom `undefined`
+ * For errors generated within your callback see the resolve type documentation
+ above.
+
+If the callback returns `undefined` then it will follow the same fallback and
+conditional operator rules as documented in the 
+Custom Formatting(#custom-formatting) section. 
+
+This example would work with `on_emit` but could be unsafe to use with 
+`on_log`. If the call failed in `on_emit` it would default to `undefined`, 
+however with `on_log` it would error.
+
+```erlang
+-export(my_callback/0).
+
+my_callback() ->
+ my_app_serv:call('some options').
+```
+
+This example would be to safe to work with both `on_emit` and `on_log`
+
+```erlang
+-export(my_callback/0).
+
+my_callback() ->
+ try my_app_serv:call('some options') of
+ Result ->
+ Result
+ catch
+ _ ->
+ %% You could define any traditional iolist elements you wanted here
+ undefined
+ end.
+```
+
+Note that the callback can be any Module:Function/0. It does not have be part 
+of your application. For example you could use `cpu_sup:avg1/0` as your 
+callback function like so `{cpu_avg1, on_emit, {cpu_sup, avg1}}`
+
+
+Examples:
+
+```erlang
+-export(reductions/0).
+
+reductions() ->
+ proplists:get_value(reductions, erlang:process_info(self())).
+```
+
+```erlang
+-export(seq_trace/0).
+
+seq_trace() ->
+ case seq_trace:get_token(label) of
+ {label, TraceLabel} ->
+ TraceLabel;
+ _ ->
+ undefined
+ end.
+```
+
+**IMPORTANT**: Since `on_emit` relies on function calls injected at the
+point where a log message is emitted, your logging performance (ops/sec)
+will be impacted by what the functions you call do and how much latency they
+may introduce. This impact will even greater with `on_log` since the calls
+are injected at the point a message is logged.
+
+Setting the truncation limit at compile-time
+--------------------------------------------
+Lager defaults to truncating messages at 4096 bytes, you can alter this by
+using the `{lager_truncation_size, X}` option. In rebar, you can add it to
+`erl_opts`:
+
+```erlang
+{erl_opts, {parse_transform, lager_transform}, {lager_truncation_size, 1024}}.
+```
+
+You can also pass it to `erlc`, if you prefer:
+
+```
+erlc -pa lager/ebin +'{parse_transform, lager_transform}' +'{lager_truncation_size, 1024}' file.erl
+```
+
+Suppress applications and supervisors start/stop logs
+-----------------------------------------------------
+If you don't want to see supervisors and applications start/stop logs in debug
+level of your application, you can use these configs to turn it off:
+
+```erlang
+{lager, {suppress_application_start_stop, true},
+ {suppress_supervisor_start_stop, true}}
+```
+
+Sys debug functions
+--------------------
+
+Lager provides an integrated way to use sys 'debug functions'. You can install a debug
+function in a target process by doing
+
+```erlang
+lager:install_trace(Pid, notice).
+```
+
+You can also customize the tracing somewhat:
+
+```erlang
+lager:install_trace(Pid, notice, {count, 100}, {timeout, 5000}, {format_string, "my trace event ~p ~p"}).
+```
+
+The trace options are currently:
+
+* timeout - how long the trace stays installed: `infinity` (the default) or a millisecond timeout
+* count - how many trace events to log: `infinity` (default) or a positive number
+* format_string - the format string to log the event with. *Must* have 2 format specifiers for the 2 parameters supplied.
+
+This will, on every 'system event' for an OTP process (usually inbound messages, replies
+and state changes) generate a lager message at the specified log level.
+
+You can remove the trace when you're done by doing:
+
+```erlang
+lager:remove_trace(Pid).
+```
+
+If you want to start an OTP process with tracing enabled from the very beginning, you can do something like this:
+
+```erlang
+gen_server:start_link(mymodule, , {debug, {install, {fun lager:trace_func/3, lager:trace_state(undefined, notice, )}}}).
+```
+
+The third argument to the trace_state function is the Option list documented above.
+
+Console output to another group leader process
+----------------------------------------------
+
+If you want to send your console output to another group_leader (typically on
+another node) you can provide a `{group_leader, Pid}` argument to the console
+backend. This can be combined with another console config option, `id` and
+gen_event's `{Module, ID}` to allow remote tracing of a node to standard out via
+nodetool:
+
+```erlang
+ GL = erlang:group_leader(),
+ Node = node(GL),
+ lager_app:start_handler(lager_event, {lager_console_backend, Node},
+ {group_leader, GL}, {level, none}, {id, {lager_console_backend, Node}}),
+ case lager:trace({lager_console_backend, Node}, Filter, Level) of
+ ...
+```
+
+In the above example, the code is assumed to be running via a `nodetool rpc`
+invocation so that the code is executing on the Erlang node, but the
+group_leader is that of the reltool node (eg. appname_maint_12345@127.0.0.1).
+
+If you intend to use tracing with this feature, make sure the second parameter
+to start_handler and the `id` parameter match. Thus when the custom group_leader
+process exits, lager will remove any associated traces for that handler.
+
+Elixir Support
+--------------
+
+There are 2 ways in which Lager can be leveraged in an Elixir project:
+
+1. Lager Backend for Elixir Logger
+2. Directly
+
+### Lager Backend for Elixir Logger
+
+Elixir's Logger(https://hexdocs.pm/logger/Logger.html) is the idiomatic way
+to add logging into elixir code. Logger has a plug-in model,
+allowing for different logging Backends(https://hexdocs.pm/logger/Logger.html#module-backends)
+to be used without the need to change the logging code within your project.
+
+This approach will benefit from the fact that most elixir libs and frameworks
+are likely to use the elixir Logger and as such logging will all flow via the
+same logging mechanism.
+
+In elixir 1.5 support for parse transforms was deprecated(https://github.com/elixir-lang/elixir/issues/5762).
+Taking the "Lager as a Logger Backend" approach is likely bypass any related 
+regression issues that would be introduced into a project which is using lager 
+directly when updating to elixir 1.5.
+
+There are open source elixir Logger backends for Lager available:
+- LagerLogger(https://github.com/PSPDFKit-labs/lager_logger)
+- LoggerLagerBackend(https://github.com/jonathanperret/logger_lager_backend)
+
+### Directly
+
+It is fully possible prior to elixir 1.5 to use lager and all its features
+directly.
+
+After elixir 1.5 there is no support for parse transforms, and it is
+recommended to use an elixir wrapper for the lager api that provides compile time
+log level exclusion via elixir macros when opting for direct use of lager.
+
+Including Lager as a dependency:
+``` elixir
+# mix.exs
+def application do
+ 
+ applications: :lager,
+ erl_opts: parse_transform: "lager_transform"
+ 
+end
+
+defp deps do
+ {:lager, "~> 3.2"}
+end
+```
+
+Example Configuration:
+``` elixir
+# config.exs
+use Mix.Config
+
+# Stop lager writing a crash log
+config :lager, :crash_log, false
+
+config :lager,
+ log_root: '/var/log/hello',
+ handlers: 
+ lager_console_backend: :info,
+ lager_file_backend: file: "error.log", level: :error,
+ lager_file_backend: file: "console.log", level: :info
+ 
+```
+
+There is a known issue where Elixir's Logger and Lager both contest for the
+Erlang `error_logger` handle if used side by side.
+
+If using both add the following to your `config.exs`:
+```elixir
+# config.exs
+use Mix.Config
+
+# Stop lager redirecting :error_logger messages
+config :lager, :error_logger_redirect, false
+
+# Stop lager removing Logger's :error_logger handler
+config :lager, :error_logger_whitelist, Logger.ErrorHandler
+```
+
+Example Usage:
+``` elixir
+:lager.error('Some message')
+:lager.warning('Some message with a term: ~p', term)
+```
+
+3.x Changelog
+-------------
+3.9.2 - 14 May 2021
+
+ * Bugfix: Prevent "a term is constructed but never used" warnings (#547)
+ * Bugfix: Update CI test matrix to include OTP 24 (#551)
+
+3.9.1 - 2 March 2021
+
+ * Bugfix: More log_root fun (#543)
+ * Bugfix: Use GHA for all the CIs
+
+3.9.0 - 24 February 2021
+
+ * Bugfix: Try to make a log root of "log" more sensible (#540)
+ * Feature: Further adapt to OTP 24 (also remove pre OTP 21 code),
+ adopt Github Actions for tests
+
+3.8.2 - 4 February 2021
+
+ * Bugfix: Make directory expansion return an absolute path (#535)
+ * Feature: Write crash.log under the log_root location (#536)
+ * Bugfix: Handle line numbering correctly in forthcoming OTP 24 release (#537)
+
+3.8.1 - 28 August 2020
+
+ * Feature: Allow metadata fields to be whitelisted in log formatting (#514)
+ * Feature: Enable a persistent_term log formatter (#530) (#531)
+ * Bugfix: Handle gen_statem crashes in newer OTP releases correctly (#523)
+ * Cleanup: Add a hex badge (#525)
+ * Cleanup: Fix Travis CI badge link
+ * Policy: Officially ending support for OTP 20 (Support OTP 21, 22, 23)
+
+3.8.0 - 9 August 2019
+
+ * Breaking API change: Modify the `lager_rotator_behaviour` to pass in a
+ file's creation time to `ensure_logfile/5` to be used to determine if
+ file has changed on systems where inodes are not available (i.e.
+ `win32`). The return value from `create_logfile/2`, `open_logfile/2` and
+ `ensure_logfile/5` now requires ctime to be returned (#509)
+ * Bugfix: ensure log file rotation works on `win32` (#509)
+ * Bugfix: ensure test suite passes on `win32` (#509)
+ * Bugfix: ensure file paths with Unicode are formatted properly (#510)
+
+3.7.0 - 24 May 2019
+
+ * Policy: Officially ending support for OTP 19 (Support OTP 20, 21, 22)
+ * Cleanup: Fix all dialyzer errors
+ * Bugfix: Minor changes to FSM/statem exits in OTP 22.
+
+3.6.10 - 30 April 2019
+
+ * Documentation: Fix pr_stacktrace invocation example (#494)
+ * Bugfix: Do not count suppressed messages for message drop counts (#499)
+
+3.6.9 - 13 March 2019
+
+ * Bugfix: Fix file rotation on windows (#493)
+
+3.6.8 - 21 December 2018
+
+ * Documentation: Document the error_logger_whitelist environment variable. (#489)
+ * Bugfix: Remove the built in handler inside of OTP 21 `logger` system. (#488)
+ * Bugfix: Cleanup unneeded check for is_map (#486)
+ * Bugfix: Cleanup ranch errors treated as cowboy errors (#485)
+ * Testing: Remove OTP 18 from TravisCI testing matrix
+
+3.6.7 - 14 October 2018
+
+ * Bugfix: fix tracing to work with OTP21 #480
+
+3.6.6 - 24 September 2018
+
+ * Bugfix: When printing records, handle an improper list correctly. #478
+ * Bugfix: Fix various tests and make some rotation code more explicit. #476
+ * Bugfix: Make sure not to miscount messages during high-water mark check. #475
+
+3.6.5 - 3 September 2018
+
+ * Feature: Allow the console backend to redirect output to a remote node #469
+ * Feature: is_loggble - support for severity as atom #472
+ * Bugfix: Prevent silent dropping of messages when hwm is exceeded #467
+ * Bugfix: rotation - default log file not deleted #474
+ * Bugfix: Handle strange crash report from gen_statem #473
+ * Documentation: Various markup fixes: #468 #470
+
+3.6.4 - 11 July 2018
+
+ * Bugfix: Reinstall handlers after a sink is killed #459
+ * Bugfix: Fix platform_define matching not to break on OSX Mojave #461
+ * Feature: Add support for installing a sys trace function #462
+
+3.6.3 - 6 June 2018
+
+ * OTP 21 support
+
+3.6.2 - 26 April 2018
+
+ * Bugfix: flush_threshold not working (#449)
+ * Feature: Add `node` as a formatting option (#447)
+ * Documentation: Update Elixir section with information about parse_transform (#446)
+ * Bugfix: Correct default console configuation to use "{level,info}" instead (#445)
+ * Feature: Pretty print lists of records at top level and field values with lager:pr (#442)
+ * Bugfix: Ignore return value of lager:dispatch_log in lager.hrl (#441)
+
+3.6.1 - 1 February 2018
+
+ * Bugfix: Make a few corrections to the recent mailbox flushing changes (#436)
+ * Bugfix: add flush options to proplist validation (#439)
+ * Bugfix: Don't log when we dropped 0 messages (#440)
+
+3.6.0 - 16 January 2018
+
+ * Feature: Support logging with macros per level (#419)
+ * Feature: Support custom file rotation handler; support hourly file
+ rotation (#420)
+ * Feature: Optionally reverse pretty stacktraces (so errors are
+ at the top and the failed function call is at the bottom.)
+ (#424)
+ * Bugfix: Handle OTP 20 gen_server failure where client pid
+ is dead. (#426)
+ * Feature: Optionally don't flush notify messages at
+ high water mark. (#427)
+ * Bugfix: Handle another stacktrace format (#429)
+ * Bugfix: Fix test failure using macros on OTP 18 (#430)
+ * Policy: Remove all code which supports R15 (#432)
+
+3.5.2 - 19 October 2017
+
+ * Bugfix: Properly check for unicode characters in potentially deep
+ character list. (#417)
+
+3.5.1 - 15 June 2017
+
+ * Doc fix: Missed a curly brace in an example. (#412)
+ * Feature: Dynamic metadata functions (#392) - It is now possible to
+ dynamically add metadata to lager messages. See the "dynamic
+ metadata" section above for more information.
+ * Doc fix: Add information about the "application" placeholder. (#414)
+
+3.5.0 - 28 May 2017
+
+ * Bugfix: Support OTP 20 gen_event messages (#410)
+ * Feature: Enable console output to standard_error.
+ Convert to proplist configuration style (like file handler)
+ Deprecate previous configuration directives (#409)
+ * Bugfix: Enable the event shaper to filter messages before they're
+ counted; do not count application/supervisor start/stops
+ toward high water mark. (#411)
+ * Docs: Add PR guidelines; add info about the #lager chat room on freenode.
+
+3.4.2 - 26 April 2017
+
+ * Docs: Document how to make lager use UTC timestamps (#405)
+ * Docs: Add a note about our triage cadence.
+ * Docs: Update lager_syslog URL
+ * Docs: Document placeholders for error_logger integration (#404)
+ * Feature: Add hex.pm metadata and full rebar3 support.
+
+3.4.1 - 28 March 2017
+
+ * Docs: Added documentation around using lager in the context of elixir applications (#398)
+ * Bugfix: Properly expand paths when log_root is set. (#386)
+ * Policy: Removed R15 from Travis configuration
+
+3.4.0 - 16 March 2017
+
+ * Policy: Adopt official OTP support policy. (This is the **last** lager 3.x release
+ that will support R15.)
+ * Test: Fix timeouts, R15 missing functions on possibly long-running tests in Travis. (#394, #395)
+ * Feature: capture and log metadata from error_logger messages (#397)
+ * Feature: Expose new trace filters and enable filter composition (#389)
+ * Feature: Log crashes from gen_fsm and gen_statem correctly (#391)
+ * Docs: Typo in badge URL (#390)
+
+3.3.0 - 16 February 2017
+
+ * Docs: Fix documentation to make 'it' unambiguous when discussing asychronous
+ operation. (#387)
+ * Test: Fix test flappiness due to insufficient sanitation between test runs (#384, #385)
+ * Feature: Allow metadata only logging. (#380)
+ * Feature: Add an upper case severity formatter (#372)
+ * Feature: Add support for suppressing start/stop messages from supervisors (#368)
+ * Bugfix: Fix ranch crash messages (#366)
+ * Test: Update Travis config for 18.3 and 19.0 (#365)
+
+3.2.4 - 11 October 2016
+
+ * Test: Fix dialyzer warnings.
+
+3.2.3 - 29 September 2016
+
+ * Dependency: Update to goldrush 0.19
+
+3.2.2 - 22 September 2016
+
+ * Bugfix: Backwards-compatibility fix for `{crash_log, undefined}` (#371)
+ * Fix documentation/README to reflect the preference for using `false`
+ as the `crash_log` setting value rather than `undefined` to indicate
+ that the crash log should not be written (#364)
+ * Bugfix: Backwards-compatibility fix for `lager_file_backend` "legacy"
+ configuration format (#374)
+
+3.2.1 - 10 June 2016
+
+ * Bugfix: Recent `get_env` changes resulted in launch failure (#355)
+ * OTP: Support typed records for Erlang 19.0 (#361)
+
+3.2.0 - 08 April 2016
+
+ * Feature: Optional sink killer to shed load when mailbox size exceeds a
+ configurable high water mark (#346)
+ * Feature: Export `configure_sink/2` so users may dynamically configure
+ previously setup and parse transformed sinks from their own code. (#342)
+ * Feature: Re-enable Travis CI and update .travis.yml (#340)
+ * Bugfix: Fix test race conditions for Travis CI (#344)
+ * Bugfix: Add the atom 'none' to the log_level() type so downstream
+ users won't get dialyzer failures if they use the 'none' log level. (#343)
+ * Bugfix: Fix typo in documentation. (#341)
+ * Bugfix: Fix OTP 18 test failures due to `warning_map/0` response
+ change. (#337)
+ * Bugfix: Make sure traces that use the file backend work correctly
+ when specified in lager configuration. (#336)
+ * Bugfix: Use `lager_app:get_env/3` for R15 compatibility. (#335)
+ * Bugfix: Make sure lager uses `id` instead of `name` when reporting
+ supervisor children failures. (The atom changed in OTP in 2014.) (#334)
+ * Bugfix: Make lager handle improper iolists (#327)
+
+3.1.0 - 27 January 2016
+
+ * Feature: API calls to a rotate handler, sink or all. This change
+ introduces a new `rotate` message for 3rd party lager backends; that's
+ why this is released as a new minor version number. (#311)
+
+3.0.3 - 27 January 2016
+
+ * Feature: Pretty printer for human readable stack traces (#298)
+ * Feature: Make error reformatting optional (#305)
+ * Feature: Optional and explicit sink for error_logger messages (#303)
+ * Bugfix: Always explicitly close a file after its been rotated (#316)
+ * Bugfix: If a relative path already contains the log root, do not add it again (#317)
+ * Bugfix: Configure and start extra sinks before traces are evaluated (#307)
+ * Bugfix: Stop and remove traces correctly (#306)
+ * Bugfix: A byte value of 255 is valid for Unicode (#300)
+ * Dependency: Bump to goldrush 0.1.8 (#313)

guam-0.9.12.tar.gz/_checkouts/lager/hex_metadata.config Added

@@ -0,0 +1,27 @@
+{<<"app">>,<<"lager">>}.
+{<<"build_tools">>,<<"rebar3">>}.
+{<<"description">>,<<"Erlang logging framework">>}.
+{<<"files">>,
+ <<"LICENSE">>,<<"README.md">>,<<"include/lager.hrl">>,<<"priv/edoc.css">>,
+ <<"rebar.config">>,<<"rebar.config.script">>,<<"rebar.lock">>,
+ <<"src/error_logger_lager_h.erl">>,<<"src/lager.app.src">>,
+ <<"src/lager.erl">>,<<"src/lager_app.erl">>,
+ <<"src/lager_backend_throttle.erl">>,
+ <<"src/lager_common_test_backend.erl">>,<<"src/lager_config.erl">>,
+ <<"src/lager_console_backend.erl">>,<<"src/lager_crash_log.erl">>,
+ <<"src/lager_default_formatter.erl">>,<<"src/lager_file_backend.erl">>,
+ <<"src/lager_format.erl">>,<<"src/lager_handler_watcher.erl">>,
+ <<"src/lager_handler_watcher_sup.erl">>,<<"src/lager_manager_killer.erl">>,
+ <<"src/lager_msg.erl">>,<<"src/lager_rotator_behaviour.erl">>,
+ <<"src/lager_rotator_default.erl">>,<<"src/lager_stdlib.erl">>,
+ <<"src/lager_sup.erl">>,<<"src/lager_transform.erl">>,
+ <<"src/lager_trunc_io.erl">>,<<"src/lager_util.erl">>}.
+{<<"licenses">>,<<"Apache 2">>}.
+{<<"links">>,{<<"Github">>,<<"https://github.com/erlang-lager/lager">>}}.
+{<<"name">>,<<"lager">>}.
+{<<"requirements">>,
+ {<<"goldrush">>,
+ {<<"app">>,<<"goldrush">>},
+ {<<"optional">>,false},
+ {<<"requirement">>,<<"0.1.9">>}}}.
+{<<"version">>,<<"3.9.2">>}.

guam-0.9.12.tar.gz/_checkouts/lager/include Added

guam-0.9.12.tar.gz/_checkouts/lager/include/lager.hrl Added

@@ -0,0 +1,178 @@
+%% Copyright (c) 2011-2012 Basho Technologies, Inc.  All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License.  You may obtain
+%% a copy of the License at
+%%
+%%   http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied.  See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+
+-define(DEFAULT_TRUNCATION, 4096).
+-define(DEFAULT_TRACER, lager_default_tracer).
+-define(DEFAULT_SINK, lager_event).
+-define(ERROR_LOGGER_SINK, error_logger_lager_event).
+
+-define(METADATA(Extras), {severity, info},
+                           {pid, self()},
+                           {node, node()},
+                           {module, ?MODULE},
+                           {function, ?FUNCTION_NAME},
+                           {function_arity, ?FUNCTION_ARITY},
+                           {file, ?FILE},
+                           {line, ?LINE} | Extras).
+
+-define(lager_log(Severity, Format, Args, Safety),
+        ?lager_log(?DEFAULT_SINK, Severity, ?METADATA(lager:md()), Format, Args,
+                   ?DEFAULT_TRUNCATION, Safety)).
+-define(lager_log(Severity, Metadata, Format, Args, Safety),
+        ?lager_log(?DEFAULT_SINK, Severity, ?METADATA(Metadata++lager:md()), Format, Args,
+                   ?DEFAULT_TRUNCATION, Safety)).
+
+-define(lager_log(Sink, Severity, Metadata, Format, Args, Size, Safety),
+        _ = lager:dispatch_log(Sink, Severity, Metadata, Format, Args, Size, Safety)).
+
+-define(lager_debug(Format, Args), ?lager_log(debug, Format, Args, safe)).
+-define(lager_debug(Metadata, Format, Args), ?lager_log(debug, Metadata, Format, Args, safe)).
+
+-define(lager_info(Format, Args), ?lager_log(info, Format, Args, safe)).
+-define(lager_info(Metadata, Format, Args), ?lager_log(info, Metadata, Format, Args, safe)).
+
+-define(lager_notice(Format, Args), ?lager_log(notice, Format, Args, safe)).
+-define(lager_notice(Metadata, Format, Args), ?lager_log(notice, Metadata, Format, Args, safe)).
+
+-define(lager_warning(Format, Args), ?lager_log(warning, Format, Args, safe)).
+-define(lager_warning(Metadata, Format, Args), ?lager_log(warning, Metadata, Format, Args, safe)).
+
+-define(lager_error(Format, Args), ?lager_log(error, Format, Args, safe)).
+-define(lager_error(Metadata, Format, Args), ?lager_log(error, Metadata, Format, Args, safe)).
+
+-define(lager_critical(Format, Args), ?lager_log(critical, Format, Args, safe)).
+-define(lager_critical(Metadata, Format, Args), ?lager_log(critical, Metadata, Format, Args, safe)).
+
+-define(lager_alert(Format, Args), ?lager_log(alert, Format, Args, safe)).
+-define(lager_alert(Metadata, Format, Args), ?lager_log(alert, Metadata, Format, Args, safe)).
+
+-define(lager_emergency(Format, Args), ?lager_log(emergency, Format, Args, safe)).
+-define(lager_emergency(Metadata, Format, Args), ?lager_log(emergency, Metadata, Format, Args, safe)).
+
+-define(lager_none(Format, Args), ?lager_log(none, Format, Args, safe)).
+-define(lager_none(Metadata, Format, Args), ?lager_log(none, Metadata, Format, Args, safe)).
+
+-define(LEVELS,
+    debug, info, notice, warning, error, critical, alert, emergency, none).
+
+%% Use of these "functions" means that the argument list will not be
+%% truncated for safety
+-define(LEVELS_UNSAFE,
+    {debug_unsafe, debug}, {info_unsafe, info}, {notice_unsafe, notice}, {warning_unsafe, warning}, {error_unsafe, error}, {critical_unsafe, critical}, {alert_unsafe, alert}, {emergency_unsafe, emergency}).
+
+-define(DEBUG, 128).
+-define(INFO, 64).
+-define(NOTICE, 32).
+-define(WARNING, 16).
+-define(ERROR, 8).
+-define(CRITICAL, 4).
+-define(ALERT, 2).
+-define(EMERGENCY, 1).
+-define(LOG_NONE, 0).
+
+-define(LEVEL2NUM(Level),
+    case Level of
+        debug -> ?DEBUG;
+        info -> ?INFO;
+        notice -> ?NOTICE;
+        warning -> ?WARNING;
+        error -> ?ERROR;
+        critical -> ?CRITICAL;
+        alert -> ?ALERT;
+        emergency -> ?EMERGENCY
+    end).
+
+-define(NUM2LEVEL(Num),
+    case Num of
+        ?DEBUG -> debug;
+        ?INFO -> info;
+        ?NOTICE -> notice;
+        ?WARNING -> warning;
+        ?ERROR -> error;
+        ?CRITICAL -> critical;
+        ?ALERT -> alert;
+        ?EMERGENCY -> emergency
+    end).
+
+-define(SHOULD_LOG(Sink, Level),
+    (lager_util:level_to_num(Level) band element(1, lager_config:get({Sink, loglevel}, {?LOG_NONE, }))) /= 0).
+
+-define(SHOULD_LOG(Level),
+    (lager_util:level_to_num(Level) band element(1, lager_config:get(loglevel, {?LOG_NONE, }))) /= 0).
+
+-define(NOTIFY(Level, Pid, Format, Args),
+    gen_event:notify(lager_event, {log, lager_msg:new(io_lib:format(Format, Args),
+            Level,
+            {pid,Pid},{line,?LINE},{file,?FILE},{module,?MODULE},
+            )}
+        )).
+
+%% FOR INTERNAL USE ONLY
+%% internal non-blocking logging call
+%% there's some special handing for when we try to log (usually errors) while
+%% lager is still starting.
+-ifdef(TEST).
+-define(INT_LOG(Level, Format, Args),
+    case ?SHOULD_LOG(Level) of
+        true ->
+            ?NOTIFY(Level, self(), Format, Args);
+        _ ->
+            ok
+    end).
+-else.
+-define(INT_LOG(Level, Format, Args),
+    Self = self(),
+    %% do this in a spawn so we don't cause a deadlock calling gen_event:which_handlers
+    %% from a gen_event handler
+    spawn(fun() ->
+            case catch(gen_event:which_handlers(lager_event)) of
+                X when X == ; X == {'EXIT', noproc}; X == lager_backend_throttle ->
+                    %% there's no handlers yet or lager isn't running, try again
+                    %% in half a second.
+                    timer:sleep(500),
+                    ?NOTIFY(Level, Self, Format, Args);
+                _ ->
+                    case ?SHOULD_LOG(Level) of
+                        true ->
+                            ?NOTIFY(Level, Self, Format, Args);
+                        _ ->
+                            ok
+                    end
+            end
+    end)).
+-endif.
+
+-record(lager_shaper, {
+                  id :: any(),
+                  %% how many messages per second we try to deliver
+                  hwm = undefined :: 'undefined' | pos_integer(),
+                  %% how many messages we've received this second
+                  mps = 0 :: non_neg_integer(),
+                  %% the current second
+                  lasttime = os:timestamp() :: erlang:timestamp(),
+                  %% count of dropped messages this second
+                  dropped = 0 :: non_neg_integer(),
+                  %% If true, flush notify messages from msg queue at overload
+                  flush_queue = true :: boolean(),
+                  flush_threshold = 0 :: integer(),
+                  %% timer
+                  timer = make_ref() :: reference(),
+                  %% optional filter fun to avoid counting suppressed messages against HWM totals
+                  filter = fun(_) -> false end :: fun()
+                 }).
+
+-type lager_shaper() :: #lager_shaper{}.

guam-0.9.12.tar.gz/_checkouts/lager/priv Added

guam-0.9.12.tar.gz/_checkouts/lager/priv/edoc.css Added

guam-0.9.12.tar.gz/_checkouts/lager/rebar.config Added

@@ -0,0 +1,59 @@
+%% -*- erlang -*-
+%% -------------------------------------------------------------------
+%%
+%% Copyright (c) 2011-2015 Basho Technologies, Inc.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License.  You may obtain
+%% a copy of the License at
+%%
+%%   http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied.  See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+%%
+%% -------------------------------------------------------------------
+
+{erl_opts, 
+    {lager_extra_sinks, '__lager_test_sink'},
+    {platform_define, "^18", 'FUNCTION_NAME', unavailable},
+    {platform_define, "^18", 'FUNCTION_ARITY', 0},
+    debug_info,
+    report,
+    verbose,
+    warn_deprecated_function,
+    warn_deprecated_type,
+    warn_export_all,
+    warn_export_vars,
+    warn_obsolete_guard,
+    warn_untyped_record,
+    warn_unused_import
+    % do NOT include warnings_as_errors, as rebar includes these options
+    % when compiling for eunit, and at least one test module has code that
+    % is deliberatly broken and will generate an un-maskable warning
+}.
+
+{erl_first_files, "src/lager_util.erl"}.
+
+{eunit_opts, verbose}.
+{eunit_compile_opts, 
+    export_all,
+
+    nowarn_untyped_record,
+    nowarn_export_all
+}.
+
+{deps, 
+    {goldrush, "0.1.9"}
+}.
+
+{xref_checks, }.
+{xref_queries, {"(XC - UC) || (XU - X - B - lager_default_tracer : Mod - erlang:\"(is_map|map_size)\"/1 - maps:to_list/1)", }}.
+
+{cover_enabled, true}.
+{edoc_opts, {stylesheet_file, "./priv/edoc.css"}}.

guam-0.9.12.tar.gz/_checkouts/lager/rebar.config.script Added

guam-0.9.12.tar.gz/_checkouts/lager/rebar.lock Added

guam-0.9.12.tar.gz/_checkouts/lager/src Added

guam-0.9.12.tar.gz/_checkouts/lager/src/error_logger_lager_h.erl Added

@@ -0,0 +1,794 @@
+%% Copyright (c) 2011-2015 Basho Technologies, Inc. All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc A error_logger backend for redirecting events into lager.
+%% Error messages and crash logs are also optionally written to a crash log.
+
+%% @see lager_crash_log
+
+%% @private
+
+-module(error_logger_lager_h).
+
+-include("lager.hrl").
+
+-behaviour(gen_event).
+
+-export(set_high_water/1).
+-export(init/1, handle_call/2, handle_event/2, handle_info/2, terminate/2,
+ code_change/3).
+
+-export(format_reason/1, format_mfa/1, format_args/3).
+
+-record(state, {
+ sink :: atom(),
+ shaper :: lager_shaper(),
+ %% group leader strategy
+ groupleader_strategy :: handle | ignore | mirror,
+ raw :: boolean()
+ }).
+
+-define(LOGMSG(Sink, Level, Pid, Msg),
+ case ?SHOULD_LOG(Sink, Level) of
+ true ->
+ _ =lager:log(Sink, Level, Pid, Msg, ),
+ logged;
+ _ -> no_log
+ end).
+
+-define(LOGFMT(Sink, Level, Pid, Fmt, Args),
+ case ?SHOULD_LOG(Sink, Level) of
+ true ->
+ _ = lager:log(Sink, Level, Pid, Fmt, Args),
+ logged;
+ _ -> no_log
+ end).
+
+-ifdef(TEST).
+%% Make CRASH synchronous when testing, to avoid timing headaches
+-define(CRASH_LOG(Event),
+ catch(gen_server:call(lager_crash_log, {log, Event}))).
+-else.
+-define(CRASH_LOG(Event),
+ gen_server:cast(lager_crash_log, {log, Event})).
+-endif.
+
+set_high_water(N) ->
+ gen_event:call(error_logger, ?MODULE, {set_high_water, N}, infinity).
+
+-spec init(any()) -> {ok, #state{}}.
+init(HighWaterMark, GlStrategy) ->
+ Flush = application:get_env(lager, error_logger_flush_queue, true),
+ FlushThr = application:get_env(lager, error_logger_flush_threshold, 0),
+ Shaper = #lager_shaper{hwm=HighWaterMark, flush_queue = Flush, flush_threshold = FlushThr, filter=shaper_fun(), id=?MODULE},
+ Raw = application:get_env(lager, error_logger_format_raw, false),
+ Sink = configured_sink(),
+ {ok, #state{sink=Sink, shaper=Shaper, groupleader_strategy=GlStrategy, raw=Raw}}.
+
+handle_call({set_high_water, N}, #state{shaper=Shaper} = State) ->
+ NewShaper = Shaper#lager_shaper{hwm=N},
+ {ok, ok, State#state{shaper = NewShaper}};
+handle_call(_Request, State) ->
+ {ok, unknown_call, State}.
+
+shaper_fun() ->
+ case {application:get_env(lager, suppress_supervisor_start_stop, false), application:get_env(lager, suppress_application_start_stop, false)} of
+ {false, false} ->
+ fun(_) -> false end;
+ {true, true} ->
+ fun suppress_supervisor_start_and_application_start/1;
+ {false, true} ->
+ fun suppress_application_start/1;
+ {true, false} ->
+ fun suppress_supervisor_start/1
+ end.
+
+suppress_supervisor_start_and_application_start(E) ->
+ suppress_supervisor_start(E) orelse suppress_application_start(E).
+
+suppress_application_start({info_report, _GL, {_Pid, std_info, D}}) when is_list(D) ->
+ lists:member({exited, stopped}, D);
+suppress_application_start({info_report, _GL, {_P, progress, D}}) ->
+ lists:keymember(application, 1, D) andalso lists:keymember(started_at, 1, D);
+suppress_application_start(_) ->
+ false.
+
+suppress_supervisor_start({info_report, _GL, {_P, progress, D}}) ->
+ lists:keymember(started, 1, D) andalso lists:keymember(supervisor, 1, D);
+suppress_supervisor_start(_) ->
+ false.
+
+handle_event(Event, #state{sink=Sink, shaper=Shaper} = State) ->
+ case lager_util:check_hwm(Shaper, Event) of
+ {true, 0, NewShaper} ->
+ eval_gl(Event, State#state{shaper=NewShaper});
+ {true, Drop, #lager_shaper{hwm=Hwm} = NewShaper} when Drop > 0 ->
+ ?LOGFMT(Sink, warning, self(),
+ "lager_error_logger_h dropped ~p messages in the last second that exceeded the limit of ~p messages/sec",
+ Drop, Hwm),
+ eval_gl(Event, State#state{shaper=NewShaper});
+ {false, _, #lager_shaper{dropped=D} = NewShaper} ->
+ {ok, State#state{shaper=NewShaper#lager_shaper{dropped=D+1}}}
+ end.
+
+handle_info({shaper_expired, ?MODULE}, #state{sink=Sink, shaper=Shaper} = State) ->
+ case Shaper#lager_shaper.dropped of
+ 0 ->
+ ok;
+ Dropped ->
+ ?LOGFMT(Sink, warning, self(),
+ "lager_error_logger_h dropped ~p messages in the last second that exceeded the limit of ~p messages/sec",
+ Dropped, Shaper#lager_shaper.hwm)
+ end,
+ {ok, State#state{shaper=Shaper#lager_shaper{dropped=0, mps=0, lasttime=os:timestamp()}}};
+handle_info(_Info, State) ->
+ {ok, State}.
+
+terminate(_Reason, _State) ->
+ ok.
+
+
+code_change(_OldVsn, {state, Shaper, GLStrategy}, _Extra) ->
+ Raw = application:get_env(lager, error_logger_format_raw, false),
+ {ok, #state{
+ sink=configured_sink(),
+ shaper=Shaper,
+ groupleader_strategy=GLStrategy,
+ raw=Raw
+ }};
+code_change(_OldVsn, {state, Sink, Shaper, GLS}, _Extra) ->
+ Raw = application:get_env(lager, error_logger_format_raw, false),
+ {ok, #state{sink=Sink, shaper=Shaper, groupleader_strategy=GLS, raw=Raw}};
+code_change(_OldVsn, State, _Extra) ->
+ {ok, State}.
+
+%% internal functions
+
+configured_sink() ->
+ case proplists:get_value(?ERROR_LOGGER_SINK, application:get_env(lager, extra_sinks, )) of
+ undefined -> ?DEFAULT_SINK;
+ _ -> ?ERROR_LOGGER_SINK
+ end.
+
+eval_gl(Event, #state{groupleader_strategy=GlStrategy0}=State) when is_pid(element(2, Event)) ->
+ case element(2, Event) of
+ GL when node(GL) =/= node(), GlStrategy0 =:= ignore ->
+ gen_event:notify({error_logger, node(GL)}, Event),
+ {ok, State};
+ GL when node(GL) =/= node(), GlStrategy0 =:= mirror ->
+ gen_event:notify({error_logger, node(GL)}, Event),
+ log_event(Event, State);
+ _ ->
+ log_event(Event, State)
+ end;
+eval_gl(Event, State) ->
+ log_event(Event, State).
+
+log_event(Event, #state{sink=Sink} = State) ->
+ DidLog = case Event of
+ {error, _GL, {Pid, Fmt, Args}} ->
+ FormatRaw = State#state.raw,
+ case {FormatRaw, Fmt} of
+ {false, "** Generic server "++_} ->
+ %% gen_server terminate
+ {Reason, Name} = case Args of
+ N, _Msg, _State, R ->
+ {R, N};
+ N, _Msg, _State, R, _Client ->
+ %% OTP 20 crash reports where the client pid is dead don't include the stacktrace
+ {R, N};
+ N, _Msg, _State, R, _Client, _Stacktrace ->
+ %% OTP 20 crash reports contain the pid of the client and stacktrace
+ %% TODO do something with them
+ {R, N}
+ end,
+ ?CRASH_LOG(Event),
+ {Md, Formatted} = format_reason_md(Reason),
+ ?LOGFMT(Sink, error, {pid, Pid}, {name, Name} | Md, "gen_server ~w terminated with reason: ~s",
+ Name, Formatted);
+ {false, "** State machine "++_} ->
+ %% Check if the terminated process is gen_fsm or gen_statem
+ %% since they generate the same exit message
+ {Type, Name, StateName, Reason} = case Args of
+ TName, _Msg, TStateName, _StateData, TReason ->
+ {gen_fsm, TName, TStateName, TReason};
+ %% Handle changed logging in gen_fsm stdlib-3.9 (TPid, ClientArgs)
+ TName, _Msg, TPid, TStateName, _StateData, TReason | _ClientArgs when is_pid(TPid), is_atom(TStateName) ->
+ {gen_fsm, TName, TStateName, TReason};
+ %% Handle changed logging in gen_statem stdlib-3.9 (ClientArgs)
+ TName, _Msg, {TStateName, _StateData}, _ExitType, TReason, _CallbackMode, Stacktrace | _ClientArgs ->
+ {gen_statem, TName, TStateName, {TReason, Stacktrace}};
+ %% Handle changed logging in gen_statem stdlib-3.9 (ClientArgs)
+ TName, {TStateName, _StateData}, _ExitType, TReason, _CallbackMode, Stacktrace | _ClientArgs ->
+ {gen_statem, TName, TStateName, {TReason, Stacktrace}};
+ TName, _Msg, {TStateName, _StateData}, _ExitType, TReason, _CallbackMode, Stacktrace | _ClientArgs ->
+ %% sometimes gen_statem wraps its statename/data in a list for some reason???
+ {gen_statem, TName, TStateName, {TReason, Stacktrace}}
+ end,
+ {Md, Formatted} = format_reason_md(Reason),
+ ?CRASH_LOG(Event),
+ ?LOGFMT(Sink, error, {pid, Pid}, {name, Name} | Md, "~s ~w in state ~w terminated with reason: ~s",
+ Type, Name, StateName, Formatted);
+ {false, "** gen_event handler"++_} ->
+ %% gen_event handler terminate
+ ID, Name, _Msg, _State, Reason = Args,
+ {Md, Formatted} = format_reason_md(Reason),
+ ?CRASH_LOG(Event),
+ ?LOGFMT(Sink, error, {pid, Pid}, {name, Name} | Md, "gen_event ~w installed in ~w terminated with reason: ~s",
+ ID, Name, Formatted);
+ {false, "** Cowboy handler"++_} ->
+ %% Cowboy HTTP server error
+ ?CRASH_LOG(Event),
+ case Args of
+ Module, Function, Arity, _Request, _State ->
+ %% we only get the 5-element list when its a non-exported function
+ ?LOGFMT(Sink, error, Pid,
+ "Cowboy handler ~p terminated with reason: call to undefined function ~p:~p/~p",
+ Module, Module, Function, Arity);
+ Module, Function, Arity, _Class, Reason | Tail ->
+ %% any other cowboy error_format list *always* ends with the stacktrace
+ StackTrace = lists:last(Tail),
+ {Md, Formatted} = format_reason_md({Reason, StackTrace}),
+ ?LOGFMT(Sink, error, {pid, Pid} | Md,
+ "Cowboy handler ~p terminated in ~p:~p/~p with reason: ~s",
+ Module, Module, Function, Arity, Formatted)
+ end;
+ {false, "Ranch listener "++_} ->
+ %% Ranch errors
+ ?CRASH_LOG(Event),
+ case Args of
+ %% Error logged by cowboy, which starts as ranch error
+ Ref, ConnectionPid, StreamID, RequestPid, Reason, StackTrace ->
+ {Md, Formatted} = format_reason_md({Reason, StackTrace}),
+ ?LOGFMT(Sink, error, {pid, RequestPid} | Md,
+ "Cowboy stream ~p with ranch listener ~p and connection process ~p "
+ "had its request process exit with reason: ~s",
+ StreamID, Ref, ConnectionPid, Formatted);
+ Ref, _Protocol, Worker, {{reason, Reason}, {mfa, {Module, Function, Arity}}, {stacktrace, StackTrace} | _, _} ->
+ {Md, Formatted} = format_reason_md({Reason, StackTrace}),
+ ?LOGFMT(Sink, error, {pid, Worker} | Md,
+ "Ranch listener ~p terminated in ~p:~p/~p with reason: ~s",
+ Ref, Module, Function, Arity, Formatted);
+ Ref, _Protocol, Worker, Reason ->
+ {Md, Formatted} = format_reason_md(Reason),
+ ?LOGFMT(Sink, error, {pid, Worker} | Md,
+ "Ranch listener ~p terminated with reason: ~s",
+ Ref, Formatted);
+ Ref, Protocol, Ret ->
+ %% ranch_conns_sup.erl module line 119-123 has three parameters error msg, log it.
+ {Md, Formatted} = format_reason_md(Ret),
+ ?LOGFMT(Sink, error, {pid, Protocol} | Md,
+ "Ranch listener ~p terminated with result:~s",
+ Ref, Formatted)
+ end;
+ {false, "webmachine error"++_} ->
+ %% Webmachine HTTP server error
+ ?CRASH_LOG(Event),
+ Path, Error = Args,
+ %% webmachine likes to mangle the stack, for some reason
+ StackTrace = case Error of
+ {error, {error, Reason, Stack}} ->
+ {Reason, Stack};
+ _ ->
+ Error
+ end,
+ {Md, Formatted} = format_reason_md(StackTrace),
+ ?LOGFMT(Sink, error, {pid, Pid} | Md, "Webmachine error at path ~p : ~s", Path, Formatted);
+ _ ->
+ ?CRASH_LOG(Event),
+ ?LOGFMT(Sink, error, Pid, Fmt, Args)
+ end;
+ {error_report, _GL, {Pid, std_error, D}} ->
+ ?CRASH_LOG(Event),
+ ?LOGMSG(Sink, error, Pid, print_silly_list(D));
+ {error_report, _GL, {Pid, supervisor_report, D}} ->
+ ?CRASH_LOG(Event),
+ case lists:sort(D) of
+ {errorContext, Ctx}, {offender, Off}, {reason, Reason}, {supervisor, Name} ->
+ Offender = format_offender(Off),
+ {Md, Formatted} = format_reason_md(Reason),
+ ?LOGFMT(Sink, error, {pid, Pid} | Md,
+ "Supervisor ~w had child ~s exit with reason ~s in context ~w",
+ supervisor_name(Name), Offender, Formatted, Ctx);
+ _ ->
+ ?LOGMSG(Sink, error, Pid, "SUPERVISOR REPORT " ++ print_silly_list(D))
+ end;
+ {error_report, _GL, {Pid, crash_report, Self, Neighbours}} ->
+ ?CRASH_LOG(Event),
+ {Md, Formatted} = format_crash_report(Self, Neighbours),
+ ?LOGMSG(Sink, error, {pid, Pid} | Md, "CRASH REPORT " ++ Formatted);
+ {warning_msg, _GL, {Pid, Fmt, Args}} ->
+ ?LOGFMT(Sink, warning, Pid, Fmt, Args);
+ {warning_report, _GL, {Pid, std_warning, Report}} ->
+ ?LOGMSG(Sink, warning, Pid, print_silly_list(Report));
+ {info_msg, _GL, {Pid, Fmt, Args}} ->
+ ?LOGFMT(Sink, info, Pid, Fmt, Args);
+ {info_report, _GL, {Pid, std_info, D}} when is_list(D) ->
+ Details = lists:sort(D),
+ case Details of
+ {application, App}, {exited, Reason}, {type, _Type} ->
+ case application:get_env(lager, suppress_application_start_stop, false) of
+ true when Reason == stopped ->
+ no_log;
+ _ ->
+ {Md, Formatted} = format_reason_md(Reason),
+ ?LOGFMT(Sink, info, {pid, Pid} | Md, "Application ~w exited with reason: ~s",
+ App, Formatted)
+ end;
+ _ ->
+ ?LOGMSG(Sink, info, Pid, print_silly_list(D))
+ end;
+ {info_report, _GL, {Pid, std_info, D}} ->
+ ?LOGFMT(Sink, info, Pid, "~w", D);
+ {info_report, _GL, {P, progress, D}} ->
+ Details = lists:sort(D),
+ case Details of
+ {application, App}, {started_at, Node} ->
+ case application:get_env(lager, suppress_application_start_stop, false) of
+ true ->
+ no_log;
+ _ ->
+ ?LOGFMT(Sink, info, P, "Application ~w started on node ~w",
+ App, Node)
+ end;
+ {started, Started}, {supervisor, Name} ->
+ case application:get_env(lager, suppress_supervisor_start_stop, false) of
+ true ->
+ no_log;
+ _ ->
+ MFA = format_mfa(get_value(mfargs, Started)),
+ Pid = get_value(pid, Started),
+ ?LOGFMT(Sink, debug, P, "Supervisor ~w started ~s at pid ~w",
+ supervisor_name(Name), MFA, Pid)
+ end;
+ _ ->
+ ?LOGMSG(Sink, info, P, "PROGRESS REPORT " ++ print_silly_list(D))
+ end;
+ _ ->
+ ?LOGFMT(Sink, warning, self(), "Unexpected error_logger event ~w", Event)
+ end,
+ case DidLog of
+ logged ->
+ {ok, State};
+ no_log ->
+ Shaper = State#state.shaper,
+ {ok, State#state{
+ shaper = Shaper#lager_shaper{
+ mps = Shaper#lager_shaper.mps - 1
+ }
+ }
+ }
+ end.
+
+format_crash_report(Report, Neighbours) ->
+ Name = case get_value(registered_name, Report, ) of
+ ->
+ %% process_info(Pid, registered_name) returns for unregistered processes
+ get_value(pid, Report);
+ Atom -> Atom
+ end,
+ Md0 = case get_value(dictionary, Report, ) of
+ ->
+ %% process_info(Pid, registered_name) returns for unregistered processes
+ ;
+ Dict ->
+ %% pull the lager metadata out of the process dictionary, if we can
+ get_value('_lager_metadata', Dict, )
+ end,
+
+ {Class, Reason, Trace} = get_value(error_info, Report),
+ {Md, ReasonStr} = format_reason_md({Reason, Trace}),
+ Type = case Class of
+ exit -> "exited";
+ _ -> "crashed"
+ end,
+ {Md0 ++ Md, io_lib:format("Process ~w with ~w neighbours ~s with reason: ~s",
+ Name, length(Neighbours), Type, ReasonStr)}.
+
+format_offender(Off) ->
+ case get_value(mfargs, Off) of
+ undefined ->
+ %% supervisor_bridge
+ io_lib:format("at module ~w at ~w",
+ get_value(mod, Off), get_value(pid, Off));
+ MFArgs ->
+ %% regular supervisor
+ {_, MFA} = format_mfa_md(MFArgs),
+
+ %% In 2014 the error report changed from `name' to
+ %% `id', so try that first.
+ Name = case get_value(id, Off) of
+ undefined ->
+ get_value(name, Off);
+ Id ->
+ Id
+ end,
+ io_lib:format("~p started with ~s at ~w",
+ Name, MFA, get_value(pid, Off))
+ end.
+
+%% backwards compatability shim
+format_reason(Reason) ->
+ element(2, format_reason_md(Reason)).
+
+-spec format_reason_md(Stacktrace:: any()) -> {Metadata:: {atom(), any()}, String :: list()}.
+format_reason_md({'function not exported', {M, F, A},MFA|_}) ->
+ {Md, Formatted} = format_mfa_md(MFA),
+ {_, Formatted2} = format_mfa_md({M, F, length(A)}),
+ {{reason, 'function not exported'} | Md,
+ "call to undefined function ", Formatted2,
+ " from ", Formatted};
+format_reason_md({'function not exported', {M, F, A, _Props},MFA|_}) ->
+ %% R15 line numbers
+ {Md, Formatted} = format_mfa_md(MFA),
+ {_, Formatted2} = format_mfa_md({M, F, length(A)}),
+ {{reason, 'function not exported'} | Md,
+ "call to undefined function ", Formatted2,
+ " from ", Formatted};
+format_reason_md({undef, MFA|_}) ->
+ {Md, Formatted} = format_mfa_md(MFA),
+ {{reason, undef} | Md,
+ "call to undefined function ", Formatted};
+format_reason_md({bad_return, {_MFA, {'EXIT', Reason}}}) ->
+ format_reason_md(Reason);
+format_reason_md({bad_return, {MFA, Val}}) ->
+ {Md, Formatted} = format_mfa_md(MFA),
+ {{reason, bad_return} | Md,
+ "bad return value ", print_val(Val), " from ", Formatted};
+format_reason_md({bad_return_value, Val}) ->
+ {{reason, bad_return},
+ "bad return value: ", print_val(Val)};
+format_reason_md({{bad_return_value, Val}, MFA}) ->
+ {Md, Formatted} = format_mfa_md(MFA),
+ {{reason, bad_return_value} | Md,
+ "bad return value: ", print_val(Val), " in ", Formatted};
+format_reason_md({{badrecord, Record}, MFA|_}) ->
+ {Md, Formatted} = format_mfa_md(MFA),
+ {{reason, badrecord} | Md,
+ "bad record ", print_val(Record), " in ", Formatted};
+format_reason_md({{case_clause, Val}, MFA|_}) ->
+ {Md, Formatted} = format_mfa_md(MFA),
+ {{reason, case_clause} | Md,
+ "no case clause matching ", print_val(Val), " in ", Formatted};
+format_reason_md({function_clause, MFA|_}) ->
+ {Md, Formatted} = format_mfa_md(MFA),
+ {{reason, function_clause} | Md,
+ "no function clause matching ", Formatted};
+format_reason_md({if_clause, MFA|_}) ->
+ {Md, Formatted} = format_mfa_md(MFA),
+ {{reason, if_clause} | Md,
+ "no true branch found while evaluating if expression in ", Formatted};
+format_reason_md({{try_clause, Val}, MFA|_}) ->
+ {Md, Formatted} = format_mfa_md(MFA),
+ {{reason, try_clause} | Md,
+ "no try clause matching ", print_val(Val), " in ", Formatted};
+format_reason_md({badarith, MFA|_}) ->
+ {Md, Formatted} = format_mfa_md(MFA),
+ {{reason, badarith} | Md,
+ "bad arithmetic expression in ", Formatted};
+format_reason_md({{badmatch, Val}, MFA|_}) ->
+ {Md, Formatted} = format_mfa_md(MFA),
+ {{reason, badmatch} | Md,
+ "no match of right hand value ", print_val(Val), " in ", Formatted};
+format_reason_md({emfile, _Trace}) ->
+ {{reason, emfile},
+ "maximum number of file descriptors exhausted, check ulimit -n"};
+format_reason_md({system_limit, {M, F, _}|_ = Trace}) ->
+ Limit = case {M, F} of
+ {erlang, open_port} ->
+ "maximum number of ports exceeded";
+ {erlang, spawn} ->
+ "maximum number of processes exceeded";
+ {erlang, spawn_opt} ->
+ "maximum number of processes exceeded";
+ {erlang, list_to_atom} ->
+ "tried to create an atom larger than 255, or maximum atom count exceeded";
+ {ets, new} ->
+ "maximum number of ETS tables exceeded";
+ _ ->
+ {Str, _} = lager_trunc_io:print(Trace, 500),
+ Str
+ end,
+ {{reason, system_limit}, "system limit: ", Limit};
+format_reason_md({badarg, MFA,MFA2|_}) ->
+ case MFA of
+ {_M, _F, A, _Props} when is_list(A) ->
+ %% R15 line numbers
+ {Md, Formatted} = format_mfa_md(MFA2),
+ {_, Formatted2} = format_mfa_md(MFA),
+ {{reason, badarg} | Md,
+ "bad argument in call to ", Formatted2, " in ", Formatted};
+ {_M, _F, A} when is_list(A) ->
+ {Md, Formatted} = format_mfa_md(MFA2),
+ {_, Formatted2} = format_mfa_md(MFA),
+ {{reason, badarg} | Md,
+ "bad argument in call to ", Formatted2, " in ", Formatted};
+ _ ->
+ %% seems to be generated by a bad call to a BIF
+ {Md, Formatted} = format_mfa_md(MFA),
+ {{reason, badarg} | Md,
+ "bad argument in ", Formatted}
+ end;
+format_reason_md({{badarg, Stack}, _}) ->
+ format_reason_md({badarg, Stack});
+format_reason_md({{badarity, {Fun, Args}}, MFA|_}) ->
+ {arity, Arity} = lists:keyfind(arity, 1, erlang:fun_info(Fun)),
+ {Md, Formatted} = format_mfa_md(MFA),
+ {{reason, badarity} | Md,
+ io_lib:format("fun called with wrong arity of ~w instead of ~w in ",
+ length(Args), Arity), Formatted};
+format_reason_md({noproc, MFA}) ->
+ {Md, Formatted} = format_mfa_md(MFA),
+ {{reason, noproc} | Md,
+ "no such process or port in call to ", Formatted};
+format_reason_md({{badfun, Term}, MFA|_}) ->
+ {Md, Formatted} = format_mfa_md(MFA),
+ {{reason, badfun} | Md,
+ "bad function ", print_val(Term), " in ", Formatted};
+format_reason_md({Reason, {M, F, A}|_}) when is_atom(M), is_atom(F), is_integer(A) ->
+ {Md, Formatted} = format_reason_md(Reason),
+ {_, Formatted2} = format_mfa_md({M, F, A}),
+ {Md, Formatted, " in ", Formatted2};
+format_reason_md({Reason, {M, F, A, Props}|_}) when is_atom(M), is_atom(F), is_integer(A), is_list(Props) ->
+ %% line numbers
+ {Md, Formatted} = format_reason_md(Reason),
+ {_, Formatted2} = format_mfa_md({M, F, A, Props}),
+ {Md, Formatted, " in ", Formatted2};
+format_reason_md(Reason) ->
+ {Str, _} = lager_trunc_io:print(Reason, 500),
+ {, Str}.
+
+%% backwards compatability shim
+format_mfa(MFA) ->
+ element(2, format_mfa_md(MFA)).
+
+-spec format_mfa_md(any()) -> {{atom(), any()}, list()}.
+format_mfa_md({M, F, A}) when is_list(A) ->
+ {FmtStr, Args} = format_args(A, , ),
+ {{module, M}, {function, F}, io_lib:format("~w:~w("++FmtStr++")", M, F | Args)};
+format_mfa_md({M, F, A}) when is_integer(A) ->
+ {{module, M}, {function, F}, io_lib:format("~w:~w/~w", M, F, A)};
+format_mfa_md({M, F, A, Props}) when is_list(Props) ->
+ case get_value(line, Props) of
+ undefined ->
+ format_mfa_md({M, F, A});
+ Line ->
+ {Md, Formatted} = format_mfa_md({M, F, A}),
+ {{line, Line} | Md, Formatted, io_lib:format(" line ~w", Line)}
+ end;
+format_mfa_md({M, F, A}| _) ->
+ %% this kind of weird stacktrace can be generated by a uncaught throw in a gen_server
+ format_mfa_md({M, F, A});
+format_mfa_md({M, F, A, Props}| _) when is_list(Props) ->
+ %% this kind of weird stacktrace can be generated by a uncaught throw in a gen_server
+ %% TODO we might not always want to print the first MFA we see here, often it is more helpful
+ %% to print a lower one, but it is hard to programatically decide.
+ format_mfa_md({M, F, A, Props});
+format_mfa_md(Other) ->
+ {, io_lib:format("~w", Other)}.
+
+format_args(, FmtAcc, ArgsAcc) ->
+ {string:join(lists:reverse(FmtAcc), ", "), lists:reverse(ArgsAcc)};
+format_args(H|T, FmtAcc, ArgsAcc) ->
+ {Str, _} = lager_trunc_io:print(H, 100),
+ format_args(T, "~s"|FmtAcc, Str|ArgsAcc).
+
+print_silly_list(L) when is_list(L) ->
+ case lager_stdlib:string_p(L) of
+ true ->
+ lager_trunc_io:format("~s", L, ?DEFAULT_TRUNCATION);
+ _ ->
+ print_silly_list(L, , )
+ end;
+print_silly_list(L) ->
+ {Str, _} = lager_trunc_io:print(L, ?DEFAULT_TRUNCATION),
+ Str.
+
+print_silly_list(, Fmt, Acc) ->
+ lager_trunc_io:format(string:join(lists:reverse(Fmt), ", "),
+ lists:reverse(Acc), ?DEFAULT_TRUNCATION);
+print_silly_list({K,V}|T, Fmt, Acc) ->
+ print_silly_list(T, "~p: ~p" | Fmt, V, K | Acc);
+print_silly_list(H|T, Fmt, Acc) ->
+ print_silly_list(T, "~p" | Fmt, H | Acc).
+
+print_val(Val) ->
+ {Str, _} = lager_trunc_io:print(Val, 500),
+ Str.
+
+
+%% @doc Faster than proplists, but with the same API as long as you don't need to
+%% handle bare atom keys
+get_value(Key, Value) ->
+ get_value(Key, Value, undefined).
+
+get_value(Key, List, Default) ->
+ case lists:keyfind(Key, 1, List) of
+ false -> Default;
+ {Key, Value} -> Value
+ end.
+
+supervisor_name({local, Name}) -> Name;
+supervisor_name(Name) -> Name.
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+
+no_silent_hwm_drops_test_() ->
+ {timeout, 10000,
+ 
+ fun() ->
+ error_logger:tty(false),
+ application:load(lager),
+ application:set_env(lager, handlers, {lager_test_backend, warning}),
+ application:set_env(lager, error_logger_redirect, true),
+ application:set_env(lager, error_logger_hwm, 5),
+ application:set_env(lager, error_logger_flush_queue, false),
+ application:set_env(lager, suppress_supervisor_start_stop, true),
+ application:set_env(lager, suppress_application_start_stop, true),
+ application:unset_env(lager, crash_log),
+ lager:start(),
+ try
+ {_, _, MS} = os:timestamp(),
+ timer:sleep((1000000 - MS) div 1000 + 1),
+ % start close to the beginning of a new second
+ error_logger:error_msg("Foo ~p~n", K) || K <- lists:seq(1, 15),
+ wait_for_message("lager_error_logger_h dropped 10 messages in the last second that exceeded the limit of 5 messages/sec", 100, 50),
+ % and once again
+ error_logger:error_msg("Foo1 ~p~n", K) || K <- lists:seq(1, 20),
+ wait_for_message("lager_error_logger_h dropped 15 messages in the last second that exceeded the limit of 5 messages/sec", 100, 50)
+ after
+ application:stop(lager),
+ application:stop(goldrush),
+ error_logger:tty(true)
+ end
+ end
+ 
+ }.
+
+shaper_does_not_forward_sup_progress_messages_to_info_level_backend_test_() ->
+ {timeout, 10000,
+ fun() ->
+ error_logger:tty(false),
+ application:load(lager),
+ application:set_env(lager, handlers, {lager_test_backend, info}),
+ application:set_env(lager, error_logger_redirect, true),
+ application:set_env(lager, error_logger_hwm, 5),
+ application:set_env(lager, suppress_supervisor_start_stop, false),
+ application:set_env(lager, suppress_application_start_stop, false),
+ application:unset_env(lager, crash_log),
+ lager:start(),
+ try
+ PidPlaceholder = self(),
+ SupervisorMsg =
+ {supervisor, {PidPlaceholder,rabbit_connection_sup}},
+ {started,
+ {pid, PidPlaceholder},
+ {name,helper_sup},
+ {mfargs,
+ {rabbit_connection_helper_sup,start_link,}},
+ {restart_type,intrinsic},
+ {shutdown,infinity},
+ {child_type,supervisor}},
+ ApplicationExit =
+ {application, error_logger_lager_h_test},
+ {exited, stopped},
+ {type, permanent},
+
+ error_logger:info_report("This is not a progress message"),
+ error_logger:info_report(ApplicationExit),
+ error_logger:info_report(progress, SupervisorMsg) || _K <- lists:seq(0, 100),
+ error_logger:info_report("This is not a progress message 2"),
+
+ % Note: this gets logged in slow environments:
+ % Application lager started on node nonode@nohost
+ wait_for_count(fun lager_test_backend:count/0, 3, 4, 100, 50),
+ % Note: this debug msg gets ignored in slow environments:
+ % Lager installed handler lager_test_backend into lager_event
+ wait_for_count(fun lager_test_backend:count_ignored/0, 0, 1, 100, 50)
+ after
+ application:stop(lager),
+ application:stop(goldrush),
+ error_logger:tty(true)
+ end
+ end
+ 
+ }.
+
+supressed_messages_are_not_counted_for_hwm_test_() ->
+ {timeout, 10000,
+ fun() ->
+ error_logger:tty(false),
+ application:load(lager),
+ application:set_env(lager, handlers, {lager_test_backend, debug}),
+ application:set_env(lager, error_logger_redirect, true),
+ application:set_env(lager, error_logger_hwm, 5),
+ application:set_env(lager, suppress_supervisor_start_stop, true),
+ application:set_env(lager, suppress_application_start_stop, true),
+ application:unset_env(lager, crash_log),
+ lager:start(),
+ try
+ PidPlaceholder = self(),
+ SupervisorMsg =
+ {supervisor, {PidPlaceholder,rabbit_connection_sup}},
+ {started,
+ {pid, PidPlaceholder},
+ {name,helper_sup},
+ {mfargs,
+ {rabbit_connection_helper_sup,start_link,}},
+ {restart_type,intrinsic},
+ {shutdown,infinity},
+ {child_type,supervisor}},
+ ApplicationExit =
+ {application, error_logger_lager_h_test},
+ {exited, stopped},
+ {type, permanent},
+
+ lager_test_backend:flush(),
+ error_logger:info_report("This is not a progress message"),
+ error_logger:info_report(ApplicationExit) || _K <- lists:seq(0, 100),
+ error_logger:info_report(progress, SupervisorMsg) || _K <- lists:seq(0, 100),
+ error_logger:info_report("This is not a progress message 2"),
+
+ wait_for_count(fun lager_test_backend:count/0, 2, 100, 50),
+ wait_for_count(fun lager_test_backend:count_ignored/0, 0, 100, 50)
+ after
+ application:stop(lager),
+ application:stop(goldrush),
+ error_logger:tty(true)
+ end
+ end
+ 
+ }.
+
+wait_for_message(Expected, Tries, Sleep) ->
+ maybe_find_expected_message(lager_test_backend:get_buffer(), Expected, Tries, Sleep).
+
+maybe_find_expected_message(_Buffer, Expected, 0, _Sleep) ->
+ throw({not_found, Expected});
+maybe_find_expected_message(, Expected, Tries, Sleep) ->
+ timer:sleep(Sleep),
+ maybe_find_expected_message(lager_test_backend:get_buffer(), Expected, Tries - 1, Sleep);
+maybe_find_expected_message({_Severity, _Date, Msg, _Metadata}|T, Expected, Tries, Sleep) ->
+ case lists:flatten(Msg) of
+ Expected ->
+ ok;
+ _ ->
+ maybe_find_expected_message(T, Expected, Tries, Sleep)
+ end.
+
+wait_for_count(Fun, _Expected, 0, _Sleep) ->
+ Actual = Fun(),
+ Msg = io_lib:format("wait_for_count: fun ~p final value: ~p~n", Fun, Actual),
+ throw({failed, Msg});
+wait_for_count(Fun, Expected, Tries, Sleep) when is_list(Expected) ->
+ Actual = Fun(),
+ case lists:member(Actual, Expected) of
+ true ->
+ ok;
+ false ->
+ timer:sleep(Sleep),
+ wait_for_count(Fun, Expected, Tries - 1, Sleep)
+ end;
+wait_for_count(Fun, Expected, Tries, Sleep) ->
+ case Fun() of
+ Expected ->
+ ok;
+ _ ->
+ timer:sleep(Sleep),
+ wait_for_count(Fun, Expected, Tries - 1, Sleep)
+ end.
+-endif.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager.app.src Added

@@ -0,0 +1,30 @@
+{application,lager,
+             {description,"Erlang logging framework"},
+              {vsn,"3.9.2"},
+              {modules,},
+              {applications,kernel,stdlib,goldrush},
+              {registered,lager_sup,lager_event,lager_crash_log,
+                           lager_handler_watcher_sup},
+              {mod,{lager_app,}},
+              {env,{colored,false},
+                    {colors,{debug,"\e0;38m"},
+                             {info,"\e1;37m"},
+                             {notice,"\e1;36m"},
+                             {warning,"\e1;33m"},
+                             {error,"\e1;31m"},
+                             {critical,"\e1;35m"},
+                             {alert,"\e1;44m"},
+                             {emergency,"\e1;41m"}},
+                    {log_root,"log"},
+                    {crash_log,"crash.log"},
+                    {crash_log_msg_size,65536},
+                    {crash_log_size,10485760},
+                    {crash_log_date,"$D0"},
+                    {crash_log_count,5},
+                    {crash_log_rotator,lager_rotator_default},
+                    {error_logger_redirect,true},
+                    {error_logger_hwm,50},
+                    {async_threshold,20},
+                    {async_threshold_window,5}},
+              {licenses,"Apache 2"},
+              {links,{"Github","https://github.com/erlang-lager/lager"}}}.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager.erl Added

@@ -0,0 +1,746 @@
+%% Copyright (c) 2011-2012 Basho Technologies, Inc. All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc The lager logging framework.
+
+-module(lager).
+
+-include("lager.hrl").
+
+-define(LAGER_MD_KEY, '__lager_metadata').
+-define(TRACE_SINK, '__trace_sink').
+-define(ROTATE_TIMEOUT, 100000).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+
+%% API
+-export(start/0,
+ log/3, log/4, log/5,
+ log_unsafe/4,
+ md/0, md/1,
+ rotate_handler/1, rotate_handler/2, rotate_sink/1, rotate_all/0,
+ trace/2, trace/3, trace_file/2, trace_file/3, trace_file/4, trace_console/1, trace_console/2,
+ install_trace/2, install_trace/3, remove_trace/1, trace_state/3, trace_func/3,
+ list_all_sinks/0, clear_all_traces/0, clear_trace_by_destination/1, stop_trace/1, stop_trace/3, status/0,
+ get_loglevel/1, get_loglevel/2, set_loglevel/2, set_loglevel/3, set_loglevel/4, get_loglevels/1,
+ update_loglevel_config/1, posix_error/1, set_loghwm/2, set_loghwm/3, set_loghwm/4,
+ safe_format/3, safe_format_chop/3, unsafe_format/2, dispatch_log/5, dispatch_log/7, dispatch_log/9,
+ do_log/9, do_log/10, do_log_unsafe/10, pr/2, pr/3, pr_stacktrace/1, pr_stacktrace/2).
+
+-type log_level() :: none | debug | info | notice | warning | error | critical | alert | emergency.
+-type log_level_number() :: 0..7.
+
+-export_type(log_level/0, log_level_number/0).
+
+-record(trace_func_state_v1, {
+ pid :: undefined | pid(),
+ level :: log_level(),
+ count :: infinity | pos_integer(),
+ format_string :: string(),
+ timeout :: infinity | pos_integer(),
+ started = os:timestamp() :: erlang:timestamp() %% use os:timestamp for compatability
+ }).
+
+%% API
+
+%% @doc installs a lager trace handler into the target process (using sys:install) at the specified level.
+-spec install_trace(pid(), log_level()) -> ok.
+install_trace(Pid, Level) ->
+ install_trace(Pid, Level, ).
+
+-spec install_trace(pid(), log_level(), {count, infinity | pos_integer()} | {format_string, string()} | {timeout, timeout()}) -> ok.
+install_trace(Pid, Level, Options) ->
+ sys:install(Pid, {fun ?MODULE:trace_func/3, trace_state(Pid, Level, Options)}).
+
+%% @doc remove a previously installed lager trace handler from the target process.
+-spec remove_trace(pid()) -> ok.
+remove_trace(Pid) ->
+ sys:remove(Pid, fun ?MODULE:trace_func/3).
+
+%% @doc Start the application. Mainly useful for using `-s lager' as a command
+%% line switch to the VM to make lager start on boot.
+start() -> start(lager).
+
+start(App) ->
+ start_ok(App, application:start(App, permanent)).
+
+start_ok(_App, ok) -> ok;
+start_ok(App, {error, {already_started, App}}) -> ok;
+start_ok(App, {error, {not_started, Dep}}) ->
+ ok = start(Dep),
+ start(App);
+start_ok(App, {error, Reason}) ->
+ erlang:error({app_start_failed, App, Reason}).
+
+%% @doc Get lager metadata for current process
+-spec md() -> {atom(), any()}.
+md() ->
+ case erlang:get(?LAGER_MD_KEY) of
+ undefined -> ;
+ MD -> MD
+ end.
+
+%% @doc Set lager metadata for current process.
+%% Will badarg if you don't supply a list of {key, value} tuples keyed by atoms.
+-spec md({atom(), any()},...) -> ok.
+md(NewMD) when is_list(NewMD) ->
+ %% make sure its actually a real proplist
+ case lists:all(
+ fun({Key, _Value}) when is_atom(Key) -> true;
+ (_) -> false
+ end, NewMD) of
+ true ->
+ erlang:put(?LAGER_MD_KEY, NewMD),
+ ok;
+ false ->
+ erlang:error(badarg)
+ end;
+md(_) ->
+ erlang:error(badarg).
+
+
+-spec dispatch_log(atom(), log_level(), list(), string(), list() | none, pos_integer(), safe | unsafe) -> ok | {error, lager_not_running} | {error, {sink_not_configured, atom()}}.
+%% this is the same check that the parse transform bakes into the module at compile time
+%% see lager_transform (lines 173-216)
+dispatch_log(Sink, Severity, Metadata, Format, Args, Size, Safety) when is_atom(Severity)->
+ SeverityAsInt=lager_util:level_to_num(Severity),
+ case {whereis(Sink), whereis(?DEFAULT_SINK), lager_config:get({Sink, loglevel}, {?LOG_NONE, })} of
+ {undefined, undefined, _} -> {error, lager_not_running};
+ {undefined, _LagerEventPid0, _} -> {error, {sink_not_configured, Sink}};
+ {SinkPid, _LagerEventPid1, {Level, Traces}} when Safety =:= safe andalso ( (Level band SeverityAsInt) /= 0 orelse Traces /= ) ->
+ do_log(Severity, Metadata, Format, Args, Size, SeverityAsInt, Level, Traces, Sink, SinkPid);
+ {SinkPid, _LagerEventPid1, {Level, Traces}} when Safety =:= unsafe andalso ( (Level band SeverityAsInt) /= 0 orelse Traces /= ) ->
+ do_log_unsafe(Severity, Metadata, Format, Args, Size, SeverityAsInt, Level, Traces, Sink, SinkPid);
+ _ -> ok
+ end.
+
+%% @private Should only be called externally from code generated from the parse transform
+do_log(Severity, Metadata, Format, Args, Size, SeverityAsInt, LevelThreshold, TraceFilters, Sink, SinkPid) when is_atom(Severity) ->
+ FormatFun = fun() -> safe_format_chop(Format, Args, Size) end,
+ do_log_impl(Severity, Metadata, Format, Args, SeverityAsInt, LevelThreshold, TraceFilters, Sink, SinkPid, FormatFun).
+
+do_log_impl(Severity, Metadata, Format, Args, SeverityAsInt, LevelThreshold, TraceFilters, Sink, SinkPid, FormatFun) ->
+ {Destinations, TraceSinkPid} = case TraceFilters of
+ ->
+ {, undefined};
+ _ ->
+ {lager_util:check_traces(Metadata,SeverityAsInt,TraceFilters,), whereis(?TRACE_SINK)}
+ end,
+ case (LevelThreshold band SeverityAsInt) /= 0 orelse Destinations /= of
+ true ->
+ Msg = case Args of
+ A when is_list(A) ->
+ FormatFun();
+ _ ->
+ Format
+ end,
+ LagerMsg = lager_msg:new(Msg,
+ Severity, Metadata, Destinations),
+ case lager_config:get({Sink, async}, false) of
+ true ->
+ gen_event:notify(SinkPid, {log, LagerMsg});
+ false ->
+ gen_event:sync_notify(SinkPid, {log, LagerMsg})
+ end,
+ case TraceSinkPid /= undefined of
+ true ->
+ gen_event:notify(TraceSinkPid, {log, LagerMsg});
+ false ->
+ ok
+ end;
+ false ->
+ ok
+ end.
+
+%% @private Should only be called externally from code generated from the parse transform
+%% Specifically, it would be level ++ `_unsafe' as in `info_unsafe'.
+do_log_unsafe(Severity, Metadata, Format, Args, _Size, SeverityAsInt, LevelThreshold, TraceFilters, Sink, SinkPid) when is_atom(Severity) ->
+ FormatFun = fun() -> unsafe_format(Format, Args) end,
+ do_log_impl(Severity, Metadata, Format, Args, SeverityAsInt, LevelThreshold, TraceFilters, Sink, SinkPid, FormatFun).
+
+
+%% backwards compatible with beams compiled with lager 1.x
+dispatch_log(Severity, _Module, _Function, _Line, _Pid, Metadata, Format, Args, Size) ->
+ dispatch_log(Severity, Metadata, Format, Args, Size).
+
+%% backwards compatible with beams compiled with lager 2.x
+dispatch_log(Severity, Metadata, Format, Args, Size) ->
+ dispatch_log(?DEFAULT_SINK, Severity, Metadata, Format, Args, Size, safe).
+
+%% backwards compatible with beams compiled with lager 2.x
+do_log(Severity, Metadata, Format, Args, Size, SeverityAsInt, LevelThreshold, TraceFilters, SinkPid) ->
+ do_log(Severity, Metadata, Format, Args, Size, SeverityAsInt,
+ LevelThreshold, TraceFilters, ?DEFAULT_SINK, SinkPid).
+
+
+%% TODO:
+%% Consider making log2/4 that takes the Level, Pid and Message params of log/3
+%% along with a Sink param??
+
+%% @doc Manually log a message into lager without using the parse transform.
+-spec log(log_level(), pid() | atom() | tuple(),..., list()) -> ok | {error, lager_not_running}.
+log(Level, Pid, Message) when is_pid(Pid); is_atom(Pid) ->
+ dispatch_log(Level, {pid,Pid}, Message, , ?DEFAULT_TRUNCATION);
+log(Level, Metadata, Message) when is_list(Metadata) ->
+ dispatch_log(Level, Metadata, Message, , ?DEFAULT_TRUNCATION).
+
+%% @doc Manually log a message into lager without using the parse transform.
+-spec log(log_level(), pid() | atom() | tuple(),..., string(), list()) -> ok | {error, lager_not_running}.
+log(Level, Pid, Format, Args) when is_pid(Pid); is_atom(Pid) ->
+ dispatch_log(Level, {pid,Pid}, Format, Args, ?DEFAULT_TRUNCATION);
+log(Level, Metadata, Format, Args) when is_list(Metadata) ->
+ dispatch_log(Level, Metadata, Format, Args, ?DEFAULT_TRUNCATION).
+
+log_unsafe(Level, Metadata, Format, Args) when is_list(Metadata) ->
+ dispatch_log(?DEFAULT_SINK, Level, Metadata, Format, Args, ?DEFAULT_TRUNCATION, unsafe).
+
+
+%% @doc Manually log a message into lager without using the parse transform.
+-spec log(atom(), log_level(), pid() | atom() | tuple(),..., string(), list()) -> ok | {error, lager_not_running}.
+log(Sink, Level, Pid, Format, Args) when is_pid(Pid); is_atom(Pid) ->
+ dispatch_log(Sink, Level, {pid,Pid}, Format, Args, ?DEFAULT_TRUNCATION, safe);
+log(Sink, Level, Metadata, Format, Args) when is_list(Metadata) ->
+ dispatch_log(Sink, Level, Metadata, Format, Args, ?DEFAULT_TRUNCATION, safe).
+
+validate_trace_filters(Filters, Level, Backend) ->
+ Sink = proplists:get_value(sink, Filters, ?DEFAULT_SINK),
+ {Sink,
+ lager_util:validate_trace({
+ proplists:delete(sink, Filters),
+ Level,
+ Backend
+ })
+ }.
+
+trace_file(File, Filter) ->
+ trace_file(File, Filter, debug, ).
+
+trace_file(File, Filter, Level) when is_atom(Level) ->
+ trace_file(File, Filter, Level, );
+
+trace_file(File, Filter, Options) when is_list(Options) ->
+ trace_file(File, Filter, debug, Options).
+
+trace_file(File, Filter, Level, Options) ->
+ FileName = lager_util:expand_path(File),
+ case validate_trace_filters(Filter, Level, {lager_file_backend, FileName}) of
+ {Sink, {ok, Trace}} ->
+ Handlers = lager_config:global_get(handlers, ),
+ %% check if this file backend is already installed
+ Res = case lager_util:find_file(FileName, Handlers) of
+ false ->
+ %% install the handler
+ LogFileConfig =
+ lists:keystore(level, 1,
+ lists:keystore(file, 1,
+ Options,
+ {file, FileName}),
+ {level, none}),
+ HandlerInfo =
+ lager_app:start_handler(Sink, {lager_file_backend, FileName},
+ LogFileConfig),
+ lager_config:global_set(handlers, HandlerInfo|Handlers),
+ {ok, installed};
+ {_Watcher, _Handler, Sink} ->
+ {ok, exists};
+ {_Watcher, _Handler, _OtherSink} ->
+ {error, file_in_use}
+ end,
+ case Res of
+ {ok, _} ->
+ add_trace_to_loglevel_config(Trace, Sink),
+ {ok, {{lager_file_backend, FileName}, Filter, Level}};
+ {error, _} = E ->
+ E
+ end;
+ {_Sink, Error} ->
+ Error
+ end.
+
+trace_console(Filter) ->
+ trace_console(Filter, debug).
+
+trace_console(Filter, Level) ->
+ trace(lager_console_backend, Filter, Level).
+
+trace(Backend, Filter) ->
+ trace(Backend, Filter, debug).
+
+trace({lager_file_backend, File}, Filter, Level) ->
+ trace_file(File, Filter, Level);
+
+trace(Backend, Filter, Level) ->
+ case validate_trace_filters(Filter, Level, Backend) of
+ {Sink, {ok, Trace}} ->
+ add_trace_to_loglevel_config(Trace, Sink),
+ {ok, {Backend, Filter, Level}};
+ {_Sink, Error} ->
+ Error
+ end.
+
+stop_trace(Backend, Filter, Level) ->
+ case validate_trace_filters(Filter, Level, Backend) of
+ {Sink, {ok, Trace}} ->
+ stop_trace_int(Trace, Sink);
+ {_Sink, Error} ->
+ Error
+ end.
+
+stop_trace({Backend, Filter, Level}) ->
+ stop_trace(Backend, Filter, Level).
+
+%% Important: validate_trace_filters orders the arguments of
+%% trace tuples differently than the way outside callers have
+%% the trace tuple.
+%%
+%% That is to say, outside they are represented as 
+%% `{Backend, Filter, Level}'
+%%
+%% and when they come back from validation, they're
+%% `{Filter, Level, Backend}'
+stop_trace_int({_Filter, _Level, Backend} = Trace, Sink) ->
+ {Level, Traces} = lager_config:get({Sink, loglevel}),
+ NewTraces = lists:delete(Trace, Traces),
+ _ = lager_util:trace_filter( element(1, T) || T <- NewTraces ),
+ %MinLevel = minimum_loglevel(get_loglevels() ++ get_trace_levels(NewTraces)),
+ lager_config:set({Sink, loglevel}, {Level, NewTraces}),
+ case get_loglevel(Sink, Backend) of
+ none ->
+ %% check no other traces point here
+ case lists:keyfind(Backend, 3, NewTraces) of
+ false ->
+ gen_event:delete_handler(Sink, Backend, ),
+ lager_config:global_set(handlers,
+ lists:keydelete(Backend, 1,
+ lager_config:global_get(handlers)));
+ _ ->
+ ok
+ end;
+ _ ->
+ ok
+ end,
+ ok.
+
+list_all_sinks() ->
+ sets:to_list(
+ lists:foldl(fun({_Watcher, _Handler, Sink}, Set) ->
+ sets:add_element(Sink, Set)
+ end,
+ sets:new(),
+ lager_config:global_get(handlers, ))).
+
+clear_traces_by_sink(Sinks) ->
+ lists:foreach(fun(S) ->
+ {Level, _Traces} =
+ lager_config:get({S, loglevel}),
+ lager_config:set({S, loglevel},
+ {Level, })
+ end,
+ Sinks).
+
+clear_trace_by_destination(ID) ->
+ Sinks = lists:sort(list_all_sinks()),
+ Traces = find_traces(Sinks),
+ stop_trace_int({Filter, Level, Destination}, Sink) || {Sink, {Filter, Level, Destination}} <- Traces, Destination == ID.
+
+
+clear_all_traces() ->
+ Handlers = lager_config:global_get(handlers, ),
+ clear_traces_by_sink(list_all_sinks()),
+ _ = lager_util:trace_filter(none),
+ lager_config:global_set(handlers,
+ lists:filter(
+ fun({Handler, _Watcher, Sink}) ->
+ case get_loglevel(Sink, Handler) of
+ none ->
+ gen_event:delete_handler(Sink, Handler, ),
+ false;
+ _ ->
+ true
+ end
+ end, Handlers)).
+
+find_traces(Sinks) ->
+ lists:foldl(fun(S, Acc) ->
+ {_Level, Traces} = lager_config:get({S, loglevel}),
+ Acc ++ lists:map(fun(T) -> {S, T} end, Traces)
+ end,
+ ,
+ Sinks).
+
+status() ->
+ Handlers = lager_config:global_get(handlers, ),
+ Sinks = lists:sort(list_all_sinks()),
+ Traces = find_traces(Sinks),
+ TraceCount = case length(Traces) of
+ 0 -> 1;
+ N -> N
+ end,
+ Status = "Lager status:\n",
+ begin
+ Level = get_loglevel(Sink, Handler),
+ get_sink_handler_status(Sink, Handler, Level)
+ end || {Handler, _Watcher, Sink} <- lists:sort(fun({_, _, S1},
+ {_, _, S2}) -> S1 =< S2 end,
+ Handlers),
+ "Active Traces:\n",
+ begin
+ LevelName = case Level of
+ {mask, Mask} ->
+ case lager_util:mask_to_levels(Mask) of
+ -> none;
+ Levels -> hd(Levels)
+ end;
+ Num ->
+ lager_util:num_to_level(Num)
+ end,
+ io_lib:format("Tracing messages matching ~p (sink ~s) at level ~p to ~p\n",
+ Filter, Sink, LevelName, Destination)
+ end || {Sink, {Filter, Level, Destination}} <- Traces,
+ 
+ "Tracing Reductions:\n",
+ case ?DEFAULT_TRACER:info('query') of
+ {null, false} -> "";
+ Query -> io_lib:format("~p~n", Query)
+ end
+ ,
+ 
+ "Tracing Statistics:\n ",
+ begin
+ " ", atom_to_list(Table), ": ",
+ integer_to_list(?DEFAULT_TRACER:info(Table) div TraceCount),
+ "\n"
+ end || Table <- input, output, filter 
+ ,
+ io:put_chars(Status).
+
+get_sink_handler_status(Sink, Handler, Level) ->
+ case Handler of
+ {lager_file_backend, File} ->
+ io_lib:format("File ~ts (~s) at level ~p\n", File, Sink, Level);
+ lager_console_backend ->
+ io_lib:format("Console (~s) at level ~p\n", Sink, Level);
+ _ ->
+ 
+ end.
+
+%% @doc Set the loglevel for a particular backend.
+set_loglevel(Handler, Level) when is_atom(Level) ->
+ set_loglevel(?DEFAULT_SINK, Handler, undefined, Level).
+
+%% @doc Set the loglevel for a particular backend that has multiple identifiers
+%% (eg. the file backend).
+set_loglevel(Handler, Ident, Level) when is_atom(Level) ->
+ set_loglevel(?DEFAULT_SINK, Handler, Ident, Level).
+
+%% @doc Set the loglevel for a particular sink's backend that potentially has
+%% multiple identifiers. (Use `undefined' if it doesn't have any.)
+set_loglevel(Sink, Handler, Ident, Level) when is_atom(Level) ->
+ HandlerArg = case Ident of
+ undefined -> Handler;
+ _ -> {Handler, Ident}
+ end,
+ Reply = gen_event:call(Sink, HandlerArg, {set_loglevel, Level}, infinity),
+ update_loglevel_config(Sink),
+ Reply.
+
+
+%% @doc Get the loglevel for a particular backend on the default sink. In the case that the backend
+%% has multiple identifiers, the lowest is returned.
+get_loglevel(Handler) ->
+ get_loglevel(?DEFAULT_SINK, Handler).
+
+%% @doc Get the loglevel for a particular sink's backend. In the case that the backend
+%% has multiple identifiers, the lowest is returned.
+get_loglevel(Sink, Handler) ->
+ case gen_event:call(Sink, Handler, get_loglevel, infinity) of
+ {mask, Mask} ->
+ case lager_util:mask_to_levels(Mask) of
+ -> none;
+ Levels -> hd(Levels)
+ end;
+ X when is_integer(X) ->
+ lager_util:num_to_level(X);
+ Y -> Y
+ end.
+
+%% @doc Try to convert an atom to a posix error, but fall back on printing the
+%% term if its not a valid posix error code.
+posix_error(Error) when is_atom(Error) ->
+ case erl_posix_msg:message(Error) of
+ "unknown POSIX error" -> atom_to_list(Error);
+ Message -> Message
+ end;
+posix_error(Error) ->
+ safe_format_chop("~p", Error, ?DEFAULT_TRUNCATION).
+
+%% @private
+get_loglevels(Sink) ->
+ gen_event:call(Sink, Handler, get_loglevel, infinity) ||
+ Handler <- gen_event:which_handlers(Sink).
+
+%% @doc Set the loghwm for the default sink.
+set_loghwm(Handler, Hwm) when is_integer(Hwm) ->
+ set_loghwm(?DEFAULT_SINK, Handler, Hwm).
+
+%% @doc Set the loghwm for a particular backend.
+set_loghwm(Sink, Handler, Hwm) when is_integer(Hwm) ->
+ gen_event:call(Sink, Handler, {set_loghwm, Hwm}, infinity).
+
+%% @doc Set the loghwm (log high water mark) for file backends with multiple identifiers
+set_loghwm(Sink, Handler, Ident, Hwm) when is_integer(Hwm) ->
+ gen_event:call(Sink, {Handler, Ident}, {set_loghwm, Hwm}, infinity).
+
+%% @private
+add_trace_to_loglevel_config(Trace, Sink) ->
+ {MinLevel, Traces} = lager_config:get({Sink, loglevel}),
+ case lists:member(Trace, Traces) of
+ false ->
+ NewTraces = Trace|Traces,
+ _ = lager_util:trace_filter( element(1, T) || T <- NewTraces),
+ lager_config:set({Sink, loglevel}, {MinLevel, Trace|Traces});
+ _ ->
+ ok
+ end.
+
+%% @doc recalculate min log level
+update_loglevel_config(error_logger) ->
+ %% Not a sink under our control, part of the Erlang logging
+ %% utility that error_logger_lager_h attaches to
+ true;
+update_loglevel_config(Sink) ->
+ {_, Traces} = lager_config:get({Sink, loglevel}, {ignore_me, }),
+ MinLog = minimum_loglevel(get_loglevels(Sink)),
+ lager_config:set({Sink, loglevel}, {MinLog, Traces}).
+
+%% @private
+minimum_loglevel(Levels) ->
+ lists:foldl(fun({mask, Mask}, Acc) ->
+ Mask bor Acc;
+ (Level, Acc) when is_integer(Level) ->
+ {mask, Mask} = lager_util:config_to_mask(lager_util:num_to_level(Level)),
+ Mask bor Acc;
+ (_, Acc) ->
+ Acc
+ end, 0, Levels).
+
+%% @doc Print the format string `Fmt' with `Args' safely with a size
+%% limit of `Limit'. If the format string is invalid, or not enough
+%% arguments are supplied 'FORMAT ERROR' is printed with the offending
+%% arguments. The caller is NOT crashed.
+
+safe_format(Fmt, Args, Limit) ->
+ safe_format(Fmt, Args, Limit, ).
+
+safe_format(Fmt, Args, Limit, Options) ->
+ try lager_trunc_io:format(Fmt, Args, Limit, Options)
+ catch
+ _:_ -> lager_trunc_io:format("FORMAT ERROR: ~p ~p", Fmt, Args, Limit)
+ end.
+
+%% @private
+safe_format_chop(Fmt, Args, Limit) ->
+ safe_format(Fmt, Args, Limit, {chomp, true}).
+
+%% @private Print the format string `Fmt' with `Args' without a size limit.
+%% This is unsafe because the output of this function is unbounded.
+%%
+%% Log messages with unbounded size will kill your application dead as
+%% OTP mechanisms stuggle to cope with them. So this function is
+%% intended only for messages which have a reasonable bounded
+%% size before they're formatted.
+%%
+%% If the format string is invalid or not enough arguments are
+%% supplied a 'FORMAT ERROR' message is printed instead with the
+%% offending arguments. The caller is NOT crashed.
+unsafe_format(Fmt, Args) ->
+ try io_lib:format(Fmt, Args)
+ catch
+ _:_ -> io_lib:format("FORMAT ERROR: ~p ~p", Fmt, Args)
+ end.
+
+%% @doc Print a record or a list of records lager found during parse transform
+pr(Record, Module) when is_tuple(Record), is_atom(element(1, Record)) ->
+ pr(Record, Module, );
+pr(List, Module) when is_list(List) ->
+ pr(List, Module, );
+pr(Record, _) ->
+ Record.
+
+%% @doc Print a record or a list of records lager found during parse transform
+pr(Record, Module, Options) when is_tuple(Record), is_atom(element(1, Record)), is_list(Options) ->
+ try 
+ case is_record_known(Record, Module) of
+ false ->
+ Record;
+ {RecordName, RecordFields} ->
+ {'$lager_record', RecordName, 
+ zip(RecordFields, tl(tuple_to_list(Record)), Module, Options, )}
+ end
+ catch
+ error:undef ->
+ Record
+ end;
+pr(Head|Tail, Module, Options) when is_list(Options) ->
+ pr(Head, Module, Options)|pr(Tail, Module, Options);
+pr(Record, _, _) ->
+ Record.
+
+zip(FieldName|RecordFields, FieldValue|Record, Module, Options, ToReturn) when is_list(FieldValue) ->
+ zip(RecordFields, Record, Module, Options,
+ {FieldName, pr(FieldValue, Module, Options)}|ToReturn);
+zip(FieldName|RecordFields, FieldValue|Record, Module, Options, ToReturn) ->
+ Compress = lists:member(compress, Options),
+ case is_tuple(FieldValue) andalso
+ tuple_size(FieldValue) > 0 andalso
+ is_atom(element(1, FieldValue)) andalso
+ is_record_known(FieldValue, Module) of
+ false when Compress andalso FieldValue =:= undefined ->
+ zip(RecordFields, Record, Module, Options, ToReturn);
+ false ->
+ zip(RecordFields, Record, Module, Options, {FieldName, FieldValue}|ToReturn);
+ _Else ->
+ F = {FieldName, pr(FieldValue, Module, Options)},
+ zip(RecordFields, Record, Module, Options, F|ToReturn)
+ end;
+zip(, , _Module, _Compress, ToReturn) ->
+ lists:reverse(ToReturn).
+
+is_record_known(Record, Module) ->
+ Name = element(1, Record),
+ Attrs = Module:module_info(attributes),
+ case lists:keyfind(lager_records, 1, Attrs) of
+ false -> false;
+ {lager_records, Records} ->
+ case lists:keyfind(Name, 1, Records) of
+ false -> false;
+ {Name, RecordFields} ->
+ case (tuple_size(Record) - 1) =:= length(RecordFields) of
+ false -> false;
+ true -> {Name, RecordFields}
+ end
+ end
+ end.
+
+
+%% @doc Print stacktrace in human readable form
+pr_stacktrace(Stacktrace) ->
+ Stacktrace1 = case application:get_env(lager, reverse_pretty_stacktrace, true) of
+ true ->
+ lists:reverse(Stacktrace);
+ _ ->
+ Stacktrace
+ end,
+ pr_stacktrace_(Stacktrace1).
+
+pr_stacktrace_(Stacktrace) ->
+ Indent = "\n ",
+ lists:foldl(
+ fun(Entry, Acc) ->
+ Acc ++ Indent ++ error_logger_lager_h:format_mfa(Entry)
+ end,
+ ,
+ Stacktrace).
+
+pr_stacktrace(Stacktrace, {Class, Reason}) ->
+ case application:get_env(lager, reverse_pretty_stacktrace, true) of
+ true ->
+ lists:flatten(
+ pr_stacktrace_(lists:reverse(Stacktrace)) ++ "\n" ++ io_lib:format("~s:~p", Class, Reason));
+ _ ->
+ lists:flatten(
+ io_lib:format("~s:~p", Class, Reason) ++ pr_stacktrace_(Stacktrace))
+ end.
+
+rotate_sink(Sink) ->
+ Handlers = lager_config:global_get(handlers),
+ RotateHandlers = lists:filtermap(
+ fun({Handler,_,S}) when S == Sink -> {true, {Handler, Sink}};
+ (_) -> false 
+ end, 
+ Handlers),
+ rotate_handlers(RotateHandlers).
+
+rotate_all() -> 
+ rotate_handlers(lists:map(fun({H,_,S}) -> {H, S} end,
+ lager_config:global_get(handlers))).
+
+
+rotate_handlers(Handlers) ->
+ rotate_handler(Handler, Sink) || {Handler, Sink} <- Handlers .
+
+
+rotate_handler(Handler) ->
+ Handlers = lager_config:global_get(handlers),
+ case lists:keyfind(Handler, 1, Handlers) of
+ {Handler, _, Sink} -> rotate_handler(Handler, Sink);
+ false -> ok
+ end.
+
+rotate_handler(Handler, Sink) ->
+ gen_event:call(Sink, Handler, rotate, ?ROTATE_TIMEOUT).
+
+%% @private
+trace_func(#trace_func_state_v1{pid=Pid, level=Level, format_string=Fmt}=FuncState, Event, ProcState) ->
+ _ = lager:log(Level, Pid, Fmt, Event, ProcState),
+ check_timeout(decrement_count(FuncState)).
+
+%% @private
+trace_state(Pid, Level, Options) ->
+ #trace_func_state_v1{pid=Pid,
+ level=Level,
+ count=proplists:get_value(count, Options, infinity),
+ timeout=proplists:get_value(timeout, Options, infinity),
+ format_string=proplists:get_value(format_string, Options, "TRACE ~p ~p")}.
+
+decrement_count(#trace_func_state_v1{count=infinity} = FuncState) ->
+ FuncState;
+decrement_count(#trace_func_state_v1{count=1}) ->
+ %% hit the counter limit
+ done;
+decrement_count(#trace_func_state_v1{count=Count} = FuncState) ->
+ FuncState#trace_func_state_v1{count=Count - 1}.
+
+check_timeout(#trace_func_state_v1{timeout=infinity} = FuncState) ->
+ FuncState;
+check_timeout(#trace_func_state_v1{timeout=Timeout, started=Started} = FuncState) ->
+ case (timer:now_diff(os:timestamp(), Started) / 1000) > Timeout of
+ true ->
+ done;
+ false ->
+ FuncState
+ end.
+
+-ifdef(TEST).
+get_sink_handler_status_ascii_test() ->
+ File = "C:\\ProgramData\\Directory With Spaces\\lager.log",
+ validate_status(File).
+
+get_sink_handler_status_latin_test() ->
+ File = "C:\\ProgramData\\Tést Directory\\lager.log",
+ validate_status(File).
+
+get_sink_handler_status_unicode_test() ->
+ File = "C:\\ProgramData\\찦차를 타고 온 펲시맨과 쑛다리 똠방각하 (Korean)\\lager.log",
+ validate_status(File).
+
+validate_status(File) ->
+ Handler = {lager_file_backend, File},
+ Status = get_sink_handler_status(?DEFAULT_SINK, Handler, debug),
+ ?assertNotEqual(nomatch, string:find(Status, File)).
+-endif.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_app.erl Added

@@ -0,0 +1,426 @@
+%% Copyright (c) 2011-2012 Basho Technologies, Inc. All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc Lager's application module. Not a lot to see here.
+
+%% @private
+
+-module(lager_app).
+
+-behaviour(application).
+-include("lager.hrl").
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+-export(start/0,
+ start/2,
+ start_handler/3,
+ configure_sink/2,
+ stop/1,
+ boot/1).
+
+%% The `application:get_env/3` compatibility wrapper was useful
+%% for other modules in r15 and before
+-export(get_env/3).
+
+-define(FILENAMES, '__lager_file_backend_filenames').
+-define(THROTTLE, lager_backend_throttle).
+-define(DEFAULT_HANDLER_CONF,
+ {lager_console_backend, {level, info}},
+ {lager_file_backend,
+ {file, "error.log"}, {level, error},
+ {size, 10485760}, {date, "$D0"}, {count, 5}
+ },
+ {lager_file_backend,
+ {file, "console.log"}, {level, info},
+ {size, 10485760}, {date, "$D0"}, {count, 5}
+ }
+ ).
+
+start() ->
+ application:start(lager).
+
+start_throttle(Sink, Threshold, Window) ->
+ _ = supervisor:start_child(lager_handler_watcher_sup,
+ Sink, ?THROTTLE, Threshold, Window),
+ ok.
+
+determine_async_behavior(_Sink, undefined, _Window) ->
+ ok;
+determine_async_behavior(_Sink, Threshold, _Window) when not is_integer(Threshold) orelse Threshold < 0 ->
+ error_logger:error_msg("Invalid value for 'async_threshold': ~p~n",
+ Threshold),
+ throw({error, bad_config});
+determine_async_behavior(Sink, Threshold, undefined) ->
+ start_throttle(Sink, Threshold, erlang:trunc(Threshold * 0.2));
+determine_async_behavior(_Sink, Threshold, Window) when not is_integer(Window) orelse Window > Threshold orelse Window < 0 ->
+ error_logger:error_msg(
+ "Invalid value for 'async_threshold_window': ~p~n", Window),
+ throw({error, bad_config});
+determine_async_behavior(Sink, Threshold, Window) ->
+ start_throttle(Sink, Threshold, Window).
+
+start_handlers(_Sink, undefined) ->
+ ok;
+start_handlers(_Sink, Handlers) when not is_list(Handlers) ->
+ error_logger:error_msg(
+ "Invalid value for 'handlers' (must be list): ~p~n", Handlers),
+ throw({error, bad_config});
+start_handlers(Sink, Handlers) ->
+ %% handlers failing to start are handled in the handler_watcher
+ lager_config:global_set(handlers,
+ lager_config:global_get(handlers, ) ++
+ lists:map(fun({Module, Config}) ->
+ check_handler_config(Module, Config),
+ start_handler(Sink, Module, Config);
+ (_) ->
+ throw({error, bad_config})
+ end,
+ expand_handlers(Handlers))),
+ ok.
+
+start_handler(Sink, Module, Config) ->
+ {ok, Watcher} = supervisor:start_child(lager_handler_watcher_sup,
+ Sink, Module, Config),
+ {Module, Watcher, Sink}.
+
+check_handler_config({lager_file_backend, F}, Config) when is_list(Config); is_tuple(Config) ->
+ Fs = case get(?FILENAMES) of
+ undefined -> ordsets:new();
+ X -> X
+ end,
+ case ordsets:is_element(F, Fs) of
+ true ->
+ error_logger:error_msg(
+ "Cannot have same file (~p) in multiple file backends~n", F),
+ throw({error, bad_config});
+ false ->
+ put(?FILENAMES,
+ ordsets:add_element(F, Fs))
+ end,
+ ok;
+check_handler_config(_Handler, Config) when is_list(Config) orelse is_atom(Config) ->
+ ok;
+check_handler_config(Handler, _BadConfig) ->
+ throw({error, {bad_config, Handler}}).
+
+clean_up_config_checks() ->
+ erase(?FILENAMES).
+
+interpret_hwm(undefined) ->
+ undefined;
+interpret_hwm(HWM) when not is_integer(HWM) orelse HWM < 0 ->
+ _ = lager:log(warning, self(), "Invalid error_logger high water mark: ~p, disabling", HWM),
+ undefined;
+interpret_hwm(HWM) ->
+ HWM.
+
+maybe_install_sink_killer(_Sink, undefined, _ReinstallTimer) -> ok;
+maybe_install_sink_killer(Sink, HWM, undefined) -> maybe_install_sink_killer(Sink, HWM, 5000);
+maybe_install_sink_killer(Sink, HWM, ReinstallTimer) when is_integer(HWM) andalso is_integer(ReinstallTimer)
+ andalso HWM >= 0 andalso ReinstallTimer >= 0 ->
+ _ = supervisor:start_child(lager_handler_watcher_sup, Sink, lager_manager_killer,
+ HWM, ReinstallTimer);
+maybe_install_sink_killer(_Sink, HWM, ReinstallTimer) ->
+ error_logger:error_msg("Invalid value for 'killer_hwm': ~p or 'killer_reinstall_after': ~p", HWM, ReinstallTimer),
+ throw({error, bad_config}).
+
+-spec start_error_logger_handler(boolean(), pos_integer(), list()) -> list().
+start_error_logger_handler(false, _HWM, _Whitelist) ->
+ ;
+start_error_logger_handler(true, HWM, WhiteList) ->
+ GlStrategy = case application:get_env(lager, error_logger_groupleader_strategy) of
+ undefined ->
+ handle;
+ {ok, GlStrategy0} when
+ GlStrategy0 =:= handle;
+ GlStrategy0 =:= ignore;
+ GlStrategy0 =:= mirror ->
+ GlStrategy0;
+ {ok, BadGlStrategy} ->
+ error_logger:error_msg(
+ "Invalid value for 'error_logger_groupleader_strategy': ~p~n",
+ BadGlStrategy),
+ throw({error, bad_config})
+ end,
+
+ case whereis(error_logger) of
+ undefined ->
+ %% On OTP 21 and above, error_logger is deprecated in favor of 'logger'
+ %% As a band-aid, boot up error_logger anyway and install it as a logger handler
+ %% we can't use error_logger:add_report_handler because we want supervision of the handler
+ %% so we have to manually add the logger handler
+ %%
+ %% Longer term we should be installing a logger handler instead, but this will bridge the gap
+ %% for now.
+ _ = error_logger:start(),
+ _ = logger:add_handler(error_logger,error_logger,#{level=>info,filter_default=>log}),
+ ok = maybe_remove_logger_handler();
+ _ ->
+ ok
+ end,
+
+ %% capture which handlers we removed from error_logger so we can restore them when lager stops
+ OldHandlers = case supervisor:start_child(lager_handler_watcher_sup, error_logger, error_logger_lager_h, HWM, GlStrategy) of
+ {ok, _} ->
+ begin error_logger:delete_report_handler(X), X end ||
+ X <- gen_event:which_handlers(error_logger) -- error_logger_lager_h | WhiteList;
+ {error, _} ->
+ 
+ end,
+ OldHandlers.
+
+%% On OTP 21.1 and higher we need to remove the `default' handler.
+%% But it might not exist, so we will wrap this in a try-catch
+%% block
+maybe_remove_logger_handler() ->
+ try
+ ok = logger:remove_handler(default)
+ catch
+ error:undef -> ok;
+ Err:Reason ->
+ error_logger:error_msg("calling logger:remove_handler(default) failed: ~p ~p",
+ Err, Reason)
+ end.
+
+configure_sink(Sink, SinkDef) ->
+ lager_config:new_sink(Sink),
+ ChildId = lager_util:make_internal_sink_name(Sink),
+ _ = supervisor:start_child(lager_sup,
+ {ChildId,
+ {gen_event, start_link,
+ {local, Sink}},
+ permanent, 5000, worker, dynamic}),
+ determine_async_behavior(Sink, proplists:get_value(async_threshold, SinkDef),
+ proplists:get_value(async_threshold_window, SinkDef)
+ ),
+ _ = maybe_install_sink_killer(Sink, proplists:get_value(killer_hwm, SinkDef),
+ proplists:get_value(killer_reinstall_after, SinkDef)),
+ start_handlers(Sink,
+ proplists:get_value(handlers, SinkDef, )),
+
+ lager:update_loglevel_config(Sink).
+
+
+configure_extra_sinks(Sinks) ->
+ lists:foreach(fun({Sink, Proplist}) -> configure_sink(Sink, Proplist) end,
+ Sinks).
+
+-spec get_env(atom(), atom(), term()) -> term().
+get_env(Application, Key, Default) ->
+ application:get_env(Application, Key, Default).
+
+start(_StartType, _StartArgs) ->
+ {ok, Pid} = lager_sup:start_link(),
+ SavedHandlers = boot(),
+ _ = boot('__all_extra'),
+ _ = boot('__traces'),
+ clean_up_config_checks(),
+ {ok, Pid, SavedHandlers}.
+
+boot() ->
+ %% Handle the default sink.
+ determine_async_behavior(?DEFAULT_SINK,
+ application:get_env(lager, async_threshold, undefined),
+ application:get_env(lager, async_threshold_window, undefined)),
+
+ _ = maybe_install_sink_killer(?DEFAULT_SINK, application:get_env(lager, killer_hwm, undefined),
+ application:get_env(lager, killer_reinstall_after, undefined)),
+
+ start_handlers(?DEFAULT_SINK,
+ application:get_env(lager, handlers, ?DEFAULT_HANDLER_CONF)),
+
+ lager:update_loglevel_config(?DEFAULT_SINK),
+
+ SavedHandlers = start_error_logger_handler(
+ application:get_env(lager, error_logger_redirect, true),
+ interpret_hwm(application:get_env(lager, error_logger_hwm, 0)),
+ application:get_env(lager, error_logger_whitelist, )
+ ),
+
+ SavedHandlers.
+
+boot('__traces') ->
+ _ = lager_util:trace_filter(none),
+ ok = add_configured_traces();
+
+boot('__all_extra') ->
+ configure_extra_sinks(application:get_env(lager, extra_sinks, ));
+
+boot(?DEFAULT_SINK) -> boot();
+boot(Sink) ->
+ AllSinksDef = application:get_env(lager, extra_sinks, ),
+ boot_sink(Sink, lists:keyfind(Sink, 1, AllSinksDef)).
+
+boot_sink(Sink, {Sink, Def}) ->
+ configure_sink(Sink, Def);
+boot_sink(Sink, false) ->
+ configure_sink(Sink, ).
+
+stop(Handlers) ->
+ lists:foreach(fun(Handler) ->
+ error_logger:add_report_handler(Handler)
+ end, Handlers),
+ lager_config:cleanup().
+
+expand_handlers() ->
+ ;
+expand_handlers({lager_file_backend, {Key, _Value}|_=Config}|T) when is_atom(Key) ->
+ %% this is definitely a new-style config, no expansion needed
+ maybe_make_handler_id(lager_file_backend, Config) | expand_handlers(T);
+expand_handlers({lager_file_backend, Configs}|T) ->
+ ?INT_LOG(notice, "Deprecated lager_file_backend config detected, please consider updating it", ),
+ {lager_file_backend:config_to_id(Config), Config} || Config <- Configs ++
+ expand_handlers(T);
+expand_handlers({Mod, Config}|T) when is_atom(Mod) ->
+ maybe_make_handler_id(Mod, Config) | expand_handlers(T);
+expand_handlers(H|T) ->
+ H | expand_handlers(T).
+
+add_configured_traces() ->
+ Traces = case application:get_env(lager, traces) of
+ undefined ->
+ ;
+ {ok, TraceVal} ->
+ TraceVal
+ end,
+
+ lists:foreach(fun start_configured_trace/1, Traces),
+ ok.
+
+start_configured_trace({Handler, Filter}) ->
+ {ok, _} = lager:trace(Handler, Filter);
+start_configured_trace({Handler, Filter, Level}) when is_atom(Level) ->
+ {ok, _} = lager:trace(Handler, Filter, Level).
+
+maybe_make_handler_id(Mod, Config) ->
+ %% Allow the backend to generate a gen_event handler id, if it wants to.
+ %% We don't use erlang:function_exported here because that requires the module
+ %% already be loaded, which is unlikely at this phase of startup. Using code:load
+ %% caused undesirable side-effects with generating code-coverage reports.
+ try Mod:config_to_id(Config) of
+ Id ->
+ {Id, Config}
+ catch
+ error:undef ->
+ {Mod, Config}
+ end.
+
+-ifdef(TEST).
+application_config_mangling_test_() ->
+ 
+ {"Explode the file backend handlers",
+ ?_assertMatch(
+ {lager_console_backend, {level, info}},
+ {{lager_file_backend,"error.log"},{"error.log",error,10485760, "$D0",5}},
+ {{lager_file_backend,"console.log"},{"console.log",info,10485760, "$D0",5}}
+ ,
+ expand_handlers({lager_console_backend, {level, info}},
+ {lager_file_backend, 
+ {"error.log", error, 10485760, "$D0", 5},
+ {"console.log", info, 10485760, "$D0", 5}
+ }
+ ))
+ },
+ {"Explode the short form of backend file handlers",
+ ?_assertMatch(
+ {lager_console_backend, {level, info}},
+ {{lager_file_backend,"error.log"},{"error.log",error}},
+ {{lager_file_backend,"console.log"},{"console.log",info}}
+ ,
+ expand_handlers({lager_console_backend, {level, info}},
+ {lager_file_backend, 
+ {"error.log", error},
+ {"console.log", info}
+ }
+ ))
+ },
+ {"Explode with formatter info",
+ ?_assertMatch(
+ {{lager_file_backend,"test.log"}, {"test.log", debug, 10485760, "$D0", 5},{lager_default_formatter,"",severity," ", message, "\n"}},
+ {{lager_file_backend,"test2.log"}, {"test2.log",debug, 10485760, "$D0", 5},{lager_default_formatter,"2>",severity," ", message, "\n"}},
+ expand_handlers({lager_file_backend, 
+ {"test.log", debug, 10485760, "$D0", 5},{lager_default_formatter,"",severity," ", message, "\n"},
+ {"test2.log",debug, 10485760, "$D0", 5},{lager_default_formatter,"2>",severity," ",message, "\n"}
+ 
+ })
+ )
+ },
+ {"Explode short form with short formatter info",
+ ?_assertMatch(
+ {{lager_file_backend,"test.log"}, {"test.log", debug},{lager_default_formatter,"",severity," ", message, "\n"}},
+ {{lager_file_backend,"test2.log"}, {"test2.log",debug},{lager_default_formatter}},
+ expand_handlers({lager_file_backend, 
+ {"test.log", debug},{lager_default_formatter,"",severity," ", message, "\n"},
+ {"test2.log",debug},{lager_default_formatter}
+ 
+ })
+ )
+ },
+ {"New form needs no expansion",
+ ?_assertMatch(
+ {{lager_file_backend,"test.log"}, {file, "test.log"}},
+ {{lager_file_backend,"test2.log"}, {file, "test2.log"}, {level, info}, {sync_on, none}},
+ {{lager_file_backend,"test3.log"}, {formatter, lager_default_formatter}, {file, "test3.log"}}
+ ,
+ expand_handlers(
+ {lager_file_backend, {file, "test.log"}},
+ {lager_file_backend, {file, "test2.log"}, {level, info}, {sync_on, none}},
+ {lager_file_backend, {formatter, lager_default_formatter},{file, "test3.log"}}
+ )
+ )
+ }
+ .
+
+check_handler_config_test_() ->
+ Good = expand_handlers(?DEFAULT_HANDLER_CONF),
+ Bad = expand_handlers({lager_console_backend, {level, info}},
+ {lager_file_backend, {file, "same_file.log"}},
+ {lager_file_backend, {file, "same_file.log"}, {level, info}}),
+ AlsoBad = {lager_logstash_backend,
+ {level, info},
+ {output, {udp, "localhost", 5000}},
+ {format, json},
+ {json_encoder, jiffy}},
+ BadToo = {fail, {fail}},
+ OldSchoolLagerGood = expand_handlers({lager_console_backend, {level, info}},
+ {lager_file_backend, 
+ {"./log/error.log",error,10485760,"$D0",5},
+ {"./log/console.log",info,10485760,"$D0",5},
+ {"./log/debug.log",debug,10485760,"$D0",5}
+ }),
+ NewConfigMissingList = expand_handlers({foo_backend, {file, "same_file.log"}}),
+ 
+ {"lager_file_backend_good",
+ ?_assertEqual(ok, ok, ok, check_handler_config(M,C) || {M,C} <- Good )
+ },
+ {"lager_file_backend_bad",
+ ?_assertThrow({error, bad_config}, check_handler_config(M,C) || {M,C} <- Bad )
+ },
+ {"Invalid config dies",
+ ?_assertThrow({error, bad_config}, start_handlers(foo, AlsoBad))
+ },
+ {"Invalid config dies",
+ ?_assertThrow({error, {bad_config, _}}, start_handlers(foo, BadToo))
+ },
+ {"Old Lager config works",
+ ?_assertEqual(ok, ok, ok, ok, check_handler_config(M, C) || {M, C} <- OldSchoolLagerGood)
+ },
+ {"New Config missing its list should fail",
+ ?_assertThrow({error, {bad_config, foo_backend}}, check_handler_config(M, C) || {M, C} <- NewConfigMissingList)
+ }
+ .
+-endif.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_backend_throttle.erl Added

@@ -0,0 +1,105 @@
+%% Copyright (c) 2011-2013 Basho Technologies, Inc. All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc A simple gen_event backend used to monitor mailbox size and
+%% switch log messages between synchronous and asynchronous modes.
+%% A gen_event handler is used because a process getting its own mailbox
+%% size doesn't involve getting a lock, and gen_event handlers run in their
+%% parent's process.
+
+-module(lager_backend_throttle).
+
+-include("lager.hrl").
+
+-behaviour(gen_event).
+
+-export(init/1, handle_call/2, handle_event/2, handle_info/2, terminate/2,
+ code_change/3).
+
+%%
+%% Allow test code to verify that we're doing the needful.
+-ifdef(TEST).
+-define(ETS_TABLE, async_threshold_test).
+-define(TOGGLE_SYNC(), test_increment(sync_toggled)).
+-define(TOGGLE_ASYNC(), test_increment(async_toggled)).
+-else.
+-define(TOGGLE_SYNC(), true).
+-define(TOGGLE_ASYNC(), true).
+-endif.
+
+-record(state, {
+ sink :: atom(),
+ hwm :: non_neg_integer(),
+ window_min :: non_neg_integer(),
+ async = true :: boolean()
+ }).
+
+init({sink, Sink}, Hwm, Window) ->
+ lager_config:set({Sink, async}, true),
+ {ok, #state{sink=Sink, hwm=Hwm, window_min=Hwm - Window}}.
+
+
+handle_call(get_loglevel, State) ->
+ {ok, {mask, ?LOG_NONE}, State};
+handle_call({set_loglevel, _Level}, State) ->
+ {ok, ok, State};
+handle_call(_Request, State) ->
+ {ok, ok, State}.
+
+handle_event({log, _Message},State) ->
+ {message_queue_len, Len} = erlang:process_info(self(), message_queue_len),
+ case {Len > State#state.hwm, Len < State#state.window_min, State#state.async} of
+ {true, _, true} ->
+ %% need to flip to sync mode
+ ?TOGGLE_SYNC(),
+ lager_config:set({State#state.sink, async}, false),
+ {ok, State#state{async=false}};
+ {_, true, false} ->
+ %% need to flip to async mode
+ ?TOGGLE_ASYNC(),
+ lager_config:set({State#state.sink, async}, true),
+ {ok, State#state{async=true}};
+ _ ->
+ %% nothing needs to change
+ {ok, State}
+ end;
+handle_event(_Event, State) ->
+ {ok, State}.
+
+handle_info(_Info, State) ->
+ {ok, State}.
+
+%% @private
+terminate(_Reason, _State) ->
+ ok.
+
+%% @private
+code_change(_OldVsn, State, _Extra) ->
+ {ok, State}.
+
+-ifdef(TEST).
+test_get(Key) ->
+ get_default(ets:lookup(?ETS_TABLE, Key)).
+
+test_increment(Key) ->
+ ets:insert(?ETS_TABLE,
+ {Key, test_get(Key) + 1}).
+
+get_default() ->
+ 0;
+get_default({_Key, Value}) ->
+ Value.
+-endif.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_common_test_backend.erl Added

@@ -0,0 +1,121 @@
+-module(lager_common_test_backend).
+
+-behavior(gen_event).
+
+%% gen_event callbacks
+-export(init/1,
+         handle_call/2,
+         handle_event/2,
+         handle_info/2,
+         terminate/2,
+         code_change/3).
+-export(get_logs/0,
+        bounce/0,
+        bounce/1).
+
+%% holds the log messages for retreival on terminate
+-record(state, {level :: {mask, integer()},
+                formatter :: atom(),
+                format_config :: any(),
+                log =  :: list()}).
+
+-include("lager.hrl").
+-define(TERSE_FORMAT,time, " ", color, "", severity," ", message).
+
+%% @doc Before every test, just
+%% lager_common_test_backend:bounce(Level) with the log level of your
+%% choice. Every message will be passed along to ct:pal for your
+%% viewing in the common_test reports. Also, you can call
+%% lager_common_test_backend:get_logs/0 to get a list of all log
+%% messages this backend has received during your test. You can then
+%% search that list for expected log messages.
+
+
+-spec get_logs() -> iolist() | {error, term()}.
+get_logs() ->
+    gen_event:call(lager_event, ?MODULE, get_logs, infinity).
+
+bounce() ->
+    bounce(error).
+
+bounce(Level) ->
+    _ = application:stop(lager),
+    application:set_env(lager, suppress_application_start_stop, true),
+    application:set_env(lager, handlers,
+                        
+                         {lager_common_test_backend, Level, false}
+                        ),
+    ok = lager:start(),
+    %% we care more about getting all of our messages here than being
+    %% careful with the amount of memory that we're using.
+    error_logger_lager_h:set_high_water(100000),
+    ok.
+
+-spec(init(integer()|atom()|term()) -> {ok, #state{}} | {error, atom()}).
+%% @private
+%% @doc Initializes the event handler
+init(Level, true) -> % for backwards compatibility
+    init(Level,{lager_default_formatter,{eol, "\n"}});
+init(Level,false) -> % for backwards compatibility
+    init(Level,{lager_default_formatter,?TERSE_FORMAT ++ "\n"});
+init(Level,{Formatter,FormatterConfig}) when is_atom(Formatter) ->
+    case lists:member(Level, ?LEVELS) of
+        true ->
+            {ok, #state{level=lager_util:config_to_mask(Level),
+                    formatter=Formatter,
+                    format_config=FormatterConfig}};
+        _ ->
+            {error, bad_log_level}
+    end;
+init(Level) ->
+    init(Level,{lager_default_formatter,?TERSE_FORMAT ++ "\n"}).
+
+-spec(handle_event(tuple(), #state{}) -> {ok, #state{}}).
+%% @private
+handle_event({log, Message},
+    #state{level=L,formatter=Formatter,format_config=FormatConfig,log=Logs} = State) ->
+    case lager_util:is_loggable(Message,L,?MODULE) of
+        true ->
+            Log = Formatter:format(Message,FormatConfig),
+            ct:pal(Log),
+            {ok, State#state{log=Log|Logs}};
+        false ->
+            {ok, State}
+    end;
+handle_event(Event, State) ->
+    ct:pal(Event),
+    {ok, State#state{log = Event|State#state.log}}.
+
+-spec(handle_call(any(), #state{}) -> {ok, any(), #state{}}).
+%% @private
+%% @doc gets and sets loglevel. This is part of the lager backend api.
+handle_call(get_loglevel, #state{level=Level} = State) ->
+    {ok, Level, State};
+handle_call({set_loglevel, Level}, State) ->
+    case lists:member(Level, ?LEVELS) of
+        true ->
+            {ok, ok, State#state{level=lager_util:config_to_mask(Level)}};
+        _ ->
+            {ok, {error, bad_log_level}, State}
+    end;
+handle_call(get_logs, #state{log = Logs} = State) ->
+    {ok, lists:reverse(Logs), State};
+handle_call(_, State) ->
+    {ok, ok, State}.
+
+-spec(handle_info(any(), #state{}) -> {ok, #state{}}).
+%% @private
+%% @doc gen_event callback, does nothing.
+handle_info(_, State) ->
+    {ok, State}.
+
+-spec(code_change(any(), #state{}, any()) -> {ok, #state{}}).
+%% @private
+%% @doc gen_event callback, does nothing.
+code_change(_OldVsn, State, _Extra) ->
+    {ok, State}.
+
+-spec(terminate(any(), #state{}) -> {ok, list()}).
+%% @doc gen_event callback, does nothing.
+terminate(_Reason, #state{log=Logs}) ->
+    {ok, lists:reverse(Logs)}.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_config.erl Added

@@ -0,0 +1,136 @@
+%% Copyright (c) 2011-2012 Basho Technologies, Inc. All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc Helper functions for working with lager's runtime config
+
+-module(lager_config).
+
+-include("lager.hrl").
+
+-export(new/0, new_sink/1, get/1, get/2, set/2,
+ global_get/1, global_get/2, global_set/2, cleanup/0).
+
+-define(TBL, lager_config).
+-define(GLOBAL, '_global').
+
+%% For multiple sinks, the key is now the registered event name and the old key
+%% as a tuple.
+%%
+%% {{lager_event, loglevel}, Value} instead of {loglevel, Value}
+
+new() ->
+ init(),
+ new_sink(?DEFAULT_SINK),
+ %% Need to be able to find the `lager_handler_watcher' for all handlers
+ insert_new({?GLOBAL, handlers}, ),
+ ok.
+
+new_sink(Sink) ->
+ %% use insert_new here so that if we're in an appup we don't mess anything up
+ %%
+ %% until lager is completely started, allow all messages to go through
+ insert_new({Sink, loglevel}, {element(2, lager_util:config_to_mask(debug)), }).
+
+global_get(Key) ->
+ global_get(Key, undefined).
+
+global_get(Key, Default) ->
+ get({?GLOBAL, Key}, Default).
+
+global_set(Key, Value) ->
+ set({?GLOBAL, Key}, Value).
+
+
+get({_Sink, _Key}=FullKey) ->
+ get(FullKey, undefined);
+get(Key) ->
+ get({?DEFAULT_SINK, Key}, undefined).
+
+get({Sink, Key}, Default) ->
+ lookup({Sink, Key}, Default);
+get(Key, Default) ->
+ get({?DEFAULT_SINK, Key}, Default).
+
+set({Sink, Key}, Value) ->
+ insert({Sink, Key}, Value);
+set(Key, Value) ->
+ set({?DEFAULT_SINK, Key}, Value).
+
+%% check if we can use persistent_term for config
+%% persistent term was added in OTP 21.2 but we can't
+%% check minor versions with macros so we're stuck waiting
+%% for OTP 22
+-ifdef(HAVE_PERSISTENT_TERM).
+init() ->
+ ok.
+
+insert(Key, Value) ->
+ persistent_term:put({?TBL, Key}, Value).
+
+insert_new(Key, Value) ->
+ try persistent_term:get({?TBL, Key}) of
+ _Value ->
+ false
+ catch error:badarg ->
+ insert(Key, Value),
+ true
+ end.
+
+lookup(Key, Default) ->
+ try persistent_term:get({?TBL, Key}) of
+ Value -> Value
+ catch
+ error:badarg ->
+ Default
+ end.
+
+cleanup() ->
+ persistent_term:erase(K) || {{?TBL, _} = K, _} <- persistent_term:get() .
+
+-else.
+
+init() ->
+ %% set up the ETS configuration table
+ _ = try ets:new(?TBL, named_table, public, set, {keypos, 1}, {read_concurrency, true}) of
+ _Result ->
+ ok
+ catch
+ error:badarg ->
+ ?INT_LOG(warning, "Table ~p already exists", ?TBL)
+ end.
+
+insert(Key, Value) ->
+ ets:insert(?TBL, {Key, Value}).
+
+insert_new(Key, Value) ->
+ ets:insert_new(?TBL, {Key, Value}).
+
+lookup(Key, Default) ->
+ try
+ case ets:lookup(?TBL, Key) of
+ ->
+ Default;
+ {Key, Res} ->
+ Res
+ end
+ catch
+ _:_ ->
+ Default
+ end.
+
+cleanup() -> ok.
+-endif.
+

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_console_backend.erl Added

@@ -0,0 +1,604 @@
+%% Copyright (c) 2011-2012, 2014 Basho Technologies, Inc. All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc Console backend for lager.
+%% Configuration is a proplist with the following keys:
+%% <ul>
+%% <li>`level' - log level to use</li>
+%% <li>`use_stderr' - either `true' or `false', defaults to false. If set to true,
+%% use standard error to output console log messages</li>
+%% <li>`formatter' - the module to use when formatting log messages. Defaults to
+%% `lager_default_formatter'</li>
+%% <li>`formatter_config' - the format configuration string. Defaults to
+%% `time severity message'</li>
+%% </ul>
+
+-module(lager_console_backend).
+
+-behaviour(gen_event).
+
+-export(init/1, handle_call/2, handle_event/2, handle_info/2, terminate/2,
+ code_change/3).
+
+-record(state, {level :: {'mask', integer()},
+ out = user :: user | standard_error | pid(),
+ id :: atom() | {atom(), any()},
+ formatter :: atom(),
+ format_config :: any(),
+ colors= :: list()}).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-compile({parse_transform, lager_transform}).
+-endif.
+
+
+-include("lager.hrl").
+
+-define(TERSE_FORMAT,time, " ", color, "", severity," ", message).
+-define(DEFAULT_FORMAT_CONFIG, ?TERSE_FORMAT ++ eol()).
+-define(FORMAT_CONFIG_OFF, {eol, eol()}).
+
+-ifdef(TEST).
+-define(DEPRECATED(_Msg), ok).
+-else.
+-define(DEPRECATED(Msg),
+ io:format(user, "WARNING: This is a deprecated console configuration. Please use \"~w\" instead.~n", Msg)).
+-endif.
+
+%% @private
+init(Level) when is_atom(Level) ->
+ ?DEPRECATED({level, Level}),
+ init({level, Level});
+init(Level, true) when is_atom(Level) -> % for backwards compatibility
+ ?DEPRECATED({level, Level}, {formatter_config, {eol, "\\r\\n\\"}}),
+ init({level, Level}, {formatter_config, ?FORMAT_CONFIG_OFF});
+init(Level, false) when is_atom(Level) -> % for backwards compatibility
+ ?DEPRECATED({level, Level}),
+ init({level, Level});
+
+init(Options) when is_list(Options) ->
+ true = validate_options(Options),
+ Colors = case application:get_env(lager, colored) of
+ {ok, true} ->
+ {ok, LagerColors} = application:get_env(lager, colors),
+ LagerColors;
+ _ -> 
+ end,
+
+ Level = get_option(level, Options, undefined),
+ try {is_new_style_console_available(), lager_util:config_to_mask(Level)} of
+ {false, _} ->
+ Msg = "Lager's console backend is incompatible with the 'old' shell, not enabling it",
+ %% be as noisy as possible, log to every possible place
+ try
+ alarm_handler:set_alarm({?MODULE, "WARNING: " ++ Msg})
+ catch
+ _:_ ->
+ error_logger:warning_msg(Msg ++ "~n")
+ end,
+ io:format("WARNING: " ++ Msg ++ "~n"),
+ ?INT_LOG(warning, Msg, ),
+ {error, {fatal, old_shell}};
+ {true, L} ->
+ UseErr, GroupLeader, ID, Formatter, Config = get_option(K, Options, Default) || {K, Default} <- 
+ {use_stderr, false},
+ {group_leader, false},
+ {id, ?MODULE},
+ {formatter, lager_default_formatter},
+ {formatter_config, ?DEFAULT_FORMAT_CONFIG}
+ 
+ ,
+ Out = case UseErr of
+ false ->
+ case GroupLeader of
+ false -> user;
+ GLPid when is_pid(GLPid) ->
+ erlang:monitor(process, GLPid),
+ GLPid
+ end;
+ true -> standard_error
+ end,
+ {ok, #state{level=L,
+ id=ID,
+ out=Out,
+ formatter=Formatter,
+ format_config=Config,
+ colors=Colors}}
+ catch
+ _:_ ->
+ {error, {fatal, bad_log_level}}
+ end;
+init(Level) when is_atom(Level) ->
+ ?DEPRECATED({level, Level}),
+ init({level, Level});
+init(Other) ->
+ {error, {fatal, {bad_console_config, Other}}}.
+
+validate_options() -> true;
+validate_options({level, L}|T) when is_atom(L) ->
+ case lists:member(L, ?LEVELS) of
+ false ->
+ throw({error, {fatal, {bad_level, L}}});
+ true ->
+ validate_options(T)
+ end;
+validate_options({use_stderr, true}|T) ->
+ validate_options(T);
+validate_options({use_stderr, false}|T) ->
+ validate_options(T);
+validate_options({formatter, M}|T) when is_atom(M) ->
+ validate_options(T);
+validate_options({formatter_config, C}|T) when is_list(C) ->
+ validate_options(T);
+validate_options({group_leader, L}|T) when is_pid(L) ->
+ validate_options(T);
+validate_options({id, {?MODULE, _}}|T) ->
+ validate_options(T);
+validate_options(H|_) ->
+ throw({error, {fatal, {bad_console_config, H}}}).
+
+get_option(K, Options, Default) ->
+ case lists:keyfind(K, 1, Options) of
+ {K, V} -> V;
+ false -> Default
+ end.
+
+%% @private
+handle_call(get_loglevel, #state{level=Level} = State) ->
+ {ok, Level, State};
+handle_call({set_loglevel, Level}, State) ->
+ try lager_util:config_to_mask(Level) of
+ Levels ->
+ {ok, ok, State#state{level=Levels}}
+ catch
+ _:_ ->
+ {ok, {error, bad_log_level}, State}
+ end;
+handle_call(_Request, State) ->
+ {ok, ok, State}.
+
+%% @private
+handle_event({log, Message},
+ #state{level=L,out=Out,formatter=Formatter,format_config=FormatConfig,colors=Colors,id=ID} = State) ->
+ case lager_util:is_loggable(Message, L, ID) of
+ true ->
+ io:put_chars(Out, Formatter:format(Message,FormatConfig,Colors)),
+ {ok, State};
+ false ->
+ {ok, State}
+ end;
+handle_event(_Event, State) ->
+ {ok, State}.
+
+%% @private
+handle_info({'DOWN', _, process, Out, _}, #state{out=Out}) ->
+ remove_handler;
+handle_info(_Info, State) ->
+ {ok, State}.
+
+%% @private
+terminate(remove_handler, _State=#state{id=ID}) ->
+ %% have to do this asynchronously because we're in the event handlr
+ spawn(fun() -> lager:clear_trace_by_destination(ID) end),
+ ok;
+terminate(_Reason, _State) ->
+ ok.
+
+%% @private
+code_change(_OldVsn, State, _Extra) ->
+ {ok, State}.
+
+eol() ->
+ case application:get_env(lager, colored) of
+ {ok, true} ->
+ "\e0m\r\n";
+ _ ->
+ "\r\n"
+ end.
+
+-ifdef(TEST).
+is_new_style_console_available() ->
+ true.
+-else.
+is_new_style_console_available() ->
+ %% Criteria:
+ %% 1. If the user has specified '-noshell' on the command line,
+ %% then we will pretend that the new-style console is available.
+ %% If there is no shell at all, then we don't have to worry
+ %% about log events being blocked by the old-style shell.
+ %% 2. Windows doesn't support the new shell, so all windows users
+ %% have is the oldshell.
+ %% 3. If the user_drv process is registered, all is OK.
+ %% 'user_drv' is a registered proc name used by the "new"
+ %% console driver.
+ init:get_argument(noshell) /= error orelse
+ element(1, os:type()) /= win32 orelse
+ is_pid(whereis(user_drv)).
+-endif.
+
+-ifdef(TEST).
+console_config_validation_test_() ->
+ Good = {level, info}, {use_stderr, true},
+ Bad1 = {level, foo}, {use_stderr, flase},
+ Bad2 = {level, info}, {use_stderr, flase},
+ AllGood = {level, info}, {formatter, my_formatter},
+ {formatter_config, "blort", "garbage"},
+ {use_stderr, false},
+ 
+ ?_assertEqual(true, validate_options(Good)),
+ ?_assertThrow({error, {fatal, {bad_level, foo}}}, validate_options(Bad1)),
+ ?_assertThrow({error, {fatal, {bad_console_config, {use_stderr, flase}}}}, validate_options(Bad2)),
+ ?_assertEqual(true, validate_options(AllGood))
+ .
+
+console_log_test_() ->
+ %% tiny recursive fun that pretends to be a group leader
+ F = fun(Self) ->
+ fun() ->
+ YComb = fun(Fun) ->
+ receive
+ {io_request, From, ReplyAs, {put_chars, unicode, _Msg}} = Y ->
+ From ! {io_reply, ReplyAs, ok},
+ Self ! Y,
+ Fun(Fun);
+ Other ->
+ ?debugFmt("unexpected message ~p~n", Other),
+ Self ! Other
+ end
+ end,
+ YComb(YComb)
+ end
+ end,
+ {foreach,
+ fun() ->
+ error_logger:tty(false),
+ application:load(lager),
+ application:set_env(lager, handlers, ),
+ application:set_env(lager, error_logger_redirect, false),
+ lager:start(),
+ whereis(user)
+ end,
+ fun(User) ->
+ unregister(user),
+ register(user, User),
+ application:stop(lager),
+ application:stop(goldrush),
+ error_logger:tty(true)
+ end,
+ 
+ {"regular console logging",
+ fun() ->
+ Pid = spawn(F(self())),
+ unregister(user),
+ register(user, Pid),
+ erlang:group_leader(Pid, whereis(lager_event)),
+ gen_event:add_handler(lager_event, lager_console_backend, {level, info}),
+ lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
+ lager:log(info, self(), "Test message"),
+ receive
+ {io_request, From, ReplyAs, {put_chars, unicode, Msg}} ->
+ From ! {io_reply, ReplyAs, ok},
+ TestMsg = "Test message" ++ eol(),
+ ?assertMatch(_, "info", TestMsg, re:split(Msg, " ", {return, list}, {parts, 3}))
+ after
+ 500 ->
+ ?assert(false)
+ end
+ end
+ },
+ {"verbose console logging",
+ fun() ->
+ Pid = spawn(F(self())),
+ unregister(user),
+ register(user, Pid),
+ erlang:group_leader(Pid, whereis(lager_event)),
+ gen_event:add_handler(lager_event, lager_console_backend, info, true),
+ lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
+ lager:info("Test message"),
+ PidStr = pid_to_list(self()),
+ receive
+ {io_request, _, _, {put_chars, unicode, Msg}} ->
+ TestMsg = "Test message" ++ eol(),
+ ?assertMatch(_, _, "info", PidStr, _, TestMsg, re:split(Msg, " @", {return, list}, {parts, 6}))
+ after
+ 500 ->
+ ?assert(false)
+ end
+ end
+ },
+ {"custom format console logging",
+ fun() ->
+ Pid = spawn(F(self())),
+ unregister(user),
+ register(user, Pid),
+ erlang:group_leader(Pid, whereis(lager_event)),
+ gen_event:add_handler(lager_event, lager_console_backend,
+ {level, info}, {formatter, lager_default_formatter}, {formatter_config, date,"#",time,"#",severity,"#",node,"#",pid,"#",
+ module,"#",function,"#",file,"#",line,"#",message,"\r\n"}),
+ lager_config:set({lager_event, loglevel}, {?INFO, }),
+ lager:info("Test message"),
+ PidStr = pid_to_list(self()),
+ NodeStr = atom_to_list(node()),
+ ModuleStr = atom_to_list(?MODULE),
+ receive
+ {io_request, _, _, {put_chars, unicode, Msg}} ->
+ TestMsg = "Test message" ++ eol(),
+ ?assertMatch(_, _, "info", NodeStr, PidStr, ModuleStr, _, _, _, TestMsg,
+ re:split(Msg, "#", {return, list}, {parts, 10}))
+ after
+ 500 ->
+ ?assert(false)
+ end
+ end
+ },
+ {"tracing should work",
+ fun() ->
+ Pid = spawn(F(self())),
+ unregister(user),
+ register(user, Pid),
+ gen_event:add_handler(lager_event, lager_console_backend, {level, info}),
+ erlang:group_leader(Pid, whereis(lager_event)),
+ lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
+ lager:debug("Test message"),
+ receive
+ {io_request, From, ReplyAs, {put_chars, unicode, _Msg}} ->
+ From ! {io_reply, ReplyAs, ok},
+ ?assert(false)
+ after
+ 500 ->
+ ?assert(true)
+ end,
+ {ok, _} = lager:trace_console({module, ?MODULE}),
+ lager:debug("Test message"),
+ receive
+ {io_request, From1, ReplyAs1, {put_chars, unicode, Msg1}} ->
+ From1 ! {io_reply, ReplyAs1, ok},
+ TestMsg = "Test message" ++ eol(),
+ ?assertMatch(_, "debug", TestMsg, re:split(Msg1, " ", {return, list}, {parts, 3}))
+ after
+ 500 ->
+ ?assert(false)
+ end
+ end
+ },
+ {"tracing doesn't duplicate messages",
+ fun() ->
+ Pid = spawn(F(self())),
+ unregister(user),
+ register(user, Pid),
+ gen_event:add_handler(lager_event, lager_console_backend, {level, info}),
+ lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
+ erlang:group_leader(Pid, whereis(lager_event)),
+ lager:debug("Test message"),
+ receive
+ {io_request, From, ReplyAs, {put_chars, unicode, _Msg}} ->
+ From ! {io_reply, ReplyAs, ok},
+ ?assert(false)
+ after
+ 500 ->
+ ?assert(true)
+ end,
+ {ok, _} = lager:trace_console({module, ?MODULE}),
+ lager:error("Test message"),
+ receive
+ {io_request, From1, ReplyAs1, {put_chars, unicode, Msg1}} ->
+ From1 ! {io_reply, ReplyAs1, ok},
+ TestMsg = "Test message" ++ eol(),
+ ?assertMatch(_, "error", TestMsg, re:split(Msg1, " ", {return, list}, {parts, 3}))
+ after
+ 1000 ->
+ ?assert(false)
+ end,
+ %% make sure this event wasn't duplicated
+ receive
+ {io_request, From2, ReplyAs2, {put_chars, unicode, _Msg2}} ->
+ From2 ! {io_reply, ReplyAs2, ok},
+ ?assert(false)
+ after
+ 500 ->
+ ?assert(true)
+ end
+ end
+ },
+ {"blacklisting a loglevel works",
+ fun() ->
+ Pid = spawn(F(self())),
+ unregister(user),
+ register(user, Pid),
+ gen_event:add_handler(lager_event, lager_console_backend, {level, info}),
+ lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
+ lager:set_loglevel(lager_console_backend, '!=info'),
+ erlang:group_leader(Pid, whereis(lager_event)),
+ lager:debug("Test message"),
+ receive
+ {io_request, From1, ReplyAs1, {put_chars, unicode, Msg1}} ->
+ From1 ! {io_reply, ReplyAs1, ok},
+ TestMsg = "Test message" ++ eol(),
+ ?assertMatch(_, "debug", TestMsg, re:split(Msg1, " ", {return, list}, {parts, 3}))
+ after
+ 1000 ->
+ ?assert(false)
+ end,
+ %% info is blacklisted
+ lager:info("Test message"),
+ receive
+ {io_request, From2, ReplyAs2, {put_chars, unicode, _Msg2}} ->
+ From2 ! {io_reply, ReplyAs2, ok},
+ ?assert(false)
+ after
+ 500 ->
+ ?assert(true)
+ end
+ end
+ },
+ {"whitelisting a loglevel works",
+ fun() ->
+ Pid = spawn(F(self())),
+ unregister(user),
+ register(user, Pid),
+ gen_event:add_handler(lager_event, lager_console_backend, {level, info}),
+ lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
+ lager:set_loglevel(lager_console_backend, '=debug'),
+ erlang:group_leader(Pid, whereis(lager_event)),
+ lager:debug("Test message"),
+ receive
+ {io_request, From1, ReplyAs1, {put_chars, unicode, Msg1}} ->
+ From1 ! {io_reply, ReplyAs1, ok},
+ TestMsg = "Test message" ++ eol(),
+ ?assertMatch(_, "debug", TestMsg, re:split(Msg1, " ", {return, list}, {parts, 3}))
+ after
+ 1000 ->
+ ?assert(false)
+ end,
+ %% info is blacklisted
+ lager:error("Test message"),
+ receive
+ {io_request, From2, ReplyAs2, {put_chars, unicode, _Msg2}} ->
+ From2 ! {io_reply, ReplyAs2, ok},
+ ?assert(false)
+ after
+ 500 ->
+ ?assert(true)
+ end
+ end
+ },
+ {"console backend with custom group leader",
+ fun() ->
+ Pid = spawn(F(self())),
+ gen_event:add_handler(lager_event, lager_console_backend, {level, info}, {group_leader, Pid}),
+ lager_config:set({lager_event, loglevel}, {element(2, lager_util:config_to_mask(info)), }),
+ lager:info("Test message"),
+ ?assertNotEqual({group_leader, Pid}, erlang:process_info(whereis(lager_event), group_leader)),
+ receive
+ {io_request, From1, ReplyAs1, {put_chars, unicode, Msg1}} ->
+ From1 ! {io_reply, ReplyAs1, ok},
+ TestMsg = "Test message" ++ eol(),
+ ?assertMatch(_, "info", TestMsg, re:split(Msg1, " ", {return, list}, {parts, 3}))
+ after
+ 1000 ->
+ ?assert(false)
+ end,
+ %% killing the pid should prevent any new log messages (to prove we haven't accidentally redirected
+ %% the group leader some other way
+ exit(Pid, kill),
+ timer:sleep(100),
+ %% additionally, check the lager backend has been removed (because the group leader process died)
+ ?assertNot(lists:member(lager_console_backend, gen_event:which_handlers(lager_event))),
+ lager:error("Test message"),
+ receive
+ {io_request, From2, ReplyAs2, {put_chars, unicode, _Msg2}} ->
+ From2 ! {io_reply, ReplyAs2, ok},
+ ?assert(false)
+ after
+ 500 ->
+ ?assert(true)
+ end
+ end
+ },
+ {"console backend with custom group leader using a trace and an ID",
+ fun() ->
+ Pid = spawn(F(self())),
+ ID = {?MODULE, trace_test},
+ Handlers = lager_config:global_get(handlers, ),
+ HandlerInfo = lager_app:start_handler(lager_event, ID,
+ {level, none}, {group_leader, Pid},
+ {id, ID}),
+ lager_config:global_set(handlers, HandlerInfo|Handlers),
+ lager:info("Test message"),
+ ?assertNotEqual({group_leader, Pid}, erlang:process_info(whereis(lager_event), group_leader)),
+ receive
+ {io_request, From, ReplyAs, {put_chars, unicode, _Msg}} ->
+ From ! {io_reply, ReplyAs, ok},
+ ?assert(false)
+ after
+ 500 ->
+ ?assert(true)
+ end,
+ lager:trace(ID, {module, ?MODULE}, debug),
+ lager:info("Test message"),
+ receive
+ {io_request, From1, ReplyAs1, {put_chars, unicode, Msg1}} ->
+ From1 ! {io_reply, ReplyAs1, ok},
+ TestMsg = "Test message" ++ eol(),
+ ?assertMatch(_, "info", TestMsg, re:split(Msg1, " ", {return, list}, {parts, 3}))
+ after
+ 500 ->
+ ?assert(false)
+ end,
+ ?assertNotEqual({0, }, lager_config:get({lager_event, loglevel})),
+ %% killing the pid should prevent any new log messages (to prove we haven't accidentally redirected
+ %% the group leader some other way
+ exit(Pid, kill),
+ timer:sleep(100),
+ %% additionally, check the lager backend has been removed (because the group leader process died)
+ ?assertNot(lists:member(lager_console_backend, gen_event:which_handlers(lager_event))),
+ %% finally, check the trace has been removed
+ ?assertEqual({0, }, lager_config:get({lager_event, loglevel})),
+ lager:error("Test message"),
+ receive
+ {io_request, From3, ReplyAs3, {put_chars, unicode, _Msg3}} ->
+ From3 ! {io_reply, ReplyAs3, ok},
+ ?assert(false)
+ after
+ 500 ->
+ ?assert(true)
+ end
+ end
+ }
+ 
+ }.
+
+set_loglevel_test_() ->
+ {foreach,
+ fun() ->
+ error_logger:tty(false),
+ application:load(lager),
+ application:set_env(lager, handlers, {lager_console_backend, {level, info}}),
+ application:set_env(lager, error_logger_redirect, false),
+ lager:start()
+ end,
+ fun(_) ->
+ application:stop(lager),
+ application:stop(goldrush),
+ error_logger:tty(true)
+ end,
+ 
+ {"Get/set loglevel test",
+ fun() ->
+ ?assertEqual(info, lager:get_loglevel(lager_console_backend)),
+ lager:set_loglevel(lager_console_backend, debug),
+ ?assertEqual(debug, lager:get_loglevel(lager_console_backend)),
+ lager:set_loglevel(lager_console_backend, '!=debug'),
+ ?assertEqual(info, lager:get_loglevel(lager_console_backend)),
+ lager:set_loglevel(lager_console_backend, '!=info'),
+ ?assertEqual(debug, lager:get_loglevel(lager_console_backend)),
+ ok
+ end
+ },
+ {"Get/set invalid loglevel test",
+ fun() ->
+ ?assertEqual(info, lager:get_loglevel(lager_console_backend)),
+ ?assertEqual({error, bad_log_level},
+ lager:set_loglevel(lager_console_backend, fatfinger)),
+ ?assertEqual(info, lager:get_loglevel(lager_console_backend))
+ end
+ }
+
+ 
+ }.
+
+-endif.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_crash_log.erl Added

@@ -0,0 +1,382 @@
+%% -------------------------------------------------------------------
+%%
+%% Copyright (c) 2011-2017 Basho Technologies, Inc.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+%%
+%% -------------------------------------------------------------------
+
+%% @doc Lager crash log writer. This module implements a gen_server which writes
+%% error_logger error messages out to a file in their original format. The
+%% location to which it logs is configured by the application var `crash_log'.
+%% Omitting this variable disables crash logging. Crash logs are printed safely
+%% using trunc_io via code mostly lifted from riak_err.
+%%
+%% The `crash_log_msg_size' application var is used to specify the maximum
+%% size of any message to be logged. `crash_log_size' is used to specify the
+%% maximum size of the crash log before it will be rotated (0 will disable).
+%% Time based rotation is configurable via `crash_log_date', the syntax is
+%% documented in the README. To control the number of rotated files to be
+%% retained, use `crash_log_count'.
+
+-module(lager_crash_log).
+
+-include("lager.hrl").
+
+-behaviour(gen_server).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-include_lib("kernel/include/file.hrl").
+-endif.
+
+%% callbacks
+-export(init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2,
+ code_change/3).
+
+-export(start_link/6, start/6).
+
+-record(state, {
+ name :: string(),
+ fd :: pid() | undefined,
+ inode :: integer() | undefined,
+ ctime :: file:date_time() | undefined,
+ fmtmaxbytes :: integer(),
+ size :: integer(),
+ date :: undefined | string(),
+ count :: integer(),
+ flap=false :: boolean(),
+ rotator :: atom()
+}).
+
+%% @private
+start_link(Filename, MaxBytes, Size, Date, Count, Rotator) ->
+ gen_server:start_link({local, ?MODULE}, ?MODULE, Filename, MaxBytes,
+ Size, Date, Count, Rotator, ).
+
+%% @private
+start(Filename, MaxBytes, Size, Date, Count, Rotator) ->
+ gen_server:start({local, ?MODULE}, ?MODULE, Filename, MaxBytes, Size,
+ Date, Count, Rotator, ).
+
+%% @private
+init(RelFilename, MaxBytes, Size, Date, Count, Rotator) ->
+ Filename = lager_util:expand_path(RelFilename),
+ case Rotator:open_logfile(Filename, false) of
+ {ok, {FD, Inode, Ctime, _Size}} ->
+ schedule_rotation(Date),
+ {ok, #state{name=Filename, fd=FD, inode=Inode, ctime=Ctime,
+ fmtmaxbytes=MaxBytes, size=Size, count=Count, date=Date,
+ rotator=Rotator}};
+ {error, Reason} ->
+ ?INT_LOG(error, "Failed to open crash log file ~ts with error: ~s",
+ Filename, file:format_error(Reason)),
+ {ok, #state{name=Filename, fmtmaxbytes=MaxBytes, flap=true,
+ size=Size, count=Count, date=Date, rotator=Rotator}}
+ end.
+
+%% @private
+handle_call({log, _} = Log, _From, State) ->
+ {Reply, NewState} = do_log(Log, State),
+ {reply, Reply, NewState};
+handle_call(_Call, _From, State) ->
+ {reply, ok, State}.
+
+%% @private
+handle_cast({log, _} = Log, State) ->
+ {_, NewState} = do_log(Log, State),
+ {noreply, NewState};
+handle_cast(_Request, State) ->
+ {noreply, State}.
+
+%% @private
+handle_info(rotate, #state{name=Name, count=Count, date=Date, rotator=Rotator} = State) ->
+ _ = Rotator:rotate_logfile(Name, Count),
+ schedule_rotation(Date),
+ {noreply, State};
+handle_info(_Info, State) ->
+ {noreply, State}.
+
+%% @private
+terminate(_Reason, _State) ->
+ ok.
+
+%% @private
+code_change(_OldVsn, State, _Extra) ->
+ {ok, State}.
+
+schedule_rotation(undefined) ->
+ ok;
+schedule_rotation(Date) ->
+ erlang:send_after(lager_util:calculate_next_rotation(Date) * 1000, self(), rotate),
+ ok.
+
+%% ===== Begin code lifted from riak_err =====
+
+-spec limited_fmt(string(), list(), integer()) -> iolist().
+%% @doc Format Fmt and Args similar to what io_lib:format/2 does but with
+%% limits on how large the formatted string may be.
+%%
+%% If the Args list's size is larger than TermMaxSize, then the
+%% formatting is done by trunc_io:print/2, where FmtMaxBytes is used
+%% to limit the formatted string's size.
+
+limited_fmt(Fmt, Args, FmtMaxBytes) ->
+ lager:safe_format(Fmt, Args, FmtMaxBytes).
+
+limited_str(Term, FmtMaxBytes) ->
+ {Str, _} = lager_trunc_io:print(Term, FmtMaxBytes),
+ Str.
+
+other_node_suffix(Pid) when node(Pid) =/= node() ->
+ "** at node " ++ atom_to_list(node(Pid)) ++ " **\n";
+other_node_suffix(_) ->
+ "".
+
+perhaps_a_sasl_report(error_report, {Pid, Type, Report}, FmtMaxBytes) ->
+ case lager_stdlib:is_my_error_report(Type) of
+ true ->
+ {sasl_type_to_report_head(Type), Pid,
+ sasl_limited_str(Type, Report, FmtMaxBytes), true};
+ false ->
+ {ignore, ignore, ignore, false}
+ end;
+%perhaps_a_sasl_report(info_report, {Pid, Type, Report}, FmtMaxBytes) ->
+ %case lager_stdlib:is_my_info_report(Type) of
+ %true ->
+ %{sasl_type_to_report_head(Type), Pid,
+ %sasl_limited_str(Type, Report, FmtMaxBytes), false};
+ %false ->
+ %{ignore, ignore, ignore, false}
+ %end;
+perhaps_a_sasl_report(_, _, _) ->
+ {ignore, ignore, ignore, false}.
+
+sasl_type_to_report_head(supervisor_report) ->
+ "SUPERVISOR REPORT";
+sasl_type_to_report_head(crash_report) ->
+ "CRASH REPORT";
+sasl_type_to_report_head(progress) ->
+ "PROGRESS REPORT".
+
+sasl_limited_str(supervisor_report, Report, FmtMaxBytes) ->
+ Name = lager_stdlib:sup_get(supervisor, Report),
+ Context = lager_stdlib:sup_get(errorContext, Report),
+ Reason = lager_stdlib:sup_get(reason, Report),
+ Offender = lager_stdlib:sup_get(offender, Report),
+ FmtString = " Supervisor: ~p~n Context: ~p~n Reason: "
+ "~s~n Offender: ~s~n~n",
+ {ReasonStr, _} = lager_trunc_io:print(Reason, FmtMaxBytes),
+ {OffenderStr, _} = lager_trunc_io:print(Offender, FmtMaxBytes),
+ io_lib:format(FmtString, Name, Context, ReasonStr, OffenderStr);
+sasl_limited_str(progress, Report, FmtMaxBytes) ->
+ begin
+ {Str, _} = lager_trunc_io:print(Data, FmtMaxBytes),
+ io_lib:format(" ~16w: ~s~n", Tag, Str)
+ end || {Tag, Data} <- Report;
+sasl_limited_str(crash_report, Report, FmtMaxBytes) ->
+ lager_stdlib:proc_lib_format(Report, FmtMaxBytes).
+
+do_log({log, Event}, #state{name=Name, fd=FD, inode=Inode, ctime=Ctime, flap=Flap,
+ fmtmaxbytes=FmtMaxBytes, size=RotSize, count=Count, rotator=Rotator} = State) ->
+ %% borrowed from riak_err
+ {ReportStr, Pid, MsgStr, _ErrorP} = case Event of
+ {error, _GL, {Pid1, Fmt, Args}} ->
+ {"ERROR REPORT", Pid1, limited_fmt(Fmt, Args, FmtMaxBytes), true};
+ {error_report, _GL, {Pid1, std_error, Rep}} ->
+ {"ERROR REPORT", Pid1, limited_str(Rep, FmtMaxBytes) ++ "\n", true};
+ {error_report, _GL, Other} ->
+ perhaps_a_sasl_report(error_report, Other, FmtMaxBytes);
+ _ ->
+ {ignore, ignore, ignore, false}
+ end,
+ if ReportStr == ignore ->
+ {ok, State};
+ true ->
+ case Rotator:ensure_logfile(Name, FD, Inode, Ctime, false) of
+ {ok, {_FD, _Inode, _Ctime, Size}} when RotSize /= 0, Size > RotSize ->
+ _ = Rotator:rotate_logfile(Name, Count),
+ handle_cast({log, Event}, State);
+ {ok, {NewFD, NewInode, NewCtime, _Size}} ->
+ {Date, TS} = lager_util:format_time(
+ lager_stdlib:maybe_utc(erlang:localtime())),
+ Time = Date, " ", TS," =", ReportStr, "====\n",
+ NodeSuffix = other_node_suffix(Pid),
+ Msg = io_lib:format("~s~s~s", Time, MsgStr, NodeSuffix),
+ case file:write(NewFD, unicode:characters_to_binary(Msg)) of
+ {error, Reason} when Flap == false ->
+ ?INT_LOG(error, "Failed to write log message to file ~ts: ~s",
+ Name, file:format_error(Reason)),
+ {ok, State#state{fd=NewFD, inode=NewInode, ctime=NewCtime, flap=true}};
+ ok ->
+ {ok, State#state{fd=NewFD, inode=NewInode, ctime=NewCtime, flap=false}};
+ _ ->
+ {ok, State#state{fd=NewFD, inode=NewInode, ctime=NewCtime}}
+ end;
+ {error, Reason} ->
+ case Flap of
+ true ->
+ {ok, State};
+ _ ->
+ ?INT_LOG(error, "Failed to reopen crash log ~ts with error: ~s",
+ Name, file:format_error(Reason)),
+ {ok, State#state{flap=true}}
+ end
+ end
+ end.
+
+
+-ifdef(TEST).
+
+filesystem_test_() ->
+ {foreach,
+ fun() ->
+ {ok, TestDir} = lager_util:create_test_dir(),
+ CrashLog = filename:join(TestDir, "crash_test.log"),
+ ok = lager_util:safe_write_file(CrashLog, ),
+ ok = error_logger:tty(false),
+ ok = lager_util:safe_application_load(lager),
+ ok = application:set_env(lager, handlers, {lager_test_backend, info}),
+ ok = application:set_env(lager, error_logger_redirect, true),
+ ok = application:unset_env(lager, crash_log),
+ ok = lager:start(),
+ ok = timer:sleep(1000),
+ ok = lager_test_backend:flush(),
+ CrashLog
+ end,
+ fun(_CrashLog) ->
+ case whereis(lager_crash_log) of
+ P when is_pid(P) ->
+ gen_server:stop(P);
+ _ ->
+ ok
+ end,
+ ok = application:stop(lager),
+ ok = application:stop(goldrush),
+ ok = lager_util:delete_test_dir(),
+ ok = error_logger:tty(true)
+ end, 
+ fun(CrashLog) ->
+ {"under normal circumstances, file should be opened",
+ fun() ->
+ {ok, _} = ?MODULE:start_link(CrashLog, 65535, 0, undefined, 0, lager_rotator_default),
+ _ = gen_event:which_handlers(error_logger),
+ sync_error_logger:error_msg("Test message\n"),
+ {ok, Bin} = file:read_file(CrashLog),
+ ?assertMatch(_, "Test message\n", re:split(Bin, "\n", {return, list}, {parts, 2}))
+ end}
+ end,
+ fun(CrashLog) ->
+ {"file can't be opened on startup triggers an error message",
+ fun() ->
+ {ok, FInfo0} = file:read_file_info(CrashLog, raw),
+ FInfo1 = FInfo0#file_info{mode = 0},
+ ?assertEqual(ok, file:write_file_info(CrashLog, FInfo1)),
+ {ok, _} = ?MODULE:start_link(CrashLog, 65535, 0, undefined, 0, lager_rotator_default),
+ % Note: required on win32, do this early to prevent subsequent failures
+ % from preventing cleanup
+ ?assertEqual(ok, file:write_file_info(CrashLog, FInfo0)),
+ ?assertEqual(1, lager_test_backend:count()),
+ {_Level, _Time, Message,_Metadata} = lager_test_backend:pop(),
+ ?assertEqual(
+ "Failed to open crash log file " ++ CrashLog ++ " with error: permission denied",
+ lists:flatten(Message))
+ end}
+ end,
+ fun(CrashLog) ->
+ {"file that becomes unavailable at runtime should trigger an error message",
+ fun() ->
+ case os:type() of
+ {win32, _} ->
+ % Note: test is skipped on win32 due to the fact that a file can't be deleted or renamed
+ % while a process has an open file handle referencing it
+ ok;
+ _ ->
+ {ok, _} = ?MODULE:start_link(CrashLog, 65535, 0, undefined, 0, lager_rotator_default),
+ ?assertEqual(0, lager_test_backend:count()),
+ sync_error_logger:error_msg("Test message\n"),
+ _ = gen_event:which_handlers(error_logger),
+ ?assertEqual(1, lager_test_backend:count()),
+ ?assertEqual(ok, file:delete(CrashLog)),
+ ?assertEqual(ok, lager_util:safe_write_file(CrashLog, "")),
+ {ok, FInfo0} = file:read_file_info(CrashLog, raw),
+ FInfo1 = FInfo0#file_info{mode = 0},
+ ?assertEqual(ok, file:write_file_info(CrashLog, FInfo1)),
+ sync_error_logger:error_msg("Test message\n"),
+ _ = gen_event:which_handlers(error_logger),
+ % Note: required on win32, do this early to prevent subsequent failures
+ % from preventing cleanup
+ ?assertEqual(ok, file:write_file_info(CrashLog, FInfo0)),
+ ?assertEqual(3, lager_test_backend:count()),
+ lager_test_backend:pop(),
+ {_Level, _Time, Message,_Metadata} = lager_test_backend:pop(),
+ ?assertEqual(
+ "Failed to reopen crash log " ++ CrashLog ++ " with error: permission denied",
+ lists:flatten(Message))
+ end
+ end}
+ end,
+ fun(CrashLog) ->
+ {"unavailable files that are fixed at runtime should start having log messages written",
+ fun() ->
+ {ok, FInfo} = file:read_file_info(CrashLog, raw),
+ OldPerms = FInfo#file_info.mode,
+ file:write_file_info(CrashLog, FInfo#file_info{mode = 0}),
+ {ok, _} = ?MODULE:start_link(CrashLog, 65535, 0, undefined, 0, lager_rotator_default),
+ ?assertEqual(1, lager_test_backend:count()),
+ {_Level, _Time, Message,_Metadata} = lager_test_backend:pop(),
+ ?assertEqual(
+ "Failed to open crash log file " ++ CrashLog ++ " with error: permission denied",
+ lists:flatten(Message)),
+ file:write_file_info(CrashLog, FInfo#file_info{mode = OldPerms}),
+ sync_error_logger:error_msg("Test message~n"),
+ _ = gen_event:which_handlers(error_logger),
+ {ok, Bin} = file:read_file(CrashLog),
+ ?assertMatch(_, "Test message\n", re:split(Bin, "\n", {return, list}, {parts, 2}))
+ end}
+ end,
+ fun(CrashLog) ->
+ {"external logfile rotation/deletion should be handled",
+ fun() ->
+ case os:type() of
+ {win32, _} ->
+ % Note: test is skipped on win32 due to the fact that a file can't be deleted or renamed
+ % while a process has an open file handle referencing it
+ ok;
+ _ ->
+ {ok, _} = ?MODULE:start_link(CrashLog, 65535, 0, undefined, 0, lager_rotator_default),
+ ?assertEqual(0, lager_test_backend:count()),
+ sync_error_logger:error_msg("Test message~n"),
+ _ = gen_event:which_handlers(error_logger),
+ {ok, Bin} = file:read_file(CrashLog),
+ ?assertMatch(_, "Test message\n", re:split(Bin, "\n", {return, list}, {parts, 2})),
+ ?assertEqual(ok, file:delete(CrashLog)),
+ ?assertEqual(ok, lager_util:safe_write_file(CrashLog, "")),
+ sync_error_logger:error_msg("Test message1~n"),
+ _ = gen_event:which_handlers(error_logger),
+ {ok, Bin1} = file:read_file(CrashLog),
+ ?assertMatch(_, "Test message1\n", re:split(Bin1, "\n", {return, list}, {parts, 2})),
+ file:rename(CrashLog, CrashLog ++ ".0"),
+ sync_error_logger:error_msg("Test message2~n"),
+ _ = gen_event:which_handlers(error_logger),
+ {ok, Bin2} = file:read_file(CrashLog),
+ ?assertMatch(_, "Test message2\n", re:split(Bin2, "\n", {return, list}, {parts, 2}))
+ end
+ end}
+ end
+ }.
+
+-endif.
+

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_default_formatter.erl Added

@@ -0,0 +1,571 @@
+%% Copyright (c) 2011-2012 Basho Technologies, Inc. All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+-module(lager_default_formatter).
+
+%%
+%% Include files
+%%
+-include("lager.hrl").
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+
+%%
+%% Exported Functions
+%%
+-export(format/2, format/3).
+
+%%
+%% API Functions
+%%
+
+%% @doc Provides a generic, default formatting for log messages using a semi-iolist as configuration. Any iolist allowed
+%% elements in the configuration are printed verbatim. Atoms in the configuration are treated as metadata properties
+%% and extracted from the log message. Optionally, a tuple of {atom(),semi-iolist()} can be used. The atom will look
+%% up the property, but if not found it will use the semi-iolist() instead. These fallbacks can be similarly nested
+%% or refer to other properties, if desired. You can also use a {atom, semi-iolist(), semi-iolist()} formatter, which
+%% acts like a ternary operator's true/false branches.
+%%
+%% The metadata properties date,time, message, severity, and sev will always exist. 
+%% The properties pid, file, line, module, and function will always exist if the parser transform is used.
+%%
+%% Example:
+%%
+%% `"Foo"' -> "Foo", regardless of message content.
+%%
+%% `message' -> The content of the logged message, alone.
+%%
+%% `{pid,"Unknown Pid"}' -> "?.?.?" if pid is in the metadata, "Unknown Pid" if not.
+%%
+%% `{pid, "My pid is ", pid, "Unknown Pid"}' -> if pid is in the metada print "My pid is ?.?.?", otherwise print "Unknown Pid"
+%% @end
+-spec format(lager_msg:lager_msg(),list(),list()) -> any().
+format(Msg,, Colors) ->
+ format(Msg, {eol, "\n"}, Colors);
+format(Msg,{eol, EOL}, Colors) ->
+ Config = case application:get_env(lager, metadata_whitelist) of
+ undefined -> config(EOL, );
+ {ok, Whitelist} -> config(EOL, Whitelist)
+ end,
+ format(Msg, Config, Colors);
+format(Message,Config,Colors) ->
+ case V of
+ color -> output_color(Message,Colors);
+ _ -> output(V,Message) 
+ end || V <- Config .
+
+-spec format(lager_msg:lager_msg(),list()) -> any().
+format(Msg, Config) ->
+ format(Msg, Config, ).
+
+-spec output(term(),lager_msg:lager_msg()) -> iolist().
+output(message,Msg) -> lager_msg:message(Msg);
+output(date,Msg) ->
+ {D, _T} = lager_msg:datetime(Msg),
+ D;
+output(time,Msg) ->
+ {_D, T} = lager_msg:datetime(Msg),
+ T;
+output(severity,Msg) ->
+ atom_to_list(lager_msg:severity(Msg));
+output(severity_upper, Msg) ->
+ uppercase_severity(lager_msg:severity(Msg));
+output(blank,_Msg) ->
+ output({blank," "},_Msg);
+output(node, _Msg) ->
+ output({node, atom_to_list(node())},_Msg);
+output({blank,Fill},_Msg) ->
+ Fill;
+output(sev,Msg) ->
+ %% Write brief acronym for the severity level (e.g. debug -> $D)
+ lager_util:level_to_chr(lager_msg:severity(Msg));
+output(metadata, Msg) ->
+ output({metadata, "=", " "}, Msg);
+output({metadata, IntSep, FieldSep}, Msg) ->
+ MD = lists:keysort(1, lager_msg:metadata(Msg)),
+ string:join(io_lib:format("~s~s~p", K, IntSep, V) || {K, V} <- MD, FieldSep);
+output({pterm, Key}, Msg) ->
+ output({pterm, Key, ""}, Msg);
+output({pterm, Key, Default}, _Msg) ->
+ make_printable(maybe_get_persistent_term(Key, Default));
+output(Prop,Msg) when is_atom(Prop) ->
+ Metadata = lager_msg:metadata(Msg),
+ make_printable(get_metadata(Prop,Metadata,<<"Undefined">>));
+output({Prop,Default},Msg) when is_atom(Prop) ->
+ Metadata = lager_msg:metadata(Msg),
+ make_printable(get_metadata(Prop,Metadata,output(Default,Msg)));
+output({Prop, Present, Absent}, Msg) when is_atom(Prop) ->
+ %% sort of like a poor man's ternary operator
+ Metadata = lager_msg:metadata(Msg),
+ case get_metadata(Prop, Metadata) of
+ undefined ->
+ output(V, Msg) || V <- Absent;
+ _ ->
+ output(V, Msg) || V <- Present
+ end;
+output({Prop, Present, Absent, Width}, Msg) when is_atom(Prop) ->
+ %% sort of like a poor man's ternary operator
+ Metadata = lager_msg:metadata(Msg),
+ case get_metadata(Prop, Metadata) of
+ undefined ->
+ output(V, Msg, Width) || V <- Absent;
+ _ ->
+ output(V, Msg, Width) || V <- Present
+ end;
+output(Other,_) -> make_printable(Other).
+
+output(message, Msg, _Width) -> lager_msg:message(Msg);
+output(date,Msg, _Width) ->
+ {D, _T} = lager_msg:datetime(Msg),
+ D;
+output(time, Msg, _Width) ->
+ {_D, T} = lager_msg:datetime(Msg),
+ T;
+output(severity, Msg, Width) ->
+ make_printable(atom_to_list(lager_msg:severity(Msg)), Width);
+output(sev,Msg, _Width) ->
+ %% Write brief acronym for the severity level (e.g. debug -> $D)
+ lager_util:level_to_chr(lager_msg:severity(Msg));
+output(node, Msg, _Width) ->
+ output({node, atom_to_list(node())}, Msg, _Width);
+output(blank,_Msg, _Width) ->
+ output({blank, " "},_Msg, _Width);
+output({blank, Fill},_Msg, _Width) ->
+ Fill;
+output(metadata, Msg, _Width) ->
+ output({metadata, "=", " "}, Msg, _Width);
+output({metadata, IntSep, FieldSep}, Msg, _Width) ->
+ MD = lists:keysort(1, lager_msg:metadata(Msg)),
+ string:join(io_lib:format("~s~s~p", K, IntSep, V) || {K, V} <- MD, FieldSep);
+output({pterm, Key}, Msg, Width) ->
+ output({pterm, Key, ""}, Msg, Width);
+output({pterm, Key, Default}, _Msg, _Width) ->
+ make_printable(maybe_get_persistent_term(Key, Default));
+
+output(Prop, Msg, Width) when is_atom(Prop) ->
+ Metadata = lager_msg:metadata(Msg),
+ make_printable(get_metadata(Prop,Metadata,<<"Undefined">>), Width);
+output({Prop,Default},Msg, Width) when is_atom(Prop) ->
+ Metadata = lager_msg:metadata(Msg),
+ make_printable(get_metadata(Prop,Metadata,output(Default,Msg)), Width);
+output(Other,_, Width) -> make_printable(Other, Width).
+
+output_color(_Msg,) -> ;
+output_color(Msg,Colors) ->
+ Level = lager_msg:severity(Msg),
+ case lists:keyfind(Level, 1, Colors) of
+ {_, Color} -> Color;
+ _ -> 
+ end.
+
+-spec make_printable(any()) -> iolist().
+make_printable(A) when is_atom(A) -> atom_to_list(A);
+make_printable(P) when is_pid(P) -> pid_to_list(P);
+make_printable(L) when is_list(L) orelse is_binary(L) -> L; 
+make_printable(Other) -> io_lib:format("~p",Other).
+
+make_printable(A,W) when is_integer(W)-> string:left(make_printable(A),W);
+make_printable(A,{Align,W}) when is_integer(W) ->
+ case Align of
+ left ->
+ string:left(make_printable(A),W);
+ centre ->
+ string:centre(make_printable(A),W);
+ right ->
+ string:right(make_printable(A),W);
+ _ ->
+ string:left(make_printable(A),W)
+ end;
+
+make_printable(A,_W) -> make_printable(A).
+
+%% persistent term was introduced in OTP 21.2, so
+%% if we're running on an older OTP, just return the
+%% default value.
+-ifdef(OTP_RELEASE).
+maybe_get_persistent_term(Key, Default) ->
+ try
+ persistent_term:get(Key, Default)
+ catch
+ _:undef -> Default
+ end.
+-else.
+maybe_get_persistent_term(_Key, Default) -> Default.
+-endif.
+
+run_function(Function, Default) ->
+ try Function() of
+ Result ->
+ Result
+ catch
+ _:_ ->
+ Default
+ end.
+
+get_metadata(Key, Metadata) ->
+ get_metadata(Key, Metadata, undefined).
+
+get_metadata(Key, Metadata, Default) ->
+ case lists:keyfind(Key, 1, Metadata) of
+ false ->
+ Default;
+ {Key, Value} when is_function(Value) ->
+ run_function(Value, Default);
+ {Key, Value} ->
+ Value
+ end.
+
+config(EOL, ) ->
+ 
+ date, " ", time, " ", color, "", severity, " ",
+ {pid, ""},
+ {module, 
+ {pid, "@", ""},
+ module,
+ {function, ":", function, ""},
+ {line, ":",line, ""}, ""},
+ " ", message, EOL
+ ;
+config(EOL, MetaWhitelist) ->
+ 
+ date, " ", time, " ", color, "", severity, " ",
+ {pid, ""},
+ {module, 
+ {pid, "@", ""},
+ module,
+ {function, ":", function, ""},
+ {line, ":",line, ""}, ""},
+ " "
+ ++
+ {M, atom_to_list(M), "=", M, " ", ""}|| M <- MetaWhitelist ++
+ message, EOL.
+
+
+
+uppercase_severity(debug) -> "DEBUG";
+uppercase_severity(info) -> "INFO";
+uppercase_severity(notice) -> "NOTICE";
+uppercase_severity(warning) -> "WARNING";
+uppercase_severity(error) -> "ERROR";
+uppercase_severity(critical) -> "CRITICAL";
+uppercase_severity(alert) -> "ALERT";
+uppercase_severity(emergency) -> "EMERGENCY".
+
+-ifdef(TEST).
+date_time_now() ->
+ Now = os:timestamp(),
+ {Date, Time} = lager_util:format_time(lager_util:maybe_utc(lager_util:localtime_ms(Now))),
+ {Date, Time, Now}.
+
+basic_test_() ->
+ {Date, Time, Now} = date_time_now(),
+ {"Default formatting test",
+ ?_assertEqual(iolist_to_binary(Date, " ", Time, " error ", pid_to_list(self()), " Message\n"),
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ error,
+ {pid, self()},
+ ),
+ )))
+ },
+ {"Basic Formatting",
+ ?_assertEqual(<<"Simplist Format">>,
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ error,
+ {pid, self()},
+ ),
+ "Simplist Format")))
+ },
+ {"Default equivalent formatting test",
+ ?_assertEqual(iolist_to_binary(Date, " ", Time, " error ", pid_to_list(self()), " Message\n"),
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ error,
+ {pid, self()},
+ ),
+ date, " ", time," ",severity," ",pid, " ", message, "\n"
+ )))
+ },
+ {"Non existent metadata can default to string",
+ ?_assertEqual(iolist_to_binary(Date, " ", Time, " error Fallback Message\n"),
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ error,
+ {pid, self()},
+ ),
+ date, " ", time," ",severity," ",{does_not_exist,"Fallback"}, " ", message, "\n"
+ )))
+ },
+ {"Non existent metadata can default to other metadata",
+ ?_assertEqual(iolist_to_binary(Date, " ", Time, " error Fallback Message\n"),
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ error,
+ {pid, "Fallback"},
+ ),
+ date, " ", time," ",severity," ",{does_not_exist,pid}, " ", message, "\n"
+ )))
+ },
+ {"Non existent metadata can default to a string2",
+ ?_assertEqual(iolist_to_binary("Unknown Pid"),
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ error,
+ ,
+ ),
+ {pid, "My pid is ", pid, "Unknown Pid"}
+ )))
+ },
+ {"Metadata can have extra formatting",
+ ?_assertEqual(iolist_to_binary("My pid is hello"),
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ error,
+ {pid, hello},
+ ),
+ {pid, "My pid is ", pid, "Unknown Pid"}
+ )))
+ },
+ {"Metadata can have extra formatting1",
+ ?_assertEqual(iolist_to_binary("servername"),
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ error,
+ {pid, hello}, {server, servername},
+ ),
+ {server,{pid, "(", pid, ")", "(Unknown Server)"}}
+ )))
+ },
+ {"Metadata can have extra formatting2",
+ ?_assertEqual(iolist_to_binary("(hello)"),
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ error,
+ {pid, hello},
+ ),
+ {server,{pid, "(", pid, ")", "(Unknown Server)"}}
+ )))
+ },
+ {"Metadata can have extra formatting3",
+ ?_assertEqual(iolist_to_binary("(Unknown Server)"),
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ error,
+ ,
+ ),
+ {server,{pid, "(", pid, ")", "(Unknown Server)"}}
+ )))
+ },
+ {"Metadata can be printed in its enterity",
+ ?_assertEqual(iolist_to_binary("bar=2 baz=3 foo=1"),
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ error,
+ {foo, 1}, {bar, 2}, {baz, 3},
+ ),
+ metadata
+ )))
+ },
+ {"Metadata can be printed in its enterity with custom seperators",
+ ?_assertEqual(iolist_to_binary("bar->2, baz->3, foo->1"),
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ error,
+ {foo, 1}, {bar, 2}, {baz, 3},
+ ),
+ {metadata, "->", ", "}
+ )))
+ },
+ {"Metadata can have extra formatting with width 1",
+ ?_assertEqual(iolist_to_binary("(hello )(hello )(hello)(hello)(hello)"),
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ error,
+ {pid, hello},
+ ),
+ "(",{pid, pid, "", 10},")",
+ "(",{pid, pid, "", {bad_align,10}},")",
+ "(",{pid, pid, "", bad10},")",
+ "(",{pid, pid, "", {right,bad20}},")",
+ "(",{pid, pid, "", {bad_align,bad20}},")"
+ )))
+ },
+ {"Metadata can have extra formatting with width 2",
+ ?_assertEqual(iolist_to_binary("(hello )"),
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ error,
+ {pid, hello},
+ ),
+ "(",{pid, pid, "", {left,10}},")"
+ )))
+ },
+ {"Metadata can have extra formatting with width 3",
+ ?_assertEqual(iolist_to_binary("( hello)"),
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ error,
+ {pid, hello},
+ ),
+ "(",{pid, pid, "", {right,10}},")"
+ )))
+ },
+ {"Metadata can have extra formatting with width 4",
+ ?_assertEqual(iolist_to_binary("( hello )"),
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ error,
+ {pid, hello},
+ ),
+ "(",{pid, pid, "", {centre,10}},")"
+ )))
+ },
+ {"Metadata can have extra formatting with width 5",
+ ?_assertEqual(iolist_to_binary("error |hello ! ( hello )"),
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ error,
+ {pid, hello},
+ ),
+ {x,"",severity,{blank,"|"},pid, 10},"!",blank,"(",{pid, pid, "", {centre,10}},")"
+ )))
+ },
+ {"Metadata can have extra formatting with width 6",
+ ?_assertEqual(iolist_to_binary(Time,Date," bar=2 baz=3 foo=1 pid=hello EMessage"),
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ error,
+ {pid, hello},{foo, 1}, {bar, 2}, {baz, 3},
+ ),
+ {x,"",time}, {x,"",date,20},blank,{x,"",metadata,30},blank,{x,"",sev,10},message, {message,message,"", {right,20}}
+ )))
+ },
+ {"Uppercase Severity Formatting - DEBUG",
+ ?_assertEqual(<<"DEBUG Simplist Format">>,
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ debug,
+ {pid, self()},
+ ),
+ severity_upper, " Simplist Format")))
+ },
+ {"Uppercase Severity Formatting - INFO",
+ ?_assertEqual(<<"INFO Simplist Format">>,
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ info,
+ {pid, self()},
+ ),
+ severity_upper, " Simplist Format")))
+ },
+ {"Uppercase Severity Formatting - NOTICE",
+ ?_assertEqual(<<"NOTICE Simplist Format">>,
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ notice,
+ {pid, self()},
+ ),
+ severity_upper, " Simplist Format")))
+ },
+ {"Uppercase Severity Formatting - WARNING",
+ ?_assertEqual(<<"WARNING Simplist Format">>,
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ warning,
+ {pid, self()},
+ ),
+ severity_upper, " Simplist Format")))
+ },
+ {"Uppercase Severity Formatting - ERROR",
+ ?_assertEqual(<<"ERROR Simplist Format">>,
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ error,
+ {pid, self()},
+ ),
+ severity_upper, " Simplist Format")))
+ },
+ {"Uppercase Severity Formatting - CRITICAL",
+ ?_assertEqual(<<"CRITICAL Simplist Format">>,
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ critical,
+ {pid, self()},
+ ),
+ severity_upper, " Simplist Format")))
+ },
+ {"Uppercase Severity Formatting - ALERT",
+ ?_assertEqual(<<"ALERT Simplist Format">>,
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ alert,
+ {pid, self()},
+ ),
+ severity_upper, " Simplist Format")))
+ },
+ {"Uppercase Severity Formatting - EMERGENCY",
+ ?_assertEqual(<<"EMERGENCY Simplist Format">>,
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ emergency,
+ {pid, self()},
+ ),
+ severity_upper, " Simplist Format")))
+ },
+ {"pterm presence test",
+ %% skip test on OTP < 21
+ case list_to_integer(erlang:system_info(otp_release)) >= 21 of
+ true ->
+ ?_assertEqual(<<"Pterm is: something">>,
+ begin
+ persistent_term:put(thing, something),
+ Ret = iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ emergency,
+ {pid, self()},
+ ),
+ "Pterm is: ", {pterm, thing})),
+ persistent_term:erase(thing),
+ Ret
+ end);
+ false -> ?_assert(true)
+ end
+ },
+ {"pterm absence test",
+ ?_assertEqual(<<"Pterm is: nothing">>,
+ iolist_to_binary(format(lager_msg:new("Message",
+ Now,
+ emergency,
+ {pid, self()},
+ ),
+ "Pterm is: ", {pterm, thing, "nothing"})))
+ },
+ {"node formatting basic",
+ begin
+ N, "foo" = format(lager_msg:new("Message",
+ Now,
+ info,
+ {pid, self()},
+ ),
+ node, "foo"),
+ ?_assertNotMatch(nomatch, re:run(N, <<"@">>))
+ end
+ }
+ .
+
+-endif.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_file_backend.erl Added

@@ -0,0 +1,1194 @@
+%% -------------------------------------------------------------------
+%%
+%% Copyright (c) 2011-2017 Basho Technologies, Inc.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+%%
+%% -------------------------------------------------------------------
+
+%% @doc File backend for lager, with multiple file support.
+%% Multiple files are supported, each with the path and the loglevel being
+%% configurable. The configuration paramter for this backend is a list of
+%% key-value 2-tuples. See the init() function for the available options.
+%% This backend supports external and internal log
+%% rotation and will re-open handles to files if the inode changes. It will
+%% also rotate the files itself if the size of the file exceeds the
+%% `size' and keep `count' rotated files. `date' is
+%% an alternate rotation trigger, based on time. See the README for
+%% documentation.
+%% For performance, the file backend does delayed writes, although it will
+%% sync at specific log levels, configured via the `sync_on' option. By default
+%% the error level or above will trigger a sync.
+
+-module(lager_file_backend).
+
+-include("lager.hrl").
+-include_lib("kernel/include/file.hrl").
+
+-behaviour(gen_event).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-compile({parse_transform, lager_transform}).
+-endif.
+
+-export(init/1, handle_call/2, handle_event/2, handle_info/2, terminate/2,
+ code_change/3).
+
+-export(config_to_id/1).
+
+-define(DEFAULT_LOG_LEVEL, info).
+-define(DEFAULT_ROTATION_SIZE, 10485760). %% 10mb
+-define(DEFAULT_ROTATION_DATE, "$D0"). %% midnight
+-define(DEFAULT_ROTATION_COUNT, 5).
+-define(DEFAULT_ROTATION_MOD, lager_rotator_default).
+-define(DEFAULT_SYNC_LEVEL, error).
+-define(DEFAULT_SYNC_INTERVAL, 1000).
+-define(DEFAULT_SYNC_SIZE, 1024*64). %% 64kb
+-define(DEFAULT_CHECK_INTERVAL, 1000).
+
+-record(state, {
+ name :: string(),
+ level :: {'mask', integer()},
+ fd :: file:io_device() | undefined,
+ inode :: integer() | undefined,
+ ctime :: file:date_time() | undefined,
+ flap = false :: boolean(),
+ size = 0 :: integer(),
+ date :: undefined | string(),
+ count = 10 :: integer(),
+ rotator = lager_util :: atom(),
+ shaper :: lager_shaper(),
+ formatter :: atom(),
+ formatter_config :: any(),
+ sync_on :: {'mask', integer()},
+ check_interval = ?DEFAULT_CHECK_INTERVAL :: non_neg_integer(),
+ sync_interval = ?DEFAULT_SYNC_INTERVAL :: non_neg_integer(),
+ sync_size = ?DEFAULT_SYNC_SIZE :: non_neg_integer(),
+ last_check = os:timestamp() :: erlang:timestamp(),
+ os_type :: atom()
+ }).
+
+-type option() :: {file, string()} | {level, lager:log_level()} |
+ {size, non_neg_integer()} | {date, string()} |
+ {count, non_neg_integer()} | {rotator, atom()} |
+ {high_water_mark, non_neg_integer()} |
+ {flush_queue, boolean()} |
+ {flush_threshold, non_neg_integer()} |
+ {sync_interval, non_neg_integer()} |
+ {sync_size, non_neg_integer()} | {sync_on, lager:log_level()} |
+ {check_interval, non_neg_integer()} | {formatter, atom()} |
+ {formatter_config, term()}.
+
+-spec init(option(),...) -> {ok, #state{}} | {error, {fatal,bad_config}}.
+init({FileName, LogLevel}) when is_list(FileName), is_atom(LogLevel) ->
+ %% backwards compatibility hack
+ init({file, FileName}, {level, LogLevel});
+init({FileName, LogLevel, Size, Date, Count}) when is_list(FileName), is_atom(LogLevel) ->
+ %% backwards compatibility hack
+ init({file, FileName}, {level, LogLevel}, {size, Size}, {date, Date}, {count, Count});
+init({FileName, LogLevel, Size, Date, Count}, {Formatter,FormatterConfig}) when is_list(FileName), is_atom(LogLevel), is_atom(Formatter) ->
+ %% backwards compatibility hack
+ init({file, FileName}, {level, LogLevel}, {size, Size}, {date, Date}, {count, Count}, {formatter, Formatter}, {formatter_config, FormatterConfig});
+init(LogFile,{Formatter}) ->
+ %% backwards compatibility hack
+ init(LogFile,{Formatter,});
+init({FileName, LogLevel}, {Formatter,FormatterConfig}) when is_list(FileName), is_atom(LogLevel), is_atom(Formatter) ->
+ %% backwards compatibility hack
+ init({file, FileName}, {level, LogLevel}, {formatter, Formatter}, {formatter_config, FormatterConfig});
+init(LogFileConfig) when is_list(LogFileConfig) ->
+ case validate_logfile_proplist(LogFileConfig) of
+ false ->
+ %% falied to validate config
+ {error, {fatal, bad_config}};
+ Config ->
+ %% probabably a better way to do this, but whatever
+ RelName, Level, Date, Size, Count, Rotator, HighWaterMark, Flush, SyncInterval, SyncSize, SyncOn, CheckInterval, Formatter, FormatterConfig =
+ proplists:get_value(Key, Config) || Key <- file, level, date, size, count, rotator, high_water_mark, flush_queue, sync_interval, sync_size, sync_on, check_interval, formatter, formatter_config,
+ FlushThr = proplists:get_value(flush_threshold, Config, 0),
+ Name = lager_util:expand_path(RelName),
+ schedule_rotation(Name, Date),
+ Shaper = lager_util:maybe_flush(Flush, #lager_shaper{hwm=HighWaterMark, flush_threshold = FlushThr, id=Name}),
+ State0 = #state{name=Name, level=Level, size=Size, date=Date, count=Count, rotator=Rotator,
+ shaper=Shaper, formatter=Formatter, formatter_config=FormatterConfig,
+ sync_on=SyncOn, sync_interval=SyncInterval, sync_size=SyncSize, check_interval=CheckInterval},
+ State = case Rotator:create_logfile(Name, {SyncSize, SyncInterval}) of
+ {ok, {FD, Inode, Ctime, _Size}} ->
+ State0#state{fd=FD, inode=Inode, ctime=Ctime};
+ {error, Reason} ->
+ ?INT_LOG(error, "Failed to open log file ~ts with error ~s", Name, file:format_error(Reason)),
+ State0#state{flap=true}
+ end,
+ {ok, State}
+ end.
+
+%% @private
+handle_call({set_loglevel, Level}, #state{name=Ident} = State) ->
+ case validate_loglevel(Level) of
+ false ->
+ {ok, {error, bad_loglevel}, State};
+ Levels ->
+ ?INT_LOG(notice, "Changed loglevel of ~s to ~p", Ident, Level),
+ {ok, ok, State#state{level=Levels}}
+ end;
+handle_call(get_loglevel, #state{level=Level} = State) ->
+ {ok, Level, State};
+handle_call({set_loghwm, Hwm}, #state{shaper=Shaper, name=Name} = State) ->
+ case validate_logfile_proplist({file, Name}, {high_water_mark, Hwm}) of
+ false ->
+ {ok, {error, bad_log_hwm}, State};
+ _ ->
+ NewShaper = Shaper#lager_shaper{hwm=Hwm},
+ ?INT_LOG(notice, "Changed loghwm of ~ts to ~p", Name, Hwm),
+ {ok, {last_loghwm, Shaper#lager_shaper.hwm}, State#state{shaper=NewShaper}}
+ end;
+handle_call(rotate, State = #state{name=File}) ->
+ {ok, NewState} = handle_info({rotate, File}, State),
+ {ok, ok, NewState};
+handle_call(_Request, State) ->
+ {ok, ok, State}.
+
+%% @private
+handle_event({log, Message},
+ #state{name=Name, level=L, shaper=Shaper, formatter=Formatter,formatter_config=FormatConfig} = State) ->
+ case lager_util:is_loggable(Message,L,{lager_file_backend, Name}) of
+ true ->
+ case lager_util:check_hwm(Shaper) of
+ {true, Drop, #lager_shaper{hwm=Hwm} = NewShaper} ->
+ NewState = case Drop > 0 of
+ true ->
+ Report = io_lib:format(
+ "lager_file_backend dropped ~p messages in the last second that exceeded the limit of ~p messages/sec",
+ Drop, Hwm),
+ ReportMsg = lager_msg:new(Report, warning, , ),
+ write(State, lager_msg:timestamp(ReportMsg),
+ lager_msg:severity_as_int(ReportMsg), Formatter:format(ReportMsg, FormatConfig));
+ false ->
+ State
+ end,
+ {ok,write(NewState#state{shaper=NewShaper},
+ lager_msg:timestamp(Message), lager_msg:severity_as_int(Message),
+ Formatter:format(Message,FormatConfig))};
+ {false, _, #lager_shaper{dropped=D} = NewShaper} ->
+ {ok, State#state{shaper=NewShaper#lager_shaper{dropped=D+1}}}
+ end;
+ false ->
+ {ok, State}
+ end;
+handle_event(_Event, State) ->
+ {ok, State}.
+
+%% @private
+handle_info({rotate, File}, #state{name=File, count=Count, date=Date, rotator=Rotator}=State0) ->
+ State1 = close_file(State0),
+ _ = Rotator:rotate_logfile(File, Count),
+ schedule_rotation(File, Date),
+ {ok, State1};
+handle_info({shaper_expired, Name}, #state{shaper=Shaper, name=Name, formatter=Formatter, formatter_config=FormatConfig} = State) ->
+ _ = case Shaper#lager_shaper.dropped of
+ 0 ->
+ ok;
+ Dropped ->
+ Report = io_lib:format(
+ "lager_file_backend dropped ~p messages in the last second that exceeded the limit of ~p messages/sec",
+ Dropped, Shaper#lager_shaper.hwm),
+ ReportMsg = lager_msg:new(Report, warning, , ),
+ write(State, lager_msg:timestamp(ReportMsg),
+ lager_msg:severity_as_int(ReportMsg), Formatter:format(ReportMsg, FormatConfig))
+ end,
+ {ok, State#state{shaper=Shaper#lager_shaper{dropped=0, mps=0, lasttime=os:timestamp()}}};
+handle_info(_Info, State) ->
+ {ok, State}.
+
+%% @private
+terminate(_Reason, State) ->
+ %% leaving this function call unmatched makes dialyzer cranky
+ _ = close_file(State),
+ ok.
+
+%% @private
+code_change(_OldVsn, State, _Extra) ->
+ {ok, State}.
+
+%% Convert the config into a gen_event handler ID
+config_to_id({Name,_Severity}) when is_list(Name) ->
+ {?MODULE, Name};
+config_to_id({Name,_Severity,_Size,_Rotation,_Count}) ->
+ {?MODULE, Name};
+config_to_id({Name,_Severity,_Size,_Rotation,_Count}, _Format) ->
+ {?MODULE, Name};
+config_to_id({Name,_Severity}, _Format) when is_list(Name) ->
+ {?MODULE, Name};
+config_to_id(Config) ->
+ case proplists:get_value(file, Config) of
+ undefined ->
+ erlang:error(no_file);
+ File ->
+ {?MODULE, File}
+ end.
+
+write(#state{name=Name, fd=FD,
+ inode=Inode, ctime=Ctime,
+ flap=Flap, size=RotSize,
+ count=Count, rotator=Rotator}=State0, Timestamp, Level, Msg) ->
+ case write_should_check(State0, Timestamp) of
+ true ->
+ %% need to check for rotation
+ Buffer = {State0#state.sync_size, State0#state.sync_interval},
+ case Rotator:ensure_logfile(Name, FD, Inode, Ctime, Buffer) of
+ {ok, {_FD, _Inode, _Ctime, Size}} when RotSize > 0, Size > RotSize ->
+ State1 = close_file(State0),
+ case Rotator:rotate_logfile(Name, Count) of
+ ok ->
+ %% go around the loop again, we'll do another rotation check and hit the next clause of ensure_logfile
+ write(State1, Timestamp, Level, Msg);
+ {error, Reason} ->
+ case Flap of
+ true ->
+ State1;
+ _ ->
+ ?INT_LOG(error, "Failed to rotate log file ~ts with error ~s", Name, file:format_error(Reason)),
+ State1#state{flap=true}
+ end
+ end;
+ {ok, {NewFD, NewInode, NewCtime, _Size}} ->
+ %% update our last check and try again
+ State1 = State0#state{last_check=Timestamp, fd=NewFD, inode=NewInode, ctime=NewCtime},
+ do_write(State1, Level, Msg);
+ {error, Reason} ->
+ case Flap of
+ true ->
+ State0;
+ _ ->
+ ?INT_LOG(error, "Failed to reopen log file ~ts with error ~s", Name, file:format_error(Reason)),
+ State0#state{flap=true}
+ end
+ end;
+ false ->
+ do_write(State0, Level, Msg)
+ end.
+
+write_should_check(#state{fd=undefined}, _Timestamp) ->
+ true;
+write_should_check(#state{last_check=LastCheck0, check_interval=CheckInterval,
+ name=Name, inode=Inode0, ctime=Ctime0}, Timestamp) ->
+ LastCheck1 = timer:now_diff(Timestamp, LastCheck0) div 1000,
+ case LastCheck1 >= CheckInterval of
+ true ->
+ true;
+ _ ->
+ % We need to know if the file has changed "out from under lager" so we don't
+ % write to an invalid FD
+ {Result, _FInfo} = lager_util:has_file_changed(Name, Inode0, Ctime0),
+ Result
+ end.
+
+do_write(#state{fd=FD, name=Name, flap=Flap} = State, Level, Msg) ->
+ %% delayed_write doesn't report errors
+ _ = file:write(FD, unicode:characters_to_binary(Msg)),
+ {mask, SyncLevel} = State#state.sync_on,
+ case (Level band SyncLevel) =/= 0 of
+ true ->
+ %% force a sync on any message that matches the 'sync_on' bitmask
+ Flap2 = case file:datasync(FD) of
+ {error, Reason2} when Flap == false ->
+ ?INT_LOG(error, "Failed to write log message to file ~ts: ~s",
+ Name, file:format_error(Reason2)),
+ true;
+ ok ->
+ false;
+ _ ->
+ Flap
+ end,
+ State#state{flap=Flap2};
+ _ ->
+ State
+ end.
+
+validate_loglevel(Level) ->
+ try lager_util:config_to_mask(Level) of
+ Levels ->
+ Levels
+ catch
+ _:_ ->
+ false
+ end.
+
+validate_logfile_proplist(List) ->
+ try validate_logfile_proplist(List, ) of
+ Res ->
+ case proplists:get_value(file, Res) of
+ undefined ->
+ ?INT_LOG(error, "Missing required file option", ),
+ false;
+ _File ->
+ %% merge with the default options
+ {ok, DefaultRotationDate} = lager_util:parse_rotation_date_spec(?DEFAULT_ROTATION_DATE),
+ lists:keymerge(1, lists:sort(Res), lists:sort(
+ {level, validate_loglevel(?DEFAULT_LOG_LEVEL)}, {date, DefaultRotationDate},
+ {size, ?DEFAULT_ROTATION_SIZE}, {count, ?DEFAULT_ROTATION_COUNT},
+ {rotator, ?DEFAULT_ROTATION_MOD},
+ {sync_on, validate_loglevel(?DEFAULT_SYNC_LEVEL)}, {sync_interval, ?DEFAULT_SYNC_INTERVAL},
+ {sync_size, ?DEFAULT_SYNC_SIZE}, {check_interval, ?DEFAULT_CHECK_INTERVAL},
+ {formatter, lager_default_formatter}, {formatter_config, }
+ ))
+ end
+ catch
+ {bad_config, Msg, Value} ->
+ ?INT_LOG(error, "~s ~p for file ~tp",
+ Msg, Value, proplists:get_value(file, List)),
+ false
+ end.
+
+validate_logfile_proplist(, Acc) ->
+ Acc;
+validate_logfile_proplist({file, File}|Tail, Acc) ->
+ %% is there any reasonable validation we can do here?
+ validate_logfile_proplist(Tail, {file, File}|Acc);
+validate_logfile_proplist({level, Level}|Tail, Acc) ->
+ case validate_loglevel(Level) of
+ false ->
+ throw({bad_config, "Invalid loglevel", Level});
+ Res ->
+ validate_logfile_proplist(Tail, {level, Res}|Acc)
+ end;
+validate_logfile_proplist({size, Size}|Tail, Acc) ->
+ case Size of
+ S when is_integer(S), S >= 0 ->
+ validate_logfile_proplist(Tail, {size, Size}|Acc);
+ _ ->
+ throw({bad_config, "Invalid rotation size", Size})
+ end;
+validate_logfile_proplist({count, Count}|Tail, Acc) ->
+ case Count of
+ C when is_integer(C), C >= 0 ->
+ validate_logfile_proplist(Tail, {count, Count}|Acc);
+ _ ->
+ throw({bad_config, "Invalid rotation count", Count})
+ end;
+validate_logfile_proplist({rotator, Rotator}|Tail, Acc) ->
+ case is_atom(Rotator) of
+ true ->
+ validate_logfile_proplist(Tail, {rotator, Rotator}|Acc);
+ false ->
+ throw({bad_config, "Invalid rotation module", Rotator})
+ end;
+validate_logfile_proplist({high_water_mark, HighWaterMark}|Tail, Acc) ->
+ case HighWaterMark of
+ Hwm when is_integer(Hwm), Hwm >= 0 ->
+ validate_logfile_proplist(Tail, {high_water_mark, Hwm}|Acc);
+ _ ->
+ throw({bad_config, "Invalid high water mark", HighWaterMark})
+ end;
+validate_logfile_proplist({date, Date}|Tail, Acc) ->
+ case lager_util:parse_rotation_date_spec(Date) of
+ {ok, Spec} ->
+ validate_logfile_proplist(Tail, {date, Spec}|Acc);
+ {error, _} when Date == "" ->
+ %% legacy config allowed blanks
+ validate_logfile_proplist(Tail, {date, undefined}|Acc);
+ {error, _} ->
+ throw({bad_config, "Invalid rotation date", Date})
+ end;
+validate_logfile_proplist({sync_interval, SyncInt}|Tail, Acc) ->
+ case SyncInt of
+ Val when is_integer(Val), Val >= 0 ->
+ validate_logfile_proplist(Tail, {sync_interval, Val}|Acc);
+ _ ->
+ throw({bad_config, "Invalid sync interval", SyncInt})
+ end;
+validate_logfile_proplist({sync_size, SyncSize}|Tail, Acc) ->
+ case SyncSize of
+ Val when is_integer(Val), Val >= 0 ->
+ validate_logfile_proplist(Tail, {sync_size, Val}|Acc);
+ _ ->
+ throw({bad_config, "Invalid sync size", SyncSize})
+ end;
+validate_logfile_proplist({check_interval, CheckInt}|Tail, Acc) ->
+ case CheckInt of
+ Val when is_integer(Val), Val >= 0 ->
+ validate_logfile_proplist(Tail, {check_interval, Val}|Acc);
+ always ->
+ validate_logfile_proplist(Tail, {check_interval, 0}|Acc);
+ _ ->
+ throw({bad_config, "Invalid check interval", CheckInt})
+ end;
+validate_logfile_proplist({sync_on, Level}|Tail, Acc) ->
+ case validate_loglevel(Level) of
+ false ->
+ throw({bad_config, "Invalid sync on level", Level});
+ Res ->
+ validate_logfile_proplist(Tail, {sync_on, Res}|Acc)
+ end;
+validate_logfile_proplist({formatter, Fmt}|Tail, Acc) ->
+ case is_atom(Fmt) of
+ true ->
+ validate_logfile_proplist(Tail, {formatter, Fmt}|Acc);
+ false ->
+ throw({bad_config, "Invalid formatter module", Fmt})
+ end;
+validate_logfile_proplist({formatter_config, FmtCfg}|Tail, Acc) ->
+ case is_list(FmtCfg) of
+ true ->
+ validate_logfile_proplist(Tail, {formatter_config, FmtCfg}|Acc);
+ false ->
+ throw({bad_config, "Invalid formatter config", FmtCfg})
+ end;
+validate_logfile_proplist({flush_queue, FlushCfg}|Tail, Acc) ->
+ case is_boolean(FlushCfg) of
+ true ->
+ validate_logfile_proplist(Tail, {flush_queue, FlushCfg}|Acc);
+ false ->
+ throw({bad_config, "Invalid queue flush flag", FlushCfg})
+ end;
+validate_logfile_proplist({flush_threshold, Thr}|Tail, Acc) ->
+ case Thr of
+ _ when is_integer(Thr), Thr >= 0 ->
+ validate_logfile_proplist(Tail, {flush_threshold, Thr}|Acc);
+ _ ->
+ throw({bad_config, "Invalid queue flush threshold", Thr})
+ end;
+validate_logfile_proplist(Other|_Tail, _Acc) ->
+ throw({bad_config, "Invalid option", Other}).
+
+schedule_rotation(_, undefined) ->
+ ok;
+schedule_rotation(Name, Date) ->
+ erlang:send_after(lager_util:calculate_next_rotation(Date) * 1000, self(), {rotate, Name}),
+ ok.
+
+close_file(#state{fd=undefined} = State) ->
+ State;
+close_file(#state{fd=FD} = State) ->
+ %% Flush and close any file handles.
+ %% delayed write can cause file:close not to do a close
+ _ = file:datasync(FD),
+ _ = file:close(FD),
+ _ = file:close(FD),
+ State#state{fd=undefined}.
+
+-ifdef(TEST).
+
+get_loglevel_test() ->
+ {ok, Level, _} = handle_call(get_loglevel,
+ #state{name="bar", level=lager_util:config_to_mask(info), fd=0, inode=0, ctime=undefined}),
+ ?assertEqual(Level, lager_util:config_to_mask(info)),
+ {ok, Level2, _} = handle_call(get_loglevel,
+ #state{name="foo", level=lager_util:config_to_mask(warning), fd=0, inode=0, ctime=undefined}),
+ ?assertEqual(Level2, lager_util:config_to_mask(warning)).
+
+rotation_test_() ->
+ {foreach,
+ fun() ->
+ SyncLevel = validate_loglevel(?DEFAULT_SYNC_LEVEL),
+ SyncSize = ?DEFAULT_SYNC_SIZE,
+ SyncInterval = ?DEFAULT_SYNC_INTERVAL,
+ Rotator = ?DEFAULT_ROTATION_MOD,
+ CheckInterval = 0, %% hard to test delayed mode
+ {ok, TestDir} = lager_util:create_test_dir(),
+ TestLog = filename:join(TestDir, "test.log"),
+ {OsType, _} = os:type(),
+ #state{name=TestLog,
+ level=?DEBUG,
+ sync_on=SyncLevel,
+ sync_size=SyncSize,
+ sync_interval=SyncInterval,
+ check_interval=CheckInterval,
+ rotator=Rotator,
+ os_type=OsType}
+ end,
+ fun(#state{}) ->
+ ok = lager_util:delete_test_dir()
+ end, 
+ fun(DefaultState=#state{name=TestLog, os_type=OsType, sync_size=SyncSize, sync_interval=SyncInterval, rotator=Rotator}) ->
+ {"External rotation should work",
+ fun() ->
+ case OsType of
+ win32 ->
+ % Note: test is skipped on win32 due to the fact that a file can't be deleted or renamed
+ % while a process has an open file handle referencing it
+ ok;
+ _ ->
+ {ok, {FD, Inode, Ctime, _Size}} = Rotator:open_logfile(TestLog, {SyncSize, SyncInterval}),
+ State0 = DefaultState#state{fd=FD, inode=Inode, ctime=Ctime},
+ State1 = write(State0, os:timestamp(), ?DEBUG, "hello world"),
+ ?assertMatch(#state{name=TestLog, level=?DEBUG, fd=FD, inode=Inode, ctime=Ctime}, State1),
+ ?assertEqual(ok, file:delete(TestLog)),
+ State2 = write(State0, os:timestamp(), ?DEBUG, "hello world"),
+ %% assert file has changed
+ ExpState1 = #state{name=TestLog, level=?DEBUG, fd=FD, inode=Inode, ctime=Ctime},
+ ?assertNotEqual(ExpState1, State2),
+ ?assertMatch(#state{name=TestLog, level=?DEBUG}, State2),
+ ?assertEqual(ok, file:rename(TestLog, TestLog ++ ".1")),
+ State3 = write(State2, os:timestamp(), ?DEBUG, "hello world"),
+ %% assert file has changed
+ ?assertNotEqual(State3, State2),
+ ?assertMatch(#state{name=TestLog, level=?DEBUG}, State3),
+ ok
+ end
+ end}
+ end,
+ fun(DefaultState = #state{name=TestLog, sync_size=SyncSize, sync_interval=SyncInterval, rotator=Rotator}) ->
+ {"Internal rotation and delayed write",
+ fun() ->
+ TestLog0 = TestLog ++ ".0",
+ CheckInterval = 3000, % 3 sec
+ RotationSize = 15,
+ PreviousCheck = os:timestamp(),
+
+ {ok, {FD, Inode, Ctime, _Size}} = Rotator:open_logfile(TestLog, {SyncSize, SyncInterval}),
+ State0 = DefaultState#state{
+ fd=FD, inode=Inode, ctime=Ctime, size=RotationSize,
+ check_interval=CheckInterval, last_check=PreviousCheck},
+
+ %% new message within check interval with sync_on level
+ Msg1Timestamp = add_secs(PreviousCheck, 1),
+ State1 = write(State0, Msg1Timestamp, ?ERROR, "big big message 1"),
+ ?assertEqual(State0, State1),
+
+ %% new message within check interval under sync_on level
+ %% not written to disk yet
+ Msg2Timestamp = add_secs(PreviousCheck, 2),
+ State2 = write(State1, Msg2Timestamp, ?DEBUG, "buffered message 2"),
+ ?assertEqual(State0, State2),
+
+ % Note: we must ensure at least one second (DEFAULT_SYNC_INTERVAL) has passed
+ % for message 1 and 2 to be written to disk
+ ElapsedMs = timer:now_diff(os:timestamp(), PreviousCheck) div 1000,
+ case ElapsedMs > SyncInterval of
+ true ->
+ ok;
+ _ ->
+ S = SyncInterval - ElapsedMs,
+ timer:sleep(S)
+ end,
+
+ %% although file size is big enough...
+ {ok, FInfo} = file:read_file_info(TestLog, raw),
+ ?assert(RotationSize < FInfo#file_info.size),
+ %% ...no rotation yet
+ ?assertEqual(PreviousCheck, State2#state.last_check),
+ ?assertNot(filelib:is_regular(TestLog0)),
+
+ %% new message after check interval
+ Msg3Timestamp = add_secs(PreviousCheck, 4),
+ _State3 = write(State2, Msg3Timestamp, ?DEBUG, "message 3"),
+
+ %% rotation happened
+ ?assert(filelib:is_regular(TestLog0)),
+
+ {ok, Bin1} = file:read_file(TestLog0),
+ {ok, Bin2} = file:read_file(TestLog),
+ %% message 1-2 written to file
+ ?assertEqual(<<"big big message 1buffered message 2">>, Bin1),
+ %% message 3 buffered, not yet written to file
+ ?assertEqual(<<"">>, Bin2),
+ ok
+ end}
+ end
+ }.
+
+add_secs({Mega, Secs, Micro}, Add) ->
+ NewSecs = Secs + Add,
+ {Mega + NewSecs div 10000000, NewSecs rem 10000000, Micro}.
+
+filesystem_test_() ->
+ {foreach,
+ fun() ->
+ ok = error_logger:tty(false),
+ ok = lager_util:safe_application_load(lager),
+ ok = application:set_env(lager, handlers, {lager_test_backend, info}),
+ ok = application:set_env(lager, error_logger_redirect, false),
+ ok = application:set_env(lager, async_threshold, undefined),
+ {ok, _TestDir} = lager_util:create_test_dir(),
+ ok = lager:start(),
+ %% race condition where lager logs its own start up
+ %% makes several tests fail. See test/lager_test_backend
+ %% around line 800 for more information.
+ ok = timer:sleep(5),
+ ok = lager_test_backend:flush()
+ end,
+ fun(_) ->
+ ok = application:stop(lager),
+ ok = application:stop(goldrush),
+ ok = error_logger:tty(true),
+ ok = lager_util:delete_test_dir()
+ end, 
+ {"under normal circumstances, file should be opened",
+ fun() ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ TestLog = filename:join(TestDir, "test.log"),
+
+ gen_event:add_handler(lager_event, lager_file_backend,
+ {TestLog, info}, {lager_default_formatter}),
+ lager:log(error, self(), "Test message"),
+ {ok, Bin} = file:read_file(TestLog),
+ Pid = pid_to_list(self()),
+ ?assertMatch(_, _, "error", Pid, "Test message\n",
+ re:split(Bin, " ", {return, list}, {parts, 5}))
+ end},
+ {"don't choke on unicode",
+ fun() ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ TestLog = filename:join(TestDir, "test.log"),
+
+ gen_event:add_handler(lager_event, lager_file_backend,
+ {TestLog, info}, {lager_default_formatter}),
+ lager:log(error, self(),"~ts", 20013,25991,27979,35797),
+ {ok, Bin} = file:read_file(TestLog),
+ Pid = pid_to_list(self()),
+ ?assertMatch(_, _, "error", Pid,
+ 228,184,173,230,150,135,230,181,139,232,175,149, $\n,
+ re:split(Bin, " ", {return, list}, {parts, 5}))
+ end},
+ {"don't choke on latin-1",
+ fun() ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ TestLog = filename:join(TestDir, "test.log"),
+
+ %% XXX if this test fails, check that this file is encoded latin-1, not utf-8!
+ gen_event:add_handler(lager_event, lager_file_backend,
+ {TestLog, info}, {lager_default_formatter}),
+ lager:log(error, self(),"~ts", 76, 198, 221, 206, 78, $-, 239),
+ {ok, Bin} = file:read_file(TestLog),
+ Pid = pid_to_list(self()),
+ Res = re:split(Bin, " ", {return, list}, {parts, 5}),
+ ?assertMatch(_, _, "error", Pid,
+ 76,195,134,195,157,195,142,78,45,195,175,$\n, Res)
+ end},
+ {"file can't be opened on startup triggers an error message",
+ fun() ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ TestLog = filename:join(TestDir, "test.log"),
+ ?assertEqual(ok, lager_util:safe_write_file(TestLog, )),
+
+ {ok, FInfo0} = file:read_file_info(TestLog, raw),
+ FInfo1 = FInfo0#file_info{mode = 0},
+ ?assertEqual(ok, file:write_file_info(TestLog, FInfo1)),
+
+ gen_event:add_handler(lager_event, lager_file_backend,
+ {TestLog, info, 10*1024*1024, "$D0", 5}),
+
+ % Note: required on win32, do this early to prevent subsequent failures
+ % from preventing cleanup
+ ?assertEqual(ok, file:write_file_info(TestLog, FInfo0)),
+
+ ?assertEqual(1, lager_test_backend:count()),
+ {_Level, _Time, Message, _Metadata} = lager_test_backend:pop(),
+ MessageFlat = lists:flatten(Message),
+ ?assertEqual(
+ "Failed to open log file " ++ TestLog ++ " with error permission denied",
+ MessageFlat)
+ end},
+ {"file that becomes unavailable at runtime should trigger an error message",
+ fun() ->
+ case os:type() of
+ {win32, _} ->
+ % Note: test is skipped on win32 due to the fact that a file can't be
+ % deleted or renamed while a process has an open file handle referencing it
+ ok;
+ _ ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ TestLog = filename:join(TestDir, "test.log"),
+
+ gen_event:add_handler(lager_event, lager_file_backend,
+ {file, TestLog}, {level, info}, {check_interval, 0}),
+ ?assertEqual(0, lager_test_backend:count()),
+ lager:log(error, self(), "Test message"),
+ ?assertEqual(1, lager_test_backend:count()),
+ ?assertEqual(ok, file:delete(TestLog)),
+ ?assertEqual(ok, lager_util:safe_write_file(TestLog, "")),
+ {ok, FInfo0} = file:read_file_info(TestLog, raw),
+ FInfo1 = FInfo0#file_info{mode = 0},
+ ?assertEqual(ok, file:write_file_info(TestLog, FInfo1)),
+ lager:log(error, self(), "Test message"),
+ lager_test_backend:pop(),
+ lager_test_backend:pop(),
+ {_Level, _Time, Message, _Metadata} = lager_test_backend:pop(),
+ ?assertEqual(
+ "Failed to reopen log file " ++ TestLog ++ " with error permission denied",
+ lists:flatten(Message))
+ end
+ end},
+ {"unavailable files that are fixed at runtime should start having log messages written",
+ fun() ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ TestLog = filename:join(TestDir, "test.log"),
+ ?assertEqual(ok, lager_util:safe_write_file(TestLog, )),
+
+ {ok, FInfo} = file:read_file_info(TestLog, raw),
+ OldPerms = FInfo#file_info.mode,
+ ?assertEqual(ok, file:write_file_info(TestLog, FInfo#file_info{mode = 0})),
+ gen_event:add_handler(lager_event, lager_file_backend,
+ {file, TestLog},{check_interval, 0}),
+ ?assertEqual(1, lager_test_backend:count()),
+ {_Level, _Time, Message, _Metadata} = lager_test_backend:pop(),
+ ?assertEqual(
+ "Failed to open log file " ++ TestLog ++ " with error permission denied",
+ lists:flatten(Message)),
+ ?assertEqual(ok, file:write_file_info(TestLog, FInfo#file_info{mode = OldPerms})),
+ lager:log(error, self(), "Test message"),
+ {ok, Bin} = file:read_file(TestLog),
+ Pid = pid_to_list(self()),
+ ?assertMatch(_, _, "error", Pid, "Test message\n",
+ re:split(Bin, " ", {return, list}, {parts, 5}))
+ end},
+ {"external logfile rotation/deletion should be handled",
+ fun() ->
+ case os:type() of
+ {win32, _} ->
+ % Note: test is skipped on win32 due to the fact that a file can't be deleted or renamed
+ % while a process has an open file handle referencing it
+ ok;
+ _ ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ TestLog = filename:join(TestDir, "test.log"),
+ TestLog0 = TestLog ++ ".0",
+
+ gen_event:add_handler(lager_event, lager_file_backend,
+ {file, TestLog}, {level, info}, {check_interval, 0}),
+ ?assertEqual(0, lager_test_backend:count()),
+ lager:log(error, self(), "Test message1"),
+ ?assertEqual(1, lager_test_backend:count()),
+ ?assertEqual(ok, file:delete(TestLog)),
+ ?assertEqual(ok, lager_util:safe_write_file(TestLog, "")),
+ lager:log(error, self(), "Test message2"),
+ ?assertEqual(2, lager_test_backend:count()),
+ {ok, Bin} = file:read_file(TestLog),
+ Pid = pid_to_list(self()),
+ ?assertMatch(_, _, "error", Pid, "Test message2\n",
+ re:split(Bin, " ", {return, list}, {parts, 5})),
+ ?assertEqual(ok, file:rename(TestLog, TestLog0)),
+ lager:log(error, self(), "Test message3"),
+ ?assertEqual(3, lager_test_backend:count()),
+ {ok, Bin2} = file:read_file(TestLog),
+ ?assertMatch(_, _, "error", Pid, "Test message3\n",
+ re:split(Bin2, " ", {return, list}, {parts, 5}))
+ end
+ end},
+ {"internal size rotation should work",
+ fun() ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ TestLog = filename:join(TestDir, "test.log"),
+ TestLog0 = TestLog ++ ".0",
+
+ gen_event:add_handler(lager_event, lager_file_backend,
+ {file, TestLog}, {level, info}, {check_interval, 0}, {size, 10}),
+ lager:log(error, self(), "Test message1"),
+ lager:log(error, self(), "Test message1"),
+ ?assert(filelib:is_regular(TestLog0))
+ end},
+ {"internal time rotation should work",
+ fun() ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ TestLog = filename:join(TestDir, "test.log"),
+ TestLog0 = TestLog ++ ".0",
+
+ gen_event:add_handler(lager_event, lager_file_backend,
+ {file, TestLog}, {level, info}, {check_interval, 1000}),
+ lager:log(error, self(), "Test message1"),
+ lager:log(error, self(), "Test message1"),
+ whereis(lager_event) ! {rotate, TestLog},
+ lager:log(error, self(), "Test message1"),
+ ?assert(filelib:is_regular(TestLog0))
+ end},
+ {"rotation call should work",
+ fun() ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ TestLog = filename:join(TestDir, "test.log"),
+ TestLog0 = TestLog ++ ".0",
+
+ gen_event:add_handler(lager_event, {lager_file_backend, TestLog},
+ {file, TestLog}, {level, info}, {check_interval, 1000}),
+ lager:log(error, self(), "Test message1"),
+ lager:log(error, self(), "Test message1"),
+ gen_event:call(lager_event, {lager_file_backend, TestLog}, rotate, infinity),
+ lager:log(error, self(), "Test message1"),
+ ?assert(filelib:is_regular(TestLog0))
+ end},
+ {"sync_on option should work",
+ fun() ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ TestLog = filename:join(TestDir, "test.log"),
+
+ gen_event:add_handler(lager_event, lager_file_backend, {file, TestLog},
+ {level, info}, {sync_on, "=info"}, {check_interval, 5000}, {sync_interval, 5000}),
+ lager:log(error, self(), "Test message1"),
+ lager:log(error, self(), "Test message1"),
+ ?assertEqual({ok, <<>>}, file:read_file(TestLog)),
+ lager:log(info, self(), "Test message1"),
+ {ok, Bin} = file:read_file(TestLog),
+ ?assert(<<>> /= Bin)
+ end},
+ {"sync_on none option should work (also tests sync_interval)",
+ fun() ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ TestLog = filename:join(TestDir, "test.log"),
+
+ gen_event:add_handler(lager_event, lager_file_backend, {file, TestLog},
+ {level, info}, {sync_on, "none"}, {check_interval, 5000}, {sync_interval, 1000}),
+ lager:log(error, self(), "Test message1"),
+ lager:log(error, self(), "Test message1"),
+ ?assertEqual({ok, <<>>}, file:read_file(TestLog)),
+ lager:log(info, self(), "Test message1"),
+ ?assertEqual({ok, <<>>}, file:read_file(TestLog)),
+ timer:sleep(2000),
+ {ok, Bin} = file:read_file(TestLog),
+ ?assert(<<>> /= Bin)
+ end},
+ {"sync_size option should work",
+ fun() ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ TestLog = filename:join(TestDir, "test.log"),
+
+ gen_event:add_handler(lager_event, lager_file_backend, {file, TestLog}, {level, info},
+ {sync_on, "none"}, {check_interval, 5001}, {sync_size, 640}, {sync_interval, 5001}),
+ lager:log(error, self(), "Test messageis64bytes"),
+ lager:log(error, self(), "Test messageis64bytes"),
+ lager:log(error, self(), "Test messageis64bytes"),
+ lager:log(error, self(), "Test messageis64bytes"),
+ lager:log(error, self(), "Test messageis64bytes"),
+ ?assertEqual({ok, <<>>}, file:read_file(TestLog)),
+ lager:log(error, self(), "Test messageis64bytes"),
+ lager:log(error, self(), "Test messageis64bytes"),
+ lager:log(error, self(), "Test messageis64bytes"),
+ lager:log(error, self(), "Test messageis64bytes"),
+ ?assertEqual({ok, <<>>}, file:read_file(TestLog)),
+ %% now we've written enough bytes
+ lager:log(error, self(), "Test messageis64bytes"),
+ {ok, Bin} = file:read_file(TestLog),
+ ?assert(<<>> /= Bin)
+ end},
+ {"runtime level changes",
+ fun() ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ TestLog = filename:join(TestDir, "test.log"),
+
+ gen_event:add_handler(lager_event, {lager_file_backend, TestLog}, {TestLog, info}),
+ ?assertEqual(0, lager_test_backend:count()),
+ lager:log(info, self(), "Test message1"),
+ lager:log(error, self(), "Test message2"),
+ {ok, Bin} = file:read_file(TestLog),
+ Lines = length(re:split(Bin, "\n", {return, list}, trim)),
+ ?assertEqual(Lines, 2),
+ ?assertEqual(ok, lager:set_loglevel(lager_file_backend, TestLog, warning)),
+ lager:log(info, self(), "Test message3"), %% this won't get logged
+ lager:log(error, self(), "Test message4"),
+ {ok, Bin2} = file:read_file(TestLog),
+ Lines2 = length(re:split(Bin2, "\n", {return, list}, trim)),
+ ?assertEqual(Lines2, 3)
+ end},
+ {"invalid runtime level changes",
+ fun() ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ TestLog = filename:join(TestDir, "test.log"),
+ TestLog3 = filename:join(TestDir, "test3.log"),
+
+ gen_event:add_handler(lager_event, lager_file_backend,
+ {TestLog, info, 10*1024*1024, "$D0", 5}, {lager_default_formatter}),
+ gen_event:add_handler(lager_event, lager_file_backend, {TestLog3, info}),
+ ?assertEqual({error, bad_module}, lager:set_loglevel(lager_file_backend, TestLog, warning))
+ end},
+ {"tracing should work",
+ fun() ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ TestLog = filename:join(TestDir, "test.log"),
+
+ gen_event:add_handler(lager_event, lager_file_backend, {TestLog, critical}),
+ lager:error("Test message"),
+ ?assertEqual({ok, <<>>}, file:read_file(TestLog)),
+ {Level, _} = lager_config:get({lager_event, loglevel}),
+ lager_config:set({lager_event, loglevel}, {Level,
+ {{module, ?MODULE}, ?DEBUG, {lager_file_backend, TestLog}}}),
+ lager:error("Test message"),
+ timer:sleep(1000),
+ {ok, Bin} = file:read_file(TestLog),
+ ?assertMatch(_, _, "error", _, "Test message\n",
+ re:split(Bin, " ", {return, list}, {parts, 5}))
+ end},
+ {"tracing should not duplicate messages",
+ fun() ->
+ case os:type() of
+ {win32, _} ->
+ % Note: test is skipped on win32 due to the fact that a file can't be
+ % deleted or renamed while a process has an open file handle referencing it
+ ok;
+ _ ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ TestLog = filename:join(TestDir, "test.log"),
+
+ gen_event:add_handler(lager_event, lager_file_backend,
+ {file, TestLog}, {level, critical}, {check_interval, always}),
+ timer:sleep(500),
+ lager:critical("Test message"),
+ {ok, Bin1} = file:read_file(TestLog),
+ ?assertMatch(_, _, "critical", _, "Test message\n",
+ re:split(Bin1, " ", {return, list}, {parts, 5})),
+ ?assertEqual(ok, file:delete(TestLog)),
+ {Level, _} = lager_config:get({lager_event, loglevel}),
+ lager_config:set({lager_event, loglevel},
+ {Level, {{module, ?MODULE}, ?DEBUG, {lager_file_backend, TestLog}}}),
+ lager:critical("Test message"),
+ {ok, Bin2} = file:read_file(TestLog),
+ ?assertMatch(_, _, "critical", _, "Test message\n",
+ re:split(Bin2, " ", {return, list}, {parts, 5})),
+ ?assertEqual(ok, file:delete(TestLog)),
+ lager:error("Test message"),
+ {ok, Bin3} = file:read_file(TestLog),
+ ?assertMatch(_, _, "error", _, "Test message\n",
+ re:split(Bin3, " ", {return, list}, {parts, 5}))
+ end
+ end},
+ {"tracing to a dedicated file should work",
+ fun() ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ TestLog = filename:join(TestDir, "foo.log"),
+
+ {ok, _} = lager:trace_file(TestLog, {module, ?MODULE}),
+ lager:error("Test message"),
+ %% not eligible for trace
+ lager:log(error, self(), "Test message"),
+ {ok, Bin3} = file:read_file(TestLog),
+ ?assertMatch(_, _, "error", _, "Test message\n",
+ re:split(Bin3, " ", {return, list}, {parts, 5}))
+ end},
+ {"tracing to a dedicated file should work even if root_log is set",
+ fun() ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ LogName = "foo.log",
+ LogPath = filename:join(TestDir, LogName),
+
+ application:set_env(lager, log_root, TestDir),
+ {ok, _} = lager:trace_file(LogName, {module, ?MODULE}),
+ lager:error("Test message"),
+ %% not eligible for trace
+ lager:log(error, self(), "Test message"),
+ {ok, Bin3} = file:read_file(LogPath),
+ application:unset_env(lager, log_root),
+ ?assertMatch(_, _, "error", _, "Test message\n",
+ re:split(Bin3, " ", {return, list}, {parts, 5}))
+ end},
+ {"tracing with options should work",
+ fun() ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ TestLog = filename:join(TestDir, "foo.log"),
+ TestLog0 = TestLog ++ ".0",
+
+ {ok, _} = lager:trace_file(TestLog, {module, ?MODULE},
+ {size, 20}, {check_interval, 1}),
+ lager:error("Test message"),
+ ?assertNot(filelib:is_regular(TestLog0)),
+ %% rotation is sensitive to intervals between
+ %% writes so we sleep to exceed the 1
+ %% millisecond interval specified by
+ %% check_interval above
+ timer:sleep(2),
+ lager:error("Test message"),
+ timer:sleep(10),
+ ?assert(filelib:is_regular(TestLog0))
+ end},
+ {"no silent hwm drops",
+ fun() ->
+ MsgCount = 15,
+ {ok, TestDir} = lager_util:get_test_dir(),
+ TestLog = filename:join(TestDir, "test.log"),
+ gen_event:add_handler(lager_event, lager_file_backend, {file, TestLog}, {level, info},
+ {high_water_mark, 5}, {flush_queue, false}, {sync_on, "=warning"}),
+ {_, _, MS} = os:timestamp(),
+ % start close to the beginning of a new second
+ ?assertEqual(ok, timer:sleep((1000000 - MS) div 1000 + 1)),
+ lager:log(info, self(), "Foo ~p", K) || K <- lists:seq(1, MsgCount),
+ ?assertEqual(MsgCount, lager_test_backend:count()),
+ % Note: bumped from 1000 to 1250 to ensure delayed write flushes to disk
+ ?assertEqual(ok, timer:sleep(1250)),
+ {ok, Bin} = file:read_file(TestLog),
+ Last = lists:last(re:split(Bin, "\n", {return, list}, trim)),
+ ?assertMatch(_, _, _, _, "lager_file_backend dropped 10 messages in the last second that exceeded the limit of 5 messages/sec",
+ re:split(Last, " ", {return, list}, {parts, 5}))
+ end}
+ }.
+
+trace_files_test_() ->
+ {foreach,
+ fun() ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ Log = filename:join(TestDir, "test.log"),
+ Debug = filename:join(TestDir, "debug.log"),
+ Events = filename:join(TestDir, "events.log"),
+
+ ok = error_logger:tty(false),
+ ok = lager_util:safe_application_load(lager),
+ ok = application:set_env(lager, handlers, 
+ {lager_file_backend, 
+ {file, Log},
+ {level, error},
+ {formatter, lager_default_formatter},
+ {formatter_config, message, "\n"}
+ }
+ ),
+ ok = application:set_env(lager, traces, 
+ { % get default level of debug
+ {lager_file_backend, Debug}, {module, ?MODULE}
+ },
+ { % Handler Filters Level
+ {lager_file_backend, Events}, {module, ?MODULE}, notice
+ }
+ ),
+ ok = application:set_env(lager, async_threshold, undefined),
+ ok = lager:start(),
+ {Log, Debug, Events}
+ end,
+ fun({_, _, _}) ->
+ catch ets:delete(lager_config),
+ ok = application:unset_env(lager, traces),
+ ok = application:stop(lager),
+ ok = lager_util:delete_test_dir(),
+ ok = error_logger:tty(true)
+ end, 
+ fun({Log, Debug, Events}) ->
+ {"a trace using file backend set up in configuration should work",
+ fun() ->
+ lager:error("trace test error message"),
+ lager:info("info message"),
+ %% not eligible for trace
+ lager:log(error, self(), "Not trace test message"),
+ {ok, BinInfo} = file:read_file(Events),
+ ?assertMatch(_, _, "error", _, "trace test error message\n",
+ re:split(BinInfo, " ", {return, list}, {parts, 5})),
+ ?assert(filelib:is_regular(Log)),
+ {ok, BinInfo2} = file:read_file(Log),
+ ?assertMatch("trace test error message", "Not trace test message\n",
+ re:split(BinInfo2, "\n", {return, list}, {parts, 2})),
+ ?assert(filelib:is_regular(Debug)),
+ %% XXX Aughhhh, wish I could force this to flush somehow...
+ % should take about 1 second, try for 3 ...
+ ?assertEqual(2, count_lines_until(2, add_secs(os:timestamp(), 3), Debug, 0))
+ end}
+ end
+ }.
+
+count_lines_until(Lines, Timeout, File, Last) ->
+ case timer:now_diff(Timeout, os:timestamp()) > 0 of
+ true ->
+ timer:sleep(333),
+ {ok, Bin} = file:read_file(File),
+ case erlang:length(re:split(Bin, "\n", {return, list}, trim)) of
+ Count when Count < Lines ->
+ count_lines_until(Lines, Timeout, File, Count);
+ Count ->
+ Count
+ end;
+ _ ->
+ Last
+ end.
+
+formatting_test_() ->
+ {foreach,
+ fun() ->
+ {ok, TestDir} = lager_util:get_test_dir(),
+ Log1 = filename:join(TestDir, "test.log"),
+ Log2 = filename:join(TestDir, "test2.log"),
+ ?assertEqual(ok, lager_util:safe_write_file(Log1, )),
+ ?assertEqual(ok, lager_util:safe_write_file(Log2, )),
+ ok = error_logger:tty(false),
+ ok = lager_util:safe_application_load(lager),
+ ok = application:set_env(lager, handlers, {lager_test_backend, info}),
+ ok = application:set_env(lager, error_logger_redirect, false),
+ ok = lager:start(),
+ %% same race condition issue
+ ok = timer:sleep(5),
+ {ok, Log1, Log2}
+ end,
+ fun({ok, _, _}) ->
+ ok = application:stop(lager),
+ ok = application:stop(goldrush),
+ ok = lager_util:delete_test_dir(),
+ ok = error_logger:tty(true)
+ end, 
+ fun({ok, Log1, Log2}) ->
+ {"Should have two log files, the second prefixed with 2>",
+ fun() ->
+ gen_event:add_handler(lager_event, lager_file_backend,
+ {Log1, debug}, {lager_default_formatter, "",severity," ", message, "\n"}),
+ gen_event:add_handler(lager_event, lager_file_backend,
+ {Log2, debug}, {lager_default_formatter, "2> ",severity," ", message, "\n"}),
+ lager:log(error, self(), "Test message"),
+ ?assertMatch({ok, <<"error Test message\n">>},file:read_file(Log1)),
+ ?assertMatch({ok, <<"2> error Test message\n">>},file:read_file(Log2))
+ end}
+ end
+ }.
+
+config_validation_test_() ->
+ 
+ {"missing file",
+ ?_assertEqual(false,
+ validate_logfile_proplist({level, info}, {size, 10}))
+ },
+ {"bad level",
+ ?_assertEqual(false,
+ validate_logfile_proplist({file, "test.log"}, {level, blah}, {size, 10}))
+ },
+ {"bad size",
+ ?_assertEqual(false,
+ validate_logfile_proplist({file, "test.log"}, {size, infinity}))
+ },
+ {"bad count",
+ ?_assertEqual(false,
+ validate_logfile_proplist({file, "test.log"}, {count, infinity}))
+ },
+ {"bad high water mark",
+ ?_assertEqual(false,
+ validate_logfile_proplist({file, "test.log"}, {high_water_mark, infinity}))
+ },
+ {"bad date",
+ ?_assertEqual(false,
+ validate_logfile_proplist({file, "test.log"}, {date, "midnight"}))
+ },
+ {"blank date is ok",
+ ?_assertMatch(_|_,
+ validate_logfile_proplist({file, "test.log"}, {date, ""}))
+ },
+ {"bad sync_interval",
+ ?_assertEqual(false,
+ validate_logfile_proplist({file, "test.log"}, {sync_interval, infinity}))
+ },
+ {"bad sync_size",
+ ?_assertEqual(false,
+ validate_logfile_proplist({file, "test.log"}, {sync_size, infinity}))
+ },
+ {"bad check_interval",
+ ?_assertEqual(false,
+ validate_logfile_proplist({file, "test.log"}, {check_interval, infinity}))
+ },
+ {"bad sync_on level",
+ ?_assertEqual(false,
+ validate_logfile_proplist({file, "test.log"}, {sync_on, infinity}))
+ },
+ {"bad formatter module",
+ ?_assertEqual(false,
+ validate_logfile_proplist({file, "test.log"}, {formatter, "io:format"}))
+ },
+ {"bad formatter config",
+ ?_assertEqual(false,
+ validate_logfile_proplist({file, "test.log"}, {formatter_config, blah}))
+ },
+ {"unknown option",
+ ?_assertEqual(false,
+ validate_logfile_proplist({file, "test.log"}, {rhubarb, spicy}))
+ }
+ .
+
+-endif.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_format.erl Added

@@ -0,0 +1,544 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 1996-2011-2012. All Rights Reserved.
+%% 
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%% 
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%% 
+%% %CopyrightEnd%
+%%
+-module(lager_format).
+
+%% fork of io_lib_format that uses trunc_io to protect against large terms
+
+-export(format/3, format/4).
+
+-record(options, {
+ chomp = false :: boolean()
+ }).
+
+format(FmtStr, Args, MaxLen) ->
+ format(FmtStr, Args, MaxLen, ).
+
+format(, , _, _) ->
+ "";
+format(FmtStr, Args, MaxLen, Opts) when is_atom(FmtStr) ->
+ format(atom_to_list(FmtStr), Args, MaxLen, Opts);
+format(FmtStr, Args, MaxLen, Opts) when is_binary(FmtStr) ->
+ format(binary_to_list(FmtStr), Args, MaxLen, Opts);
+format(FmtStr, Args, MaxLen, Opts) when is_list(FmtStr) ->
+ case io_lib:deep_char_list(FmtStr) of
+ true ->
+ Options = make_options(Opts, #options{}),
+ Cs = collect(FmtStr, Args),
+ {Cs2, MaxLen2} = build(Cs, , MaxLen, Options),
+ %% count how many terms remain
+ {Count, StrLen} = lists:foldl(
+ fun({_C, _As, _F, _Adj, _P, _Pad, _Enc}, {Terms, Chars}) ->
+ {Terms + 1, Chars};
+ (_, {Terms, Chars}) ->
+ {Terms, Chars + 1}
+ end, {0, 0}, Cs2),
+ build2(Cs2, Count, MaxLen2 - StrLen);
+ false ->
+ erlang:error(badarg)
+ end;
+format(_FmtStr, _Args, _MaxLen, _Opts) ->
+ erlang:error(badarg).
+
+collect($~|Fmt0, Args0) ->
+ {C,Fmt1,Args1} = collect_cseq(Fmt0, Args0),
+ C|collect(Fmt1, Args1);
+collect(C|Fmt, Args) ->
+ C|collect(Fmt, Args);
+collect(, ) -> .
+
+collect_cseq(Fmt0, Args0) ->
+ {F,Ad,Fmt1,Args1} = field_width(Fmt0, Args0),
+ {P,Fmt2,Args2} = precision(Fmt1, Args1),
+ {Pad,Fmt3,Args3} = pad_char(Fmt2, Args2),
+ {Encoding,Fmt4,Args4} = encoding(Fmt3, Args3),
+ {C,As,Fmt5,Args5} = collect_cc(Fmt4, Args4),
+ {{C,As,F,Ad,P,Pad,Encoding},Fmt5,Args5}.
+
+encoding($t|Fmt,Args) ->
+ {unicode,Fmt,Args};
+encoding(Fmt,Args) ->
+ {latin1,Fmt,Args}.
+
+field_width($-|Fmt0, Args0) ->
+ {F,Fmt,Args} = field_value(Fmt0, Args0),
+ field_width(-F, Fmt, Args);
+field_width(Fmt0, Args0) ->
+ {F,Fmt,Args} = field_value(Fmt0, Args0),
+ field_width(F, Fmt, Args).
+
+field_width(F, Fmt, Args) when F < 0 ->
+ {-F,left,Fmt,Args};
+field_width(F, Fmt, Args) when F >= 0 ->
+ {F,right,Fmt,Args}.
+
+precision($.|Fmt, Args) ->
+ field_value(Fmt, Args);
+precision(Fmt, Args) ->
+ {none,Fmt,Args}.
+
+field_value($*|Fmt, A|Args) when is_integer(A) ->
+ {A,Fmt,Args};
+field_value(C|Fmt, Args) when is_integer(C), C >= $0, C =< $9 ->
+ field_value(C|Fmt, Args, 0);
+field_value(Fmt, Args) ->
+ {none,Fmt,Args}.
+
+field_value(C|Fmt, Args, F) when is_integer(C), C >= $0, C =< $9 ->
+ field_value(Fmt, Args, 10*F + (C - $0));
+field_value(Fmt, Args, F) -> %Default case
+ {F,Fmt,Args}.
+
+pad_char($.,$*|Fmt, Pad|Args) -> {Pad,Fmt,Args};
+pad_char($.,Pad|Fmt, Args) -> {Pad,Fmt,Args};
+pad_char(Fmt, Args) -> {$\s,Fmt,Args}.
+
+%% collect_cc(FormatChar, Argument) ->
+%% {Control,ControlArg,FormatChar,Arg}.
+%% Here we collect the argments for each control character.
+%% Be explicit to cause failure early.
+
+collect_cc($w|Fmt, A|Args) -> {$w,A,Fmt,Args};
+collect_cc($p|Fmt, A|Args) -> {$p,A,Fmt,Args};
+collect_cc($W|Fmt, A,Depth|Args) -> {$W,A,Depth,Fmt,Args};
+collect_cc($P|Fmt, A,Depth|Args) -> {$P,A,Depth,Fmt,Args};
+collect_cc($s|Fmt, A|Args) -> {$s,A,Fmt,Args};
+collect_cc($e|Fmt, A|Args) -> {$e,A,Fmt,Args};
+collect_cc($f|Fmt, A|Args) -> {$f,A,Fmt,Args};
+collect_cc($g|Fmt, A|Args) -> {$g,A,Fmt,Args};
+collect_cc($b|Fmt, A|Args) -> {$b,A,Fmt,Args};
+collect_cc($B|Fmt, A|Args) -> {$B,A,Fmt,Args};
+collect_cc($x|Fmt, A,Prefix|Args) -> {$x,A,Prefix,Fmt,Args};
+collect_cc($X|Fmt, A,Prefix|Args) -> {$X,A,Prefix,Fmt,Args};
+collect_cc($+|Fmt, A|Args) -> {$+,A,Fmt,Args};
+collect_cc($#|Fmt, A|Args) -> {$#,A,Fmt,Args};
+collect_cc($c|Fmt, A|Args) -> {$c,A,Fmt,Args};
+collect_cc($~|Fmt, Args) when is_list(Args) -> {$~,,Fmt,Args};
+collect_cc($n|Fmt, Args) when is_list(Args) -> {$n,,Fmt,Args};
+collect_cc($i|Fmt, A|Args) -> {$i,A,Fmt,Args}.
+
+
+%% build(Control, Pc, Indentation) -> Char.
+%% Interpret the control structures. Count the number of print
+%% remaining and only calculate indentation when necessary. Must also
+%% be smart when calculating indentation for characters in format.
+
+build({$n, _, _, _, _, _, _}, Acc, MaxLen, #options{chomp=true}) ->
+ %% trailing ~n, ignore
+ {lists:reverse(Acc), MaxLen};
+build({C,As,F,Ad,P,Pad,Enc}|Cs, Acc, MaxLen, O) ->
+ {S, MaxLen2} = control(C, As, F, Ad, P, Pad, Enc, MaxLen),
+ build(Cs, S|Acc, MaxLen2, O);
+build($\n, Acc, MaxLen, #options{chomp=true}) ->
+ %% trailing \n, ignore
+ {lists:reverse(Acc), MaxLen};
+build($\n|Cs, Acc, MaxLen, O) ->
+ build(Cs, $\n|Acc, MaxLen - 1, O);
+build($\t|Cs, Acc, MaxLen, O) ->
+ build(Cs, $\t|Acc, MaxLen - 1, O);
+build(C|Cs, Acc, MaxLen, O) ->
+ build(Cs, C|Acc, MaxLen - 1, O);
+build(, Acc, MaxLen, _O) ->
+ {lists:reverse(Acc), MaxLen}.
+
+build2({C,As,F,Ad,P,Pad,Enc}|Cs, Count, MaxLen) ->
+ {S, Len} = control2(C, As, F, Ad, P, Pad, Enc, MaxLen div Count),
+ S|build2(Cs, Count - 1, MaxLen - Len);
+build2(C|Cs, Count, MaxLen) ->
+ C|build2(Cs, Count, MaxLen);
+build2(, _, _) -> .
+
+%% control(FormatChar, Argument, FieldWidth, Adjust, Precision, PadChar,
+%% Indentation) -> Char
+%% This is the main dispatch function for the various formatting commands.
+%% Field widths and precisions have already been calculated.
+
+control($e, A, F, Adj, P, Pad, _Enc, L) when is_float(A) ->
+ Res = fwrite_e(A, F, Adj, P, Pad),
+ {Res, L - lists:flatlength(Res)};
+control($f, A, F, Adj, P, Pad, _Enc, L) when is_float(A) ->
+ Res = fwrite_f(A, F, Adj, P, Pad),
+ {Res, L - lists:flatlength(Res)};
+control($g, A, F, Adj, P, Pad, _Enc, L) when is_float(A) ->
+ Res = fwrite_g(A, F, Adj, P, Pad),
+ {Res, L - lists:flatlength(Res)};
+control($b, A, F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
+ Res = unprefixed_integer(A, F, Adj, base(P), Pad, true),
+ {Res, L - lists:flatlength(Res)};
+control($B, A, F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
+ Res = unprefixed_integer(A, F, Adj, base(P), Pad, false),
+ {Res, L - lists:flatlength(Res)};
+control($x, A,Prefix, F, Adj, P, Pad, _Enc, L) when is_integer(A), 
+ is_atom(Prefix) ->
+ Res = prefixed_integer(A, F, Adj, base(P), Pad, atom_to_list(Prefix), true),
+ {Res, L - lists:flatlength(Res)};
+control($x, A,Prefix, F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
+ true = io_lib:deep_char_list(Prefix), %Check if Prefix a character list
+ Res = prefixed_integer(A, F, Adj, base(P), Pad, Prefix, true),
+ {Res, L - lists:flatlength(Res)};
+control($X, A,Prefix, F, Adj, P, Pad, _Enc, L) when is_integer(A), 
+ is_atom(Prefix) ->
+ Res = prefixed_integer(A, F, Adj, base(P), Pad, atom_to_list(Prefix), false),
+ {Res, L - lists:flatlength(Res)};
+control($X, A,Prefix, F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
+ true = io_lib:deep_char_list(Prefix), %Check if Prefix a character list
+ Res = prefixed_integer(A, F, Adj, base(P), Pad, Prefix, false),
+ {Res, L - lists:flatlength(Res)};
+control($+, A, F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
+ Base = base(P),
+ Prefix = integer_to_list(Base), $#,
+ Res = prefixed_integer(A, F, Adj, Base, Pad, Prefix, true),
+ {Res, L - lists:flatlength(Res)};
+control($#, A, F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
+ Base = base(P),
+ Prefix = integer_to_list(Base), $#,
+ Res = prefixed_integer(A, F, Adj, Base, Pad, Prefix, false),
+ {Res, L - lists:flatlength(Res)};
+control($c, A, F, Adj, P, Pad, unicode, L) when is_integer(A) ->
+ Res = char(A, F, Adj, P, Pad),
+ {Res, L - lists:flatlength(Res)};
+control($c, A, F, Adj, P, Pad, _Enc, L) when is_integer(A) ->
+ Res = char(A band 255, F, Adj, P, Pad),
+ {Res, L - lists:flatlength(Res)};
+control($~, , F, Adj, P, Pad, _Enc, L) ->
+ Res = char($~, F, Adj, P, Pad),
+ {Res, L - lists:flatlength(Res)};
+control($n, , F, Adj, P, Pad, _Enc, L) ->
+ Res = newline(F, Adj, P, Pad),
+ {Res, L - lists:flatlength(Res)};
+control($i, _A, _F, _Adj, _P, _Pad, _Enc, L) ->
+ {, L};
+control($s, A, F, Adj, P, Pad, _Enc, L) when is_atom(A) ->
+ Res = string(atom_to_list(A), F, Adj, P, Pad),
+ {Res, L - lists:flatlength(Res)};
+control(C, A, F, Adj, P, Pad, Enc, L) ->
+ %% save this for later - these are all the 'large' terms
+ {{C, A, F, Adj, P, Pad, Enc}, L}.
+
+control2($w, A, F, Adj, P, Pad, _Enc, L) ->
+ Term = lager_trunc_io:fprint(A, L, {lists_as_strings, false}),
+ Res = term(Term, F, Adj, P, Pad),
+ {Res, lists:flatlength(Res)};
+control2($p, A, _F, _Adj, _P, _Pad, _Enc, L) ->
+ Term = lager_trunc_io:fprint(A, L, {lists_as_strings, true}),
+ {Term, lists:flatlength(Term)};
+control2($W, A,Depth, F, Adj, P, Pad, _Enc, L) when is_integer(Depth) ->
+ Term = lager_trunc_io:fprint(A, L, {depth, Depth}, {lists_as_strings, false}),
+ Res = term(Term, F, Adj, P, Pad),
+ {Res, lists:flatlength(Res)};
+control2($P, A,Depth, _F, _Adj, _P, _Pad, _Enc, L) when is_integer(Depth) ->
+ Term = lager_trunc_io:fprint(A, L, {depth, Depth}, {lists_as_strings, true}),
+ {Term, lists:flatlength(Term)};
+control2($s, L0, F, Adj, P, Pad, latin1, L) ->
+ List = lager_trunc_io:fprint(iolist_to_chars(L0), L, {force_strings, true}),
+ Res = string(List, F, Adj, P, Pad),
+ {Res, lists:flatlength(Res)};
+control2($s, L0, F, Adj, P, Pad, unicode, L) ->
+ List = lager_trunc_io:fprint(cdata_to_chars(L0), L, {force_strings, true}),
+ Res = uniconv(string(List, F, Adj, P, Pad)),
+ {Res, lists:flatlength(Res)}.
+
+iolist_to_chars(C|Cs) when is_integer(C), C >= $\000, C =< $\377 ->
+ C | iolist_to_chars(Cs);
+iolist_to_chars(I|Cs) ->
+ iolist_to_chars(I) | iolist_to_chars(Cs);
+iolist_to_chars() ->
+ ;
+iolist_to_chars(B) when is_binary(B) ->
+ binary_to_list(B).
+
+cdata_to_chars(C|Cs) when is_integer(C), C >= $\000 ->
+ C | cdata_to_chars(Cs);
+cdata_to_chars(I|Cs) ->
+ cdata_to_chars(I) | cdata_to_chars(Cs);
+cdata_to_chars() ->
+ ;
+cdata_to_chars(B) when is_binary(B) ->
+ case catch unicode:characters_to_list(B) of
+ L when is_list(L) -> L;
+ _ -> binary_to_list(B)
+ end.
+
+make_options(, Options) ->
+ Options;
+make_options({chomp, Bool}|T, Options) when is_boolean(Bool) ->
+ make_options(T, Options#options{chomp=Bool}).
+
+-ifdef(UNICODE_AS_BINARIES).
+uniconv(C) ->
+ unicode:characters_to_binary(C,unicode).
+-else.
+uniconv(C) ->
+ C.
+-endif.
+%% Default integer base
+base(none) ->
+ 10;
+base(B) when is_integer(B) ->
+ B.
+
+%% term(TermList, Field, Adjust, Precision, PadChar)
+%% Output the characters in a term.
+%% Adjust the characters within the field if length less than Max padding
+%% with PadChar.
+
+term(T, none, _Adj, none, _Pad) -> T;
+term(T, none, Adj, P, Pad) -> term(T, P, Adj, P, Pad);
+term(T, F, Adj, P0, Pad) ->
+ L = lists:flatlength(T),
+ P = case P0 of none -> erlang:min(L, F); _ -> P0 end,
+ if
+ L > P ->
+ adjust(chars($*, P), chars(Pad, F-P), Adj);
+ F >= P ->
+ adjust(T, chars(Pad, F-L), Adj)
+ end.
+
+%% fwrite_e(Float, Field, Adjust, Precision, PadChar)
+
+fwrite_e(Fl, none, Adj, none, Pad) -> %Default values
+ fwrite_e(Fl, none, Adj, 6, Pad);
+fwrite_e(Fl, none, _Adj, P, _Pad) when P >= 2 ->
+ float_e(Fl, float_data(Fl), P);
+fwrite_e(Fl, F, Adj, none, Pad) ->
+ fwrite_e(Fl, F, Adj, 6, Pad);
+fwrite_e(Fl, F, Adj, P, Pad) when P >= 2 ->
+ term(float_e(Fl, float_data(Fl), P), F, Adj, F, Pad).
+
+float_e(Fl, Fd, P) when Fl < 0.0 -> %Negative numbers
+ $-|float_e(-Fl, Fd, P);
+float_e(_Fl, {Ds,E}, P) ->
+ case float_man(Ds, 1, P-1) of
+ {$0|Fs,true} -> $1|Fs|float_exp(E);
+ {Fs,false} -> Fs|float_exp(E-1)
+ end.
+
+%% float_man(Digit, Icount, Dcount) -> {Chars,CarryFlag}.
+%% Generate the characters in the mantissa from the digits with Icount
+%% characters before the '.' and Dcount decimals. Handle carry and let
+%% caller decide what to do at top.
+
+float_man(Ds, 0, Dc) ->
+ {Cs,C} = float_man(Ds, Dc),
+ {$.|Cs,C};
+float_man(D|Ds, I, Dc) ->
+ case float_man(Ds, I-1, Dc) of
+ {Cs,true} when D =:= $9 -> {$0|Cs,true};
+ {Cs,true} -> {D+1|Cs,false};
+ {Cs,false} -> {D|Cs,false}
+ end;
+float_man(, I, Dc) -> %Pad with 0's
+ {string:chars($0, I, $.|string:chars($0, Dc)),false}.
+
+float_man(D|_, 0) when D >= $5 -> {,true};
+float_man(_|_, 0) -> {,false};
+float_man(D|Ds, Dc) ->
+ case float_man(Ds, Dc-1) of
+ {Cs,true} when D =:= $9 -> {$0|Cs,true};
+ {Cs,true} -> {D+1|Cs,false}; 
+ {Cs,false} -> {D|Cs,false}
+ end;
+float_man(, Dc) -> {string:chars($0, Dc),false}. %Pad with 0's
+
+%% float_exp(Exponent) -> Char.
+%% Generate the exponent of a floating point number. Always include sign.
+
+float_exp(E) when E >= 0 ->
+ $e,$+|integer_to_list(E);
+float_exp(E) ->
+ $e|integer_to_list(E).
+
+%% fwrite_f(FloatData, Field, Adjust, Precision, PadChar)
+
+fwrite_f(Fl, none, Adj, none, Pad) -> %Default values
+ fwrite_f(Fl, none, Adj, 6, Pad);
+fwrite_f(Fl, none, _Adj, P, _Pad) when P >= 1 ->
+ float_f(Fl, float_data(Fl), P);
+fwrite_f(Fl, F, Adj, none, Pad) ->
+ fwrite_f(Fl, F, Adj, 6, Pad);
+fwrite_f(Fl, F, Adj, P, Pad) when P >= 1 ->
+ term(float_f(Fl, float_data(Fl), P), F, Adj, F, Pad).
+
+float_f(Fl, Fd, P) when Fl < 0.0 ->
+ $-|float_f(-Fl, Fd, P);
+float_f(Fl, {Ds,E}, P) when E =< 0 ->
+ float_f(Fl, {string:chars($0, -E+1, Ds),1}, P); %Prepend enough 0's 
+float_f(_Fl, {Ds,E}, P) ->
+ case float_man(Ds, E, P) of
+ {Fs,true} -> "1" ++ Fs; %Handle carry
+ {Fs,false} -> Fs
+ end.
+
+%% float_data(FloatChar) -> {Digit,Exponent}
+
+float_data(Fl) ->
+ float_data(float_to_list(Fl), ).
+
+float_data($e|E, Ds) ->
+ {lists:reverse(Ds),list_to_integer(E)+1};
+float_data(D|Cs, Ds) when D >= $0, D =< $9 ->
+ float_data(Cs, D|Ds);
+float_data(_|Cs, Ds) ->
+ float_data(Cs, Ds).
+
+%% fwrite_g(Float, Field, Adjust, Precision, PadChar)
+%% Use the f form if Float is >= 0.1 and < 1.0e4, 
+%% and the prints correctly in the f form, else the e form.
+%% Precision always means the # of significant digits.
+
+fwrite_g(Fl, F, Adj, none, Pad) ->
+ fwrite_g(Fl, F, Adj, 6, Pad);
+fwrite_g(Fl, F, Adj, P, Pad) when P >= 1 ->
+ A = abs(Fl),
+ E = if A < 1.0e-1 -> -2;
+ A < 1.0e0 -> -1;
+ A < 1.0e1 -> 0;
+ A < 1.0e2 -> 1;
+ A < 1.0e3 -> 2;
+ A < 1.0e4 -> 3;
+ true -> fwrite_f
+ end,
+ if P =< 1, E =:= -1;
+ P-1 > E, E >= -1 ->
+ fwrite_f(Fl, F, Adj, P-1-E, Pad);
+ P =< 1 ->
+ fwrite_e(Fl, F, Adj, 2, Pad);
+ true ->
+ fwrite_e(Fl, F, Adj, P, Pad)
+ end.
+
+
+%% string(String, Field, Adjust, Precision, PadChar)
+
+string(S, none, _Adj, none, _Pad) -> S;
+string(S, F, Adj, none, Pad) ->
+ string_field(S, F, Adj, lists:flatlength(S), Pad);
+string(S, none, _Adj, P, Pad) ->
+ string_field(S, P, left, lists:flatlength(S), Pad);
+string(S, F, Adj, P, Pad) when F >= P ->
+ N = lists:flatlength(S),
+ if F > P ->
+ if N > P ->
+ adjust(flat_trunc(S, P), chars(Pad, F-P), Adj);
+ N 
+ adjust(S|chars(Pad, P-N), chars(Pad, F-P), Adj);
+ true -> % N == P
+ adjust(S, chars(Pad, F-P), Adj)
+ end;
+ true -> % F == P
+ string_field(S, F, Adj, N, Pad)
+ end.
+
+string_field(S, F, _Adj, N, _Pad) when N > F ->
+ flat_trunc(S, F);
+string_field(S, F, Adj, N, Pad) when N < F ->
+ adjust(S, chars(Pad, F-N), Adj);
+string_field(S, _, _, _, _) -> % N == F
+ S.
+
+%% unprefixed_integer(Int, Field, Adjust, Base, PadChar, Lowercase)
+%% -> Char.
+
+unprefixed_integer(Int, F, Adj, Base, Pad, Lowercase)
+ when Base >= 2, Base =< 1+$Z-$A+10 ->
+ if Int < 0 ->
+ S = cond_lowercase(erlang:integer_to_list(-Int, Base), Lowercase),
+ term($-|S, F, Adj, none, Pad);
+ true ->
+ S = cond_lowercase(erlang:integer_to_list(Int, Base), Lowercase),
+ term(S, F, Adj, none, Pad)
+ end.
+
+%% prefixed_integer(Int, Field, Adjust, Base, PadChar, Prefix, Lowercase)
+%% -> Char.
+
+prefixed_integer(Int, F, Adj, Base, Pad, Prefix, Lowercase)
+ when Base >= 2, Base =< 1+$Z-$A+10 ->
+ if Int < 0 ->
+ S = cond_lowercase(erlang:integer_to_list(-Int, Base), Lowercase),
+ term($-,Prefix|S, F, Adj, none, Pad);
+ true ->
+ S = cond_lowercase(erlang:integer_to_list(Int, Base), Lowercase),
+ term(Prefix|S, F, Adj, none, Pad)
+ end.
+
+%% char(Char, Field, Adjust, Precision, PadChar) -> Char.
+
+char(C, none, _Adj, none, _Pad) -> C;
+char(C, F, _Adj, none, _Pad) -> chars(C, F);
+char(C, none, _Adj, P, _Pad) -> chars(C, P);
+char(C, F, Adj, P, Pad) when F >= P ->
+ adjust(chars(C, P), chars(Pad, F - P), Adj).
+
+%% newline(Field, Adjust, Precision, PadChar) -> Char.
+
+newline(none, _Adj, _P, _Pad) -> "\n";
+newline(F, right, _P, _Pad) -> chars($\n, F).
+
+%%
+%% Utilities
+%%
+
+adjust(Data, , _) -> Data;
+adjust(Data, Pad, left) -> Data|Pad;
+adjust(Data, Pad, right) -> Pad|Data.
+
+%% Flatten and truncate a deep list to at most N elements.
+flat_trunc(List, N) when is_integer(N), N >= 0 ->
+ flat_trunc(List, N, ).
+
+flat_trunc(L, 0, R) when is_list(L) ->
+ lists:reverse(R);
+flat_trunc(H|T, N, R) ->
+ flat_trunc(T, N-1, H|R);
+flat_trunc(, _, R) ->
+ lists:reverse(R).
+
+%% A deep version of string:chars/2,3
+
+chars(_C, 0) ->
+ ;
+chars(C, 1) ->
+ C;
+chars(C, 2) ->
+ C,C;
+chars(C, 3) ->
+ C,C,C;
+chars(C, N) when is_integer(N), (N band 1) =:= 0 ->
+ S = chars(C, N bsr 1),
+ S|S;
+chars(C, N) when is_integer(N) ->
+ S = chars(C, N bsr 1),
+ C,S|S.
+
+%chars(C, N, Tail) ->
+% chars(C, N)|Tail.
+
+%% Lowercase conversion
+
+cond_lowercase(String, true) ->
+ lowercase(String);
+cond_lowercase(String,false) ->
+ String.
+
+lowercase(H|T) when is_integer(H), H >= $A, H =< $Z ->
+ (H-$A+$a)|lowercase(T);
+lowercase(H|T) ->
+ H|lowercase(T);
+lowercase() ->
+ .

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_handler_watcher.erl Added

@@ -0,0 +1,243 @@
+%% Copyright (c) 2011-2012 Basho Technologies, Inc.  All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License.  You may obtain
+%% a copy of the License at
+%%
+%%   http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied.  See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc A process that does a gen_event:add_sup_handler and attempts to re-add
+%% event handlers when they exit.
+
+%% @private
+
+-module(lager_handler_watcher).
+
+-behaviour(gen_server).
+
+-include("lager.hrl").
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-export(pop_until/2).
+-endif.
+
+%% callbacks
+-export(init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2,
+        code_change/3).
+
+-export(start_link/3, start/3).
+
+-record(state, {
+        module :: atom(),
+        config :: any(),
+        sink :: pid() | atom()
+    }).
+
+start_link(Sink, Module, Config) ->
+    gen_server:start_link(?MODULE, Sink, Module, Config, ).
+
+start(Sink, Module, Config) ->
+    gen_server:start(?MODULE, Sink, Module, Config, ).
+
+init(Sink, Module, Config) ->
+    process_flag(trap_exit, true),
+    install_handler(Sink, Module, Config),
+    {ok, #state{sink=Sink, module=Module, config=Config}}.
+
+handle_call(_Call, _From, State) ->
+    {reply, ok, State}.
+
+handle_cast(_Request, State) ->
+    {noreply, State}.
+
+handle_info({gen_event_EXIT, Module, normal}, #state{module=Module} = State) ->
+    {stop, normal, State};
+handle_info({gen_event_EXIT, Module, shutdown}, #state{module=Module} = State) ->
+    {stop, normal, State};
+handle_info({gen_event_EXIT, Module, {'EXIT', {kill_me, _KillerHWM, KillerReinstallAfter}}},
+        #state{module=Module, sink=Sink, config = Config} = State) ->
+    %% Brutally kill the manager but stay alive to restore settings.
+    %%
+    %% SinkPid here means the gen_event process. Handlers *all* live inside the
+    %% same gen_event process space, so when the Pid is killed, *all* of the 
+    %% pending log messages in its mailbox will die too.
+    SinkPid = whereis(Sink),
+    unlink(SinkPid),
+    {message_queue_len, Len} = process_info(SinkPid, message_queue_len),
+    error_logger:error_msg("Killing sink ~p, current message_queue_len:~p~n", Sink, Len),
+    exit(SinkPid, kill),
+    _ = timer:apply_after(KillerReinstallAfter, lager_app, start_handler, Sink, Module, Config),
+    {stop, normal, State};
+handle_info({gen_event_EXIT, Module, Reason}, #state{module=Module,
+        config=Config, sink=Sink} = State) ->
+    case lager:log(error, self(), "Lager event handler ~p exited with reason ~s",
+        Module, error_logger_lager_h:format_reason(Reason)) of
+      ok ->
+        install_handler(Sink, Module, Config);
+      {error, _} ->
+        %% lager is not working, so installing a handler won't work
+        ok
+    end,
+    {noreply, State};
+handle_info(reinstall_handler, #state{module=Module, config=Config, sink=Sink} = State) ->
+    install_handler(Sink, Module, Config),
+    {noreply, State};
+handle_info({reboot, Sink}, State) ->
+    _ = lager_app:boot(Sink),
+    {noreply, State};
+handle_info(stop, State) ->
+    {stop, normal, State};
+handle_info({'EXIT', _Pid, killed}, #state{module=Module, config=Config, sink=Sink} = State) ->
+    Tmr = application:get_env(lager, killer_reinstall_after, 5000),
+    _ = timer:apply_after(Tmr, lager_app, start_handler, Sink, Module, Config),
+    {stop, normal, State};
+handle_info(_Info, State) ->
+    {noreply, State}.
+
+terminate(_Reason, _State) ->
+    ok.
+
+code_change(_OldVsn, State, _Extra) ->
+    {ok, State}.
+
+%% internal
+install_handler(Sink, lager_backend_throttle, Config) ->
+    %% The lager_backend_throttle needs to know to which sink it is
+    %% attached, hence this admittedly ugly workaround. Handlers are
+    %% sensitive to the structure of the configuration sent to `init',
+    %% sadly, so it's not trivial to add a configuration item to be
+    %% ignored to backends without breaking 3rd party handlers.
+    install_handler2(Sink, lager_backend_throttle, {sink, Sink}|Config);
+install_handler(Sink, Module, Config) ->
+    install_handler2(Sink, Module, Config).
+
+%% private
+install_handler2(Sink, Module, Config) ->
+    case gen_event:add_sup_handler(Sink, Module, Config) of
+        ok ->
+            ?INT_LOG(debug, "Lager installed handler ~p into ~p", Module, Sink),
+            lager:update_loglevel_config(Sink),
+            ok;
+        {error, {fatal, Reason}} ->
+            ?INT_LOG(error, "Lager fatally failed to install handler ~p into"
+                " ~p, NOT retrying: ~p", Module, Sink, Reason),
+            %% tell ourselves to stop
+            self() ! stop,
+            ok;
+        Error ->
+            %% try to reinstall it later
+            ?INT_LOG(error, "Lager failed to install handler ~p into"
+               " ~p, retrying later : ~p", Module, Sink, Error),
+            erlang:send_after(5000, self(), reinstall_handler),
+            ok
+    end.
+
+-ifdef(TEST).
+
+from_now(Seconds) ->
+    {Mega, Secs, Micro} = os:timestamp(),
+    {Mega, Secs + Seconds, Micro}.
+
+reinstall_on_initial_failure_test_() ->
+    {timeout, 60000,
+        
+            fun() ->
+                    error_logger:tty(false),
+                    application:load(lager),
+                    application:set_env(lager, handlers, {lager_test_backend, info}, {lager_crash_backend, from_now(2), undefined}),
+                    application:set_env(lager, error_logger_redirect, false),
+                    application:unset_env(lager, crash_log),
+                    lager:start(),
+                    try
+                      {_Level, _Time, Message, _Metadata} = lager_test_backend:pop(),
+                      ?assertMatch("Lager failed to install handler lager_crash_backend into lager_event, retrying later :"++_, lists:flatten(Message)),
+                      timer:sleep(6000),
+                      lager_test_backend:flush(),
+                      ?assertEqual(0, lager_test_backend:count()),
+                      ?assert(lists:member(lager_crash_backend, gen_event:which_handlers(lager_event)))
+                    after
+                      application:stop(lager),
+                      application:stop(goldrush),
+                      error_logger:tty(true)
+                    end
+            end
+        
+    }.
+
+reinstall_on_runtime_failure_test_() ->
+    {timeout, 60000,
+        
+            fun() ->
+                    error_logger:tty(false),
+                    application:load(lager),
+                    application:set_env(lager, handlers, {lager_test_backend, info}, {lager_crash_backend, undefined, from_now(5)}),
+                    application:set_env(lager, error_logger_redirect, false),
+                    application:unset_env(lager, crash_log),
+                    lager:start(),
+                    try
+                        ?assert(lists:member(lager_crash_backend, gen_event:which_handlers(lager_event))),
+                        timer:sleep(6000),
+
+                        pop_until("Lager event handler lager_crash_backend exited with reason crash", fun lists:flatten/1),
+                        pop_until("Lager failed to install handler lager_crash_backend into lager_event, retrying later",
+                                  fun(Msg) -> string:substr(lists:flatten(Msg), 1, 84) end),
+                        ?assertEqual(false, lists:member(lager_crash_backend, gen_event:which_handlers(lager_event)))
+                    after
+                       application:stop(lager),
+                       application:stop(goldrush),
+                       error_logger:tty(true)
+                   end
+            end
+        
+    }.
+
+reinstall_handlers_after_killer_hwm_test_() ->
+    {timeout, 60000,
+        
+            fun() ->
+                error_logger:tty(false),
+                application:load(lager),
+                application:set_env(lager, handlers, {lager_manager_killer, 1000, 5000}),
+                application:set_env(lager, error_logger_redirect, false),
+                application:set_env(lager, killer_reinstall_after, 5000),
+                application:unset_env(lager, crash_log),
+                lager:start(),
+                lager:trace_file("foo", {foo, "bar"}, error),
+                L = length(gen_event:which_handlers(lager_event)),
+                try
+                    lager_manager_killer:kill_me(),
+                    timer:sleep(6000),
+                    ?assertEqual(L, length(gen_event:which_handlers(lager_event))),
+                    file:delete("foo")
+                after
+                    application:stop(lager),
+                    application:stop(goldrush),
+                    error_logger:tty(true)
+                end
+            end
+        
+    }.
+
+pop_until(String, Fun) ->
+    try_backend_pop(lager_test_backend:pop(), String, Fun).
+
+try_backend_pop(undefined, String, _Fun) ->
+    throw("Not found: " ++ String);
+try_backend_pop({_Severity, _Date, Msg, _Metadata}, String, Fun) ->
+    case Fun(Msg) of
+        String ->
+            ok;
+        _ ->
+            try_backend_pop(lager_test_backend:pop(), String, Fun)
+    end.
+
+-endif.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_handler_watcher_sup.erl Added

@@ -0,0 +1,39 @@
+%% Copyright (c) 2011-2012 Basho Technologies, Inc.  All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License.  You may obtain
+%% a copy of the License at
+%%
+%%   http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied.  See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc A supervisor for monitoring lager_handler_watcher processes.
+
+%% @private
+
+-module(lager_handler_watcher_sup).
+
+-behaviour(supervisor).
+
+%% API
+-export(start_link/0).
+
+%% Callbacks
+-export(init/1).
+
+start_link() ->
+    supervisor:start_link({local, ?MODULE}, ?MODULE, ).
+
+init() ->
+    {ok, {{simple_one_for_one, 10, 60},
+            
+                {lager_handler_watcher, {lager_handler_watcher, start_link, },
+                        temporary, 5000, worker, lager_handler_watcher}
+                }}.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_manager_killer.erl Added

@@ -0,0 +1,53 @@
+-module(lager_manager_killer).
+-author("Sungjin Park <jinni.park@gmail.com>").
+-behavior(gen_event).
+
+-export(init/1, handle_event/2, handle_call/2, handle_info/2, terminate/2, code_change/3).
+
+-export(kill_me/0).
+
+-include("lager.hrl").
+
+-record(state, {
+ killer_hwm :: non_neg_integer(),
+ killer_reinstall_after :: non_neg_integer()
+ }).
+
+kill_me() ->
+ gen_event:call(lager_event, ?MODULE, kill_self).
+
+init(KillerHWM, KillerReinstallAfter) ->
+ {ok, #state{killer_hwm=KillerHWM, killer_reinstall_after=KillerReinstallAfter}}.
+
+handle_call(get_loglevel, State) ->
+ {ok, {mask, ?LOG_NONE}, State};
+handle_call({set_loglevel, _Level}, State) ->
+ {ok, ok, State};
+handle_call(get_settings, State = #state{killer_hwm=KillerHWM, killer_reinstall_after=KillerReinstallAfter}) ->
+ {ok, KillerHWM, KillerReinstallAfter, State};
+handle_call(kill_self, #state{killer_hwm=KillerHWM, killer_reinstall_after=KillerReinstallAfter}) ->
+ exit({kill_me, KillerHWM, KillerReinstallAfter});
+handle_call(_Request, State) ->
+ {ok, ok, State}.
+%% It's not the best idea in the world to check the queue length for every
+%% log message. We can make this operation work on a poll timer in the
+%% future.
+handle_event({log, _Message}, State = #state{killer_hwm=KillerHWM, killer_reinstall_after=KillerReinstallAfter}) ->
+ {message_queue_len, Len} = process_info(self(), message_queue_len),
+ case Len > KillerHWM of
+ true ->
+ exit({kill_me, KillerHWM, KillerReinstallAfter});
+ _ ->
+ {ok, State}
+ end;
+handle_event(_Event, State) ->
+ {ok, State}.
+
+handle_info(_Info, State) ->
+ {ok, State}.
+
+terminate(_Reason, _State) ->
+ ok.
+
+code_change(_OldVsn, State, _Extra) ->
+ {ok, State}.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_msg.erl Added

@@ -0,0 +1,64 @@
+-module(lager_msg).
+
+-export(new/4, new/5).
+-export(message/1).
+-export(timestamp/1).
+-export(datetime/1).
+-export(severity/1).
+-export(severity_as_int/1).
+-export(metadata/1).
+-export(destinations/1).
+
+-record(lager_msg,{
+        destinations :: list(),
+        metadata :: tuple(),
+        severity :: lager:log_level(),
+        datetime :: {string(), string()},
+        timestamp :: erlang:timestamp(),
+        message :: list()
+    }).
+
+-opaque lager_msg() :: #lager_msg{}.
+-export_type(lager_msg/0).
+
+%% create with provided timestamp, handy for testing mostly
+-spec new(list(), erlang:timestamp(), lager:log_level(), tuple(), list()) -> lager_msg().
+new(Msg, Timestamp, Severity, Metadata, Destinations) ->
+    {Date, Time} = lager_util:format_time(lager_util:maybe_utc(lager_util:localtime_ms(Timestamp))),
+    #lager_msg{message=Msg, datetime={Date, Time}, timestamp=Timestamp, severity=Severity,
+        metadata=Metadata, destinations=Destinations}.
+
+-spec new(list(), lager:log_level(), tuple(), list()) -> lager_msg().
+new(Msg, Severity, Metadata, Destinations) ->
+    Now = os:timestamp(),
+    new(Msg, Now, Severity, Metadata, Destinations).
+
+-spec message(lager_msg()) -> list().
+message(Msg) ->
+    Msg#lager_msg.message.
+
+-spec timestamp(lager_msg()) -> erlang:timestamp().
+timestamp(Msg) ->
+    Msg#lager_msg.timestamp.
+
+-spec datetime(lager_msg()) -> {string(), string()}.
+datetime(Msg) ->
+    Msg#lager_msg.datetime.
+
+-spec severity(lager_msg()) -> lager:log_level().
+severity(Msg) ->
+    Msg#lager_msg.severity.
+
+-spec severity_as_int(lager_msg()) -> lager:log_level_number().
+severity_as_int(Msg) ->
+    lager_util:level_to_num(Msg#lager_msg.severity).
+
+-spec metadata(lager_msg()) -> tuple().
+metadata(Msg) ->
+    Msg#lager_msg.metadata.
+
+-spec destinations(lager_msg()) -> list().
+destinations(Msg) ->
+    Msg#lager_msg.destinations.
+
+

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_rotator_behaviour.erl Added

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_rotator_default.erl Added

@@ -0,0 +1,197 @@
+-module(lager_rotator_default).
+
+-include_lib("kernel/include/file.hrl").
+
+-behaviour(lager_rotator_behaviour).
+
+-export(
+ create_logfile/2, open_logfile/2, ensure_logfile/5, rotate_logfile/2
+).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+
+create_logfile(Name, Buffer) ->
+ open_logfile(Name, Buffer).
+
+open_logfile(Name, Buffer) ->
+ case filelib:ensure_dir(Name) of
+ ok ->
+ Options = append, raw ++
+ case Buffer of
+ {Size0, Interval} when is_integer(Interval), Interval >= 0, is_integer(Size0), Size0 >= 0 ->
+ {delayed_write, Size0, Interval};
+ _ -> 
+ end,
+ case file:open(Name, Options) of
+ {ok, FD} ->
+ case file:read_file_info(Name, raw) of
+ {ok, FInfo0} ->
+ Inode = FInfo0#file_info.inode,
+ {ok, Ctime} = maybe_update_ctime(Name, FInfo0),
+ Size1 = FInfo0#file_info.size,
+ {ok, {FD, Inode, Ctime, Size1}};
+ X -> X
+ end;
+ Y -> Y
+ end;
+ Z -> Z
+ end.
+
+ensure_logfile(Name, undefined, _Inode, _Ctime, Buffer) ->
+ open_logfile(Name, Buffer);
+ensure_logfile(Name, FD, Inode0, Ctime0, Buffer) ->
+ case lager_util:has_file_changed(Name, Inode0, Ctime0) of
+ {true, _FInfo} ->
+ reopen_logfile(Name, FD, Buffer);
+ {_, FInfo} ->
+ {ok, {FD, Inode0, Ctime0, FInfo#file_info.size}}
+ end.
+
+reopen_logfile(Name, FD0, Buffer) ->
+ %% Flush and close any file handles.
+ %% delayed write can cause file:close not to do a close
+ _ = file:datasync(FD0),
+ _ = file:close(FD0),
+ _ = file:close(FD0),
+ case open_logfile(Name, Buffer) of
+ {ok, {_FD1, _Inode, _Size, _Ctime}=FileInfo} ->
+ %% inode changed, file was probably moved and
+ %% recreated
+ {ok, FileInfo};
+ Error ->
+ Error
+ end.
+
+%% renames failing are OK
+rotate_logfile(File, 0) ->
+ %% open the file in write-only mode to truncate/create it
+ case file:open(File, write) of
+ {ok, FD} ->
+ _ = file:close(FD),
+ _ = file:close(FD),
+ {ok, _Ctime} = maybe_update_ctime(File),
+ ok;
+ Error ->
+ Error
+ end;
+rotate_logfile(File0, 1) ->
+ File1 = File0 ++ ".0",
+ _ = file:rename(File0, File1),
+ rotate_logfile(File0, 0);
+rotate_logfile(File0, Count) ->
+ File1 = File0 ++ "." ++ integer_to_list(Count - 2),
+ File2 = File0 ++ "." ++ integer_to_list(Count - 1),
+ _ = file:rename(File1, File2),
+ rotate_logfile(File0, Count - 1).
+
+maybe_update_ctime(Name) ->
+ case file:read_file_info(Name, raw) of
+ {ok, FInfo} ->
+ maybe_update_ctime(Name, FInfo);
+ _ ->
+ {ok, calendar:local_time()}
+ end.
+
+maybe_update_ctime(Name, FInfo) ->
+ {OsType, _} = os:type(),
+ do_update_ctime(OsType, Name, FInfo).
+
+do_update_ctime(win32, Name, FInfo0) ->
+ % Note: we force the creation time to be the current time.
+ % On win32 this may prevent the ctime from being updated:
+ % https://stackoverflow.com/q/8804342/1466825
+ NewCtime = calendar:local_time(),
+ FInfo1 = FInfo0#file_info{ctime = NewCtime},
+ ok = file:write_file_info(Name, FInfo1, raw),
+ {ok, NewCtime};
+do_update_ctime(_, _Name, FInfo) ->
+ {ok, FInfo#file_info.ctime}.
+
+-ifdef(TEST).
+
+rotate_file_test() ->
+ RotCount = 10,
+ {ok, TestDir} = lager_util:create_test_dir(),
+ TestLog = filename:join(TestDir, "rotation.log"),
+ Outer = fun(N) ->
+ ?assertEqual(ok, lager_util:safe_write_file(TestLog, erlang:integer_to_list(N))),
+ Inner = fun(M) ->
+ File = lists:flatten(TestLog, $., erlang:integer_to_list(M)),
+ ?assert(filelib:is_regular(File)),
+ %% check the expected value is in the file
+ Number = erlang:list_to_binary(integer_to_list(N - M - 1)),
+ ?assertEqual({ok, Number}, file:read_file(File))
+ end,
+ Count = erlang:min(N, RotCount),
+ % The first time through, Count == 0, so the sequence is empty,
+ % effectively skipping the inner loop so a rotation can occur that
+ % creates the file that Inner looks for.
+ % Don't shoot the messenger, it was worse before this refactoring.
+ lists:foreach(Inner, lists:seq(0, Count-1)),
+ rotate_logfile(TestLog, RotCount)
+ end,
+ lists:foreach(Outer, lists:seq(0, (RotCount * 2))),
+ lager_util:delete_test_dir(TestDir).
+
+rotate_file_zero_count_test() ->
+ %% Test that a rotation count of 0 simply truncates the file
+ {ok, TestDir} = lager_util:create_test_dir(),
+ TestLog = filename:join(TestDir, "rotation.log"),
+ ?assertMatch(ok, rotate_logfile(TestLog, 0)),
+ ?assertNot(filelib:is_regular(TestLog ++ ".0")),
+ ?assertEqual(true, filelib:is_regular(TestLog)),
+ ?assertEqual(1, length(filelib:wildcard(TestLog++"*"))),
+ %% assert the new file is 0 size:
+ case file:read_file_info(TestLog, raw) of
+ {ok, FInfo} ->
+ ?assertEqual(0, FInfo#file_info.size);
+ _ ->
+ ?assert(false)
+ end,
+ lager_util:delete_test_dir(TestDir).
+
+rotate_file_fail_test() ->
+ {ok, TestDir} = lager_util:create_test_dir(),
+ TestLog = filename:join(TestDir, "rotation.log"),
+
+ %% set known permissions on it
+ ok = lager_util:set_dir_permissions("u+rwx", TestDir),
+
+ %% write a file
+ ?assertEqual(ok, lager_util:safe_write_file(TestLog, "hello")),
+
+ case os:type() of
+ {win32, _} -> ok;
+ _ ->
+ %% hose up the permissions
+ ok = lager_util:set_dir_permissions("u-w", TestDir),
+ ?assertMatch({error, _}, rotate_logfile(TestLog, 10))
+ end,
+
+ %% check we still only have one file, rotation.log
+ ?assertEqual(TestLog, filelib:wildcard(TestLog++"*")),
+ ?assert(filelib:is_regular(TestLog)),
+
+ %% fix the permissions
+ ok = lager_util:set_dir_permissions("u+w", TestDir),
+
+ ?assertMatch(ok, rotate_logfile(TestLog, 10)),
+ ?assert(filelib:is_regular(TestLog ++ ".0")),
+ ?assertEqual(true, filelib:is_regular(TestLog)),
+ ?assertEqual(2, length(filelib:wildcard(TestLog++"*"))),
+
+ %% assert the new file is 0 size:
+ case file:read_file_info(TestLog, raw) of
+ {ok, FInfo} ->
+ ?assertEqual(0, FInfo#file_info.size);
+ _ ->
+ ?assert(false)
+ end,
+
+ %% check that the .0 file now has the contents "hello"
+ ?assertEqual({ok, <<"hello">>}, file:read_file(TestLog++".0")),
+ lager_util:delete_test_dir(TestDir).
+
+-endif.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_stdlib.erl Added

@@ -0,0 +1,502 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 1996-2009. All Rights Reserved.
+%% 
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%% 
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%% 
+%% %CopyrightEnd%
+%%
+
+%% @doc Functions from Erlang OTP distribution that are really useful
+%% but aren't exported.
+%%
+%% All functions in this module are covered by the Erlang/OTP source
+%% distribution's license, the Erlang Public License. See
+%% http://www.erlang.org/ for full details.
+
+-module(lager_stdlib).
+
+-export(string_p/1).
+-export(write_time/2, maybe_utc/1).
+-export(is_my_error_report/1, is_my_info_report/1).
+-export(sup_get/2).
+-export(proc_lib_format/2).
+
+
+%% from error_logger_file_h
+string_p() ->
+ false;
+string_p(Term) ->
+ string_p1(Term).
+
+string_p1(H|T) when is_integer(H), H >= $\s, H < 256 ->
+ string_p1(T);
+string_p1($\n|T) -> string_p1(T);
+string_p1($\r|T) -> string_p1(T);
+string_p1($\t|T) -> string_p1(T);
+string_p1($\v|T) -> string_p1(T);
+string_p1($\b|T) -> string_p1(T);
+string_p1($\f|T) -> string_p1(T);
+string_p1($\e|T) -> string_p1(T);
+string_p1(H|T) when is_list(H) ->
+ case string_p1(H) of
+ true -> string_p1(T);
+ _ -> false
+ end;
+string_p1() -> true;
+string_p1(_) -> false.
+
+%% From calendar
+-type year1970() :: 1970..10000. % should probably be 1970..
+-type month() :: 1..12.
+-type day() :: 1..31.
+-type hour() :: 0..23.
+-type minute() :: 0..59.
+-type second() :: 0..59.
+-type t_time() :: {hour(),minute(),second()}.
+-type t_datetime1970() :: {{year1970(),month(),day()},t_time()}.
+
+%% From OTP stdlib's error_logger_tty_h.erl ... These functions aren't
+%% exported.
+-spec write_time({utc, t_datetime1970()} | t_datetime1970(), string()) -> string().
+write_time({utc,{{Y,Mo,D},{H,Mi,S}}},Type) ->
+ io_lib:format("~n=~s==== ~p-~s-~p::~s:~s:~s UTC ===~n",
+ Type,D,month(Mo),Y,t(H),t(Mi),t(S));
+write_time({{Y,Mo,D},{H,Mi,S}},Type) ->
+ io_lib:format("~n=~s==== ~p-~s-~p::~s:~s:~s ===~n",
+ Type,D,month(Mo),Y,t(H),t(Mi),t(S)).
+
+-spec maybe_utc(t_datetime1970()) -> {utc, t_datetime1970()} | t_datetime1970().
+maybe_utc(Time) ->
+ UTC = case application:get_env(sasl, utc_log) of
+ {ok, Val} ->
+ Val;
+ undefined ->
+ %% Backwards compatible:
+ application:get_env(stdlib, utc_log, false)
+ end,
+ if
+ UTC =:= true ->
+ UTCTime = case calendar:local_time_to_universal_time_dst(Time) of
+ -> calendar:local_time();
+ T0|_ -> T0
+ end,
+ {utc, UTCTime};
+ true -> 
+ Time
+ end.
+
+t(X) when is_integer(X) ->
+ t1(integer_to_list(X));
+t(_) ->
+ "".
+t1(X) -> $0,X;
+t1(X) -> X.
+
+month(1) -> "Jan";
+month(2) -> "Feb";
+month(3) -> "Mar";
+month(4) -> "Apr";
+month(5) -> "May";
+month(6) -> "Jun";
+month(7) -> "Jul";
+month(8) -> "Aug";
+month(9) -> "Sep";
+month(10) -> "Oct";
+month(11) -> "Nov";
+month(12) -> "Dec".
+
+%% From OTP sasl's sasl_report.erl ... These functions aren't
+%% exported.
+-spec is_my_error_report(atom()) -> boolean().
+is_my_error_report(supervisor_report) -> true;
+is_my_error_report(crash_report) -> true;
+is_my_error_report(_) -> false.
+
+-spec is_my_info_report(atom()) -> boolean().
+is_my_info_report(progress) -> true;
+is_my_info_report(_) -> false.
+
+-spec sup_get(term(), proplists:property()) -> term().
+sup_get(Tag, Report) ->
+ case lists:keysearch(Tag, 1, Report) of
+ {value, {_, Value}} ->
+ Value;
+ _ ->
+ ""
+ end.
+
+%% From OTP stdlib's proc_lib.erl ... These functions aren't exported.
+-spec proc_lib_format(term(), pos_integer()) -> string().
+proc_lib_format(OwnReport,LinkReport, FmtMaxBytes) ->
+ OwnFormat = format_report(OwnReport, FmtMaxBytes),
+ LinkFormat = format_report(LinkReport, FmtMaxBytes),
+ %% io_lib:format here is OK because we're limiting max length elsewhere.
+ Str = io_lib:format(" crasher:~n~s neighbours:~n~s",OwnFormat,LinkFormat),
+ lists:flatten(Str).
+
+format_report(Rep, FmtMaxBytes) when is_list(Rep) ->
+ format_rep(Rep, FmtMaxBytes);
+format_report(Rep, FmtMaxBytes) ->
+ {Str, _} = lager_trunc_io:print(Rep, FmtMaxBytes),
+ io_lib:format("~p~n", Str).
+
+format_rep({initial_call,InitialCall}|Rep, FmtMaxBytes) ->
+ format_mfa(InitialCall, FmtMaxBytes)|format_rep(Rep, FmtMaxBytes);
+format_rep({error_info,{Class,Reason,StackTrace}}|Rep, FmtMaxBytes) ->
+ format_exception(Class, Reason, StackTrace, FmtMaxBytes)|format_rep(Rep, FmtMaxBytes);
+format_rep({Tag,Data}|Rep, FmtMaxBytes) ->
+ format_tag(Tag, Data, FmtMaxBytes)|format_rep(Rep, FmtMaxBytes);
+format_rep(_, _S) ->
+ .
+
+format_exception(Class, Reason, StackTrace, FmtMaxBytes) ->
+ PF = pp_fun(FmtMaxBytes),
+ StackFun = fun(M, _F, _A) -> (M =:= erl_eval) or (M =:= ?MODULE) end,
+ %% EI = " exception: ",
+ EI = " ",
+ EI, lib_format_exception(1+length(EI), Class, Reason, 
+ StackTrace, StackFun, PF), "\n".
+
+format_mfa({M,F,Args}=StartF, FmtMaxBytes) ->
+ try
+ A = length(Args),
+ " initial call: ",atom_to_list(M),$:,atom_to_list(F),$/,
+ integer_to_list(A),"\n"
+ catch
+ error:_ ->
+ format_tag(initial_call, StartF, FmtMaxBytes)
+ end.
+
+pp_fun(FmtMaxBytes) ->
+ fun(Term, _I) -> 
+ {Str, _} = lager_trunc_io:print(Term, FmtMaxBytes),
+ io_lib:format("~s", Str) 
+ end.
+
+format_tag(Tag, Data, FmtMaxBytes) ->
+ {Str, _} = lager_trunc_io:print(Data, FmtMaxBytes),
+ io_lib:format(" ~p: ~s~n", Tag, Str).
+
+%% From OTP stdlib's lib.erl ... These functions aren't exported.
+
+lib_format_exception(I, Class, Reason, StackTrace, StackFun, FormatFun) 
+ when is_integer(I), I >= 1, is_function(StackFun, 3), 
+ is_function(FormatFun, 2) ->
+ Str = n_spaces(I-1),
+ {Term,Trace1,Trace} = analyze_exception(Class, Reason, StackTrace),
+ Expl0 = explain_reason(Term, Class, Trace1, FormatFun, Str),
+ Expl = io_lib:fwrite(<<"~s~s">>, exited(Class), Expl0),
+ case format_stacktrace1(Str, Trace, FormatFun, StackFun) of
+ -> Expl;
+ Stack -> Expl, $\n, Stack
+ end.
+
+analyze_exception(error, Term, Stack) ->
+ case {is_stacktrace(Stack), Stack, Term} of
+ {true, {_M,_F,As}=MFA|MFAs, function_clause} when is_list(As) -> 
+ {Term,MFA,MFAs};
+ {true, {shell,F,A}, function_clause} when is_integer(A) ->
+ {Term, {F,A}, };
+ {true, {_M,_F,_AorAs}=MFA|MFAs, undef} ->
+ {Term,MFA,MFAs};
+ {true, _, _} ->
+ {Term,,Stack};
+ {false, _, _} ->
+ {{Term,Stack},,}
+ end;
+analyze_exception(_Class, Term, Stack) ->
+ case is_stacktrace(Stack) of
+ true ->
+ {Term,,Stack};
+ false ->
+ {{Term,Stack},,}
+ end.
+
+is_stacktrace() ->
+ true;
+is_stacktrace({M,F,A}|Fs) when is_atom(M), is_atom(F), is_integer(A) ->
+ is_stacktrace(Fs);
+is_stacktrace({M,F,As}|Fs) when is_atom(M), is_atom(F), length(As) >= 0 ->
+ is_stacktrace(Fs);
+is_stacktrace(_) ->
+ false.
+
+%% ERTS exit codes (some of them are also returned by erl_eval):
+explain_reason(badarg, error, , _PF, _Str) ->
+ <<"bad argument">>;
+explain_reason({badarg,V}, error=Cl, , PF, Str) -> % orelse, andalso
+ format_value(V, <<"bad argument: ">>, Cl, PF, Str);
+explain_reason(badarith, error, , _PF, _Str) ->
+ <<"bad argument in an arithmetic expression">>;
+explain_reason({badarity,{Fun,As}}, error, , _PF, _Str) 
+ when is_function(Fun) ->
+ %% Only the arity is displayed, not the arguments As.
+ io_lib:fwrite(<<"~s called with ~s">>, 
+ format_fun(Fun), argss(length(As)));
+explain_reason({badfun,Term}, error=Cl, , PF, Str) ->
+ format_value(Term, <<"bad function ">>, Cl, PF, Str);
+explain_reason({badmatch,Term}, error=Cl, , PF, Str) ->
+ format_value(Term, <<"no match of right hand side value ">>, Cl, PF, Str);
+explain_reason({case_clause,V}, error=Cl, , PF, Str) ->
+ %% "there is no case clause with a true guard sequence and a
+ %% pattern matching..."
+ format_value(V, <<"no case clause matching ">>, Cl, PF, Str);
+explain_reason(function_clause, error, {F,A}, _PF, _Str) ->
+ %% Shell commands
+ FAs = io_lib:fwrite(<<"~w/~w">>, F, A),
+ <<"no function clause matching call to ">> | FAs;
+explain_reason(function_clause, error=Cl, {M,F,As}, PF, Str) ->
+ String = <<"no function clause matching ">>,
+ format_errstr_call(String, Cl, {M,F}, As, PF, Str);
+explain_reason(if_clause, error, , _PF, _Str) ->
+ <<"no true branch found when evaluating an if expression">>;
+explain_reason(noproc, error, , _PF, _Str) ->
+ <<"no such process or port">>;
+explain_reason(notalive, error, , _PF, _Str) ->
+ <<"the node cannot be part of a distributed system">>;
+explain_reason(system_limit, error, , _PF, _Str) ->
+ <<"a system limit has been reached">>;
+explain_reason(timeout_value, error, , _PF, _Str) ->
+ <<"bad receive timeout value">>;
+explain_reason({try_clause,V}, error=Cl, , PF, Str) ->
+ %% "there is no try clause with a true guard sequence and a
+ %% pattern matching..."
+ format_value(V, <<"no try clause matching ">>, Cl, PF, Str);
+explain_reason(undef, error, {M,F,A}, _PF, _Str) ->
+ %% Only the arity is displayed, not the arguments, if there are any.
+ io_lib:fwrite(<<"undefined function ~s">>, 
+ mfa_to_string(M, F, n_args(A)));
+explain_reason({shell_undef,F,A}, error, , _PF, _Str) ->
+ %% Give nicer reports for undefined shell functions
+ %% (but not when the user actively calls shell_default:F(...)).
+ io_lib:fwrite(<<"undefined shell command ~s/~w">>, F, n_args(A));
+%% Exit codes returned by erl_eval only:
+explain_reason({argument_limit,_Fun}, error, , _PF, _Str) ->
+ io_lib:fwrite(<<"limit of number of arguments to interpreted function"
+ " exceeded">>, );
+explain_reason({bad_filter,V}, error=Cl, , PF, Str) ->
+ format_value(V, <<"bad filter ">>, Cl, PF, Str);
+explain_reason({bad_generator,V}, error=Cl, , PF, Str) ->
+ format_value(V, <<"bad generator ">>, Cl, PF, Str);
+explain_reason({unbound,V}, error, , _PF, _Str) ->
+ io_lib:fwrite(<<"variable ~w is unbound">>, V);
+%% Exit codes local to the shell module (restricted shell):
+explain_reason({restricted_shell_bad_return, V}, exit=Cl, , PF, Str) ->
+ String = <<"restricted shell module returned bad value ">>,
+ format_value(V, String, Cl, PF, Str);
+explain_reason({restricted_shell_disallowed,{ForMF,As}}, 
+ exit=Cl, , PF, Str) ->
+ %% ForMF can be a fun, but not a shell fun.
+ String = <<"restricted shell does not allow ">>,
+ format_errstr_call(String, Cl, ForMF, As, PF, Str);
+explain_reason(restricted_shell_started, exit, , _PF, _Str) ->
+ <<"restricted shell starts now">>;
+explain_reason(restricted_shell_stopped, exit, , _PF, _Str) ->
+ <<"restricted shell stopped">>;
+%% Other exit code:
+explain_reason(Reason, Class, , PF, Str) ->
+ PF(Reason, (iolist_size(Str)+1) + exited_size(Class)).
+
+n_spaces(N) ->
+ lists:duplicate(N, $\s).
+
+exited_size(Class) ->
+ iolist_size(exited(Class)).
+
+exited(error) ->
+ <<"exception error: ">>;
+exited(exit) ->
+ <<"exception exit: ">>;
+exited(throw) ->
+ <<"exception throw: ">>.
+
+format_stacktrace1(S0, Stack0, PF, SF) ->
+ Stack1 = lists:dropwhile(fun({M,F,A}) -> SF(M, F, A)
+ end, lists:reverse(Stack0)),
+ S = " " | S0,
+ Stack = lists:reverse(Stack1),
+ format_stacktrace2(S, Stack, 1, PF).
+
+format_stacktrace2(S, {M,F,A}|Fs, N, PF) when is_integer(A) ->
+ io_lib:fwrite(<<"~s~s ~s">>, 
+ sep(N, S), origin(N, M, F, A), mfa_to_string(M, F, A))
+ | format_stacktrace2(S, Fs, N + 1, PF);
+format_stacktrace2(S, {M,F,As}|Fs, N, PF) when is_list(As) ->
+ A = length(As),
+ CalledAs = S,<<" called as ">>,
+ C = format_call("", CalledAs, {M,F}, As, PF),
+ io_lib:fwrite(<<"~s~s ~s\n~s~s">>,
+ sep(N, S), origin(N, M, F, A), mfa_to_string(M, F, A),
+ CalledAs, C)
+ | format_stacktrace2(S, Fs, N + 1, PF);
+format_stacktrace2(_S, , _N, _PF) ->
+ "".
+
+argss(0) ->
+ <<"no arguments">>;
+argss(1) ->
+ <<"one argument">>;
+argss(2) ->
+ <<"two arguments">>;
+argss(I) ->
+ io_lib:fwrite(<<"~w arguments">>, I).
+
+format_value(V, ErrStr, Class, PF, Str) ->
+ Pre1Sz = exited_size(Class),
+ Str1 = PF(V, Pre1Sz + iolist_size(Str, ErrStr)+1),
+ ErrStr | case count_nl(Str1) of
+ N1 when N1 > 1 ->
+ Str2 = PF(V, iolist_size(Str) + 1 + Pre1Sz),
+ case count_nl(Str2) < N1 of
+ true ->
+ $\n, Str, n_spaces(Pre1Sz) | Str2;
+ false ->
+ Str1
+ end;
+ _ ->
+ Str1
+ end.
+
+format_fun(Fun) when is_function(Fun) ->
+ {module, M} = erlang:fun_info(Fun, module),
+ {name, F} = erlang:fun_info(Fun, name),
+ {arity, A} = erlang:fun_info(Fun, arity),
+ case erlang:fun_info(Fun, type) of
+ {type, local} when F =:= "" ->
+ io_lib:fwrite(<<"~w">>, Fun);
+ {type, local} when M =:= erl_eval ->
+ io_lib:fwrite(<<"interpreted function with arity ~w">>, A);
+ {type, local} ->
+ mfa_to_string(M, F, A);
+ {type, external} ->
+ mfa_to_string(M, F, A)
+ end.
+
+format_errstr_call(ErrStr, Class, ForMForFun, As, PF, Pre0) ->
+ Pre1 = Pre0 | n_spaces(exited_size(Class)),
+ format_call(ErrStr, Pre1, ForMForFun, As, PF).
+
+format_call(ErrStr, Pre1, ForMForFun, As, PF) ->
+ Arity = length(As),
+ ErrStr |
+ case is_op(ForMForFun, Arity) of
+ {yes,Op} -> 
+ format_op(ErrStr, Pre1, Op, As, PF);
+ no ->
+ MFs = mf_to_string(ForMForFun, Arity),
+ I1 = iolist_size(Pre1,ErrStr|MFs),
+ S1 = pp_arguments(PF, As, I1),
+ S2 = pp_arguments(PF, As, iolist_size(Pre1|MFs)),
+ Long = count_nl(pp_arguments(PF, a2345,b2345, I1)) > 0,
+ case Long or (count_nl(S2) < count_nl(S1)) of
+ true ->
+ $\n, Pre1, MFs, S2;
+ false ->
+ MFs, S1
+ end
+ end.
+
+mfa_to_string(M, F, A) ->
+ io_lib:fwrite(<<"~s/~w">>, mf_to_string({M, F}, A), A).
+
+mf_to_string({M, F}, A) ->
+ case erl_internal:bif(M, F, A) of
+ true ->
+ io_lib:fwrite(<<"~w">>, F);
+ false ->
+ case is_op({M, F}, A) of
+ {yes, '/'} ->
+ io_lib:fwrite(<<"~w">>, F);
+ {yes, F} ->
+ atom_to_list(F);
+ no ->
+ io_lib:fwrite(<<"~w:~w">>, M, F)
+ end
+ end;
+mf_to_string(Fun, _A) when is_function(Fun) ->
+ format_fun(Fun);
+mf_to_string(F, _A) ->
+ io_lib:fwrite(<<"~w">>, F).
+
+n_args(A) when is_integer(A) ->
+ A;
+n_args(As) when is_list(As) ->
+ length(As).
+
+origin(1, M, F, A) ->
+ case is_op({M, F}, n_args(A)) of
+ {yes, F} -> <<"in operator ">>;
+ no -> <<"in function ">>
+ end;
+origin(_N, _M, _F, _A) ->
+ <<"in call from">>.
+
+sep(1, S) -> S;
+sep(_, S) -> $\n | S.
+
+count_nl(E | Es) ->
+ count_nl(E) + count_nl(Es);
+count_nl($\n) ->
+ 1;
+count_nl(Bin) when is_binary(Bin) ->
+ count_nl(binary_to_list(Bin));
+count_nl(_) ->
+ 0.
+
+is_op(ForMForFun, A) ->
+ try 
+ {erlang,F} = ForMForFun,
+ _ = erl_internal:op_type(F, A), 
+ {yes,F}
+ catch error:_ -> no
+ end.
+
+format_op(ErrStr, Pre, Op, A1, A2, PF) ->
+ I1 = iolist_size(ErrStr,Pre),
+ S1 = PF(A1, I1+1),
+ S2 = PF(A2, I1+1),
+ OpS = atom_to_list(Op),
+ Pre1 = $\n | n_spaces(I1),
+ case count_nl(S1) > 0 of
+ true -> 
+ S1,Pre1,OpS,Pre1|S2;
+ false ->
+ OpS2 = io_lib:fwrite(<<" ~s ">>, Op),
+ S2_2 = PF(A2, iolist_size(ErrStr,Pre,S1|OpS2)+1),
+ case count_nl(S2) < count_nl(S2_2) of
+ true ->
+ S1,Pre1,OpS,Pre1|S2;
+ false ->
+ S1,OpS2|S2_2
+ end
+ end.
+
+pp_arguments(PF, As, I) ->
+ case {As, io_lib:printable_list(As)} of
+ {Int | T, true} ->
+ L = integer_to_list(Int),
+ Ll = length(L),
+ A = list_to_atom(lists:duplicate(Ll, $a)),
+ S0 = binary_to_list(iolist_to_binary(PF(A | T, I+1))),
+ brackets_to_parens($,L,string:sub_string(S0, 2+Ll));
+ _ -> 
+ brackets_to_parens(PF(As, I+1))
+ end.
+
+brackets_to_parens(S) ->
+ B = iolist_to_binary(S),
+ Sz = byte_size(B) - 2,
+ <<$,R:Sz/binary,$>> = B,
+ $(,R,$).
+

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_sup.erl Added

@@ -0,0 +1,92 @@
+%% Copyright (c) 2011-2012 Basho Technologies, Inc.  All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License.  You may obtain
+%% a copy of the License at
+%%
+%%   http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied.  See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc Lager's top level supervisor.
+
+%% @private
+
+-module(lager_sup).
+
+-behaviour(supervisor).
+
+%% API
+-export(start_link/0).
+
+%% Callbacks
+-export(init/1).
+
+start_link() ->
+    supervisor:start_link({local, ?MODULE}, ?MODULE, ).
+
+init() ->
+    %% set up the config, is safe even during relups
+    lager_config:new(),
+    %% TODO:
+    %% Always start lager_event as the default and make sure that
+    %% other gen_event stuff can start up as needed
+    %%
+    %% Maybe a new API to handle the sink and its policy?
+    Children = 
+        {lager, {gen_event, start_link, {local, lager_event}},
+            permanent, 5000, worker, dynamic},
+        {lager_handler_watcher_sup, {lager_handler_watcher_sup, start_link, },
+            permanent, 5000, supervisor, lager_handler_watcher_sup},
+
+    CrashLog = decide_crash_log(application:get_env(lager, crash_log, false)),
+
+    {ok, {{one_for_one, 10, 60},
+          Children ++ CrashLog
+         }}.
+
+validate_positive({ok, Val}, _Default) when is_integer(Val) andalso Val >= 0 ->
+    Val;
+validate_positive(_Val, Default) ->
+    Default.
+
+determine_rotation_date({ok, ""}) ->
+    undefined;
+determine_rotation_date({ok, Val3}) ->
+    case lager_util:parse_rotation_date_spec(Val3) of
+        {ok, Spec} -> Spec;
+        {error, _} ->
+            error_logger:error_msg("Invalid date spec for "
+                                   "crash log ~p~n", Val3),
+            undefined
+    end;
+determine_rotation_date(_) ->
+    undefined.
+
+determine_rotator_mod({ok, Mod}, _Default) when is_atom(Mod) ->
+    Mod;
+determine_rotator_mod(_, Default) ->
+    Default.
+
+decide_crash_log(undefined) ->
+    ;
+decide_crash_log(false) ->
+    ;
+decide_crash_log(File) ->
+    MaxBytes = validate_positive(application:get_env(lager, crash_log_msg_size), 65536),
+    RotationSize = validate_positive(application:get_env(lager, crash_log_size), 0),
+    RotationCount = validate_positive(application:get_env(lager, crash_log_count), 0),
+
+    RotationDate = determine_rotation_date(application:get_env(lager, crash_log_date)),
+    RotationMod = determine_rotator_mod(application:get_env(lager, crash_log_rotator), lager_rotator_default),
+
+
+    {lager_crash_log, {lager_crash_log, start_link, File, MaxBytes,
+                                                      RotationSize, RotationDate, RotationCount, RotationMod},
+      permanent, 5000, worker, lager_crash_log}.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_transform.erl Added

@@ -0,0 +1,336 @@
+%% Copyright (c) 2011-2012 Basho Technologies, Inc. All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc The parse transform used for lager messages.
+%% This parse transform rewrites functions calls to lager:Severity/1,2 into
+%% a more complicated function that captures module, function, line, pid and
+%% time as well. The entire function call is then wrapped in a case that
+%% checks the lager_config 'loglevel' value, so the code isn't executed if
+%% nothing wishes to consume the message.
+
+-module(lager_transform).
+
+-include("lager.hrl").
+
+-export(parse_transform/2).
+
+%% @private
+parse_transform(AST, Options) ->
+ TruncSize = proplists:get_value(lager_truncation_size, Options, ?DEFAULT_TRUNCATION),
+ Enable = proplists:get_value(lager_print_records_flag, Options, true),
+ Sinks = lager ++ proplists:get_value(lager_extra_sinks, Options, ),
+ Functions = proplists:get_value(lager_function_transforms, Options, ),
+ put(print_records_flag, Enable),
+ put(truncation_size, TruncSize),
+ put(sinks, Sinks),
+ put(functions, lists:keysort(1, Functions)),
+ erlang:put(records, ),
+ %% .app file should either be in the outdir, or the same dir as the source file
+ guess_application(proplists:get_value(outdir, Options), hd(AST)),
+ walk_ast(, AST).
+
+walk_ast(Acc, ) ->
+ case get(print_records_flag) of
+ true ->
+ insert_record_attribute(Acc);
+ false ->
+ lists:reverse(Acc)
+ end;
+walk_ast(Acc, {attribute, _, module, {Module, _PmodArgs}}=H|T) ->
+ %% A wild parameterized module appears!
+ put(module, Module),
+ walk_ast(H|Acc, T);
+walk_ast(Acc, {attribute, _, module, Module}=H|T) ->
+ put(module, Module),
+ walk_ast(H|Acc, T);
+walk_ast(Acc, {attribute, _, lager_function_transforms, FromModule }=H|T) ->
+ %% Merge transform options from the module over the compile options
+ FromOptions = get(functions),
+ put(functions, orddict:merge(fun(_Key, _V1, V2) -> V2 end, FromOptions, lists:keysort(1, FromModule))),
+ walk_ast(H|Acc, T);
+walk_ast(Acc, {function, Line, Name, Arity, Clauses}|T) ->
+ put(function, Name),
+ walk_ast({function, Line, Name, Arity,
+ walk_clauses(, Clauses)}|Acc, T);
+walk_ast(Acc, {attribute, _, record, {Name, Fields}}=H|T) ->
+ FieldNames = lists:map(fun record_field_name/1, Fields),
+ stash_record({Name, FieldNames}),
+ walk_ast(H|Acc, T);
+walk_ast(Acc, H|T) ->
+ walk_ast(H|Acc, T).
+
+record_field_name({record_field, _, {atom, _, FieldName}}) ->
+ FieldName;
+record_field_name({record_field, _, {atom, _, FieldName}, _Default}) ->
+ FieldName;
+record_field_name({typed_record_field, Field, _Type}) ->
+ record_field_name(Field).
+
+walk_clauses(Acc, ) ->
+ lists:reverse(Acc);
+walk_clauses(Acc, {clause, Line, Arguments, Guards, Body}|T) ->
+ walk_clauses({clause, Line, Arguments, Guards, walk_body(, Body)}|Acc, T).
+
+walk_body(Acc, ) ->
+ lists:reverse(Acc);
+walk_body(Acc, H|T) ->
+ walk_body(transform_statement(H, get(sinks))|Acc, T).
+
+transform_statement({call, Line, {remote, _Line1, {atom, _Line2, Module},
+ {atom, _Line3, Function}}, Arguments0} = Stmt,
+ Sinks) ->
+ case lists:member(Module, Sinks) of
+ true ->
+ case lists:member(Function, ?LEVELS) of
+ true ->
+ SinkName = lager_util:make_internal_sink_name(Module),
+ do_transform(Line, SinkName, Function, Arguments0);
+ false ->
+ case lists:keyfind(Function, 1, ?LEVELS_UNSAFE) of
+ {Function, Severity} ->
+ SinkName = lager_util:make_internal_sink_name(Module),
+ do_transform(Line, SinkName, Severity, Arguments0, unsafe);
+ false ->
+ Stmt
+ end
+ end;
+ false ->
+ list_to_tuple(transform_statement(tuple_to_list(Stmt), Sinks))
+ end;
+transform_statement(Stmt, Sinks) when is_tuple(Stmt) ->
+ list_to_tuple(transform_statement(tuple_to_list(Stmt), Sinks));
+transform_statement(Stmt, Sinks) when is_list(Stmt) ->
+ transform_statement(S, Sinks) || S <- Stmt;
+transform_statement(Stmt, _Sinks) ->
+ Stmt.
+
+
+add_function_transforms(_Line, DefaultAttrs, ) ->
+ DefaultAttrs;
+add_function_transforms(Line, DefaultAttrs, {Atom, on_emit, {Module, Function}}|Remainder) ->
+ NewFunction = {tuple, Line, 
+ {atom, Line, Atom},
+ {'fun', Line, {
+ function, {atom, Line, Module}, {atom, Line, Function}, {integer, Line, 0}
+ }}
+ },
+ add_function_transforms(Line, {cons, Line, NewFunction, DefaultAttrs}, Remainder);
+add_function_transforms(Line, DefaultAttrs, {Atom, on_log, {Module, Function}}|Remainder) ->
+ NewFunction = {tuple, Line, 
+ {atom, Line, Atom},
+ {call, Line, {remote, Line, {atom, Line, Module}, {atom, Line, Function}}, }
+ },
+ add_function_transforms(Line, {cons, Line, NewFunction, DefaultAttrs}, Remainder).
+
+
+do_transform(Line, SinkName, Severity, Arguments0) ->
+ do_transform(Line, SinkName, Severity, Arguments0, safe).
+
+do_transform(Line, SinkName, Severity, Arguments0, Safety) ->
+ SeverityAsInt=lager_util:level_to_num(Severity),
+ DefaultAttrs0 = {cons, Line, {tuple, Line, 
+ {atom, Line, module}, {atom, Line, get(module)}},
+ {cons, Line, {tuple, Line, 
+ {atom, Line, function}, {atom, Line, get(function)}},
+ {cons, Line, {tuple, Line, 
+ {atom, Line, line},
+ {integer, Line, Line}},
+ {cons, Line, {tuple, Line, 
+ {atom, Line, pid},
+ {call, Line, {atom, Line, pid_to_list}, 
+ {call, Line, {atom, Line ,self}, }}},
+ {cons, Line, {tuple, Line, 
+ {atom, Line, node},
+ {call, Line, {atom, Line, node}, }},
+ %% get the metadata with lager:md(), this will always return a list so we can use it as the tail here
+ {call, Line, {remote, Line, {atom, Line, lager}, {atom, Line, md}}, }}}}}},
+ %{nil, Line}}}}}}},
+ Functions = get(functions),
+ DefaultAttrs1 = add_function_transforms(Line, DefaultAttrs0, Functions),
+ DefaultAttrs = case erlang:get(application) of
+ undefined ->
+ DefaultAttrs1;
+ App ->
+ %% stick the application in the attribute list
+ concat_lists({cons, Line, {tuple, Line, 
+ {atom, Line, application},
+ {atom, Line, App}},
+ {nil, Line}}, DefaultAttrs1)
+ end,
+ {Meta, Message, Arguments} = handle_args(DefaultAttrs, Line, Arguments0),
+ %% Generate some unique variable names so we don't accidentally export from case clauses.
+ %% Note that these are not actual atoms, but the AST treats variable names as atoms.
+ LevelVar = make_varname("__Level", Line),
+ TracesVar = make_varname("__Traces", Line),
+ PidVar = make_varname("__Pid", Line),
+ LogFun = case Safety of
+ safe ->
+ do_log;
+ unsafe ->
+ do_log_unsafe
+ end,
+ %% Wrap the call to lager:dispatch_log/6 in case that will avoid doing any work if this message is not elegible for logging
+ %% See lager.erl (lines 89-100) for lager:dispatch_log/6
+ %% case {whereis(Sink), whereis(?DEFAULT_SINK), lager_config:get({Sink, loglevel}, {?LOG_NONE, })} of
+ {'case',Line,
+ {tuple,Line,
+ {call,Line,{atom,Line,whereis},{atom,Line,SinkName}},
+ {call,Line,{atom,Line,whereis},{atom,Line,?DEFAULT_SINK}}, 
+ {call,Line,
+ {remote,Line,{atom,Line,lager_config},{atom,Line,get}},
+ {tuple,Line,{atom,Line,SinkName},{atom,Line,loglevel}},
+ {tuple,Line,{integer,Line,0},{nil,Line}}}},
+ %% {undefined, undefined, _} -> {error, lager_not_running};
+ {clause,Line,
+ {tuple,Line,
+ {atom,Line,undefined},{atom,Line,undefined},{var,Line,'_'}},
+ ,
+ {tuple, erl_anno:set_generated(true, Line), {atom, Line, error},{atom, Line, lager_not_running}}
+ },
+ %% {undefined, _, _} -> {error, {sink_not_configured, Sink}};
+ {clause,Line,
+ {tuple,Line,
+ {atom,Line,undefined},{var,Line,'_'},{var,Line,'_'}},
+ ,
+ {tuple, erl_anno:set_generated(true, Line), {atom,Line,error}, {tuple,Line,{atom,Line,sink_not_configured},{atom,Line,SinkName}}}
+ },
+ %% {SinkPid, _, {Level, Traces}} when ... -> lager:do_log/9;
+ {clause,Line,
+ {tuple,Line,
+ {var,Line,PidVar},
+ {var,Line,'_'},
+ {tuple,Line,{var,Line,LevelVar},{var,Line,TracesVar}}},
+ {op, Line, 'orelse',
+ {op, Line, '/=', {op, Line, 'band', {var, Line, LevelVar}, {integer, Line, SeverityAsInt}}, {integer, Line, 0}},
+ {op, Line, '/=', {var, Line, TracesVar}, {nil, Line}}},
+ {call,Line,{remote, Line, {atom, Line, lager}, {atom, Line, LogFun}},
+ {atom,Line,Severity},
+ Meta,
+ Message,
+ Arguments,
+ {integer, Line, get(truncation_size)},
+ {integer, Line, SeverityAsInt},
+ {var, Line, LevelVar},
+ {var, Line, TracesVar},
+ {atom, Line, SinkName},
+ {var, Line, PidVar}}},
+ %% _ -> ok
+ {clause,Line,{var,Line,'_'},,{atom,Line,ok}}}.
+ 
+handle_args(DefaultAttrs, Line, {cons, LineNum, {tuple, _, _}, _} = Attrs) ->
+ {concat_lists(DefaultAttrs, Attrs), {string, LineNum, ""}, {atom, Line, none}};
+handle_args(DefaultAttrs, Line, Format) ->
+ {DefaultAttrs, Format, {atom, Line, none}};
+handle_args(DefaultAttrs, Line, Arg1, Arg2) ->
+ %% some ambiguity here, figure out if these arguments are
+ %% Format, Args or Attr, Format.
+ %% The trace attributes will be a list of tuples, so check
+ %% for that.
+ case {element(1, Arg1), Arg1} of
+ {_, {cons, _, {tuple, _, _}, _}} ->
+ {concat_lists(Arg1, DefaultAttrs),
+ Arg2, {atom, Line, none}};
+ {Type, _} when Type == var;
+ Type == lc;
+ Type == call;
+ Type == record_field ->
+ %% crap, its not a literal. look at the second
+ %% argument to see if it is a string
+ case Arg2 of
+ {string, _, _} ->
+ {concat_lists(Arg1, DefaultAttrs),
+ Arg2, {atom, Line, none}};
+ _ ->
+ %% not a string, going to have to guess
+ %% it's the argument list
+ {DefaultAttrs, Arg1, Arg2}
+ end;
+ _ ->
+ {DefaultAttrs, Arg1, Arg2}
+ end;
+handle_args(DefaultAttrs, _Line, Attrs, Format, Args) ->
+ {concat_lists(Attrs, DefaultAttrs), Format, Args}.
+
+make_varname(Prefix, CallAnno) ->
+ list_to_atom(Prefix ++ atom_to_list(get(module)) ++ integer_to_list(erl_anno:line(CallAnno))).
+
+%% concat 2 list ASTs by replacing the terminating in A with the contents of B
+concat_lists({var, Line, _Name}=Var, B) ->
+ %% concatenating a var with a cons
+ {call, Line, {remote, Line, {atom, Line, lists},{atom, Line, flatten}},
+ {cons, Line, Var, B}};
+concat_lists({lc, Line, _Body, _Generator} = LC, B) ->
+ %% concatenating a LC with a cons
+ {call, Line, {remote, Line, {atom, Line, lists},{atom, Line, flatten}},
+ {cons, Line, LC, B}};
+concat_lists({call, Line, _Function, _Args} = Call, B) ->
+ %% concatenating a call with a cons
+ {call, Line, {remote, Line, {atom, Line, lists},{atom, Line, flatten}},
+ {cons, Line, Call, B}};
+concat_lists({record_field, Line, _Var, _Record, _Field} = Rec, B) ->
+ %% concatenating a record_field with a cons
+ {call, Line, {remote, Line, {atom, Line, lists},{atom, Line, flatten}},
+ {cons, Line, Rec, B}};
+concat_lists({nil, _Line}, B) ->
+ B;
+concat_lists({cons, Line, Element, Tail}, B) ->
+ {cons, Line, Element, concat_lists(Tail, B)}.
+
+stash_record(Record) ->
+ Records = case erlang:get(records) of
+ undefined ->
+ ;
+ R ->
+ R
+ end,
+ erlang:put(records, Record|Records).
+
+insert_record_attribute(AST) ->
+ lists:foldl(fun({attribute, Line, module, _}=E, Acc) ->
+ E, {attribute, Line, lager_records, erlang:get(records)}|Acc;
+ (E, Acc) ->
+ E|Acc
+ end, , AST).
+
+guess_application(Dirname, Attr) when Dirname /= undefined ->
+ case find_app_file(Dirname) of
+ no_idea ->
+ %% try it based on source file directory (app.src most likely)
+ guess_application(undefined, Attr);
+ _ ->
+ ok
+ end;
+guess_application(undefined, {attribute, _, file, {Filename, _}}) ->
+ Dir = filename:dirname(Filename),
+ find_app_file(Dir);
+guess_application(_, _) ->
+ ok.
+
+find_app_file(Dir) ->
+ case filelib:wildcard(Dir++"/*.{app,app.src}") of
+ ->
+ no_idea;
+ File ->
+ case file:consult(File) of
+ {ok, {application, Appname, _Attributes}|_} ->
+ erlang:put(application, Appname);
+ _ ->
+ no_idea
+ end;
+ _ ->
+ %% multiple files, uh oh
+ no_idea
+ end.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_trunc_io.erl Added

@@ -0,0 +1,878 @@
+%% ``The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with your Erlang distribution. If not, it can be
+%% retrieved via the world wide web at http://www.erlang.org/.
+%%
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%%
+%% The Initial Developer of the Original Code is Corelatus AB.
+%% Portions created by Corelatus are Copyright 2003, Corelatus
+%% AB. All Rights Reserved.''
+%%
+%% @doc Module to print out terms for logging. Limits by length rather than depth.
+%%
+%% The resulting string may be slightly larger than the limit; the intention
+%% is to provide predictable CPU and memory consumption for formatting
+%% terms, not produce precise string lengths.
+%%
+%% Typical use:
+%%
+%% trunc_io:print(Term, 500).
+%%
+%% Source license: Erlang Public License.
+%% Original author: Matthias Lang, <tt>matthias@corelatus.se</tt>
+%%
+%% Various changes to this module, most notably the format/3 implementation
+%% were added by Andrew Thompson `<andrew@basho.com>'. The module has been renamed
+%% to avoid conflicts with the vanilla module.
+
+-module(lager_trunc_io).
+-author('matthias@corelatus.se').
+%% And thanks to Chris Newcombe for a bug fix
+-export(format/3, format/4, print/2, print/3, fprint/2, fprint/3, safe/2). % interface functions
+-version("$Id: trunc_io.erl,v 1.11 2009-02-23 12:01:06 matthias Exp $").
+
+-ifdef(TEST).
+-export(perf/0, perf/3, perf1/0, test/0, test/2). % testing functions
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+
+-type option() :: {'depth', integer()}
+ | {'lists_as_strings', boolean()}
+ | {'force_strings', boolean()}.
+-type options() :: option().
+
+-record(print_options, {
+ %% negative depth means no depth limiting
+ depth = -1 :: integer(),
+ %% whether to print lists as strings, if possible
+ lists_as_strings = true :: boolean(),
+ %% force strings, or binaries to be printed as a string,
+ %% even if they're not printable
+ force_strings = false :: boolean()
+ }).
+
+format(Fmt, Args, Max) ->
+ format(Fmt, Args, Max, ).
+
+format(Fmt, Args, Max, Options) ->
+ try lager_format:format(Fmt, Args, Max, Options)
+ catch
+ _What:_Why ->
+ erlang:error(badarg, Fmt, Args)
+ end.
+
+%% @doc Returns an flattened list containing the ASCII representation of the given
+%% term.
+-spec fprint(term(), pos_integer()) -> string().
+fprint(Term, Max) ->
+ fprint(Term, Max, ).
+
+
+%% @doc Returns an flattened list containing the ASCII representation of the given
+%% term.
+-spec fprint(term(), pos_integer(), options()) -> string().
+fprint(T, Max, Options) ->
+ {L, _} = print(T, Max, prepare_options(Options, #print_options{})),
+ lists:flatten(L).
+
+%% @doc Same as print, but never crashes.
+%%
+%% This is a tradeoff. Print might conceivably crash if it's asked to
+%% print something it doesn't understand, for example some new data
+%% type in a future version of Erlang. If print crashes, we fall back
+%% to io_lib to format the term, but then the formatting is
+%% depth-limited instead of length limited, so you might run out
+%% memory printing it. Out of the frying pan and into the fire.
+%%
+-spec safe(term(), pos_integer()) -> {string(), pos_integer()} | {string()}.
+safe(What, Len) ->
+ case catch print(What, Len) of
+ {L, Used} when is_list(L) -> {L, Used};
+ _ -> {"unable to print" ++ io_lib:write(What, 99)}
+ end.
+
+%% @doc Returns {List, Length}
+-spec print(term(), pos_integer()) -> {iolist(), pos_integer()}.
+print(Term, Max) ->
+ print(Term, Max, ).
+
+%% @doc Returns {List, Length}
+-spec print(term(), pos_integer(), options() | #print_options{}) -> {iolist(), pos_integer()}.
+print(Term, Max, Options) when is_list(Options) ->
+ %% need to convert the proplist to a record
+ print(Term, Max, prepare_options(Options, #print_options{}));
+
+print(Term, _Max, #print_options{force_strings=true}) when not is_list(Term), not is_binary(Term), not is_atom(Term) ->
+ erlang:error(badarg);
+
+print(_, Max, _Options) when Max < 0 -> {"...", 3};
+print(_, _, #print_options{depth=0}) -> {"...", 3};
+
+
+%% @doc We assume atoms, floats, funs, integers, PIDs, ports and refs never need
+%% to be truncated. This isn't strictly true, someone could make an
+%% arbitrarily long bignum. Let's assume that won't happen unless someone
+%% is being malicious.
+%%
+print(Atom, _Max, #print_options{force_strings=NoQuote}) when is_atom(Atom) ->
+ L = atom_to_list(Atom),
+ R = case atom_needs_quoting_start(L) andalso not NoQuote of
+ true -> lists:flatten($', L, $');
+ false -> L
+ end,
+ {R, length(R)};
+
+print(<<>>, _Max, #print_options{depth=1}) ->
+ {"<<>>", 4};
+print(Bin, _Max, #print_options{depth=1}) when is_binary(Bin) ->
+ {"<<...>>", 7};
+print(<<>>, _Max, Options) ->
+ case Options#print_options.force_strings of
+ true ->
+ {"", 0};
+ false ->
+ {"<<>>", 4}
+ end;
+
+print(Binary, 0, _Options) when is_bitstring(Binary) ->
+ {"<<..>>", 6};
+
+print(Bin, Max, _Options) when is_binary(Bin), Max < 2 ->
+ {"<<...>>", 7};
+print(Binary, Max, Options) when is_binary(Binary) ->
+ B = binary_to_list(Binary, 1, lists:min(Max, byte_size(Binary))),
+ {Res, Length} = case Options#print_options.lists_as_strings orelse
+ Options#print_options.force_strings of
+ true ->
+ Depth = Options#print_options.depth,
+ MaxSize = (Depth - 1) * 4,
+ %% check if we need to truncate based on depth
+ In = case Depth > -1 andalso MaxSize < length(B) andalso
+ not Options#print_options.force_strings of
+ true ->
+ string:substr(B, 1, MaxSize);
+ false -> B
+ end,
+ MaxLen = case Options#print_options.force_strings of
+ true ->
+ Max;
+ false ->
+ %% make room for the leading doublequote
+ Max - 1
+ end,
+ try alist(In, MaxLen, Options) of
+ {L0, Len0} ->
+ case Options#print_options.force_strings of
+ false ->
+ case B /= In of
+ true ->
+ {$", L0, "...", Len0+4};
+ false ->
+ {$"|L0, Len0+1}
+ end;
+ true ->
+ {L0, Len0}
+ end
+ catch
+ throw:{unprintable, C} ->
+ Index = string:chr(In, C),
+ case Index > 1 andalso Options#print_options.depth =< Index andalso
+ Options#print_options.depth > -1 andalso
+ not Options#print_options.force_strings of
+ true ->
+ %% print first Index-1 characters followed by ...
+ {L0, Len0} = alist_start(string:substr(In, 1, Index - 1), Max - 1, Options),
+ {L0++"...", Len0+3};
+ false ->
+ list_body(In, Max-4, dec_depth(Options), true)
+ end
+ end;
+ _ ->
+ list_body(B, Max-4, dec_depth(Options), true)
+ end,
+ case Options#print_options.force_strings of
+ true ->
+ {Res, Length};
+ _ ->
+ {"<<", Res, ">>", Length+4}
+ end;
+
+%% bitstrings are binary's evil brother who doesn't end on an 8 bit boundary.
+%% This makes printing them extremely annoying, so list_body/list_bodyc has
+%% some magic for dealing with the output of bitstring_to_list, which returns
+%% a list of integers (as expected) but with a trailing binary that represents
+%% the remaining bits.
+print({inline_bitstring, B}, _Max, _Options) when is_bitstring(B) ->
+ Size = bit_size(B),
+ <<Value:Size>> = B,
+ ValueStr = integer_to_list(Value),
+ SizeStr = integer_to_list(Size),
+ {ValueStr, $:, SizeStr, length(ValueStr) + length(SizeStr) +1};
+print(BitString, Max, Options) when is_bitstring(BitString) ->
+ BL = case byte_size(BitString) > Max of
+ true ->
+ binary_to_list(BitString, 1, Max);
+ _ ->
+ R = erlang:bitstring_to_list(BitString),
+ {Bytes, Bits} = lists:splitwith(fun erlang:is_integer/1, R),
+ %% tag the trailing bits with a special tuple we catch when
+ %% list_body calls print again
+ Bytes ++ {inline_bitstring, Bits}
+ end,
+ {X, Len0} = list_body(BL, Max - 4, dec_depth(Options), true),
+ {"<<", X, ">>", Len0 + 4};
+
+print(Float, _Max, _Options) when is_float(Float) ->
+ %% use the same function io_lib:format uses to print floats
+ %% float_to_list is way too verbose.
+ L = io_lib_format:fwrite_g(Float),
+ {L, length(L)};
+
+print(Fun, Max, _Options) when is_function(Fun) ->
+ L = erlang:fun_to_list(Fun),
+ case length(L) > Max of
+ true ->
+ S = erlang:max(5, Max),
+ Res = string:substr(L, 1, S) ++ "..>",
+ {Res, length(Res)};
+ _ ->
+ {L, length(L)}
+ end;
+
+print(Integer, _Max, _Options) when is_integer(Integer) ->
+ L = integer_to_list(Integer),
+ {L, length(L)};
+
+print(Pid, _Max, _Options) when is_pid(Pid) ->
+ L = pid_to_list(Pid),
+ {L, length(L)};
+
+print(Ref, _Max, _Options) when is_reference(Ref) ->
+ L = erlang:ref_to_list(Ref),
+ {L, length(L)};
+
+print(Port, _Max, _Options) when is_port(Port) ->
+ L = erlang:port_to_list(Port),
+ {L, length(L)};
+
+print({'$lager_record', Name, Fields}, Max, Options) ->
+ Leader = "#" ++ atom_to_list(Name) ++ "{",
+ {RC, Len} = record_fields(Fields, Max - length(Leader) + 1, dec_depth(Options)),
+ {Leader, RC, "}", Len + length(Leader) + 1};
+
+print(Tuple, Max, Options) when is_tuple(Tuple) ->
+ {TC, Len} = tuple_contents(Tuple, Max-2, Options),
+ {${, TC, $}, Len + 2};
+
+print(List, Max, Options) when is_list(List) ->
+ case Options#print_options.lists_as_strings orelse
+ Options#print_options.force_strings of
+ true ->
+ alist_start(List, Max, dec_depth(Options));
+ _ ->
+ {R, Len} = list_body(List, Max - 2, dec_depth(Options), false),
+ {$, R, $, Len + 2}
+ end;
+
+print(Map, Max, Options) when is_map(Map) ->
+ {MapBody, Len} = map_body(Map, Max - 3, dec_depth(Options)),
+ {$#, ${, MapBody, $}, Len + 3};
+
+print(Term, Max, Options) ->
+ error(badarg, Term, Max, Options).
+
+%% Returns {List, Length}
+tuple_contents(Tuple, Max, Options) ->
+ L = tuple_to_list(Tuple),
+ list_body(L, Max, dec_depth(Options), true).
+
+%% Format the inside of a list, i.e. do not add a leading or trailing .
+%% Returns {List, Length}
+list_body(, _Max, _Options, _Tuple) -> {, 0};
+list_body(_, Max, _Options, _Tuple) when Max < 4 -> {"...", 3};
+list_body(_, _Max, #print_options{depth=0}, _Tuple) -> {"...", 3};
+list_body(H, Max, Options=#print_options{depth=1}, _Tuple) ->
+ print(H, Max, Options);
+list_body(H|_, Max, Options=#print_options{depth=1}, Tuple) ->
+ {List, Len} = print(H, Max-4, Options),
+ Sep = case Tuple of
+ true -> $,;
+ false -> $|
+ end,
+ {List ++ Sep | "...", Len + 4};
+list_body(H|T, Max, Options, Tuple) ->
+ {List, Len} = print(H, Max, Options),
+ {Final, FLen} = list_bodyc(T, Max - Len, Options, Tuple),
+ {List|Final, FLen + Len};
+list_body(X, Max, Options, _Tuple) -> %% improper list
+ {List, Len} = print(X, Max - 1, Options),
+ {$|,List, Len + 1}.
+
+list_bodyc(, _Max, _Options, _Tuple) -> {, 0};
+list_bodyc(_, Max, _Options, _Tuple) when Max < 5 -> {",...", 4};
+list_bodyc(_, _Max, #print_options{depth=1}, true) -> {",...", 4};
+list_bodyc(_, _Max, #print_options{depth=1}, false) -> {"|...", 4};
+list_bodyc(H|T, Max, #print_options{depth=Depth} = Options, Tuple) ->
+ {List, Len} = print(H, Max, dec_depth(Options)),
+ {Final, FLen} = list_bodyc(T, Max - Len - 1, dec_depth(Options), Tuple),
+ Sep = case Depth == 1 andalso not Tuple of
+ true -> $|;
+ _ -> $,
+ end,
+ {Sep, List|Final, FLen + Len + 1};
+list_bodyc(X, Max, Options, _Tuple) -> %% improper list
+ {List, Len} = print(X, Max - 1, Options),
+ {$|,List, Len + 1}.
+
+map_body(Map, Max, #print_options{depth=Depth}) when Max < 4; Depth =:= 0 ->
+ case erlang:map_size(Map) of
+ 0 -> {, 0};
+ _ -> {"...", 3}
+ end;
+map_body(Map, Max, Options) ->
+ case maps:to_list(Map) of
+ ->
+ {, 0};
+ {Key, Value} | Rest ->
+ {KeyStr, KeyLen} = print(Key, Max - 4, Options),
+ DiffLen = KeyLen + 4,
+ {ValueStr, ValueLen} = print(Value, Max - DiffLen, Options),
+ DiffLen2 = DiffLen + ValueLen,
+ {Final, FLen} = map_bodyc(Rest, Max - DiffLen2, dec_depth(Options)),
+ {KeyStr, " => ", ValueStr | Final, DiffLen2 + FLen}
+ end.
+
+map_bodyc(, _Max, _Options) ->
+ {, 0};
+map_bodyc(_Rest, Max,#print_options{depth=Depth}) when Max < 5; Depth =:= 0 ->
+ {",...", 4};
+map_bodyc({Key, Value} | Rest, Max, Options) ->
+ {KeyStr, KeyLen} = print(Key, Max - 5, Options),
+ DiffLen = KeyLen + 5,
+ {ValueStr, ValueLen} = print(Value, Max - DiffLen, Options),
+ DiffLen2 = DiffLen + ValueLen,
+ {Final, FLen} = map_bodyc(Rest, Max - DiffLen2, dec_depth(Options)),
+ {$,, KeyStr, " => ", ValueStr | Final, DiffLen2 + FLen}.
+
+%% The head of a list we hope is ascii. Examples:
+%%
+%% 65,66,67 -> "ABC"
+%% 65,0,67 -> "A"0,67
+%% 0,65,66 -> 0,65,66
+%% 65,b,66 -> "A"b,66
+%%
+alist_start(, _Max, #print_options{force_strings=true}) -> {"", 0};
+alist_start(, _Max, _Options) -> {"", 2};
+alist_start(_, Max, _Options) when Max < 4 -> {"...", 3};
+alist_start(_, _Max, #print_options{depth=0}) -> {"...", 5};
+alist_start(L, Max, #print_options{force_strings=true} = Options) ->
+ alist(L, Max, Options);
+%alist_start(H|_T, _Max, #print_options{depth=1}) when is_integer(H) -> {$, H, $|, $., $., $., $, 7};
+alist_start(H|T, Max, Options) when is_integer(H), H >= 16#20, H =< 16#7e -> % definitely printable
+ try alist(H|T, Max -1, Options) of
+ {L, Len} ->
+ {$"|L, Len + 1}
+ catch
+ throw:{unprintable, _} ->
+ {R, Len} = list_body(H|T, Max-2, Options, false),
+ {$, R, $, Len + 2}
+ end;
+alist_start(H|T, Max, Options) when is_integer(H), H >= 16#a0, H =< 16#ff -> % definitely printable
+ try alist(H|T, Max -1, Options) of
+ {L, Len} ->
+ {$"|L, Len + 1}
+ catch
+ throw:{unprintable, _} ->
+ {R, Len} = list_body(H|T, Max-2, Options, false),
+ {$, R, $, Len + 2}
+ end;
+alist_start(H|T, Max, Options) when H =:= $\t; H =:= $\n; H =:= $\r; H =:= $\v; H =:= $\e; H=:= $\f; H=:= $\b ->
+ try alist(H|T, Max -1, Options) of
+ {L, Len} ->
+ {$"|L, Len + 1}
+ catch
+ throw:{unprintable, _} ->
+ {R, Len} = list_body(H|T, Max-2, Options, false),
+ {$, R, $, Len + 2}
+ end;
+alist_start(L, Max, Options) ->
+ {R, Len} = list_body(L, Max-2, Options, false),
+ {$, R, $, Len + 2}.
+
+alist(, _Max, #print_options{force_strings=true}) -> {"", 0};
+alist(, _Max, _Options) -> {"\"", 1};
+alist(_, Max, #print_options{force_strings=true}) when Max < 4 -> {"...", 3};
+alist(_, Max, #print_options{force_strings=false}) when Max < 5 -> {"...\"", 4};
+alist(H|T, Max, Options = #print_options{force_strings=false,lists_as_strings=true}) when H =:= $"; H =:= $\\ ->
+ %% preserve escaping around quotes
+ {L, Len} = alist(T, Max-1, Options),
+ {$\\,H|L, Len + 2};
+alist(H|T, Max, Options) when is_integer(H), H >= 16#20, H =< 16#7e -> % definitely printable
+ {L, Len} = alist(T, Max-1, Options),
+ {H|L, Len + 1};
+alist(H|T, Max, Options) when is_integer(H), H >= 16#a0, H =< 16#ff -> % definitely printable
+ {L, Len} = alist(T, Max-1, Options),
+ {H|L, Len + 1};
+alist(H|T, Max, Options) when H =:= $\t; H =:= $\n; H =:= $\r; H =:= $\v; H =:= $\e; H=:= $\f; H=:= $\b ->
+ {L, Len} = alist(T, Max-1, Options),
+ case Options#print_options.force_strings of
+ true ->
+ {H|L, Len + 1};
+ _ ->
+ {escape(H)|L, Len + 1}
+ end;
+alist(H|T, Max, #print_options{force_strings=true} = Options) when is_integer(H) ->
+ {L, Len} = alist(T, Max-1, Options),
+ {H|L, Len + 1};
+alist(H|T, Max, Options = #print_options{force_strings=true}) when is_binary(H); is_list(H) ->
+ {List, Len} = print(H, Max, Options),
+ case (Max - Len) =< 0 of
+ true ->
+ %% no more room to print anything
+ {List, Len};
+ false ->
+ %% no need to decrement depth, as we're in printable string mode
+ {Final, FLen} = alist(T, Max - Len, Options),
+ {List|Final, FLen+Len}
+ end;
+alist(_, _, #print_options{force_strings=true}) ->
+ erlang:error(badarg);
+alist(H|_L, _Max, _Options) ->
+ throw({unprintable, H});
+alist(H, _Max, _Options) ->
+ %% improper list
+ throw({unprintable, H}).
+
+%% is the first character in the atom alphabetic & lowercase?
+atom_needs_quoting_start(H|T) when H >= $a, H =< $z ->
+ atom_needs_quoting(T);
+atom_needs_quoting_start(_) ->
+ true.
+
+atom_needs_quoting() ->
+ false;
+atom_needs_quoting(H|T) when (H >= $a andalso H =< $z);
+ (H >= $A andalso H =< $Z);
+ (H >= $0 andalso H =< $9);
+ H == $@; H == $_ ->
+ atom_needs_quoting(T);
+atom_needs_quoting(_) ->
+ true.
+
+-spec prepare_options(options(), #print_options{}) -> #print_options{}.
+prepare_options(, Options) ->
+ Options;
+prepare_options({depth, Depth}|T, Options) when is_integer(Depth) ->
+ prepare_options(T, Options#print_options{depth=Depth});
+prepare_options({lists_as_strings, Bool}|T, Options) when is_boolean(Bool) ->
+ prepare_options(T, Options#print_options{lists_as_strings = Bool});
+prepare_options({force_strings, Bool}|T, Options) when is_boolean(Bool) ->
+ prepare_options(T, Options#print_options{force_strings = Bool}).
+
+dec_depth(#print_options{depth=Depth} = Options) when Depth > 0 ->
+ Options#print_options{depth=Depth-1};
+dec_depth(Options) ->
+ Options.
+
+escape($\t) -> "\\t";
+escape($\n) -> "\\n";
+escape($\r) -> "\\r";
+escape($\e) -> "\\e";
+escape($\f) -> "\\f";
+escape($\b) -> "\\b";
+escape($\v) -> "\\v".
+
+record_fields(, _, _) ->
+ {"", 0};
+record_fields(_, Max, #print_options{depth=D}) when Max < 4; D == 0 ->
+ {"...", 3};
+record_fields({Field, Value}|T, Max, Options) ->
+ {ExtraChars, Terminator} = case T of
+ ->
+ {1, };
+ _ ->
+ {2, ","}
+ end,
+ {FieldStr, FieldLen} = print(Field, Max - ExtraChars, Options),
+ {ValueStr, ValueLen} = print(Value, Max - (FieldLen + ExtraChars), Options),
+ {Final, FLen} = record_fields(T, Max - (FieldLen + ValueLen + ExtraChars), dec_depth(Options)),
+ {FieldStr++"="++ValueStr++Terminator|Final, FLen + FieldLen + ValueLen + ExtraChars}.
+
+
+-ifdef(TEST).
+%%--------------------
+%% The start of a test suite. So far, it only checks for not crashing.
+-spec test() -> ok.
+test() ->
+ test(trunc_io, print).
+
+-spec test(atom(), atom()) -> ok.
+test(Mod, Func) ->
+ Simple_items = atom, 1234, 1234.0, {tuple}, , list, "string", self(),
+ <<1,2,3>>, make_ref(), fun() -> ok end,
+ F = fun(A) ->
+ Mod:Func(A, 100),
+ Mod:Func(A, 2),
+ Mod:Func(A, 20)
+ end,
+
+ G = fun(A) ->
+ case catch F(A) of
+ {'EXIT', _} -> exit({failed, A});
+ _ -> ok
+ end
+ end,
+
+ lists:foreach(G, Simple_items),
+
+ Tuples = {1,2,3,a,b,c}, {"abc", def, 1234},
+ {{{{a},b,c,{d},e}},f},
+
+ Lists = 1,2,3,4,5,6,7, lists:seq(1,1000),
+ {a}, {a,b}, {a, b,c}, "def", a|b, $a|$b ,
+
+
+ lists:foreach(G, Tuples),
+ lists:foreach(G, Lists).
+
+-spec perf() -> ok.
+perf() ->
+ {New, _} = timer:tc(trunc_io, perf, trunc_io, print, 1000),
+ {Old, _} = timer:tc(trunc_io, perf, io_lib, write, 1000),
+ io:fwrite("New code took ~p us, old code ~p\n", New, Old).
+
+-spec perf(atom(), atom(), integer()) -> done.
+perf(M, F, Reps) when Reps > 0 ->
+ test(M,F),
+ perf(M,F,Reps-1);
+perf(_,_,_) ->
+ done.
+
+%% Performance test. Needs a particularly large term I saved as a binary...
+-spec perf1() -> {non_neg_integer(), non_neg_integer()}.
+perf1() ->
+ {ok, Bin} = file:read_file("bin"),
+ A = binary_to_term(Bin),
+ {N, _} = timer:tc(trunc_io, print, A, 1500),
+ {M, _} = timer:tc(io_lib, write, A),
+ {N, M}.
+
+format_test() ->
+ %% simple format strings
+ ?assertEqual("foobar", lists:flatten(format("~s", "foo", $b, $a, $r, 50))),
+ ?assertEqual("\"foo\",98,97,114", lists:flatten(format("~p", "foo", $b, $a, $r, 50))),
+ ?assertEqual("\"foo\",98,97,114", lists:flatten(format("~P", "foo", $b, $a, $r, 10, 50))),
+ ?assertEqual("102,111,111,98,97,114", lists:flatten(format("~w", "foo", $b, $a, $r, 50))),
+
+ %% complex ones
+ ?assertEqual(" foobar", lists:flatten(format("~10s", "foo", $b, $a, $r, 50))),
+ ?assertEqual("f", lists:flatten(format("~1s", "foo", $b, $a, $r, 50))),
+ ?assertEqual("\"foo\",98,97,114", lists:flatten(format("~22p", "foo", $b, $a, $r, 50))),
+ ?assertEqual("\"foo\",98,97,114", lists:flatten(format("~22P", "foo", $b, $a, $r, 10, 50))),
+ ?assertEqual("**********", lists:flatten(format("~10W", "foo", $b, $a, $r, 10, 50))),
+ ?assertEqual("102,111,111,98,97,114", lists:flatten(format("~25W", "foo", $b, $a, $r, 10, 50))),
+ % Note these next two diverge from io_lib:format; the field width is
+ % ignored, when it should be used as max line length.
+ ?assertEqual("\"foo\",98,97,114", lists:flatten(format("~10p", "foo", $b, $a, $r, 50))),
+ ?assertEqual("\"foo\",98,97,114", lists:flatten(format("~10P", "foo", $b, $a, $r, 10, 50))),
+ ok.
+
+atom_quoting_test() ->
+ ?assertEqual("hello", lists:flatten(format("~p", hello, 50))),
+ ?assertEqual("'hello world'", lists:flatten(format("~p", 'hello world', 50))),
+ ?assertEqual("'Hello world'", lists:flatten(format("~p", 'Hello world', 50))),
+ ?assertEqual("hello_world", lists:flatten(format("~p", 'hello_world', 50))),
+ ?assertEqual("'node@127.0.0.1'", lists:flatten(format("~p", 'node@127.0.0.1', 50))),
+ ?assertEqual("node@nohost", lists:flatten(format("~p", node@nohost, 50))),
+ ?assertEqual("abc123", lists:flatten(format("~p", abc123, 50))),
+ ok.
+
+sane_float_printing_test() ->
+ ?assertEqual("1.0", lists:flatten(format("~p", 1.0, 50))),
+ ?assertEqual("1.23456789", lists:flatten(format("~p", 1.23456789, 50))),
+ ?assertEqual("1.23456789", lists:flatten(format("~p", 1.234567890, 50))),
+ ?assertEqual("0.3333333333333333", lists:flatten(format("~p", 1/3, 50))),
+ ?assertEqual("0.1234567", lists:flatten(format("~p", 0.1234567, 50))),
+ ok.
+
+float_inside_list_test() ->
+ ?assertEqual("97,38.233913133184835,99", lists:flatten(format("~p", $a, 38.233913133184835, $c, 50))),
+ ?assertError(badarg, lists:flatten(format("~s", $a, 38.233913133184835, $c, 50))),
+ ok.
+
+quote_strip_test() ->
+ ?assertEqual("\"hello\"", lists:flatten(format("~p", "hello", 50))),
+ ?assertEqual("hello", lists:flatten(format("~s", "hello", 50))),
+ ?assertEqual("hello", lists:flatten(format("~s", hello, 50))),
+ ?assertEqual("hello", lists:flatten(format("~p", hello, 50))),
+ ?assertEqual("'hello world'", lists:flatten(format("~p", 'hello world', 50))),
+ ?assertEqual("hello world", lists:flatten(format("~s", 'hello world', 50))),
+ ok.
+
+binary_printing_test() ->
+ ?assertEqual("<<>>", lists:flatten(format("~p", <<>>, 50))),
+ ?assertEqual("", lists:flatten(format("~s", <<>>, 50))),
+ ?assertEqual("<<..>>", lists:flatten(format("~p", <<"hi">>, 0))),
+ ?assertEqual("<<...>>", lists:flatten(format("~p", <<"hi">>, 1))),
+ ?assertEqual("<<\"hello\">>", lists:flatten(format("~p", <<$h, $e, $l, $l, $o>>, 50))),
+ ?assertEqual("<<\"hello\">>", lists:flatten(format("~p", <<"hello">>, 50))),
+ ?assertEqual("<<104,101,108,108,111>>", lists:flatten(format("~w", <<"hello">>, 50))),
+ ?assertEqual("<<1,2,3,4>>", lists:flatten(format("~p", <<1, 2, 3, 4>>, 50))),
+ ?assertEqual(1,2,3,4, lists:flatten(format("~s", <<1, 2, 3, 4>>, 50))),
+ ?assertEqual("hello", lists:flatten(format("~s", <<"hello">>, 50))),
+ ?assertEqual("hello\nworld", lists:flatten(format("~s", <<"hello\nworld">>, 50))),
+ ?assertEqual("<<\"hello\\nworld\">>", lists:flatten(format("~p", <<"hello\nworld">>, 50))),
+ ?assertEqual("<<\"\\\"hello world\\\"\">>", lists:flatten(format("~p", <<"\"hello world\"">>, 50))),
+ ?assertEqual("<<\"hello\\\\world\">>", lists:flatten(format("~p", <<"hello\\world">>, 50))),
+ ?assertEqual("<<\"hello\\\\\world\">>", lists:flatten(format("~p", <<"hello\\\world">>, 50))),
+ ?assertEqual("<<\"hello\\\\\\\\world\">>", lists:flatten(format("~p", <<"hello\\\\world">>, 50))),
+ ?assertEqual("<<\"hello\\bworld\">>", lists:flatten(format("~p", <<"hello\bworld">>, 50))),
+ ?assertEqual("<<\"hello\\tworld\">>", lists:flatten(format("~p", <<"hello\tworld">>, 50))),
+ ?assertEqual("<<\"hello\\nworld\">>", lists:flatten(format("~p", <<"hello\nworld">>, 50))),
+ ?assertEqual("<<\"hello\\rworld\">>", lists:flatten(format("~p", <<"hello\rworld">>, 50))),
+ ?assertEqual("<<\"hello\\eworld\">>", lists:flatten(format("~p", <<"hello\eworld">>, 50))),
+ ?assertEqual("<<\"hello\\fworld\">>", lists:flatten(format("~p", <<"hello\fworld">>, 50))),
+ ?assertEqual("<<\"hello\\vworld\">>", lists:flatten(format("~p", <<"hello\vworld">>, 50))),
+ ?assertEqual(" hello", lists:flatten(format("~10s", <<"hello">>, 50))),
+ ?assertEqual("a", lists:flatten(format("~s", <<"a">>, 50))),
+ ?assertEqual("a", lists:flatten(format("~s", <<"a">>, 50))),
+
+ ok.
+
+bitstring_printing_test() ->
+ ?assertEqual("<<1,2,3,1:7>>", lists:flatten(format("~p",
+ <<1, 2, 3, 1:7>>, 100))),
+ ?assertEqual("<<1:7>>", lists:flatten(format("~p",
+ <<1:7>>, 100))),
+ ?assertEqual("<<1,2,3,...>>", lists:flatten(format("~p",
+ <<1, 2, 3, 1:7>>, 12))),
+ ?assertEqual("<<1,2,3,...>>", lists:flatten(format("~p",
+ <<1, 2, 3, 1:7>>, 13))),
+ ?assertEqual("<<1,2,3,1:7>>", lists:flatten(format("~p",
+ <<1, 2, 3, 1:7>>, 14))),
+ ?assertEqual("<<..>>", lists:flatten(format("~p", <<1:7>>, 0))),
+ ?assertEqual("<<...>>", lists:flatten(format("~p", <<1:7>>, 1))),
+ ?assertEqual("<<1>>,<<2>>", lists:flatten(format("~p", <<1>>, <<2>>,
+ 100))),
+ ?assertEqual("{<<1:7>>}", lists:flatten(format("~p", {<<1:7>>}, 50))),
+ ok.
+
+list_printing_test() ->
+ ?assertEqual("", lists:flatten(format("~p", , 50))),
+ ?assertEqual("", lists:flatten(format("~w", , 50))),
+ ?assertEqual("", lists:flatten(format("~s", , 50))),
+ ?assertEqual("...", lists:flatten(format("~s", , -1))),
+ ?assertEqual("", lists:flatten(format("~p", , 50))),
+ ?assertEqual("13,11,10,8,5,4", lists:flatten(format("~p", 13,11,10,8,5,4, 50))),
+ ?assertEqual("\"\\rabc\"", lists:flatten(format("~p", 13,$a, $b, $c, 50))),
+ ?assertEqual("1,2,3|4", lists:flatten(format("~p", 1, 2, 3|4, 50))),
+ ?assertEqual("...", lists:flatten(format("~p", 1, 2, 3,4, 4))),
+ ?assertEqual("1,...", lists:flatten(format("~p", 1, 2, 3, 4, 6))),
+ ?assertEqual("1,...", lists:flatten(format("~p", 1, 2, 3, 4, 7))),
+ ?assertEqual("1,2,...", lists:flatten(format("~p", 1, 2, 3, 4, 8))),
+ ?assertEqual("1|4", lists:flatten(format("~p", 1|4, 50))),
+ ?assertEqual("1", lists:flatten(format("~p", 1, 50))),
+ ?assertError(badarg, lists:flatten(format("~s", 1|4, 50))),
+ ?assertEqual("\"hello...\"", lists:flatten(format("~p", "hello world", 10))),
+ ?assertEqual("hello w...", lists:flatten(format("~s", "hello world", 10))),
+ ?assertEqual("hello world\r\n", lists:flatten(format("~s", "hello world\r\n", 50))),
+ ?assertEqual("\rhello world\r\n", lists:flatten(format("~s", "\rhello world\r\n", 50))),
+ ?assertEqual("\"\\rhello world\\r\\n\"", lists:flatten(format("~p", "\rhello world\r\n", 50))),
+ ?assertEqual("13,104,101,108,108,111,32,119,111,114,108,100,13,10", lists:flatten(format("~w", "\rhello world\r\n", 60))),
+ ?assertEqual("...", lists:flatten(format("~s", "\rhello world\r\n", 3))),
+ ?assertEqual("22835963083295358096932575511191922182123945984,...",
+ lists:flatten(format("~p", 
+ 22835963083295358096932575511191922182123945984,
+ 22835963083295358096932575511191922182123945984, 9))),
+ ?assertEqual("22835963083295358096932575511191922182123945984,...",
+ lists:flatten(format("~p", 
+ 22835963083295358096932575511191922182123945984,
+ 22835963083295358096932575511191922182123945984, 53))),
+ %%improper list
+ ?assertEqual("1,2,3|4", lists:flatten(format("~P", 1|2|3|4, 5, 50))),
+ ?assertEqual("1|1", lists:flatten(format("~P", 1|1, 5, 50))),
+ ?assertEqual("9|9", lists:flatten(format("~p", 9|9, 50))),
+ ok.
+
+iolist_printing_test() ->
+ ?assertEqual("iolist: HelloIamaniolist",
+ lists:flatten(format("iolist: ~s", $H, $e, $l, $l, $o, "I", "am", <<"an">>, $i, $o, $l, $i, $s, $t, 1000))),
+ ?assertEqual("123...",
+ lists:flatten(format("~s", <<"123456789">>, "HellIamaniolist", 6))),
+ ?assertEqual("123456...",
+ lists:flatten(format("~s", <<"123456789">>, "HellIamaniolist", 9))),
+ ?assertEqual("123456789H...",
+ lists:flatten(format("~s", <<"123456789">>, "HellIamaniolist", 13))),
+ ?assertEqual("123456789HellIamaniolist",
+ lists:flatten(format("~s", <<"123456789">>, "HellIamaniolist", 30))),
+
+ ok.
+
+tuple_printing_test() ->
+ ?assertEqual("{}", lists:flatten(format("~p", {}, 50))),
+ ?assertEqual("{}", lists:flatten(format("~w", {}, 50))),
+ ?assertError(badarg, lists:flatten(format("~s", {}, 50))),
+ ?assertEqual("{...}", lists:flatten(format("~p", {foo}, 1))),
+ ?assertEqual("{...}", lists:flatten(format("~p", {foo}, 2))),
+ ?assertEqual("{...}", lists:flatten(format("~p", {foo}, 3))),
+ ?assertEqual("{...}", lists:flatten(format("~p", {foo}, 4))),
+ ?assertEqual("{...}", lists:flatten(format("~p", {foo}, 5))),
+ ?assertEqual("{foo,...}", lists:flatten(format("~p", {foo,bar}, 6))),
+ ?assertEqual("{foo,...}", lists:flatten(format("~p", {foo,bar}, 7))),
+ ?assertEqual("{foo,...}", lists:flatten(format("~p", {foo,bar}, 9))),
+ ?assertEqual("{foo,bar}", lists:flatten(format("~p", {foo,bar}, 10))),
+ ?assertEqual("{22835963083295358096932575511191922182123945984,...}",
+ lists:flatten(format("~w", 
+ {22835963083295358096932575511191922182123945984,
+ 22835963083295358096932575511191922182123945984}, 10))),
+ ?assertEqual("{22835963083295358096932575511191922182123945984,...}",
+ lists:flatten(format("~w", 
+ {22835963083295358096932575511191922182123945984,
+ bar}, 10))),
+ ?assertEqual("{22835963083295358096932575511191922182123945984,...}",
+ lists:flatten(format("~w", 
+ {22835963083295358096932575511191922182123945984,
+ 22835963083295358096932575511191922182123945984}, 53))),
+ ok.
+
+map_printing_test() ->
+ ?assertEqual("#{}", lists:flatten(format("~p", maps:new(), 50))),
+ ?assertEqual("#{}", lists:flatten(format("~p", maps:new(), 3))),
+ ?assertEqual("#{}", lists:flatten(format("~w", maps:new(), 50))),
+ ?assertError(badarg, lists:flatten(format("~s", maps:new(), 50))),
+ ?assertEqual("#{...}", lists:flatten(format("~p", maps:from_list({bar, foo}), 1))),
+ ?assertEqual("#{...}", lists:flatten(format("~p", maps:from_list({bar, foo}), 6))),
+ ?assertEqual("#{bar => ...}", lists:flatten(format("~p", maps:from_list({bar, foo}), 7))),
+ ?assertEqual("#{bar => ...}", lists:flatten(format("~p", maps:from_list({bar, foo}), 9))),
+ ?assertEqual("#{bar => foo}", lists:flatten(format("~p", maps:from_list({bar, foo}), 10))),
+ ?assertEqual("#{bar => ...,...}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 9))),
+ ?assertEqual("#{bar => foo,...}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 10))),
+ ?assertEqual("#{bar => foo,...}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 17))),
+ ?assertEqual("#{bar => foo,foo => ...}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 18))),
+ ?assertEqual("#{bar => foo,foo => ...}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 19))),
+ ?assertEqual("#{bar => foo,foo => ...}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 20))),
+ ?assertEqual("#{bar => foo,foo => bar}", lists:flatten(format("~p", maps:from_list({bar, foo}, {foo, bar}), 21))),
+ ?assertEqual("#{22835963083295358096932575511191922182123945984 => ...}",
+ lists:flatten(format("~w", 
+ maps:from_list({22835963083295358096932575511191922182123945984,
+ 22835963083295358096932575511191922182123945984}), 10))),
+ ?assertEqual("#{22835963083295358096932575511191922182123945984 => ...}",
+ lists:flatten(format("~w", 
+ maps:from_list({22835963083295358096932575511191922182123945984,
+ bar}), 10))),
+ ?assertEqual("#{22835963083295358096932575511191922182123945984 => ...}",
+ lists:flatten(format("~w", 
+ maps:from_list({22835963083295358096932575511191922182123945984,
+ bar}), 53))),
+ ?assertEqual("#{22835963083295358096932575511191922182123945984 => bar}",
+ lists:flatten(format("~w", 
+ maps:from_list({22835963083295358096932575511191922182123945984,
+ bar}), 54))),
+ ok.
+
+unicode_test() ->
+ ?assertEqual(231,167,129, lists:flatten(format("~s", <<231,167,129>>, 50))),
+ ?assertEqual(31169, lists:flatten(format("~ts", <<231,167,129>>, 50))),
+ ok.
+
+depth_limit_test() ->
+ ?assertEqual("{...}", lists:flatten(format("~P", {a, b, c, d}, 1, 50))),
+ ?assertEqual("{a,...}", lists:flatten(format("~P", {a, b, c, d}, 2, 50))),
+ ?assertEqual("{a,...}", lists:flatten(format("~P", {a, b, c, d}, 3, 50))),
+ ?assertEqual("{a,b|...}", lists:flatten(format("~P", {a, b, c, d}, 4, 50))),
+ ?assertEqual("{a,b,...}", lists:flatten(format("~P", {a, b, c, d}, 5, 50))),
+ ?assertEqual("{a,b,c|...}", lists:flatten(format("~P", {a, b, c, d}, 6, 50))),
+ ?assertEqual("{a,b,c,...}", lists:flatten(format("~P", {a, b, c, d}, 7, 50))),
+ ?assertEqual("{a,b,c,d}", lists:flatten(format("~P", {a, b, c, d}, 8, 50))),
+ ?assertEqual("{a,b,c,d}", lists:flatten(format("~P", {a, b, c, d}, 9, 50))),
+
+ ?assertEqual("{a,{...}}", lists:flatten(format("~P", {a, {b, {c, {d}}}}, 3, 50))),
+ ?assertEqual("{a,{b,...}}", lists:flatten(format("~P", {a, {b, {c, {d}}}}, 4, 50))),
+ ?assertEqual("{a,{b,{...}}}", lists:flatten(format("~P", {a, {b, {c, {d}}}}, 5, 50))),
+ ?assertEqual("{a,{b,{c,...}}}", lists:flatten(format("~P", {a, {b, {c, {d}}}}, 6, 50))),
+ ?assertEqual("{a,{b,{c,{...}}}}", lists:flatten(format("~P", {a, {b, {c, {d}}}}, 7, 50))),
+ ?assertEqual("{a,{b,{c,{d}}}}", lists:flatten(format("~P", {a, {b, {c, {d}}}}, 8, 50))),
+
+ ?assertEqual("#{a => #{...}}",
+ lists:flatten(format("~P",
+ maps:from_list({a, maps:from_list({b, maps:from_list({c, d})})}), 2, 50))),
+ ?assertEqual("#{a => #{b => #{...}}}",
+ lists:flatten(format("~P",
+ maps:from_list({a, maps:from_list({b, maps:from_list({c, d})})}), 3, 50))),
+ ?assertEqual("#{a => #{b => #{c => d}}}",
+ lists:flatten(format("~P",
+ maps:from_list({a, maps:from_list({b, maps:from_list({c, d})})}), 4, 50))),
+
+ ?assertEqual("#{}", lists:flatten(format("~P", maps:new(), 1, 50))),
+ ?assertEqual("#{...}", lists:flatten(format("~P", maps:from_list({1,1}, {2,2}, {3,3}), 1, 50))),
+ ?assertEqual("#{1 => 1,...}", lists:flatten(format("~P", maps:from_list({1,1}, {2,2}, {3,3}), 2, 50))),
+ ?assertEqual("#{1 => 1,2 => 2,...}", lists:flatten(format("~P", maps:from_list({1,1}, {2,2}, {3,3}), 3, 50))),
+ ?assertEqual("#{1 => 1,2 => 2,3 => 3}", lists:flatten(format("~P", maps:from_list({1,1}, {2,2}, {3,3}), 4, 50))),
+
+ ?assertEqual("{\"a\",...}", lists:flatten(format("~P", {"a", "b", "c", "d"}, 3, 50))),
+ ?assertEqual("{\"a\",\"b\",...|...}", lists:flatten(format("~P", {"a", "b", "c", "d"}, 6, 50))),
+ ?assertEqual("{\"a\",\"b\",\"c\",\"d\"}", lists:flatten(format("~P", {"a", "b", "c", "d"}, 9, 50))),
+
+ ?assertEqual("...", lists:flatten(format("~P", 1, 2, 3, 1, 50))),
+ ?assertEqual("1|...", lists:flatten(format("~P", 1, 2, 3, 2, 50))),
+ ?assertEqual("1,2|...", lists:flatten(format("~P", 1, 2, 3, 3, 50))),
+ ?assertEqual("1,2,3", lists:flatten(format("~P", 1, 2, 3, 4, 50))),
+
+ ?assertEqual("{1,...}", lists:flatten(format("~P", {1, 2, 3}, 2, 50))),
+ ?assertEqual("{1,2,...}", lists:flatten(format("~P", {1, 2, 3}, 3, 50))),
+ ?assertEqual("{1,2,3}", lists:flatten(format("~P", {1, 2, 3}, 4, 50))),
+
+ ?assertEqual("{1,...}", lists:flatten(format("~P", {1, 2, 3}, 2, 50))),
+ ?assertEqual("1,2|...", lists:flatten(format("~P", 1, 2, <<3>>, 3, 50))),
+ ?assertEqual("1,2,<<...>>", lists:flatten(format("~P", 1, 2, <<3>>, 4, 50))),
+ ?assertEqual("1,2,<<3>>", lists:flatten(format("~P", 1, 2, <<3>>, 5, 50))),
+
+ ?assertEqual("<<...>>", lists:flatten(format("~P", <<0, 0, 0, 0>>, 1, 50))),
+ ?assertEqual("<<0,...>>", lists:flatten(format("~P", <<0, 0, 0, 0>>, 2, 50))),
+ ?assertEqual("<<0,0,...>>", lists:flatten(format("~P", <<0, 0, 0, 0>>, 3, 50))),
+ ?assertEqual("<<0,0,0,...>>", lists:flatten(format("~P", <<0, 0, 0, 0>>, 4, 50))),
+ ?assertEqual("<<0,0,0,0>>", lists:flatten(format("~P", <<0, 0, 0, 0>>, 5, 50))),
+
+ %% this is a seriously weird edge case
+ ?assertEqual("<<\" \"...>>", lists:flatten(format("~P", <<32, 32, 32, 0>>, 2, 50))),
+ ?assertEqual("<<\" \"...>>", lists:flatten(format("~P", <<32, 32, 32, 0>>, 3, 50))),
+ ?assertEqual("<<\" \"...>>", lists:flatten(format("~P", <<32, 32, 32, 0>>, 4, 50))),
+ ?assertEqual("<<32,32,32,0>>", lists:flatten(format("~P", <<32, 32, 32, 0>>, 5, 50))),
+ ?assertEqual("<<32,32,32,0>>", lists:flatten(format("~p", <<32, 32, 32, 0>>, 50))),
+
+ %% depth limiting for some reason works in 4 byte chunks on printable binaries?
+ ?assertEqual("<<\"hell\"...>>", lists:flatten(format("~P", <<"hello world">>, 2, 50))),
+ ?assertEqual("<<\"abcd\"...>>", lists:flatten(format("~P", <<$a, $b, $c, $d, $e, 0>>, 2, 50))),
+
+ %% I don't even know...
+ ?assertEqual("<<>>", lists:flatten(format("~P", <<>>, 1, 50))),
+ ?assertEqual("<<>>", lists:flatten(format("~W", <<>>, 1, 50))),
+
+ ?assertEqual("{abc,<<\"abc\\\"\">>}", lists:flatten(format("~P", {abc,<<"abc\"">>}, 4, 50))),
+
+ ok.
+
+print_terms_without_format_string_test() ->
+ ?assertError(badarg, format({hello, world}, , 50)),
+ ?assertError(badarg, format({google, bomb}, , 50)),
+ ?assertEqual($h,$e,$l,$l,$o, 3594, format($h,$e,$l,$l,$o, 3594, , 50)),
+ ?assertError(badarg, format($h,$e,$l,$l,$o, 65535, , 50)),
+ ?assertEqual("helloworld", lists:flatten(format($h,$e,$l,$l,$o, "world", , 50))),
+ ?assertEqual("hello", lists:flatten(format(<<"hello">>, , 50))),
+ ?assertEqual("hello", lists:flatten(format('hello', , 50))),
+ ?assertError(badarg, format(<<1, 2, 3, 1:7>>, , 100)),
+ ?assertError(badarg, format(65535, , 50)),
+ ok.
+
+improper_io_list_test() ->
+ ?assertEqual(">hello", lists:flatten(format('~s', $>|<<"hello">>, 50))),
+ ?assertEqual(">hello", lists:flatten(format('~ts', $>|<<"hello">>, 50))),
+ ?assertEqual("helloworld", lists:flatten(format('~ts', <<"hello">>|<<"world">>, 50))),
+ ok.
+
+-endif.

guam-0.9.12.tar.gz/_checkouts/lager/src/lager_util.erl Added

@@ -0,0 +1,962 @@
+%% -------------------------------------------------------------------
+%%
+%% Copyright (c) 2011-2017 Basho Technologies, Inc.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+%%
+%% -------------------------------------------------------------------
+
+-module(lager_util).
+
+-export(
+ levels/0, level_to_num/1, level_to_chr/1,
+ num_to_level/1, config_to_mask/1, config_to_levels/1, mask_to_levels/1,
+ format_time/0, format_time/1,
+ localtime_ms/0, localtime_ms/1, maybe_utc/1, parse_rotation_date_spec/1,
+ calculate_next_rotation/1, validate_trace/1, check_traces/4, is_loggable/3,
+ trace_filter/1, trace_filter/2, expand_path/1, find_file/2, check_hwm/1, check_hwm/2,
+ make_internal_sink_name/1, otp_version/0, maybe_flush/2,
+ has_file_changed/3
+).
+
+-ifdef(TEST).
+-export(create_test_dir/0, get_test_dir/0, delete_test_dir/0,
+ set_dir_permissions/2,
+ safe_application_load/1,
+ safe_write_file/2).
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+
+-include("lager.hrl").
+
+-include_lib("kernel/include/file.hrl").
+
+levels() ->
+ debug, info, notice, warning, error, critical, alert, emergency, none.
+
+level_to_num(debug) -> ?DEBUG;
+level_to_num(info) -> ?INFO;
+level_to_num(notice) -> ?NOTICE;
+level_to_num(warning) -> ?WARNING;
+level_to_num(error) -> ?ERROR;
+level_to_num(critical) -> ?CRITICAL;
+level_to_num(alert) -> ?ALERT;
+level_to_num(emergency) -> ?EMERGENCY;
+level_to_num(none) -> ?LOG_NONE.
+
+level_to_chr(debug) -> $D;
+level_to_chr(info) -> $I;
+level_to_chr(notice) -> $N;
+level_to_chr(warning) -> $W;
+level_to_chr(error) -> $E;
+level_to_chr(critical) -> $C;
+level_to_chr(alert) -> $A;
+level_to_chr(emergency) -> $M;
+level_to_chr(none) -> $ .
+
+num_to_level(?DEBUG) -> debug;
+num_to_level(?INFO) -> info;
+num_to_level(?NOTICE) -> notice;
+num_to_level(?WARNING) -> warning;
+num_to_level(?ERROR) -> error;
+num_to_level(?CRITICAL) -> critical;
+num_to_level(?ALERT) -> alert;
+num_to_level(?EMERGENCY) -> emergency;
+num_to_level(?LOG_NONE) -> none.
+
+-spec config_to_mask(atom()|string()) -> {'mask', integer()}.
+config_to_mask(Conf) ->
+ Levels = config_to_levels(Conf),
+ {mask, lists:foldl(fun(Level, Acc) ->
+ level_to_num(Level) bor Acc
+ end, 0, Levels)}.
+
+-spec mask_to_levels(non_neg_integer()) -> lager:log_level().
+mask_to_levels(Mask) ->
+ mask_to_levels(Mask, levels(), ).
+
+mask_to_levels(_Mask, , Acc) ->
+ lists:reverse(Acc);
+mask_to_levels(Mask, Level|Levels, Acc) ->
+ NewAcc = case (level_to_num(Level) band Mask) /= 0 of
+ true ->
+ Level|Acc;
+ false ->
+ Acc
+ end,
+ mask_to_levels(Mask, Levels, NewAcc).
+
+-spec config_to_levels(atom()|string()) -> lager:log_level().
+config_to_levels(Conf) when is_atom(Conf) ->
+ config_to_levels(atom_to_list(Conf));
+config_to_levels($! | Rest) ->
+ levels() -- config_to_levels(Rest);
+config_to_levels($=, $< | Rest) ->
+ _|Levels = config_to_levels_int(Rest),
+ lists:filter(fun(E) -> not lists:member(E, Levels) end, levels());
+config_to_levels($<, $= | Rest) ->
+ _|Levels = config_to_levels_int(Rest),
+ lists:filter(fun(E) -> not lists:member(E, Levels) end, levels());
+config_to_levels($>, $= | Rest) ->
+ config_to_levels_int(Rest);
+config_to_levels($=, $> | Rest) ->
+ config_to_levels_int(Rest);
+config_to_levels($= | Rest) ->
+ level_to_atom(Rest);
+config_to_levels($< | Rest) ->
+ Levels = config_to_levels_int(Rest),
+ lists:filter(fun(E) -> not lists:member(E, Levels) end, levels());
+config_to_levels($> | Rest) ->
+ _|Levels = config_to_levels_int(Rest),
+ lists:filter(fun(E) -> lists:member(E, Levels) end, levels());
+config_to_levels(Conf) ->
+ config_to_levels_int(Conf).
+
+%% internal function to break the recursion loop
+config_to_levels_int(Conf) ->
+ Level = level_to_atom(Conf),
+ lists:dropwhile(fun(E) -> E /= Level end, levels()).
+
+level_to_atom(String) ->
+ Levels = levels(),
+ try list_to_existing_atom(String) of
+ Atom ->
+ case lists:member(Atom, Levels) of
+ true ->
+ Atom;
+ false ->
+ erlang:error(badarg)
+ end
+ catch
+ _:_ ->
+ erlang:error(badarg)
+ end.
+
+%% returns localtime with milliseconds included
+localtime_ms() ->
+ Now = os:timestamp(),
+ localtime_ms(Now).
+
+localtime_ms(Now) ->
+ {_, _, Micro} = Now,
+ {Date, {Hours, Minutes, Seconds}} = calendar:now_to_local_time(Now),
+ {Date, {Hours, Minutes, Seconds, Micro div 1000 rem 1000}}.
+
+
+maybe_utc({Date, {H, M, S, Ms}}) ->
+ case lager_stdlib:maybe_utc({Date, {H, M, S}}) of
+ {utc, {Date1, {H1, M1, S1}}} ->
+ {utc, {Date1, {H1, M1, S1, Ms}}};
+ {Date1, {H1, M1, S1}} ->
+ {Date1, {H1, M1, S1, Ms}}
+ end.
+
+format_time() ->
+ format_time(maybe_utc(localtime_ms())).
+
+format_time({utc, {{Y, M, D}, {H, Mi, S, Ms}}}) ->
+ {integer_to_list(Y), $-, i2l(M), $-, i2l(D),
+ i2l(H), $:, i2l(Mi), $:, i2l(S), $., i3l(Ms), $ , $U, $T, $C};
+format_time({{Y, M, D}, {H, Mi, S, Ms}}) ->
+ {integer_to_list(Y), $-, i2l(M), $-, i2l(D),
+ i2l(H), $:, i2l(Mi), $:, i2l(S), $., i3l(Ms)};
+format_time({utc, {{Y, M, D}, {H, Mi, S}}}) ->
+ {integer_to_list(Y), $-, i2l(M), $-, i2l(D),
+ i2l(H), $:, i2l(Mi), $:, i2l(S), $ , $U, $T, $C};
+format_time({{Y, M, D}, {H, Mi, S}}) ->
+ {integer_to_list(Y), $-, i2l(M), $-, i2l(D),
+ i2l(H), $:, i2l(Mi), $:, i2l(S)}.
+
+parse_rotation_hour_spec(, Res) ->
+ {ok, Res};
+parse_rotation_hour_spec($H, M1, M2, Res) ->
+ case list_to_integer(M1, M2) of
+ X when X >= 0, X =< 59 ->
+ {ok, Res ++ {minute, X}};
+ _ ->
+ {error, invalid_date_spec}
+ end;
+parse_rotation_hour_spec($H, M, Res) when M >= $0, M =< $9 ->
+ {ok, Res ++ {minute, M - 48}};
+parse_rotation_hour_spec(_,_) ->
+ {error, invalid_date_spec}.
+
+%% Default to 00:00:00 rotation
+parse_rotation_day_spec(, Res) ->
+ {ok, Res ++ {hour ,0}};
+parse_rotation_day_spec($D, D1, D2|T, Res) ->
+ case list_to_integer(D1, D2) of
+ X when X >= 0, X =< 23 ->
+ parse_rotation_hour_spec(T, Res ++ {hour, X});
+ _ ->
+ {error, invalid_date_spec}
+ end;
+parse_rotation_day_spec($D, D|T, Res) when D >= $0, D =< $9 ->
+ parse_rotation_hour_spec(T, Res ++ {hour, D - 48 });
+parse_rotation_day_spec(X, Res) ->
+ parse_rotation_hour_spec(X, Res).
+
+parse_rotation_date_spec($$, $W, W|T) when W >= $0, W =< $6 ->
+ Week = W - 48,
+ parse_rotation_day_spec(T, {day, Week});
+parse_rotation_date_spec($$, $M, L|T) when L == $L; L == $l ->
+ %% last day in month.
+ parse_rotation_day_spec(T, {date, last});
+parse_rotation_date_spec($$, $M, M1, M2|$D|_=T) ->
+ case list_to_integer(M1, M2) of
+ X when X >= 1, X =< 31 ->
+ parse_rotation_day_spec(T, {date, X});
+ _ ->
+ {error, invalid_date_spec}
+ end;
+parse_rotation_date_spec($$, $M, M|$D|_=T) ->
+ parse_rotation_day_spec(T, {date, M - 48});
+parse_rotation_date_spec($$, $M, M1, M2) ->
+ case list_to_integer(M1, M2) of
+ X when X >= 1, X =< 31 ->
+ {ok, {date, X}, {hour, 0}};
+ _ ->
+ {error, invalid_date_spec}
+ end;
+parse_rotation_date_spec($$, $M, M) ->
+ {ok, {date, M - 48}, {hour, 0}};
+parse_rotation_date_spec($$|X) when X /= ->
+ parse_rotation_day_spec(X, );
+parse_rotation_date_spec(_) ->
+ {error, invalid_date_spec}.
+
+calculate_next_rotation(Spec) ->
+ Now = calendar:local_time(),
+ Later = calculate_next_rotation(Spec, Now),
+ calendar:datetime_to_gregorian_seconds(Later) -
+ calendar:datetime_to_gregorian_seconds(Now).
+
+calculate_next_rotation(, Now) ->
+ Now;
+calculate_next_rotation({minute, X}|T, {{_, _, _}, {Hour, Minute, _}} = Now) when Minute < X ->
+ %% rotation is this hour
+ NewNow = setelement(2, Now, {Hour, X, 0}),
+ calculate_next_rotation(T, NewNow);
+calculate_next_rotation({minute, X}|T, Now) ->
+ %% rotation is next hour
+ Seconds = calendar:datetime_to_gregorian_seconds(Now) + 3600,
+ DateTime = calendar:gregorian_seconds_to_datetime(Seconds),
+ {_, {NewHour, _, _}} = DateTime,
+ NewNow = setelement(2, DateTime, {NewHour, X, 0}),
+ calculate_next_rotation(T, NewNow);
+calculate_next_rotation({hour, X}|T, {{_, _, _}, {Hour, _, _}} = Now) when Hour < X ->
+ %% rotation is today, sometime
+ NewNow = setelement(2, Now, {X, 0, 0}),
+ calculate_next_rotation(T, NewNow);
+calculate_next_rotation({hour, X}|T, {{_, _, _}, _} = Now) ->
+ %% rotation is not today
+ Seconds = calendar:datetime_to_gregorian_seconds(Now) + 86400,
+ DateTime = calendar:gregorian_seconds_to_datetime(Seconds),
+ NewNow = setelement(2, DateTime, {X, 0, 0}),
+ calculate_next_rotation(T, NewNow);
+calculate_next_rotation({day, Day}|T, {Date, _Time} = Now) ->
+ DoW = calendar:day_of_the_week(Date),
+ AdjustedDay = case Day of
+ 0 -> 7;
+ X -> X
+ end,
+ case AdjustedDay of
+ DoW -> %% rotation is today
+ case calculate_next_rotation(T, Now) of
+ {Date, _} = NewNow -> NewNow;
+ {NewDate, _} ->
+ %% rotation *isn't* today! rerun the calculation
+ NewNow = {NewDate, {0, 0, 0}},
+ calculate_next_rotation({day, Day}|T, NewNow)
+ end;
+ Y when Y > DoW -> %% rotation is later this week
+ PlusDays = Y - DoW,
+ Seconds = calendar:datetime_to_gregorian_seconds(Now) + (86400 * PlusDays),
+ {NewDate, _} = calendar:gregorian_seconds_to_datetime(Seconds),
+ NewNow = {NewDate, {0, 0, 0}},
+ calculate_next_rotation(T, NewNow);
+ Y when Y < DoW -> %% rotation is next week
+ PlusDays = ((7 - DoW) + Y),
+ Seconds = calendar:datetime_to_gregorian_seconds(Now) + (86400 * PlusDays),
+ {NewDate, _} = calendar:gregorian_seconds_to_datetime(Seconds),
+ NewNow = {NewDate, {0, 0, 0}},
+ calculate_next_rotation(T, NewNow)
+ end;
+calculate_next_rotation({date, last}|T, {{Year, Month, Day}, _} = Now) ->
+ Last = calendar:last_day_of_the_month(Year, Month),
+ case Last == Day of
+ true -> %% doing rotation today
+ case calculate_next_rotation(T, Now) of
+ {{Year, Month, Day}, _} = NewNow -> NewNow;
+ {NewDate, _} ->
+ %% rotation *isn't* today! rerun the calculation
+ NewNow = {NewDate, {0, 0, 0}},
+ calculate_next_rotation({date, last}|T, NewNow)
+ end;
+ false ->
+ NewNow = setelement(1, Now, {Year, Month, Last}),
+ calculate_next_rotation(T, NewNow)
+ end;
+calculate_next_rotation({date, Date}|T, {{Year, Month, Date}, _} = Now) ->
+ %% rotation is today
+ case calculate_next_rotation(T, Now) of
+ {{Year, Month, Date}, _} = NewNow -> NewNow;
+ {NewDate, _} ->
+ %% rotation *isn't* today! rerun the calculation
+ NewNow = setelement(1, Now, NewDate),
+ calculate_next_rotation({date, Date}|T, NewNow)
+ end;
+calculate_next_rotation({date, Date}|T, {{Year, Month, Day}, _} = Now) ->
+ PlusDays = case Date of
+ X when X < Day -> %% rotation is next month
+ Last = calendar:last_day_of_the_month(Year, Month),
+ (Last - Day);
+ X when X > Day -> %% rotation is later this month
+ X - Day
+ end,
+ Seconds = calendar:datetime_to_gregorian_seconds(Now) + (86400 * PlusDays),
+ NewNow = calendar:gregorian_seconds_to_datetime(Seconds),
+ calculate_next_rotation(T, NewNow).
+
+-spec trace_filter(Query :: 'none' | tuple()) -> {ok, any()}.
+trace_filter(Query) ->
+ trace_filter(?DEFAULT_TRACER, Query).
+
+%% TODO: Support multiple trace modules
+%-spec trace_filter(Module :: atom(), Query :: 'none' | tuple()) -> {ok, any()}.
+trace_filter(Module, Query) when Query == none; Query == ->
+ {ok, _} = glc:compile(Module, glc:null(false));
+trace_filter(Module, Query) when is_list(Query) ->
+ {ok, _} = glc:compile(Module, glc_lib:reduce(trace_any(Query))).
+
+validate_trace({Filter, Level, {Destination, ID}}) when is_tuple(Filter); is_list(Filter), is_atom(Level), is_atom(Destination) ->
+ case validate_trace({Filter, Level, Destination}) of
+ {ok, {F, L, D}} ->
+ {ok, {F, L, {D, ID}}};
+ Error ->
+ Error
+ end;
+validate_trace({Filter, Level, Destination}) when is_tuple(Filter); is_list(Filter), is_atom(Level), is_atom(Destination) ->
+ ValidFilter = validate_trace_filter(Filter),
+ try config_to_mask(Level) of
+ _ when not ValidFilter ->
+ {error, invalid_trace};
+ L when is_list(Filter) ->
+ {ok, {trace_all(Filter), L, Destination}};
+ L ->
+ {ok, {Filter, L, Destination}}
+ catch
+ _:_ ->
+ {error, invalid_level}
+ end;
+validate_trace(_) ->
+ {error, invalid_trace}.
+
+validate_trace_filter(Filter) when is_tuple(Filter), is_atom(element(1, Filter)) =:= false ->
+ false;
+validate_trace_filter(Filter) when is_list(Filter) ->
+ lists:all(fun validate_trace_filter/1, Filter);
+validate_trace_filter({Key, '*'}) when is_atom(Key) -> true;
+validate_trace_filter({any, L}) when is_list(L) -> lists:all(fun validate_trace_filter/1, L);
+validate_trace_filter({all, L}) when is_list(L) -> lists:all(fun validate_trace_filter/1, L);
+validate_trace_filter({null, Bool}) when is_boolean(Bool) -> true;
+validate_trace_filter({Key, _Value}) when is_atom(Key) -> true;
+validate_trace_filter({Key, '=', _Value}) when is_atom(Key) -> true;
+validate_trace_filter({Key, '!=', _Value}) when is_atom(Key) -> true;
+validate_trace_filter({Key, '<', _Value}) when is_atom(Key) -> true;
+validate_trace_filter({Key, '=<', _Value}) when is_atom(Key) -> true;
+validate_trace_filter({Key, '>', _Value}) when is_atom(Key) -> true;
+validate_trace_filter({Key, '>=', _Value}) when is_atom(Key) -> true;
+validate_trace_filter(_) -> false.
+
+trace_all(Query) ->
+ glc:all(trace_acc(Query)).
+
+trace_any(Query) ->
+ glc:any(Query).
+
+trace_acc(Query) ->
+ trace_acc(Query, ).
+
+trace_acc(, Acc) ->
+ lists:reverse(Acc);
+trace_acc({any, L}|T, Acc) ->
+ trace_acc(T, glc:any(L)|Acc);
+trace_acc({all, L}|T, Acc) ->
+ trace_acc(T, glc:all(L)|Acc);
+trace_acc({null, Bool}|T, Acc) ->
+ trace_acc(T, glc:null(Bool)|Acc);
+trace_acc({Key, '*'}|T, Acc) ->
+ trace_acc(T, glc:wc(Key)|Acc);
+trace_acc({Key, '!'}|T, Acc) ->
+ trace_acc(T, glc:nf(Key)|Acc);
+trace_acc({Key, Val}|T, Acc) ->
+ trace_acc(T, glc:eq(Key, Val)|Acc);
+trace_acc({Key, '=', Val}|T, Acc) ->
+ trace_acc(T, glc:eq(Key, Val)|Acc);
+trace_acc({Key, '!=', Val}|T, Acc) ->
+ trace_acc(T, glc:neq(Key, Val)|Acc);
+trace_acc({Key, '>', Val}|T, Acc) ->
+ trace_acc(T, glc:gt(Key, Val)|Acc);
+trace_acc({Key, '>=', Val}|T, Acc) ->
+ trace_acc(T, glc:gte(Key, Val)|Acc);
+trace_acc({Key, '=<', Val}|T, Acc) ->
+ trace_acc(T, glc:lte(Key, Val)|Acc);
+trace_acc({Key, '<', Val}|T, Acc) ->
+ trace_acc(T, glc:lt(Key, Val)|Acc).
+
+check_traces(_, _, , Acc) ->
+ lists:flatten(Acc);
+check_traces(Attrs, Level, {_, {mask, FilterLevel}, _}|Flows, Acc) when (Level band FilterLevel) == 0 ->
+ check_traces(Attrs, Level, Flows, Acc);
+check_traces(Attrs, Level, {Filter, _, _}|Flows, Acc) when length(Attrs) < length(Filter) ->
+ check_traces(Attrs, Level, Flows, Acc);
+check_traces(Attrs, Level, Flow|Flows, Acc) ->
+ check_traces(Attrs, Level, Flows, check_trace(Attrs, Flow)|Acc).
+
+check_trace(Attrs, {Filter, _Level, Dest}) when is_list(Filter) ->
+ check_trace(Attrs, {trace_all(Filter), _Level, Dest});
+
+check_trace(Attrs, {Filter, _Level, Dest}) when is_tuple(Filter) ->
+ Made = gre:make(Attrs, list),
+ glc:handle(?DEFAULT_TRACER, Made),
+ Match = glc_lib:matches(Filter, Made),
+ case Match of
+ true ->
+ Dest;
+ false ->
+ 
+ end.
+
+-spec is_loggable(lager_msg:lager_msg(), non_neg_integer()|{'mask', non_neg_integer()}, term()) -> boolean().
+is_loggable(Msg, {mask, Mask}, MyName) ->
+ %% using syslog style comparison flags
+ %S = lager_msg:severity_as_int(Msg),
+ %?debugFmt("comparing masks ~.2B and ~.2B -> ~p~n", S, Mask, S band Mask),
+ (lager_msg:severity_as_int(Msg) band Mask) /= 0 orelse
+ lists:member(MyName, lager_msg:destinations(Msg));
+is_loggable(Msg, SeverityThreshold, MyName) when is_atom(SeverityThreshold) ->
+ is_loggable(Msg, level_to_num(SeverityThreshold), MyName);
+is_loggable(Msg, SeverityThreshold, MyName) when is_integer(SeverityThreshold) ->
+ lager_msg:severity_as_int(Msg) =< SeverityThreshold orelse
+ lists:member(MyName, lager_msg:destinations(Msg)).
+
+i2l(I) when I < 10 -> $0, $0+I;
+i2l(I) -> integer_to_list(I).
+i3l(I) when I < 100 -> $0 | i2l(I);
+i3l(I) -> integer_to_list(I).
+
+%% When log_root option is provided, get the real path to a file
+expand_path(LogPath) ->
+ LogRoot = application:get_env(lager, log_root, undefined),
+ RealPath = case filename:absname(LogPath) =:= LogPath of
+ false when LogRoot =/= undefined ->
+ filename:join(LogRoot, LogPath);
+ _ ->
+ LogPath
+ end,
+ %% see #534 make sure c:cd can't change file path, trans filename to abs name
+ filename:absname(RealPath).
+
+%% Find a file among the already installed handlers.
+%%
+%% The file is already expanded (i.e. lager_util:expand_path already added the
+%% "log_root"), but the file paths inside Handlers are not.
+find_file(_File1, _Handlers = ) ->
+ false;
+find_file(File1, {{lager_file_backend, File2}, _Handler, _Sink} = HandlerInfo | Handlers) ->
+ File1Abs = File1,
+ File2Abs = lager_util:expand_path(File2),
+ case File1Abs =:= File2Abs of
+ true ->
+ % The file inside HandlerInfo is the same as the file we are looking
+ % for, so we are done.
+ HandlerInfo;
+ false ->
+ find_file(File1, Handlers)
+ end;
+find_file(File1, _HandlerInfo | Handlers) ->
+ find_file(File1, Handlers).
+
+%% conditionally check the HWM if the event would not have been filtered
+check_hwm(Shaper = #lager_shaper{filter = Filter}, Event) ->
+ case Filter(Event) of
+ true ->
+ {true, 0, Shaper};
+ false ->
+ check_hwm(Shaper)
+ end.
+
+%% Log rate limit, i.e. high water mark for incoming messages
+
+check_hwm(Shaper = #lager_shaper{hwm = undefined}) ->
+ {true, 0, Shaper};
+check_hwm(Shaper = #lager_shaper{mps = Mps, hwm = Hwm, lasttime = Last}) when Mps < Hwm ->
+ {M, S, _} = Now = os:timestamp(),
+ case Last of
+ {M, S, _} ->
+ {true, 0, Shaper#lager_shaper{mps=Mps+1}};
+ _ ->
+ %different second - reset mps
+ {true, 0, Shaper#lager_shaper{mps=1, lasttime = Now}}
+ end;
+check_hwm(Shaper = #lager_shaper{lasttime = Last, dropped = Drop}) ->
+ %% are we still in the same second?
+ {M, S, _} = Now = os:timestamp(),
+ case Last of
+ {M, S, N} ->
+ %% still in same second, but have exceeded the high water mark
+ NewDrops = case should_flush(Shaper) of
+ true ->
+ discard_messages(Now, Shaper#lager_shaper.filter, 0);
+ false ->
+ 0
+ end,
+ Timer = case erlang:read_timer(Shaper#lager_shaper.timer) of
+ false ->
+ erlang:send_after(trunc((1000000 - N)/1000), self(), {shaper_expired, Shaper#lager_shaper.id});
+ _ ->
+ Shaper#lager_shaper.timer
+ end,
+ {false, 0, Shaper#lager_shaper{dropped=Drop+NewDrops, timer=Timer}};
+ _ ->
+ _ = erlang:cancel_timer(Shaper#lager_shaper.timer),
+ %% different second, reset all counters and allow it
+ {true, Drop, Shaper#lager_shaper{dropped = 0, mps=0, lasttime = Now}}
+ end.
+
+should_flush(#lager_shaper{flush_queue = true, flush_threshold = 0}) ->
+ true;
+should_flush(#lager_shaper{flush_queue = true, flush_threshold = T}) ->
+ {_, L} = process_info(self(), message_queue_len),
+ L > T;
+should_flush(_) ->
+ false.
+
+discard_messages(Second, Filter, Count) ->
+ {M, S, _} = os:timestamp(),
+ case Second of
+ {M, S, _} ->
+ receive
+ %% we only discard gen_event notifications, because
+ %% otherwise we might discard gen_event internal
+ %% messages, such as trapped EXITs
+ {notify, Event} ->
+ NewCount = case Filter(Event) of
+ false -> Count+1;
+ true -> Count
+ end,
+ discard_messages(Second, Filter, NewCount)
+ after 0 ->
+ Count
+ end;
+ _ ->
+ Count
+ end.
+
+%% @private Build an atom for the gen_event process based on a sink name.
+%% For historical reasons, the default gen_event process for lager itself is named
+%% `lager_event'. For all other sinks, it is SinkName++`_lager_event'
+make_internal_sink_name(lager) ->
+ ?DEFAULT_SINK;
+make_internal_sink_name(Sink) ->
+ list_to_atom(atom_to_list(Sink) ++ "_lager_event").
+
+-spec otp_version() -> pos_integer().
+%% @doc Return the major version of the current Erlang/OTP runtime as an integer.
+otp_version() ->
+ {Vsn, _} = string:to_integer(
+ case erlang:system_info(otp_release) of
+ $R | Rel ->
+ Rel;
+ Rel ->
+ Rel
+ end),
+ Vsn.
+
+maybe_flush(undefined, #lager_shaper{} = S) ->
+ S;
+maybe_flush(Flag, #lager_shaper{} = S) when is_boolean(Flag) ->
+ S#lager_shaper{flush_queue = Flag}.
+
+-spec has_file_changed(Name :: file:name_all(),
+ Inode0 :: pos_integer(),
+ Ctime0 :: file:date_time()) -> {boolean(), file:file_info() | undefined}.
+has_file_changed(Name, Inode0, Ctime0) ->
+ {OsType, _} = os:type(),
+ F = file:read_file_info(Name, raw),
+ case {OsType, F} of
+ {win32, {ok, #file_info{ctime=Ctime1}=FInfo}} ->
+ % Note: on win32, Inode is always zero
+ % So check the file's ctime to see if it
+ % needs to be re-opened
+ Changed = Ctime0 =/= Ctime1,
+ {Changed, FInfo};
+ {_, {ok, #file_info{inode=Inode1}=FInfo}} ->
+ Changed = Inode0 =/= Inode1,
+ {Changed, FInfo};
+ {_, _} ->
+ {true, undefined}
+ end.
+
+-ifdef(TEST).
+
+parse_test() ->
+ ?assertEqual({ok, {minute, 0}}, parse_rotation_date_spec("$H0")),
+ ?assertEqual({ok, {minute, 59}}, parse_rotation_date_spec("$H59")),
+ ?assertEqual({ok, {hour, 0}}, parse_rotation_date_spec("$D0")),
+ ?assertEqual({ok, {hour, 23}}, parse_rotation_date_spec("$D23")),
+ ?assertEqual({ok, {day, 0}, {hour, 23}}, parse_rotation_date_spec("$W0D23")),
+ ?assertEqual({ok, {day, 5}, {hour, 16}}, parse_rotation_date_spec("$W5D16")),
+ ?assertEqual({ok, {day, 0}, {hour, 12}, {minute, 30}}, parse_rotation_date_spec("$W0D12H30")),
+ ?assertEqual({ok, {date, 1}, {hour, 0}}, parse_rotation_date_spec("$M1D0")),
+ ?assertEqual({ok, {date, 5}, {hour, 6}}, parse_rotation_date_spec("$M5D6")),
+ ?assertEqual({ok, {date, 5}, {hour, 0}}, parse_rotation_date_spec("$M5")),
+ ?assertEqual({ok, {date, 31}, {hour, 0}}, parse_rotation_date_spec("$M31")),
+ ?assertEqual({ok, {date, 31}, {hour, 1}}, parse_rotation_date_spec("$M31D1")),
+ ?assertEqual({ok, {date, last}, {hour, 0}}, parse_rotation_date_spec("$ML")),
+ ?assertEqual({ok, {date, last}, {hour, 0}}, parse_rotation_date_spec("$Ml")),
+ ?assertEqual({ok, {day, 5}, {hour, 0}}, parse_rotation_date_spec("$W5")),
+ ok.
+
+parse_fail_test() ->
+ ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$H")),
+ ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$H60")),
+ ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$D")),
+ ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$D24")),
+ ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$W7")),
+ ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$W7D1")),
+ ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$M32")),
+ ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$M32D1")),
+ ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$")),
+ ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("")),
+ ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$D15M5")),
+ ?assertEqual({error, invalid_date_spec}, parse_rotation_date_spec("$M5W5")),
+ ok.
+
+rotation_calculation_test() ->
+ ?assertMatch({{2000, 1, 1}, {13, 0, 0}},
+ calculate_next_rotation({minute, 0}, {{2000, 1, 1}, {12, 34, 43}})),
+ ?assertMatch({{2000, 1, 1}, {12, 45, 0}},
+ calculate_next_rotation({minute, 45}, {{2000, 1, 1}, {12, 34, 43}})),
+ ?assertMatch({{2000, 1, 2}, {0, 0, 0}},
+ calculate_next_rotation({minute, 0}, {{2000, 1, 1}, {23, 45, 43}})),
+ ?assertMatch({{2000, 1, 2}, {0, 0, 0}},
+ calculate_next_rotation({hour, 0}, {{2000, 1, 1}, {12, 34, 43}})),
+ ?assertMatch({{2000, 1, 1}, {16, 0, 0}},
+ calculate_next_rotation({hour, 16}, {{2000, 1, 1}, {12, 34, 43}})),
+ ?assertMatch({{2000, 1, 2}, {12, 0, 0}},
+ calculate_next_rotation({hour, 12}, {{2000, 1, 1}, {12, 34, 43}})),
+ ?assertMatch({{2000, 2, 1}, {12, 0, 0}},
+ calculate_next_rotation({date, 1}, {hour, 12}, {{2000, 1, 1}, {12, 34, 43}})),
+ ?assertMatch({{2000, 2, 1}, {12, 0, 0}},
+ calculate_next_rotation({date, 1}, {hour, 12}, {{2000, 1, 15}, {12, 34, 43}})),
+ ?assertMatch({{2000, 2, 1}, {12, 0, 0}},
+ calculate_next_rotation({date, 1}, {hour, 12}, {{2000, 1, 2}, {12, 34, 43}})),
+ ?assertMatch({{2000, 2, 1}, {12, 0, 0}},
+ calculate_next_rotation({date, 1}, {hour, 12}, {{2000, 1, 31}, {12, 34, 43}})),
+ ?assertMatch({{2000, 1, 1}, {16, 0, 0}},
+ calculate_next_rotation({date, 1}, {hour, 16}, {{2000, 1, 1}, {12, 34, 43}})),
+ ?assertMatch({{2000, 1, 15}, {16, 0, 0}},
+ calculate_next_rotation({date, 15}, {hour, 16}, {{2000, 1, 1}, {12, 34, 43}})),
+ ?assertMatch({{2000, 1, 31}, {16, 0, 0}},
+ calculate_next_rotation({date, last}, {hour, 16}, {{2000, 1, 1}, {12, 34, 43}})),
+ ?assertMatch({{2000, 1, 31}, {16, 0, 0}},
+ calculate_next_rotation({date, last}, {hour, 16}, {{2000, 1, 31}, {12, 34, 43}})),
+ ?assertMatch({{2000, 2, 29}, {16, 0, 0}},
+ calculate_next_rotation({date, last}, {hour, 16}, {{2000, 1, 31}, {17, 34, 43}})),
+ ?assertMatch({{2001, 2, 28}, {16, 0, 0}},
+ calculate_next_rotation({date, last}, {hour, 16}, {{2001, 1, 31}, {17, 34, 43}})),
+
+ ?assertMatch({{2000, 1, 1}, {16, 0, 0}},
+ calculate_next_rotation({day, 6}, {hour, 16}, {{2000, 1, 1}, {12, 34, 43}})),
+ ?assertMatch({{2000, 1, 8}, {16, 0, 0}},
+ calculate_next_rotation({day, 6}, {hour, 16}, {{2000, 1, 1}, {17, 34, 43}})),
+ ?assertMatch({{2000, 1, 7}, {16, 0, 0}},
+ calculate_next_rotation({day, 5}, {hour, 16}, {{2000, 1, 1}, {17, 34, 43}})),
+ ?assertMatch({{2000, 1, 3}, {16, 0, 0}},
+ calculate_next_rotation({day, 1}, {hour, 16}, {{2000, 1, 1}, {17, 34, 43}})),
+ ?assertMatch({{2000, 1, 2}, {16, 0, 0}},
+ calculate_next_rotation({day, 0}, {hour, 16}, {{2000, 1, 1}, {17, 34, 43}})),
+ ?assertMatch({{2000, 1, 9}, {16, 0, 0}},
+ calculate_next_rotation({day, 0}, {hour, 16}, {{2000, 1, 2}, {17, 34, 43}})),
+ ?assertMatch({{2000, 2, 3}, {16, 0, 0}},
+ calculate_next_rotation({day, 4}, {hour, 16}, {{2000, 1, 29}, {17, 34, 43}})),
+
+ ?assertMatch({{2000, 1, 7}, {16, 0, 0}},
+ calculate_next_rotation({day, 5}, {hour, 16}, {{2000, 1, 3}, {17, 34, 43}})),
+
+ ?assertMatch({{2000, 1, 3}, {16, 0, 0}},
+ calculate_next_rotation({day, 1}, {hour, 16}, {{1999, 12, 28}, {17, 34, 43}})),
+ ok.
+
+check_trace_test() ->
+ lager:start(),
+ trace_filter(none),
+ %% match by module
+ ?assertEqual(foo, check_traces({module, ?MODULE}, ?EMERGENCY, 
+ {{module, ?MODULE}, config_to_mask(emergency), foo},
+ {{module, test}, config_to_mask(emergency), bar}, )),
+ %% match by module, but other unsatisfyable attribute
+ ?assertEqual(, check_traces({module, ?MODULE}, ?EMERGENCY, 
+ {{module, ?MODULE}, {foo, bar}, config_to_mask(emergency), foo},
+ {{module, test}, config_to_mask(emergency), bar}, )),
+ %% match by wildcard module
+ ?assertEqual(bar, check_traces({module, ?MODULE}, ?EMERGENCY, 
+ {{module, ?MODULE}, {foo, bar}, config_to_mask(emergency), foo},
+ {{module, '*'}, config_to_mask(emergency), bar}, )),
+ %% wildcard module, one trace with unsatisfyable attribute
+ ?assertEqual(bar, check_traces({module, ?MODULE}, ?EMERGENCY, 
+ {{module, '*'}, {foo, bar}, config_to_mask(emergency), foo},
+ {{module, '*'}, config_to_mask(emergency), bar}, )),
+ %% wildcard but not present custom trace attribute
+ ?assertEqual(bar, check_traces({module, ?MODULE}, ?EMERGENCY, 
+ {{module, '*'}, {foo, '*'}, config_to_mask(emergency), foo},
+ {{module, '*'}, config_to_mask(emergency), bar}, )),
+ %% wildcarding a custom attribute works when it is present
+ ?assertEqual(bar, foo, check_traces({module, ?MODULE}, {foo, bar}, ?EMERGENCY, 
+ {{module, '*'}, {foo, '*'}, config_to_mask(emergency), foo},
+ {{module, '*'}, config_to_mask(emergency), bar}, )),
+ %% denied by level
+ ?assertEqual(, check_traces({module, ?MODULE}, {foo, bar}, ?INFO, 
+ {{module, '*'}, {foo, '*'}, config_to_mask(emergency), foo},
+ {{module, '*'}, config_to_mask(emergency), bar}, )),
+ %% allowed by level
+ ?assertEqual(foo, check_traces({module, ?MODULE}, {foo, bar}, ?INFO, 
+ {{module, '*'}, {foo, '*'}, config_to_mask(debug), foo},
+ {{module, '*'}, config_to_mask(emergency), bar}, )),
+ ?assertEqual(anythingbutnotice, infoandbelow, infoonly, check_traces({module, ?MODULE}, ?INFO, 
+ {{module, '*'}, config_to_mask('=debug'), debugonly},
+ {{module, '*'}, config_to_mask('=info'), infoonly},
+ {{module, '*'}, config_to_mask('<=info'), infoandbelow},
+ {{module, '*'}, config_to_mask('!=info'), anythingbutinfo},
+ {{module, '*'}, config_to_mask('!=notice'), anythingbutnotice}
+ , )),
+ application:stop(lager),
+ application:stop(goldrush),
+ ok.
+
+is_loggable_test_() ->
+ 
+ {"Loggable by severity only", ?_assert(is_loggable(lager_msg:new("", alert, , ),2,me))},
+ {"Not loggable by severity only", ?_assertNot(is_loggable(lager_msg:new("", critical, , ),1,me))},
+ {"Loggable by severity with destination", ?_assert(is_loggable(lager_msg:new("", alert, , you),2,me))},
+ {"Not loggable by severity with destination", ?_assertNot(is_loggable(lager_msg:new("", critical, , you),1,me))},
+ {"Loggable by destination overriding severity", ?_assert(is_loggable(lager_msg:new("", critical, , me),1,me))}
+ .
+
+format_time_test_() ->
+ 
+ ?_assertEqual("2012-10-04 11:16:23.002",
+ begin
+ {D, T} = format_time({{2012,10,04},{11,16,23,2}}),
+ lists:flatten(D,$ ,T)
+ end),
+ ?_assertEqual("2012-10-04 11:16:23.999",
+ begin
+ {D, T} = format_time({{2012,10,04},{11,16,23,999}}),
+ lists:flatten(D,$ ,T)
+ end),
+ ?_assertEqual("2012-10-04 11:16:23",
+ begin
+ {D, T} = format_time({{2012,10,04},{11,16,23}}),
+ lists:flatten(D,$ ,T)
+ end),
+ ?_assertEqual("2012-10-04 00:16:23.092 UTC",
+ begin
+ {D, T} = format_time({utc, {{2012,10,04},{0,16,23,92}}}),
+ lists:flatten(D,$ ,T)
+ end),
+ ?_assertEqual("2012-10-04 11:16:23 UTC",
+ begin
+ {D, T} = format_time({utc, {{2012,10,04},{11,16,23}}}),
+ lists:flatten(D,$ ,T)
+ end)
+ .
+
+config_to_levels_test() ->
+ ?assertEqual(none, config_to_levels('none')),
+ ?assertEqual({mask, 0}, config_to_mask('none')),
+ ?assertEqual(debug, config_to_levels('=debug')),
+ ?assertEqual(debug, config_to_levels('<info')),
+ ?assertEqual(levels() -- debug, config_to_levels('!=debug')),
+ ?assertEqual(levels() -- debug, config_to_levels('>debug')),
+ ?assertEqual(levels() -- debug, config_to_levels('>=info')),
+ ?assertEqual(levels() -- debug, config_to_levels('=>info')),
+ ?assertEqual(debug, info, notice, config_to_levels('<=notice')),
+ ?assertEqual(debug, info, notice, config_to_levels('=<notice')),
+ ?assertEqual(debug, config_to_levels('<info')),
+ ?assertEqual(debug, config_to_levels('!info')),
+ ?assertError(badarg, config_to_levels(ok)),
+ ?assertError(badarg, config_to_levels('<=>info')),
+ ?assertError(badarg, config_to_levels('=<=info')),
+ ?assertError(badarg, config_to_levels('<==>=<=>info')),
+ %% double negatives DO work, however
+ ?assertEqual(debug, config_to_levels('!!=debug')),
+ ?assertEqual(levels() -- debug, config_to_levels('!!!=debug')),
+ ok.
+
+config_to_mask_test() ->
+ ?assertEqual({mask, 0}, config_to_mask('none')),
+ ?assertEqual({mask, ?DEBUG bor ?INFO bor ?NOTICE bor ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY}, config_to_mask('debug')),
+ ?assertEqual({mask, ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY}, config_to_mask('warning')),
+ ?assertEqual({mask, ?DEBUG bor ?NOTICE bor ?WARNING bor ?ERROR bor ?CRITICAL bor ?ALERT bor ?EMERGENCY}, config_to_mask('!=info')),
+ ok.
+
+mask_to_levels_test() ->
+ ?assertEqual(, mask_to_levels(0)),
+ ?assertEqual(debug, mask_to_levels(2#10000000)),
+ ?assertEqual(debug, info, mask_to_levels(2#11000000)),
+ ?assertEqual(debug, info, emergency, mask_to_levels(2#11000001)),
+ ?assertEqual(debug, notice, error, mask_to_levels(?DEBUG bor ?NOTICE bor ?ERROR)),
+ ok.
+
+expand_path_test() ->
+ OldRootVal = application:get_env(lager, log_root),
+
+ ok = application:unset_env(lager, log_root),
+ ?assertEqual(filename:absname("/foo/bar"), expand_path("/foo/bar")),
+ ?assertEqual(filename:absname("foo/bar"), expand_path("foo/bar")),
+
+ ok = application:set_env(lager, log_root, "log/dir"),
+ ?assertEqual(filename:absname("/foo/bar"), expand_path("/foo/bar")), % Absolute path should not be changed
+ ?assertEqual(filename:absname("log/dir/foo/bar"), expand_path("foo/bar")),
+
+ case OldRootVal of
+ undefined -> application:unset_env(lager, log_root);
+ {ok, Root} -> application:set_env(lager, log_root, Root)
+ end,
+ ok.
+
+sink_name_test_() ->
+ 
+ ?_assertEqual(lager_event, make_internal_sink_name(lager)),
+ ?_assertEqual(audit_lager_event, make_internal_sink_name(audit))
+ .
+
+create_test_dir() ->
+ {ok, Tmp} = get_temp_dir(),
+ Dir = filename:join(Tmp, "lager_test",
+ erlang:integer_to_list(erlang:phash2(os:timestamp()))),
+ ?assertEqual(ok, filelib:ensure_dir(Dir)),
+ TestDir = case file:make_dir(Dir) of
+ ok ->
+ Dir;
+ Err ->
+ ?assertEqual({error, eexist}, Err),
+ create_test_dir()
+ end,
+ ok = application:set_env(lager, test_dir, TestDir),
+ {ok, TestDir}.
+
+get_test_dir() ->
+ case application:get_env(lager, test_dir) of
+ undefined ->
+ create_test_dir();
+ {ok, _}=Res ->
+ Res
+ end.
+
+get_temp_dir() ->
+ Tmp = case os:getenv("TEMP") of
+ false ->
+ case os:getenv("TMP") of
+ false -> "/tmp";
+ Dir1 -> Dir1
+ end;
+ Dir0 -> Dir0
+ end,
+ ?assertEqual(true, filelib:is_dir(Tmp)),
+ {ok, Tmp}.
+
+delete_test_dir() ->
+ {ok, TestDir} = get_test_dir(),
+ ok = delete_test_dir(TestDir).
+
+delete_test_dir(TestDir) ->
+ ok = application:unset_env(lager, test_dir),
+ {OsType, _} = os:type(),
+ ok = case {OsType, otp_version()} of
+ {win32, _} ->
+ application:stop(lager),
+ do_delete_test_dir(TestDir);
+ {unix, 15} ->
+ os:cmd("rm -rf " ++ TestDir);
+ {unix, _} ->
+ do_delete_test_dir(TestDir)
+ end.
+
+do_delete_test_dir(Dir) ->
+ ListRet = file:list_dir_all(Dir),
+ ?assertMatch({ok, _}, ListRet),
+ {_, Entries} = ListRet,
+ lists:foreach(
+ fun(Entry) ->
+ FsElem = filename:join(Dir, Entry),
+ case filelib:is_dir(FsElem) of
+ true ->
+ delete_test_dir(FsElem);
+ _ ->
+ case file:delete(FsElem) of
+ ok -> ok;
+ Error ->
+ io:format(standard_error, "ERROR: error deleting file ~p~n", FsElem),
+ ?assertEqual(ok, Error)
+ end
+ end
+ end, Entries),
+ ?assertEqual(ok, file:del_dir(Dir)).
+
+do_delete_file(_FsElem, 0) ->
+ ?assert(false);
+do_delete_file(FsElem, Attempts) ->
+ case file:delete(FsElem) of
+ ok -> ok;
+ _Error ->
+ do_delete_file(FsElem, Attempts - 1)
+ end.
+
+set_dir_permissions(Perms, Dir) ->
+ do_set_dir_permissions(os:type(), Perms, Dir).
+
+do_set_dir_permissions({win32, _}, _Perms, _Dir) ->
+ ok;
+do_set_dir_permissions({unix, _}, Perms, Dir) ->
+ os:cmd("chmod -R " ++ Perms ++ " " ++ Dir),
+ ok.
+
+safe_application_load(App) ->
+ case application:load(App) of
+ ok ->
+ ok;
+ {error, {already_loaded, App}} ->
+ ok;
+ Error ->
+ ?assertEqual(ok, Error)
+ end.
+
+safe_write_file(File, Content) ->
+ % Note: ensures that the new creation time is at least one second
+ % in the future
+ ?assertEqual(ok, file:write_file(File, Content)),
+ Ctime0 = calendar:local_time(),
+ Ctime0Sec = calendar:datetime_to_gregorian_seconds(Ctime0),
+ Ctime1Sec = Ctime0Sec + 1,
+ Ctime1 = calendar:gregorian_seconds_to_datetime(Ctime1Sec),
+ {ok, FInfo0} = file:read_file_info(File, raw),
+ FInfo1 = FInfo0#file_info{ctime = Ctime1},
+ ?assertEqual(ok, file:write_file_info(File, FInfo1, raw)).
+
+-endif.

guam-0.9.12.tar.gz/_checkouts/lager_syslog Added

guam-0.9.12.tar.gz/_checkouts/lager_syslog/.gitignore Added

guam-0.9.12.tar.gz/_checkouts/lager_syslog/.travis.yml Added

guam-0.9.12.tar.gz/_checkouts/lager_syslog/LICENSE Added

guam-0.9.12.tar.gz/_checkouts/lager_syslog/Makefile Added

@@ -0,0 +1,52 @@
+.PHONY: rel stagedevrel deps test
+
+all: deps compile
+
+compile:
+	./rebar compile
+
+deps:
+	./rebar get-deps
+
+clean:
+	./rebar clean
+
+distclean: clean
+	./rebar delete-deps
+
+test:
+	./rebar eunit
+
+##
+## Doc targets
+##
+docs:
+	./rebar doc
+
+APPS = kernel stdlib sasl erts ssl tools os_mon runtime_tools crypto inets \
+	xmerl webtool snmp public_key mnesia eunit syntax_tools compiler
+COMBO_PLT = $(HOME)/.riak_combo_dialyzer_plt
+
+check_plt: compile
+	dialyzer --check_plt --plt $(COMBO_PLT) --apps $(APPS)
+
+build_plt: compile
+	dialyzer --build_plt --output_plt $(COMBO_PLT) --apps $(APPS)
+
+dialyzer: compile
+	@echo
+	@echo Use "'make check_plt'" to check PLT prior to using this target.
+	@echo Use "'make build_plt'" to build PLT prior to using this target.
+	@echo
+	@sleep 1
+	dialyzer -Wno_return --plt $(COMBO_PLT) ebin | \
+	    fgrep -v -f ./dialyzer.ignore-warnings
+
+cleanplt:
+	@echo 
+	@echo "Are you sure?  It takes about 1/2 hour to re-build."
+	@echo Deleting $(COMBO_PLT) in 5 seconds.
+	@echo 
+	sleep 5
+	rm $(COMBO_PLT)
+

guam-0.9.12.tar.gz/_checkouts/lager_syslog/README.org Added

@@ -0,0 +1,53 @@
+* Overview
+  http://travis-ci.org/basho/lager_syslogTravis-CI :: https://secure.travis-ci.org/basho/lager_syslog.png
+
+  This is a syslog backend for https://github.com/basho/lagerLager. It
+  allows you to send messages out of lager and into the local syslog daemon.
+
+* Configuration
+  Configure a Lager handler like the following:
+
+#+BEGIN_EXAMPLE
+  {lager_syslog_backend, Identity, Facility, Level}
+#+END_EXAMPLE
+
+  The Identity is the string to tag all messages with in syslog, usually the
+  application's name. The facility is the facility to log to (see the syslog
+  documentation for a list of these). The Level is the lager level at which the
+  backend accepts messages (eg. using 'info' would send all messages at info
+  level or above into syslog). While you can filter messages at the syslog
+  level, it will improve performance if you filter in lager instead.
+
+  An example for http://www.basho.com/products_riak_overview.phpriak
+  would look something like this:
+
+#+BEGIN_EXAMPLE
+  {handlers, 
+    {lager_syslog_backend, "riak", local1, info},
+   },
+#+END_EXAMPLE
+
+  Then in your syslog config remembering syslog likes tabs and not spaces:
+
+#+BEGIN_EXAMPLE
+  local1.info                     /var/log/riak_info.log
+#+END_EXAMPLE
+
+  If you want to log to multiple facilities at once, you can do something like
+  the following:
+
+#+BEGIN_EXAMPLE
+  {{lager_syslog_backend, "daemon facility"}, "riak1", daemon, info},
+  {{lager_syslog_backend, ftp}, "riak2", ftp, notice},
+#+END_EXAMPLE
+
+  You MUST give each instance of the file backend its own identifier.
+
+  Refer to Lager's documentation for futher information on configuring handlers.
+
+* Troubleshooting
+  There's not a lot to go wrong, but if you are not receiving messages, check
+  your syslog config and read its manpage for more information. OS X, in
+  particular, has a very strange default config where it drops messages below
+  the 'info' level by default.
+

guam-0.9.12.tar.gz/_checkouts/lager_syslog/rebar Added

guam-0.9.12.tar.gz/_checkouts/lager_syslog/rebar.config Added

guam-0.9.12.tar.gz/_checkouts/lager_syslog/src Added

guam-0.9.12.tar.gz/_checkouts/lager_syslog/src/lager_syslog.app.src Added

guam-0.9.12.tar.gz/_checkouts/lager_syslog/src/lager_syslog_backend.erl Added

@@ -0,0 +1,141 @@
+%% Copyright (c) 2011-2012 Basho Technologies, Inc. All Rights Reserved.
+%%
+%% This file is provided to you under the Apache License,
+%% Version 2.0 (the "License"); you may not use this file
+%% except in compliance with the License. You may obtain
+%% a copy of the License at
+%%
+%% http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing,
+%% software distributed under the License is distributed on an
+%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+%% KIND, either express or implied. See the License for the
+%% specific language governing permissions and limitations
+%% under the License.
+
+%% @doc Syslog backend for lager.
+
+-module(lager_syslog_backend).
+
+-behaviour(gen_event).
+
+-export(init/1, handle_call/2, handle_event/2, handle_info/2, terminate/2,
+ code_change/3).
+
+-export(config_to_id/1).
+
+-record(state, {level, handle, id, formatter,format_config}).
+
+-include_lib("lager/include/lager.hrl").
+
+-define(DEFAULT_FORMAT,"", severity, " ",
+ {pid, ""},
+ {module, 
+ {pid, "@", ""},
+ module,
+ {function, ":", function, ""},
+ {line, ":",line, ""}, ""},
+ " ", message).
+
+
+%% @private
+init(Ident, Facility, Level) ->
+ init(Ident, Facility, Level, {lager_default_formatter, ?DEFAULT_FORMAT});
+init(Ident, Facility, Level, {Formatter, FormatterConfig}) when is_atom(Formatter) ->
+ case application:start(syslog) of
+ ok ->
+ init2(Ident, Facility, Level, {Formatter, FormatterConfig});
+ {error, {already_started, _}} ->
+ init2(Ident, Facility, Level, {Formatter, FormatterConfig});
+ Error ->
+ Error
+ end.
+
+%% @private
+init2(Ident, Facility, Level, {Formatter, FormatterConfig}) ->
+ case syslog:open(Ident, pid, Facility) of
+ {ok, Log} ->
+ try parse_level(Level) of
+ Lvl ->
+ {ok, #state{level=Lvl,
+ id=config_to_id(Ident, Facility, Level),
+ handle=Log,
+ formatter=Formatter,
+ format_config=FormatterConfig}}
+ catch
+ _:_ ->
+ {error, bad_log_level}
+ end;
+ Error ->
+ Error
+ end.
+
+
+%% @private
+handle_call(get_loglevel, #state{level=Level} = State) ->
+ {ok, Level, State};
+handle_call({set_loglevel, Level}, State) ->
+ try parse_level(Level) of
+ Lvl ->
+ {ok, ok, State#state{level=Lvl}}
+ catch
+ _:_ ->
+ {ok, {error, bad_log_level}, State}
+ end;
+handle_call(_Request, State) ->
+ {ok, ok, State}.
+
+%% @private
+handle_event({log, Level, {_Date, _Time}, _LevelStr, Location, Message},
+ #state{level=LogLevel} = State) when Level =< LogLevel ->
+ syslog:log(State#state.handle, convert_level(Level), Location, Message),
+ {ok, State};
+handle_event({log, Message}, #state{level=Level,formatter=Formatter,format_config=FormatConfig} = State) ->
+ case lager_util:is_loggable(Message, Level, State#state.id) of
+ true ->
+ syslog:log(State#state.handle, convert_level(lager_msg:severity_as_int(Message)), Formatter:format(Message, FormatConfig)),
+ {ok, State};
+ false ->
+ {ok, State}
+ end;
+handle_event(_Event, State) ->
+ {ok, State}.
+
+%% @private
+handle_info(_Info, State) ->
+ {ok, State}.
+
+%% @private
+terminate(_Reason, _State) ->
+ ok.
+
+%% @private
+code_change(_OldVsn, State, _Extra) ->
+ {ok, State}.
+
+%% convert the configuration into a hopefully unique gen_event ID
+config_to_id(Ident, Facility, _Level) ->
+ {?MODULE, {Ident, Facility}};
+config_to_id(Ident, Facility, _Level, _Formatter) ->
+ {?MODULE, {Ident, Facility}}.
+
+convert_level(?DEBUG) -> debug;
+convert_level(?INFO) -> info;
+convert_level(?NOTICE) -> notice;
+convert_level(?WARNING) -> warning;
+convert_level(?ERROR) -> err;
+convert_level(?CRITICAL) -> crit;
+convert_level(?ALERT) -> alert;
+convert_level(?EMERGENCY) -> emerg.
+
+parse_level(Level) ->
+ try lager_util:config_to_mask(Level) of
+ Res ->
+ Res
+ catch
+ error:undef ->
+ %% must be lager < 2.0
+ lager_util:level_to_num(Level)
+ end.
+

guam-0.9.12.tar.gz/_checkouts/pc Added

guam-0.9.12.tar.gz/_checkouts/pc/.rebar3 Added

guam-0.9.12.tar.gz/_checkouts/pc/.rebar3/rebar_compiler_erl Added

guam-0.9.12.tar.gz/_checkouts/pc/.rebar3/rebar_compiler_erl/source.dag Added

guam-0.9.12.tar.gz/_checkouts/pc/LICENSE Added

@@ -0,0 +1,18 @@
+Copyright (c) 2015, Brian L. Troutwine <brian@troutwine.us>.
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of
+this software and associated documentation files (the "Software"), to deal in
+the Software without restriction, including without limitation the rights to
+use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+the Software, and to permit persons to whom the Software is furnished to do so,
+subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
\ No newline at end of file

guam-0.9.12.tar.gz/_checkouts/pc/README.md Added

@@ -0,0 +1,153 @@
+port_compiler
+=====
+
+A port compiler for rebar3.
+
+This plugin is intended to replicate the rebar2 support for compiling native
+code. It is not a drop-in replacement in terms of command-line interface but the
+exact configuration interface in projects' `rebar.config`s have been preserved.
+
+Use In Your Project
+---------------------
+
+Add the plugin to your `rebar.config`:
+
+```erlang
+{plugins, pc}.
+{provider_hooks,
+ 
+  {pre,
+   
+    {compile, {pc, compile}},
+    {clean, {pc, clean}}
+   
+  }
+ 
+}.
+```
+
+If you want to use tools like clang-tidy, don't forget to enable the compile commands db like this:
+
+```erlang
+{pc_clang_db, true}.
+```
+
+From your existing application:
+
+
+    $ rebar3 pc compile
+    ===> Fetching pc
+    ===> Compiling pc
+    ===> Verifying dependencies...
+    Compiling ...
+
+You should now have native code compiled.
+
+Use with Existing Dependency
+-----------------------------
+
+If your project depends on a dependency that used the rebar2 port compiler instead of forking and changing the `rebar.config` of that dependency you can use overrides(http://www.rebar3.org/v3.0/docs/configuration#overrides) to inject the changes from your top level `rebar.config`. Using jiffy(https://github.com/davisp/jiffy) as an example:
+
+
+```erlang
+{deps, jiffy}.
+
+{overrides,
+ {override, jiffy, 
+     {plugins, pc},
+     {artifacts, "priv/jiffy.so"},
+     {provider_hooks, 
+         {post,
+             
+             {compile, {pc, compile}},
+             {clean, {pc, clean}}
+             
+          }
+      }
+  }
+}.
+```
+
+Example
+---
+
+Looking for an example? See my fork of jiffy here and the changes to its
+`rebar.config`: https://github.com/blt/jiffy/commit/d4a0103daec5a646e71045bdf40f12a3eb82ace5
+
+- - -
+
+BELOW HERE BE DRAGONS
+
+```
+%% Supported configuration variables:
+%%
+%% * port_specs - Erlang list of tuples of the forms
+%%                {ArchRegex, TargetFile, Sources, Options}
+%%                {ArchRegex, TargetFile, Sources}
+%%                {TargetFile, Sources}
+%%
+%%                Note that if you want to use any of the rebar3 variables
+%%                below you must MUST use a ${}-style to get the expansion
+%%                to work. e.g. to expand REBAR_DEPS_DIR, do something like:
+%%
+%%                {port_specs, {"priv/nif.so",
+%%                               "c_src/nif.c",
+%%                                "${REBAR_DEPS_DIR}/foo/bar.c"}}.
+%%
+%%                This is a _very_ good way to be able to use your code both
+%%                as a top level app and a dependency.
+%%
+%%                CAVEAT! Not using {} is broken for the moment.
+%%
+%% * port_env - Erlang list of key/value pairs which will control
+%%              the environment when running the compiler and linker.
+%%              Variables set in the surrounding system shell are taken
+%%              into consideration when expanding port_env. Note that
+%%              for ERL_LDFLAGS, -lerl_interface is used for only those
+%%              Erlang/OTP versions where it exists (those prior to
+%%              version 23.0).
+%%
+%%              By default, the following variables are defined:
+%%              CC       - C compiler
+%%              CXX      - C++ compiler
+%%              CFLAGS   - C compiler
+%%              CXXFLAGS - C++ compiler
+%%              LDFLAGS  - Link flags
+%%              ERL_CFLAGS  - default -I paths for erts and ei
+%%              ERL_LDFLAGS - default -L and -lerl_interface -lei
+%%              DRV_CFLAGS  - flags that will be used for compiling
+%%              DRV_LDFLAGS - flags that will be used for linking
+%%              EXE_CFLAGS  - flags that will be used for compiling
+%%              EXE_LDFLAGS - flags that will be used for linking
+%%              ERL_EI_LIBDIR - ei library directory
+%%              DRV_CXX_TEMPLATE      - C++ command template
+%%              DRV_CC_TEMPLATE       - C command template
+%%              DRV_LINK_TEMPLATE     - C Linker command template
+%%              DRV_LINK_CXX_TEMPLATE - C++ Linker command template
+%%              EXE_CXX_TEMPLATE      - C++ command template
+%%              EXE_CC_TEMPLATE       - C command template
+%%              EXE_LINK_TEMPLATE     - C Linker command template
+%%              EXE_LINK_CXX_TEMPLATE - C++ Linker command template
+%%
+%%              Note that if you wish to extend (vs. replace) these variables,
+%%              you MUST include a shell-style reference in your definition.
+%%              e.g. to extend CFLAGS, do something like:
+%%
+%%              {port_env, {"CFLAGS", "$CFLAGS -MyOtherOptions"}}
+%%
+%%              It is also possible to specify platform specific options
+%%              by specifying a triplet where the first string is a regex
+%%              that is checked against Erlang's system architecture string.
+%%              e.g. to specify a CFLAG that only applies to x86_64 on linux
+%%              do:
+%%
+%%              {port_env, {"x86_64.*-linux", "CFLAGS",
+%%                           "$CFLAGS -X86Options"}}
+%%
+%%              Cross-arch environment variables to configure toolchain:
+%%              GET_ARCH to set the tool chain name to use
+%%              GET_ARCH_WORDSIZE (optional - to determine word size)"
+%%              word size is 32
+%%              GET_ARCH_VSN (optional - "
+%%              l version of CC/CXX is requested),
+```

guam-0.9.12.tar.gz/_checkouts/pc/ebin Added

guam-0.9.12.tar.gz/_checkouts/pc/ebin/pc.app Added

guam-0.9.12.tar.gz/_checkouts/pc/ebin/pc.beam Added

guam-0.9.12.tar.gz/_checkouts/pc/ebin/pc_compilation.beam Added

guam-0.9.12.tar.gz/_checkouts/pc/ebin/pc_port_env.beam Added

guam-0.9.12.tar.gz/_checkouts/pc/ebin/pc_port_specs.beam Added

guam-0.9.12.tar.gz/_checkouts/pc/ebin/pc_prv_clean.beam Added

guam-0.9.12.tar.gz/_checkouts/pc/ebin/pc_prv_compile.beam Added

guam-0.9.12.tar.gz/_checkouts/pc/ebin/pc_util.beam Added

guam-0.9.12.tar.gz/_checkouts/pc/hex_metadata.config Added

guam-0.9.12.tar.gz/_checkouts/pc/rebar.config Added

guam-0.9.12.tar.gz/_checkouts/pc/rebar.lock Added

guam-0.9.12.tar.gz/_checkouts/pc/src Added

guam-0.9.12.tar.gz/_checkouts/pc/src/pc.app.src Added

guam-0.9.12.tar.gz/_checkouts/pc/src/pc.erl Added

guam-0.9.12.tar.gz/_checkouts/pc/src/pc_compilation.erl Added

@@ -0,0 +1,257 @@
+%% -------------------------------------------------------------------
+%%
+%% This file contains substantial portions of the original rebar_port_compiler.
+%% Special thanks to all the folks that contributed to that effort.
+%%
+%% -------------------------------------------------------------------
+%%
+%% Copyright (c) 2009 Dave Smith (dizzyd@dizzyd.com)
+%%
+%% Permission is hereby granted, free of charge, to any person obtaining a copy
+%% of this software and associated documentation files (the "Software"), to deal
+%% in the Software without restriction, including without limitation the rights
+%% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+%% copies of the Software, and to permit persons to whom the Software is
+%% furnished to do so, subject to the following conditions:
+%%
+%% The above copyright notice and this permission notice shall be included in
+%% all copies or substantial portions of the Software.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+%% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+%% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+%% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+%% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+%% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+%% THE SOFTWARE.
+%%
+%% -------------------------------------------------------------------
+-module(pc_compilation).
+
+-export(compile_and_link/2, clean/2, compiler/1).
+-export_type().
+
+%%%===================================================================
+%%% API
+%%%===================================================================
+
+-spec compile_and_link(State :: rebar_state:t(),
+ Specs :: pc_port_specs:spec()) -> ok.
+compile_and_link(State, Specs) ->
+ %% Compile each of the sources
+ NewBins = compile_sources(State, Specs),
+
+ %% Make sure that the target directories exist
+ lists:foreach(fun(Spec) ->
+ Target = pc_port_specs:target(Spec),
+ ok = filelib:ensure_dir(filename:join(rebar_state:dir(State), Target))
+ end, Specs),
+
+ %% Only relink if necessary, given the Target
+ %% and list of new binaries
+ lists:foreach(
+ fun(Spec) ->
+ Target = pc_port_specs:target(Spec),
+ Bins = pc_port_specs:objects(Spec),
+ AllBins = sets:from_list(Bins),
+ sets:from_list(NewBins),
+ Intersection = sets:intersection(AllBins),
+ case needs_link(Target, sets:to_list(Intersection)) of
+ true ->
+ LinkLang = pc_port_specs:link_lang(Spec),
+ LinkTemplate = select_link_template(LinkLang, Target),
+ Env = pc_port_specs:create_env(State, Spec),
+ Cmd = expand_command(LinkTemplate, Env,
+ pc_util:strjoin(Bins, " "),
+ Target),
+ rebar_api:info("Linking ~ts", Target),
+ rebar_utils:sh(Cmd, {env, Env}, {cd, rebar_state:dir(State)});
+ false ->
+ ok
+ end
+ end, Specs).
+
+clean(_State, Specs) ->
+ lists:foreach(fun(Spec) ->
+ Target = pc_port_specs:target(Spec),
+ Objects = pc_port_specs:objects(Spec),
+ rebar_file_utils:delete_each(Target),
+ rebar_file_utils:delete_each(Objects),
+ rebar_file_utils:delete_each(port_deps(Objects))
+ end, Specs).
+
+%%%===================================================================
+%%% Internal Functions
+%%%===================================================================
+
+port_deps(SourceFiles) ->
+ pc_util:replace_extension(O, ".d") || O <- SourceFiles.
+
+%%
+%% == compilation ==
+%%
+
+compile_sources(Config, Specs) ->
+ {NewBins, Db} =
+ lists:foldl(
+ fun(Spec, Acc) ->
+ Sources = pc_port_specs:sources(Spec),
+ Type = pc_port_specs:type(Spec),
+ Env = pc_port_specs:create_env(Config, Spec),
+ compile_each(Config, Sources, Type, Env, Acc)
+ end, {, }, Specs),
+ %% Rewrite clang compile commands database file only if something
+ %% was compiled.
+ case {NewBins, rebar_state:get(Config, pc_clang_db, false)} of
+ {, _} ->
+ ok;
+ {_, true} ->
+ {ok, ClangDbFile} = file:open("compile_commands.json", write),
+ ok = io:fwrite(ClangDbFile, "~n", ),
+ lists:foreach(fun(E) -> ok = io:fwrite(ClangDbFile, E, ) end, Db),
+ ok = io:fwrite(ClangDbFile, "~n", ),
+ ok = file:close(ClangDbFile);
+ _ ->
+ ok
+ end,
+ NewBins.
+
+compile_each(_State, , _Type, _Env, {NewBins, CDB}) ->
+ {lists:reverse(NewBins), lists:reverse(CDB)};
+compile_each(State, Source | Rest, Type, Env, {NewBins, CDB}) ->
+ Ext = filename:extension(Source),
+ Bin = pc_util:replace_extension(Source, Ext, pc_port_specs:object_file_ext()),
+ Template = select_compile_template(Type, compiler(Ext)),
+ Cmd = expand_command(Template, Env, Source, Bin),
+ CDBEnt = cdb_entry(State, Source, Cmd, Rest),
+ NewCDB = CDBEnt | CDB,
+ case needs_compile(Source, Bin) of
+ true ->
+ ShOpts = {env, Env}
+ , return_on_error
+ , {use_stdout, false}
+ , {cd, rebar_state:dir(State)}
+ ,
+ exec_compiler(State, Source, Cmd, ShOpts),
+ compile_each(State, Rest, Type, Env,
+ {Bin | NewBins, NewCDB});
+ false ->
+ compile_each(State, Rest, Type, Env, {NewBins, NewCDB})
+ end.
+
+%% Generate a clang compilation db entry for Src and Cmd
+cdb_entry(State, Src, Cmd, SrcRest) ->
+ %% Omit all variables from cmd, and use that as cmd in
+ %% CDB, because otherwise clang-* will complain about it.
+ CDBCmd = pc_util:strjoin(
+ lists:filter(
+ fun("$"++_) -> false;
+ (_) -> true
+ end,
+ pc_util:strtok(Cmd, " ")),
+ " "),
+
+ Cwd = rebar_state:dir(State),
+ %% If there are more source files, make sure we end the CDB entry
+ %% with a comma.
+ Sep = case SrcRest of
+ -> "~n";
+ _ -> ",~n"
+ end,
+ %% CDB entry
+ lists:flatten(
+ io_lib:format(
+ "{ \"file\" : ~p~n"
+ ", \"directory\" : ~p~n"
+ ", \"command\" : ~p~n"
+ "}~s",
+ Src, Cwd, CDBCmd, Sep)).
+
+%%
+%% Choose a compiler variable, based on a provided extension
+%%
+compiler(".cc") -> "$CXX";
+compiler(".cp") -> "$CXX";
+compiler(".cxx") -> "$CXX";
+compiler(".cpp") -> "$CXX";
+compiler(".CPP") -> "$CXX";
+compiler(".c++") -> "$CXX";
+compiler(".C") -> "$CXX";
+compiler(_) -> "$CC".
+
+expand_command(TmplName, Env, InFiles, OutFile) ->
+ Cmd0 = proplists:get_value(TmplName, Env),
+ Cmd1 = rebar_api:expand_env_variable(Cmd0, "PORT_IN_FILES", InFiles),
+ OutFile1 =
+ case re:run(OutFile, " ") of
+ nomatch -> OutFile;
+ _ -> lists:concat("\"", OutFile, "\"")
+ end,
+ rebar_api:expand_env_variable(Cmd1, "PORT_OUT_FILE", OutFile1).
+
+exec_compiler(_Config, Source, Cmd, ShOpts) ->
+ case rebar_utils:sh(Cmd, ShOpts) of
+ {error, {_RC, RawError}} ->
+ AbsSource = filename:absname(Source),
+ rebar_api:info("Compiling ~ts", AbsSource),
+ Error = re:replace(RawError, Source, AbsSource,
+ {return, list}, global, unicode),
+ rebar_api:error("~ts", Error),
+ rebar_api:abort();
+ {ok, Output} ->
+ rebar_api:info("Compiling ~ts", Source),
+ rebar_api:debug("~ts", Output)
+ end.
+
+select_compile_template(drv, Compiler) ->
+ select_compile_drv_template(Compiler);
+select_compile_template(exe, Compiler) ->
+ select_compile_exe_template(Compiler).
+
+select_compile_drv_template("$CC") -> "DRV_CC_TEMPLATE";
+select_compile_drv_template("$CXX") -> "DRV_CXX_TEMPLATE".
+
+select_compile_exe_template("$CC") -> "EXE_CC_TEMPLATE";
+select_compile_exe_template("$CXX") -> "EXE_CXX_TEMPLATE".
+
+needs_compile(Source, Bin) ->
+ needs_link(Bin, Source|bin_deps(Bin)).
+
+%% NOTE: This relies on -MMD being passed to the compiler and returns an
+%% empty list if the .d file is not available. This means header deps are
+%% ignored on win32.
+bin_deps(Bin) ->
+ DepFile = port_deps(Bin),
+ case file:read_file(DepFile) of
+ {ok, Deps} ->
+ parse_bin_deps(list_to_binary(Bin), Deps);
+ {error, _Err} ->
+ 
+ end.
+
+parse_bin_deps(Bin, Deps) ->
+ Ds = re:split(Deps, "\\s*\\\\\\R\\s*|\\s+", {return, binary}),
+ D || D <- Ds, D =/= <<>>, D =/= <<Bin/binary,":">>.
+
+%%
+%% == linking ==
+%%
+
+needs_link(SoName, ) ->
+ filelib:last_modified(SoName) == 0;
+needs_link(SoName, NewBins) ->
+ MaxLastMod = lists:max(filelib:last_modified(B) || B <- NewBins),
+ case filelib:last_modified(SoName) of
+ 0 ->
+ true;
+ Other ->
+ MaxLastMod >= Other
+ end.
+
+select_link_template(LinkLang, Target) ->
+ case {LinkLang, pc_util:target_type(Target)} of
+ {cc, drv} -> "DRV_LINK_TEMPLATE";
+ {cxx, drv} -> "DRV_LINK_CXX_TEMPLATE";
+ {cc, exe} -> "EXE_LINK_TEMPLATE";
+ {cxx, exe} -> "EXE_LINK_CXX_TEMPLATE"
+ end.

guam-0.9.12.tar.gz/_checkouts/pc/src/pc_port_env.erl Added

@@ -0,0 +1,316 @@
+%% -------------------------------------------------------------------
+%%
+%% This file contains substantial portions of the original rebar_port_compiler.
+%% Special thanks to all the folks that contributed to that effort.
+%%
+%% -------------------------------------------------------------------
+%%
+%% Copyright (c) 2009 Dave Smith (dizzyd@dizzyd.com)
+%%
+%% Permission is hereby granted, free of charge, to any person obtaining a copy
+%% of this software and associated documentation files (the "Software"), to deal
+%% in the Software without restriction, including without limitation the rights
+%% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+%% copies of the Software, and to permit persons to whom the Software is
+%% furnished to do so, subject to the following conditions:
+%%
+%% The above copyright notice and this permission notice shall be included in
+%% all copies or substantial portions of the Software.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+%% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+%% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+%% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+%% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+%% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+%% THE SOFTWARE.
+%%
+%% -------------------------------------------------------------------
+-module(pc_port_env).
+
+-export(construct/1, construct/2).
+-export_type().
+
+%%%===================================================================
+%%% API
+%%%===================================================================
+
+construct(State) ->
+ construct(State, ).
+
+-spec construct(rebar_state:t()) -> {ok, pc_port_specs:spec()} |
+ {error, Reason :: any()}.
+construct(State, ExtraEnv) ->
+ DefaultEnv = filter_env(default_env()),
+ PortEnv = filter_env(rebar_state:get(State, port_env, )),
+ OverrideEnv = PortEnv ++ ExtraEnv,
+
+ RawEnv = apply_defaults(os_env(), DefaultEnv) ++ OverrideEnv,
+ {ok, expand_vars_loop(merge_each_var(RawEnv))}.
+
+%%%===================================================================
+%%% Internal Functions
+%%%===================================================================
+
+%%
+%% Given a list of {Key, Value} environment variables, where Key may be defined
+%% multiple times, walk the list and expand each self-reference so that we
+%% end with a list of each variable singly-defined.
+%%
+merge_each_var(Vars) ->
+ lists:foldl(fun ({Key, Value}, Acc) ->
+ Evalue = case orddict:find(Key, Acc) of
+ error ->
+ %% Nothing yet defined for this key/value.
+ %% Expand any self-references as blank.
+ rebar_api:expand_env_variable(Value, Key, "");
+ {ok, Value0} ->
+ %% Use previous definition in expansion
+ rebar_api:expand_env_variable(Value, Key, Value0)
+ end,
+ orddict:store(Key, Evalue, Acc)
+ end, , Vars).
+
+%%
+%% Give a unique list of {Key, Value} environment variables, expand each one
+%% for every other key until no further expansions are possible.
+%%
+expand_vars_loop(Vars) ->
+ expand_vars_loop(Vars, , dict:from_list(Vars), 10).
+
+expand_vars_loop(_Pending, _Recurse, _Vars, 0) ->
+ rebar_api:abort("Max. expansion reached for ENV vars!\n", );
+expand_vars_loop(, , Vars, _Count) ->
+ lists:keysort(1, dict:to_list(Vars));
+expand_vars_loop(, Recurse, Vars, Count) ->
+ expand_vars_loop(Recurse, , Vars, Count-1);
+expand_vars_loop({K, V} | Rest, Recurse, Vars, Count) ->
+ %% Identify the variables that need expansion in this value
+ ReOpts = global, {capture, all_but_first, list}, unicode,
+ case re:run(V, "\\\${?(\\w+)}?", ReOpts) of
+ {match, Matches} ->
+ %% Identify the unique variables that need to be expanded
+ UniqueMatches = lists:usort(M || M <- Matches),
+
+ %% For each variable, expand it and return the final
+ %% value. Note that if we have a bunch of unresolvable
+ %% variables, nothing happens and we don't bother
+ %% attempting further expansion
+ case expand_keys_in_value(UniqueMatches, V, Vars) of
+ V ->
+ %% No change after expansion; move along
+ expand_vars_loop(Rest, Recurse, Vars, Count);
+ Expanded ->
+ %% Some expansion occurred; move to next k/v but
+ %% revisit this value in the next loop to check
+ %% for further expansion
+ NewVars = dict:store(K, Expanded, Vars),
+ expand_vars_loop(Rest, {K, Expanded} | Recurse,
+ NewVars, Count)
+ end;
+
+ nomatch ->
+ %% No values in this variable need expansion; move along
+ expand_vars_loop(Rest, Recurse, Vars, Count)
+ end.
+
+expand_keys_in_value(, Value, _Vars) ->
+ Value;
+expand_keys_in_value(Key | Rest, Value, Vars) ->
+ NewValue = case dict:find(Key, Vars) of
+ {ok, KValue} ->
+ rebar_api:expand_env_variable(Value, Key, KValue);
+ error ->
+ Value
+ end,
+ expand_keys_in_value(Rest, NewValue, Vars).
+
+%%
+%% Filter a list of env vars such that only those which match the provided
+%% architecture regex (or do not have a regex) are returned.
+%%
+filter_env(Env) ->
+ Res = lists:foldl(fun
+ ({ArchRegex, Key, Value}, Acc) ->
+ case pc_util:is_arch(ArchRegex) of
+ true -> {Key,Value} | Acc;
+ false -> Acc
+ end;
+ ({Key,Value}, Acc) ->
+ {Key,Value} | Acc
+ end, , Env),
+ lists:reverse(Res).
+
+%%
+%% Given a list of {Key, Value} variables, and another list of default
+%% {Key, Value} variables, return a merged list where the rule is if the
+%% default is expandable expand it with the value of the variable list,
+%% otherwise just return the value of the variable.
+%%
+apply_defaults(Vars, Defaults) ->
+ dict:to_list(
+ dict:merge(fun(Key, VarValue, DefaultValue) ->
+ case is_expandable(DefaultValue) of
+ true ->
+ rebar_api:expand_env_variable(DefaultValue,
+ Key,
+ VarValue);
+ false -> VarValue
+ end
+ end,
+ dict:from_list(Vars),
+ dict:from_list(Defaults))).
+
+os_env() ->
+ ReOpts = {return, list}, {parts, 2}, unicode,
+ Os = list_to_tuple(re:split(S, "=", ReOpts)) ||
+ S <- lists:filter(fun discard_deps_vars/1, os:getenv()),
+ %% Drop variables without a name (win32)
+ T1 || {K, _V} = T1 <- Os, K =/= .
+
+%%
+%% To avoid having multiple repetitions of the same environment variables
+%% (ERL_LIBS), avoid exporting any variables that may cause conflict with
+%% those exported by the rebar_deps module (ERL_LIBS, REBAR_DEPS_DIR)
+%%
+discard_deps_vars("ERL_LIBS=" ++ _Value) -> false;
+discard_deps_vars("REBAR_DEPS_DIR=" ++ _Value) -> false;
+discard_deps_vars(_Var) -> true.
+
+%%
+%% Given a string, determine if it is expandable
+%%
+is_expandable(InStr) ->
+ case re:run(InStr,"\\\$",{capture,none}) of
+ match -> true;
+ nomatch -> false
+ end.
+
+erl_interface_dir(Subdir) ->
+ case code:lib_dir(erl_interface, Subdir) of
+ {error, bad_name} ->
+ throw({error, {erl_interface,Subdir,"code:lib_dir(erl_interface)"
+ "is unable to find the erl_interface library."}});
+ Dir -> Dir
+ end.
+
+erts_dir() ->
+ lists:concat(code:root_dir(), "/erts-", erlang:system_info(version)).
+
+default_env() ->
+ ErlInterfaceIncludeDir = erl_interface_dir(include),
+ ErlInterfaceHeader = filename:join(ErlInterfaceIncludeDir, "erl_interface.h"),
+ ErlInterfaceLibs = case filelib:is_file(ErlInterfaceHeader) of
+ true -> "erl_interface", "ei";
+ false -> "ei"
+ end,
+ Arch = os:getenv("REBAR_TARGET_ARCH"),
+ Vsn = os:getenv("REBAR_TARGET_ARCH_VSN"),
+ 
+ {"CC", get_tool(Arch, Vsn, "gcc", "cc")},
+ {"CXX", get_tool(Arch, Vsn, "g++", "c++")},
+ {"AR", get_tool(Arch, "ar", "ar")},
+ {"AS", get_tool(Arch, "as", "as")},
+ {"CPP", get_tool(Arch, Vsn, "cpp", "cpp")},
+ {"LD", get_tool(Arch, "ld", "ld")},
+ {"RANLIB", get_tool(Arch, Vsn, "ranlib", "ranlib")},
+ {"STRIP", get_tool(Arch, "strip", "strip")},
+ {"NM", get_tool(Arch, "nm", "nm")},
+ {"OBJCOPY", get_tool(Arch, "objcopy", "objcopy")},
+ {"OBJDUMP", get_tool(Arch, "objdump", "objdump")},
+
+ {"DRV_CXX_TEMPLATE",
+ "$CXX -c $CXXFLAGS $DRV_CFLAGS $PORT_IN_FILES -o $PORT_OUT_FILE"},
+ {"DRV_CC_TEMPLATE",
+ "$CC -c $CFLAGS $DRV_CFLAGS $PORT_IN_FILES -o $PORT_OUT_FILE"},
+ {"DRV_LINK_TEMPLATE",
+ "$CC $PORT_IN_FILES $LDFLAGS $LDLIBS $DRV_LDFLAGS -o $PORT_OUT_FILE"},
+ {"DRV_LINK_CXX_TEMPLATE",
+ "$CXX $PORT_IN_FILES $LDFLAGS $LDLIBS $DRV_LDFLAGS -o $PORT_OUT_FILE"},
+ {"EXE_CXX_TEMPLATE",
+ "$CXX -c $CXXFLAGS $EXE_CFLAGS $PORT_IN_FILES -o $PORT_OUT_FILE"},
+ {"EXE_CC_TEMPLATE",
+ "$CC -c $CFLAGS $EXE_CFLAGS $PORT_IN_FILES -o $PORT_OUT_FILE"},
+ {"EXE_LINK_TEMPLATE",
+ "$CC $PORT_IN_FILES $LDFLAGS $EXE_LDFLAGS -o $PORT_OUT_FILE"},
+ {"EXE_LINK_CXX_TEMPLATE",
+ "$CXX $PORT_IN_FILES $LDFLAGS $EXE_LDFLAGS -o $PORT_OUT_FILE"},
+ {"DRV_CFLAGS" , "-g -Wall -fPIC -MMD $ERL_CFLAGS"},
+ {"DRV_LDFLAGS", "-shared $ERL_LDFLAGS"},
+ {"EXE_CFLAGS" , "-g -Wall -fPIC -MMD $ERL_CFLAGS"},
+ {"EXE_LDFLAGS", "$ERL_LDFLAGS"},
+
+ {"ERL_CFLAGS", lists:concat(
+ 
+ " -I\"", ErlInterfaceIncludeDir,
+ "\" -I\"", filename:join(erts_dir(), "include"),
+ "\" "
+ )},
+ {"ERL_EI_LIBDIR", lists:concat("\"", erl_interface_dir(lib), "\"")},
+ {"ERL_LDFLAGS" , lists:concat(" -L$ERL_EI_LIBDIR" ++
+ " -l"++EiLib || EiLib <- ErlInterfaceLibs)},
+ {"ERLANG_ARCH" , rebar_api:wordsize()},
+ {"ERLANG_TARGET", rebar_api:get_arch()},
+
+ {"darwin", "DRV_LDFLAGS",
+ "-bundle -flat_namespace -undefined suppress $ERL_LDFLAGS"},
+
+ %% Solaris specific flags
+ {"solaris.*-64$", "CFLAGS", "-D_REENTRANT -m64 $CFLAGS"},
+ {"solaris.*-64$", "CXXFLAGS", "-D_REENTRANT -m64 $CXXFLAGS"},
+ {"solaris.*-64$", "LDFLAGS", "-m64 $LDFLAGS"},
+
+ %% OS X Leopard flags for 64-bit
+ {"darwin9.*-64$", "CFLAGS", "-m64 $CFLAGS"},
+ {"darwin9.*-64$", "CXXFLAGS", "-m64 $CXXFLAGS"},
+ {"darwin9.*-64$", "LDFLAGS", "-arch x86_64 -flat_namespace -undefined suppress $LDFLAGS"},
+
+ %% OS X Lion onwards flags for 64-bit
+ {"darwin10-4.*-64$", "CFLAGS", "-m64 $CFLAGS"},
+ {"darwin10-4.*-64$", "CXXFLAGS", "-m64 $CXXFLAGS"},
+ {"darwin10-4.*-64$", "LDFLAGS", "-arch x86_64 -flat_namespace -undefined suppress $LDFLAGS"},
+
+ %% OS X Snow Leopard, Lion, and Mountain Lion flags for 32-bit
+ {"darwin10-2.*-32", "CFLAGS", "-m32 $CFLAGS"},
+ {"darwin10-2.*-32", "CXXFLAGS", "-m32 $CXXFLAGS"},
+ {"darwin10-2.*-32", "LDFLAGS", "-arch i386 -flat_namespace -undefined suppress $LDFLAGS"},
+
+ %% Windows specific flags
+ %% add MS Visual C++ support to rebar on Windows
+ {"win32", "CC", "cl.exe"},
+ {"win32", "CXX", "cl.exe"},
+ {"win32", "LINKER", "link.exe"},
+ {"win32", "DRV_CXX_TEMPLATE",
+ %% DRV_* and EXE_* Templates are identical
+ "$CXX /c $CXXFLAGS $DRV_CFLAGS $PORT_IN_FILES /Fo$PORT_OUT_FILE"},
+ {"win32", "DRV_CC_TEMPLATE",
+ "$CC /c $CFLAGS $DRV_CFLAGS $PORT_IN_FILES /Fo$PORT_OUT_FILE"},
+ {"win32", "DRV_LINK_TEMPLATE",
+ "$LINKER $PORT_IN_FILES $LDFLAGS $DRV_LDFLAGS /OUT:$PORT_OUT_FILE"},
+ {"win32", "DRV_LINK_CXX_TEMPLATE",
+ "$LINKER $PORT_IN_FILES $LDFLAGS $DRV_LDFLAGS /OUT:$PORT_OUT_FILE"},
+ %% DRV_* and EXE_* Templates are identical
+ {"win32", "EXE_CXX_TEMPLATE",
+ "$CXX /c $CXXFLAGS $EXE_CFLAGS $PORT_IN_FILES /Fo$PORT_OUT_FILE"},
+ {"win32", "EXE_CC_TEMPLATE",
+ "$CC /c $CFLAGS $EXE_CFLAGS $PORT_IN_FILES /Fo$PORT_OUT_FILE"},
+ {"win32", "EXE_LINK_TEMPLATE",
+ "$LINKER $PORT_IN_FILES $LDFLAGS $EXE_LDFLAGS /OUT:$PORT_OUT_FILE"},
+ {"win32", "EXE_LINK_CXX_TEMPLATE",
+ "$LINKER $PORT_IN_FILES $LDFLAGS $EXE_LDFLAGS /OUT:$PORT_OUT_FILE"},
+ %% ERL_CFLAGS are ok as -I even though strictly it should be /I
+ {"win32", "ERL_LDFLAGS",
+ lists:concat(" /LIBPATH:$ERL_EI_LIBDIR " ++
+ EiLib++".lib " || EiLib <- ErlInterfaceLibs)},
+ {"win32", "DRV_CFLAGS", "/Zi /Wall $ERL_CFLAGS"},
+ {"win32", "DRV_LDFLAGS", "/DLL $ERL_LDFLAGS"}
+ .
+
+get_tool(Arch, Tool, Default) ->
+ get_tool(Arch, false, Tool, Default).
+
+get_tool(false, _, _, Default) -> Default;
+get_tool("", _, _, Default) -> Default;
+get_tool(Arch, false, Tool, _Default) -> Arch++"-"++Tool;
+get_tool(Arch, "", Tool, _Default) -> Arch++"-"++Tool;
+get_tool(Arch, Vsn, Tool, _Default) -> Arch++"-"++Tool++"-"++Vsn.

guam-0.9.12.tar.gz/_checkouts/pc/src/pc_port_specs.erl Added

@@ -0,0 +1,253 @@
+%% -------------------------------------------------------------------
+%%
+%% This file contains substantial portions of the original rebar_port_compiler.
+%% Special thanks to all the folks that contributed to that effort.
+%%
+%% -------------------------------------------------------------------
+%%
+%% Copyright (c) 2009 Dave Smith (dizzyd@dizzyd.com)
+%%
+%% Permission is hereby granted, free of charge, to any person obtaining a copy
+%% of this software and associated documentation files (the "Software"), to deal
+%% in the Software without restriction, including without limitation the rights
+%% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+%% copies of the Software, and to permit persons to whom the Software is
+%% furnished to do so, subject to the following conditions:
+%%
+%% The above copyright notice and this permission notice shall be included in
+%% all copies or substantial portions of the Software.
+%%
+%% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+%% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+%% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+%% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+%% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+%% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+%% THE SOFTWARE.
+%%
+%% -------------------------------------------------------------------
+-module(pc_port_specs).
+
+-export(
+ construct/1,
+ create_env/2,
+ %% spec accessors
+ environment/1,
+ opts/1,
+ objects/1,
+ sources/1,
+ target/1,
+ type/1,
+ link_lang/1,
+ object_file_ext/0
+ ).
+-export_type(spec/0).
+
+-record(spec, {type::'drv' | 'exe',
+ link_lang::'cc' | 'cxx',
+ target::file:filename(),
+ sources = :: file:filename(), ...,
+ objects = :: file:filename(), ...,
+ opts = :: list() | }).
+
+-opaque spec() :: #spec{}.
+
+
+%%%===================================================================
+%%% API
+%%%===================================================================
+
+-spec construct(rebar_state:t()) -> {ok, spec()} |
+ {error, Reason :: any()}.
+construct(State) ->
+ case rebar_state:get(State, port_specs, ) of
+ ->
+ {ok, port_spec_from_legacy(State)};
+ PortSpecs ->
+ Filtered = lists:filter(fun filter_port_spec/1, PortSpecs),
+ Specs = get_port_spec(State, os:type(), Spec) || Spec <- Filtered,
+ {ok, S || S <- Specs, S#spec.sources /= }
+ end.
+
+create_env(State, Spec) ->
+ pc_port_specs:environment(Spec) ++
+ try_and_create_env(State).
+
+%% == Spec Accessors ==
+
+environment(#spec{opts = Opts}) -> proplists:get_value(env, Opts).
+opts(#spec{opts = Opts}) -> Opts.
+objects(#spec{objects = Objects}) -> Objects.
+sources(#spec{sources = Sources}) -> Sources.
+target(#spec{target = Target}) -> Target.
+type(#spec{type = Type}) -> Type.
+link_lang(#spec{link_lang = LinkLang}) -> LinkLang.
+
+%%%===================================================================
+%%% Internal Functions
+%%%===================================================================
+
+try_and_create_env(State) ->
+ _ = code:ensure_loaded(rebar_env),
+ case erlang:function_exported(rebar_env, create_env, 1) of
+ false -> ;
+ true -> rebar_env:create_env(State)
+ end.
+
+port_spec_from_legacy(Config) ->
+ %% Get the target from the so_name variable
+ OutDir = case os:getenv("REBAR_BARE_COMPILER_OUTPUT_DIR", undefined) of
+ undefined ->
+ "priv";
+ Dir ->
+ filename:join(Dir, "priv")
+ end,
+ Target = case rebar_state:get(Config, so_name, undefined) of
+ undefined ->
+ %% Generate a sensible default from app file
+ AppName = case rebar_state:current_app(Config) of
+ undefined ->
+ throw({error, {pc_prv_compile, no_app}});
+ CurrentApp ->
+ BAppName = rebar_app_info:name(CurrentApp),
+ binary_to_list(BAppName)
+ end,
+ filename:join(OutDir, lists:concat(AppName, "_drv.so"));
+ AName ->
+ filename:join(OutDir, AName)
+ end,
+
+ %% Get the list of source files from port_sources
+ Sources = port_sources(rebar_state:dir(Config), rebar_state:get(Config, port_sources, "c_src/*.c")),
+ #spec { type = pc_util:target_type(Target),
+ link_lang = cc,
+ target = maybe_switch_extension(os:type(), Target),
+ sources = Sources,
+ objects = port_objects(Sources),
+ opts = port_opt(Config, O) || O <- fill_in_defaults()}.
+
+maybe_report_wc(Source, Found) ->
+ case Found of
+ ->
+ rebar_api:warn("Found no source files for:~n~p", Source);
+ _ ->
+ ok
+ end,
+ Found.
+
+wildcard(Source, WorkDir) ->
+ maybe_report_wc(Source, filelib:wildcard(Source, WorkDir)).
+
+port_sources(WorkDir, Sources) ->
+ lists:flatmap(fun (Source) ->
+ wildcard(Source, WorkDir)
+ end, Sources).
+
+maybe_switch_extension({win32, nt}, Target) ->
+ switch_to_dll_or_exe(Target);
+maybe_switch_extension(_OsType, Target) ->
+ Target.
+
+port_objects(SourceFiles) ->
+ Ext = object_file_ext(),
+ pc_util:replace_extension(O, Ext) || O <- SourceFiles.
+
+filter_port_spec({ArchRegex, _, _, _}) ->
+ pc_util:is_arch(ArchRegex);
+filter_port_spec({ArchRegex, _, _}) ->
+ pc_util:is_arch(ArchRegex);
+filter_port_spec({_, _}) ->
+ true.
+
+get_port_spec(Config, OsType, {Target, Sources}) ->
+ get_port_spec(Config, OsType, {undefined, Target, Sources, });
+get_port_spec(Config, OsType, {Arch, Target, Sources}) ->
+ get_port_spec(Config, OsType, {Arch, Target, Sources, });
+get_port_spec(Config, OsType, {_Arch, Target, Sources, Opts}) ->
+ Env = try_and_create_env(Config),
+ ProjectRoot = rebar_state:dir(Config),
+ SourceFiles =
+ lists:flatmap(
+ fun(Source) ->
+ wildcard(expand_env(Source, Env), rebar_state:dir(Config))
+ end, Sources),
+ LinkLang =
+ case lists:any(
+ fun(Src) ->
+ pc_compilation:compiler(filename:extension(Src)) == "$CXX"
+ end,
+ SourceFiles)
+ of
+ true -> cxx;
+ false -> cc
+ end,
+ 
+ Target1 =
+ case os:getenv("REBAR_BARE_COMPILER_OUTPUT_DIR", undefined) of
+ undefined ->
+ filename:join(ProjectRoot, Target);
+ Dir -> 
+ filename:join(Dir, Target)
+ end,
+ #spec{type = pc_util:target_type(Target1),
+ target = coerce_extension(OsType, Target1),
+ link_lang = LinkLang,
+ sources = SourceFiles,
+ objects = port_objects(SourceFiles),
+ opts = port_opt(Config, O) || O <- fill_in_defaults(Opts)}.
+
+expand_env(Source, Env) ->
+ case pc_util:strchr(Source, $$) of
+ 0 ->
+ %% No variables to expand. Also hides undef on older rebar3.
+ Source;
+ _ ->
+ lists:foldl(
+ fun({Key, Value}, Acc) ->
+ %% TODO: the expand_env_variable/3 only expands
+ %% variables delimited by whitespace and inside
+ %% ${}. Either fix or add a new function to
+ %% rebar3 or make a new function here in pc.
+ rebar_utils:expand_env_variable(Acc, Key, Value)
+ end, Source, Env)
+ end.
+
+coerce_extension({win32, nt}, Target) ->
+ switch_to_dll_or_exe(Target);
+coerce_extension(_OsType, Target) ->
+ Target.
+
+switch_to_dll_or_exe(Target) ->
+ case filename:extension(Target) of
+ ".so" -> filename:rootname(Target, ".so") ++ ".dll";
+ -> Target ++ ".exe";
+ _Other -> Target
+ end.
+
+%% NOTE: By ensuring that the options list has default values we can simplify
+%% the implementation of the compilation module. More invariants means less
+%% lookups and/or branching.
+%%
+%% It might make sense to move 'env' into the top-level of the record. That's an
+%% option too.
+fill_in_defaults(Opts) ->
+ %% insert an {env, } if {env, _} does not exist
+ case lists:any(fun ({env, _}) -> true;
+ (_) -> false end, Opts) of
+ true ->
+ Opts;
+ false ->
+ {env, } | Opts
+ end.
+
+port_opt(State, {env, Env}) ->
+ {ok, PortEnv} = pc_port_env:construct(State, Env),
+ {env, PortEnv};
+port_opt(_State, Opt) ->
+ Opt.
+
+object_file_ext() ->
+ case os:type() of
+ {win32,_} -> ".obj";
+ _ -> ".o"
+ end.

guam-0.9.12.tar.gz/_checkouts/pc/src/pc_prv_clean.erl Added

@@ -0,0 +1,51 @@
+%% -------------------------------------------------------------------
+%%
+%% rebar3 port compiler cleaner, in the manner of rebar2.
+%%
+%% -------------------------------------------------------------------
+-module(pc_prv_clean).
+-behaviour(provider).
+
+-export(init/1, do/1, format_error/1).
+
+-define(NAMESPACE, pc).
+-define(PROVIDER, clean).
+-define(DEPS, {default, app_discovery}).
+
+%%%===================================================================
+%%% API
+%%%===================================================================
+
+-spec init(rebar_state:t()) -> {ok, rebar_state:t()}.
+init(State) ->
+    Provider = providers:create(
+                                 {name, ?PROVIDER},             %% The 'user friendly' name of the task
+                                 {module, ?MODULE},             %% The module implementation of the task
+                                 {bare, true},                  %% The task can be run by the user, always true
+                                 {deps, ?DEPS},                 %% The list of dependencies
+                                 {example, "rebar pc clean"},   %% How to use the plugin
+                                 {opts, },                    %% list of options understood by the plugin
+                                 {short_desc, "clean the results of port compilation"},
+                                 {desc, ""},
+                                 {namespace, pc}
+                                ),
+    {ok, rebar_state:add_provider(State, Provider)}.
+
+
+-spec do(rebar_state:t()) -> {ok, rebar_state:t()} | {error, string()}.
+do(State) ->
+    Cwd = rebar_state:dir(State),
+    Providers = rebar_state:providers(State),
+    rebar_hooks:run_all_hooks(
+      Cwd, pre, {?NAMESPACE, ?PROVIDER}, Providers, State),
+
+    {ok, PortSpecs} = pc_port_specs:construct(State),
+    ok = pc_compilation:clean(State, PortSpecs),
+
+    rebar_hooks:run_all_hooks(
+      Cwd, post, {?NAMESPACE, ?PROVIDER}, Providers, State),
+    {ok, State}.
+
+-spec format_error(any()) ->  iolist().
+format_error(Reason) ->
+    io_lib:format("~p", Reason).

guam-0.9.12.tar.gz/_checkouts/pc/src/pc_prv_compile.erl Added

@@ -0,0 +1,65 @@
+%% -------------------------------------------------------------------
+%%
+%% rebar3 port compiler, in the manner of rebar2.
+%%
+%% -------------------------------------------------------------------
+-module(pc_prv_compile).
+-behaviour(provider).
+
+-export(init/1, do/1, format_error/1).
+
+-define(NAMESPACE, pc).
+-define(PROVIDER, compile).
+-define(DEPS, {default, compile}).
+
+%%%===================================================================
+%%% API
+%%%===================================================================
+
+-spec init(rebar_state:t()) -> {ok, rebar_state:t()}.
+init(State) ->
+ Provider = providers:create(
+ {name, ?PROVIDER}, %% The 'user friendly' name of the task
+ {module, ?MODULE}, %% The module implementation of the task
+ {bare, true}, %% The task can be run by the user, always true
+ {deps, ?DEPS}, %% The list of dependencies
+ {example, "rebar pc compile"}, %% How to use the plugin
+ {opts, }, %% list of options understood by the plugin
+ {short_desc, "perform port compilation"},
+ {desc, ""},
+ {namespace, pc}
+ ),
+ {ok, rebar_state:add_provider(State, Provider)}.
+
+
+-spec do(rebar_state:t()) -> {ok, rebar_state:t()} | {error, string()}.
+do(State) ->
+ Apps = case rebar_state:current_app(State) of
+ undefined ->
+ rebar_state:project_apps(State);
+ AppInfo ->
+ AppInfo
+ end,
+
+ Cwd = rebar_state:dir(State),
+ Providers = rebar_state:providers(State),
+ rebar_hooks:run_all_hooks(
+ Cwd, pre, {?NAMESPACE, ?PROVIDER}, Providers, State),
+
+ begin
+ Opts = rebar_app_info:opts(AppInfo1),
+ State1 = rebar_state:opts(State, Opts),
+ {ok, PortSpecs} = pc_port_specs:construct(State1),
+ ok = pc_compilation:compile_and_link(State1, PortSpecs)
+ end || AppInfo1 <- Apps,
+
+ rebar_hooks:run_all_hooks(
+ Cwd, post, {?NAMESPACE, ?PROVIDER}, Providers, State),
+
+ {ok, State}.
+
+-spec format_error(any()) -> iolist().
+format_error(no_app) ->
+ io_lib:format("No so_name or application defined.", );
+format_error(Reason) ->
+ io_lib:format("~p", Reason).

guam-0.9.12.tar.gz/_checkouts/pc/src/pc_util.erl Added

@@ -0,0 +1,232 @@
+-module(pc_util).
+
+-export( replace_extension/2
+ , replace_extension/3
+ , target_type/1
+ , get_arch/0
+ , wordsize/0
+ , is_arch/1
+ , strtok/2
+ , strjoin/2
+ , strchr/2
+ ).
+-export_type().
+
+%%%===================================================================
+%%% API
+%%%===================================================================
+
+replace_extension(File, NewExt) ->
+ OldExt = filename:extension(File),
+ replace_extension(File, OldExt, NewExt).
+replace_extension(File, OldExt, NewExt) ->
+ filename:rootname(File, OldExt) ++ NewExt.
+
+target_type(Target) -> target_type1(filename:extension(Target)).
+target_type1(".so") -> drv;
+target_type1(".dll") -> drv;
+target_type1("") -> exe;
+target_type1(".exe") -> exe.
+
+is_arch(ArchRegex) ->
+ case re:run(get_arch(), ArchRegex, {capture, none}) of
+ match ->
+ true;
+ nomatch ->
+ false
+ end.
+
+%%
+%% REBAR_TARGET_ARCH, if used, should be set to the "standard"
+%% target string. That is a prefix for binutils tools.
+%% "x86_64-linux-gnu" or "arm-linux-gnueabi" are good candidates
+%% ${REBAR_TARGET_ARCH}-gcc, ${REBAR_TARGET_ARCH}-ld ...
+%%
+get_arch() ->
+ Arch = os:getenv("REBAR_TARGET_ARCH"),
+ Words = wordsize(Arch),
+ rebar_utils:otp_release() ++ "-" ++ get_system_arch(Arch) ++ "-" ++ Words.
+
+get_system_arch(Arch) when Arch =:= false; Arch =:= "" ->
+ erlang:system_info(system_architecture);
+get_system_arch(Arch) ->
+ Arch.
+
+wordsize() ->
+ wordsize(os:getenv("REBAR_TARGET_ARCH")).
+
+%%%===================================================================
+%%% Internal Functions
+%%%===================================================================
+
+wordsize(Arch) when Arch =:= false; Arch =:= "" ->
+ native_wordsize();
+wordsize(Arch) ->
+ AllArchs = 
+ {"i686","32"},
+ {"i386","32"},
+ {"arm","32"},
+ {"aarch64", "64"},
+ {"x86_64","64"}
+ ,
+ case match_wordsize(Arch, AllArchs) of
+ false ->
+ case cross_wordsize(Arch) of
+ "" ->
+ env_wordsize(os:getenv("REBAR_TARGET_ARCH_WORDSIZE"));
+ WordSize ->
+ WordSize
+ end;
+ {_, Wordsize} ->
+ Wordsize
+ end.
+
+match_wordsize(Arch, V={Match,_Bits}|Vs) ->
+ case re:run(Arch, Match, {capture, none}) of
+ match ->
+ V;
+ nomatch ->
+ match_wordsize(Arch, Vs)
+ end;
+match_wordsize(_Arch, ) ->
+ false.
+
+env_wordsize(Wordsize) when Wordsize =:= false;
+ Wordsize =:= "" ->
+ rebar_log:log(
+ warn, "REBAR_TARGET_ARCH_WORDSIZE not set, assuming 32\n", ),
+ "32";
+env_wordsize(Wordsize) ->
+ case Wordsize of
+ "16" -> Wordsize;
+ "32" -> Wordsize;
+ "64" -> Wordsize;
+ _ ->
+ rebar_log:log(
+ warn, "REBAR_TARGET_ARCH_WORDSIZE bad value: ~p\n", Wordsize),
+ "32"
+ end.
+
+%%
+%% Find out the word size of the target by using Arch-gcc
+%%
+cross_wordsize(Arch) ->
+ cross_sizeof(Arch, "void*").
+
+%%
+%% Find the size of target Type using a specially crafted C file
+%% that will report an error on the line of the byte size of the type.
+%%
+cross_sizeof(Arch, Type) ->
+ Compiler = if Arch =:= "" -> "cc";
+ true -> Arch ++ "-gcc"
+ end,
+ TempFile = mktempfile(".c"),
+ ok = file:write_file(TempFile,
+ <<"int t01 1 - 2*(((long) (sizeof (TYPE))) == 1);\n"
+ "int t02 1 - 2*(((long) (sizeof (TYPE))) == 2);\n"
+ "int t03 1 - 2*(((long) (sizeof (TYPE))) == 3);\n"
+ "int t04 1 - 2*(((long) (sizeof (TYPE))) == 4);\n"
+ "int t05 1 - 2*(((long) (sizeof (TYPE))) == 5);\n"
+ "int t06 1 - 2*(((long) (sizeof (TYPE))) == 6);\n"
+ "int t07 1 - 2*(((long) (sizeof (TYPE))) == 7);\n"
+ "int t08 1 - 2*(((long) (sizeof (TYPE))) == 8);\n"
+ "int t09 1 - 2*(((long) (sizeof (TYPE))) == 9);\n"
+ "int t10 1 - 2*(((long) (sizeof (TYPE))) == 10);\n"
+ "int t11 1 - 2*(((long) (sizeof (TYPE))) == 11);\n"
+ "int t12 1 - 2*(((long) (sizeof (TYPE))) == 12);\n"
+ "int t13 1 - 2*(((long) (sizeof (TYPE))) == 13);\n"
+ "int t14 1 - 2*(((long) (sizeof (TYPE))) == 14);\n"
+ "int t15 1 - 2*(((long) (sizeof (TYPE))) == 15);\n"
+ "int t16 1 - 2*(((long) (sizeof (TYPE))) == 16);\n"
+ >>),
+ Cmd = Compiler ++ " -DTYPE=\""++Type++"\" " ++ TempFile,
+ ShOpts = {use_stdout, false}, return_on_error,
+ {error, {_,Res}} = rebar_utils:sh(Cmd, ShOpts),
+ ok = file:delete(TempFile),
+ case strtok(Res, ":") of
+ _, Ln | _ ->
+ try list_to_integer(Ln) of
+ NumBytes -> integer_to_list(NumBytes*8)
+ catch
+ error:_ ->
+ ""
+ end;
+ _ ->
+ ""
+ end.
+
+strtok(Str, SepList) ->
+ case erlang:function_exported(string, lexemes, 2) of
+ true -> string:lexemes(Str, SepList);
+ false -> apply(string, tokens, Str, SepList)
+ end.
+
+%% Lifted lists:join/2 from OTP-19 to use with OTP-17 and OTP-18.
+%% TODO: remove when pc requires OTP >=19.
+lists_join(Sep, L) ->
+ case erlang:function_exported(lists, join, 2) of
+ true -> lists:join(Sep, L);
+ false -> lists_join1(Sep, L)
+ end.
+
+lists_join1(_Sep, ) -> ;
+lists_join1(Sep, H|T) -> H|lists_join1_prepend(Sep, T).
+
+lists_join1_prepend(_Sep, ) -> ;
+lists_join1_prepend(Sep, H|T) -> Sep,H|lists_join1_prepend(Sep,T).
+
+strjoin(L, Sep) ->
+ lists:flatten(lists_join(Sep, L)).
+
+strchr(S, C) when is_integer(C) -> strchr(S, C, 1).
+strchr(C|_Cs, C, I) -> I;
+strchr(_|Cs, C, I) -> strchr(Cs, C, I+1);
+strchr(, _C, _I) -> 0.
+
+mktempfile(Suffix) ->
+ {A,B,C} = rebar_now(),
+ Dir = temp_dir(),
+ File = "rebar_"++os:getpid()++
+ integer_to_list(A)++"_"++
+ integer_to_list(B)++"_"++
+ integer_to_list(C)++Suffix,
+ filename:join(Dir, File).
+
+temp_dir() ->
+ case os:type() of
+ {win32, _} -> windows_temp_dir();
+ _ -> "/tmp"
+ end.
+
+windows_temp_dir() ->
+ case os:getenv("TEMP") of
+ false ->
+ case os:getenv("TMP") of
+ false -> "C:/WINDOWS/TEMP";
+ TMP -> TMP
+ end;
+ TEMP -> TEMP
+ end.
+
+rebar_now() ->
+ case erlang:function_exported(erlang, timestamp, 0) of
+ true ->
+ erlang:timestamp();
+ false ->
+ %% erlang:now/0 was deprecated in 18.0. One solution to avoid the
+ %% deprecation warning is to use
+ %% -compile({nowarn_deprecated_function, {erlang, now, 0}}), but
+ %% that would raise a warning in versions older than 18.0. Calling
+ %% erlang:now/0 via apply/3 avoids that.
+ apply(erlang, now, )
+ end.
+
+native_wordsize() ->
+ try erlang:system_info({wordsize, external}) of
+ Val ->
+ integer_to_list(8 * Val)
+ catch
+ error:badarg ->
+ integer_to_list(8 * erlang:system_info(wordsize))
+ end.

guam-0.9.12.tar.gz/_checkouts/syslog Added

guam-0.9.12.tar.gz/_checkouts/syslog/.gitignore Added

guam-0.9.12.tar.gz/_checkouts/syslog/LICENSE Added

@@ -0,0 +1,22 @@
+Copyright 2009-2017 Andrew Thompson <andrew@hijacked.us>. All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+ 1. Redistributions of source code must retain the above copyright notice,
+ this list of conditions and the following disclaimer.
+ 2. Redistributions in binary form must reproduce the above copyright
+ notice, this list of conditions and the following disclaimer in the
+ documentation and/or other materials provided with the distribution.
+
+THIS SOFTWARE IS PROVIDED BY THE PROJECT ``AS IS'' AND ANY EXPRESS OR
+IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
+EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
+INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+

guam-0.9.12.tar.gz/_checkouts/syslog/README.md Added

@@ -0,0 +1,107 @@
+Erlang driver for syslog
+------------------------
+
+This is an erlang port driver for interacting with syslog.
+
+Installing it
+-------------
+
+    ./rebar3 compile
+
+Trying it
+---------
+
+You should have a look at syslog.h.
+
+In another shell :
+
+    $ tail -f /var/log/syslog
+
+Or, for mac users :
+
+    $ tail -f /var/log/system.log
+
+In erlang shell :
+
+    $ erl
+    > syslog:start().
+    > {ok,Log} = syslog:open("Beuha", cons, perror, pid, local0).
+    > syslog:log(Log, err, "Damned").
+    > syslog:log(Log, info, "process count: ~w", length(processes())).
+
+API
+---
+
+### syslog:open(Ident, Logopt, Facility) -> {ok, port()} ###
+
+_Ident_ is an arbitrary string  
+_Logopt_ is an atom or array of atom, you can use a number if you're brave enough :
+
+ * pid
+ * cons
+ * odelay
+ * ndelay
+ * perror
+
+_Facility_ is an atom :
+
+ * kern
+ * user
+ * mail
+ * daemon
+ * auth
+ * syslog
+ * lpr
+ * news
+ * uucp
+ * cron
+ * authpriv
+ * ftp
+ * netinfo
+ * remoteauth
+ * install
+ * ras
+ * local0
+ * local1
+ * local2
+ * local3
+ * local4
+ * local5
+ * local6
+ * local7
+
+The `open` call returns either `{ok, Log}` where _Log_ is a syslog handle
+that can be passed to subsequent `log` and `close` calls, or it will throw
+{error, badarg}.
+
+### syslog:log(Log, Priority, Message) -> ok ###
+
+_Log_ is a syslog handle returned from `open`  
+_Priority_ can be a number or better, an atom :
+
+ * emerg
+ * alert
+ * crit
+ * err
+ * warning
+ * notice
+ * info
+ * debug
+
+_Message_ is a string.
+
+### syslog:log(Log, Priority, FormatMsg, FormatArgs) -> ok ###
+
+Same as above, but allows for the construction of log messages similar to
+formatting strings via `io_lib:format/2`, where _FormatMsg_ indicates the
+formatting instructions and _FormatArgs_ is a list of arguments to be
+formatted.
+
+### syslog:close(Log) -> ok ###
+
+_Log_ is a syslog handle returned from `open`
+
+BUGS
+----
+
+ * None known

guam-0.9.12.tar.gz/_checkouts/syslog/c_src Added

guam-0.9.12.tar.gz/_checkouts/syslog/c_src/syslog_drv.c Added

@@ -0,0 +1,182 @@
+/*
+Copyright 2009 Andrew Thompson <andrew@hijacked.us>. All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+ 1. Redistributions of source code must retain the above copyright notice,
+ this list of conditions and the following disclaimer.
+ 2. Redistributions in binary form must reproduce the above copyright
+ notice, this list of conditions and the following disclaimer in the
+ documentation and/or other materials provided with the distribution.
+
+THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR
+IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
+EVENT SHALL THE CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
+INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+*/
+#include <stdint.h>
+#include <syslog.h>
+#include <stdarg.h>
+#include <string.h>
+
+#include <ei.h>
+#include <erl_driver.h>
+
+/* for pre-R15 compatibility */
+#if ERL_DRV_EXTENDED_MAJOR_VERSION < 2
+typedef int ErlDrvSizeT;
+typedef int ErlDrvSSizeT;
+#endif
+
+#define DRV_NAME "syslog_drv"
+
+/* the following constants have to match those in syslog.erl */
+#define SYSLOGDRV_OPEN 1
+#define SYSLOGDRV_CLOSE 2
+
+struct syslogdrv {
+ ErlDrvPort port;
+ char *ident;
+ int logopt;
+ int facility;
+ unsigned char open;
+};
+
+typedef struct syslogdrv syslogdrv_t;
+
+static ErlDrvSSizeT encode_error(char* buf, char* error) {
+ int index = 0;
+ if (ei_encode_version(buf, &index) ||
+ ei_encode_tuple_header(buf, &index, 2) ||
+ ei_encode_atom(buf, &index, "error") ||
+ ei_encode_atom(buf, &index, error)) {
+ return (ErlDrvSSizeT)ERL_DRV_ERROR_GENERAL;
+ }
+ return index+1;
+}
+
+static ErlDrvData syslogdrv_start(ErlDrvPort port, char *buf)
+{
+ syslogdrv_t* d = (syslogdrv_t*)driver_alloc(sizeof(syslogdrv_t));
+ d->port = port;
+ d->open = 0;
+ d->ident = NULL;
+ set_port_control_flags(port, PORT_CONTROL_FLAG_BINARY);
+ return (ErlDrvData)d;
+}
+
+static void syslogdrv_stop(ErlDrvData handle)
+{
+ syslogdrv_t* d = (syslogdrv_t*)handle;
+ closelog();
+ if (d->ident) {
+ driver_free(d->ident);
+ }
+ driver_free((char*)handle);
+}
+
+static void syslogdrv_output(ErlDrvData handle, char *buf, ErlDrvSizeT len)
+{
+ syslogdrv_t* d = (syslogdrv_t*)handle;
+ /* Incoming data is expected to start with an integer priority encoded
+ as a 4-byte integer in network order, therefore make sure there's at
+ least 5 bytes in the message. */
+ if (d->open && len > 4) {
+ int priority = ntohl(*(uint32_t*)buf);
+ buf += 4;
+ /* re-call openlog in case another instance of the port driver
+ * was called in the mean time */
+ openlog(d->ident, d->logopt, d->facility);
+ syslog(priority, "%s", buf);
+ }
+}
+
+static ErlDrvSSizeT syslogdrv_control(ErlDrvData handle, unsigned int command,
+ char *buf, ErlDrvSizeT len,
+ char **rbuf, ErlDrvSizeT rlen)
+{
+ syslogdrv_t* d = (syslogdrv_t*)handle;
+ if (d->open) {
+ return (ErlDrvSSizeT)ERL_DRV_ERROR_BADARG;
+ }
+ int index = 0, version, arity, type, size;
+
+ if (command != SYSLOGDRV_OPEN) {
+ return (ErlDrvSSizeT)ERL_DRV_ERROR_BADARG;
+ }
+
+ if (ei_decode_version(buf, &index, &version)) {
+ return encode_error(*rbuf, "badver");
+ }
+ if (ei_decode_tuple_header(buf, &index, &arity) || arity != 3) {
+ return (ErlDrvSSizeT)ERL_DRV_ERROR_BADARG;
+ }
+ if (ei_get_type(buf, &index, &type, &size)) {
+ return (ErlDrvSSizeT)ERL_DRV_ERROR_BADARG;
+ }
+ if (type == ERL_STRING_EXT) {
+ long logopt, facility;
+
+ if (d->ident) {
+ driver_free(d->ident);
+ }
+ d->ident = driver_alloc(size+1);
+ if (d->ident == NULL) {
+ return encode_error(*rbuf, "enomem");
+ }
+ if (ei_decode_string(buf, &index, d->ident)) {
+ return (ErlDrvSSizeT)ERL_DRV_ERROR_BADARG;
+ }
+ if (ei_decode_long(buf, &index, &logopt) ||
+ ei_decode_long(buf, &index, &facility)) {
+ return (ErlDrvSSizeT)ERL_DRV_ERROR_BADARG;
+ }
+ d->logopt = (int)logopt;
+ d->facility = (int)facility;
+ d->open = 1;
+ return 0;
+ } else {
+ return (ErlDrvSSizeT)ERL_DRV_ERROR_BADARG;
+ }
+}
+
+/*
+ * Initialize and return a driver entry struct
+ */
+static ErlDrvEntry syslogdrv_driver_entry = {
+ NULL,
+ syslogdrv_start,
+ syslogdrv_stop,
+ syslogdrv_output,
+ NULL,
+ NULL,
+ DRV_NAME,
+ NULL,
+ NULL,
+ syslogdrv_control,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ ERL_DRV_EXTENDED_MARKER,
+ ERL_DRV_EXTENDED_MAJOR_VERSION,
+ ERL_DRV_EXTENDED_MINOR_VERSION,
+ 0,
+ NULL,
+ NULL,
+ NULL,
+};
+
+DRIVER_INIT(syslogdrv)
+{
+ return &syslogdrv_driver_entry;
+}

guam-0.9.12.tar.gz/_checkouts/syslog/rebar.config Added

guam-0.9.12.tar.gz/_checkouts/syslog/rebar.lock Added

guam-0.9.12.tar.gz/_checkouts/syslog/src Added

guam-0.9.12.tar.gz/_checkouts/syslog/src/syslog.app.src Added

guam-0.9.12.tar.gz/_checkouts/syslog/src/syslog.erl Added

@@ -0,0 +1,318 @@
+%%% Copyright 2009 Andrew Thompson <andrew@hijacked.us>. All rights reserved.
+%%%
+%%% Redistribution and use in source and binary forms, with or without
+%%% modification, are permitted provided that the following conditions are met:
+%%%
+%%% 1. Redistributions of source code must retain the above copyright notice,
+%%% this list of conditions and the following disclaimer.
+%%% 2. Redistributions in binary form must reproduce the above copyright
+%%% notice, this list of conditions and the following disclaimer in the
+%%% documentation and/or other materials provided with the distribution.
+%%%
+%%% THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR
+%%% IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+%%% MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
+%%% EVENT SHALL THE CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
+%%% INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+%%% (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+%%% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+%%% ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+%%% (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+%%% SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+%% @doc erlang wrapper for syslog port
+
+-module(syslog).
+
+-behaviour(gen_server).
+
+-define(DRV_NAME, "syslog_drv").
+
+%% this constant must match the same in syslog_drv.c
+-define(SYSLOGDRV_OPEN, 1).
+
+%% API
+-export(
+ start/0,
+ start_link/0,
+ stop/0,
+ open/3,
+ log/3,
+ log/4,
+ close/1,
+ priority/1,
+ facility/1,
+ openlog_opt/1,
+ openlog_opts/1,
+ load/0,
+ unload/0
+ ).
+
+%% gen_server callbacks
+-export(
+ init/1,
+ handle_call/3,
+ handle_cast/2,
+ handle_info/2,
+ terminate/2,
+ code_change/3
+ ).
+
+-ifdef(TEST).
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+
+-record(state, {}).
+
+-type priority() :: emerg | alert | crit | err |
+ warning | notice | info | debug | non_neg_integer().
+-type facility() :: kern | user | mail | daemon | auth | syslog |
+ lpr | news | uucp | cron | authpriv | ftp |
+ netinfo | remoteauth | install | ras |
+ local0 | local1 | local2 | local3 |
+ local4 | local5 | local6 | local7 | non_neg_integer().
+-type openlog_opt() :: pid | cons | odelay | ndelay | perror | pos_integer().
+-export_type(priority/0, facility/0, openlog_opt/0).
+
+%%% API %%%
+
+-spec start() ->
+ {ok, pid()} | ignore | {error, any()}.
+
+start() ->
+ gen_server:start({local, ?MODULE}, ?MODULE, , ).
+
+-spec start_link() ->
+ {ok, pid()} | ignore | {error, any()}.
+
+start_link() ->
+ gen_server:start_link({local, ?MODULE}, ?MODULE, , ).
+
+-spec stop() ->
+ ok.
+
+stop() ->
+ gen_server:cast(?MODULE, stop).
+
+-spec open(Ident :: string(),
+ Logopt :: list(openlog_opt()),
+ Facility :: facility()) ->
+ {ok, port()} |
+ {error, any()}.
+
+open(Ident, Logopt, Facility) ->
+ Log = erlang:open_port({spawn, ?DRV_NAME}, binary),
+ Args = term_to_binary({Ident, openlog_opts(Logopt), facility(Facility)}),
+ try erlang:port_control(Log, ?SYSLOGDRV_OPEN, Args) of
+ <<>> ->
+ {ok, Log};
+ BinError ->
+ binary_to_term(BinError)
+ catch
+ _:Reason ->
+ {error, Reason}
+ end.
+
+-spec log(Log :: port(),
+ Priority :: priority(),
+ Message :: iolist()) ->
+ ok.
+
+log(_Log, _Priority, ) ->
+ ok;
+log(Log, Priority, Message) ->
+ NumPri = priority(Priority),
+ %% encode the priority value as a 4-byte integer in network order, and
+ %% add a 0 byte to the end of the command data to act as a NUL character
+ true = erlang:port_command(Log, <<NumPri:32/big>>, Message, <<0:8>>),
+ ok.
+
+-spec log(Log :: port(),
+ Priority :: priority(),
+ FormatStr :: string(),
+ FormatArgs :: list()) ->
+ ok.
+
+log(Log, Priority, FormatStr, FormatArgs) ->
+ log(Log, Priority, io_lib:format(FormatStr, FormatArgs)).
+
+-spec close(Log :: port()) ->
+ ok.
+
+close(Log) ->
+ true = erlang:port_close(Log),
+ ok.
+
+-spec priority(N :: priority() | non_neg_integer()) ->
+ non_neg_integer().
+
+priority(emerg) -> 0;
+priority(alert) -> 1;
+priority(crit) -> 2;
+priority(err) -> 3;
+priority(warning) -> 4;
+priority(notice) -> 5;
+priority(info) -> 6;
+priority(debug) -> 7;
+priority(N) when is_integer(N), N >= 0 -> N;
+priority(_) -> erlang:error(badarg).
+
+-spec facility(N :: facility() | non_neg_integer()) ->
+ non_neg_integer().
+
+facility(kern) -> 0;
+facility(user) -> 8;
+facility(mail) -> 16;
+facility(daemon) -> 24;
+facility(auth) -> 32;
+facility(syslog) -> 40;
+facility(lpr) -> 48;
+facility(news) -> 56;
+facility(uucp) -> 64;
+facility(cron) -> 72;
+facility(authpriv) -> 80;
+facility(ftp) -> 88;
+facility(netinfo) -> 96;
+facility(remoteauth)-> 104;
+facility(install) -> 112;
+facility(ras) -> 120;
+facility(local0) -> 16 * 8;
+facility(local1) -> 17 * 8;
+facility(local2) -> 18 * 8;
+facility(local3) -> 19 * 8;
+facility(local4) -> 20 * 8;
+facility(local5) -> 21 * 8;
+facility(local6) -> 22 * 8;
+facility(local7) -> 23 * 8;
+facility(N) when is_integer(N), N >= 0 -> N;
+facility(_) -> erlang:error(badarg).
+
+-spec openlog_opt(N :: openlog_opt() | pos_integer()) ->
+ pos_integer().
+
+openlog_opt(pid) -> 1;
+openlog_opt(cons) -> 2;
+openlog_opt(odelay) -> 4;
+openlog_opt(ndelay) -> 8;
+openlog_opt(perror) -> 20;
+openlog_opt(N) when is_integer(N), N >= 1 -> N;
+openlog_opt(_) -> erlang:error(badarg).
+
+-spec openlog_opts(N :: list(openlog_opt() | pos_integer()) |
+ openlog_opt() | pos_integer()) ->
+ pos_integer().
+
+openlog_opts(Queue) -> openlog_opt(Queue);
+openlog_opts(Tail|Queue) ->
+ openlog_opt(Tail) bor openlog_opts(Queue);
+openlog_opts() -> 0;
+openlog_opts(N) -> openlog_opt(N).
+
+-spec load() ->
+ ok | {error, string()}.
+
+load() ->
+ PrivDir = case code:priv_dir(?MODULE) of
+ {error, bad_name} ->
+ EbinDir = filename:dirname(code:which(?MODULE)),
+ AppPath = filename:dirname(EbinDir),
+ filename:join(AppPath, "priv");
+ Path ->
+ Path
+ end,
+ case erl_ddll:load_driver(PrivDir, ?DRV_NAME) of
+ ok -> ok;
+ {error, already_loaded} -> ok;
+ {error, LoadError} ->
+ LoadErrorStr = erl_ddll:format_error(LoadError),
+ ErrStr = lists:flatten(
+ io_lib:format("could not load driver ~s: ~p",
+ ?DRV_NAME, LoadErrorStr)),
+ {error, ErrStr}
+ end.
+
+-spec unload() ->
+ ok | {error, string()}.
+
+unload() ->
+ case erl_ddll:unload_driver(?DRV_NAME) of
+ ok -> ok;
+ {error, UnloadError} ->
+ UnloadErrorStr = erl_ddll:format_error(UnloadError),
+ ErrStr = lists:flatten(
+ io_lib:format("could not unload driver ~s: ~p",
+ ?DRV_NAME, UnloadErrorStr)),
+ {error, ErrStr}
+ end.
+
+%%% gen_server callbacks %%%
+
+init() ->
+ case load() of
+ ok ->
+ {ok, #state{}};
+ {error, Reason} ->
+ {stop, Reason}
+ end.
+
+handle_call(_Msg, _From, State) ->
+ {reply, ok, State}.
+
+handle_cast(stop, State) ->
+ {stop, normal, State};
+handle_cast(_Msg, State) ->
+ {noreply, State}.
+
+handle_info(_Info, State) ->
+ {noreply, State}.
+
+terminate(_Reason, _State) ->
+ ok.
+
+code_change(_, State, _) ->
+ {ok, State}.
+
+%%% internal functions %%%
+
+-ifdef(TEST).
+
+openlog_opts_test() ->
+ 11 = openlog_opts(1,2,8),
+ 1 = openlog_opts(pid),
+ try
+ foo = openlog_opts(foo)
+ catch
+ error:badarg ->
+ ok;
+ Reason ->
+ throw(Reason)
+ end.
+
+closed_test() ->
+ {ok, _} = syslog:start(),
+ try
+ {ok, Log} = open("test", pid, local0),
+ Self = self(),
+ {connected,Self} = erlang:port_info(Log, connected),
+ ok = close(Log),
+ try
+ close(Log)
+ catch
+ error:badarg ->
+ ok;
+ Reason1 ->
+ throw(Reason1)
+ end,
+ try
+ ok = log(Log, 8, "writing to closed log")
+ catch
+ error:badarg ->
+ ok;
+ Reason2 ->
+ throw(Reason2)
+ end
+ after
+ syslog:stop()
+ end.
+
+-endif.

guam-0.9.12.tar.gz/_checkouts/syslog/src/syslog_app.erl Added

guam-0.9.12.tar.gz/_checkouts/syslog/src/syslog_sup.erl Added

guam-0.9.11.tar.gz/apps/kolab_guam/src/kolab_guam.app.src -> guam-0.9.12.tar.gz/apps/kolab_guam/src/kolab_guam.app.src Changed

guam-0.9.11.tar.gz/apps/kolab_guam/src/kolab_guam_session.erl -> guam-0.9.12.tar.gz/apps/kolab_guam/src/kolab_guam_session.erl Changed

@@ -234,7 +234,7 @@
 process_lines(_Socket, State, , ContinuationBytes, Acc) ->
 {Acc, State#state{ continuation_bytes = ContinuationBytes }};
 process_lines(Socket, State, Line|MoreLines, 0, Acc) ->
- { _StrippedNextLine, NextContinuationBytes } = eimap_utils:num_literal_continuation_bytes(binary:part(Line, 0, byte_size(Line)-2)),
+ { _StrippedNextLine, NextContinuationBytes, _Result } = eimap_utils:num_literal_continuation_bytes(binary:part(Line, 0, byte_size(Line)-2)),
 {NewAcc, NewState} = process_client_line(Line, Socket, State, Acc),
 process_lines(Socket, NewState, MoreLines, NextContinuationBytes, NewAcc);
 process_lines(Socket, State, Line|MoreLines, ContinuationBytes, Acc) ->
@@ -246,20 +246,6 @@
 end,
 process_lines(Socket, State, Lines, ContinuationBytes - size(LiteralPartOfLine), <<Acc/binary, LiteralPartOfLine/binary>>).
 
-split(Lines, Data, Pattern) ->
- case binary:match(Data, Pattern) of
- nomatch -> {lists:reverse(Lines), Data};
- { Start, Length } ->
- Num = Start + Length,
- <<Line:Num/binary, Remainder/binary>> = Data,
- split(Line|Lines, Remainder, Pattern)
- end.
-split(Lines, Data) ->
- split(Lines, Data, binary:compile_pattern(<<"\r\n">>)).
-
-split_lines(Data) ->
- split(, Data).
-
 % Client data is processed as it comes in, but split up by lines if more than one line comes in at a time.
 % The processing internally buffers data as necessary if it encounters incomplete lines.
 process_client_data(Socket, Data, #state{ inflator = Inflator, continuation_bytes = ContinuationBytes } = State) ->
@@ -267,7 +253,7 @@
 PreprocessData = preprocess_client_data(Inflator, Data, State),
 lager:debug("FROM CLIENT: ~p", PreprocessData),
 
- {Lines, NewLastPartialLine} = split_lines(PreprocessData),
+ {Lines, NewLastPartialLine} = eimap_utils:split_lines(PreprocessData),
 {Acc, NewState} = process_lines(Socket, State#state{ buffered_client_data = <<>> }, Lines, ContinuationBytes, <<>>),
 #state{ buffered_client_data = DataToBuffer, continuation_bytes = NewContinuationBytes} = NewState,

guam-0.9.11.tar.gz/apps/kolab_guam/src/rules/kolab_guam_rule_filter_groupware.erl -> guam-0.9.12.tar.gz/apps/kolab_guam/src/rules/kolab_guam_rule_filter_groupware.erl Changed

@@ -77,22 +77,17 @@
 apply_if_found_kolab(0) -> true;
 apply_if_found_kolab(_) -> false.
 
-possibly_append_newline(<<>>) -> <<>> ;
-possibly_append_newline(Response) -> <<Response/binary, "\r\n">> .
-
 filter_folders(<<>>, State) ->
 { <<>>, State#state{ active = true } };
 filter_folders(Buffer, #state{ last_chunk = LeftOvers } = State) ->
 % Add the left overs from the previous buffer to the current buffer
 FullBuffer = <<LeftOvers/binary, Buffer/binary>>,
- % From that buffer, only take the complete lines and save off the remainder.
- { FullLinesBuffer, LastChunk } = eimap_utils:only_full_lines(FullBuffer),
- % Create a list so we can filter the individual folders
- ListResponses = binary:split(FullLinesBuffer, <<"\r\n">>, global ),
- { Response, More } = filter_folders(State, ListResponses, { <<>>, true }),
- %io:format("Filtered ... ~p~n", Response),
- %Note that the last list item does not contain \r\n, so that needs to be added unless we filtered the complete content.
- { possibly_append_newline(Response), State#state { active = More, last_chunk = LastChunk } }.
+
+ {FullLines, LastChunk} = eimap_utils:split_lines_with_literals(FullBuffer),
+
+ { Response, More } = filter_folders(State, FullLines, { <<>>, true }),
+
+ {<<Response/binary>>, State#state{ active = More, last_chunk = LastChunk}}.
 
 filter_folders(_State, , Return) -> Return;
 filter_folders(_State, _Folders, { Acc, false }) -> { Acc, false };
@@ -129,7 +124,7 @@
 { _Delimiter, Rest, _} = pop_token(binary:part(Details, Pos + 2, byte_size(Details) - Pos - 2)),
 Rest
 end,
- { Folder, _, _ } = pop_token(list_to_binary(Suffix, <<"\r\n">>)),
+ { Folder, _, _ } = pop_token(Suffix),
 
 %% Check the folder in blacklist
 %% io:format("COMPARING ~p ??? ~p~n", Folder, in_blacklist(Folder, Blacklist)),
@@ -139,7 +134,7 @@
 end.
 
 add_response(Response, <<>>) -> Response;
-add_response(Response, Acc) -> <<Acc/binary, "\r\n", Response/binary>>.
+add_response(Response, Acc) -> <<Acc/binary, Response/binary>>.
 
 in_blacklist(_Folder, undefined) -> false;
 in_blacklist(_Folder, ) -> false;

guam-0.9.11.tar.gz/apps/kolab_guam/test/kolab_guam_rules_SUITE.erl -> guam-0.9.12.tar.gz/apps/kolab_guam/test/kolab_guam_rules_SUITE.erl Changed

guam-0.9.11.tar.gz/apps/kolab_guam/test/kolab_guam_session_SUITE.erl -> guam-0.9.12.tar.gz/apps/kolab_guam/test/kolab_guam_session_SUITE.erl Changed

@@ -154,6 +154,29 @@
 continuation_bytes = 0
 }} = kolab_guam_session:process_client_data(Socket, <<"\r\n">>, IntermediateState8),
 
+ % 0 length literal
+ {<<"y1 APPEND INBOX {0}\r\n\r\n">>, #state{
+ server_config = ServerConfig,
+ buffered_client_data = <<>>,
+ current_command_split = {<<"y1">>,<<"APPEND">>,<<"INBOX {0}">>},
+ command_split_reset_trigger = reset_for_next_client_command
+ }} = kolab_guam_session:process_client_data(Socket, <<"y1 APPEND INBOX {0}\r\n\r\n">>, State#state{ rules_deciding = ActiveRules }),
+
+ % 0 length literal in two lines
+ {<<"y1 APPEND INBOX {0}\r\n">>, #state{
+ server_config = ServerConfig,
+ buffered_client_data = <<>>,
+ current_command_split = {<<"y1">>,<<"APPEND">>,<<"INBOX {0}">>},
+ command_split_reset_trigger = reset_for_next_client_command
+ } = IntermediateState9} = kolab_guam_session:process_client_data(Socket, <<"y1 APPEND INBOX {0}\r\n">>, State#state{ rules_deciding = ActiveRules }),
+
+ {<<"\r\n">>, #state{
+ server_config = ServerConfig,
+ buffered_client_data = <<>>, %This ensures we aren't buffering during the continuation
+ current_command_split = {<<"y1">>,<<"APPEND">>,<<"INBOX {0}">>},
+ command_split_reset_trigger = reset_for_next_client_command,
+ continuation_bytes = 0
+ }} = kolab_guam_session:process_client_data(Socket, <<"\r\n">>, IntermediateState9),
 
 % Don't activate filtering
 {<<"y1 ID (\"name\" \"Test/KOLAB\")\r\n">>, #state{

guam-0.9.12.tar.gz/cache Added

guam-0.9.12.tar.gz/cache/rebar3 Added

guam-0.9.12.tar.gz/cache/rebar3/hex Added

guam-0.9.12.tar.gz/cache/rebar3/hex/default Added

guam-0.9.12.tar.gz/cache/rebar3/hex/default/packages Added

guam-0.9.12.tar.gz/cache/rebar3/hex/default/packages.idx Added

guam-0.9.12.tar.gz/cache/rebar3/hex/default/packages/goldrush-0.1.9.tar Added

guam-0.9.12.tar.gz/cache/rebar3/hex/default/packages/lager-3.2.4.tar Added

guam-0.9.12.tar.gz/cache/rebar3/hex/default/registry Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages/goldrush-0.1.9.etag Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages/goldrush-0.1.9.tar Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages/lager-3.8.0.etag Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages/lager-3.8.0.tar Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages/lager-3.9.2.etag Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages/lager-3.9.2.tar Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages/pc-1.13.0.etag Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages/pc-1.13.0.tar Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages/pc-1.14.0.etag Added

guam-0.9.12.tar.gz/cache/rebar3/hex/hexpm/packages/pc-1.14.0.tar Added

guam-0.9.12.tar.gz/cache/rebar3/hex/packages.idx Added

guam-0.9.11.tar.gz/rebar.config -> guam-0.9.12.tar.gz/rebar.config Changed

@@ -10,8 +10,10 @@
 }.
 { deps, 
     lager,
-    { lager_syslog, "3.*", { git, "git://github.com/basho/lager_syslog.git", { tag, "3.0.1" } } },
-    { eimap, ".*", { git, "https://git.kolab.org/diffusion/EI/eimap.git", { tag, "0.3.0" } } }
+    % We pull in syslog to adjust the git url. It's just a dependency of lager_syslog
+    {'syslog', "1.0.*", {git, "https://github.com/Vagabond/erlang-syslog", {branch, "master"} } },
+    { lager_syslog, "3.*", { git, "https://github.com/basho/lager_syslog.git", { tag, "3.0.1" } } },
+    { eimap, ".*", { git, "https://git.kolab.org/diffusion/EI/eimap.git", { tag, "0.4.6" } } }
     %% pull in the proper version of meck before jobs 0.3 gets around to pulling in the wrong version
    
 }.
@@ -23,7 +25,7 @@
 { eunit_opts, verbose, {skip_deps, true } }.
 { eunit_exclude_deps, true }.
 { cover_enabled, true }.
-{ relx,  { release, { guam, "0.9.11" }, kolab_guam},
+{ relx,  { release, { guam, "0.9.12" }, kolab_guam},
                 { dev_mode, false },
                 { include_erts, false },
                 { extended_start_script, true },

guam.dsc Changed

Build Results
RPM Lint

Refresh

Submit package home:mollekopf:b...Kolab:Winterfell / kolab to package Kolab:16:Testing / kolab

kolab.spec Changed

Build Results
RPM Lint

Refresh

Submit package home:molleko...:Winterfell / kolab-autoconf to package Kolab:16:Testing / kolab-autoconf

kolab-autoconf.spec Changed

kolab-autoconf-1.3.4.tar.gz/composer.json Deleted

kolab-autoconf-1.3.4.tar.gz/lib/Autodiscover.php Changed

kolab-autoconf-1.3.4.tar.gz/public_html/index.php Changed

Build Results
RPM Lint

Refresh

Submit package home:molleko...:Winterfell / kolab-freebusy to package Kolab:16:Testing / kolab-freebusy

kolab-freebusy.spec Changed

@@ -35,9 +35,7 @@
 
 BuildArch: noarch
 
-%if 0%{?rhel} < 8 || 0%{?fedora}
 BuildRequires: composer
-%endif
 %if 0%{?fedora}
 # fix issue:
 # have choice for php-composer(justinrainbow/json-schema) >= 2.0 needed by composer: php-justinrainbow-json-schema4 php-justinrainbow-json-schema
@@ -45,12 +43,11 @@
 BuildRequires: php-justinrainbow-json-schema4
 %endif
 
-%if 0%{?rhel} < 8 || 0%{?fedora}
 BuildRequires: php-Monolog
 BuildRequires: php-sabre-dav >= 2.1.3
-%endif
 BuildRequires: roundcubemail(core)
-BuildRequires: roundcubemail-plugins-kolab
+BuildRequires: roundcubemail-plugin-libcalendaring
+BuildRequires: roundcubemail-plugin-libkolab
 
 %if 0%{?suse_version}
 Requires: http_daemon
@@ -60,16 +57,17 @@
 Requires: php-common >= 5.3
 %endif
 
-Requires: kolab-utils
 Requires: logrotate
-%if 0%{?rhel} < 8 || 0%{?fedora}
+%if 0%{?plesk}
+%else
 Requires: php-ldap
-Requires: php-Monolog
 Requires: php-kolab-net-ldap3
-Requires: php-sabre-dav >= 2.1.3
 %endif
+Requires: php-Monolog
+Requires: php-sabre-dav >= 2.1.3
 Requires: roundcubemail(core)
-Requires: roundcubemail-plugins-kolab
+BuildRequires: roundcubemail-plugin-libcalendaring
+BuildRequires: roundcubemail-plugin-libkolab
 
 %if 0%{?fedora} >= 21
 # Fedora 21 has qca2 and qca, qca2 has been renamed to qca, required by kdelibs
@@ -84,7 +82,6 @@
 %setup -q
 
 %build
-%if 0%{?rhel} < 8 || 0%{?fedora}
 rm -rf composer.json
 mv composer.json-dist composer.json
 mkdir -p $HOME/.composer/
@@ -94,7 +91,6 @@
 export USE_ZEND_ALLOC=0
 %endif
 composer -vvv dumpautoload --optimize
-%endif
 
 %install
 mkdir -p \
@@ -122,9 +118,7 @@
 popd
 
 cp -a public_html %{buildroot}/%{_datadir}/%{name}/public_html
-%if 0%{?rhel} < 8
 cp -a vendor %{buildroot}/%{_datadir}/%{name}/vendor
-%endif
 
 cp -a config/config.ini.sample %{buildroot}/%{_sysconfdir}/%{name}/config.ini

debian.control Changed

Build Results
RPM Lint

Refresh

Submit package home:mollekopf:...lab:Winterfell / libkolab to package Kolab:16:Testing / libkolab

libkolab.spec Changed

@@ -200,6 +200,26 @@
 
 %description -n plesk-php74-kolab
 libkolab bindings for Plesk's PHP 7.4
+
+%package -n plesk-php80-kolab
+Summary: libkolab bindings for Plesk's PHP 8.0
+Group: System Environment/Libraries
+Provides: php-bindings(libkolab) = %{version}-%{release}
+Requires: libkolab%{?_isa} = %{version}
+Requires: plesk-php80
+
+%description -n plesk-php80-kolab
+libkolab bindings for Plesk's PHP 8.0
+
+%package -n plesk-php81-kolab
+Summary: libkolab bindings for Plesk's PHP 8.1
+Group: System Environment/Libraries
+Provides: php-bindings(libkolab) = %{version}-%{release}
+Requires: libkolab%{?_isa} = %{version}
+Requires: plesk-php81
+
+%description -n plesk-php81-kolab
+libkolab bindings for Plesk's PHP 8.1
 %endif
 
 %package -n python-kolab
@@ -254,6 +274,12 @@
 
 cp -a libkolab-%{version} libkolab-%{version}-7.4
 sed -i "s/-php/-php7/g" libkolab-%{version}-7.4/cmake/modules/SWIGUtils.cmake
+
+cp -a libkolab-%{version} libkolab-%{version}-8.0
+sed -i "s/-php/-php7/g" libkolab-%{version}-8.0/cmake/modules/SWIGUtils.cmake
+
+cp -a libkolab-%{version} libkolab-%{version}-8.1
+sed -i "s/-php/-php7/g" libkolab-%{version}-8.1/cmake/modules/SWIGUtils.cmake
 %endif
 
 %if 0%{?with_php7}
@@ -263,7 +289,7 @@
 %endif
 
 %if 0%{?with_python}
-cp -a libkolab-%{version} libkolab-%{version}-python
+cp -a libkolab-%{version} libkolab-%{version}-python2
 %endif
 
 %if 0%{?with_python3}
@@ -313,7 +339,7 @@
 popd
 
 %if 0%{with_python}
- pushd %{name}-%{version}-python
+ pushd %{name}-%{version}-python2
 rm -rf build
 mkdir -p build
 pushd build
@@ -365,9 +391,9 @@
 
 %if 0%{?plesk}
 %if 0%{?rhel} < 8 || 0%{?fedora}
-for version in 5.6 7.0 7.1 7.2 7.3 7.4; do
+for version in 5.6 7.0 7.1 7.2 7.3 7.4 8.0 8.1; do
 %else
-for version in 7.1 7.2 7.3 7.4; do
+for version in 7.1 7.2 7.3 7.4 8.0 8.1; do
 %endif
 pushd %{name}-%{version}-${version}
 rm -rf build
@@ -422,9 +448,9 @@
 
 %if 0%{?plesk}
 %if 0%{?rhel} < 8 || 0%{?fedora}
-for version in 5.6 7.0 7.1 7.2 7.3 7.4; do
+for version in 5.6 7.0 7.1 7.2 7.3 7.4 8.0 8.1; do
 %else
-for version in 7.1 7.2 7.3 7.4; do
+for version in 7.1 7.2 7.3 7.4 8.0 8.1; do
 %endif
 pushd %{name}-%{version}-${version}
 pushd build
@@ -456,7 +482,7 @@
 %endif
 
 %if 0%{?with_python}
-pushd %{name}-%{version}-python
+pushd %{name}-%{version}-python2
 pushd build
 make install DESTDIR=%{buildroot} INSTALL='install -p'
 popd
@@ -561,6 +587,20 @@
 /opt/plesk/php/7.4/share/php/*.php
 /opt/plesk/php/7.4/etc/php.d/*.ini
 /opt/plesk/php/7.4/etc/php-fpm.d/*.ini
+
+%files -n plesk-php80-kolab
+%defattr(-,root,root,-)
+/opt/plesk/php/8.0/lib64/php/modules/*.so
+/opt/plesk/php/8.0/share/php/*.php
+/opt/plesk/php/8.0/etc/php.d/*.ini
+/opt/plesk/php/8.0/etc/php-fpm.d/*.ini
+
+%files -n plesk-php81-kolab
+%defattr(-,root,root,-)
+/opt/plesk/php/8.1/lib64/php/modules/*.so
+/opt/plesk/php/8.1/share/php/*.php
+/opt/plesk/php/8.1/etc/php.d/*.ini
+/opt/plesk/php/8.1/etc/php-fpm.d/*.ini
 %endif
 
 %if 0%{?with_python} > 0

Build Results
RPM Lint

Refresh

Submit package home:mollekop...ab:Winterfell / libkolabxml to package Kolab:16:Testing / libkolabxml

libkolabxml.spec Changed

@@ -4,6 +4,9 @@
 #!BuildIgnore:	httpd
 %endif
 
+# The cmake macro changed to build out of source by default, which breaks our own out of source build, so disable that.
+%define __cmake_in_source_build 1
+
 %{?!mono_arches: %global mono_arches %{ix86} x86_64 sparc sparcv9 ia64 %{arm} alpha s390x ppc ppc64}
 
 %ifarch %{mono_arches}
@@ -338,6 +341,27 @@
 
 %description -n plesk-php74-kolabformat
 libkolabxml bindings for Plesk's PHP 7.4
+
+%package -n plesk-php80-kolabformat
+Summary: libkolabxml bindings for Plesk's PHP 8.0
+Group: System Environment/Libraries
+Provides: php-bindings(libkolabxml) = %{version}-%{release}
+Requires: libkolabxml%{?_isa} = %{version}
+Requires: plesk-php80
+
+%description -n plesk-php80-kolabformat
+libkolabxml bindings for Plesk's PHP 8.0
+
+%package -n plesk-php81-kolabformat
+Summary: libkolabxml bindings for Plesk's PHP 8.1
+Group: System Environment/Libraries
+Provides: php-bindings(libkolabxml) = %{version}-%{release}
+Requires: libkolabxml%{?_isa} = %{version}
+Requires: plesk-php81
+
+%description -n plesk-php81-kolabformat
+libkolabxml bindings for Plesk's PHP 8.1
+
 %endif # if 0%{?plesk}
 
 %if 0%{?with_python} > 0
@@ -404,6 +428,12 @@
 
 cp -a libkolabxml-%{version} libkolabxml-%{version}-7.4
 sed -i "s/-php/-php7/g" libkolabxml-%{version}-7.4/src/php/CMakeLists.txt
+
+cp -a libkolabxml-%{version} libkolabxml-%{version}-8.0
+sed -i "s/-php/-php8/g" libkolabxml-%{version}-8.0/src/php/CMakeLists.txt
+
+cp -a libkolabxml-%{version} libkolabxml-%{version}-8.1
+sed -i "s/-php/-php8/g" libkolabxml-%{version}-8.1/src/php/CMakeLists.txt
 %endif
 
 %if 0%{?with_php7}
@@ -434,6 +464,8 @@
 cp %{name}-%{version}/tztable.h %{name}-%{version}-7.2/.
 cp %{name}-%{version}/tztable.h %{name}-%{version}-7.3/.
 cp %{name}-%{version}/tztable.h %{name}-%{version}-7.4/.
+cp %{name}-%{version}/tztable.h %{name}-%{version}-8.0/.
+cp %{name}-%{version}/tztable.h %{name}-%{version}-8.1/.
 %endif
 %if 0%{?with_python3} > 0
 cp %{name}-%{version}/tztable.h %{name}-%{version}-python3/.
@@ -464,8 +496,6 @@
 %endif
 -DBUILD_SHARED_LIBS:BOOL=ON \
 %else # if 0${?suse_version}
-# The cmake macro changed to build out of source by default, which breaks our own out of source build, so disable that.
-%define __cmake_in_source_build 1
 %cmake \
 %endif
 -DBoost_NO_BOOST_CMAKE=TRUE \
@@ -524,9 +554,9 @@
 
 %if 0%{?plesk}
 %if 0%{?rhel} < 8 || 0%{?fedora}
-for version in 5.6 7.0 7.1 7.2 7.3 7.4; do
+for version in 5.6 7.0 7.1 7.2 7.3 7.4 8.0 8.1; do
 %else
-for version in 7.1 7.2 7.3 7.4; do
+for version in 7.1 7.2 7.3 7.4 8.0 8.1; do
 %endif
 pushd %{name}-%{version}-${version}
 rm -rf build
@@ -582,9 +612,9 @@
 
 %if 0%{?plesk}
 %if 0%{?rhel} < 8 || 0%{?fedora}
-for version in 5.6 7.0 7.1 7.2 7.3 7.4; do
+for version in 5.6 7.0 7.1 7.2 7.3 7.4 8.0 8.1; do
 %else
-for version in 7.1 7.2 7.3 7.4; do
+for version in 7.1 7.2 7.3 7.4 8.0 8.1; do
 %endif
 pushd %{name}-%{version}-${version}
 pushd build
@@ -633,9 +663,9 @@
 
 %if 0%{?plesk}
 %if 0%{?rhel} < 8 || 0%{?fedora}
-for version in 5.6 7.0 7.1 7.2 7.3 7.4; do
+for version in 5.6 7.0 7.1 7.2 7.3 7.4 8.0 8.1; do
 %else
-for version in 7.1 7.2 7.3 7.4; do
+for version in 7.1 7.2 7.3 7.4 8.0 8.1; do
 %endif
 pushd %{name}-%{version}-${version}/build/
 export LD_LIBRARY_PATH=$( pwd )/src/
@@ -732,6 +762,20 @@
 /opt/plesk/php/7.4/etc/php.d/kolabformat.ini
 /opt/plesk/php/7.4/etc/php-fpm.d/kolabformat.ini
 
+%files -n plesk-php80-kolabformat
+%defattr(-,root,root,-)
+/opt/plesk/php/8.0/lib64/php/modules/kolabformat.so
+/opt/plesk/php/8.0/share/php/kolabformat.php
+/opt/plesk/php/8.0/etc/php.d/kolabformat.ini
+/opt/plesk/php/8.0/etc/php-fpm.d/kolabformat.ini
+
+%files -n plesk-php81-kolabformat
+%defattr(-,root,root,-)
+/opt/plesk/php/8.1/lib64/php/modules/kolabformat.so
+/opt/plesk/php/8.1/share/php/kolabformat.php
+/opt/plesk/php/8.1/etc/php.d/kolabformat.ini
+/opt/plesk/php/8.1/etc/php-fpm.d/kolabformat.ini
+
 %endif # if 0%{?plesk}
 
 %endif # if 0%{?with_php}

Build Results
RPM Lint

Refresh

Submit package home:mollekopf:br...:Kolab:Winterfell / php to package Kolab:16:Testing / php

php.spec Added

@@ -0,0 +1,3550 @@
+# Fedora spec file for php
+#
+# License: MIT
+# http://opensource.org/licenses/MIT
+#
+# Please preserve changelog entries
+#
+
+# API/ABI check
+%global apiver 20210902
+%global zendver 20210902
+%global pdover 20170320
+
+# we don't want -z defs linker flag
+%undefine _strict_symbol_defs_build
+
+# Adds -z now to the linker flags
+%global _hardened_build 1
+
+# version used for php embedded library soname
+%global embed_version 8.1
+
+%global mysql_sock %(mysql_config --socket 2>/dev/null || echo /var/lib/mysql/mysql.sock)
+
+# Regression tests take a long time, you can skip 'em with this
+#global runselftest 0
+%{!?runselftest: %global runselftest 1}
+
+# Use the arch-specific mysql_config binary to avoid mismatch with the
+# arch detection heuristic used by bindir/mysql_config.
+%global mysql_config %{_libdir}/mysql/mysql_config
+
+# needed at srpm build time, when httpd-devel not yet installed
+%{!?_httpd_mmn: %{expand: %%global _httpd_mmn %%(cat %{_includedir}/httpd/.mmn 2>/dev/null || echo 0-0)}}
+
+%if 0%{?fedora}
+# Enabled by default on Fedora
+%bcond_without zts
+%ifarch s390x
+# https://bugzilla.redhat.com/show_bug.cgi?id=1969393
+# firebird have ExcludeArch: s390x
+%bcond_with firebird
+%else
+%bcond_without firebird
+%endif
+%bcond_without freetds
+%bcond_without sodium
+%bcond_without pspell
+%bcond_without tidy
+%bcond_without db4
+%bcond_without qdbm
+%else
+# Disabled by default on RHEL
+%bcond_with zts
+%bcond_with firebird
+%bcond_with freetds
+%bcond_with sodium
+%bcond_with pspell
+%bcond_with tidy
+%bcond_with db4
+%bcond_with qdbm
+%endif
+%bcond_with modphp
+%bcond_with imap
+%bcond_without lmdb
+
+%global upver 8.1.9
+#global rcver RC1
+
+Summary: PHP scripting language for creating dynamic web sites
+Name: php
+Version: %{upver}%{?rcver:~%{rcver}}
+Release: 1%{?dist}
+# All files licensed under PHP version 3.01, except
+# Zend is licensed under Zend
+# TSRM is licensed under BSD
+# main/snprintf.c, main/spprintf.c and main/rfc1867.c are ASL 1.0
+# ext/date/lib is MIT
+# Zend/zend_sort is NCSA
+# Zend/asm is Boost
+License: PHP and Zend and BSD and MIT and ASL 1.0 and NCSA and Boost
+URL: http://www.php.net/
+
+Source0: https://www.php.net/distributions/php-%{upver}%{?rcver}.tar.xz
+Source1: php.conf
+Source2: php.ini
+Source3: macros.php
+Source4: php-fpm.conf
+Source5: php-fpm-www.conf
+Source6: php-fpm.service
+Source7: php-fpm.logrotate
+Source9: php.modconf
+Source12: php-fpm.wants
+Source13: nginx-fpm.conf
+Source14: nginx-php.conf
+# See https://secure.php.net/gpg-keys.php
+Source20: https://www.php.net/distributions/php-keyring.gpg
+Source21: https://www.php.net/distributions/php-%{upver}%{?rcver}.tar.xz.asc
+# Configuration files for some extensions
+Source50: 10-opcache.ini
+Source51: opcache-default.blacklist
+Source53: 20-ffi.ini
+
+# Build fixes
+Patch1: php-7.4.0-httpd.patch
+Patch5: php-7.2.0-includedir.patch
+Patch6: php-8.0.0-embed.patch
+Patch8: php-8.1.0-libdb.patch
+
+# Functional changes
+# Use system nikic/php-parser
+Patch41: php-8.1.0-parser.patch
+# use system tzdata
+Patch42: php-8.1.0-systzdata-v22.patch
+# See http://bugs.php.net/53436
+Patch43: php-7.4.0-phpize.patch
+# Use -lldap_r for OpenLDAP
+Patch45: php-7.4.0-ldap_r.patch
+# drop "Configure command" from phpinfo output
+# and only use gcc (instead of full version)
+Patch47: php-8.1.0-phpinfo.patch
+
+# Upstream fixes (100+)
+
+# Security fixes (200+)
+
+# Fixes for tests (300+)
+# Factory is droped from system tzdata
+Patch300: php-7.4.0-datetests.patch
+
+
+BuildRequires: gnupg2
+BuildRequires: bzip2-devel
+BuildRequires: pkgconfig(libcurl) >= 7.29.0
+BuildRequires: httpd-devel >= 2.0.46-1
+BuildRequires: pam-devel
+# to ensure we are using httpd with filesystem feature (see #1081453)
+BuildRequires: httpd-filesystem
+# to ensure we are using nginx with filesystem feature (see #1142298)
+BuildRequires: nginx-filesystem
+BuildRequires: libstdc++-devel
+# no pkgconfig to avoid compat-openssl10
+BuildRequires: openssl-devel >= 1.0.2
+BuildRequires: pkgconfig(sqlite3) >= 3.7.4
+BuildRequires: pkgconfig(zlib) >= 1.2.0.4
+BuildRequires: smtpdaemon
+BuildRequires: pkgconfig(libedit)
+BuildRequires: pkgconfig(libpcre2-8) >= 10.30
+BuildRequires: pkgconfig(libxcrypt)
+BuildRequires: bzip2
+BuildRequires: perl-interpreter
+BuildRequires: autoconf
+BuildRequires: automake
+BuildRequires: make
+BuildRequires: gcc
+BuildRequires: gcc-c++
+BuildRequires: libtool
+BuildRequires: libtool-ltdl-devel
+BuildRequires: systemtap-sdt-devel
+# used for tests
+BuildRequires: %{_bindir}/ps
+BuildRequires: tzdata
+
+%if %{with zts}
+Provides: php-zts = %{version}-%{release}
+Provides: php-zts%{?_isa} = %{version}-%{release}
+%endif
+
+%if %{with modphp}
+Requires: httpd-mmn = %{_httpd_mmn}
+Provides: mod_php = %{version}-%{release}
+# To ensure correct /var/lib/php/session ownership:
+Requires(pre): httpd-filesystem
+# php engine for Apache httpd webserver
+Provides: php(httpd)
+# mod_php is deprecated, no package should requires php or mod_php
+# all packages must requires used SAPI (cli, fpm, embded..)
+# and used extrensions (mysqli, mbstring, xmlwriter...)
+Provides: deprecated()
+%else
+# preserve old behavior
+Recommends: httpd
+%endif
+Requires: php-common%{?_isa} = %{version}-%{release}
+# For backwards-compatibility, pull the "php" command
+Recommends: php-cli%{?_isa} = %{version}-%{release}
+# httpd have threaded MPM by default
+Recommends: php-fpm%{?_isa} = %{version}-%{release}
+# as "php" is now mostly a meta-package, commonly used extensions
+# reduce diff with "dnf module install php"
+Recommends: php-mbstring%{?_isa} = %{version}-%{release}
+Recommends: php-opcache%{?_isa} = %{version}-%{release}
+Recommends: php-pdo%{?_isa} = %{version}-%{release}
+%if %{with sodium}
+Recommends: php-sodium%{?_isa} = %{version}-%{release}
+%endif
+Recommends: php-xml%{?_isa} = %{version}-%{release}
+
+
+%description
+PHP is an HTML-embedded scripting language. PHP attempts to make it
+easy for developers to write dynamically generated web pages. PHP also
+offers built-in database integration for several commercial and
+non-commercial database management systems, so writing a
+database-enabled webpage with PHP is fairly simple. The most common
+use of PHP coding is probably as a replacement for CGI scripts.
+%if %{with modphp}
+The php package contains the module (often referred to as mod_php)
+which adds support for the PHP language to Apache HTTP Server when
+running in prefork mode. This module is deprecated.
+%endif
+
+%package cli
+Summary: Command-line interface for PHP
+# sapi/cli/ps_title.c is PostgreSQL
+License: PHP and Zend and BSD and MIT and ASL 1.0 and NCSA and PostgreSQL
+Requires: php-common%{?_isa} = %{version}-%{release}
+Provides: php-cgi = %{version}-%{release}, php-cgi%{?_isa} = %{version}-%{release}
+Provides: php-pcntl, php-pcntl%{?_isa}
+Provides: php-readline, php-readline%{?_isa}
+
+%description cli
+The php-cli package contains the command-line interface
+executing PHP scripts, /usr/bin/php, and the CGI interface.
+
+
+%package dbg
+Summary: The interactive PHP debugger
+Requires: php-common%{?_isa} = %{version}-%{release}
+
+%description dbg
+The php-dbg package contains the interactive PHP debugger.
+
+
+%package fpm
+Summary: PHP FastCGI Process Manager
+BuildRequires: libacl-devel
+BuildRequires: pkgconfig(libsystemd) >= 209
+Requires: php-common%{?_isa} = %{version}-%{release}
+%{?systemd_requires}
+# To ensure correct /var/lib/php/session ownership:
+Requires(pre): httpd-filesystem
+# For php.conf in /etc/httpd/conf.d
+# and version 2.4.10 for proxy support in SetHandler
+Requires: httpd-filesystem >= 2.4.10
+# php engine for Apache httpd webserver
+Provides: php(httpd)
+# for /etc/nginx ownership
+Requires: nginx-filesystem
+
+%description fpm
+PHP-FPM (FastCGI Process Manager) is an alternative PHP FastCGI
+implementation with some additional features useful for sites of
+any size, especially busier sites.
+
+%package common
+Summary: Common files for PHP
+# All files licensed under PHP version 3.01, except
+# fileinfo is licensed under PHP version 3.0
+# regex, libmagic are licensed under BSD
+License: PHP and BSD
+# ABI/API check - Arch specific
+Provides: php(api) = %{apiver}-%{__isa_bits}
+Provides: php(zend-abi) = %{zendver}-%{__isa_bits}
+Provides: php(language) = %{version}, php(language)%{?_isa} = %{version}
+# Provides for all builtin/shared modules:
+Provides: php-bz2, php-bz2%{?_isa}
+Provides: php-calendar, php-calendar%{?_isa}
+Provides: php-core = %{version}, php-core%{?_isa} = %{version}
+Provides: php-ctype, php-ctype%{?_isa}
+Provides: php-curl, php-curl%{?_isa}
+Provides: php-date, php-date%{?_isa}
+Provides: bundled(timelib)
+Provides: php-exif, php-exif%{?_isa}
+Provides: php-fileinfo, php-fileinfo%{?_isa}
+Provides: bundled(libmagic) = 5.29
+Provides: php-filter, php-filter%{?_isa}
+Provides: php-ftp, php-ftp%{?_isa}
+Provides: php-gettext, php-gettext%{?_isa}
+Provides: php-hash, php-hash%{?_isa}
+Provides: php-mhash = %{version}, php-mhash%{?_isa} = %{version}
+Provides: php-iconv, php-iconv%{?_isa}
+Obsoletes: php-json < 8
+Provides: php-json = %{version}, php-json%{?_isa} = %{version}
+Provides: php-libxml, php-libxml%{?_isa}
+Provides: php-openssl, php-openssl%{?_isa}
+Provides: php-phar, php-phar%{?_isa}
+Provides: php-pcre, php-pcre%{?_isa}
+Provides: php-reflection, php-reflection%{?_isa}
+Provides: php-session, php-session%{?_isa}
+Provides: php-sockets, php-sockets%{?_isa}
+Provides: php-spl, php-spl%{?_isa}
+Provides: php-standard = %{version}, php-standard%{?_isa} = %{version}
+Provides: php-tokenizer, php-tokenizer%{?_isa}
+Provides: php-zlib, php-zlib%{?_isa}
+
+%description common
+The php-common package contains files used by both the php
+package and the php-cli package.
+
+%package devel
+Summary: Files needed for building PHP extensions
+Requires: php-cli%{?_isa} = %{version}-%{release}
+# always needed to build extension
+Requires: autoconf
+Requires: automake
+Requires: make
+Requires: gcc
+Requires: gcc-c++
+Requires: libtool
+# see "php-config --libs"
+Requires: krb5-devel%{?_isa}
+Requires: libxml2-devel%{?_isa}
+Requires: openssl-devel%{?_isa} >= 1.0.2
+Requires: pcre2-devel%{?_isa}
+Requires: zlib-devel%{?_isa}
+%if %{with zts}
+Provides: php-zts-devel = %{version}-%{release}
+Provides: php-zts-devel%{?_isa} = %{version}-%{release}
+%endif
+Recommends: php-nikic-php-parser4 >= 4.13.0
+
+
+%description devel
+The php-devel package contains the files needed for building PHP
+extensions. If you need to compile your own PHP extensions, you will
+need to install this package.
+
+%package opcache
+Summary: The Zend OPcache
+License: PHP
+Requires: php-common%{?_isa} = %{version}-%{release}
+Provides: php-pecl-zendopcache = %{version}
+Provides: php-pecl-zendopcache%{?_isa} = %{version}
+Provides: php-pecl(opcache) = %{version}
+Provides: php-pecl(opcache)%{?_isa} = %{version}
+
+%description opcache
+The Zend OPcache provides faster PHP execution through opcode caching and
+optimization. It improves PHP performance by storing precompiled script
+bytecode in the shared memory. This eliminates the stages of reading code from
+the disk and compiling it on future access. In addition, it applies a few
+bytecode optimization patterns that make code execution faster.
+
+%if %{with imap}
+%package imap
+Summary: A module for PHP applications that use IMAP
+# All files licensed under PHP version 3.01
+License: PHP
+Requires: php-common%{?_isa} = %{version}-%{release}
+BuildRequires: pkgconfig(krb5)
+BuildRequires: pkgconfig(krb5-gssapi)
+BuildRequires: openssl-devel >= 1.0.2
+BuildRequires: libc-client-devel
+
+%description imap
+The php-imap module will add IMAP (Internet Message Access Protocol)
+support to PHP. IMAP is a protocol for retrieving and uploading e-mail
+messages on mail servers. PHP is an HTML-embedded scripting language.
+%endif
+
+%package ldap
+Summary: A module for PHP applications that use LDAP
+# All files licensed under PHP version 3.01
+License: PHP
+Requires: php-common%{?_isa} = %{version}-%{release}
+BuildRequires: pkgconfig(libsasl2)
+BuildRequires: openldap-devel
+BuildRequires: openssl-devel >= 1.0.2
+
+%description ldap
+The php-ldap adds Lightweight Directory Access Protocol (LDAP)
+support to PHP. LDAP is a set of protocols for accessing directory
+services over the Internet. PHP is an HTML-embedded scripting
+language.
+
+%package pdo
+Summary: A database access abstraction module for PHP applications
+# All files licensed under PHP version 3.01
+License: PHP
+Requires: php-common%{?_isa} = %{version}-%{release}
+# ABI/API check - Arch specific
+Provides: php-pdo-abi = %{pdover}-%{__isa_bits}
+Provides: php(pdo-abi) = %{pdover}-%{__isa_bits}
+Provides: php-sqlite3, php-sqlite3%{?_isa}
+Provides: php-pdo_sqlite, php-pdo_sqlite%{?_isa}
+
+%description pdo
+The php-pdo package contains a dynamic shared object that will add
+a database access abstraction layer to PHP. This module provides
+a common interface for accessing MySQL, PostgreSQL or other
+databases.
+
+%package mysqlnd
+Summary: A module for PHP applications that use MySQL databases
+# All files licensed under PHP version 3.01
+License: PHP
+Requires: php-pdo%{?_isa} = %{version}-%{release}
+Provides: php_database
+Provides: php-mysqli = %{version}-%{release}
+Provides: php-mysqli%{?_isa} = %{version}-%{release}
+Provides: php-pdo_mysql, php-pdo_mysql%{?_isa}
+
+%description mysqlnd
+The php-mysqlnd package contains a dynamic shared object that will add
+MySQL database support to PHP. MySQL is an object-relational database
+management system. PHP is an HTML-embeddable scripting language. If
+you need MySQL support for PHP applications, you will need to install
+this package and the php package.
+
+This package use the MySQL Native Driver
+
+%package pgsql
+Summary: A PostgreSQL database module for PHP
+# All files licensed under PHP version 3.01
+License: PHP
+Requires: php-pdo%{?_isa} = %{version}-%{release}
+Provides: php_database
+Provides: php-pdo_pgsql, php-pdo_pgsql%{?_isa}
+BuildRequires: krb5-devel
+BuildRequires: openssl-devel >= 1.0.2
+BuildRequires: libpq-devel
+
+%description pgsql
+The php-pgsql package add PostgreSQL database support to PHP.
+PostgreSQL is an object-relational database management
+system that supports almost all SQL constructs. PHP is an
+HTML-embedded scripting language. If you need back-end support for
+PostgreSQL, you should install this package in addition to the main
+php package.
+
+%package process
+Summary: Modules for PHP script using system process interfaces
+# All files licensed under PHP version 3.01
+License: PHP
+Requires: php-common%{?_isa} = %{version}-%{release}
+Provides: php-posix, php-posix%{?_isa}
+Provides: php-shmop, php-shmop%{?_isa}
+Provides: php-sysvsem, php-sysvsem%{?_isa}
+Provides: php-sysvshm, php-sysvshm%{?_isa}
+Provides: php-sysvmsg, php-sysvmsg%{?_isa}
+
+%description process
+The php-process package contains dynamic shared objects which add
+support to PHP using system interfaces for inter-process
+communication.
+
+%package odbc
+Summary: A module for PHP applications that use ODBC databases
+# All files licensed under PHP version 3.01, except
+# pdo_odbc is licensed under PHP version 3.0
+License: PHP
+Requires: php-pdo%{?_isa} = %{version}-%{release}
+Provides: php_database
+Provides: php-pdo_odbc, php-pdo_odbc%{?_isa}
+BuildRequires: unixODBC-devel
+
+%description odbc
+The php-odbc package contains a dynamic shared object that will add
+database support through ODBC to PHP. ODBC is an open specification
+which provides a consistent API for developers to use for accessing
+data sources (which are often, but not always, databases). PHP is an
+HTML-embeddable scripting language. If you need ODBC support for PHP
+applications, you will need to install this package and the php
+package.
+
+%package soap
+Summary: A module for PHP applications that use the SOAP protocol
+# All files licensed under PHP version 3.01
+License: PHP
+Requires: php-common%{?_isa} = %{version}-%{release}
+BuildRequires: pkgconfig(libxml-2.0)
+
+%description soap
+The php-soap package contains a dynamic shared object that will add
+support to PHP for using the SOAP web services protocol.
+
+%if %{with firebird}
+%package pdo-firebird
+Summary: PDO driver for Interbase/Firebird databases
+# All files licensed under PHP version 3.01
+License: PHP
+# for fb_config command
+BuildRequires: firebird-devel
+Requires: php-pdo%{?_isa} = %{version}-%{release}
+Provides: php_database
+Provides: php-pdo_firebird, php-pdo_firebird%{?_isa}
+
+%description pdo-firebird
+The php-pdo-firebird package contains the PDO driver for
+Interbase/Firebird databases.
+%endif
+
+%package snmp
+Summary: A module for PHP applications that query SNMP-managed devices
+# All files licensed under PHP version 3.01
+License: PHP
+Requires: php-common%{?_isa} = %{version}-%{release}, net-snmp
+BuildRequires: net-snmp-devel
+
+%description snmp
+The php-snmp package contains a dynamic shared object that will add
+support for querying SNMP devices to PHP. PHP is an HTML-embeddable
+scripting language. If you need SNMP support for PHP applications, you
+will need to install this package and the php package.
+
+%package xml
+Summary: A module for PHP applications which use XML
+# All files licensed under PHP version 3.01
+License: PHP
+Requires: php-common%{?_isa} = %{version}-%{release}
+Provides: php-dom, php-dom%{?_isa}
+Provides: php-domxml, php-domxml%{?_isa}
+Provides: php-simplexml, php-simplexml%{?_isa}
+Provides: php-xmlreader, php-xmlreader%{?_isa}
+Provides: php-xmlwriter, php-xmlwriter%{?_isa}
+Provides: php-xsl, php-xsl%{?_isa}
+BuildRequires: pkgconfig(libxslt) >= 1.1
+BuildRequires: pkgconfig(libexslt)
+BuildRequires: pkgconfig(libxml-2.0) >= 2.7.6
+
+%description xml
+The php-xml package contains dynamic shared objects which add support
+to PHP for manipulating XML documents using the DOM tree,
+and performing XSL transformations on XML documents.
+
+%package mbstring
+Summary: A module for PHP applications which need multi-byte string handling
+# All files licensed under PHP version 3.01, except
+# libmbfl is licensed under LGPLv2
+# ucgendat is licensed under OpenLDAP
+License: PHP and LGPLv2 and OpenLDAP
+BuildRequires: pkgconfig(oniguruma) >= 6.8
+Provides: bundled(libmbfl) = 1.3.2
+Requires: php-common%{?_isa} = %{version}-%{release}
+
+%description mbstring
+The php-mbstring package contains a dynamic shared object that will add
+support for multi-byte string handling to PHP.
+
+%package gd
+Summary: A module for PHP applications for using the gd graphics library
+# All files licensed under PHP version 3.01
+License: PHP
+Requires: php-common%{?_isa} = %{version}-%{release}
+BuildRequires: pkgconfig(gdlib) >= 2.1.1
+
+%description gd
+The php-gd package contains a dynamic shared object that will add
+support for using the gd graphics library to PHP.
+
+%package bcmath
+Summary: A module for PHP applications for using the bcmath library
+# All files licensed under PHP version 3.01, except
+# libbcmath is licensed under LGPLv2+
+License: PHP and LGPLv2+
+Requires: php-common%{?_isa} = %{version}-%{release}
+
+%description bcmath
+The php-bcmath package contains a dynamic shared object that will add
+support for using the bcmath library to PHP.
+
+%package gmp
+Summary: A module for PHP applications for using the GNU MP library
+# All files licensed under PHP version 3.01
+License: PHP
+BuildRequires: gmp-devel
+Requires: php-common%{?_isa} = %{version}-%{release}
+
+%description gmp
+These functions allow you to work with arbitrary-length integers
+using the GNU MP library.
+
+%package dba
+Summary: A database abstraction layer module for PHP applications
+# All files licensed under PHP version 3.01
+License: PHP
+%if %{with db4}
+BuildRequires: libdb-devel
+%endif
+BuildRequires: tokyocabinet-devel
+%if %{with lmdb}
+BuildRequires: lmdb-devel
+%endif
+%if %{with qdbm}
+BuildRequires: qdbm-devel
+%endif
+Requires: php-common%{?_isa} = %{version}-%{release}
+
+%description dba
+The php-dba package contains a dynamic shared object that will add
+support for using the DBA database abstraction layer to PHP.
+
+%if %{with tidy}
+%package tidy
+Summary: Standard PHP module provides tidy library support
+# All files licensed under PHP version 3.01
+License: PHP
+Requires: php-common%{?_isa} = %{version}-%{release}
+BuildRequires: libtidy-devel
+
+%description tidy
+The php-tidy package contains a dynamic shared object that will add
+support for using the tidy library to PHP.
+%endif
+
+%if %{with freetds}
+%package pdo-dblib
+Summary: PDO driver for Microsoft SQL Server and Sybase databases
+# All files licensed under PHP version 3.01
+License: PHP
+Requires: php-pdo%{?_isa} = %{version}-%{release}
+BuildRequires: freetds-devel
+Provides: php-pdo_dblib, php-pdo_dblib%{?_isa}
+
+%description pdo-dblib
+The php-pdo-dblib package contains a dynamic shared object
+that implements the PHP Data Objects (PDO) interface to enable access from
+PHP to Microsoft SQL Server and Sybase databases through the FreeTDS library.
+%endif
+
+%package embedded
+Summary: PHP library for embedding in applications
+Requires: php-common%{?_isa} = %{version}-%{release}
+# doing a real -devel package for just the .so symlink is a bit overkill
+Provides: php-embedded-devel = %{version}-%{release}
+Provides: php-embedded-devel%{?_isa} = %{version}-%{release}
+
+%description embedded
+The php-embedded package contains a library which can be embedded
+into applications to provide PHP scripting language support.
+
+%if %{with pspell}
+%package pspell
+Summary: A module for PHP applications for using pspell interfaces
+# All files licensed under PHP version 3.01
+License: PHP
+Requires: php-common%{?_isa} = %{version}-%{release}
+BuildRequires: aspell-devel >= 0.50.0
+
+%description pspell
+The php-pspell package contains a dynamic shared object that will add
+support for using the pspell library to PHP.
+%endif
+
+%package intl
+Summary: Internationalization extension for PHP applications
+# All files licensed under PHP version 3.01
+License: PHP
+Requires: php-common%{?_isa} = %{version}-%{release}
+BuildRequires: pkgconfig(icu-i18n) >= 50.1
+BuildRequires: pkgconfig(icu-io) >= 50.1
+BuildRequires: pkgconfig(icu-uc) >= 50.1
+
+%description intl
+The php-intl package contains a dynamic shared object that will add
+support for using the ICU library to PHP.
+
+%package enchant
+Summary: Enchant spelling extension for PHP applications
+# All files licensed under PHP version 3.0
+License: PHP
+Requires: php-common%{?_isa} = %{version}-%{release}
+BuildRequires: pkgconfig(enchant-2)
+
+%description enchant
+The php-enchant package contains a dynamic shared object that will add
+support for using the enchant library to PHP.
+
+%if %{with sodium}
+%package sodium
+Summary: Wrapper for the Sodium cryptographic library
+# All files licensed under PHP version 3.0.1
+License: PHP
+BuildRequires: pkgconfig(libsodium) >= 1.0.9
+
+Requires: php-common%{?_isa} = %{version}-%{release}
+Obsoletes: php-pecl-libsodium2 < 3
+Provides: php-pecl(libsodium) = %{version}
+Provides: php-pecl(libsodium)%{?_isa} = %{version}
+
+%description sodium
+The php-sodium package provides a simple,
+low-level PHP extension for the libsodium cryptographic library.
+%endif
+
+
+%package ffi
+Summary: Foreign Function Interface
+# All files licensed under PHP version 3.0.1
+License: PHP
+Group: System Environment/Libraries
+BuildRequires: pkgconfig(libffi)
+Requires: php-common%{?_isa} = %{version}-%{release}
+
+%description ffi
+FFI is one of the features that made Python and LuaJIT very useful for fast
+prototyping. It allows calling C functions and using C data types from pure
+scripting language and therefore develop “system code” more productively.
+
+For PHP, FFI opens a way to write PHP extensions and bindings to C libraries
+in pure PHP.
+
+
+%prep
+%{?gpgverify:%{gpgverify} --keyring='%{SOURCE20}' --signature='%{SOURCE21}' --data='%{SOURCE0}'}
+
+%setup -q -n php-%{upver}%{?rcver}
+
+%patch1 -p1 -b .mpmcheck
+%patch5 -p1 -b .includedir
+%patch6 -p1 -b .embed
+%patch8 -p1 -b .libdb
+
+%patch41 -p1 -b .syslib
+%patch42 -p1 -b .systzdata
+%patch43 -p1 -b .headers
+%if 0%{?fedora} >= 18 || 0%{?rhel} >= 7
+%patch45 -p1 -b .ldap_r
+%endif
+%patch47 -p1 -b .phpinfo
+
+# upstream patches
+
+# security patches
+
+# Fixes for tests
+%patch300 -p1 -b .datetests
+
+
+# Prevent %%doc confusion over LICENSE files
+cp Zend/LICENSE ZEND_LICENSE
+cp TSRM/LICENSE TSRM_LICENSE
+cp Zend/asm/LICENSE BOOST_LICENSE
+cp sapi/fpm/LICENSE fpm_LICENSE
+cp ext/mbstring/libmbfl/LICENSE libmbfl_LICENSE
+cp ext/fileinfo/libmagic/LICENSE libmagic_LICENSE
+cp ext/bcmath/libbcmath/LICENSE libbcmath_LICENSE
+cp ext/date/lib/LICENSE.rst timelib_LICENSE
+
+# Multiple builds for multiple SAPIs
+mkdir build-cgi build-embedded \
+%if %{with modphp}
+ build-apache \
+%endif
+%if %{with zts}
+ build-zts build-ztscli \
+%endif
+ build-fpm
+
+# ----- Manage known as failed test -------
+# affected by systzdata patch
+rm ext/date/tests/timezone_location_get.phpt
+rm ext/date/tests/timezone_version_get.phpt
+rm ext/date/tests/timezone_version_get_basic1.phpt
+# fails sometime
+rm ext/sockets/tests/mcast_ipv?_recv.phpt
+# cause stack exhausion
+rm Zend/tests/bug54268.phpt
+rm Zend/tests/bug68412.phpt
+# tar issue
+rm ext/zlib/tests/004-mb.phpt
+
+# Safety check for API version change.
+pver=$(sed -n '/#define PHP_VERSION /{s/.* "//;s/".*$//;p}' main/php_version.h)
+if test "x${pver}" != "x%{upver}%{?rcver}"; then
+ : Error: Upstream PHP version is now ${pver}, expecting %{upver}%{?rcver}.
+ : Update the version/rcver macros and rebuild.
+ exit 1
+fi
+
+vapi=`sed -n '/#define PHP_API_VERSION/{s/.* //;p}' main/php.h`
+if test "x${vapi}" != "x%{apiver}"; then
+ : Error: Upstream API version is now ${vapi}, expecting %{apiver}.
+ : Update the apiver macro and rebuild.
+ exit 1
+fi
+
+vzend=`sed -n '/#define ZEND_MODULE_API_NO/{s/^^0-9*//;p;}' Zend/zend_modules.h`
+if test "x${vzend}" != "x%{zendver}"; then
+ : Error: Upstream Zend ABI version is now ${vzend}, expecting %{zendver}.
+ : Update the zendver macro and rebuild.
+ exit 1
+fi
+
+# Safety check for PDO ABI version change
+vpdo=`sed -n '/#define PDO_DRIVER_API/{s/.* 	//;p}' ext/pdo/php_pdo_driver.h`
+if test "x${vpdo}" != "x%{pdover}"; then
+ : Error: Upstream PDO ABI version is now ${vpdo}, expecting %{pdover}.
+ : Update the pdover macro and rebuild.
+ exit 1
+fi
+
+# https://bugs.php.net/63362 - Not needed but installed headers.
+# Drop some Windows specific headers to avoid installation,
+# before build to ensure they are really not needed.
+rm -f TSRM/tsrm_win32.h \
+ TSRM/tsrm_config.w32.h \
+ Zend/zend_config.w32.h \
+ ext/mysqlnd/config-win.h \
+ ext/standard/winver.h \
+ main/win32_internal_function_disabled.h \
+ main/win95nt.h
+
+# Fix some bogus permissions
+find . -name \*.ch -exec chmod 644 {} \;
+chmod 644 README.*
+
+# Some extensions have their own configuration file
+cp %{SOURCE50} %{SOURCE51} %{SOURCE53} .
+
+
+%build
+# This package fails to build with LTO due to undefined symbols. LTO
+# was disabled in OpenSuSE as well, but with no real explanation why
+# beyond the undefined symbols. It really shold be investigated further.
+# Disable LTO
+%define _lto_cflags %{nil}
+
+# Set build date from https://reproducible-builds.org/specs/source-date-epoch/
+export SOURCE_DATE_EPOCH=$(date +%s -r NEWS)
+export PHP_UNAME=$(uname)
+export PHP_BUILD_SYSTEM=$(cat /etc/redhat-release | sed -e 's/ Beta//')
+%if 0%{?vendor:1}
+export PHP_BUILD_PROVIDER="%{vendor}"
+%endif
+export PHP_BUILD_COMPILER="$(gcc --version | head -n1)"
+export PHP_BUILD_ARCH="%{_arch}"
+
+# Force use of system libtool:
+libtoolize --force --copy
+cat `aclocal --print-ac-dir`/{libtool,ltoptions,ltsugar,ltversion,lt~obsolete}.m4 >build/libtool.m4
+
+# Regenerate configure scripts (patches change config.m4's)
+touch configure.ac
+./buildconf --force
+
+CFLAGS=$(echo $RPM_OPT_FLAGS -fno-strict-aliasing -Wno-pointer-sign | sed 's/-mstackrealign//')
+export CFLAGS
+
+# Install extension modules in %%{_libdir}/php/modules.
+EXTENSION_DIR=%{_libdir}/php/modules; export EXTENSION_DIR
+
+# Set PEAR_INSTALLDIR to ensure that the hard-coded include_path
+# includes the PEAR directory even though pear is packaged
+# separately.
+PEAR_INSTALLDIR=%{_datadir}/pear; export PEAR_INSTALLDIR
+
+# Shell function to configure and build a PHP tree.
+build() {
+# Old/recent bison version seems to produce a broken parser;
+# upstream uses GNU Bison 2.3. Workaround:
+mkdir Zend && cp ../Zend/zend_{language,ini}_{parser,scanner}.ch Zend
+
+# Always static:
+# date, ereg, filter, libxml, reflection, spl: not supported
+# hash: for PHAR_SIG_SHA256 and PHAR_SIG_SHA512
+# session: dep on hash, used by soap
+# pcre: used by filter, zip
+# pcntl, readline: only used by CLI sapi
+# openssl: for PHAR_SIG_OPENSSL
+# zlib: used by image
+
+ln -sf ../configure
+%configure \
+ --enable-rtld-now \
+ --cache-file=../config.cache \
+ --with-libdir=%{_lib} \
+ --with-config-file-path=%{_sysconfdir} \
+ --with-config-file-scan-dir=%{_sysconfdir}/php.d \
+ --disable-debug \
+ --with-pic \
+ --disable-rpath \
+ --without-pear \
+ --with-exec-dir=%{_bindir} \
+ --without-gdbm \
+ --with-openssl \
+ --with-system-ciphers \
+ --with-external-pcre \
+ --with-external-libcrypt \
+%ifarch s390 s390x sparc64 sparcv9 riscv64
+ --without-pcre-jit \
+%endif
+ --with-zlib \
+ --with-layout=GNU \
+ --with-kerberos \
+ --with-libxml \
+ --with-system-tzdata \
+ --with-mhash \
+ --without-password-argon2 \
+ --enable-dtrace \
+ $*
+if test $? != 0; then
+ tail -500 config.log
+ : configure failed
+ exit 1
+fi
+
+%make_build
+}
+
+# Build /usr/bin/php-cgi with the CGI SAPI, and most shared extensions
+pushd build-cgi
+
+build --libdir=%{_libdir}/php \
+ --enable-pcntl \
+ --enable-opcache \
+ --enable-phpdbg \
+%if %{with imap}
+ --with-imap=shared --with-imap-ssl \
+%endif
+ --enable-mbstring=shared \
+ --enable-mbregex \
+ --enable-gd=shared \
+ --with-external-gd \
+ --with-gmp=shared \
+ --enable-calendar=shared \
+ --enable-bcmath=shared \
+ --with-bz2=shared \
+ --enable-ctype=shared \
+ --enable-dba=shared \
+%if %{with db4}
+ --with-db4=%{_prefix} \
+%endif
+ --with-tcadb=%{_prefix} \
+%if %{with lmdb}
+ --with-lmdb=%{_prefix} \
+%endif
+%if %{with qdbm}
+ --with-qdbm=%{_prefix} \
+%endif
+ --enable-exif=shared \
+ --enable-ftp=shared \
+ --with-gettext=shared \
+ --with-iconv=shared \
+ --enable-sockets=shared \
+ --enable-tokenizer=shared \
+ --with-ldap=shared --with-ldap-sasl \
+ --enable-mysqlnd=shared \
+ --with-mysqli=shared,mysqlnd \
+ --with-mysql-sock=%{mysql_sock} \
+%if %{with firebird}
+ --with-pdo-firebird=shared \
+%endif
+ --enable-dom=shared \
+ --with-pgsql=shared \
+ --enable-simplexml=shared \
+ --enable-xml=shared \
+ --with-snmp=shared,%{_prefix} \
+ --enable-soap=shared \
+ --with-xsl=shared,%{_prefix} \
+ --enable-xmlreader=shared --enable-xmlwriter=shared \
+ --with-curl=shared \
+ --enable-pdo=shared \
+ --with-pdo-odbc=shared,unixODBC,%{_prefix} \
+ --with-pdo-mysql=shared,mysqlnd \
+ --with-pdo-pgsql=shared,%{_prefix} \
+ --with-pdo-sqlite=shared \
+%if %{with freetds}
+ --with-pdo-dblib=shared,%{_prefix} \
+%endif
+ --with-sqlite3=shared \
+ --without-readline \
+ --with-libedit \
+%if %{with pspell}
+ --with-pspell=shared \
+%endif
+ --enable-phar=shared \
+%if %{with tidy}
+ --with-tidy=shared,%{_prefix} \
+%endif
+ --enable-sysvmsg=shared --enable-sysvshm=shared --enable-sysvsem=shared \
+ --enable-shmop=shared \
+ --enable-posix=shared \
+ --with-unixODBC=shared,%{_prefix} \
+ --enable-fileinfo=shared \
+ --with-ffi=shared \
+%if %{with sodium}
+ --with-sodium=shared \
+%else
+ --without-sodium \
+%endif
+ --enable-intl=shared \
+ --with-enchant=shared
+popd
+
+without_shared="--without-gd \
+ --disable-dom --disable-dba --without-unixODBC \
+ --disable-opcache \
+ --disable-phpdbg \
+ --without-ffi \
+ --disable-xmlreader --disable-xmlwriter \
+ --without-sodium \
+ --without-sqlite3 --disable-phar --disable-fileinfo \
+ --without-pspell \
+ --without-curl --disable-posix --disable-xml \
+ --disable-simplexml --disable-exif --without-gettext \
+ --without-iconv --disable-ftp --without-bz2 --disable-ctype \
+ --disable-shmop --disable-sockets --disable-tokenizer \
+ --disable-sysvmsg --disable-sysvshm --disable-sysvsem"
+
+%if %{with modphp}
+# Build Apache module, and the CLI SAPI, /usr/bin/php
+pushd build-apache
+build --with-apxs2=%{_httpd_apxs} \
+ --libdir=%{_libdir}/php \
+ --without-mysqli \
+ --disable-pdo \
+ ${without_shared}
+popd
+%endif
+
+# Build php-fpm
+pushd build-fpm
+build --enable-fpm \
+ --with-fpm-acl \
+ --with-fpm-systemd \
+ --libdir=%{_libdir}/php \
+ --without-mysqli \
+ --disable-pdo \
+ ${without_shared}
+popd
+
+# Build for inclusion as embedded script language into applications,
+# /usr/lib64/libphp7.so
+pushd build-embedded
+build --enable-embed \
+ --without-mysqli --disable-pdo \
+ ${without_shared}
+popd
+
+%if %{with zts}
+# Build a special thread-safe (mainly for modules)
+pushd build-ztscli
+
+EXTENSION_DIR=%{_libdir}/php-zts/modules
+build --includedir=%{_includedir}/php-zts \
+ --libdir=%{_libdir}/php-zts \
+ --enable-zts \
+ --program-prefix=zts- \
+ --disable-cgi \
+ --with-config-file-scan-dir=%{_sysconfdir}/php-zts.d \
+ --enable-pcntl \
+ --enable-opcache \
+%if %{with imap}
+ --with-imap=shared --with-imap-ssl \
+%endif
+ --enable-mbstring=shared \
+ --enable-mbregex \
+ --enable-gd=shared \
+ --with-external-gd \
+ --with-gmp=shared \
+ --enable-calendar=shared \
+ --enable-bcmath=shared \
+ --with-bz2=shared \
+ --enable-ctype=shared \
+ --enable-dba=shared \
+%if %{with db4}
+ --with-db4=%{_prefix} \
+%endif
+ --with-tcadb=%{_prefix} \
+%if %{with lmdb}
+ --with-lmdb=%{_prefix} \
+%endif
+%if %{with qdbm}
+ --with-qdbm=%{_prefix} \
+%endif
+ --with-gettext=shared \
+ --with-iconv=shared \
+ --enable-sockets=shared \
+ --enable-tokenizer=shared \
+ --enable-exif=shared \
+ --enable-ftp=shared \
+ --with-ldap=shared --with-ldap-sasl \
+ --enable-mysqlnd=shared \
+ --with-mysqli=shared,mysqlnd \
+ --with-mysql-sock=%{mysql_sock} \
+ --enable-mysqlnd-threading \
+%if %{with firebird}
+ --with-pdo-firebird=shared \
+%endif
+ --enable-dom=shared \
+ --with-pgsql=shared \
+ --enable-simplexml=shared \
+ --enable-xml=shared \
+ --with-snmp=shared,%{_prefix} \
+ --enable-soap=shared \
+ --with-xsl=shared,%{_prefix} \
+ --enable-xmlreader=shared --enable-xmlwriter=shared \
+ --with-curl=shared \
+ --enable-pdo=shared \
+ --with-pdo-odbc=shared,unixODBC,%{_prefix} \
+ --with-pdo-mysql=shared,mysqlnd \
+ --with-pdo-pgsql=shared,%{_prefix} \
+ --with-pdo-sqlite=shared \
+%if %{with freetds}
+ --with-pdo-dblib=shared,%{_prefix} \
+%endif
+ --with-sqlite3=shared \
+ --without-readline \
+ --with-libedit \
+%if %{with pspell}
+ --with-pspell=shared \
+%endif
+ --enable-phar=shared \
+%if %{with tidy}
+ --with-tidy=shared,%{_prefix} \
+%endif
+ --enable-sysvmsg=shared --enable-sysvshm=shared --enable-sysvsem=shared \
+ --enable-shmop=shared \
+ --enable-posix=shared \
+ --with-unixODBC=shared,%{_prefix} \
+ --enable-fileinfo=shared \
+ --with-ffi=shared \
+%if %{with sodium}
+ --with-sodium=shared \
+%else
+ --without-sodium \
+%endif
+ --enable-intl=shared \
+ --with-enchant=shared
+popd
+
+### NOTE!!! EXTENSION_DIR was changed for the -zts build, so it must remain
+### the last SAPI to be built.
+%endif
+
+
+%check
+: Ensure proper NTS/ZTS build
+$RPM_BUILD_ROOT%{_bindir}/php -n -v | grep NTS
+%if %{with zts}
+$RPM_BUILD_ROOT%{_bindir}/zts-php -n -v | grep ZTS
+%endif
+
+%if %runselftest
+cd build-fpm
+
+# Run tests, using the CLI SAPI
+export NO_INTERACTION=1 REPORT_EXIT_STATUS=1 MALLOC_CHECK_=2
+export SKIP_ONLINE_TESTS=1
+export SKIP_IO_CAPTURE_TESTS=1
+unset TZ LANG LC_ALL
+if ! make test TESTS=-j4; then
+ set +x
+ for f in $(find .. -name \*.diff -type f -print); do
+ if ! grep -q XFAIL "${f/.diff/.phpt}"
+ then
+ echo "TEST FAILURE: $f --"
+ cat "$f"
+ echo -e "\n-- $f result ends."
+ fi
+ done
+ set -x
+ #exit 1
+fi
+unset NO_INTERACTION REPORT_EXIT_STATUS MALLOC_CHECK_
+%endif
+
+%install
+%if %{with zts}
+# Install the extensions for the ZTS version
+make -C build-ztscli install \
+ INSTALL_ROOT=$RPM_BUILD_ROOT
+%endif
+
+# Install the version for embedded script language in applications + php_embed.h
+make -C build-embedded install-sapi install-headers \
+ INSTALL_ROOT=$RPM_BUILD_ROOT
+
+# Install the php-fpm binary
+make -C build-fpm install-fpm \
+ INSTALL_ROOT=$RPM_BUILD_ROOT
+
+# Install everything from the CGI SAPI build
+make -C build-cgi install \
+ INSTALL_ROOT=$RPM_BUILD_ROOT
+
+# Use php-config from embed SAPI to reduce used libs
+install -m 755 build-embedded/scripts/php-config $RPM_BUILD_ROOT%{_bindir}/php-config
+
+# Install the default configuration file
+install -m 755 -d $RPM_BUILD_ROOT%{_sysconfdir}/
+install -m 644 %{SOURCE2} $RPM_BUILD_ROOT%{_sysconfdir}/php.ini
+
+# For third-party packaging:
+install -m 755 -d $RPM_BUILD_ROOT%{_datadir}/php/preload
+
+%if %{with modphp}
+# install the DSO
+install -m 755 -d $RPM_BUILD_ROOT%{_httpd_moddir}
+install -m 755 build-apache/libs/libphp.so $RPM_BUILD_ROOT%{_httpd_moddir}
+%endif
+
+# Apache config fragment
+# Dual config file with httpd >= 2.4 (fedora >= 18)
+%if %{with modphp}
+install -D -m 644 %{SOURCE9} $RPM_BUILD_ROOT%{_httpd_modconfdir}/20-php.conf
+%endif
+install -D -m 644 %{SOURCE1} $RPM_BUILD_ROOT%{_httpd_confdir}/php.conf
+
+install -m 755 -d $RPM_BUILD_ROOT%{_sysconfdir}/php.d
+%if %{with zts}
+install -m 755 -d $RPM_BUILD_ROOT%{_sysconfdir}/php-zts.d
+%endif
+install -m 755 -d $RPM_BUILD_ROOT%{_sharedstatedir}/php
+install -m 755 -d $RPM_BUILD_ROOT%{_sharedstatedir}/php/peclxml
+install -m 700 -d $RPM_BUILD_ROOT%{_sharedstatedir}/php/session
+install -m 700 -d $RPM_BUILD_ROOT%{_sharedstatedir}/php/wsdlcache
+install -m 700 -d $RPM_BUILD_ROOT%{_sharedstatedir}/php/opcache
+
+install -m 755 -d $RPM_BUILD_ROOT%{_docdir}/pecl
+install -m 755 -d $RPM_BUILD_ROOT%{_datadir}/tests/pecl
+
+# PHP-FPM stuff
+# Log
+install -m 755 -d $RPM_BUILD_ROOT%{_localstatedir}/log/php-fpm
+install -m 755 -d $RPM_BUILD_ROOT/run/php-fpm
+# Config
+install -m 755 -d $RPM_BUILD_ROOT%{_sysconfdir}/php-fpm.d
+install -m 644 %{SOURCE4} $RPM_BUILD_ROOT%{_sysconfdir}/php-fpm.conf
+install -m 644 %{SOURCE5} $RPM_BUILD_ROOT%{_sysconfdir}/php-fpm.d/www.conf
+mv $RPM_BUILD_ROOT%{_sysconfdir}/php-fpm.conf.default .
+mv $RPM_BUILD_ROOT%{_sysconfdir}/php-fpm.d/www.conf.default .
+# install systemd unit files and scripts for handling server startup
+install -m 755 -d $RPM_BUILD_ROOT%{_sysconfdir}/systemd/system/php-fpm.service.d
+install -Dm 644 %{SOURCE6} $RPM_BUILD_ROOT%{_unitdir}/php-fpm.service
+install -Dm 644 %{SOURCE12} $RPM_BUILD_ROOT%{_unitdir}/httpd.service.d/php-fpm.conf
+install -Dm 644 %{SOURCE12} $RPM_BUILD_ROOT%{_unitdir}/nginx.service.d/php-fpm.conf
+# LogRotate
+install -m 755 -d $RPM_BUILD_ROOT%{_sysconfdir}/logrotate.d
+install -m 644 %{SOURCE7} $RPM_BUILD_ROOT%{_sysconfdir}/logrotate.d/php-fpm
+# Nginx configuration
+install -D -m 644 %{SOURCE13} $RPM_BUILD_ROOT%{_sysconfdir}/nginx/conf.d/php-fpm.conf
+install -D -m 644 %{SOURCE14} $RPM_BUILD_ROOT%{_sysconfdir}/nginx/default.d/php.conf
+
+TESTCMD="$RPM_BUILD_ROOT%{_bindir}/php --no-php-ini"
+# Ensure all provided extensions are really there
+for mod in core date filter hash libxml openssl pcntl pcre readline reflection session spl standard zlib
+do
+ $TESTCMD --modules | grep -qi $mod
+done
+
+TESTCMD="$TESTCMD --define extension_dir=$RPM_BUILD_ROOT%{_libdir}/php/modules"
+
+# Generate files lists and stub .ini files for each subpackage
+for mod in pgsql odbc ldap snmp \
+%if %{with imap}
+ imap \
+%endif
+ mysqlnd mysqli \
+ mbstring gd dom xsl soap bcmath dba \
+ simplexml bz2 calendar ctype exif ftp gettext gmp iconv \
+ sockets tokenizer opcache \
+ sqlite3 \
+ enchant phar fileinfo intl \
+ ffi \
+%if %{with tidy}
+ tidy \
+%endif
+%if %{with pspell}
+ pspell \
+%endif
+ curl \
+%if %{with sodium}
+ sodium \
+%endif
+ posix shmop sysvshm sysvsem sysvmsg xml \
+ pdo pdo_mysql pdo pdo_pgsql pdo_odbc pdo_sqlite \
+%if %{with firebird}
+ pdo_firebird \
+%endif
+%if %{with freetds}
+ pdo_dblib \
+%endif
+ xmlreader xmlwriter
+do
+ case $mod in
+ opcache)
+ # Zend extensions
+ TESTCMD="$TESTCMD --define zend_extension=$mod"
+ ini=10-${mod}.ini;;
+ pdo_*|mysqli|xmlreader)
+ # Extensions with dependencies on 20-*
+ TESTCMD="$TESTCMD --define extension=$mod"
+ ini=30-${mod}.ini;;
+ *)
+ # Extensions with no dependency
+ TESTCMD="$TESTCMD --define extension=$mod"
+ ini=20-${mod}.ini;;
+ esac
+
+ $TESTCMD --modules | grep -qi $mod
+
+ # some extensions have their own config file
+ if -f ${ini} ; then
+ cp -p ${ini} $RPM_BUILD_ROOT%{_sysconfdir}/php.d/${ini}
+%if %{with zts}
+ cp -p ${ini} $RPM_BUILD_ROOT%{_sysconfdir}/php-zts.d/${ini}
+%endif
+ else
+ cat > $RPM_BUILD_ROOT%{_sysconfdir}/php.d/${ini} <<EOF
+; Enable ${mod} extension module
+extension=${mod}
+EOF
+%if %{with zts}
+ cat > $RPM_BUILD_ROOT%{_sysconfdir}/php-zts.d/${ini} <<EOF
+; Enable ${mod} extension module
+extension=${mod}
+EOF
+%endif
+ fi
+ cat > files.${mod} <<EOF
+%{_libdir}/php/modules/${mod}.so
+%config(noreplace) %{_sysconfdir}/php.d/${ini}
+%if %{with zts}
+%{_libdir}/php-zts/modules/${mod}.so
+%config(noreplace) %{_sysconfdir}/php-zts.d/${ini}
+%endif
+EOF
+done
+
+# The dom, xsl and xml* modules are all packaged in php-xml
+cat files.dom files.xsl files.xml{reader,writer} \
+ files.simplexml >> files.xml
+
+# mysqlnd
+cat files.mysqli \
+ files.pdo_mysql \
+ >> files.mysqlnd
+
+# Split out the PDO modules
+cat files.pdo_pgsql >> files.pgsql
+cat files.pdo_odbc >> files.odbc
+
+# sysv* and posix in packaged in php-process
+cat files.shmop files.sysv* files.posix > files.process
+
+# Package sqlite3 and pdo_sqlite with pdo; isolating the sqlite dependency
+# isn't useful at this time since rpm itself requires sqlite.
+cat files.pdo_sqlite >> files.pdo
+cat files.sqlite3 >> files.pdo
+
+# Package curl, phar and fileinfo in -common.
+cat files.curl files.phar files.fileinfo \
+ files.exif files.gettext files.iconv files.calendar \
+ files.ftp files.bz2 files.ctype files.sockets \
+ files.tokenizer > files.common
+
+# The default Zend OPcache blacklist file
+install -m 644 %{SOURCE51} $RPM_BUILD_ROOT%{_sysconfdir}/php.d/opcache-default.blacklist
+%if %{with zts}
+install -m 644 %{SOURCE51} $RPM_BUILD_ROOT%{_sysconfdir}/php-zts.d/opcache-default.blacklist
+sed -e '/blacklist_filename/s/php.d/php-zts.d/' \
+ -i $RPM_BUILD_ROOT%{_sysconfdir}/php-zts.d/10-opcache.ini
+%endif
+
+# Install the macros file:
+sed -e "s/@PHP_APIVER@/%{apiver}-%{__isa_bits}/" \
+ -e "s/@PHP_ZENDVER@/%{zendver}-%{__isa_bits}/" \
+ -e "s/@PHP_PDOVER@/%{pdover}-%{__isa_bits}/" \
+ -e "s/@PHP_VERSION@/%{upver}/" \
+%if ! %{with zts}
+ -e "/zts/d" \
+%endif
+ < %{SOURCE3} > macros.php
+install -m 644 -D macros.php \
+ $RPM_BUILD_ROOT%{_rpmmacrodir}/macros.php
+
+# Remove unpackaged files
+rm -rf $RPM_BUILD_ROOT%{_libdir}/php/modules/*.a \
+ $RPM_BUILD_ROOT%{_libdir}/php-zts/modules/*.a \
+ $RPM_BUILD_ROOT%{_bindir}/{phptar} \
+ $RPM_BUILD_ROOT%{_datadir}/pear \
+ $RPM_BUILD_ROOT%{_bindir}/zts-phar* \
+ $RPM_BUILD_ROOT%{_mandir}/man1/zts-phar* \
+ $RPM_BUILD_ROOT%{_libdir}/libphp.a \
+ $RPM_BUILD_ROOT%{_libdir}/libphp.la
+
+# Remove irrelevant docs
+rm -f README.{Zeus,QNX,CVS-RULES}
+
+
+%post fpm
+%systemd_post php-fpm.service
+
+%preun fpm
+%systemd_preun php-fpm.service
+
+# Raised by new pool installation or new extension installation
+%transfiletriggerin fpm -- %{_sysconfdir}/php-fpm.d %{_sysconfdir}/php.d
+systemctl try-restart php-fpm.service >/dev/null 2>&1 || :
+
+
+%files
+%if %{with modphp}
+%{_httpd_moddir}/libphp.so
+%config(noreplace) %{_httpd_modconfdir}/20-php.conf
+%attr(0770,root,apache) %dir %{_sharedstatedir}/php/session
+%attr(0770,root,apache) %dir %{_sharedstatedir}/php/wsdlcache
+%attr(0770,root,apache) %dir %{_sharedstatedir}/php/opcache
+%config(noreplace) %{_httpd_confdir}/php.conf
+%endif
+
+%files common -f files.common
+%doc EXTENSIONS NEWS UPGRADING* README.REDIST.BINS *md docs
+%license LICENSE TSRM_LICENSE ZEND_LICENSE BOOST_LICENSE
+%license libmagic_LICENSE
+%license timelib_LICENSE
+%doc php.ini-*
+%config(noreplace) %{_sysconfdir}/php.ini
+%dir %{_sysconfdir}/php.d
+%dir %{_libdir}/php
+%dir %{_libdir}/php/modules
+%if %{with zts}
+%dir %{_sysconfdir}/php-zts.d
+%dir %{_libdir}/php-zts
+%dir %{_libdir}/php-zts/modules
+%endif
+%dir %{_sharedstatedir}/php
+%dir %{_sharedstatedir}/php/peclxml
+%dir %{_datadir}/php
+%dir %{_docdir}/pecl
+%dir %{_datadir}/tests
+%dir %{_datadir}/tests/pecl
+
+%files cli
+%{_bindir}/php
+%if %{with zts}
+%{_bindir}/zts-php
+%{_mandir}/man1/zts-php.1*
+%endif
+%{_bindir}/php-cgi
+%{_bindir}/phar.phar
+%{_bindir}/phar
+# provides phpize here (not in -devel) for pecl command
+%{_bindir}/phpize
+%{_mandir}/man1/php.1*
+%{_mandir}/man1/php-cgi.1*
+%{_mandir}/man1/phar.1*
+%{_mandir}/man1/phar.phar.1*
+%{_mandir}/man1/phpize.1*
+
+%files dbg
+%doc sapi/phpdbg/CREDITS
+%{_bindir}/phpdbg
+%{_mandir}/man1/phpdbg.1*
+%if %{with zts}
+%{_bindir}/zts-phpdbg
+%{_mandir}/man1/zts-phpdbg.1*
+%endif
+
+%files fpm
+%doc php-fpm.conf.default www.conf.default
+%license fpm_LICENSE
+%attr(0770,root,apache) %dir %{_sharedstatedir}/php/session
+%attr(0770,root,apache) %dir %{_sharedstatedir}/php/wsdlcache
+%attr(0770,root,apache) %dir %{_sharedstatedir}/php/opcache
+%config(noreplace) %{_httpd_confdir}/php.conf
+%config(noreplace) %{_sysconfdir}/php-fpm.conf
+%config(noreplace) %{_sysconfdir}/php-fpm.d/www.conf
+%config(noreplace) %{_sysconfdir}/logrotate.d/php-fpm
+%config(noreplace) %{_sysconfdir}/nginx/conf.d/php-fpm.conf
+%config(noreplace) %{_sysconfdir}/nginx/default.d/php.conf
+%{_unitdir}/php-fpm.service
+%{_unitdir}/httpd.service.d/php-fpm.conf
+%{_unitdir}/nginx.service.d/php-fpm.conf
+%{_sbindir}/php-fpm
+%dir %{_sysconfdir}/systemd/system/php-fpm.service.d
+%dir %{_sysconfdir}/php-fpm.d
+# log owned by apache for log
+%attr(770,apache,root) %dir %{_localstatedir}/log/php-fpm
+%dir %ghost /run/php-fpm
+%{_mandir}/man8/php-fpm.8*
+%dir %{_datadir}/fpm
+%{_datadir}/fpm/status.html
+
+%files devel
+%{_bindir}/php-config
+%{_includedir}/php
+%{_libdir}/php/build
+%if %{with zts}
+%{_bindir}/zts-php-config
+%{_bindir}/zts-phpize
+%{_includedir}/php-zts
+%{_libdir}/php-zts/build
+%{_mandir}/man1/zts-php-config.1*
+%{_mandir}/man1/zts-phpize.1*
+%endif
+%{_mandir}/man1/php-config.1*
+%{_rpmmacrodir}/macros.php
+
+%files embedded
+%{_libdir}/libphp.so
+%{_libdir}/libphp-%{embed_version}.so
+
+%files pgsql -f files.pgsql
+%files odbc -f files.odbc
+%if %{with imap}
+%files imap -f files.imap
+%endif
+%files ldap -f files.ldap
+%files snmp -f files.snmp
+%files xml -f files.xml
+%files mbstring -f files.mbstring
+%license libmbfl_LICENSE
+%files gd -f files.gd
+%files soap -f files.soap
+%files bcmath -f files.bcmath
+%license libbcmath_LICENSE
+%files gmp -f files.gmp
+%files dba -f files.dba
+%files pdo -f files.pdo
+%if %{with tidy}
+%files tidy -f files.tidy
+%endif
+%if %{with freetds}
+%files pdo-dblib -f files.pdo_dblib
+%endif
+%if %{with pspell}
+%files pspell -f files.pspell
+%endif
+%files intl -f files.intl
+%files process -f files.process
+%if %{with firebird}
+%files pdo-firebird -f files.pdo_firebird
+%endif
+%files enchant -f files.enchant
+%files mysqlnd -f files.mysqlnd
+%files opcache -f files.opcache
+%config(noreplace) %{_sysconfdir}/php.d/opcache-default.blacklist
+%if %{with zts}
+%config(noreplace) %{_sysconfdir}/php-zts.d/opcache-default.blacklist
+%endif
+%if %{with sodium}
+%files sodium -f files.sodium
+%endif
+%files ffi -f files.ffi
+%dir %{_datadir}/php/preload
+
+
+%changelog
+* Tue Aug 2 2022 Remi Collet <remi@remirepo.net> - 8.1.9-1
+- Update to 8.1.9 - http://www.php.net/releases/8_1_9.php
+
+* Mon Aug 01 2022 Frantisek Zatloukal <fzatlouk@redhat.com> - 8.1.9~RC1-3
+- Rebuilt for ICU 71.1
+
+* Fri Jul 22 2022 Fedora Release Engineering <releng@fedoraproject.org> - 8.1.9~RC1-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_37_Mass_Rebuild
+
+* Wed Jul 20 2022 Remi Collet <remi@remirepo.net> - 8.1.9~RC1-1
+- update to 8.1.9RC1
+
+* Wed Jul 6 2022 Remi Collet <remi@remirepo.net> - 8.1.8-1
+- Update to 8.1.8 - http://www.php.net/releases/8_1_8.php
+
+* Tue Jun 21 2022 Remi Collet <remi@remirepo.net> - 8.1.8~RC1-1
+- update to 8.1.8RC1
+
+* Wed Jun 8 2022 Remi Collet <remi@remirepo.net> - 8.1.7-1
+- Update to 8.1.7 - http://www.php.net/releases/8_1_7.php
+- add upstream patch to initialize pcre before mbstring
+
+* Wed May 25 2022 Remi Collet <remi@remirepo.net> - 8.1.7~RC1-1
+- update to 8.1.7RC1
+
+* Wed May 11 2022 Remi Collet <remi@remirepo.net> - 8.1.6-1
+- Update to 8.1.6 - http://www.php.net/releases/8_1_6.php
+
+* Wed Apr 27 2022 Remi Collet <remi@remirepo.net> - 8.1.6~RC1-1
+- update to 8.1.6RC1
+
+* Wed Apr 13 2022 Remi Collet <remi@remirepo.net> - 8.1.5-1
+- Update to 8.1.5 - http://www.php.net/releases/8_1_5.php
+
+* Mon Apr 4 2022 Remi Collet <remi@remirepo.net> - 8.1.5~RC1-1
+- update to 8.1.5RC1
+
+* Wed Mar 16 2022 Remi Collet <remi@remirepo.net> - 8.1.4-1
+- Update to 8.1.4 - http://www.php.net/releases/8_1_4.php
+
+* Thu Mar 3 2022 Remi Collet <remi@remirepo.net> - 8.1.4~RC1-1
+- update to 8.1.4RC1
+
+* Wed Feb 23 2022 Remi Collet <remi@remirepo.net> - 8.1.3-2
+- retrieve tzdata version #2056611
+
+* Wed Feb 16 2022 Remi Collet <remi@remirepo.net> - 8.1.3-1
+- Update to 8.1.3 - http://www.php.net/releases/8_1_3.php
+
+* Fri Jan 21 2022 Fedora Release Engineering <releng@fedoraproject.org> - 8.1.2-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_36_Mass_Rebuild
+
+* Wed Jan 19 2022 Remi Collet <remi@remirepo.net> - 8.1.2-1
+- Update to 8.1.2 - http://www.php.net/releases/8_1_2.php
+
+* Sat Jan 08 2022 Miro Hrončok <mhroncok@redhat.com> - 8.1.2~RC1-2
+- Rebuilt for https://fedoraproject.org/wiki/Changes/LIBFFI34
+
+* Wed Jan 5 2022 Remi Collet <remi@remirepo.net> - 8.1.2~RC1-1
+- update to 8.1.2RC1
+
+* Wed Dec 15 2021 Remi Collet <remi@remirepo.net> - 8.1.1-1
+- Update to 8.1.1 - http://www.php.net/releases/8_1_1.php
+
+* Thu Dec 2 2021 Remi Collet <remi@remirepo.net> - 8.1.1~RC1-1
+- update to 8.1.1RC1
+
+* Wed Nov 24 2021 Remi Collet <remi@remirepo.net> - 8.1.0-1
+- update to 8.1.0 GA
+
+* Wed Nov 10 2021 Remi Collet <remi@remirepo.net> - 8.1.0~RC6-1
+- update to 8.1.0RC6
+
+* Tue Oct 26 2021 Remi Collet <remi@remirepo.net> - 8.1.0~RC5-1
+- update to 8.1.0RC5 - https://fedoraproject.org/wiki/Changes/php81
+- bump API version
+
+* Tue Oct 19 2021 Remi Collet <remi@remirepo.net> - 8.0.12-2
+- dba: enable qdbm backend
+
+* Tue Oct 19 2021 Remi Collet <remi@remirepo.net> - 8.0.12-1
+- Update to 8.0.12 - http://www.php.net/releases/8_0_12.php
+
+* Mon Oct 18 2021 Remi Collet <remi@remirepo.net> - 8.0.12~RC1-2
+- build using system libxcrypt
+
+* Wed Oct 6 2021 Remi Collet <remi@remirepo.net> - 8.0.12~RC1-1
+- update to 8.0.12RC1
+
+* Wed Sep 22 2021 Remi Collet <remi@remirepo.net> - 8.0.11-1
+- Update to 8.0.11 - http://www.php.net/releases/8_0_11.php
+
+* Tue Sep 14 2021 Sahana Prasad <sahana@redhat.com> - 8.0.11~RC1-4
+- Rebuilt with OpenSSL 3.0.0
+
+* Mon Sep 13 2021 Remi Collet <remi@remirepo.net> - 8.0.11~RC1-3
+- more changes for OpenSSL 3 from PHP 8.1
+
+* Fri Sep 10 2021 Remi Collet <remi@remirepo.net> - 8.0.11~RC1-2
+- backport changes for OpenSSL 3 from PHP 8.1
+
+* Tue Sep 7 2021 Remi Collet <remi@remirepo.net> - 8.0.11~RC1-1
+- update to 8.0.11RC1
+
+* Thu Aug 26 2021 Remi Collet <remi@remirepo.net> - 8.0.10-1
+- Update to 8.0.10 - http://www.php.net/releases/8_0_10.php
+
+* Wed Aug 11 2021 Remi Collet <remi@remirepo.net> - 8.0.10~RC1-3
+- phar: switch to sha256 signature by default, backported from 8.1
+- phar: implement openssl_256 and openssl_512 for signatures, backported from 8.1
+
+* Wed Aug 11 2021 Remi Collet <remi@remirepo.net> - 8.0.10~RC1-2
+- snmp: add sha256 / sha512 security protocol, backported from 8.1
+
+* Tue Aug 10 2021 Remi Collet <remi@remirepo.net> - 8.0.10~RC1-1
+- update to 8.0.10RC1
+- adapt systzdata patch for timelib 2020.03 (v20)
+
+* Tue Aug 3 2021 Remi Collet <remi@remirepo.net> - 8.0.9-2
+- add upstream patch for https://bugs.php.net/81325 segfault in simplexml
+
+* Thu Jul 29 2021 Remi Collet <remi@remirepo.net> - 8.0.9-1
+- Update to 8.0.9 - http://www.php.net/releases/8_0_9.php
+
+* Fri Jul 23 2021 Fedora Release Engineering <releng@fedoraproject.org> - 8.0.9~RC1-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_35_Mass_Rebuild
+
+* Mon Jul 19 2021 Remi Collet <remi@remirepo.net> - 8.0.9~RC1-1
+- update to 8.0.9RC1
+
+* Tue Jun 29 2021 Remi Collet <remi@remirepo.net> - 8.0.8-1
+- Update to 8.0.8 - http://www.php.net/releases/8_0_8.php
+
+* Tue Jun 15 2021 Remi Collet <remi@remirepo.net> - 8.0.8~RC1-1
+- update to 8.0.8RC1
+
+* Wed Jun 2 2021 Remi Collet <remi@remirepo.net> - 8.0.7-1
+- Update to 8.0.7 - http://www.php.net/releases/8_0_7.php
+
+* Thu May 27 2021 Remi Collet <remi@remirepo.net> - 8.0.7~RC1-2
+- fix snmp extension for net-snmp without DES
+
+* Thu May 20 2021 Remi Collet <remi@remirepo.net> - 8.0.7~RC1-1
+- update to 8.0.7RC1
+
+* Thu May 20 2021 Pete Walter <pwalter@fedoraproject.org> - 8.0.6-4
+- Rebuild for ICU 69
+
+* Sat May 8 2021 Remi Collet <remi@remirepo.net> - 8.0.6-3
+- get rid of inet_addr and gethostbyaddr calls
+
+* Thu May 6 2021 Remi Collet <remi@remirepo.net> - 8.0.6-2
+- get rid of inet_ntoa and inet_aton calls
+
+* Wed May 5 2021 Remi Collet <remi@remirepo.net> - 8.0.6-1
+- Update to 8.0.6 - http://www.php.net/releases/8_0_6.php
+
+* Tue Apr 27 2021 Remi Collet <remi@remirepo.net> - 8.0.5-1
+- Update to 8.0.5 - http://www.php.net/releases/8_0_5.php
+
+* Tue Apr 13 2021 Remi Collet <remi@remirepo.net> - 8.0.5~RC1-1
+- update to 8.0.5RC1
+
+* Fri Mar 19 2021 Remi Collet <remi@remirepo.net> - 8.0.4~RC1-2
+- make libdb usage conditional
+ default: on for Fedora, off for RHEL
+
+* Tue Mar 16 2021 Remi Collet <remi@remirepo.net> - 8.0.4~RC1-1
+- update to 8.0.4RC1
+
+* Mon Mar 15 2021 Remi Collet <remi@remirepo.net> - 8.0.3-2
+- clean conditions
+
+* Thu Mar 4 2021 Remi Collet <remi@remirepo.net> - 8.0.3-1
+- Update to 8.0.3 - http://www.php.net/releases/8_0_3.php
+- see https://fedoraproject.org/wiki/Changes/php80
+- drop xmlrpc extension
+- drop json subpackage, extension always there
+- enchant: use libenchant-2 instead of libenchant
+
+* Tue Mar 2 2021 Remi Collet <remi@remirepo.net> - 7.4.16-1
+- Update to 7.4.16 - http://www.php.net/releases/7_4_16.php
+
+* Wed Feb 24 2021 Remi Collet <remi@remirepo.net> - 7.4.15-3
+- drop php-imap, fix #1929640
+
+* Mon Feb 08 2021 Pavel Raiskup <praiskup@redhat.com> - 7.4.15-2
+- rebuild for libpq ABI fix rhbz#1908268
+
+* Tue Feb 2 2021 Remi Collet <remi@remirepo.net> - 7.4.15-1
+- Update to 7.4.15 - http://www.php.net/releases/7_4_15.php
+- add upstream patch for https://bugs.php.net/80682
+ fix opcache doesn't honour pcre.jit option
+
+* Wed Jan 27 2021 Fedora Release Engineering <releng@fedoraproject.org> - 7.4.15~RC2-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_34_Mass_Rebuild
+
+* Tue Jan 19 2021 Remi Collet <remi@remirepo.net> - 7.4.15~RC2-1
+- update to 7.4.15RC2
+
+* Tue Jan 5 2021 Remi Collet <remi@remirepo.net> - 7.4.14-1
+- Update to 7.4.14 - http://www.php.net/releases/7_4_14.php
+
+* Wed Dec 16 2020 Remi Collet <remi@remirepo.net> - 7.4.14~RC1-1
+- update to 7.4.14RC1
+
+* Tue Dec 1 2020 Remi Collet <remi@remirepo.net> - 7.4.13-2
+- explicitly requires make
+ https://fedoraproject.org/wiki/Changes/Remove_make_from_BuildRoot
+
+* Tue Nov 24 2020 Remi Collet <remi@remirepo.net> - 7.4.13-1
+- Update to 7.4.13 - http://www.php.net/releases/7_4_13.php
+
+* Thu Nov 12 2020 Remi Collet <remi@remirepo.net> - 7.4.13~RC1-1
+- update to 7.4.13RC1
+
+* Tue Oct 27 2020 Remi Collet <remi@remirepo.net> - 7.4.12-1
+- Update to 7.4.12 - http://www.php.net/releases/7_4_12.php
+
+* Tue Oct 13 2020 Remi Collet <remi@remirepo.net> - 7.4.12~RC1-1
+- update to 7.4.12RC1
+
+* Tue Sep 29 2020 Remi Collet <remi@remirepo.net> - 7.4.11-1
+- Update to 7.4.11 - http://www.php.net/releases/7_4_11.php
+
+* Tue Sep 15 2020 Remi Collet <remi@remirepo.net> - 7.4.11~RC1-1
+- update to 7.4.11RC1
+
+* Thu Sep 03 2020 Josef Řídký <jridky@redhat.com> - 7.4.10-2
+- Rebuilt for new net-snmp release
+
+* Tue Sep 1 2020 Remi Collet <remi@remirepo.net> - 7.4.10-1
+- Update to 7.4.10 - http://www.php.net/releases/7_4_10.php
+
+* Thu Aug 27 2020 Josef Řídký <jridky@redhat.com> - 7.4.10~RC1-2
+- Rebuilt for new net-snmp release
+
+* Tue Aug 18 2020 Remi Collet <remi@remirepo.net> - 7.4.10~RC1-1
+- update to 7.4.10RC1
+
+* Mon Aug 10 2020 Remi Collet <remi@remirepo.net> - 7.4.9-1
+- Update to 7.4.9 - http://www.php.net/releases/7_4_9.php
+
+* Tue Jul 28 2020 Fedora Release Engineering <releng@fedoraproject.org> - 7.4.9~RC1-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_33_Mass_Rebuild
+
+* Tue Jul 21 2020 Remi Collet <remi@remirepo.net> - 7.4.9~RC1-1
+- update to 7.4.9RC1
+
+* Tue Jul 14 2020 Tom Stellard <tstellar@redhat.com> - 7.4.8-3
+- Use make macros
+- https://fedoraproject.org/wiki/Changes/UseMakeBuildInstallMacro
+
+* Thu Jul 9 2020 Remi Collet <remi@remirepo.net> - 7.4.8-2
+- Update to 7.4.8 - http://www.php.net/releases/7_4_8.php
+ rebuild from new sources
+
+* Tue Jul 7 2020 Remi Collet <remi@remirepo.net> - 7.4.8-1
+- Update to 7.4.8 - http://www.php.net/releases/7_4_8.php
+
+* Mon Jul 6 2020 Remi Collet <remi@remirepo.net> - 7.4.8~RC1-3
+- display build system and provider in phpinfo (from 8.0)
+
+* Wed Jul 01 2020 Jeff Law <law@redhat.com> - 7.4.8~RC1-2
+- Disable LTO
+
+* Tue Jun 23 2020 Remi Collet <remi@remirepo.net> - 7.4.8~RC1-1
+- update to 7.4.8RC1
+- drop patch to fix PHP_UNAME
+
+* Tue Jun 16 2020 Remi Collet <remi@remirepo.net> - 7.4.7-2
+- disable build of mod_php
+ https://fedoraproject.org/wiki/Changes/drop_mod_php
+
+* Tue Jun 9 2020 Remi Collet <remi@remirepo.net> - 7.4.7-1
+- Update to 7.4.7 - http://www.php.net/releases/7_4_7.php
+
+* Mon Jun 8 2020 Remi Collet <remi@remirepo.net> - 7.4.7~RC1-4
+- rewrite conditional using bcond_with and bcond_without
+
+* Tue May 26 2020 Remi Collet <remi@remirepo.net> - 7.4.7~RC1-1
+- update to 7.4.7RC1
+
+* Wed May 20 2020 Remi Collet <remi@remirepo.net> - 7.4.6-3
+- use php-config from embed SAPI to reduce used libs
+
+* Sat May 16 2020 Pete Walter <pwalter@fedoraproject.org> - 7.4.6-2
+- Rebuild for ICU 67
+
+* Tue May 12 2020 Remi Collet <remi@remirepo.net> - 7.4.6-1
+- Update to 7.4.6 - http://www.php.net/releases/7_4_6.php
+
+* Wed Apr 29 2020 Remi Collet <remi@remirepo.net> - 7.4.6~RC1-1
+- update to 7.4.6RC1
+
+* Tue Apr 21 2020 Remi Collet <remi@fedoraproject.org> - 7.4.5-2
+- make mod_php optional (enabled by default for now)
+- drop mod_php ZTS build
+- run FPM tests
+
+* Tue Apr 14 2020 Remi Collet <remi@remirepo.net> - 7.4.5-1
+- Update to 7.4.5 - http://www.php.net/releases/7_4_5.php
+
+* Tue Mar 31 2020 Remi Collet <remi@remirepo.net> - 7.4.5~RC1-1
+- update to 7.4.5RC1
+
+* Tue Mar 17 2020 Remi Collet <remi@remirepo.net> - 7.4.4-1
+- Update to 7.4.4 - http://www.php.net/releases/7_4_4.php
+
+* Tue Mar 3 2020 Remi Collet <remi@remirepo.net> - 7.4.4~RC1-1
+- update to 7.4.4RC1
+
+* Tue Feb 18 2020 Remi Collet <remi@remirepo.net> - 7.4.3-1
+- Update to 7.4.3 - http://www.php.net/releases/7_4_3.php
+
+* Tue Feb 4 2020 Remi Collet <remi@remirepo.net> - 7.4.3~RC1-1
+- update to 7.4.3RC1
+
+* Thu Jan 30 2020 Fedora Release Engineering <releng@fedoraproject.org> - 7.4.2-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_32_Mass_Rebuild
+
+* Tue Jan 21 2020 Remi Collet <remi@remirepo.net> - 7.4.2-1
+- Update to 7.4.2 - http://www.php.net/releases/7_4_2.php
+
+* Tue Jan 7 2020 Remi Collet <remi@remirepo.net> - 7.4.2~RC1-1
+- update to 7.4.2RC1
+
+* Wed Dec 18 2019 Remi Collet <remi@remirepo.net> - 7.4.1-1
+- Update to 7.4.1 - http://www.php.net/releases/7_4_1.php
+
+* Wed Dec 11 2019 Remi Collet <remi@remirepo.net> - 7.4.1~RC1-1
+- update to 7.4.1RC1
+
+* Wed Nov 27 2019 Remi Collet <remi@remirepo.net> - 7.4.0-1
+- update to 7.4.0 GA
+
+* Mon Nov 11 2019 Remi Collet <remi@remirepo.net> - 7.4.0~RC6-1
+- update to 7.4.0RC6
+
+* Fri Nov 01 2019 Pete Walter <pwalter@fedoraproject.org> - 7.4.0~RC5-2
+- Rebuild for ICU 65
+
+* Tue Oct 29 2019 Remi Collet <remi@remirepo.net> - 7.4.0~RC5-1
+- update to 7.4.0RC5
+- set opcache.enable_cli in provided default configuration
+- add /usr/share/php/preload as default ffi.preload configuration
+
+* Tue Oct 15 2019 Remi Collet <remi@remirepo.net> - 7.4.0~RC4-1
+- update to 7.4.0RC4
+
+* Mon Oct 7 2019 Remi Collet <remi@remirepo.net> - 7.4.0~RC3-2
+- ensure all shared extensions can be loaded
+- add patch from https://github.com/php/php-src/pull/4794
+ to ensure opcache is always linked with librt
+
+* Tue Oct 1 2019 Remi Collet <remi@remirepo.net> - 7.4.0~RC3-1
+- update to 7.4.0RC3
+- bump API version to 20190902
+- drop wddx, recode and interbase extensions
+- add ffi extension
+- drop dependency on libargon2, use libsodium implementation
+- run test suite using 4 concurrent workers
+- cleanup unused conditional
+- add upstream patch to fix aarch64 build
+
+* Tue Sep 24 2019 Remi Collet <remi@remirepo.net> - 7.3.10-1
+- Update to 7.3.10 - http://www.php.net/releases/7_3_10.php
+
+* Wed Sep 11 2019 Remi Collet <remi@remirepo.net> - 7.3.10~RC1-2
+- update to 7.3.10RC1 (new tag)
+
+* Tue Sep 10 2019 Remi Collet <remi@remirepo.net> - 7.3.10~RC1-1
+- update to 7.3.10RC1
+
+* Wed Aug 28 2019 Remi Collet <remi@remirepo.net> - 7.3.9-1
+- Update to 7.3.9 - http://www.php.net/releases/7_3_9.php
+- add tarball signature check
+
+* Tue Aug 20 2019 Petr Pisar <ppisar@redhat.com> - 7.3.9~RC1-2
+- Rebuild against recode-3.7.2 (bug #1379055)
+
+* Mon Aug 19 2019 Remi Collet <remi@remirepo.net> - 7.3.9~RC1-1
+- update to 7.3.9RC1
+
+* Tue Jul 30 2019 Remi Collet <remi@remirepo.net> - 7.3.8-1
+- Update to 7.3.8 - http://www.php.net/releases/7_3_8.php
+
+* Tue Jul 16 2019 Remi Collet <remi@remirepo.net> - 7.3.8~RC1-1
+- update to 7.3.8RC1
+- add upstream patch for #78297
+- main package now recommends commonly used extensions
+ (json, mbstring, opcache, pdo, xml)
+
+* Wed Jul 3 2019 Remi Collet <remi@remirepo.net> - 7.3.7-2
+- Update to 7.3.7 - http://www.php.net/releases/7_3_7.php
+- disable opcache.huge_code_pages in default configuration
+
+* Thu Jun 20 2019 Remi Collet <remi@remirepo.net> - 7.3.7~RC3-1
+- update to 7.3.7RC3
+
+* Tue Jun 18 2019 Remi Collet <remi@remirepo.net> - 7.3.7~RC2-1
+- update to 7.3.7RC2
+
+* Tue Jun 11 2019 Remi Collet <remi@remirepo.net> - 7.3.7~RC1-1
+- update to 7.3.7RC1
+
+* Tue May 28 2019 Remi Collet <remi@remirepo.net> - 7.3.6-1
+- Update to 7.3.6 - http://www.php.net/releases/7_3_6.php
+
+* Wed May 15 2019 Remi Collet <remi@remirepo.net> - 7.3.6~RC1-2
+- update to 7.3.6RC1 (new tag)
+
+* Tue May 14 2019 Remi Collet <remi@remirepo.net> - 7.3.6~RC1-1
+- update to 7.3.6RC1
+
+* Wed May 1 2019 Remi Collet <remi@remirepo.net> - 7.3.5-1
+- Update to 7.3.5 - http://www.php.net/releases/7_3_5.php
+
+* Tue Apr 16 2019 Remi Collet <remi@remirepo.net> - 7.3.5~RC1-1
+- update to 7.3.5RC1
+
+* Tue Apr 2 2019 Remi Collet <remi@remirepo.net> - 7.3.4-1
+- Update to 7.3.4 - http://www.php.net/releases/7_3_4.php
+
+* Thu Mar 21 2019 Remi Collet <remi@remirepo.net> - 7.3.4~RC1-3
+- update to 7.3.4RC1 new tag
+- add upstream patches for failed tests
+- add build dependency on ps command
+
+* Wed Mar 20 2019 Remi Collet <remi@remirepo.net> - 7.3.4~RC1-2
+- revert upstream change for extension test suite
+
+* Tue Mar 19 2019 Remi Collet <remi@remirepo.net> - 7.3.4~RC1-1
+- update to 7.3.4RC1
+
+* Mon Mar 18 2019 Remi Collet <remi@fedoraproject.org> - 7.3.3-2
+- rebuild for libargon2 new soname
+
+* Wed Mar 6 2019 Remi Collet <remi@remirepo.net> - 7.3.3-1
+- Update to 7.3.3 - http://www.php.net/releases/7_3_3.php
+- add upstream patch for OpenSSL 1.1.1b
+
+* Tue Feb 19 2019 Remi Collet <remi@remirepo.net> - 7.3.3~RC1-1
+- update to 7.3.3RC1
+- adapt systzdata patch (v18)
+
+* Wed Feb 6 2019 Remi Collet <remi@remirepo.net> - 7.3.2-1
+- Update to 7.3.2 - http://www.php.net/releases/7_3_2.php
+
+* Sat Feb 02 2019 Fedora Release Engineering <releng@fedoraproject.org> - 7.3.2~RC1-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_30_Mass_Rebuild
+
+* Wed Jan 23 2019 Pete Walter <pwalter@fedoraproject.org> - 7.3.2~RC1-2
+- Rebuild for ICU 63
+
+* Tue Jan 22 2019 Remi Collet <remi@remirepo.net> - 7.3.2~RC1-1
+- update to 7.3.2RC1
+- update system tzdata patch for timelib 2018.01
+
+* Mon Jan 14 2019 Björn Esser <besser82@fedoraproject.org> - 7.3.1-2
+- Rebuilt for libcrypt.so.2 (#1666033)
+
+* Tue Jan 8 2019 Remi Collet <remi@remirepo.net> - 7.3.1-1
+- Update to 7.3.1 - http://www.php.net/releases/7_3_1.php
+
+* Tue Dec 18 2018 Remi Collet <remi@remirepo.net> - 7.3.1-0.1.RC1
+- update to 7.3.1RC1
+
+* Tue Dec 4 2018 Remi Collet <remi@remirepo.net> - 7.3.0-1
+- update to 7.3.0 GA
+- update FPM configuration from upstream
+
+* Tue Nov 20 2018 Remi Collet <remi@remirepo.net> - 7.3.0~0.3.RC5
+- update to 7.3.0RC6
+
+* Tue Nov 6 2018 Remi Collet <remi@remirepo.net> - 7.3.0~0.2.RC5
+- update to 7.3.0RC5
+
+* Fri Nov 2 2018 Remi Collet <remi@remirepo.net> - 7.3.0-0.1.RC4
+- rebuild
+
+* Tue Oct 23 2018 Remi Collet <remi@remirepo.net> - 7.3.0~rc4-1
+- update to 7.3.0RC4
+
+* Tue Oct 9 2018 Remi Collet <remi@remirepo.net> - 7.3.0~rc3-1
+- update to 7.3.0RC3
+
+* Thu Oct 4 2018 Remi Collet <remi@remirepo.net> - 7.3.0~rc2-1
+- update to 7.3.0RC2
+- bump API numbers
+- switch from libpcre to libpcre2
+- temporarily disable pcre jit on s390x see https://bugzilla.redhat.com/1636032
+
+* Wed Sep 26 2018 Remi Collet <remi@remirepo.net> - 7.2.11~RC1-1
+- update to 7.2.11RC1
+
+* Tue Sep 11 2018 Remi Collet <remi@remirepo.net> - 7.2.10-1
+- Update to 7.2.10 - http://www.php.net/releases/7_2_10.php
+
+* Tue Aug 28 2018 Remi Collet <remi@remirepo.net> - 7.2.10~RC1-1
+- update to 7.2.10RC1
+
+* Thu Aug 16 2018 Remi Collet <remi@remirepo.net> - 7.2.9-1
+- Update to 7.2.9 - http://www.php.net/releases/7_2_9.php
+
+* Tue Jul 24 2018 Adam Williamson <awilliam@redhat.com> - 7.2.8-2
+- Rebuild for new net-snmp
+
+* Tue Jul 17 2018 Remi Collet <remi@remirepo.net> - 7.2.8-1
+- Update to 7.2.8 - http://www.php.net/releases/7_2_8.php
+
+* Fri Jul 13 2018 Fedora Release Engineering <releng@fedoraproject.org> - 7.2.8~RC1-4
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_29_Mass_Rebuild
+
+* Tue Jul 10 2018 Pete Walter <pwalter@fedoraproject.org> - 7.2.8~RC1-3
+- Rebuild for ICU 62
+
+* Tue Jul 3 2018 Remi Collet <remi@remirepo.net> - 7.2.8~RC1-2
+- FPM: add getallheaders, backported from 7.3
+
+* Tue Jul 3 2018 Remi Collet <remi@remirepo.net> - 7.2.8~RC1-1
+- update to 7.2.8RC1
+
+* Wed Jun 20 2018 Remi Collet <remi@remirepo.net> - 7.2.7-1
+- Update to 7.2.7 - http://www.php.net/releases/7_2_7.php
+- drop -mstackrealign option, workaround to #1593144
+
+* Wed Jun 6 2018 Remi Collet <remi@remirepo.net> - 7.2.7~RC1-1
+- update to 7.2.7RC1
+
+* Wed May 23 2018 Remi Collet <remi@remirepo.net> - 7.2.6-1
+- Update to 7.2.6 - http://www.php.net/releases/7_2_6.php
+
+* Sun May 13 2018 Remi Collet <remi@remirepo.net> - 7.2.6~RC1-1
+- update to 7.2.6RC1
+
+* Mon Apr 30 2018 Pete Walter <pwalter@fedoraproject.org> - 7.2.5-2
+- Rebuild for ICU 61.1
+
+* Tue Apr 24 2018 Remi Collet <remi@remirepo.net> - 7.2.5-1
+- Update to 7.2.5 - http://www.php.net/releases/7_2_5.php
+
+* Wed Apr 11 2018 Remi Collet <remi@remirepo.net> - 7.2.5~RC1-1
+- update to 7.2.5RC1
+
+* Tue Apr 3 2018 Remi Collet <remi@remirepo.net> - 7.2.4-2
+- add upstream patch for oniguruma 6.8.1, FTBFS #1562583
+
+* Sun Apr 01 2018 Mamoru TASAKA <mtasaka@fedoraproject.org> - 7.2.4-2
+- Rebuild against oniguruma 6.8.1
+
+* Tue Mar 27 2018 Remi Collet <remi@remirepo.net> - 7.2.4-1
+- Update to 7.2.4 - http://www.php.net/releases/7_2_4.php
+- FPM: update default pool configuration for process.dumpable
+
+* Wed Mar 21 2018 Remi Collet <remi@remirepo.net> - 7.2.4~RC1-3
+- use systemd RuntimeDirectory instead of /etc/tmpfiles.d
+
+* Thu Mar 15 2018 Remi Collet <remi@remirepo.net> - 7.2.4~RC1-2
+- add file trigger to restart the php-fpm service
+ when new pool or new extension installed #1556762
+
+* Tue Mar 13 2018 Remi Collet <remi@remirepo.net> - 7.2.4~RC1-1
+- update to 7.2.4RC1
+
+* Wed Feb 28 2018 Remi Collet <remi@remirepo.net> - 7.2.3-1
+- Update to 7.2.3 - http://www.php.net/releases/7_2_3.php
+- FPM: revert pid file removal
+
+* Wed Feb 21 2018 Remi Collet <remi@remirepo.net> - 7.2.3~RC1-4
+- disable ZTS on RHEL
+
+* Fri Feb 16 2018 Remi Collet <remi@remirepo.net> - 7.2.3~RC1-3
+- disable pspell extension on RHEL
+- improve devel dependencies
+
+* Wed Feb 14 2018 Remi Collet <remi@remirepo.net> - 7.2.3~RC1-2
+- rebuild for new tag and drop patch merged upstream
+- drop ldconfig scriptlets
+
+* Wed Feb 14 2018 Remi Collet <remi@remirepo.net> - 7.2.3~RC1-1
+- update to 7.2.3RC1
+- adapt systzdata, fixheader and ldap_r patches
+- apply upstream patch for date ext
+
+* Fri Feb 09 2018 Fedora Release Engineering <releng@fedoraproject.org> - 7.2.2-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_28_Mass_Rebuild
+
+* Tue Jan 30 2018 Remi Collet <remi@remirepo.net> - 7.2.2-1
+- Update to 7.2.2 - http://www.php.net/releases/7_2_2.php
+
+* Mon Jan 29 2018 Remi Collet <rcollet@redhat.com> - 7.2.2~RC1-3
+- disable interbase, imap, pdo_dblib and sodium on rhel
+
+* Thu Jan 25 2018 Remi Collet <remi@remirepo.net> - 7.2.2~RC1-3
+- undefine _strict_symbol_defs_build
+
+* Sat Jan 20 2018 Björn Esser <besser82@fedoraproject.org> - 7.2.2~RC1-2
+- Rebuilt for switch to libxcrypt
+
+* Tue Jan 16 2018 Remi Collet <remi@remirepo.net> - 7.2.2~RC1-1
+- update to 7.2.2RC1
+- define SOURCE_DATE_EPOCH for reproducible build
+
+* Wed Jan 3 2018 Remi Collet <remi@remirepo.net> - 7.2.1-1
+- Update to 7.2.1 - http://www.php.net/releases/7_2_1.php
+
+* Wed Dec 13 2017 Remi Collet <remi@remirepo.net> - 7.2.1~RC1-1
+- update to 7.2.1RC1
+
+* Thu Nov 30 2017 Pete Walter <pwalter@fedoraproject.org> - 7.2.0-3
+- Rebuild for ICU 60.1
+
+* Tue Nov 28 2017 Remi Collet <remi@remirepo.net> - 7.2.0-2
+- refresh patch for https://bugs.php.net/75514
+
+* Tue Nov 28 2017 Remi Collet <remi@remirepo.net> - 7.2.0-1
+- update to 7.2.0 GA
+- add upstream patch for https://bugs.php.net/75514
+
+* Tue Nov 7 2017 Remi Collet <remi@fedoraproject.org> - 7.2.0~RC6-1
+- Update to 7.2.0RC6
+
+* Wed Oct 25 2017 Remi Collet <remi@fedoraproject.org> - 7.2.0~RC5-1
+- Update to 7.2.0RC5
+- make php-fpm a weak dependency
+
+* Wed Oct 18 2017 Remi Collet <remi@remirepo.net> - 7.2.0~RC4-2
+- enable argon2 password hash
+
+* Tue Oct 10 2017 Remi Collet <remi@fedoraproject.org> - 7.2.0~RC4-1
+- Update to 7.2.0RC4
+
+* Fri Sep 29 2017 Remi Collet <remi@fedoraproject.org> - 7.2.0~RC3-1
+- Update to 7.2.0RC3
+- drop mcrypt extension
+- add sodium extension
+- use system oniguruma
+- drop .so suffix from ini files
+- refresh configuration files from upstream
+
+* Wed Sep 27 2017 Remi Collet <remi@fedoraproject.org> - 7.1.10-1
+- Update to 7.1.10 - http://www.php.net/releases/7_1_10.php
+
+* Mon Sep 25 2017 Remi Collet <remi@fedoraproject.org> - 7.1.10~RC1-2
+- php now requires php-fpm and start it with httpd / nginx
+
+* Wed Sep 13 2017 Remi Collet <remi@fedoraproject.org> - 7.1.10~RC1-1
+- Update to 7.1.10RC1
+
+* Wed Sep 6 2017 Remi Collet <remi@fedoraproject.org> - 7.1.9-2
+- Automatically load OpenSSL configuration file, from PHP 7.2
+
+* Wed Aug 30 2017 Remi Collet <remi@fedoraproject.org> - 7.1.9-1
+- Update to 7.1.9 - http://www.php.net/releases/7_1_9.php
+
+* Wed Aug 16 2017 Remi Collet <remi@fedoraproject.org> - 7.1.9~RC1-1
+- Update to 7.1.9RC1
+- php-fpm: drop unneeded "pid" from default configuration
+
+* Wed Aug 2 2017 Remi Collet <remi@fedoraproject.org> - 7.1.8-1
+- Update to 7.1.8 - http://www.php.net/releases/7_1_8.php
+
+* Thu Jul 27 2017 Fedora Release Engineering <releng@fedoraproject.org> - 7.1.8~RC1-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Mass_Rebuild
+
+* Wed Jul 19 2017 Remi Collet <remi@fedoraproject.org> - 7.1.8~RC1-1
+- Update to 7.1.8RC1
+
+* Tue Jul 18 2017 Remi Collet <remi@fedoraproject.org> - 7.1.7-2
+- disable httpd MPM check
+
+* Thu Jul 6 2017 Remi Collet <remi@fedoraproject.org> - 7.1.7-1
+- Update to 7.1.7 - http://www.php.net/releases/7_1_7.php
+
+* Wed Jun 21 2017 Remi Collet <remi@fedoraproject.org> - 7.1.7~RC1-1
+- Update to 7.1.7RC1
+
+* Wed Jun 7 2017 Remi Collet <remi@fedoraproject.org> - 7.1.6-1
+- Update to 7.1.6 - http://www.php.net/releases/7_1_6.php
+- add upstream security patches for oniguruma
+
+* Wed May 24 2017 Remi Collet <remi@fedoraproject.org> - 7.1.6~RC1-1
+- Update to 7.1.6RC1
+
+* Tue May 9 2017 Remi Collet <remi@fedoraproject.org> - 7.1.5-1
+- Update to 7.1.5 - http://www.php.net/releases/7_1_5.php
+
+* Sat May 6 2017 Remi Collet <remi@fedoraproject.org> - 7.1.5-0.3.RC1
+- enable PHP execution of .phar files, see #1117140
+
+* Thu Apr 27 2017 Remi Collet <remi@fedoraproject.org> - 7.1.5-0.2.RC1
+- new sources from new tag
+
+* Tue Apr 25 2017 Remi Collet <remi@fedoraproject.org> - 7.1.5-0.1.RC1
+- Update to 7.1.5RC1
+
+* Tue Apr 11 2017 Remi Collet <remi@fedoraproject.org> - 7.1.4-1
+- Update to 7.1.4 - http://www.php.net/releases/7_1_4.php
+
+* Wed Mar 29 2017 Remi Collet <remi@fedoraproject.org> - 7.1.4-0.1.RC1
+- Update to 7.1.4RC1
+
+* Wed Mar 22 2017 Remi Collet <remi@fedoraproject.org> - 7.1.3-3
+- timelib is MIT license
+
+* Wed Mar 15 2017 Remi Collet <remi@fedoraproject.org> - 7.1.3-2
+- remove %%attr, see #1432372
+
+* Wed Mar 15 2017 Remi Collet <remi@fedoraproject.org> - 7.1.3-1
+- Update to 7.1.3 - http://www.php.net/releases/7_1_3.php
+
+* Tue Feb 28 2017 Remi Collet <remi@fedoraproject.org> 7.1.3-0.1.RC1
+- Update to 7.1.3RC1
+
+* Wed Feb 15 2017 Remi Collet <remi@fedoraproject.org> - 7.1.2-1
+- Update to 7.1.2 - http://www.php.net/releases/7_1_2.php
+
+* Sat Feb 11 2017 Fedora Release Engineering <releng@fedoraproject.org> - 7.1.2-0.2.RC1.1
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_26_Mass_Rebuild
+
+* Thu Feb 2 2017 Remi Collet <remi@fedoraproject.org> - 7.1.2-0.2.RC1
+- Update to 7.1.2RC1 (new sources)
+
+* Wed Feb 1 2017 Remi Collet <remi@fedoraproject.org> 7.1.2-0.1.RC1
+- Update to 7.1.2RC1
+
+* Wed Jan 18 2017 Remi Collet <remi@fedoraproject.org> 7.1.1-1
+- Update to 7.1.1 - http://www.php.net/releases/7_1_1.php
+
+* Fri Jan 6 2017 Remi Collet <remi@fedoraproject.org> 7.1.1-0.1.RC1
+- Update to 7.1.1RC1
+
+* Thu Dec 1 2016 Remi Collet <remi@fedoraproject.org> 7.1.0-1
+- Update to 7.1.0 - http://www.php.net/releases/7_1_0.php
+
+* Fri Nov 25 2016 Remi Collet <remi@fedoraproject.org> 7.1.0-0.3.RC6
+- disable pcre.jit everywhere as it raise AVC #1398474
+- sync provided configuration with upstream production defaults
+
+* Mon Nov 14 2016 Remi Collet <remi@fedoraproject.org> 7.1.0-0.2.RC6
+- re-enable interbase sub package
+ see http://bugzilla.redhat.com/1394750 sub package inconsistency
+- add patch to fix firebird include path (using fb_config)
+
+* Mon Nov 14 2016 Remi Collet <remi@fedoraproject.org> 7.1.0-0.1.RC6
+- Update to 7.1.0RC6
+- update tzdata patch to v14, improve check for valid tz file
+- disable interbase sub package (interbase and pdo_firebird)
+
+* Tue Oct 11 2016 Remi Collet <remi@fedoraproject.org> 7.1.0-0.1.RC3
+- Update to 7.1.0RC3
+
+* Wed Sep 28 2016 Remi Collet <remi@fedoraproject.org> 7.0.12-0.1.RC1
+- Update to 7.0.12RC1
+
+* Wed Sep 14 2016 Remi Collet <remi@fedoraproject.org> 7.0.11-1
+- Update to 7.0.11 - http://www.php.net/releases/7_0_11.php
+
+* Fri Sep 2 2016 Remi Collet <remi@fedoraproject.org> 7.0.11-0.1.RC1
+- Update to 7.0.11RC1
+
+* Thu Sep 1 2016 Remi Collet <remi@fedoraproject.org> 7.0.10-1
+- Update to 7.0.10 - http://www.php.net/releases/7_0_10.php
+
+* Wed Aug 3 2016 Remi Collet <remi@fedoraproject.org> 7.0.10-0.1.RC1
+- Update to 7.0.10RC1
+
+* Wed Jul 20 2016 Remi Collet <remi@fedoraproject.org> 7.0.9-1
+- Update to 7.0.9 - http://www.php.net/releases/7_0_9.php
+- wddx: add upstream patch for https://bugs.php.net/72564
+
+* Wed Jul 6 2016 Remi Collet <remi@fedoraproject.org> 7.0.9-0.1.RC1
+- Update to 7.0.9RC1
+
+* Thu Jun 30 2016 Remi Collet <remi@fedoraproject.org> 7.0.8-2
+- own tests/doc directories for pecl packages #1351345
+
+* Wed Jun 22 2016 Remi Collet <remi@fedoraproject.org> 7.0.8-1
+- Update to 7.0.8 - http://www.php.net/releases/7_0_8.php
+- https://fedoraproject.org/wiki/Changes/php70
+- drop ereg, mysql, mssql extensions
+- add json extension
+
+* Wed Jun 22 2016 Remi Collet <remi@fedoraproject.org> 5.6.23-1
+- Update to 5.6.23 - http://www.php.net/releases/5_6_23.php
+
+* Thu Jun 9 2016 Remi Collet <remi@fedoraproject.org> 5.6.23-0.1.RC1
+- update to 5.6.23RC1
+
+* Fri May 27 2016 Remi Collet <remi@fedoraproject.org> 5.6.22-2
+- drop unneeded option --with-vpx-dir, fix FTBFS, thanks Koschei
+
+* Thu May 26 2016 Remi Collet <remi@fedoraproject.org> 5.6.22-1
+- Update to 5.6.22 - http://www.php.net/releases/5_6_22.php
+
+* Thu May 12 2016 Remi Collet <remi@fedoraproject.org> 5.6.22-0.1.RC1
+- update to 5.6.22RC1
+
+* Thu Apr 28 2016 Remi Collet <remi@fedoraproject.org> 5.6.21-1
+- Update to 5.6.21
+ http://www.php.net/releases/5_6_21.php
+
+* Mon Apr 18 2016 Remi Collet <remi@fedoraproject.org> 5.6.21-0.2.RC1
+- rebuild for ICU 57.1
+
+* Mon Apr 18 2016 Remi Collet <remi@fedoraproject.org> 5.6.21-0.1.RC1
+- update to 5.6.21RC1
+
+* Fri Apr 15 2016 David Tardon <dtardon@redhat.com> - 5.6.20-1.1
+- rebuild for ICU 57.1
+
+* Thu Mar 31 2016 Remi Collet <remi@fedoraproject.org> 5.6.20-1
+- Update to 5.6.20
+ http://www.php.net/releases/5_6_20.php
+
+* Thu Mar 17 2016 Remi Collet <remi@fedoraproject.org> 5.6.20-0.1.RC1
+- update to 5.6.20RC1
+
+* Thu Mar 3 2016 Remi Collet <remi@fedoraproject.org> 5.6.19-1
+- Update to 5.6.19
+ http://www.php.net/releases/5_6_19.php
+
+* Thu Feb 18 2016 Remi Collet <remi@fedoraproject.org> 5.6.19-0.1.RC1
+- update to 5.6.19RC1
+
+* Tue Feb 9 2016 Remi Collet <remi@fedoraproject.org> 5.6.18-2
+- define %%pecl_xmldir and own it (/var/lib/php/peclxml)
+
+* Wed Feb 3 2016 Remi Collet <remi@fedoraproject.org> 5.6.18-1
+- Update to 5.6.18
+ http://www.php.net/releases/5_6_18.php
+
+* Thu Jan 21 2016 Remi Collet <remi@fedoraproject.org> 5.6.18-0.1.RC1
+- update to 5.6.18RC1
+
+* Thu Jan 7 2016 Remi Collet <remi@fedoraproject.org> 5.6.17-1
+- Update to 5.6.17
+ http://www.php.net/releases/5_6_17.php
+
+* Thu Dec 10 2015 Remi Collet <remi@fedoraproject.org> 5.6.17-0.1.RC1
+- update to 5.6.17RC1
+
+* Tue Dec 1 2015 Tom Callaway <spot@fedoraproject.org> 5.6.16-2
+- rebuild for libvpx 1.5.0
+
+* Thu Nov 26 2015 Remi Collet <remi@fedoraproject.org> 5.6.16-1
+- Update to 5.6.16
+ http://www.php.net/releases/5_6_16.php
+
+* Wed Nov 18 2015 Rex Dieter <rdieter@fedoraproject.org> 5.6.16-0.2.RC2
+- rebuild (tidy)
+
+* Thu Nov 12 2015 Remi Collet <remi@fedoraproject.org> 5.6.16-0.1.RC1
+- update to 5.6.16RC1
+
+* Thu Oct 29 2015 Remi Collet <remi@fedoraproject.org> 5.6.15-1
+- Update to 5.6.15
+ http://www.php.net/releases/5_6_15.php
+- php-config: reports all built sapis
+
+* Thu Oct 15 2015 Remi Collet <remi@fedoraproject.org> 5.6.15-0.1.RC1
+- update to 5.6.15RC1
+
+* Wed Sep 30 2015 Remi Collet <remi@fedoraproject.org> 5.6.14-1
+- Update to 5.6.14
+ http://www.php.net/releases/5_6_14.php
+- php-fpm: enable http authorization headers
+
+* Thu Sep 17 2015 Remi Collet <remi@fedoraproject.org> 5.6.14-0.1.RC1
+- update to 5.6.14RC1
+
+* Thu Sep 3 2015 Remi Collet <remi@fedoraproject.org> 5.6.13-1
+- Update to 5.6.13
+ http://www.php.net/releases/5_6_13.php
+
+* Thu Aug 6 2015 Remi Collet <remi@fedoraproject.org> 5.6.12-1
+- Update to 5.6.12
+ http://www.php.net/releases/5_6_12.php
+
+* Fri Jul 24 2015 Remi Collet <remi@fedoraproject.org> 5.6.12-0.1.RC1
+- update to 5.6.12RC1
+
+* Fri Jul 17 2015 Remi Collet <remi@fedoraproject.org> 5.6.11-2
+- fix typo in php.conf #1244104
+
+* Sun Jul 12 2015 Remi Collet <remi@fedoraproject.org> 5.6.11-1
+- Update to 5.6.11
+ http://www.php.net/releases/5_6_11.php
+
+* Thu Jun 25 2015 Remi Collet <remi@fedoraproject.org> 5.6.11-0.1.RC1
+- update to 5.6.11RC1
+- the phar link is now correctly created
+
+* Thu Jun 18 2015 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 5.6.10-1.1
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_23_Mass_Rebuild
+
+* Thu Jun 11 2015 Remi Collet <remi@fedoraproject.org> 5.6.10-1
+- Update to 5.6.10
+ http://www.php.net/releases/5_6_10.php
+- add explicit spec license (implicit by FPCA)
+
+* Thu May 28 2015 Remi Collet <remi@fedoraproject.org> 5.6.10-0.1.RC1
+- update to 5.6.10RC1
+- opcache is now 7.0.6-dev
+
+* Fri May 15 2015 Remi Collet <remi@fedoraproject.org> 5.6.9-1
+- Update to 5.6.9
+ http://www.php.net/releases/5_6_9.php
+
+* Thu Apr 30 2015 Remi Collet <remi@fedoraproject.org> 5.6.9-0.1.RC1
+- update to 5.6.9RC1
+- adapt systzdata patch for upstream changes for new zic
+
+* Thu Apr 16 2015 Remi Collet <remi@fedoraproject.org> 5.6.8-1
+- Update to 5.6.8
+ http://www.php.net/releases/5_6_8.php
+
+* Fri Apr 10 2015 Remi Collet <remi@fedoraproject.org> 5.6.8-0.3.RC1
+- add upstream patch to drop SSLv3 tests
+
+* Mon Apr 6 2015 Tom Callaway <spot@fedoraproject.org> - 5.6.8-0.2.RC1
+- rebuild for libvpx 1.4.0
+
+* Wed Apr 1 2015 Remi Collet <remi@fedoraproject.org> 5.6.8-0.1.RC1
+- update to 5.6.8RC1
+
+* Fri Mar 20 2015 Remi Collet <remi@fedoraproject.org> 5.6.7-2
+- Update to 5.6.7
+ http://www.php.net/releases/5_6_7.php
+
+* Sun Mar 8 2015 Remi Collet <remi@fedoraproject.org> 5.6.7-1
+- update to 5.6.7RC1
+
+* Thu Feb 19 2015 Remi Collet <remi@fedoraproject.org> 5.6.6-1
+- Update to 5.6.6
+ http://www.php.net/releases/5_6_6.php
+
+* Thu Feb 5 2015 Remi Collet <rcollet@redhat.com> 5.6.6-0.1.RC1
+- php 5.6.6RC1 for Koschei
+
+* Mon Jan 26 2015 David Tardon <dtardon@redhat.com> - 5.6.5-2
+- rebuild for ICU 54.1
+
+* Thu Jan 22 2015 Remi Collet <remi@fedoraproject.org> 5.6.5-1
+- Update to 5.6.5
+ http://www.php.net/releases/5_6_5.php
+- drop deprecated php-fpm EnvironmentFile
+
+* Fri Jan 9 2015 Remi Collet <remi@fedoraproject.org> 5.6.5-0.1.RC1
+- update to 5.6.5RC1
+- FPM: enable ACL support for Unix Domain Socket
+- FPM: switch default configuration to use UDS
+
+* Wed Dec 17 2014 Remi Collet <remi@fedoraproject.org> 5.6.4-2
+- Update to 5.6.4 (real)
+ http://www.php.net/releases/5_6_4.php
+- php-xmlrpc requires php-xml
+
+* Wed Dec 10 2014 Remi Collet <remi@fedoraproject.org> 5.6.4-1
+- Update to 5.6.4
+ http://www.php.net/releases/5_6_4.php
+
+* Fri Nov 28 2014 Remi Collet <rcollet@redhat.com> 5.6.4-0.1.RC1
+- php 5.6.4RC1
+
+* Mon Nov 17 2014 Remi Collet <remi@fedoraproject.org> 5.6.3-4
+- FPM: add upstream patch for https://bugs.php.net/68428
+ listen.allowed_clients is IPv4 only
+
+* Mon Nov 17 2014 Remi Collet <remi@fedoraproject.org> 5.6.3-3
+- sync php-fpm configuration with upstream
+- refresh upstream patch for 68421
+
+* Sun Nov 16 2014 Remi Collet <remi@fedoraproject.org> 5.6.3-2
+- FPM: add upstream patch for https://bugs.php.net/68421
+ access.format=R doesn't log ipv6 address
+- FPM: add upstream patch for https://bugs.php.net/68420
+ listen=9000 listens to ipv6 localhost instead of all addresses
+- FPM: add upstream patch for https://bugs.php.net/68423
+ will no longer load all pools
+
+* Thu Nov 13 2014 Remi Collet <remi@fedoraproject.org> 5.6.3-1
+- Update to PHP 5.6.3
+ http://php.net/releases/5_6_3.php
+
+* Fri Oct 31 2014 Remi Collet <rcollet@redhat.com> 5.6.3-0.2.RC1
+- php 5.6.3RC1 (refreshed, phpdbg changes reverted)
+- new version of systzdata patch, fix case sensitivity
+- ignore Factory in date tests
+
+* Wed Oct 29 2014 Remi Collet <rcollet@redhat.com> 5.6.3-0.1.RC1
+- php 5.6.3RC1
+- disable opcache.fast_shutdown in default config
+- enable phpdbg_webhelper new extension (in php-dbg)
+
+* Thu Oct 16 2014 Remi Collet <remi@fedoraproject.org> 5.6.1-1
+- Update to PHP 5.6.2
+ http://php.net/releases/5_6_2.php
+
+* Fri Oct 3 2014 Remi Collet <remi@fedoraproject.org> 5.6.1-1
+- Update to PHP 5.6.1
+ http://php.net/releases/5_6_1.php
+- use default system cipher list by Fedora policy
+ http://fedoraproject.org/wiki/Changes/CryptoPolicy
+
+* Wed Sep 24 2014 Remi Collet <rcollet@redhat.com> 5.6.1-0.2.RC1
+- provides nginx configuration (see #1142298)
+
+* Sat Sep 13 2014 Remi Collet <rcollet@redhat.com> 5.6.1-0.1.RC1
+- php 5.6.1RC1
+
+* Thu Aug 28 2014 Remi Collet <remi@fedoraproject.org> 5.6.0-1
+- PHP 5.6.0 is GA
+ http://php.net/releases/5_6_0.php
+- fix ZTS man pages, upstream patch for 67878
+- provides php(httpd)
+
+* Sun Aug 17 2014 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 5.6.0-0.7.RC4
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_21_22_Mass_Rebuild
+
+* Thu Aug 14 2014 Remi Collet <rcollet@redhat.com> 5.6.0-0.6.RC4
+- php 5.6.0RC4
+
+* Thu Jul 31 2014 Remi Collet <rcollet@redhat.com> 5.6.0-0.5.RC3
+- fpm requires httpd >= 2.4.10 for proxy support in SetHandler
+
+* Thu Jul 31 2014 Remi Collet <rcollet@redhat.com> 5.6.0-0.4.RC3
+- php 5.6.0RC3
+- cleanup with_libmysql
+- fix licenses handling
+- fix zts-php-config --php-binary output #1124605
+- provide php.conf with php-fpm, allow apache + fpm
+ to work with default configuration, without mod_php
+
+* Mon Jul 7 2014 Remi Collet <rcollet@redhat.com> 5.6.0-0.3.RC2
+- php 5.6.0RC2
+
+* Mon Jun 23 2014 Remi Collet <rcollet@redhat.com> 5.6.0-0.2.RC1
+- fix phpdbg with libedit https://bugs.php.net/67499
+- add workaround for unserialize/mock issue from 5.4/5.5
+
+* Thu Jun 19 2014 Remi Collet <rcollet@redhat.com> 5.6.0-0.1.RC1
+- php 5.6.0RC1
+ https://fedoraproject.org/wiki/Changes/Php56
+- add php-dbg subpackage
+- update php.ini and opcache.ini from upstream production template
+- move zts-php to php-cli
+
+* Thu Jun 5 2014 Remi Collet <rcollet@redhat.com> 5.5.13-3
+- fix regression introduce in fix for #67118
+
+* Tue Jun 3 2014 Remi Collet <remi@fedoraproject.org> 5.5.13-2
+- fileinfo: fix insufficient boundary check
+- workaround regression introduce in fix for 67072 in
+ serialize/unzerialize functions
+
+* Fri May 30 2014 Remi Collet <rcollet@redhat.com> 5.5.13-1
+- Update to 5.5.13
+ http://www.php.net/releases/5_5_13.php
+- sync php.ini with upstream php.ini-production
+
+* Sat May 3 2014 Remi Collet <rcollet@redhat.com> 5.5.12-1
+- Update to 5.5.12
+ http://www.php.net/releases/5_5_12.php
+- php-fpm: change default unix socket permission CVE-2014-0185
+
+* Wed Apr 23 2014 Remi Collet <rcollet@redhat.com> 5.5.11-2
+- add numerical prefix to extension configuration files
+- prevent .user.ini files from being viewed by Web clients
+- load php directives only when mod_php is active
+
+* Thu Apr 3 2014 Remi Collet <rcollet@redhat.com> 5.5.11-1
+- Update to 5.5.11
+ http://www.php.net/ChangeLog-5.php#5.5.11
+
+* Thu Mar 6 2014 Remi Collet <rcollet@redhat.com> 5.5.10-1
+- Update to 5.5.10
+ http://www.php.net/ChangeLog-5.php#5.5.10
+- php-fpm should own /var/lib/php/session and wsdlcache
+- fix pcre test results with libpcre < 8.34
+
+* Tue Feb 18 2014 Remi Collet <rcollet@redhat.com> 5.5.9-2
+- upstream patch for https://bugs.php.net/66731
+
+* Thu Feb 13 2014 Remi Collet <remi@fedoraproject.org> 5.5.9-1.1
+- rebuild
+
+* Tue Feb 11 2014 Remi Collet <remi@fedoraproject.org> 5.5.9-1
+- Update to 5.5.9
+ http://www.php.net/ChangeLog-5.php#5.5.9
+- Install macros to /usr/lib/rpm/macros.d
+
+* Thu Jan 23 2014 Joe Orton <jorton@redhat.com> - 5.5.8-2
+- fix _httpd_mmn expansion in absence of httpd-devel
+
+* Wed Jan 8 2014 Remi Collet <rcollet@redhat.com> 5.5.8-1
+- update to 5.5.8
+- drop conflicts with other opcode caches as both can
+ be used only for user data cache
+
+* Wed Dec 11 2013 Remi Collet <rcollet@redhat.com> 5.5.7-1
+- update to 5.5.7, fix for CVE-2013-6420
+- fix zend_register_functions breaks reflection, php bug 66218
+- fix Heap buffer over-read in DateInterval, php bug 66060
+- fix fix overflow handling bug in non-x86
+
+* Wed Nov 13 2013 Remi Collet <remi@fedoraproject.org> 5.5.6-1
+- update to 5.5.6
+
+* Thu Oct 17 2013 Remi Collet <rcollet@redhat.com> - 5.5.5-1
+- update to 5.5.5
+- sync php.ini with upstream
+
+* Thu Sep 19 2013 Remi Collet <rcollet@redhat.com> - 5.5.4-1
+- update to 5.5.4
+- improve security, use specific soap.wsdl_cache_dir
+ use /var/lib/php/wsdlcache for mod_php and php-fpm
+- sync short_tag comments in php.ini with upstream
+
+* Wed Aug 21 2013 Remi Collet <rcollet@redhat.com> - 5.5.3-1
+- update to 5.5.3
+- fix typo and add missing entries in php.ini
+- drop zip extension
+
+* Mon Aug 19 2013 Remi Collet <rcollet@redhat.com> - 5.5.2-1
+- update to 5.5.2, fixes for CVE-2011-4718 + CVE-2013-4248
+
+* Thu Aug 08 2013 Remi Collet <rcollet@redhat.com> - 5.5.1-3
+- improve system libzip patch
+
+* Sun Aug 04 2013 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 5.5.1-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_20_Mass_Rebuild
+
+* Mon Jul 22 2013 Remi Collet <rcollet@redhat.com> - 5.5.1-1
+- update to 5.5.1
+- add Provides: php(pdo-abi), for consistency with php(api)
+ and php(zend-abi)
+- improved description for mod_php
+- fix opcache ZTS configuration (blacklists in /etc/php-zts.d)
+- add missing man pages (phar, php-cgi)
+
+* Fri Jul 12 2013 Remi Collet <rcollet@redhat.com> - 5.5.0-2
+- add security fix for CVE-2013-4113
+- add missing ASL 1.0 license
+- 32k stack size seems ok for tests on both 32/64bits build
+
+* Thu Jun 20 2013 Remi Collet <rcollet@redhat.com> 5.5.0-1
+- update to 5.5.0 final
+
+* Fri Jun 14 2013 Remi Collet <rcollet@redhat.com> 5.5.0-0.11.RC3
+- also drop JSON from sources
+- clean conditional for JSON (as removed from the sources)
+- clean conditional for FPM (always build)
+
+* Thu Jun 13 2013 Remi Collet <rcollet@redhat.com> 5.5.0-0.10.RC3
+- drop JSON extension
+
+* Tue Jun 11 2013 Remi Collet <rcollet@redhat.com> 5.5.0-0.9.RC3
+- build with system GD >= 2.1.0
+
+* Thu Jun 6 2013 Remi Collet <rcollet@redhat.com> 5.5.0-0.8.RC3
+- update to 5.5.0RC3
+
+* Thu May 23 2013 Remi Collet <rcollet@redhat.com> 5.5.0-0.7.RC2
+- update to 5.5.0RC2
+- add missing options in php-fpm.conf
+- run php-fpm in systemd notify mode
+- /etc/syconfig/php-fpm is deprecated (still used)
+- add /systemd/system/php-fpm.service.d
+
+* Wed May 8 2013 Remi Collet <rcollet@redhat.com> 5.5.0-0.6.RC1
+- update to 5.5.0RC1
+- remove reference to apache in some sub-packages description
+- add option to disable json extension
+- drop most (very old) "Obsoletes", add version to others
+
+* Thu Apr 25 2013 Remi Collet <rcollet@redhat.com> 5.5.0-0.5.beta4
+- update to 5.5.0beta4
+- zend_extension doesn't requires full path
+- refresh patch for system libzip
+- drop opcache patch merged upstream
+- add BuildRequires libvpx-devel for WebP support in php-gd
+- php-fpm own /usr/share/fpm
+
+* Thu Apr 11 2013 Remi Collet <rcollet@redhat.com> 5.5.0-0.4.beta3
+- update to 5.5.0beta3
+- allow wildcard in opcache.blacklist_filename and provide
+ default /etc/php.d/opcache-default.blacklist
+- clean spec, use only spaces (no tab)
+
+* Thu Apr 4 2013 Remi Collet <rcollet@redhat.com> 5.5.0-0.3.beta2
+- clean old deprecated options
+
+* Thu Mar 28 2013 Remi Collet <rcollet@redhat.com> 5.5.0-0.2.beta2
+- update to 5.5.0beta2
+- Zend Optimizer+ renamed to Zend OPcache
+- sync provided configuration with upstream
+
+* Fri Mar 22 2013 Remi Collet <rcollet@redhat.com> 5.5.0-0.1.beta1
+- update to 5.5.0beta1
+ http://fedoraproject.org/wiki/Features/Php55
+- new Zend OPcache extension in php-opccache new sub-package
+- don't display XFAIL tests in report
+- use xz compressed tarball
+- build simplexml and xml extensions shared (moved in php-xml)
+- build bz2, calendar, ctype, exif, ftp, gettext, iconv
+ sockets and tokenizer extensions shared (in php-common)
+- build gmp extension shared (in php-gmp new sub-package)
+- build shmop extension shared (moved in php-process)
+- drop some old compatibility provides (php-api, php-zend-abi, php-pecl-*)
+
+* Thu Mar 14 2013 Remi Collet <rcollet@redhat.com> 5.4.13-1
+- update to 5.4.13
+- security fix for CVE-2013-1643
+- Hardened build (links with -z now option)
+
+* Mon Mar 11 2013 Ralf Corsépius <corsepiu@fedoraproject.org> - 5.4.13-0.2.RC1
+- Remove %%config from %%{_sysconfdir}/rpm/macros.*
+ (https://fedorahosted.org/fpc/ticket/259).
+
+* Thu Feb 28 2013 Remi Collet <rcollet@redhat.com> 5.4.13-0.1.RC1
+- update to 5.4.13RC1
+- drop patches merged upstream
+
+* Sat Feb 23 2013 Karsten Hopp <karsten@redhat.com> 5.4.12-4
+- add support for ppc64p7 arch (Power7 optimized)
+
+* Thu Feb 21 2013 Remi Collet <rcollet@redhat.com> 5.4.12-3
+- make ZTS build optional (still enabled)
+
+* Wed Feb 20 2013 Remi Collet <rcollet@redhat.com> 5.4.12-2
+- make php-mysql package optional and disabled
+
+* Wed Feb 20 2013 Remi Collet <remi@fedoraproject.org> 5.4.12-1
+- update to 5.4.12
+- security fix for CVE-2013-1635
+- drop gdbm because of license incompatibility
+
+* Wed Feb 13 2013 Remi Collet <rcollet@redhat.com> 5.4.12-0.6.RC2
+- enable tokyocabinet and gdbm dba handlers
+
+* Wed Feb 13 2013 Remi Collet <rcollet@redhat.com> 5.4.12-0.5.RC2
+- update to 5.4.12RC2
+
+* Mon Feb 11 2013 Remi Collet <rcollet@redhat.com> 5.4.12-0.4.RC1
+- upstream patch (5.4.13) to fix dval to lval conversion
+ https://bugs.php.net/64142
+
+* Mon Feb 4 2013 Remi Collet <rcollet@redhat.com> 5.4.12-0.3.RC1
+- upstream patch (5.4.13) for 2 failed tests
+
+* Fri Feb 1 2013 Remi Collet <rcollet@redhat.com> 5.4.12-0.2.RC1
+- fix buit-in web server on ppc64 (fdset usage)
+ https://bugs.php.net/64128
+
+* Thu Jan 31 2013 Remi Collet <rcollet@redhat.com> 5.4.12-0.1.RC1
+- update to 5.4.12RC1
+
+* Mon Jan 28 2013 Remi Collet <rcollet@redhat.com> 5.4.11-3
+- rebuild for new libicu
+
+* Mon Jan 21 2013 Adam Tkac <atkac redhat com> - 5.4.11-2
+- rebuild due to "jpeg8-ABI" feature drop
+
+* Wed Jan 16 2013 Remi Collet <rcollet@redhat.com> 5.4.11-1
+- update to 5.4.11
+
+* Thu Jan 10 2013 Remi Collet <rcollet@redhat.com> 5.4.11-0.2.RC1
+- fix php.conf to allow MultiViews managed by php scripts
+
+* Thu Jan 10 2013 Remi Collet <rcollet@redhat.com> 5.4.11-0.1.RC1
+- update to 5.4.11RC1
+
+* Wed Dec 19 2012 Remi Collet <rcollet@redhat.com> 5.4.10-1
+- update to 5.4.10
+- remove patches merged upstream
+
+* Tue Dec 11 2012 Remi Collet <rcollet@redhat.com> 5.4.9-3
+- drop "Configure Command" from phpinfo output
+
+* Tue Dec 11 2012 Joe Orton <jorton@redhat.com> - 5.4.9-2
+- prevent php_config.h changes across (otherwise identical) rebuilds
+
+* Thu Nov 22 2012 Remi Collet <rcollet@redhat.com> 5.4.9-1
+- update to 5.4.9
+
+* Thu Nov 15 2012 Remi Collet <rcollet@redhat.com> 5.4.9-0.5.RC1
+- switch back to upstream generated scanner/parser
+
+* Thu Nov 15 2012 Remi Collet <rcollet@redhat.com> 5.4.9-0.4.RC1
+- use _httpd_contentdir macro and fix php.gif path
+
+* Wed Nov 14 2012 Remi Collet <rcollet@redhat.com> 5.4.9-0.3.RC1
+- improve system libzip patch to use pkg-config
+
+* Wed Nov 14 2012 Remi Collet <rcollet@redhat.com> 5.4.9-0.2.RC1
+- use _httpd_moddir macro
+
+* Wed Nov 14 2012 Remi Collet <rcollet@redhat.com> 5.4.9-0.1.RC1
+- update to 5.4.9RC1
+- improves php.conf (use FilesMatch + SetHandler)
+- improves filter (httpd module)
+- apply ldap_r patch on fedora >= 18 only
+
+* Fri Nov 9 2012 Remi Collet <rcollet@redhat.com> 5.4.8-6
+- clarify Licenses
+- missing provides xmlreader and xmlwriter
+- modernize spec
+- change php embedded library soname version to 5.4
+
+* Tue Nov 6 2012 Remi Collet <rcollet@redhat.com> 5.4.8-5
+- fix _httpd_mmn macro definition
+
+* Mon Nov 5 2012 Remi Collet <rcollet@redhat.com> 5.4.8-4
+- fix mysql_sock macro definition
+
+* Thu Oct 25 2012 Remi Collet <rcollet@redhat.com> 5.4.8-3
+- fix installed headers
+
+* Tue Oct 23 2012 Joe Orton <jorton@redhat.com> - 5.4.8-2
+- use libldap_r for ldap extension
+
+* Thu Oct 18 2012 Remi Collet <remi@fedoraproject.org> 5.4.8-1
+- update to 5.4.8
+- define both session.save_handler and session.save_path
+- fix possible segfault in libxml (#828526)
+- php-fpm: create apache user if needed
+- use SKIP_ONLINE_TEST during make test
+- php-devel requires pcre-devel and php-cli (instead of php)
+
+* Fri Oct 5 2012 Remi Collet <remi@fedoraproject.org> 5.4.7-11
+- provides php-phar
+- update systzdata patch to v10, timezone are case insensitive
+
+* Mon Oct 1 2012 Remi Collet <remi@fedoraproject.org> 5.4.7-10
+- fix typo in systemd macro
+
+* Mon Oct 1 2012 Remi Collet <remi@fedoraproject.org> 5.4.7-9
+- php-fpm: enable PrivateTmp
+- php-fpm: new systemd macros (#850268)
+- php-fpm: add upstream patch for startup issue (#846858)
+
+* Fri Sep 28 2012 Remi Collet <rcollet@redhat.com> 5.4.7-8
+- systemd integration, https://bugs.php.net/63085
+- no odbc call during timeout, https://bugs.php.net/63171
+- check sqlite3_column_table_name, https://bugs.php.net/63149
+
+* Mon Sep 24 2012 Remi Collet <rcollet@redhat.com> 5.4.7-7
+- most failed tests explained (i386, x86_64)
+
+* Wed Sep 19 2012 Remi Collet <rcollet@redhat.com> 5.4.7-6
+- fix for http://bugs.php.net/63126 (#783967)
+
+* Wed Sep 19 2012 Remi Collet <rcollet@redhat.com> 5.4.7-5
+- patch to ensure we use latest libdb (not libdb4)
+
+* Wed Sep 19 2012 Remi Collet <rcollet@redhat.com> 5.4.7-4
+- really fix rhel tests (use libzip and libdb)
+
+* Tue Sep 18 2012 Remi Collet <rcollet@redhat.com> 5.4.7-3
+- fix test to enable zip extension on RHEL-7
+
+* Mon Sep 17 2012 Remi Collet <remi@fedoraproject.org> 5.4.7-2
+- remove session.save_path from php.ini
+ move it to apache and php-fpm configuration files
+
+* Fri Sep 14 2012 Remi Collet <remi@fedoraproject.org> 5.4.7-1
+- update to 5.4.7
+ http://www.php.net/releases/5_4_7.php
+- php-fpm: don't daemonize
+
+* Mon Aug 20 2012 Remi Collet <remi@fedoraproject.org> 5.4.6-2
+- enable php-fpm on secondary arch (#849490)
+
+* Fri Aug 17 2012 Remi Collet <remi@fedoraproject.org> 5.4.6-1
+- update to 5.4.6
+- update to v9 of systzdata patch
+- backport fix for new libxml
+
+* Fri Jul 20 2012 Remi Collet <remi@fedoraproject.org> 5.4.5-1
+- update to 5.4.5
+
+* Mon Jul 02 2012 Remi Collet <remi@fedoraproject.org> 5.4.4-4
+- also provide php(language)%%{_isa}
+- define %%{php_version}
+
+* Mon Jul 02 2012 Remi Collet <remi@fedoraproject.org> 5.4.4-3
+- drop BR for libevent (#835671)
+- provide php(language) to allow version check
+
+* Thu Jun 21 2012 Remi Collet <remi@fedoraproject.org> 5.4.4-2
+- add missing provides (core, ereg, filter, standard)
+
+* Thu Jun 14 2012 Remi Collet <remi@fedoraproject.org> 5.4.4-1
+- update to 5.4.4 (CVE-2012-2143, CVE-2012-2386)
+- use /usr/lib/tmpfiles.d instead of /etc/tmpfiles.d
+- use /run/php-fpm instead of /var/run/php-fpm
+
+* Wed May 09 2012 Remi Collet <remi@fedoraproject.org> 5.4.3-1
+- update to 5.4.3 (CVE-2012-2311, CVE-2012-2329)
+
+* Thu May 03 2012 Remi Collet <remi@fedoraproject.org> 5.4.2-1
+- update to 5.4.2 (CVE-2012-1823)
+
+* Fri Apr 27 2012 Remi Collet <remi@fedoraproject.org> 5.4.1-1
+- update to 5.4.1
+
+* Wed Apr 25 2012 Joe Orton <jorton@redhat.com> - 5.4.0-6
+- rebuild for new icu
+- switch (conditionally) to libdb-devel
+
+* Sat Mar 31 2012 Remi Collet <remi@fedoraproject.org> 5.4.0-5
+- fix Loadmodule with MPM event (use ZTS if not MPM worker)
+- split conf.d/php.conf + conf.modules.d/10-php.conf with httpd 2.4
+
+* Thu Mar 29 2012 Joe Orton <jorton@redhat.com> - 5.4.0-4
+- rebuild for missing automatic provides (#807889)
+
+* Mon Mar 26 2012 Joe Orton <jorton@redhat.com> - 5.4.0-3
+- really use _httpd_mmn
+
+* Mon Mar 26 2012 Joe Orton <jorton@redhat.com> - 5.4.0-2
+- rebuild against httpd 2.4
+- use _httpd_mmn, _httpd_apxs macros
+
+* Fri Mar 02 2012 Remi Collet <remi@fedoraproject.org> 5.4.0-1
+- update to PHP 5.4.0 finale
+
+* Sat Feb 18 2012 Remi Collet <remi@fedoraproject.org> 5.4.0-0.4.RC8
+- update to PHP 5.4.0RC8
+
+* Sat Feb 04 2012 Remi Collet <remi@fedoraproject.org> 5.4.0-0.3.RC7
+- update to PHP 5.4.0RC7
+- provides env file for php-fpm (#784770)
+- add patch to use system libzip (thanks to spot)
+- don't provide INSTALL file
+
+* Wed Jan 25 2012 Remi Collet <remi@fedoraproject.org> 5.4.0-0.2.RC6
+- all binaries in /usr/bin with zts prefix
+
+* Wed Jan 18 2012 Remi Collet <remi@fedoraproject.org> 5.4.0-0.1.RC6
+- update to PHP 5.4.0RC6
+ https://fedoraproject.org/wiki/Features/Php54
+
+* Sun Jan 08 2012 Remi Collet <remi@fedoraproject.org> 5.3.8-4.4
+- fix systemd unit
+
+* Mon Dec 12 2011 Remi Collet <remi@fedoraproject.org> 5.3.8-4.3
+- switch to systemd
+
+* Tue Dec 06 2011 Adam Jackson <ajax@redhat.com> - 5.3.8-4.2
+- Rebuild for new libpng
+
+* Wed Oct 26 2011 Marcela Mašláňová <mmaslano@redhat.com> - 5.3.8-3.2
+- rebuild with new gmp without compat lib
+
+* Wed Oct 12 2011 Peter Schiffer <pschiffe@redhat.com> - 5.3.8-3.1
+- rebuild with new gmp
+
+* Wed Sep 28 2011 Remi Collet <remi@fedoraproject.org> 5.3.8-3
+- revert is_a() to php <= 5.3.6 behavior (from upstream)
+ with new option (allow_string) for new behavior
+
+* Tue Sep 13 2011 Remi Collet <remi@fedoraproject.org> 5.3.8-2
+- add mysqlnd sub-package
+- drop patch4, use --libdir to use /usr/lib*/php/build
+- add patch to redirect mysql.sock (in mysqlnd)
+
+* Tue Aug 23 2011 Remi Collet <remi@fedoraproject.org> 5.3.8-1
+- update to 5.3.8
+ http://www.php.net/ChangeLog-5.php#5.3.8
+
+* Thu Aug 18 2011 Remi Collet <remi@fedoraproject.org> 5.3.7-1
+- update to 5.3.7
+ http://www.php.net/ChangeLog-5.php#5.3.7
+- merge php-zts into php (#698084)
+
+* Tue Jul 12 2011 Joe Orton <jorton@redhat.com> - 5.3.6-4
+- rebuild for net-snmp SONAME bump
+
+* Mon Apr 4 2011 Remi Collet <Fedora@famillecollet.com> 5.3.6-3
+- enable mhash extension (emulated by hash extension)
+
+* Wed Mar 23 2011 Remi Collet <Fedora@famillecollet.com> 5.3.6-2
+- rebuild for new MySQL client library
+
+* Thu Mar 17 2011 Remi Collet <Fedora@famillecollet.com> 5.3.6-1
+- update to 5.3.6
+ http://www.php.net/ChangeLog-5.php#5.3.6
+- fix php-pdo arch specific requires
+
+* Tue Mar 15 2011 Joe Orton <jorton@redhat.com> - 5.3.5-6
+- disable zip extension per "No Bundled Libraries" policy (#551513)
+
+* Mon Mar 07 2011 Caolán McNamara <caolanm@redhat.com> 5.3.5-5
+- rebuild for icu 4.6
+
+* Mon Feb 28 2011 Remi Collet <Fedora@famillecollet.com> 5.3.5-4
+- fix systemd-units requires
+
+* Thu Feb 24 2011 Remi Collet <Fedora@famillecollet.com> 5.3.5-3
+- add tmpfiles.d configuration for php-fpm
+- add Arch specific requires/provides
+
+* Wed Feb 09 2011 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 5.3.5-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_15_Mass_Rebuild
+
+* Fri Jan 07 2011 Remi Collet <Fedora@famillecollet.com> 5.3.5-1
+- update to 5.3.5
+ http://www.php.net/ChangeLog-5.php#5.3.5
+- clean duplicate configure options
+
+* Tue Dec 28 2010 Remi Collet <rpms@famillecollet.com> 5.3.4-2
+- rebuild against MySQL 5.5.8
+- remove all RPM_SOURCE_DIR
+
+* Sun Dec 12 2010 Remi Collet <rpms@famillecollet.com> 5.3.4-1.1
+- security patch from upstream for #660517
+
+* Sat Dec 11 2010 Remi Collet <Fedora@famillecollet.com> 5.3.4-1
+- update to 5.3.4
+ http://www.php.net/ChangeLog-5.php#5.3.4
+- move phpize to php-cli (see #657812)
+
+* Wed Dec 1 2010 Remi Collet <Fedora@famillecollet.com> 5.3.3-5
+- ghost /var/run/php-fpm (see #656660)
+- add filter_setup to not provides extensions as .so
+
+* Mon Nov 1 2010 Joe Orton <jorton@redhat.com> - 5.3.3-4
+- use mysql_config in libdir directly to avoid biarch build failures
+
+* Fri Oct 29 2010 Joe Orton <jorton@redhat.com> - 5.3.3-3
+- rebuild for new net-snmp
+
+* Sun Oct 10 2010 Remi Collet <Fedora@famillecollet.com> 5.3.3-2
+- add php-fpm sub-package
+
+* Thu Jul 22 2010 Remi Collet <Fedora@famillecollet.com> 5.3.3-1
+- PHP 5.3.3 released
+
+* Fri Apr 30 2010 Remi Collet <Fedora@famillecollet.com> 5.3.2-3
+- garbage collector upstream patches (#580236)
+
+* Fri Apr 02 2010 Caolán McNamara <caolanm@redhat.com> 5.3.2-2
+- rebuild for icu 4.4
+
+* Sat Mar 06 2010 Remi Collet <Fedora@famillecollet.com> 5.3.2-1
+- PHP 5.3.2 Released!
+- remove mime_magic option (now provided by fileinfo, by emu)
+- add patch for http://bugs.php.net/50578
+- remove patch for libedit (upstream)
+- add runselftest option to allow build without test suite
+
+* Fri Nov 27 2009 Joe Orton <jorton@redhat.com> - 5.3.1-3
+- update to v7 of systzdata patch
+
+* Wed Nov 25 2009 Joe Orton <jorton@redhat.com> - 5.3.1-2
+- fix build with autoconf 2.6x
+
+* Fri Nov 20 2009 Remi Collet <Fedora@famillecollet.com> 5.3.1-1
+- update to 5.3.1
+- remove openssl patch (merged upstream)
+- add provides for php-pecl-json
+- add prod/devel php.ini in doc
+
+* Tue Nov 17 2009 Tom "spot" Callaway <tcallawa@redhat.com> - 5.3.0-7
+- use libedit instead of readline to resolve licensing issues
+
+* Tue Aug 25 2009 Tomas Mraz <tmraz@redhat.com> - 5.3.0-6
+- rebuilt with new openssl
+
+* Sun Jul 26 2009 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 5.3.0-5
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_12_Mass_Rebuild
+
+* Thu Jul 16 2009 Joe Orton <jorton@redhat.com> 5.3.0-4
+- rediff systzdata patch
+
+* Thu Jul 16 2009 Joe Orton <jorton@redhat.com> 5.3.0-3
+- update to v6 of systzdata patch; various fixes
+
+* Tue Jul 14 2009 Joe Orton <jorton@redhat.com> 5.3.0-2
+- update to v5 of systzdata patch; parses zone.tab and extracts
+ timezone->{country-code,long/lat,comment} mapping table
+
+* Sun Jul 12 2009 Remi Collet <Fedora@famillecollet.com> 5.3.0-1
+- update to 5.3.0
+- remove ncurses, dbase, mhash extensions
+- add enchant, sqlite3, intl, phar, fileinfo extensions
+- raise sqlite version to 3.6.0 (for sqlite3, build with --enable-load-extension)
+- sync with upstream "production" php.ini
+
+* Sun Jun 21 2009 Remi Collet <Fedora@famillecollet.com> 5.2.10-1
+- update to 5.2.10
+- add interbase sub-package
+
+* Sat Feb 28 2009 Remi Collet <Fedora@FamilleCollet.com> - 5.2.9-1
+- update to 5.2.9
+
+* Thu Feb 26 2009 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 5.2.8-10
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_11_Mass_Rebuild
+
+* Thu Feb 5 2009 Joe Orton <jorton@redhat.com> 5.2.8-9
+- add recode support, -recode subpackage (#106755)
+- add -zts subpackage with ZTS-enabled build of httpd SAPI
+- adjust php.conf to use -zts SAPI build for worker MPM
+
+* Wed Feb 4 2009 Joe Orton <jorton@redhat.com> 5.2.8-8
+- fix patch fuzz, renumber patches
+
+* Wed Feb 4 2009 Joe Orton <jorton@redhat.com> 5.2.8-7
+- drop obsolete configure args
+- drop -odbc patch (#483690)
+
+* Mon Jan 26 2009 Joe Orton <jorton@redhat.com> 5.2.8-5
+- split out sysvshm, sysvsem, sysvmsg, posix into php-process
+
+* Sun Jan 25 2009 Joe Orton <jorton@redhat.com> 5.2.8-4
+- move wddx to php-xml, build curl shared in -common
+- remove BR for expat-devel, bogus configure option
+
+* Fri Jan 23 2009 Joe Orton <jorton@redhat.com> 5.2.8-3
+- rebuild for new MySQL
+
+* Sat Dec 13 2008 Remi Collet <Fedora@FamilleCollet.com> 5.2.8-2
+- libtool 2 workaround for phpize (#476004)
+- add missing php_embed.h (#457777)
+
+* Tue Dec 09 2008 Remi Collet <Fedora@FamilleCollet.com> 5.2.8-1
+- update to 5.2.8
+
+* Sat Dec 06 2008 Remi Collet <Fedora@FamilleCollet.com> 5.2.7-1.1
+- libtool 2 workaround
+
+* Fri Dec 05 2008 Remi Collet <Fedora@FamilleCollet.com> 5.2.7-1
+- update to 5.2.7
+- enable pdo_dblib driver in php-mssql
+
+* Mon Nov 24 2008 Joe Orton <jorton@redhat.com> 5.2.6-7
+- tweak Summary, thanks to Richard Hughes
+
+* Tue Nov 4 2008 Joe Orton <jorton@redhat.com> 5.2.6-6
+- move gd_README to php-gd
+- update to r4 of systzdata patch; introduces a default timezone
+ name of "System/Localtime", which uses /etc/localtime (#469532)
+
+* Sat Sep 13 2008 Remi Collet <Fedora@FamilleCollet.com> 5.2.6-5
+- enable XPM support in php-gd
+- Fix BR for php-gd
+
+* Sun Jul 20 2008 Remi Collet <Fedora@FamilleCollet.com> 5.2.6-4
+- enable T1lib support in php-gd
+
+* Mon Jul 14 2008 Joe Orton <jorton@redhat.com> 5.2.6-3
+- update to 5.2.6
+- sync default php.ini with upstream
+- drop extension_dir from default php.ini, rely on hard-coded
+ default, to make php-common multilib-safe (#455091)
+- update to r3 of systzdata patch
+
+* Thu Apr 24 2008 Joe Orton <jorton@redhat.com> 5.2.5-7
+- split pspell extension out into php-spell (#443857)
+
+* Tue Feb 19 2008 Fedora Release Engineering <rel-eng@fedoraproject.org> - 5.2.5-6
+- Autorebuild for GCC 4.3
+
+* Fri Jan 11 2008 Joe Orton <jorton@redhat.com> 5.2.5-5
+- ext/date: use system timezone database
+
+* Fri Dec 28 2007 Joe Orton <jorton@redhat.com> 5.2.5-4
+- rebuild for libc-client bump
+
+* Wed Dec 05 2007 Release Engineering <rel-eng at fedoraproject dot org> - 5.2.5-3
+- Rebuild for openssl bump
+
+* Wed Dec 5 2007 Joe Orton <jorton@redhat.com> 5.2.5-2
+- update to 5.2.5
+
+* Mon Oct 15 2007 Joe Orton <jorton@redhat.com> 5.2.4-3
+- correct pcre BR version (#333021)
+- restore metaphone fix (#205714)
+- add READMEs to php-cli
+
+* Sun Sep 16 2007 Joe Orton <jorton@redhat.com> 5.2.4-2
+- update to 5.2.4
+
+* Sun Sep 2 2007 Joe Orton <jorton@redhat.com> 5.2.3-9
+- rebuild for fixed APR
+
+* Tue Aug 28 2007 Joe Orton <jorton@redhat.com> 5.2.3-8
+- add ldconfig post/postun for -embedded (Hans de Goede)
+
+* Fri Aug 10 2007 Hans de Goede <j.w.r.degoede@hhs.nl> 5.2.3-7
+- add php-embedded sub-package
+
+* Fri Aug 10 2007 Joe Orton <jorton@redhat.com> 5.2.3-6
+- fix build with new glibc
+- fix License
+
+* Mon Jul 16 2007 Joe Orton <jorton@redhat.com> 5.2.3-5
+- define php_extdir in macros.php
+
+* Mon Jul 2 2007 Joe Orton <jorton@redhat.com> 5.2.3-4
+- obsolete php-dbase
+
+* Tue Jun 19 2007 Joe Orton <jorton@redhat.com> 5.2.3-3
+- add mcrypt, mhash, tidy, mssql subpackages (Dmitry Butskoy)
+- enable dbase extension and package in -common
+
+* Fri Jun 8 2007 Joe Orton <jorton@redhat.com> 5.2.3-2
+- update to 5.2.3 (thanks to Jeff Sheltren)
+
+* Wed May 9 2007 Joe Orton <jorton@redhat.com> 5.2.2-4
+- fix php-pdo *_arg_force_ref global symbol abuse (#216125)
+
+* Tue May 8 2007 Joe Orton <jorton@redhat.com> 5.2.2-3
+- rebuild against uw-imap-devel
+
+* Fri May 4 2007 Joe Orton <jorton@redhat.com> 5.2.2-2
+- update to 5.2.2
+- synch changes from upstream recommended php.ini
+
+* Thu Mar 29 2007 Joe Orton <jorton@redhat.com> 5.2.1-5
+- enable SASL support in LDAP extension (#205772)
+
+* Wed Mar 21 2007 Joe Orton <jorton@redhat.com> 5.2.1-4
+- drop mime_magic extension (deprecated by php-pecl-Fileinfo)
+
+* Mon Feb 19 2007 Joe Orton <jorton@redhat.com> 5.2.1-3
+- fix regression in str_{i,}replace (from upstream)
+
+* Thu Feb 15 2007 Joe Orton <jorton@redhat.com> 5.2.1-2
+- update to 5.2.1
+- add Requires(pre) for httpd
+- trim %%changelog to versions >= 5.0.0
+
+* Thu Feb 8 2007 Joe Orton <jorton@redhat.com> 5.2.0-10
+- bump default memory_limit to 32M (#220821)
+- mark config files noreplace again (#174251)
+- drop trailing dots from Summary fields
+- use standard BuildRoot
+- drop libtool15 patch (#226294)
+
+* Tue Jan 30 2007 Joe Orton <jorton@redhat.com> 5.2.0-9
+- add php(api), php(zend-abi) provides (#221302)
+- package /usr/share/php and append to default include_path (#225434)
+
+* Tue Dec 5 2006 Joe Orton <jorton@redhat.com> 5.2.0-8
+- fix filter.h installation path
+- fix php-zend-abi version (Remi Collet, #212804)
+
+* Tue Nov 28 2006 Joe Orton <jorton@redhat.com> 5.2.0-7
+- rebuild again
+
+* Tue Nov 28 2006 Joe Orton <jorton@redhat.com> 5.2.0-6
+- rebuild for net-snmp soname bump
+
+* Mon Nov 27 2006 Joe Orton <jorton@redhat.com> 5.2.0-5
+- build json and zip shared, in -common (Remi Collet, #215966)
+- obsolete php-json and php-pecl-zip
+- build readline extension into /usr/bin/php* (#210585)
+- change module subpackages to require php-common not php (#177821)
+
+* Wed Nov 15 2006 Joe Orton <jorton@redhat.com> 5.2.0-4
+- provide php-zend-abi (#212804)
+- add /etc/rpm/macros.php exporting interface versions
+- synch with upstream recommended php.ini
+
+* Wed Nov 15 2006 Joe Orton <jorton@redhat.com> 5.2.0-3
+- update to 5.2.0 (#213837)
+- php-xml provides php-domxml (#215656)
+- fix php-pdo-abi provide (#214281)
+
+* Tue Oct 31 2006 Joseph Orton <jorton@redhat.com> 5.1.6-4
+- rebuild for curl soname bump
+- add build fix for curl 7.16 API
+
+* Wed Oct 4 2006 Joe Orton <jorton@redhat.com> 5.1.6-3
+- from upstream: add safety checks against integer overflow in _ecalloc
+
+* Tue Aug 29 2006 Joe Orton <jorton@redhat.com> 5.1.6-2
+- update to 5.1.6 (security fixes)
+- bump default memory_limit to 16M (#196802)
+
+* Wed Jul 12 2006 Jesse Keating <jkeating@redhat.com> - 5.1.4-8.1
+- rebuild
+
+* Fri Jun 9 2006 Joe Orton <jorton@redhat.com> 5.1.4-8
+- Provide php-posix (#194583)
+- only provide php-pcntl from -cli subpackage
+- add missing defattr's (thanks to Matthias Saou)
+
+* Fri Jun 9 2006 Joe Orton <jorton@redhat.com> 5.1.4-7
+- move Obsoletes for php-openssl to -common (#194501)
+- Provide: php-cgi from -cli subpackage
+
+* Fri Jun 2 2006 Joe Orton <jorton@redhat.com> 5.1.4-6
+- split out php-cli, php-common subpackages (#177821)
+- add php-pdo-abi version export (#193202)
+
+* Wed May 24 2006 Radek Vokal <rvokal@redhat.com> 5.1.4-5.1
+- rebuilt for new libnetsnmp
+
+* Thu May 18 2006 Joe Orton <jorton@redhat.com> 5.1.4-5
+- provide mod_php (#187891)
+- provide php-cli (#192196)
+- use correct LDAP fix (#181518)
+- define _GNU_SOURCE in php_config.h and leave it defined
+- drop (circular) dependency on php-pear
+
+* Mon May 8 2006 Joe Orton <jorton@redhat.com> 5.1.4-3
+- update to 5.1.4
+
+* Wed May 3 2006 Joe Orton <jorton@redhat.com> 5.1.3-3
+- update to 5.1.3
+
+* Tue Feb 28 2006 Joe Orton <jorton@redhat.com> 5.1.2-5
+- provide php-api (#183227)
+- add provides for all builtin modules (Tim Jackson, #173804)
+- own %%{_libdir}/php/pear for PEAR packages (per #176733)
+- add obsoletes to allow upgrade from FE4 PDO packages (#181863)
+
+* Fri Feb 10 2006 Jesse Keating <jkeating@redhat.com> - 5.1.2-4.3
+- bump again for double-long bug on ppc(64)
+
+* Tue Feb 07 2006 Jesse Keating <jkeating@redhat.com> - 5.1.2-4.1
+- rebuilt for new gcc4.1 snapshot and glibc changes
+
+* Tue Jan 31 2006 Joe Orton <jorton@redhat.com> 5.1.2-4
+- rebuild for new libc-client soname
+
+* Mon Jan 16 2006 Joe Orton <jorton@redhat.com> 5.1.2-3
+- only build xmlreader and xmlwriter shared (#177810)
+
+* Fri Jan 13 2006 Joe Orton <jorton@redhat.com> 5.1.2-2
+- update to 5.1.2
+
+* Thu Jan 5 2006 Joe Orton <jorton@redhat.com> 5.1.1-8
+- rebuild again
+
+* Mon Jan 2 2006 Joe Orton <jorton@redhat.com> 5.1.1-7
+- rebuild for new net-snmp
+
+* Mon Dec 12 2005 Joe Orton <jorton@redhat.com> 5.1.1-6
+- enable short_open_tag in default php.ini again (#175381)
+
+* Fri Dec 09 2005 Jesse Keating <jkeating@redhat.com>
+- rebuilt
+
+* Thu Dec 8 2005 Joe Orton <jorton@redhat.com> 5.1.1-5
+- require net-snmp for php-snmp (#174800)
+
+* Sun Dec 4 2005 Joe Orton <jorton@redhat.com> 5.1.1-4
+- add /usr/share/pear back to hard-coded include_path (#174885)
+
+* Fri Dec 2 2005 Joe Orton <jorton@redhat.com> 5.1.1-3
+- rebuild for httpd 2.2
+
+* Mon Nov 28 2005 Joe Orton <jorton@redhat.com> 5.1.1-2
+- update to 5.1.1
+- remove pear subpackage
+- enable pdo extensions (php-pdo subpackage)
+- remove non-standard conditional module builds
+- enable xmlreader extension
+
+* Thu Nov 10 2005 Tomas Mraz <tmraz@redhat.com> 5.0.5-6
+- rebuilt against new openssl
+
+* Mon Nov 7 2005 Joe Orton <jorton@redhat.com> 5.0.5-5
+- pear: update to XML_RPC 1.4.4, XML_Parser 1.2.7, Mail 1.1.9 (#172528)
+
+* Tue Nov 1 2005 Joe Orton <jorton@redhat.com> 5.0.5-4
+- rebuild for new libnetsnmp
+
+* Wed Sep 14 2005 Joe Orton <jorton@redhat.com> 5.0.5-3
+- update to 5.0.5
+- add fix for upstream #34435
+- devel: require autoconf, automake (#159283)
+- pear: update to HTTP-1.3.6, Mail-1.1.8, Net_SMTP-1.2.7, XML_RPC-1.4.1
+- fix imagettftext et al (upstream, #161001)
+
+* Thu Jun 16 2005 Joe Orton <jorton@redhat.com> 5.0.4-11
+- ldap: restore ldap_start_tls() function
+
+* Fri May 6 2005 Joe Orton <jorton@redhat.com> 5.0.4-10
+- disable RPATHs in shared extensions (#156974)
+
+* Tue May 3 2005 Joe Orton <jorton@redhat.com> 5.0.4-9
+- build simplexml_import_dom even with shared dom (#156434)
+- prevent truncation of copied files to ~2Mb (#155916)
+- install /usr/bin/php from CLI build alongside CGI
+- enable sysvmsg extension (#142988)
+
+* Mon Apr 25 2005 Joe Orton <jorton@redhat.com> 5.0.4-8
+- prevent build of builtin dba as well as shared extension
+
+* Wed Apr 13 2005 Joe Orton <jorton@redhat.com> 5.0.4-7
+- split out dba and bcmath extensions into subpackages
+- BuildRequire gcc-c++ to avoid AC_PROG_CXX{,CPP} failure (#155221)
+- pear: update to DB-1.7.6
+- enable FastCGI support in /usr/bin/php-cgi (#149596)
+
+* Wed Apr 13 2005 Joe Orton <jorton@redhat.com> 5.0.4-6
+- build /usr/bin/php with the CLI SAPI, and add /usr/bin/php-cgi,
+ built with the CGI SAPI (thanks to Edward Rudd, #137704)
+- add php(1) man page for CLI
+- fix more test cases to use -n when invoking php
+
+* Wed Apr 13 2005 Joe Orton <jorton@redhat.com> 5.0.4-5
+- rebuild for new libpq soname
+
+* Tue Apr 12 2005 Joe Orton <jorton@redhat.com> 5.0.4-4
+- bundle from PEAR: HTTP, Mail, XML_Parser, Net_Socket, Net_SMTP
+- snmp: disable MSHUTDOWN function to prevent error_log noise (#153988)
+- mysqli: add fix for crash on x86_64 (Georg Richter, upstream #32282)
+
+* Mon Apr 11 2005 Joe Orton <jorton@redhat.com> 5.0.4-3
+- build shared objects as PIC (#154195)
+
+* Mon Apr 4 2005 Joe Orton <jorton@redhat.com> 5.0.4-2
+- fix PEAR installation and bundle PEAR DB-1.7.5 package
+
+* Fri Apr 1 2005 Joe Orton <jorton@redhat.com> 5.0.4-1
+- update to 5.0.4 (#153068)
+- add .phps AddType to php.conf (#152973)
+- better gcc4 fix for libxmlrpc
+
+* Wed Mar 30 2005 Joe Orton <jorton@redhat.com> 5.0.3-5
+- BuildRequire mysql-devel >= 4.1
+- don't mark php.ini as noreplace to make upgrades work (#152171)
+- fix subpackage descriptions (#152628)
+- fix memset(,,0) in Zend (thanks to Dave Jones)
+- fix various compiler warnings in Zend
+
+* Thu Mar 24 2005 Joe Orton <jorton@redhat.com> 5.0.3-4
+- package mysqli extension in php-mysql
+- really enable pcntl (#142903)
+- don't build with --enable-safe-mode (#148969)
+- use "Instant Client" libraries for oci8 module (Kai Bolay, #149873)
+
+* Fri Feb 18 2005 Joe Orton <jorton@redhat.com> 5.0.3-3
+- fix build with GCC 4
+
+* Wed Feb 9 2005 Joe Orton <jorton@redhat.com> 5.0.3-2
+- install the ext/gd headers (#145891)
+- enable pcntl extension in /usr/bin/php (#142903)
+- add libmbfl array arithmetic fix (dcb314@hotmail.com, #143795)
+- add BuildRequire for recent pcre-devel (#147448)
+
+* Wed Jan 12 2005 Joe Orton <jorton@redhat.com> 5.0.3-1
+- update to 5.0.3 (thanks to Robert Scheck et al, #143101)
+- enable xsl extension (#142174)
+- package both the xsl and dom extensions in php-xml
+- enable soap extension, shared (php-soap package) (#142901)
+- add patches from upstream 5.0 branch:
+ * Zend_strtod.c compile fixes
+ * correct php_sprintf return value usage
+
+* Mon Nov 22 2004 Joe Orton <jorton@redhat.com> 5.0.2-8
+- update for db4-4.3 (Robert Scheck, #140167)
+- build against mysql-devel
+- run tests in %%check
+
+* Wed Nov 10 2004 Joe Orton <jorton@redhat.com> 5.0.2-7
+- truncate changelog at 4.3.1-1
+- merge from 4.3.x package:
+ - enable mime_magic extension and Require: file (#130276)
+
+* Mon Nov 8 2004 Joe Orton <jorton@redhat.com> 5.0.2-6
+- fix dom/sqlite enable/without confusion
+
+* Mon Nov 8 2004 Joe Orton <jorton@redhat.com> 5.0.2-5
+- fix phpize installation for lib64 platforms
+- add fix for segfault in variable parsing introduced in 5.0.2
+
+* Mon Nov 8 2004 Joe Orton <jorton@redhat.com> 5.0.2-4
+- update to 5.0.2 (#127980)
+- build against mysqlclient10-devel
+- use new RTLD_DEEPBIND to load extension modules
+- drop explicit requirement for elfutils-devel
+- use AddHandler in default conf.d/php.conf (#135664)
+- "fix" round() fudging for recent gcc on x86
+- disable sqlite pending audit of warnings and subpackage split
+
+* Fri Sep 17 2004 Joe Orton <jorton@redhat.com> 5.0.1-4
+- don't build dom extension into 2.0 SAPI
+
+* Fri Sep 17 2004 Joe Orton <jorton@redhat.com> 5.0.1-3
+- ExclusiveArch: x86 ppc x86_64 for the moment
+
+* Fri Sep 17 2004 Joe Orton <jorton@redhat.com> 5.0.1-2
+- fix default extension_dir and conf.d/php.conf
+
+* Thu Sep 9 2004 Joe Orton <jorton@redhat.com> 5.0.1-1
+- update to 5.0.1
+- only build shared modules once
+- put dom extension in php-dom subpackage again
+- move extension modules into %%{_libdir}/php/modules
+- don't use --with-regex=system, it's ignored for the apache* SAPIs
+
+* Wed Aug 11 2004 Tom Callaway <tcallawa@redhat.com>
+- Merge in some spec file changes from Jeff Stern (jastern@uci.edu)
+
+* Mon Aug 09 2004 Tom Callaway <tcallawa@redhat.com>
+- bump to 5.0.0
+- add patch to prevent clobbering struct re_registers from regex.h
+- remove domxml references, replaced with dom now built-in
+- fix php.ini to refer to php5 not php4

php-7.2.0-includedir.patch Added

php-7.4.0-datetests.patch Added

@@ -0,0 +1,98 @@
+diff -up ./ext/date/tests/bug33414-2.phpt.datetests ./ext/date/tests/bug33414-2.phpt
+--- ./ext/date/tests/bug33414-2.phpt.datetests	2020-04-09 14:06:11.000000000 +0200
++++ ./ext/date/tests/bug33414-2.phpt	2020-04-09 14:40:00.809433489 +0200
+@@ -74,10 +74,10 @@ $strtotime_tstamp = strtotime("next Frid
+ print "result=".date("l Y-m-d H:i:s T I", $strtotime_tstamp)."\n";
+ print "wanted=Friday 00:00:00\n\n";
+ ?>
+---EXPECT--
++--EXPECTF--
+ TZ=Pacific/Rarotonga - wrong day.
+-tStamp=Thursday 1970-01-01 17:17:17 -1030 0
+-result=Tuesday 1970-01-06 00:00:00 -1030 0
++tStamp=Thursday 1970-01-01 17:17:17 %s
++result=Tuesday 1970-01-06 00:00:00 %s
+ wanted=Tuesday 00:00:00
+ 
+ TZ=Atlantic/South_Georgia - wrong day.
+@@ -91,13 +91,13 @@ result=Monday 2005-04-04 00:00:00 EDT 1
+ wanted=Monday 00:00:00
+ 
+ TZ=Pacific/Enderbury - wrong day, off by 2 days.
+-tStamp=Thursday 1970-01-01 17:17:17 -12 0
+-result=Monday 1970-01-05 00:00:00 -12 0
++tStamp=Thursday 1970-01-01 17:17:17 %s
++result=Monday 1970-01-05 00:00:00 %s
+ wanted=Monday 00:00:00
+ 
+ TZ=Pacific/Kiritimati - wrong day, off by 2 days.
+-tStamp=Thursday 1970-01-01 17:17:17 -1040 0
+-result=Monday 1970-01-05 00:00:00 -1040 0
++tStamp=Thursday 1970-01-01 17:17:17 %s
++result=Monday 1970-01-05 00:00:00 %s
+ wanted=Monday 00:00:00
+ 
+ TZ=America/Managua - wrong day.
+@@ -106,13 +106,13 @@ result=Tuesday 2005-04-12 00:00:00 CDT 1
+ wanted=Tuesday 00:00:00
+ 
+ TZ=Pacific/Pitcairn - wrong day.
+-tStamp=Thursday 1970-01-01 17:17:17 -0830 0
+-result=Wednesday 1970-01-07 00:00:00 -0830 0
++tStamp=Thursday 1970-01-01 17:17:17 %s
++result=Wednesday 1970-01-07 00:00:00 %s
+ wanted=Wednesday 00:00:00
+ 
+ TZ=Pacific/Fakaofo - wrong day.
+-tStamp=Thursday 1970-01-01 17:17:17 -11 0
+-result=Saturday 1970-01-03 00:00:00 -11 0
++tStamp=Thursday 1970-01-01 17:17:17 %s
++result=Saturday 1970-01-03 00:00:00 %s
+ wanted=Saturday 00:00:00
+ 
+ TZ=Pacific/Johnston - wrong day.
+diff -up ./ext/date/tests/bug66985.phpt.datetests ./ext/date/tests/bug66985.phpt
+--- ./ext/date/tests/bug66985.phpt.datetests	2020-04-09 14:06:11.000000000 +0200
++++ ./ext/date/tests/bug66985.phpt	2020-04-09 14:40:37.099288185 +0200
+@@ -3,7 +3,7 @@ Bug #66985 (Some timezones are no longer
+ --FILE--
+ <?php
+ $zones = array(
+- "CST6CDT", "Cuba", "Egypt", "Eire", "EST5EDT", "Factory", "GB-Eire",
++ "CST6CDT", "Cuba", "Egypt", "Eire", "EST5EDT", "GB-Eire",
+ "GMT0", "Greenwich", "Hongkong", "Iceland", "Iran", "Israel", "Jamaica",
+ "Japan", "Kwajalein", "Libya", "MST7MDT", "Navajo", "NZ-CHAT", "Poland",
+ "Portugal", "PST8PDT", "Singapore", "Turkey", "Universal", "W-SU",
+@@ -45,11 +45,6 @@ DateTimeZone Object
+ )
+ DateTimeZone Object
+ (
+- timezone_type => 3
+- timezone => Factory
+-)
+-DateTimeZone Object
+-(
+ timezone_type => 3
+ timezone => GB-Eire
+ )
+diff -up ./ext/date/tests/strtotime3-64bit.phpt.datetests ./ext/date/tests/strtotime3-64bit.phpt
+--- ./ext/date/tests/strtotime3-64bit.phpt.datetests	2020-04-09 14:06:11.000000000 +0200
++++ ./ext/date/tests/strtotime3-64bit.phpt	2020-04-09 14:40:00.809433489 +0200
+@@ -44,7 +44,7 @@ foreach ($strs as $str) {
+ }
+ 
+ ?>
+---EXPECT--
++--EXPECTF--
+ bool(false)
+ bool(false)
+ string(31) "Thu, 15 Jun 2006 00:00:00 +0100"
+@@ -53,7 +53,7 @@ bool(false)
+ string(31) "Fri, 16 Jun 2006 23:49:12 +0100"
+ bool(false)
+ string(31) "Fri, 16 Jun 2006 02:22:00 +0100"
+-string(31) "Sun, 16 Jun 0222 02:22:00 -0036"
++string(31) "Sun, 16 Jun 0222 02:22:00 %s"
+ string(31) "Fri, 16 Jun 2006 02:22:33 +0100"
+ bool(false)
+ string(31) "Tue, 02 Mar 2004 00:00:00 +0000"

php-7.4.0-httpd.patch Added

php-7.4.0-ldap_r.patch Added

@@ -0,0 +1,19 @@
+
+Use -lldap_r by default.
+
+diff -up php-7.4.0RC2/ext/ldap/config.m4.ldap_r php-7.4.0RC2/ext/ldap/config.m4
+--- php-7.4.0RC2/ext/ldap/config.m4.ldap_r	2019-09-17 10:21:24.769200812 +0200
++++ php-7.4.0RC2/ext/ldap/config.m4	2019-09-17 10:21:30.658181771 +0200
+@@ -68,7 +68,11 @@ if test "$PHP_LDAP" != "no"; then
+   dnl -pc removal is a hack for clang
+   MACHINE_INCLUDES=$($CC -dumpmachine | $SED 's/-pc//')
+ 
+-  if test -f $LDAP_LIBDIR/liblber.a || test -f $LDAP_LIBDIR/liblber.$SHLIB_SUFFIX_NAME || test -f $LDAP_LIBDIR/$MACHINE_INCLUDES/liblber.a || test -f $LDAP_LIBDIR/$MACHINE_INCLUDES/liblber.$SHLIB_SUFFIX_NAME; then
++  if test -f $LDAP_LIBDIR/libldap_r.$SHLIB_SUFFIX_NAME; then
++    PHP_ADD_LIBRARY_WITH_PATH(lber, $LDAP_LIBDIR, LDAP_SHARED_LIBADD)
++    PHP_ADD_LIBRARY_WITH_PATH(ldap_r, $LDAP_LIBDIR, LDAP_SHARED_LIBADD)
++
++  elif test -f $LDAP_LIBDIR/liblber.a || test -f $LDAP_LIBDIR/liblber.$SHLIB_SUFFIX_NAME || test -f $LDAP_LIBDIR/$MACHINE_INCLUDES/liblber.a || test -f $LDAP_LIBDIR/$MACHINE_INCLUDES/liblber.$SHLIB_SUFFIX_NAME; then
+     PHP_ADD_LIBRARY_WITH_PATH(lber, $LDAP_LIBDIR, LDAP_SHARED_LIBADD)
+     PHP_ADD_LIBRARY_WITH_PATH(ldap, $LDAP_LIBDIR, LDAP_SHARED_LIBADD)
+

php-7.4.0-phpize.patch Added

php-8.0.0-embed.patch Added

@@ -0,0 +1,25 @@
+diff -up ./sapi/embed/config.m4.embed ./sapi/embed/config.m4
+--- ./sapi/embed/config.m4.embed	2020-07-07 13:51:05.879764972 +0200
++++ ./sapi/embed/config.m4	2020-07-07 13:52:50.128412148 +0200
+@@ -12,7 +12,8 @@ if test "$PHP_EMBED" != "no"; then
+     yes|shared)
+       LIBPHP_CFLAGS="-shared"
+       PHP_EMBED_TYPE=shared
+-      INSTALL_IT="\$(mkinstalldirs) \$(INSTALL_ROOT)\$(prefix)/lib; \$(INSTALL) -m 0755 $SAPI_SHARED \$(INSTALL_ROOT)\$(prefix)/lib"
++      EXTRA_LDFLAGS="$EXTRA_LDFLAGS -release \$(PHP_MAJOR_VERSION).\$(PHP_MINOR_VERSION)"
++      INSTALL_IT="\$(mkinstalldirs) \$(INSTALL_ROOT)\$(libdir); \$(LIBTOOL) --mode=install \$(INSTALL) -m 0755 \$(OVERALL_TARGET) \$(INSTALL_ROOT)\$(libdir)"
+       ;;
+     static)
+       LIBPHP_CFLAGS="-static"
+diff -up ./scripts/php-config.in.embed ./scripts/php-config.in
+--- ./scripts/php-config.in.embed	2020-07-07 12:54:42.000000000 +0200
++++ ./scripts/php-config.in	2020-07-07 13:51:05.880764968 +0200
+@@ -18,7 +18,7 @@ exe_extension="@EXEEXT@"
+ php_cli_binary=NONE
+ php_cgi_binary=NONE
+ configure_options="@CONFIGURE_OPTIONS@"
+-php_sapis="@PHP_INSTALLED_SAPIS@"
++php_sapis="apache2handler litespeed fpm phpdbg @PHP_INSTALLED_SAPIS@"
+ ini_dir="@EXPANDED_PHP_CONFIG_FILE_SCAN_DIR@"
+ ini_path="@EXPANDED_PHP_CONFIG_FILE_PATH@"
+

php-8.1.0-libdb.patch Added

@@ -0,0 +1,92 @@
+diff -up ./ext/dba/config.m4.libdb ./ext/dba/config.m4
+--- ./ext/dba/config.m4.libdb	2020-04-09 14:06:11.000000000 +0200
++++ ./ext/dba/config.m4	2020-04-09 14:35:08.208605065 +0200
+@@ -375,61 +375,13 @@ if test "$PHP_DB4" != "no"; then
+   dbdp4="/usr/local/BerkeleyDB.4."
+   dbdp5="/usr/local/BerkeleyDB.5."
+   for i in $PHP_DB4 ${dbdp5}1 ${dbdp5}0 ${dbdp4}8 ${dbdp4}7 ${dbdp4}6 ${dbdp4}5 ${dbdp4}4 ${dbdp4}3 ${dbdp4}2 ${dbdp4}1 ${dbdp}0 /usr/local /usr; do
+-    if test -f "$i/db5/db.h"; then
+-      THIS_PREFIX=$i
+-      THIS_INCLUDE=$i/db5/db.h
+-      break
+-    elif test -f "$i/db4/db.h"; then
+-      THIS_PREFIX=$i
+-      THIS_INCLUDE=$i/db4/db.h
+-      break
+-    elif test -f "$i/include/db5.3/db.h"; then
+-      THIS_PREFIX=$i
+-      THIS_INCLUDE=$i/include/db5.3/db.h
+-      break
+-    elif test -f "$i/include/db5.1/db.h"; then
+-      THIS_PREFIX=$i
+-      THIS_INCLUDE=$i/include/db5.1/db.h
+-      break
+-    elif test -f "$i/include/db5.0/db.h"; then
+-      THIS_PREFIX=$i
+-      THIS_INCLUDE=$i/include/db5.0/db.h
+-      break
+-    elif test -f "$i/include/db4.8/db.h"; then
+-      THIS_PREFIX=$i
+-      THIS_INCLUDE=$i/include/db4.8/db.h
+-      break
+-    elif test -f "$i/include/db4.7/db.h"; then
+-      THIS_PREFIX=$i
+-      THIS_INCLUDE=$i/include/db4.7/db.h
+-      break
+-    elif test -f "$i/include/db4.6/db.h"; then
+-      THIS_PREFIX=$i
+-      THIS_INCLUDE=$i/include/db4.6/db.h
+-      break
+-    elif test -f "$i/include/db4.5/db.h"; then
+-      THIS_PREFIX=$i
+-      THIS_INCLUDE=$i/include/db4.5/db.h
+-      break
+-    elif test -f "$i/include/db4/db.h"; then
+-      THIS_PREFIX=$i
+-      THIS_INCLUDE=$i/include/db4/db.h
+-      break
+-    elif test -f "$i/include/db/db4.h"; then
+-      THIS_PREFIX=$i
+-      THIS_INCLUDE=$i/include/db/db4.h
+-      break
+-    elif test -f "$i/include/db4.h"; then
+-      THIS_PREFIX=$i
+-      THIS_INCLUDE=$i/include/db4.h
+-      break
+-    elif test -f "$i/include/db.h"; then
++    if test -f "$i/include/db.h"; then
+       THIS_PREFIX=$i
+       THIS_INCLUDE=$i/include/db.h
+       break
+     fi
+   done
+-  PHP_DBA_DB_CHECK(4, db-5.3 db-5.1 db-5.0 db-4.8 db-4.7 db-4.6 db-4.5 db-4.4 db-4.3 db-4.2 db-4.1 db-4.0 db-4 db4 db, (void)db_create((DB**)0, (DB_ENV*)0, 0))
++  PHP_DBA_DB_CHECK(4, db, (void)db_create((DB**)0, (DB_ENV*)0, 0))
+ fi
+ PHP_DBA_STD_RESULT(db4,Berkeley DB4)
+ 
+diff -up ./ext/dba/dba.c.libdb ./ext/dba/dba.c
+--- ./ext/dba/dba.c.libdb	2020-04-09 14:06:11.000000000 +0200
++++ ./ext/dba/dba.c	2020-04-09 14:36:30.593275190 +0200
+@@ -50,6 +50,10 @@
+ #include "php_lmdb.h"
+ #include "dba_arginfo.h"
+ 
++#ifdef DB4_INCLUDE_FILE
++#include DB4_INCLUDE_FILE
++#endif
++
+ PHP_MINIT_FUNCTION(dba);
+ PHP_MSHUTDOWN_FUNCTION(dba);
+ PHP_MINFO_FUNCTION(dba);
+@@ -452,6 +456,10 @@ PHP_MINFO_FUNCTION(dba)
+ 
+ 	php_info_print_table_start();
+ 	php_info_print_table_row(2, "DBA support", "enabled");
++#ifdef DB_VERSION_STRING
++ 	php_info_print_table_row(2, "libdb header version", DB_VERSION_STRING);
++ 	php_info_print_table_row(2, "libdb library version", db_version(NULL, NULL, NULL));
++#endif
+ 	if (handlers.s) {
+ 		smart_str_0(&handlers);
+ 		php_info_print_table_row(2, "Supported handlers", ZSTR_VAL(handlers.s));

php-8.1.0-parser.patch Added

php-8.1.0-phpinfo.patch Added

@@ -0,0 +1,44 @@
+
+Drop "Configure Command" from phpinfo as it doesn't
+provide any useful information.
+The available extensions are not related to this command.
+
+Replace full GCC name by gcc in php -v output
+
+
+diff -up ./ext/standard/info.c.phpinfo ./ext/standard/info.c
+--- ./ext/standard/info.c.phpinfo	2020-07-21 10:49:31.000000000 +0200
++++ ./ext/standard/info.c	2020-07-21 11:41:56.295633523 +0200
+@@ -805,9 +805,6 @@ PHPAPI ZEND_COLD void php_print_info(int
+ #ifdef PHP_BUILD_ARCH
+ 		php_info_print_table_row(2, "Architecture", PHP_BUILD_ARCH);
+ #endif
+-#ifdef CONFIGURE_COMMAND
+-		php_info_print_table_row(2, "Configure Command", CONFIGURE_COMMAND );
+-#endif
+ 
+ 		if (sapi_module.pretty_name) {
+ 			php_info_print_table_row(2, "Server API", sapi_module.pretty_name );
+diff -up ./ext/standard/tests/general_functions/phpinfo.phpt.phpinfo ./ext/standard/tests/general_functions/phpinfo.phpt
+--- ./ext/standard/tests/general_functions/phpinfo.phpt.phpinfo	2020-07-21 10:49:31.000000000 +0200
++++ ./ext/standard/tests/general_functions/phpinfo.phpt	2020-07-21 11:41:56.296633522 +0200
+@@ -17,7 +17,6 @@ PHP Version => %s
+ 
+ System => %s
+ Build Date => %s%a
+-Configure Command => %s
+ Server API => Command Line Interface
+ Virtual Directory Support => %s
+ Configuration File (php.ini) Path => %s
+diff -up ./sapi/cli/php_cli.c.phpinfo ./sapi/cli/php_cli.c
+--- ./sapi/cli/php_cli.c.phpinfo	2020-07-21 11:43:38.812475300 +0200
++++ ./sapi/cli/php_cli.c	2020-07-21 11:43:45.783464540 +0200
+@@ -645,7 +645,7 @@ static int do_cli(int argc, char **argv)
+ 					"NTS"
+ #endif
+ #ifdef PHP_BUILD_COMPILER
+-					" " PHP_BUILD_COMPILER
++					" gcc"
+ #endif
+ #ifdef PHP_BUILD_ARCH
+ 					" " PHP_BUILD_ARCH

php-8.1.0-systzdata-v22.patch Added

@@ -0,0 +1,720 @@
+# License: MIT
+# http://opensource.org/licenses/MIT
+
+Add support for use of the system timezone database, rather
+than embedding a copy. Discussed upstream but was not desired.
+
+History:
+r22: retrieve tzdata version from /usr/share/zoneinfo/tzdata.zi
+r21: adapt for timelib 2021.03 (in 8.1.0)
+r20: adapt for timelib 2020.03 (in 8.0.10RC1)
+r19: adapt for timelib 2020.02 (in 8.0.0beta2)
+r18: adapt for autotool change in 7.3.3RC1
+r17: adapt for timelib 2018.01 (in 7.3.2RC1)
+r16: adapt for timelib 2017.06 (in 7.2.3RC1)
+r15: adapt for timelib 2017.05beta7 (in 7.2.0RC1)
+r14: improve check for valid tz file
+r13: adapt for upstream changes to use PHP allocator
+r12: adapt for upstream changes for new zic
+r11: use canonical names to avoid more case sensitivity issues
+ round lat/long from zone.tab towards zero per builtin db
+r10: make timezone case insensitive
+r9: fix another compile error without --with-system-tzdata configured (Michael Heimpold)
+r8: fix compile error without --with-system-tzdata configured
+r7: improve check for valid timezone id to exclude directories
+r6: fix fd leak in r5, fix country code/BC flag use in
+ timezone_identifiers_list() using system db,
+ fix use of PECL timezonedb to override system db,
+r5: reverts addition of "System/Localtime" fake tzname.
+ updated for 5.3.0, parses zone.tab to pick up mapping between
+ timezone name, country code and long/lat coords
+r4: added "System/Localtime" tzname which uses /etc/localtime
+r3: fix a crash if /usr/share/zoneinfo doesn't exist (Raphael Geissert)
+r2: add filesystem trawl to set up name alias index
+r1: initial revision
+
+diff --git a/ext/date/config0.m4 b/ext/date/config0.m4
+index 18b8106bd2..3d1f63c758 100644
+--- a/ext/date/config0.m4
++++ b/ext/date/config0.m4
+@@ -4,6 +4,19 @@ AC_CHECK_HEADERS(io.h)
+ dnl Check for strtoll, atoll
+ AC_CHECK_FUNCS(strtoll atoll)
+ 
++PHP_ARG_WITH(system-tzdata, for use of system timezone data,
++ --with-system-tzdata=DIR to specify use of system timezone data,
++no, no)
++
++if test "$PHP_SYSTEM_TZDATA" != "no"; then
++ AC_DEFINE(HAVE_SYSTEM_TZDATA, 1, Define if system timezone data is used)
++
++ if test "$PHP_SYSTEM_TZDATA" != "yes"; then
++ AC_DEFINE_UNQUOTED(HAVE_SYSTEM_TZDATA_PREFIX, "$PHP_SYSTEM_TZDATA",
++ Define for location of system timezone data)
++ fi
++fi
++
+ PHP_DATE_CFLAGS="-Wno-implicit-fallthrough -I@ext_builddir@/lib -DZEND_ENABLE_STATIC_TSRMLS_CACHE=1 -DHAVE_TIMELIB_CONFIG_H=1"
+ timelib_sources="lib/astro.c lib/dow.c lib/parse_date.c lib/parse_tz.c lib/parse_posix.c
+ lib/timelib.c lib/tm2unixtime.c lib/unixtime2tm.c lib/parse_iso_intervals.c lib/interval.c"
+diff --git a/ext/date/lib/parse_tz.c b/ext/date/lib/parse_tz.c
+index e41315efdb..4b6547c0a3 100644
+--- a/ext/date/lib/parse_tz.c
++++ b/ext/date/lib/parse_tz.c
+@@ -26,9 +26,22 @@
+ #include "timelib.h"
+ #include "timelib_private.h"
+ 
++#ifdef HAVE_SYSTEM_TZDATA
++#include <sys/mman.h>
++#include <sys/stat.h>
++#include <limits.h>
++#include <fcntl.h>
++#include <unistd.h>
++
++#include "php_scandir.h"
++
++#else
+ #define TIMELIB_SUPPORTS_V2DATA
+ #define TIMELIB_SUPPORT_SLIM_FILE
+ #include "timezonedb.h"
++#endif
++
++#include <ctype.h>
+ 
+ #if (defined(__APPLE__) || defined(__APPLE_CC__)) && (defined(__BIG_ENDIAN__) || defined(__LITTLE_ENDIAN__))
+ # if defined(__LITTLE_ENDIAN__)
+@@ -95,6 +108,11 @@ static int read_php_preamble(const unsigned char **tzf, timelib_tzinfo *tz)
+ {
+ 	uint32_t version;
+ 
++	if (memcmp(*tzf, "TZif", 4) == 0) {
++		*tzf += 20;
++		return 0;
++	}
++
+ 	/* read ID */
+ 	version = (*tzf)3 - '0';
+ 	*tzf += 4;
+@@ -577,7 +595,467 @@ void timelib_dump_tzinfo(timelib_tzinfo *tz)
+ 	}
+ }
+ 
+-static int seek_to_tz_position(const unsigned char **tzf, const char *timezone, const timelib_tzdb *tzdb)
++#ifdef HAVE_SYSTEM_TZDATA
++
++#ifdef HAVE_SYSTEM_TZDATA_PREFIX
++#define ZONEINFO_PREFIX HAVE_SYSTEM_TZDATA_PREFIX
++#else
++#define ZONEINFO_PREFIX "/usr/share/zoneinfo"
++#endif
++
++/* System timezone database pointer. */
++static const timelib_tzdb *timezonedb_system;
++
++/* Hash table entry for the cache of the zone.tab mapping table. */
++struct location_info {
++ char code2;
++ double latitude, longitude;
++ char name64;
++ char *comment;
++ struct location_info *next;
++};
++
++/* Cache of zone.tab. */
++static struct location_info **system_location_table;
++
++/* Size of the zone.tab hash table; a random-ish prime big enough to
++ * prevent too many collisions. */
++#define LOCINFO_HASH_SIZE (1021)
++
++/* Compute a case insensitive hash of str */
++static uint32_t tz_hash(const char *str)
++{
++ const unsigned char *p = (const unsigned char *)str;
++ uint32_t hash = 5381;
++ int c;
++
++ while ((c = tolower(*p++)) != '\0') {
++ hash = (hash << 5) ^ hash ^ c;
++ }
++
++ return hash % LOCINFO_HASH_SIZE;
++}
++
++/* Parse an ISO-6709 date as used in zone.tab. Returns end of the
++ * parsed string on success, or NULL on parse error. On success,
++ * writes the parsed number to *result. */
++static char *parse_iso6709(char *p, double *result)
++{
++ double v, sign;
++ char *pend;
++ size_t len;
++
++ if (*p == '+')
++ sign = 1.0;
++ else if (*p == '-')
++ sign = -1.0;
++ else
++ return NULL;
++
++ p++;
++ for (pend = p; *pend >= '0' && *pend <= '9'; pend++)
++ ;;
++
++ /* Annoying encoding used by zone.tab has no decimal point, so use
++ * the length to determine the format:
++ * 
++ * 4 = DDMM
++ * 5 = DDDMM
++ * 6 = DDMMSS
++ * 7 = DDDMMSS
++ */
++ len = pend - p;
++ if (len < 4 || len > 7) {
++ return NULL;
++ }
++
++ /* p => DDD */
++ v = (p0 - '0') * 10.0 + (p1 - '0');
++ p += 2;
++ if (len == 5 || len == 7)
++ v = v * 10.0 + (*p++ - '0');
++ /* p => MMSS */
++ v += (10.0 * (p0 - '0')
++ + p1 - '0') / 60.0;
++ p += 2;
++ /* p => SS */
++ if (len > 5) {
++ v += (10.0 * (p0 - '0')
++ + p1 - '0') / 3600.0;
++ p += 2;
++ }
++
++ /* Round to five decimal place, not because it's a good idea,
++ * but, because the builtin data uses rounded data, so, match
++ * that. */
++ *result = trunc(v * sign * 100000.0) / 100000.0;
++
++ return p;
++}
++
++/* This function parses the zone.tab file to build up the mapping of
++ * timezone to country code and geographic location, and returns a
++ * hash table. The hash table is indexed by the function:
++ *
++ * tz_hash(timezone-name)
++ */
++static struct location_info **create_location_table(void)
++{
++ struct location_info **li, *i;
++ char zone_tabPATH_MAX;
++ char line512;
++ FILE *fp;
++
++ strncpy(zone_tab, ZONEINFO_PREFIX "/zone.tab", sizeof zone_tab);
++
++ fp = fopen(zone_tab, "r");
++ if (!fp) {
++ return NULL;
++ }
++
++ li = calloc(LOCINFO_HASH_SIZE, sizeof *li);
++
++ while (fgets(line, sizeof line, fp)) {
++ char *p = line, *code, *name, *comment;
++ uint32_t hash;
++ double latitude, longitude;
++
++ while (isspace(*p))
++ p++;
++
++ if (*p == '#' || *p == '\0' || *p == '\n')
++ continue;
++ 
++ if (!isalpha(p0) || !isalpha(p1) || p2 != '\t')
++ continue;
++ 
++ /* code => AA */
++ code = p;
++ p2 = 0;
++ p += 3;
++
++ /* coords => +-DDDMMSS+-DDDMMSS */
++ p = parse_iso6709(p, &latitude);
++ if (!p) {
++ continue;
++ }
++ p = parse_iso6709(p, &longitude);
++ if (!p) {
++ continue;
++ }
++
++ if (!p || *p != '\t') {
++ continue;
++ }
++
++ /* name = string */
++ name = ++p;
++ while (*p != '\t' && *p && *p != '\n')
++ p++;
++
++ *p++ = '\0';
++
++ /* comment = string */
++ comment = p;
++ while (*p != '\t' && *p && *p != '\n')
++ p++;
++
++ if (*p == '\n' || *p == '\t')
++ *p = '\0';
++ 
++ hash = tz_hash(name);
++ i = malloc(sizeof *i);
++ memcpy(i->code, code, 2);
++ strncpy(i->name, name, sizeof i->name);
++ i->comment = strdup(comment);
++ i->longitude = longitude;
++ i->latitude = latitude;
++ i->next = lihash;
++ lihash = i;
++ /* printf("%s %u, %f, %f\n", name, hash, latitude, longitude); */
++ }
++
++ fclose(fp);
++
++ return li;
++}
++
++/* Return location info from hash table, using given timezone name.
++ * Returns NULL if the name could not be found. */
++const struct location_info *find_zone_info(struct location_info **li, 
++ const char *name)
++{
++ uint32_t hash = tz_hash(name);
++ const struct location_info *l;
++
++ if (!li) {
++ return NULL;
++ }
++
++ for (l = lihash; l; l = l->next) {
++ if (timelib_strcasecmp(l->name, name) == 0)
++ return l;
++ }
++
++ return NULL;
++} 
++
++/* Filter out some non-tzdata files and the posix/right databases, if
++ * present. */
++static int index_filter(const struct dirent *ent)
++{
++	return strcmp(ent->d_name, ".") != 0
++		&& strcmp(ent->d_name, "..") != 0
++		&& strcmp(ent->d_name, "posix") != 0
++		&& strcmp(ent->d_name, "posixrules") != 0
++		&& strcmp(ent->d_name, "right") != 0
++		&& strstr(ent->d_name, ".list") == NULL
++		&& strstr(ent->d_name, ".tab") == NULL;
++}
++
++static int sysdbcmp(const void *first, const void *second)
++{
++ const timelib_tzdb_index_entry *alpha = first, *beta = second;
++
++ return timelib_strcasecmp(alpha->id, beta->id);
++}
++
++/* Retrieve tzdata version. */
++static void retrieve_zone_version(timelib_tzdb *db)
++{
++ static char buf30;
++ char pathPATH_MAX;
++ FILE *fp;
++
++ strncpy(path, ZONEINFO_PREFIX "/tzdata.zi", sizeof(path));
++
++ fp = fopen(path, "r");
++ if (fp) {
++		if (fgets(buf, sizeof(buf), fp)) {
++			if (!memcmp(buf, "# version ", 10) &&
++				isdigit(buf10) &&
++				isdigit(buf11) &&
++				isdigit(buf12) &&
++				isdigit(buf13) &&
++				islower(buf14)) {
++				if (buf14 >= 't') { /* 2022t = 2022.20 */
++					buf17 = 0;
++					buf16 = buf14 - 't' + '0';
++					buf15 = '2';
++				} else if (buf14 >= 'j') { /* 2022j = 2022.10 */
++					buf17 = 0;
++					buf16 = buf14 - 'j' + '0';
++					buf15 = '1';
++				} else { /* 2022a = 2022.1 */
++					buf16 = 0;
++					buf15 = buf14 - 'a' + '1';
++				}
++				buf14 = '.';
++				db->version = buf+10;
++			}
++		}
++		fclose(fp);
++ }
++}
++
++
++/* Create the zone identifier index by trawling the filesystem. */
++static void create_zone_index(timelib_tzdb *db)
++{
++	size_t dirstack_size, dirstack_top;
++	size_t index_size, index_next;
++	timelib_tzdb_index_entry *db_index;
++	char **dirstack;
++
++	/* LIFO stack to hold directory entries to scan; each slot is a
++	 * directory name relative to the zoneinfo prefix. */
++	dirstack_size = 32;
++	dirstack = malloc(dirstack_size * sizeof *dirstack);
++	dirstack_top = 1;
++	dirstack0 = strdup("");
++	
++	/* Index array. */
++	index_size = 64;
++	db_index = malloc(index_size * sizeof *db_index);
++	index_next = 0;
++
++	do {
++		struct dirent **ents;
++		char namePATH_MAX, *top;
++		int count;
++
++		/* Pop the top stack entry, and iterate through its contents. */
++		top = dirstack--dirstack_top;
++		snprintf(name, sizeof name, ZONEINFO_PREFIX "/%s", top);
++
++		count = php_scandir(name, &ents, index_filter, php_alphasort);
++
++		while (count > 0) {
++			struct stat st;
++			const char *leaf = entscount - 1->d_name;
++
++			snprintf(name, sizeof name, ZONEINFO_PREFIX "/%s/%s", 
++				 top, leaf);
++			
++			if (strlen(name) && stat(name, &st) == 0) {
++				/* Name, relative to the zoneinfo prefix. */
++				const char *root = top;
++
++				if (root0 == '/') root++;
++
++				snprintf(name, sizeof name, "%s%s%s", root, 
++					 *root ? "/": "", leaf);
++
++				if (S_ISDIR(st.st_mode)) {
++					if (dirstack_top == dirstack_size) {
++						dirstack_size *= 2;
++						dirstack = realloc(dirstack, 
++								 dirstack_size * sizeof *dirstack);
++					}
++					dirstackdirstack_top++ = strdup(name);
++				}
++				else {
++					if (index_next == index_size) {
++						index_size *= 2;
++						db_index = realloc(db_index,
++								 index_size * sizeof *db_index);
++					}
++
++					db_indexindex_next++.id = strdup(name);
++				}
++			}
++
++			free(ents--count);
++		}
++		
++		if (count != -1) free(ents);
++		free(top);
++	} while (dirstack_top);
++
++ qsort(db_index, index_next, sizeof *db_index, sysdbcmp);
++
++	db->index = db_index;
++	db->index_size = index_next;
++
++	free(dirstack);
++}
++
++#define FAKE_HEADER "1234\0??\1??"
++#define FAKE_UTC_POS (7 - 4)
++
++/* Create a fake data segment for database 'sysdb'. */
++static void fake_data_segment(timelib_tzdb *sysdb,
++ struct location_info **info)
++{
++ size_t n;
++ char *data, *p;
++ 
++ data = malloc(3 * sysdb->index_size + 7);
++
++ p = mempcpy(data, FAKE_HEADER, sizeof(FAKE_HEADER) - 1);
++
++ for (n = 0; n < sysdb->index_size; n++) {
++ const struct location_info *li;
++ timelib_tzdb_index_entry *ent;
++
++ ent = (timelib_tzdb_index_entry *)&sysdb->indexn;
++
++ /* Lookup the timezone name in the hash table. */
++ if (strcmp(ent->id, "UTC") == 0) {
++ ent->pos = FAKE_UTC_POS;
++ continue;
++ }
++
++ li = find_zone_info(info, ent->id);
++ if (li) {
++ /* If found, append the BC byte and the
++ * country code; set the position for this
++ * section of timezone data. */
++ ent->pos = (p - data) - 4;
++ *p++ = '\1';
++ *p++ = li->code0;
++ *p++ = li->code1;
++ }
++ else {
++ /* If not found, the timezone data can
++ * point at the header. */
++ ent->pos = 0;
++ }
++ }
++ 
++ sysdb->data = (unsigned char *)data;
++}
++
++/* Returns true if the passed-in stat structure describes a
++ * probably-valid timezone file. */
++static int is_valid_tzfile(const struct stat *st, int fd)
++{
++	if (fd) {
++		char buf20;
++		if (read(fd, buf, 20)!=20) {
++			return 0;
++		}
++		lseek(fd, SEEK_SET, 0);
++		if (memcmp(buf, "TZif", 4)) {
++			return 0;
++		}
++	}
++	return S_ISREG(st->st_mode) && st->st_size > 20;
++}
++
++/* To allow timezone names to be used case-insensitively, find the
++ * canonical name for this timezone, if possible. */
++static const char *canonical_tzname(const char *timezone)
++{
++ if (timezonedb_system) {
++ timelib_tzdb_index_entry *ent, lookup;
++
++ lookup.id = (char *)timezone;
++
++ ent = bsearch(&lookup, timezonedb_system->index,
++ timezonedb_system->index_size, sizeof lookup,
++ sysdbcmp);
++ if (ent) {
++ return ent->id;
++ }
++ }
++
++ return timezone;
++}
++
++/* Return the mmap()ed tzfile if found, else NULL. On success, the
++ * length of the mapped data is placed in *length. */
++static char *map_tzfile(const char *timezone, size_t *length)
++{
++	char fnamePATH_MAX;
++	struct stat st;
++	char *p;
++	int fd;
++	
++	if (timezone0 == '\0' || strstr(timezone, "..") != NULL) {
++		return NULL;
++	}
++
++	snprintf(fname, sizeof fname, ZONEINFO_PREFIX "/%s", canonical_tzname(timezone));
++
++	fd = open(fname, O_RDONLY);
++	if (fd == -1) {
++		return NULL;
++	} else if (fstat(fd, &st) != 0 || !is_valid_tzfile(&st, fd)) {
++		close(fd);
++		return NULL;
++	}
++
++	*length = st.st_size;
++	p = mmap(NULL, st.st_size, PROT_READ, MAP_SHARED, fd, 0);
++	close(fd);
++	
++	return p != MAP_FAILED ? p : NULL;
++}
++
++#endif
++
++static int inmem_seek_to_tz_position(const unsigned char **tzf, const char *timezone, const timelib_tzdb *tzdb)
+ {
+ 	int left = 0, right = tzdb->index_size - 1;
+ 
+@@ -603,9 +1081,49 @@ static int seek_to_tz_position(const unsigned char **tzf, const char *timezone,
+ 	return 0;
+ }
+ 
++static int seek_to_tz_position(const unsigned char **tzf, const char *timezone,
++			 char **map, size_t *maplen,
++			 const timelib_tzdb *tzdb)
++{
++#ifdef HAVE_SYSTEM_TZDATA
++	if (tzdb == timezonedb_system) {
++		char *orig;
++
++		orig = map_tzfile(timezone, maplen);
++		if (orig == NULL) {
++			return 0;
++		}
++
++		(*tzf) = (unsigned char *)orig;
++		*map = orig;
++ return 1;
++	}
++	else
++#endif
++	{
++		return inmem_seek_to_tz_position(tzf, timezone, tzdb);
++	}
++}
++
+ const timelib_tzdb *timelib_builtin_db(void)
+ {
++#ifdef HAVE_SYSTEM_TZDATA
++	if (timezonedb_system == NULL) {
++		timelib_tzdb *tmp = malloc(sizeof *tmp);
++
++		tmp->version = "0.system";
++		tmp->data = NULL;
++		create_zone_index(tmp);
++		retrieve_zone_version(tmp);
++		system_location_table = create_location_table();
++		fake_data_segment(tmp, system_location_table);
++		timezonedb_system = tmp;
++	}
++
++	return timezonedb_system;
++#else
+ 	return &timezonedb_builtin;
++#endif
+ }
+ 
+ const timelib_tzdb_index_entry *timelib_timezone_identifiers_list(const timelib_tzdb *tzdb, int *count)
+@@ -617,7 +1135,30 @@ const timelib_tzdb_index_entry *timelib_timezone_identifiers_list(const timelib_
+ int timelib_timezone_id_is_valid(const char *timezone, const timelib_tzdb *tzdb)
+ {
+ 	const unsigned char *tzf;
+-	return (seek_to_tz_position(&tzf, timezone, tzdb));
++
++#ifdef HAVE_SYSTEM_TZDATA
++	if (tzdb == timezonedb_system) {
++		char fnamePATH_MAX;
++		struct stat st;
++
++		if (timezone0 == '\0' || strstr(timezone, "..") != NULL) {
++			return 0;
++		}
++
++		if (system_location_table) {
++			if (find_zone_info(system_location_table, timezone) != NULL) {
++				/* found in cache */
++				return 1;
++			}
++		}
++
++		snprintf(fname, sizeof fname, ZONEINFO_PREFIX "/%s", canonical_tzname(timezone));
++
++		return stat(fname, &st) == 0 && is_valid_tzfile(&st, 0);
++	}
++#endif
++
++	return (inmem_seek_to_tz_position(&tzf, timezone, tzdb));
+ }
+ 
+ static int skip_64bit_preamble(const unsigned char **tzf, timelib_tzinfo *tz)
+@@ -662,6 +1203,8 @@ static timelib_tzinfo* timelib_tzinfo_ctor(const char *name)
+ timelib_tzinfo *timelib_parse_tzfile(const char *timezone, const timelib_tzdb *tzdb, int *error_code)
+ {
+ 	const unsigned char *tzf;
++	char *memmap = NULL;
++	size_t maplen;
+ 	timelib_tzinfo *tmp;
+ 	int version;
+ 	int transitions_result, types_result;
+@@ -669,7 +1212,7 @@ timelib_tzinfo *timelib_parse_tzfile(const char *timezone, const timelib_tzdb *t
+ 
+ 	*error_code = TIMELIB_ERROR_NO_ERROR;
+ 
+-	if (seek_to_tz_position(&tzf, timezone, tzdb)) {
++	if (seek_to_tz_position(&tzf, timezone, &memmap, &maplen, tzdb)) {
+ 		tmp = timelib_tzinfo_ctor(timezone);
+ 
+ 		version = read_preamble(&tzf, tmp, &type);
+@@ -712,11 +1255,36 @@ timelib_tzinfo *timelib_parse_tzfile(const char *timezone, const timelib_tzdb *t
+ 			return NULL;
+ 		}
+ 
++#ifdef HAVE_SYSTEM_TZDATA
++		if (memmap) {
++			const struct location_info *li;
++
++			/* TZif-style - grok the location info from the system database,
++			 * if possible. */
++
++			if ((li = find_zone_info(system_location_table, timezone)) != NULL) {
++				tmp->location.comments = timelib_strdup(li->comment);
++				strncpy(tmp->location.country_code, li->code, 2);
++				tmp->location.longitude = li->longitude;
++				tmp->location.latitude = li->latitude;
++				tmp->bc = 1;
++			}
++			else {
++				set_default_location_and_comments(&tzf, tmp);
++			}
++
++			/* Now done with the mmap segment - discard it. */
++			munmap(memmap, maplen);
++		} else {
++#endif
+ 		if (type == TIMELIB_TZINFO_PHP) {
+ 			read_location(&tzf, tmp);
+ 		} else {
+ 			set_default_location_and_comments(&tzf, tmp);
+ 		}
++#ifdef HAVE_SYSTEM_TZDATA
++		}
++#endif
+ 	} else {
+ 		*error_code = TIMELIB_ERROR_NO_SUCH_TIMEZONE;
+ 		tmp = NULL;
+diff --git a/ext/date/php_date.c b/ext/date/php_date.c
+index cf4a11b8a2..cd49abc78d 100644
+--- a/ext/date/php_date.c
++++ b/ext/date/php_date.c
+@@ -457,7 +457,11 @@ PHP_MINFO_FUNCTION(date)
+ 	php_info_print_table_row(2, "date/time support", "enabled");
+ 	php_info_print_table_row(2, "timelib version", TIMELIB_ASCII_VERSION);
+ 	php_info_print_table_row(2, "\"Olson\" Timezone Database Version", tzdb->version);
++#ifdef HAVE_SYSTEM_TZDATA
++	php_info_print_table_row(2, "Timezone Database", "system");
++#else
+ 	php_info_print_table_row(2, "Timezone Database", php_date_global_timezone_db_enabled ? "external" : "internal");
++#endif
+ 	php_info_print_table_row(2, "Default timezone", guess_timezone(tzdb));
+ 	php_info_print_table_end();
+

10-opcache.ini Added

@@ -0,0 +1,153 @@
+; Enable Zend OPcache extension module
+zend_extension=opcache
+
+; Determines if Zend OPCache is enabled
+opcache.enable=1
+
+; Determines if Zend OPCache is enabled for the CLI version of PHP
+opcache.enable_cli=1
+
+; The OPcache shared memory storage size.
+;opcache.memory_consumption=128
+
+; The amount of memory for interned strings in Mbytes.
+;opcache.interned_strings_buffer=8
+
+; The maximum number of keys (scripts) in the OPcache hash table.
+; Only numbers between 200 and 1000000 are allowed.
+;opcache.max_accelerated_files=10000
+
+; The maximum percentage of "wasted" memory until a restart is scheduled.
+;opcache.max_wasted_percentage=5
+
+; When this directive is enabled, the OPcache appends the current working
+; directory to the script key, thus eliminating possible collisions between
+; files with the same name (basename). Disabling the directive improves
+; performance, but may break existing applications.
+;opcache.use_cwd=1
+
+; When disabled, you must reset the OPcache manually or restart the
+; webserver for changes to the filesystem to take effect.
+;opcache.validate_timestamps=1
+
+; How often (in seconds) to check file timestamps for changes to the shared
+; memory storage allocation. ("1" means validate once per second, but only
+; once per request. "0" means always validate)
+;opcache.revalidate_freq=2
+
+; Enables or disables file search in include_path optimization
+;opcache.revalidate_path=0
+
+; If disabled, all PHPDoc comments are dropped from the code to reduce the
+; size of the optimized code.
+;opcache.save_comments=1
+
+; If enabled, compilation warnings (including notices and deprecations) will
+; be recorded and replayed each time a file is included. Otherwise, compilation
+; warnings will only be emitted when the file is first cached.
+;opcache.record_warnings=0
+
+; Allow file existence override (file_exists, etc.) performance feature.
+;opcache.enable_file_override=0
+
+; A bitmask, where each bit enables or disables the appropriate OPcache
+; passes
+;opcache.optimization_level=0x7FFFBFFF
+
+; This hack should only be enabled to work around "Cannot redeclare class"
+; errors.
+;opcache.dups_fix=0
+
+; The location of the OPcache blacklist file (wildcards allowed).
+; Each OPcache blacklist file is a text file that holds the names of files
+; that should not be accelerated.
+opcache.blacklist_filename=/etc/php.d/opcache*.blacklist
+
+; Allows exclusion of large files from being cached. By default all files
+; are cached.
+;opcache.max_file_size=0
+
+; Check the cache checksum each N requests.
+; The default value of "0" means that the checks are disabled.
+;opcache.consistency_checks=0
+
+; How long to wait (in seconds) for a scheduled restart to begin if the cache
+; is not being accessed.
+;opcache.force_restart_timeout=180
+
+; OPcache error_log file name. Empty string assumes "stderr".
+;opcache.error_log=
+
+; All OPcache errors go to the Web server log.
+; By default, only fatal errors (level 0) or errors (level 1) are logged.
+; You can also enable warnings (level 2), info messages (level 3) or
+; debug messages (level 4).
+;opcache.log_verbosity_level=1
+
+; Preferred Shared Memory back-end. Leave empty and let the system decide.
+;opcache.preferred_memory_model=
+
+; Protect the shared memory from unexpected writing during script execution.
+; Useful for internal debugging only.
+;opcache.protect_memory=0
+
+; Allows calling OPcache API functions only from PHP scripts which path is
+; started from specified string. The default "" means no restriction
+;opcache.restrict_api=
+
+; Enables and sets the second level cache directory.
+; It should improve performance when SHM memory is full, at server restart or
+; SHM reset. The default "" disables file based caching.
+; RPM note : file cache directory must be owned by process owner
+;   for mod_php, see /etc/httpd/conf.d/php.conf
+;   for php-fpm, see /etc/php-fpm.d/*conf
+;opcache.file_cache=
+
+; Enables or disables opcode caching in shared memory.
+;opcache.file_cache_only=0
+
+; Enables or disables checksum validation when script loaded from file cache.
+;opcache.file_cache_consistency_checks=1
+
+; Implies opcache.file_cache_only=1 for a certain process that failed to
+; reattach to the shared memory (for Windows only). Explicitly enabled file
+; cache is required.
+;opcache.file_cache_fallback=1
+
+; Enables or disables copying of PHP code (text segment) into HUGE PAGES.
+; This should improve performance, but requires appropriate OS configuration.
+opcache.huge_code_pages=0
+
+; Validate cached file permissions.
+; Leads OPcache to check file readability on each access to cached file.
+; This directive should be enabled in shared hosting environment, when few
+; users (PHP-FPM pools) reuse the common OPcache shared memory.
+;opcache.validate_permission=0
+
+; Prevent name collisions in chroot'ed environment.
+; This directive prevents file name collisions in different "chroot"
+; environments. It should be enabled for sites that may serve requests in
+; different "chroot" environments.
+;opcache.validate_root=0
+
+; If specified, it produces opcode dumps for debugging different stages of
+; optimizations.
+;opcache.opt_debug_level=0
+
+; Specifies a PHP script that is going to be compiled and executed at server
+; start-up.
+; https://php.net/opcache.preload
+;opcache.preload=
+
+; Preloading code as root is not allowed for security reasons. This directive
+; facilitates to let the preloading to be run as another user.
+; https://php.net/opcache.preload_user
+;opcache.preload_user=
+
+; Prevents caching files that are less than this number of seconds old. It
+; protects from caching of incompletely updated files. In case all file updates
+; on your site are atomic, you may increase performance by setting it to "0".
+;opcache.file_update_protection=2
+
+; Absolute path used to store shared lockfiles (for *nix only).
+;opcache.lockfile_path=/tmp

20-ffi.ini Added

Makefile Added

gating.yaml Added

macros.php Added

news2markdown.php Added

@@ -0,0 +1,40 @@
+#!/usr/bin/env php
+<?php
+if ($_SERVER'argc' < 2) {
+	die("Usage {$_SERVER'argv'0} /path/to/NEWS\n");
+}
+
+$text = file_get_contents($_SERVER'argv'1);
+if (!$text) {
+	die("Can't read {$_SERVER'argv'1}\n");
+}
+$debug = (isset($_SERVER'argv'2) && $_SERVER'argv'2==-'d');
+
+$text = explode("\n", $text);
+$in=false;
+foreach ($text as $line) {
+	if (preg_match('/(^0-9+ .* 200-90-9),* PHP (.*)$/', $line, $reg)) {
+		if ($in) {
+			break;
+		}
+		printf("**PHP version %s** (%s)", $reg2, $reg1);
+		$in = true;
+		continue;
+	} else if (!$in) {
+		if ($debug) echo "+ Ignore $line\n";
+		continue;
+	}
+	$line = preg_replace('/(#0-9+)/', 'php\1', $line);
+	$line = preg_replace('/(GH-(0-9+))/', '\1(https://github.com/php/php-src/issues/\2)', $line);
+	$line = preg_replace('/(CVE-0-9+-0-9+)/', '**\1**', $line);
+	if (empty($line)) {
+		echo "\n\n";
+	} else if (substr($line, 0, 2) == '- ') {
+		echo "**" . substr($line, 2) . "**\n";
+	} else if (substr($line, 0, 4) == ' . ') {
+		echo "\n* " . substr($line, 4);
+	} else {
+		echo " ".trim($line);
+	}
+}
+

nginx-fpm.conf Added

nginx-php.conf Added

opcache-default.blacklist Added

php-8.1.9.tar.xz Added

php-8.1.9.tar.xz.asc Added

php-fpm-www.conf Added

@@ -0,0 +1,438 @@
+; Start a new pool named 'www'.
+; the variable $pool can be used in any directive and will be replaced by the
+; pool name ('www' here)
+www
+
+; Per pool prefix
+; It only applies on the following directives:
+; - 'access.log'
+; - 'slowlog'
+; - 'listen' (unixsocket)
+; - 'chroot'
+; - 'chdir'
+; - 'php_values'
+; - 'php_admin_values'
+; When not set, the global prefix (or @php_fpm_prefix@) applies instead.
+; Note: This directive can also be relative to the global prefix.
+; Default Value: none
+;prefix = /path/to/pools/$pool
+
+; Unix user/group of processes
+; Note: The user is mandatory. If the group is not set, the default user's group
+; will be used.
+; RPM: apache user chosen to provide access to the same directories as httpd
+user = apache
+; RPM: Keep a group allowed to write in log dir.
+group = apache
+
+; The address on which to accept FastCGI requests.
+; Valid syntaxes are:
+; 'ip.add.re.ss:port' - to listen on a TCP socket to a specific IPv4 address on
+; a specific port;
+; 'ip:6:addr:ess:port' - to listen on a TCP socket to a specific IPv6 address on
+; a specific port;
+; 'port' - to listen on a TCP socket to all addresses
+; (IPv6 and IPv4-mapped) on a specific port;
+; '/path/to/unix/socket' - to listen on a unix socket.
+; Note: This value is mandatory.
+listen = /run/php-fpm/www.sock
+
+; Set listen(2) backlog.
+; Default Value: 511
+;listen.backlog = 511
+
+; Set permissions for unix socket, if one is used. In Linux, read/write
+; permissions must be set in order to allow connections from a web server.
+; Default Values: user and group are set as the running user
+; mode is set to 0660
+;listen.owner = nobody
+;listen.group = nobody
+;listen.mode = 0660
+
+; When POSIX Access Control Lists are supported you can set them using
+; these options, value is a comma separated list of user/group names.
+; When set, listen.owner and listen.group are ignored
+listen.acl_users = apache,nginx
+;listen.acl_groups =
+
+; List of addresses (IPv4/IPv6) of FastCGI clients which are allowed to connect.
+; Equivalent to the FCGI_WEB_SERVER_ADDRS environment variable in the original
+; PHP FCGI (5.2.2+). Makes sense only with a tcp listening socket. Each address
+; must be separated by a comma. If this value is left blank, connections will be
+; accepted from any ip address.
+; Default Value: any
+listen.allowed_clients = 127.0.0.1
+
+; Specify the nice(2) priority to apply to the pool processes (only if set)
+; The value can vary from -19 (highest priority) to 20 (lower priority)
+; Note: - It will only work if the FPM master process is launched as root
+; - The pool processes will inherit the master process priority
+; unless it specified otherwise
+; Default Value: no set
+; process.priority = -19
+
+; Set the process dumpable flag (PR_SET_DUMPABLE prctl) even if the process user
+; or group is differrent than the master process user. It allows to create process
+; core dump and ptrace the process for the pool user.
+; Default Value: no
+; process.dumpable = yes
+
+; Choose how the process manager will control the number of child processes.
+; Possible Values:
+; static - a fixed number (pm.max_children) of child processes;
+; dynamic - the number of child processes are set dynamically based on the
+; following directives. With this process management, there will be
+; always at least 1 children.
+; pm.max_children - the maximum number of children that can
+; be alive at the same time.
+; pm.start_servers - the number of children created on startup.
+; pm.min_spare_servers - the minimum number of children in 'idle'
+; state (waiting to process). If the number
+; of 'idle' processes is less than this
+; number then some children will be created.
+; pm.max_spare_servers - the maximum number of children in 'idle'
+; state (waiting to process). If the number
+; of 'idle' processes is greater than this
+; number then some children will be killed.
+; ondemand - no children are created at startup. Children will be forked when
+; new requests will connect. The following parameter are used:
+; pm.max_children - the maximum number of children that
+; can be alive at the same time.
+; pm.process_idle_timeout - The number of seconds after which
+; an idle process will be killed.
+; Note: This value is mandatory.
+pm = dynamic
+
+; The number of child processes to be created when pm is set to 'static' and the
+; maximum number of child processes when pm is set to 'dynamic' or 'ondemand'.
+; This value sets the limit on the number of simultaneous requests that will be
+; served. Equivalent to the ApacheMaxClients directive with mpm_prefork.
+; Equivalent to the PHP_FCGI_CHILDREN environment variable in the original PHP
+; CGI. The below defaults are based on a server without much resources. Don't
+; forget to tweak pm.* to fit your needs.
+; Note: Used when pm is set to 'static', 'dynamic' or 'ondemand'
+; Note: This value is mandatory.
+pm.max_children = 50
+
+; The number of child processes created on startup.
+; Note: Used only when pm is set to 'dynamic'
+; Default Value: min_spare_servers + (max_spare_servers - min_spare_servers) / 2
+pm.start_servers = 5
+
+; The desired minimum number of idle server processes.
+; Note: Used only when pm is set to 'dynamic'
+; Note: Mandatory when pm is set to 'dynamic'
+pm.min_spare_servers = 5
+
+; The desired maximum number of idle server processes.
+; Note: Used only when pm is set to 'dynamic'
+; Note: Mandatory when pm is set to 'dynamic'
+pm.max_spare_servers = 35
+
+; The number of seconds after which an idle process will be killed.
+; Note: Used only when pm is set to 'ondemand'
+; Default Value: 10s
+;pm.process_idle_timeout = 10s;
+
+; The number of requests each child process should execute before respawning.
+; This can be useful to work around memory leaks in 3rd party libraries. For
+; endless request processing specify '0'. Equivalent to PHP_FCGI_MAX_REQUESTS.
+; Default Value: 0
+;pm.max_requests = 500
+
+; The URI to view the FPM status page. If this value is not set, no URI will be
+; recognized as a status page. It shows the following informations:
+; pool - the name of the pool;
+; process manager - static, dynamic or ondemand;
+; start time - the date and time FPM has started;
+; start since - number of seconds since FPM has started;
+; accepted conn - the number of request accepted by the pool;
+; listen queue - the number of request in the queue of pending
+; connections (see backlog in listen(2));
+; max listen queue - the maximum number of requests in the queue
+; of pending connections since FPM has started;
+; listen queue len - the size of the socket queue of pending connections;
+; idle processes - the number of idle processes;
+; active processes - the number of active processes;
+; total processes - the number of idle + active processes;
+; max active processes - the maximum number of active processes since FPM
+; has started;
+; max children reached - number of times, the process limit has been reached,
+; when pm tries to start more children (works only for
+; pm 'dynamic' and 'ondemand');
+; Value are updated in real time.
+; Example output:
+; pool: www
+; process manager: static
+; start time: 01/Jul/2011:17:53:49 +0200
+; start since: 62636
+; accepted conn: 190460
+; listen queue: 0
+; max listen queue: 1
+; listen queue len: 42
+; idle processes: 4
+; active processes: 11
+; total processes: 15
+; max active processes: 12
+; max children reached: 0
+;
+; By default the status page output is formatted as text/plain. Passing either
+; 'html', 'xml' or 'json' in the query string will return the corresponding
+; output syntax. Example:
+; http://www.foo.bar/status
+; http://www.foo.bar/status?json
+; http://www.foo.bar/status?html
+; http://www.foo.bar/status?xml
+;
+; By default the status page only outputs short status. Passing 'full' in the
+; query string will also return status for each pool process.
+; Example:
+; http://www.foo.bar/status?full
+; http://www.foo.bar/status?json&full
+; http://www.foo.bar/status?html&full
+; http://www.foo.bar/status?xml&full
+; The Full status returns for each process:
+; pid - the PID of the process;
+; state - the state of the process (Idle, Running, ...);
+; start time - the date and time the process has started;
+; start since - the number of seconds since the process has started;
+; requests - the number of requests the process has served;
+; request duration - the duration in µs of the requests;
+; request method - the request method (GET, POST, ...);
+; request URI - the request URI with the query string;
+; content length - the content length of the request (only with POST);
+; user - the user (PHP_AUTH_USER) (or '-' if not set);
+; script - the main script called (or '-' if not set);
+; last request cpu - the %cpu the last request consumed
+; it's always 0 if the process is not in Idle state
+; because CPU calculation is done when the request
+; processing has terminated;
+; last request memory - the max amount of memory the last request consumed
+; it's always 0 if the process is not in Idle state
+; because memory calculation is done when the request
+; processing has terminated;
+; If the process is in Idle state, then informations are related to the
+; last request the process has served. Otherwise informations are related to
+; the current request being served.
+; Example output:
+; ************************
+; pid: 31330
+; state: Running
+; start time: 01/Jul/2011:17:53:49 +0200
+; start since: 63087
+; requests: 12808
+; request duration: 1250261
+; request method: GET
+; request URI: /test_mem.php?N=10000
+; content length: 0
+; user: -
+; script: /home/fat/web/docs/php/test_mem.php
+; last request cpu: 0.00
+; last request memory: 0
+;
+; Note: There is a real-time FPM status monitoring sample web page available
+; It's available in: @EXPANDED_DATADIR@/fpm/status.html
+;
+; Note: The value must start with a leading slash (/). The value can be
+; anything, but it may not be a good idea to use the .php extension or it
+; may conflict with a real PHP file.
+; Default Value: not set
+;pm.status_path = /status
+
+; The ping URI to call the monitoring page of FPM. If this value is not set, no
+; URI will be recognized as a ping page. This could be used to test from outside
+; that FPM is alive and responding, or to
+; - create a graph of FPM availability (rrd or such);
+; - remove a server from a group if it is not responding (load balancing);
+; - trigger alerts for the operating team (24/7).
+; Note: The value must start with a leading slash (/). The value can be
+; anything, but it may not be a good idea to use the .php extension or it
+; may conflict with a real PHP file.
+; Default Value: not set
+;ping.path = /ping
+
+; This directive may be used to customize the response of a ping request. The
+; response is formatted as text/plain with a 200 response code.
+; Default Value: pong
+;ping.response = pong
+
+; The access log file
+; Default: not set
+;access.log = log/$pool.access.log
+
+; The access log format.
+; The following syntax is allowed
+; %%: the '%' character
+; %C: %CPU used by the request
+; it can accept the following format:
+; - %{user}C for user CPU only
+; - %{system}C for system CPU only
+; - %{total}C for user + system CPU (default)
+; %d: time taken to serve the request
+; it can accept the following format:
+; - %{seconds}d (default)
+; - %{miliseconds}d
+; - %{mili}d
+; - %{microseconds}d
+; - %{micro}d
+; %e: an environment variable (same as $_ENV or $_SERVER)
+; it must be associated with embraces to specify the name of the env
+; variable. Some exemples:
+; - server specifics like: %{REQUEST_METHOD}e or %{SERVER_PROTOCOL}e
+; - HTTP headers like: %{HTTP_HOST}e or %{HTTP_USER_AGENT}e
+; %f: script filename
+; %l: content-length of the request (for POST request only)
+; %m: request method
+; %M: peak of memory allocated by PHP
+; it can accept the following format:
+; - %{bytes}M (default)
+; - %{kilobytes}M
+; - %{kilo}M
+; - %{megabytes}M
+; - %{mega}M
+; %n: pool name
+; %o: output header
+; it must be associated with embraces to specify the name of the header:
+; - %{Content-Type}o
+; - %{X-Powered-By}o
+; - %{Transfert-Encoding}o
+; - ....
+; %p: PID of the child that serviced the request
+; %P: PID of the parent of the child that serviced the request
+; %q: the query string
+; %Q: the '?' character if query string exists
+; %r: the request URI (without the query string, see %q and %Q)
+; %R: remote IP address
+; %s: status (response code)
+; %t: server time the request was received
+; it can accept a strftime(3) format:
+; %d/%b/%Y:%H:%M:%S %z (default)
+; The strftime(3) format must be encapsuled in a %{<strftime_format>}t tag
+; e.g. for a ISO8601 formatted timestring, use: %{%Y-%m-%dT%H:%M:%S%z}t
+; %T: time the log has been written (the request has finished)
+; it can accept a strftime(3) format:
+; %d/%b/%Y:%H:%M:%S %z (default)
+; The strftime(3) format must be encapsuled in a %{<strftime_format>}t tag
+; e.g. for a ISO8601 formatted timestring, use: %{%Y-%m-%dT%H:%M:%S%z}t
+; %u: remote user
+;
+; Default: "%R - %u %t \"%m %r\" %s"
+;access.format = "%R - %u %t \"%m %r%Q%q\" %s %f %{mili}d %{kilo}M %C%%"
+
+; The log file for slow requests
+; Default Value: not set
+; Note: slowlog is mandatory if request_slowlog_timeout is set
+slowlog = /var/log/php-fpm/www-slow.log
+
+; The timeout for serving a single request after which a PHP backtrace will be
+; dumped to the 'slowlog' file. A value of '0s' means 'off'.
+; Available units: s(econds)(default), m(inutes), h(ours), or d(ays)
+; Default Value: 0
+;request_slowlog_timeout = 0
+
+; Depth of slow log stack trace.
+; Default Value: 20
+;request_slowlog_trace_depth = 20
+
+; The timeout for serving a single request after which the worker process will
+; be killed. This option should be used when the 'max_execution_time' ini option
+; does not stop script execution for some reason. A value of '0' means 'off'.
+; Available units: s(econds)(default), m(inutes), h(ours), or d(ays)
+; Default Value: 0
+;request_terminate_timeout = 0
+
+; Set open file descriptor rlimit.
+; Default Value: system defined value
+;rlimit_files = 1024
+
+; Set max core size rlimit.
+; Possible Values: 'unlimited' or an integer greater or equal to 0
+; Default Value: system defined value
+;rlimit_core = 0
+
+; Chroot to this directory at the start. This value must be defined as an
+; absolute path. When this value is not set, chroot is not used.
+; Note: you can prefix with '$prefix' to chroot to the pool prefix or one
+; of its subdirectories. If the pool prefix is not set, the global prefix
+; will be used instead.
+; Note: chrooting is a great security feature and should be used whenever
+; possible. However, all PHP paths will be relative to the chroot
+; (error_log, sessions.save_path, ...).
+; Default Value: not set
+;chroot =
+
+; Chdir to this directory at the start.
+; Note: relative path can be used.
+; Default Value: current directory or / when chroot
+;chdir = /var/www
+
+; Redirect worker stdout and stderr into main error log. If not set, stdout and
+; stderr will be redirected to /dev/null according to FastCGI specs.
+; Note: on highloaded environement, this can cause some delay in the page
+; process time (several ms).
+; Default Value: no
+;catch_workers_output = yes
+
+; Clear environment in FPM workers
+; Prevents arbitrary environment variables from reaching FPM worker processes
+; by clearing the environment in workers before env vars specified in this
+; pool configuration are added.
+; Setting to "no" will make all environment variables available to PHP code
+; via getenv(), $_ENV and $_SERVER.
+; Default Value: yes
+;clear_env = no
+
+; Limits the extensions of the main script FPM will allow to parse. This can
+; prevent configuration mistakes on the web server side. You should only limit
+; FPM to .php extensions to prevent malicious users to use other extensions to
+; execute php code.
+; Note: set an empty value to allow all extensions.
+; Default Value: .php
+;security.limit_extensions = .php .php3 .php4 .php5 .php7
+
+; Pass environment variables like LD_LIBRARY_PATH. All $VARIABLEs are taken from
+; the current environment.
+; Default Value: clean env
+;envHOSTNAME = $HOSTNAME
+;envPATH = /usr/local/bin:/usr/bin:/bin
+;envTMP = /tmp
+;envTMPDIR = /tmp
+;envTEMP = /tmp
+
+; Additional php.ini defines, specific to this pool of workers. These settings
+; overwrite the values previously defined in the php.ini. The directives are the
+; same as the PHP SAPI:
+; php_value/php_flag - you can set classic ini defines which can
+; be overwritten from PHP call 'ini_set'.
+; php_admin_value/php_admin_flag - these directives won't be overwritten by
+; PHP call 'ini_set'
+; For php_*flag, valid values are on, off, 1, 0, true, false, yes or no.
+
+; Defining 'extension' will load the corresponding shared extension from
+; extension_dir. Defining 'disable_functions' or 'disable_classes' will not
+; overwrite previously defined php.ini values, but will append the new value
+; instead.
+
+; Note: path INI options can be relative and will be expanded with the prefix
+; (pool, global or @prefix@)
+
+; Default Value: nothing is defined by default except the values in php.ini and
+; specified at startup with the -d argument
+;php_admin_valuesendmail_path = /usr/sbin/sendmail -t -i -f www@my.domain.com
+;php_flagdisplay_errors = off
+php_admin_valueerror_log = /var/log/php-fpm/www-error.log
+php_admin_flaglog_errors = on
+;php_admin_valuememory_limit = 128M
+
+; Set the following data paths to directories owned by the FPM process user.
+;
+; Do not change the ownership of existing system directories, if the process
+; user does not have write permission, create dedicated directories for this
+; purpose.
+;
+; See warning about choosing the location of these directories on your system
+; at http://php.net/session.save-path
+php_valuesession.save_handler = files
+php_valuesession.save_path = /var/lib/php/session
+php_valuesoap.wsdl_cache_dir = /var/lib/php/wsdlcache
+;php_valueopcache.file_cache = /var/lib/php/opcache

php-fpm.conf Added

@@ -0,0 +1,137 @@
+;;;;;;;;;;;;;;;;;;;;;
+; FPM Configuration ;
+;;;;;;;;;;;;;;;;;;;;;
+
+; All relative paths in this configuration file are relative to PHP's install
+; prefix.
+
+; Include one or more files. If glob(3) exists, it is used to include a bunch of
+; files from a glob(3) pattern. This directive can be used everywhere in the
+; file.
+include=/etc/php-fpm.d/*.conf
+
+;;;;;;;;;;;;;;;;;;
+; Global Options ;
+;;;;;;;;;;;;;;;;;;
+
+global
+; Pid file
+; Default Value: none
+pid = /run/php-fpm/php-fpm.pid
+
+; Error log file
+; If it's set to "syslog", log is sent to syslogd instead of being written
+; in a local file.
+; Default Value: /var/log/php-fpm.log
+error_log = /var/log/php-fpm/error.log
+
+; syslog_facility is used to specify what type of program is logging the
+; message. This lets syslogd specify that messages from different facilities
+; will be handled differently.
+; See syslog(3) for possible values (ex daemon equiv LOG_DAEMON)
+; Default Value: daemon
+;syslog.facility = daemon
+
+; syslog_ident is prepended to every message. If you have multiple FPM
+; instances running on the same server, you can change the default value
+; which must suit common needs.
+; Default Value: php-fpm
+;syslog.ident = php-fpm
+
+; Log level
+; Possible Values: alert, error, warning, notice, debug
+; Default Value: notice
+;log_level = notice
+
+; Log limit on number of characters in the single line (log entry). If the
+; line is over the limit, it is wrapped on multiple lines. The limit is for
+; all logged characters including message prefix and suffix if present. However
+; the new line character does not count into it as it is present only when
+; logging to a file descriptor. It means the new line character is not present
+; when logging to syslog.
+; Default Value: 1024
+;log_limit = 4096
+
+; Log buffering specifies if the log line is buffered which means that the
+; line is written in a single write operation. If the value is false, then the
+; data is written directly into the file descriptor. It is an experimental
+; option that can potentionaly improve logging performance and memory usage
+; for some heavy logging scenarios. This option is ignored if logging to syslog
+; as it has to be always buffered.
+; Default value: yes
+;log_buffering = no
+
+; If this number of child processes exit with SIGSEGV or SIGBUS within the time
+; interval set by emergency_restart_interval then FPM will restart. A value
+; of '0' means 'Off'.
+; Default Value: 0
+;emergency_restart_threshold = 0
+
+; Interval of time used by emergency_restart_interval to determine when
+; a graceful restart will be initiated.  This can be useful to work around
+; accidental corruptions in an accelerator's shared memory.
+; Available Units: s(econds), m(inutes), h(ours), or d(ays)
+; Default Unit: seconds
+; Default Value: 0
+;emergency_restart_interval = 0
+
+; Time limit for child processes to wait for a reaction on signals from master.
+; Available units: s(econds), m(inutes), h(ours), or d(ays)
+; Default Unit: seconds
+; Default Value: 0
+;process_control_timeout = 0
+
+; The maximum number of processes FPM will fork. This has been designed to control
+; the global number of processes when using dynamic PM within a lot of pools.
+; Use it with caution.
+; Note: A value of 0 indicates no limit
+; Default Value: 0
+;process.max = 128
+
+; Specify the nice(2) priority to apply to the master process (only if set)
+; The value can vary from -19 (highest priority) to 20 (lowest priority)
+; Note: - It will only work if the FPM master process is launched as root
+;       - The pool process will inherit the master process priority
+;         unless specified otherwise
+; Default Value: no set
+;process.priority = -19
+
+; Send FPM to background. Set to 'no' to keep FPM in foreground for debugging.
+; Default Value: yes
+daemonize = yes
+
+; Set open file descriptor rlimit for the master process.
+; Default Value: system defined value
+;rlimit_files = 1024
+
+; Set max core size rlimit for the master process.
+; Possible Values: 'unlimited' or an integer greater or equal to 0
+; Default Value: system defined value
+;rlimit_core = 0
+
+; Specify the event mechanism FPM will use. The following is available:
+; - select     (any POSIX os)
+; - poll       (any POSIX os)
+; - epoll      (linux >= 2.5.44)
+; Default Value: not set (auto detection)
+;events.mechanism = epoll
+
+; When FPM is built with systemd integration, specify the interval,
+; in seconds, between health report notification to systemd.
+; Set to 0 to disable.
+; Available Units: s(econds), m(inutes), h(ours)
+; Default Unit: seconds
+; Default value: 10
+;systemd_interval = 10
+
+;;;;;;;;;;;;;;;;;;;;
+; Pool Definitions ;
+;;;;;;;;;;;;;;;;;;;;
+
+; Multiple pools of child processes may be started with different listening
+; ports and different management options.  The name of the pool will be
+; used in logs and stats. There is no limitation on the number of pools which
+; FPM can handle. Your system will tell you anyway :)
+
+; See /etc/php-fpm.d/*.conf
+

php-fpm.logrotate Added

php-fpm.service Added

php-fpm.wants Added

php-keyring.gpg Added

@@ -0,0 +1,572 @@
+-----BEGIN PGP PUBLIC KEY BLOCK-----
+
+mQINBFjxRtoBEADkS6+Q7afwYDPFnqJXuyF2ZIvXysDBrpr/xbre4jVeiC/HIELa
+QedOJqO1V+BgnTRkfhor+Yq3mZ1un+6zJIiFcm5Kp7sPZjh15JF96PsA4e2Eh5eC
+eJzjXHj1nAKXfn5+CgpYEyL30r1/ACkmo9TKIiUxIDZRkZvxjY4UKeo+EoJo0Viu
+tV8mvSTgxaz9gzPhZ5OJR8zECT8j3T8d+tBD8wWxxmGZ0veOu/MBew1C/BDr8RqT
+CXDywUbyNuSsdb3a5aLuIuLekSJVSCcFwPIje1WrX4FyC42+elOp0SXpjWzdb08N
+XX4DEY8zVyVXI1ScSpTbslffcFkY60NJhjpP7t856L9vTLRfHIM9BIdSYH/ar5mE
+Q0vyJbiNfkx5tIMnEmnIYbmnjjmcPZDKZ4PyQEUEWF3DqNOOAWhk9HUMFEkANkd1
+vEcNNQxgD2eOJM6egfUv9KtuAEcRX2iDu3gIyE+55x92VVoEJDu5M+Q6PYGUIMh7
+nz2gS3lnlpG2vquQpqDS9UogsZ8L4NsukdP2ixRFnD9qaTOemqRYwIptOX6wvrtR
+7PmWOnnRZ5OcpK5/qyK9iCLY7bbHDViBoV0uLEHNPTDHjrALJrqS+dH1glYid/82
+OvKE3KREjRpMOW83nNfQcqkMi9fhH8WUkz6OD6JemvB/s/CwBS2w3+9LAQARAQAB
+tB5TYXJhIEdvbGVtb24gPHBvbGxpdGFAcGhwLm5ldD6JAj4EEwECACgCGwMGCwkI
+BwMCBhUIAgkKCwQWAgMBAh4BAheABQJY/TOeBQkNNFUtAAoJENvbOXRw0SFy1xYP
+/jQeNv4WUPK3M0Hl3EvEnOeODxePysU0khvgnw/mRtQu7BOwRdbB0HWv8Kx0HXL7
+XI4l2myHRZbd9PrBlG4YFYjZqWmqQ9WGlLBxDpSJNeROpTgKjhxA2hOl1xH2Et5k
+bRcZzpJJ9zuD3rqkq80S3u/UAB/QzYfJWKnQBTXi/3psZNAVTRp3/4sEn1kCfEnl
+NUYPih/NqdXE0frlKeITOAmatD2cjYcJlc/ETLil8Sq1nIgiE/++KZalbcXcRSHV
+ZSd/L+fNlMDIh6k9pjcE562oiyyMHKed/pAX7o1BqlKqSwxjQoNskpICVFkyMv+P
+7cIPyOxJa8kaGyyHND+8i1GzvwcPhLYeOWDwmiXBs4Ea8Z7KWxhi19zlxMrEfAcf
+FIomcRoxfzcnSY3FVJYIoEySK/IBiivqeunyeDA2JG1vLSZIV5hNicUihp4hnhX4
+Z1gElN+C68P49SZseFzxvzwMq5RIUbWVwIh2+Wj51/UrULgoM4qNkgejDLYFyTxb
+LfXq+Tk91UXdpepBHvE9KFVqh4MbIlyx9TAzOizqLdZlnPRwLb3rWBLsv7XbCTeY
+tp4jVU8Q35hnvGFy+GsSROJv04mJW+whyz+zxOEMPiVbVA5um3ZbSj5oou87M9Li
+JtrUOqNfyyqddLC8L5LgwwlYKqP+W6Q4LMf/Whoj3FFCuQINBFjxRtoBEACk8wfJ
+qP03Hz6PX8br3jEUllSngdD/28K2C4RVOOr71u4FJRcEMR98SbPnCNIUt4KdedO1
+DJpYac1XvIaVBbLxEcBjRMWNhBgZbxoQzPjFTWHQ/UwHZPiiwQkL55fN1ejBEacD
+V8B1JwqjcBbii6zItLUV/gxGH7Jce/f7KBM7vWlaP+xHpmd+iPK1swK5wNQzDL83
+b7NPyj58fqlmh54Fr+jcpuUjynaYfjtJsgwc4CScdai7FclctLMg8Y8DW7/bkqf1
+BQy9Dik82IWSN4wgVM1eWSGx+PzPlshGH/C8B53U353NcRhjFp3zX31wQhsJrA7J
+p+10S3HbXGrr3aVGMMq3dqSBGp38iKJUmJ3zyVvby5Mk4+8FFmMk3gVuQE52pW4E
+OlSVQNQC8yzYsgaG/4N0M8DRpbfPhT5wiD/Qcb7MUXTE96dzs/KcyPJju/aq4cJ6
+DgpbJmM6OZwnx5HYwa58RgOwAVBbsxYOa6oS+Fj02eaiUETwfPHtqF9juCcM5D0m
+cLZRT1I4zK60qPb6ZDzuFguXg8hm/djjh2YlDFCNKqCZHktCISTWX5u1cyF5j+UL
+3fsKcAAcyiHZV9UH8tr6v0i0P19Uje2ZHk9utJggYSSM0uyqGhmiyd8su2FqitBl
+tvTo00Kc8sv4AcDmCng8SVO0og1wiJZdiHJI7QARAQABiQIfBBgBAgAJBQJY8Uba
+AhsMAAoJENvbOXRw0SFydu4QALeYG2PPMEOQtMV6jOVT51U0Yo0yl94RJoQCOCCT
+/JkUyIDczHmtcVABrpitX3tFl4vacJM3uKWKbzbM7qO2+Hd0u6rxO+o8WUGRMZp5
+IgcbagDOHs0vorVN2Yo0Tl8RoqW91MCvlRFA+8snmKjWfTYj8jxbhIUEtVrIU+5L
+DEgDP+T6PvpaVeXfLYItieCsZgib3qPz5mM49jDH84XG5F19kx0QtVGJs7n8FrcA
+GcQl/iMrm7dRrRuh9394ongIum0uld287Zlg9q12iJiir3w04Npy43G12RXq9TD9
+aRfbMhQ+HB5Dnvf42mfCfGvalSE0rg9mh1KeaiQUXxCzCf1D6a3H50rh1IDn363W
+n41/Hr0j4ntVjvEJxs9nUb8qod2HMOPLOFqwxck7ueGaeDN/GZ5zjPdIppYwE3Lb
+CM1ZFLkV+QhFef4zXwml1/AnGGFULgGYorwGCchizhU1wbZVcoUF74MtprnAsuPd
+Fxlw+4yCcFEeYVpMDQg/ZfZ28T1GruGHqLJqIVpOum48Ec+fjnHAZAH9dOs/qhBu
+CLE+5xUoVyP2lwt0MaHs5SLmxRKhcV6IWRJKTlZ9YdDXbVv5LisL/qDOTjRj7vOg
+CPRhklyA0JjFeyTDpSeAWXFZnab0nYBPWkxtdxxRruEeQPAYP1vl0O6ABMxRAI6o
+6zIImQINBFklYukBEAC9tCSjnoNs3ucOA9RPfKcuK87JD9jdet2UUsw4DHd/Hwmr
+t3T7WKoH1GwRp+ue5+vzXqdFRZ4gG+7tgvUsOtNb5rh22bTBsUIeGsvm/omJntXC
+FQhYcfjtk04p3qtgJ5PGjZahCRYg4aQ2tGp2Mb8auFuFPsHtOHLWQCL7vQShsN9m
+EkEzAQZnn9QYL+IvTQVSKsRy8XcHYZVk2uT2xQY2LvkAucWF0TrjU2LJ2IFdepc0
++jz1xasBR0afT9YccHpQH5w8yOW+9o/n7BiMHfgT0sBMdKCfKVoQrQe0CsFnqc/+
+V4NsnHkyUrbfKiIFm+NOupIMpL6/A+Iky5YpjIIUHPuVL6VAY6wm463WI8FPk+Nt
+Gekm9jqISxirkYWsIEoZtCrycC8N0iUbGq8eLYdC9ewU5dagCdLGwnDvYjOvzH15
+6LTiE/Svrq2q0kBDAa7CTGRlT+2sgD89ol73QtAVUJst99lVHMmIL1cV4HUpvOlT
+JHRdsN6VhlPrw6ue+2vmYsF86bYni6vMH6KJnmiWa1wijYO0wiSphtTXAa0HE/HT
+V+hSb9bCRbyipwdqkEeaj8sKcx9+XyNxVOlUfo8pQZnLRTd61Fvj+sSTSEbo95a5
+gi0WDnyNtiafKEvLxal7VyatbAcCEcLDYAVHffNLg4fm4H35HN0YQpUt+SuVwQAR
+AQABtBpSZW1pIENvbGxldCA8cmVtaUBwaHAubmV0PokCPgQTAQIAKAUCWSVi6QIb
+AwUJDShogAYLCQgHAwIGFQgCCQoLBBYCAwECHgECF4AACgkQ3J/40+5a8n9OJQ/9
+HtuZ4BMPMDFGVPUZ9DP0d74DF/QcT0V101TrdIZ92R4up56Dv40djjQZc2W9BmpP
+VFr/v6qdjapdPH5vvmatnQDz/nIOfo1iwPWGzvmKnbDBQ4qJX7Jd6PdD/YorcD+0
+tOQNKLIGE9ZFQnS80iz9iaTGzvQKEQKEMugQSf3kG3NBEGqKQBsTTrBQOUJ3g8w6
+id2/qJtrDRbL9TuCU77Dpx9HUAnjj/Ixlvd4RQDa/BCYzGYJlCyTsaVW3qc7DIh/
+pRadqtswghSETtl6SSo9yHtoYOGTxXO6UikLEE8miOlaOPQrC9hCD+LSGc5QhNLB
+EKes0l79w9kw9qZ9Xfh4pw/hf1N4O3kPHyUg0q9QaX1XKtigjTUcpdf2Kq8LtlB6
+0p40eZE2dV3T11X+rcn33pFSXMeTJeaNKHXoeGcva/gyZVtvi8iJhqtw9QOUkxRD
+vGB+FEUId3Z1yAu7ZAz6qiUCgxK/VJ6/kBb+YYR8K4FHLmNOd5KoiTerKQu423uu
+MYlYfBHpVZ9YuEJQnTEpizFEeOgaixx5RDLnoPsd/x59VS9eaaKotTPbW/rEp7Sv
+bKj0dR5WMfGyd/OJrcWVZy8/Kh5Mc/4KOHD+JGAp0bE113TkEEoTZ8gNHFdLdv52
+V9eXUkeT5IxyThZBkUy6palDM8A5vaf6Eet8xOLy9XG5Ag0EWSVi6QEQAKujAODv
+sdbt5n1dO29Nj5htbmt6M2A7eOjt7yUj4UMtBaGOA08O0DVA8MJkvepMq9AJBXHZ
+Mi9Dycw3rxBHQDqHJJMwghu3RoQw1y5Wym7LiLhoWSU/wK0BrKOULBwh+kS6udKA
+4oWrV/gr0JGmfdL8dZjBF10kHCfCcjcjWtmIp2GRaoOKTlHCviNmRxzyqba7zE0Z
+c2maQ/4w98BI83GqD1bT8gF/5qwSI1hecBwt9oS7EbZ1ZiE8SSE8Gr6OR3p5UNHb
+zqxUWy8W4r3qulCLc6g1LPXP1V59cMxX9jQJ7lSdv0k8C6Lb6t9Wm8G63hNYgRCA
+mNW5EnqieTrx45K9vqoqfQK6Apfy0UoOquiuK7QClT3wBd7kmyKsCfV0bwRA/fV/
+sC1Rniu8PV7CRk9ryudUXycKq33pSkrOfZjFIQhCqdJkVc2MPbAuj2pOMutKwGKR
+q/Mt3O8nEfGqWaJPa36C6dhlPqjEGTIEk5P493DzM7fj5VVIWyUrI8Vm9FslSvzI
+LcONHMtKtRs2cRYA085NKDXGN7i5Am7L7ZONfqVs3V493ICwmALzeSULNLiMtX+E
+SQfdWCS3Hosnjbc6INDg9BRhFt5MEWJ/qchM3g4NQuukqtOYsiEUw8bCzepwJxXp
+lvNYu0yQDxvP+0RzjMozruVz3VoHeyf6rSWvABEBAAGJAiUEGAECAA8FAlklYukC
+GwwFCQ0oaIAACgkQ3J/40+5a8n/8gg//a75gXQ4csiDUTsUndb94EXqraffmMcT5
+oCzfcP+Mecbuv3G8oQZeLRchsW2i4QecnvPwrXAJcF8kJuN/KZLyeh21PWBy55wo
+/2nbwOvQockXpK5yVeuc3DmdTaxDnW9u3QpSwbvkEyoCpeHH6rZ1wjqn8Qi1k7nj
+C4qgXpRrLQdRsS5ULXpf3IM+vaxbQ5avVnNRu5zMA6M/0reL0RSjgMfnk+3AwLCt
+uMiy1aStCe8V7Y60/oauk+IZA1VJlSz2n3675YD7TkTZKkYIYZHTBw3ZPVJo08jd
+RUXtGJjpOyyWVjP7GMKvZuQVWqcFyc8QHHaIPDLkdi7B9YFPWqfwJPBfUXcdzjAX
+I7N4XsSEeMm8S8SC4FKCidioP/A+bamKcONHUuZ+AztvLh24ZTkqzA/sRRYpbMGU
+QzpcDbastuXG66s3e9pJa0R14011A4bofy6Ureh9q6TQNOkNegUUdjbGSd1bfNId
+QXRH0+LBV1oaY//v+aBjswy4hJ5oXmQj5jQKFitRCP9jzueyDdMJZ0j0Hhh4ItCz
+FV5zIKtWiy7pRp1DXq9LjoyWeeLfKu+HrEGjMwyTGJiMjcL7oCHeiV/a+fY92wpU
+rY1/mRVLqKqDIA6/iEL2DVf21U7rXY26xxvf4QFImZaYLwKQYLe8TOOjDA/I9bR1
+JJmh54yw10CZAg0EYIdBNgEQALohT1pcSlW4sk0DNfAvur1W3U+TEkevuQnKdSD/
+chKs50nLYRuiVrsZsR28tnr2j41uwvm+Y6ZPYAPSkQZ8yAT0pYnXbaIR83iGtZOH
+P6wdxV39Mpf0T3yD4dOmgka1hynqNjEbRhE/t2fXNKf0JrBUmkyyhLYbQlkH+raU
+gQug9EsyOJxEMER9qZM+Le/JiK5/i+8JxhjPcAQxiKu3l/usGtU6zcVUGjMSqs3Z
+89Fa8WBOeGxDwwSKrn8MyyfEWrbCCF4Ao8gBeFmIkWgoeyumIAA0SYZkFjaltbTm
+sFjVmYmmLXIKtKTnzZx0+jYJr42s0Q8n2ymgSKcC0Cmn+iuKslhuMpWJaqaHuZhj
+K/80BArAYETW6ne1IZWPSsobd/2x4u9iwCkd/SWERA3/KnML6lgOVJfNbFxDxuJ+
+LFvpe6VoSAHlc4fC6+lMroeg011kzjgWX4H94Bdp5svpWHQ/UQ3/YMGvgUY1vy+V
+d28bGzuslsnz5o2Zh40h2Dmpti5s2w7Z9TvLD2RMM1N6PrdCXVrQx3bB9nN7x1nL
+osn+0v/8gfck93SO9PXLQtUgqhhWsh+/TrOiVWmWqLvbN95zWSnDRVHp1P8vKEGX
+I26aokxEd1mVfilQKnHv2k6ieMc1M26GM48uXNqLSihYG2WgNl80agVFU00m/+Ea
+9Uz7ABEBAAG0G0JlbiBSYW1zZXkgPHJhbXNleUBwaHAubmV0PokCVAQTAQgAPgIb
+AwULCQgHAgYVCgkICwIEFgIDAQIeAQIXgBYhBDm2QTQ9jBBLKxRtw/nDncC5aYVE
+BQJihlmDBQkInT24AAoJEPnDncC5aYVE9GUP/R/QmyOxYIXhjOJGkF7wsKznajRW
+u00xRbbTofNroJcjcActcdd4KZjBTQukQLe+ywDq9q0yGs8qdvNVdoREnwkK7sfI
+c/umJhTmWdboljw07x+NPzn71xLsi8xDT113KlSegPSL6tfkSDqnv4KrHQJb4HYJ
+ex9whcnzW/KR015biH6DifHQfTRw4XqhecneiNCfdaNMTRb1DP4USrJAFIlIK8zw
+guJP0iYnKSeInWBAHgroUcrLucUAdBfoQdARHQonlklQ2y1qxh1m4qitH0MeUK6z
+XoTYAEgVMYJIN26gFaMoBRd19/1WH8p2h2IcecsaCFBPWpI1jbvz9h876cLC6N9h
+hZPZFfsZ4BBe4Iw53eEhlgBdm5aa6SRobthKI8q89DoKuw5ok/tEK/WY9QFzkTDh
+iQHdyfubopjVVpakaNYmJMF6SNlu7BfLv5yc/pHr7z5BA64WKUd4AJKWEtN7nu2L
+Al4jthv23UnJ8x1y0e/ZM1m5r9/leRQz4uFqXEBa8Y0/Ipp8OBnQWNajmOHqO44E
+4/BOXr09FYm12iC5L2V8TxL6HgU+nLRetgssFIWRr9NXhelITdfKOii6qrbLP6uQ
+rjFXnLnLqgKB72gSXCYdHLEnwtskkqKXtB4jzYm2OPh0TstfNRdjaS3wepurzSp4
+UmP42igZx4cGzNp8uQINBGCHQTYBEADY0/Oat2b8EDcNSKPJNdyrQlDQ+N2fyTbq
+1XPThTe5f3nRT1jepYqfsi/i4/6rza2AMvyxPO7AQSsHYlBYHxccqCH2Q90jCTu7
+iUJyU65Kx3aZC3U7VE4+jl81W5/b5qqjvZNRxLgDZDnvO7hBFh7b+jj7x1ABsHdw
+q+zXjmg2mJCBsD4ba5jQaPr+nirvhr/Y744mGpaVWRlg7d/LhL73GRy546DgCVej
+gd56vMsi2HBy2BKtjxIr2nd2yJn12+A5yenuagOVpye8F5Dy7ULFJ6iYe1/NpoVn
+yipv3m0hE4C0x1vIw8tiXR85cb0aGuYgjOgEyLCE9INmMQ0ZZd1JqZwK2IyWiy0n
+DNVJXqkzc3YjYZcrYiBb8dV7kvAf0E+UniIYTYtBU2rOWBM3aTT47Jh6ftss/tQ4
+e0HLeHZpvpWwJtkPHb1jGD/08icZH4XyVxIlEMhziuAZdBDTr7v7xSmqPrw49afW
+iXfROV01j94tFdvF48wDOIb3qIBBbsNddqMvHPTShq2wMHlnylVFM/0CJn/yxezB
+cuQfRVWeHg7lbzSt0HD29fBz7MlxoOSesmJCN+swoSy4nZ1nhWNHEaRh32Vn2H2q
+4ya0rZFEHk2fS6WWBMTh7cjinmklQVxAhB99d+EYCZ4SHu74Ats4LvAsdJwe5I9b
+lOIrYecwNwARAQABiQI8BBgBCAAmAhsMFiEEObZBND2MEEsrFG3D+cOdwLlphUQF
+AmKGWbwFCQidq28ACgkQ+cOdwLlphURJshAAkIdJ2xM7MV8PGs+eN2O0/BYpiCfO
+Oc42fwAiqYQzr9WT3FtB6oSh6ybaN+RRgIke1WC9HxIvjxXWatJnbs1U3iyjBmyH
+vMBxOCxsIm7hyyLI/QB7wB7sdRb4ZeObUeyXOoAKWilj3r2vOTuC+K9+W+uW5Hj2
+H2tnUKOva9F8RjokSkMiCpCVoGT1YWsWwKALcnQBio/GCyzARTCQ2uXHpHyAOdNr
+ohJBJWD2qT30Fk/jnOGCbw0FVb+eX5854zosi8xPWFUHrUmzQzFwoeq1ysg95Fp5
+LwCtorI0ilZlCngFL1ij0OA7IkpZWZfCRYrne26JeMmTXSA9CEy8U8Yhh8Z36JPo
+iff9sE08Dd3vmZAxhijjp0p7H0YpCu5qCG6ACIUKgoqwHV7bjkQ6+Znqs02Qi8wG
++gMVOE6gmiw/SpIHE8EJMrtp3AOqC8hWdnqtJ8Mv1aTlfkLn7fXmeWy0Q+uzJXLA
+qnB3hZINXT5lI1jxjjydU7YlQiPHKGnJ/biBq+EwMcVQ3UirtjK2RvnFIdqcoChl
+ufsPyEo99VrB6yL+tEbxbSgNOwTNWEuVZ03LVPH+Wr1sjp/Ao/TexcLJuPgvjVkH
+xqMNnJL2kUnMvYnexp1vmocSL/bqr0Ghg5kqMl+rq/hwl/6JliC5ruBIp41Fg7D0
+Hwt0DeJiahaJT/6ZAg0EYGWinQEQAMQJ6RQqrrZgYJ6SIfzJPsC3zFd00C/UxLQo
+aaiAQHEPnEQgjnAPqkvspSE7MpmyAohbUzXVnDO+ycxznIkLz0yYjs/m1qVB6hTM
+w/PlD10ELoA6m3om/2E1vQQI78U3w3evBgVlGLzBIXWKLX7ZsBSm4xoPmD9mmisM
+sM0xhqQzVuGm0I81gvKkIlWHPB+TqUWBpvDwmIdCRuGis7810OBKaMmTQ/rdhg1T
+YZInZPfjeuW+oZ8Lqs4w3cfmyuDbbKQN8b1Qd2d9lJwkudI6KhIyH7uU0F1GeHIg
+i9hZJZZcnlDiqtcHZ5YYEUHEzD6rPAL0LoUFpS6dP4DFch8R4oBpW8XTjg2BzfwZ
+RCv1IuIgd6HhEUcuWj5QGMi6huCF/2WVDEoGs/K32Kyh+1Jg4OOOpuLP0/YqvsRO
+AMbdY80xppR2yMMtpTJPhs5aCykZ8ffHKEsh4VGvi+xFIwuOGElqXoALFPas8N+D
+5jXnJQR1/2zekei9YiM6jDXps0SIChBL6vG05cua6X5K+71YHHlDoUubb+tjiIHy
+FYtzEe1PPMiLl6XtAdqllLqUQvy+McHgdqNOIU+FxbWDWjDtZ5hlDdZ+sIlz3esG
+wl/zQQMdRdTsjcNuElOdl2pMmLlA8CvhJM+IkHVsIHponLtBqN0Ibrw+Sh1kX0sE
+cjkfrDSJABEBAAG0KFBhdHJpY2sgQWxsYWVydCA8cGF0cmlja2FsbGFlcnRAcGhw
+Lm5ldD6JAmUEEwEIADgWIQTx9pIjj7wWZuWlzNQZn53+9v+6/QUCYGWinQIbAwUL
+CQgHAgYVCgkICwIEFgIDAQIeAQIXgAAhCRAZn53+9v+6/RYhBPH2kiOPvBZm5aXM
+1Bmfnf72/7r9wugQAJuMXAsnTk2m4Esda1R66IaOx3hms49hTtoJ3XTkOP0z/Y89
+66mJ0Zp/tjhof74jRwN+Eo9R0Vc4WpuXdL6ZaOm6alc4hYsT+13bO1hNEXFP70OF
+3sithHac8wShdeutBdXGW/DcR8m7CXOsNWdQAlbYnCb3gt2zTp4DTrxmYVP4YptB
+sQBQtaTqHlO0K0UGoHEkqk5PbbOeuUvvBAyeSEvislOxeSCQakBXFVROKojd90Qb
+i6XFlNvZWzPgBHsrVRKuopgiNqfNAKz/n5ruhZcI4SKdni7zmv9CLiBO8P/qqzta
+9Wv52z669MgPRMfODJr7Q9pG6AZCAm99oKCUStX/adKGBnfu0mx/v0bIyK7YSWp/
+8l4ioiulBs04xeZ1S9T6nMEGry8k2qlErcGI59DAR08aOAbKs/42W70Eoxepx8pw
+S8KSyCfTCuF78bDdxXv3uutYb+A1AiHspu+esjJscgcXNRPYruQFBDUQ0aUzVrns
+bePX6i1ZXYkPUTSRs6Hu9K8sJQ+mr5dTEae28szDxfN9mPqlNGbsKc21CsXwOJhU
+IgU6a32gtZ7xq4g/A9DYHY1jSPhKi2q5JMbckQ2qzrl17zXhVISEcPTebQ0Qcu3Y
+S24+k/mAqIGCrlSnFtLOf6MPTtL8JpeW9fiuys2spb/pHhqmlCevbda8CUtLuQIN
+BGBlop0BEADLZJnHlI7dfEQ+thWKLLdLpd0MZBOugCqWjYdUfL89OY60W2C3Lrzg
+fewjiNLxBzwvqmgEYyQURtlV7o04LJVtyO1B2b7ZQYQoC6gu+KV5z+8w1EOs6G+M
+INda/QydjQk8ymChggGdHtWtGzTZ5K1js+e8wJgkF00n9YCxkkz+jJCK1L7w73vt
+YvS0qYea1UVxmGG+cBsfQ9GbweRl6TvSjlmLtl7m6h1cpGDQrnyyp/yrfONLby1t
+Q32lMhfH09XAPHpJWCfhv9dovgHHtb4Kroaj82UAZz2Je2Rn7SJiACLvezWEFTZM
+WClntlHqHIVtmasntzhzzgK6E1IH67DgWR3m82noLpmbYlHAOLmNBsOYRGdfOQG2
+8L25P3HrWV9APikwdPHg4/0tKLgNzhB6yO6dj5Hs/YRsJD0Jn9X+cCNasP5VTLOF
+sZD4J1i8jT8brlf/f367qOte3aFAPQq7OFYPvpFY/c0J0D6eb3FHCxfejVQL4YV4
+bg3HOUGynUeBGwHgyQJw/LY0LdCejokylQZr7Dj8H4l3b6x85UhJSKRoIin+c8aX
+iI7/2CJbFDAIv3sovyMsAhS+GyntxIpYmoAl0jrqRCr6CWCaFl1Tjh3xrJ+pRCSk
+TVq9OASHUqAb532B3Tt+DJzwrlf4qtQDFz7o7lPGXMnxYLW/KEa7QQARAQABiQJN
+BBgBCAAgFiEE8faSI4+8FmblpczUGZ+d/vb/uv0FAmBlop0CGwwAIQkQGZ+d/vb/
+uv0WIQTx9pIjj7wWZuWlzNQZn53+9v+6/ccvD/0RXb7doLc6YilekZcEqtvvCrgo
+/ZDbda1tjRbpQGyLy9J9whIdD7G7lSoGILSd8U18gCL7PZq96tGq75CDy89u0vI+
+IQ1WemRlfrBZb5qkSOGO2Yr/VYVxxjZbtYiM44aJyrehhA3MCvwzyP27iclH7N0X
+sXgJOF1p3AVEfuXHhAVSbR3tkLPe7osXKyDUgUCuvJIPLSglCqPHsm95Xch8PpUX
+JRemPpFnsPIlqDKu/vfIrDMZtnEFBog/afjA6sqmC8X2BTKF6Tiv8KKy0divkwsm
+dAq+We0vkkIMq1PMc2UkDLv8DujpF4TXMvBXO3AWoKPDNt6L7zMUdymto5TIIA9W
+sIbn+aGTfbfSflJlhlzJ53nyzl/x9ukFabwp7jjF6Vyh7KYMQE6ob16JWTo+AZY3
+mvKoUXw6jwGonaBjNkuR9Em/IyjXDx0tiKKaNPdVh8Tg8pcGNt3ssroEKWqLrUjW
+lrso/+QPeH2Gl5+NjQYSIcQOcYo/MGuiikA9GJu088+IgJ8bmTiFgMuq/ZLAuQ6g
+kpZBQXAN2hVIkV6H5IJwp8lbyf8GG0qBCk9Va03+PZjhZLu/fb9EzVmhyX95cENY
+NUE7QXQplsJZqchsBbjgQE38DWiZKT7uyRhZUCUD3h9ZIsYo63NrQNoA+xkz9tub
++4cXQV6iJi/GqeBTcpkCDQRc/6jxARAA6399os7LWW0t8VwhEmjSj+1L14Ryh81Q
+PEM15P1DrUXagxeLu7FGmecm7r3/0CA3m6szhpIv9qZ8ifk1KZPYkKQUeFxJvfrt
+RfcfDew1Ynp4ansl4+jARv06GdOwkG7EiyVktSPyf0hGqLayeQhmqDl2cxPJuPO8
+JOSDISgk33rU94/QBWA2RRLSJtB3MZupY9Z6RvYMswyRbcYKWQlqZ09iZ4IDqeeO
+pl/YuIWECl/99bpEEoqFD9tNlpaY+mDy2ihT6RWe+4uefbSWfFEjxpGd+x1ccCKK
+qViYggEl0bw+S60RaS+5xEOG9wnuRrVRnVe9EbTYw2+xMdDsBaFl0qvLPY/66Bfe
+D+iZpA/dN2BrsOLLWk7CJ9yCgoHxL185GMLbQNy687bCeVUGDIBF56OKzGBA7bJi
+W6Z+XVkVX16li908TBnLy6DItYIqYFmSgGCAYviAmsq1v/dVOddpdAzDW4RfH5Fr
+BNopYM92FswF8NtDN+VstwWAUQA2IDX3fYwPimIV+xG8ebgVALy7nWkAdsFGPoZk
+UJa+x5Ln8WUOF37kMbNthd/uBelyeDZ2MU6/Eb+z54GOWijnw2l7bnlTysatJ88l
+0dezmN0OQ8Yn3SaDjMKNVs+kifqVlAhSip3/eIA4/3P3Bp/RWtakzN9nV/fUVWgc
+6hu6FzM6ozcAEQEAAbQlRGVyaWNrIFJldGhhbnMgPGdwZ0BkZXJpY2tyZXRoYW5z
+Lm5sPokCVAQTAQoAPhYhBFpSiAeB91Vgi/gV/JEN60b1PqMSBQJc/6l5AhsDBQkS
+zAMABQsJCAcCBhUKCQgLAgQWAgMBAh4BAheAAAoJEJEN60b1PqMSNQUP/2me0vxA
+BXrqn9uUr/09Cz+HWio7W3b901alD1amIKS4W8cKs1vNe5qHEQKH5Nd/LlYKuyKu
+agKWKrfLG7dguNAEVCya3zUqFiT71yh7BD8SvvUUTqgpTet4fHW8sr+rIYgvrXUV
+Prb4U5DvzVfMOBBO1QBFM1ZS6J7A8EeVmmyysYc36CPoYb/CB6yMe7G1pnE9tqoo
+A4hiHwfrb3t9TeSzKIbKTcuHtGgaxIosp/e3/eFZUi0zPVAQKLBA1rnUHejVb9cA
+RZQSIFpLBbUaGGBJSjNualoQOWPnHCuTy9yF6++B4ToLWLB5r9nQu70cdod21tLt
+p2BMpryKikpN6OIq5Kpj62uAGDu5b/lhhbQV5tp5gxabhIyfoCnLC6JMHwVsppIG
+1XsDtcM4IaFl3bl5Ol0+G0vuNru21e9ydGMHR153hPl5fszWCkWQhHXw728+vIZX
+4KI3uLbpJLDHWY8QGrwGpqPMcqObcepkskejpKZX2JtycoiOlntuMWfLLmL7S+Om
+YnFkOy8G0TctD45wLlfWtJDzRr2p7TDYcQ3oHf0OQMHAQ4qUJXLYyxlPja4PWiMV
+x5I9hLtXfJ4krKK/FJQDccFegBR8vhQVoQ0WFot/Vzo1qu488f0w0tAJDf16+w8W
+FhYnIbwfndGMgfu/nkAZ/NAkD/bAul9NGKBctCVEZXJpY2sgUmV0aGFucyAoUEhQ
+KSA8ZGVyaWNrQHBocC5uZXQ+iQJUBBMBCgA+FiEEWlKIB4H3VWCL+BX8kQ3rRvU+
+oxIFAlz/qWkCGwMFCRLMAwAFCwkIBwIGFQoJCAsCBBYCAwECHgECF4AACgkQkQ3r
+RvU+oxJxzhAAx8TGL+IaTYEzEICUk2wBTISoSMuoF5eZU4x3ZviA6yWG1OLn98uL
+eCGjGCMFp1/OFGZfCe/QAVj7/eBZzPnvVj7JkUrPt4EpU0XOpVan9cVh9Yzds62H
+Q19WRJOnMYO7xzZcempmUsZ5oAGivRsJ42UhvHi409T/ZpRdyOtiWXmdBXIRK9G3
+OuLBhchvFIhAbjfYbFD+gVzdGThU6xHXAfnLoFuyzYIpXzgrDYdmfkskLmTd4meK
+oFVwcBnPWXxUJz1HNxPCI/dY8DUmWjqnb4qBU+JnLq16UmvEG2TdxpKivcoJH5la
+IVnAEa2A3answ7WU5yF7n5b9PH9xFsPJpcUc7+rc2F3D6eY8WY+tSSzyKxuRYF7h
+FeRifwSSjOMDp50kgUR2f/5gGRD8rDSKTtGq9pVDXtIPt2xEnY/SH6O8Mmusmk8/
+bS61t6HPjEZBGOO9LrYbVBcHCZAHRzWuFTIadyh+q330fXlCYHaHAZiN55TEDocj
+1XxlhiLcyRGwDtMnc2IOjJUjyxAXwFwVqVOGCFtop33tj4TCKmMD+NSeLWmCmDLj
+81t4r9+O2A2A8AhEMBCC7m9N6DlDdGMeOyzdDTUTp9cdbnLRc2qJNk8Q3C4/FI82
+SoJtOE0buvA9Jfz5GEU+V/ZEuMj+YYRCz6t3iFISCjxWlUTIH5Gw5A20KERlcmlj
+ayBSZXRoYW5zIDxkZXJpY2tAZGVyaWNrcmV0aGFucy5ubD6JAlQEEwEKAD4WIQRa
+UogHgfdVYIv4FfyRDetG9T6jEgUCXP+o8QIbAwUJEswDAAULCQgHAgYVCgkICwIE
+FgIDAQIeAQIXgAAKCRCRDetG9T6jEo2yD/9PNspNKjiGq0u7CBxY4XrFXYNzGVUJ
+UQxnCZk5o+K1zpU5VCV8XjXBrehwSe/17hAakl+5j+qFt/prORPHdXPyKyI+SM/O
+muc+1AjOU3OPApwrpX0AsYMdDi5BtpXiJ8RGBNEsKJN+hCikpNkUXVlbluvcytCX
+/je4TbnJdRFFSJCdP1YXAzrVbXCVFWgTU5g5SwPEpDxs9Qzvgg35PG/U5QiFSTCN
+CokT1Hdf+S2a+h5nxSnqm2Vn80NyNBy9y4kBBCkU18NzR96cWxiccshR8qS+7Tg1
+EIBFFnheZkR2MQukfxCHliX40pGipyHE5Kf8huYgNRiHsfdYIfzYQx8lfvwRNq38
+QrMihIfcBZfl6z096J6Aj6XiA5VqcKDdD0gVw77KCkRyzBtGt6kSqStF9JYE9RjB
+b375qPsvCVhW/alpScnRtJzVytDT9xeqe5F0V6/GhNvnlgBo3I2p+33gDb5TQOFw
+oidV46lXlAYo0sAbXJPw9ZZrHE661HQ9T5CLtJ+cadITX3638Sc6XcsdbD+upU2V
+1piQ9gUvgCNdYGjcYMXTfe4l7x+6pthE0lb7u+q/nyzTozez0xoCWygMJlETQXKn
+s6EnhMi3phAuUnhso3fWAvwtOgHW9QaL+rx5npad3wGyRo9xqTmrE/El8FgALXY2
+XfggH/zQhIwNIbQxRGVyaWNrIFJldGhhbnMgKEdpdEh1YikgPGdpdGh1YkBkZXJp
+Y2tyZXRoYW5zLm5sPokCVAQTAQoAPhYhBFpSiAeB91Vgi/gV/JEN60b1PqMSBQJc
+/6lWAhsDBQkSzAMABQsJCAcCBhUKCQgLAgQWAgMBAh4BAheAAAoJEJEN60b1PqMS
+jWUQALGWNAhYnuTTAIoKtwPsDab6kJV3TcBaiD5ezXXYX1WFEKMuLenYkCIzRuWO
+FkZR8Rr8iJj7viCPWV5bniicsKNq4Af8YIXq8Qnam30gSkHo+jGpzZYnDdFDajYa
+x7wVKMxUmPsC6RhfEk0JAFXhoqrFOrsuUw+bBC4LOvFzdufmS8klJq4krpYf1kp5
+CW6/DL38YRrmhq5djyiuA8iJPtylxcR+tXSmyGtgltCiHS4EdOOyG0hOsfkHPqIK
+d5Tb7J+pMGimCp/9YV1NINbFpWIG3pF6sopMLU5YHh0Wq7SgfDVmkuPxUaEChTVz
+S9y6k3DwhW7ZRpcSx9hDRwaHFw/eTuSdNH/7CpXKr0o/+zuvq+gpAHbPH1GfikoN
+B87lSdfUdM95QTveQjS+6IFbQR/5pCEAraZ97EP02A2o45nn2bV/gOvZRqqPuJZQ
+8rJ0ryqfxRWj/cRKrtt+k/n0dKQXJt/0g5s+IVgIHHoe5htzsXyjvxfpSL+vut8Y
+ftr8lyCzGqFUZaX5zpsgwpy4FMf93ttPYiQuG/pVD4dSxc347xL03rB+0F6YIv6S
+DKuA9Yy9bj2xRuJb5WmAlb67qwE7urGvgAkMXs3deVMWJ1oH5KB1t15mOU3Gund/
+q3WO21GQj7leALl4cV+oDXI+3z1idIMEWQWaoY2pT7PnUw5ruQINBFz/qPEBEACw
+WHa7KtEtx2KKghel9yLwLx44LRnuKWLjGNrHqjIy6RSWBcOKVUnewtlzr8ugAAE3
+qMXtGd3vCLpEtqDJ4RghBrV9YVLArr9ba4clmSgr1iDKZE4xjR71rkwEcrQA9Iqa
+faOQmTzj/MJoErYONat57CfArQs+Sd4SYJyLTZ+6HdSZVyM5tDooookToZaq/FHQ
+1gKtQVuIkM7229JaVo+4xQn8N+nQCsKvbl/9ATxXoxzsf2UxDsOOW+Mi9qAmSDdD
+pGIsWkFmvZnRPPnLXRkQiCcq703Zt/A5ake4JPLV3ZVvvzhvA37Qz8YE8Pud+jTL
+bvZ6eKh/X3XYkUGjtbDUPfY61HTbiLKcDYmEbtD9bPa9gePhNPXVcpVKd+r9UQJA
++Oskt5zbNnOx1JCNIHKJ8s2ll62G4BcS76BnPSzCtGuDnW01xPj8Q5qEHwBcpKvW
+j4sRx6DSxhieeMm3FZ2ScCarz2vNY3smDJSc2lOWYlFgQwwzqAsxqA7Lb5VmYuSR
+KKEWB8XnQ2rcoAaUuCm8qU/zfa/yn97eZa9VKMMX9X7tcMAuYRD0fEmS9zjeX64h
+/+tZdQnUq2Jtthz4qInNs/lSSYhCTC5H9FZ9hFe5X7LiYnTws5o6TXejtXxItaYF
+/4Ltdsq/bT5gI/PNqP++iTQFjLDUUoG5S3U8/631+QARAQABiQI8BBgBCgAmFiEE
+WlKIB4H3VWCL+BX8kQ3rRvU+oxIFAlz/qPECGwwFCRLMAwAACgkQkQ3rRvU+oxIW
+mg/8CHGV74oqKrNf0ruUaHWfm1Lk++/CAp6uSZeMOkJST/4Nl5f2O3aPA7XVk4da
+vvHA3IrS053LM7xUUb0FnarKMlKg//3f6Jtvavege6zfG3qj/s6fS/8EgoZkS3sy
+wGHYzy299sgZKx7eF/pkVj/olgDQ/MpkM5scpDhY1rHjvhcR8sLM8O5DkOfyTaEi
+RuphMRF9G21pu3kIPf4C/4tMN0TmNBzd+9L6n4iQooVsxzAohjlIQl6DjnGM5U7I
+o3ufQqCuGOhJNdMPbuaH/ZtLxhnru1kZiHToPoGRDAW8YdjBnYIljW73RKPgMpkI
+iL56DXSsb87qKBLZ3aBkjZO2NxT3GUPbCAYQ/b5JQ0Oeu2wbfYDZ8lr+rATED/9Z
+6mrmPPgmVg+EmXpX3byBlfLvWuknZQgEFyZEiQUNWsPX1ML+VXUS9VkHYngZ6PDS
+PREP+rN/XwsNaCKg76Dx3Vcxq+0Nj9c6qEPoiC4eQGa7iSc7ylHsYlQ9qLrwSBXm
+OoGSnFkpToyEi33SA2FqZqLIvG1+z7sqiTiWbTdjZ8GShAwZDDnsbNUxue9YiYFN
+UwEkJhcxkApawGhNtWkbDtTrvRRAHZ58CMDMRvpaKfGcpF+RlyRumTlEChpi+vNX
+3Uyor2raD12YolIUGbjVdj3vYRkwdvoQ3cZJpZZLHyT9nDWZAg0EWxcHQgEQAJrY
+yC/KKIzplzkKtuc6jCpUT2LMovFvUHp+OdCMN+K1SgveBhxsHgK10fx9Ki1Uvo2W
+jhUAw1reQk/g06wiusJW0bZ2W5rKQKUPJH2JLEJcVdJAVdq2vGTdsVNkvia8O0XX
+zN0tGb2juyjX1HPXUJ5jRBsiPrppeK6+NEizQmj4WYBF6wfsEalJdQ8g7nSR4p9s
+HdotI+6ug6hxStcjK/wwFLRqpYwZQLDbRJVVMDAXIVLmmg8CP4VarIsF+PEv9ioC
+EaT2yynFVYShmbU2XmUJSlatXaHhS3/C6IkKtOWZdU2Z2Yg0OyAUssikXYDV8bNO
+dlSq+0gz+xwmglKGYwMxs1S+CtSnSwbuwmLvN2VMRWDCN4CLYRezmkNW03U2OXRx
+rME6qlk82VNcLjpJnc1AVWBF/Wi4K+sG32e+uoTa7vZD4p5YmfgMRwe3sa6KCNgb
+ufin5idIttHB/ZOZdyIMvxMqEBkjgCOHArLDFLMeMe364uBt7c2MLCPH6+v584Rd
+rOz+Yl8AvKg3+izX6lwXE2VrC/6fkXlW7Z0+gES8YmNd++si5JOjDGqQhJ6h/r9u
+ZVGLYk1LpgExgHxGhG1WXISIrGBd0kqFdkHYAIgTZ929grdv4tFpz4+rSBxTBlwd
+PCKselkX3b0S5hSqAGsyFL/UT+l7h5vlLvTJe6W5ABEBAAG0IUNocmlzdG9waCBN
+LiBCZWNrZXIgPGNtYkBwaHAubmV0PokCVAQTAQgAPhYhBMuvafFzoP6ktTf0cNZs
+lZMRi8y2BQJbFwdCAhsDBQkHhM4ABQsJCAcDBRUKCQgLBRYCAwEAAh4BAheAAAoJ
+ENZslZMRi8y2o4MP/14vXeLNCNNtnhpbknRUVXrORcKZsDTyTHLx4BJvae9DsB0G
+lzGI4xlkWFXRW9o1/3xG/sHpg1hQ2o5qAKPN8IAJBRm+O/cbyYxX5Jowy1l+vipt
+93ZS9h+L2nEWk+hBT6hnf23u5po5JKPCEWgAqZxCnFivP5/STND9CZ5fXlTMXGYR
+mehI/uGQ1k8qXMLVCG75mMxIbtXVnl0NIoq/mnT8kNWs2y17EKrbhX6tKVdOzsQI
+SZ1CN0+SJeYrfCjvlVnCFQS/wG3OfmfsXIMtXR02sLffhai54jIM/DndaGrsNxay
+GqScMVMnhkU8Tk1M92fwph3JaMlT7mik+fndWkQZtKAuu9j7CNmFhd19UKPbx+Fp
+LIEccYyn0jh0Rngc8Js3ZhIAjaCNpSjJTIuWcNwRdks0hHSuvsK32C+YpakF1G7O
+WWFSSy/p7VGXNR6R/sZgn7oC0qd954BGyaMhxmM7fezhcFYCSNG5D+jG2Ri5KtcF
+Jcuw4tKXDxT1wg0pmk0tLH+ZNPw307Wdzrjqpz5TrYzLTiycxbl+uo4btKe742rl
+uSXVaqx5bVpx6o1i42lGevCjq/n6oBbM78n8gTc4vPrdPjRYONviTplNipLol47h
+rPG2yakoe0PqYKFLm7CzHbL64a3ZCK9K/XWth8OUJbDUGWRHnVZ5tpxQqYR2uQIN
+BFsXB0IBEADDWz0jKxhy7ARP8K38vBwajJGTbwiuyiUNm/ShCWhmu/JgECQoKJa7
+gd/DpzZgjkA/7fTFGrF//AH8CK2kX/9TDnkLsjsT0Wlm66MOtMyz4HYkTjJHHFqQ
+UgyoVhU2xFAp2snVgZLdV7ySoz++t3t9lSu8fUUzqdf07ufX+A4HXzgI6/2A+xzv
+bvkWY/j18XE2ME13xiBXitdZGqVLLD02i/OaaQHYi1PEalfLnWtMBPu5oQd+2VTt
+6bYsEOPjCOYfXXw7UTvGtOXOHE5wt0mZB28yBv8oZjsNpa36FHW90O+8KGBmrz5X
+5c0MuilAnrfGdFaU1cnSFeGyEGdfsG2FzwPL9vfIVX14f92JzcppfwlOjm/vzONj
+OE2/GbAOaCG9ppP37yfGmsSftLu4MpBsqSkKB/QlGncwP9tww+swe17DWMKmtm6C
+0uSb3dbTb/QNdzWEEz5ZYAU4Aq8Y1Sc8QRlqSgRLmBsvffX4vQsg70r0khp3Ari/
+tcBAkWnnkkOg1xPB0/DGEhOzEIChjImtLghIkYXeVWJcfcR4fPrEcs37V8PR0WWK
+s4gNEKy7nBelcB4EfPjEXEYjiAXCzzF5CaoY4uob5RXtvOp20Xv6+thPKFAhuDdP
+XLxOGLYJ5/uhk7lElEhTaQ7PqxRsCcWDtf4OZEhOl1ag2G3TEXx/8QARAQABiQI8
+BBgBCAAmFiEEy69p8XOg/qS1N/Rw1myVkxGLzLYFAlsXB0ICGwwFCQeEzgAACgkQ
+1myVkxGLzLZwBw/+Osh1vCAHiFUakQ2VPXzHe1wYbZPLbN+8as8O/pF/U6DzwO4Q
+KUxjwbMrIFs2t0OucldFgJUjNHxQmKSdeq4x+NNhcZegobY8CIEdsWsXle4jZukq
+DP+83xbH0z6AWZI3GuRvNCVg3KN4RRIFCOmBkdfmiGMXZq0tQgFWYFZ+o3R7FPt0
+eZ1Vm34TiG5zRcyZfWqWZtmow9yPYCcV0Xfb7H85H3f3M5xter9LXxbf0XXdPnlW
+wZw7iuNgMjgtjUbWiidE/KRVCxEUGzARw7kV12EYESA13z1PYFY5n2evaXw0jCkD
+JKtBJ/2HjkL7ruNDkKOtR/1/8D6b/yuKHZQXmLnJ3791yOtNnH064lALDeyZWorb
+lSTyblBZmCsw2LKq0OyXEzPkY6KwPWI0oXOc2OSjcYTEIaXMOYACubQ1AeSol9cQ
+U7zrIsCRoDN6hI6ENSVsukt8BTRuInHxFIwrmsd00RMsEdtRjfnmvvpLB4YeW7aI
+CojEQ4S9Rec5HhbjbS7LcNGVBjgwh5EuA0qQWtjd8cOi3SHlKu9p7vgTaiwuhaH3
+km6Ntuy4xUSuuDA7/WHKxWOaR2JTZQ+QfUUH+JAfM/QUYK7lJAH7v4DaCraEFJND
+O2qA/HKCscuFvMFXKZyf3Il33omfBV7l3UGvEWXFx8MMb8YEapUHwyy5+aOZAy4E
+T2apoBEIAIVKpwaY26eSNBC7df7JedOYV4SS8zgldlM4F1HxoR680aaYUR/K+NoO
+NaL2FzCngT+Vi0L4/tWxWMzU5Jf16rSML+UYvRnJFd6T6Y3LSfkfU1K5Ol/1jXws
+yqFzgb5FT4tw2Jn0rQMm44680s/Fbs4dmC7FvfB0o9c1VraPJF8kAqba5okkxPWZ
+OYVP1rRDxIqv6ZSusmS4bQfajpLOsq3xbCiKe3V6HrvNWwlom1AVyGcRmeVrAhyo
+/bILicsZHcyS5ujDGgQFgJl63XxodVVFu+kbZC2hvwu7nGuwZuZfKZOQdN2m+R9w
+kUANrwzM4v3TM7FfBsZ9shk6WHkSfyMBAJeV+fHZ5AvcFJb/pcA1rnV1taISnV3U
+ECSkYq1m+WTRB/4z1YCL71pcx7fE/mSvG2CdE1R/ZY3pl3LYzEvVFEkIVvK0uGXS
+uicLj0GwZhUayF0QfzGEFuIg4kq5Vn8NOX1sSbs/1zsILuInJUKSFQCGi4frHNlA
+0tH5FT5B5tjNfKlV+X31CTsR0yav9YBkIcu69qfKp6kLkQGxrdWcB9B6ZI2gF4YE
+pZYuI6w+O9Lvb7LXPhFQwB9cefiX+wUy3zO3v/vgCYk/Bmq5XjWniY87XZXj7E/J
+zpGwHzix+yTZBWK9TzDwCS8ZB5iNejPsjBqj3n59a15XNnfopFC9RyQ/ykaMeUNe
+cfEnQcjUj+Q4FlKPBHBR/R13vfLp6s+FsuT6B/410jcf0oYkHMbn+tXJYrBR5D13
+m53iNMlGRAa8A/mmDvq8Rr12iBul7hbln7QF9uIlKdCZBZIeJl12P+3fem1u6njg
+KTplOB2WYVgwsXWFHjs8hlMMoRES4pgZyL++ryydm8Qk/1gLD9O2Idwx2swpxj/4
+unyVA7QYcs8H2CVWGcLR1vqXVemDUIwjz9GjMExyKPfQSABOCAL/LbNuKoAWhL0U
+32dc9t7imFK2oAETJ5n6de523s9RhONWByuqjxsdkKKwGhtYLs6crJTPFXHNR64+
+Qh+Zm7OQtozDYxxB2/DCw29DQPNos/fRzVeyb/sQhglw5anOVUnlCt2YTT8FtDJT
+dGFuaXNsYXYgTWFseXNoZXYgKFBIUCBrZXkpIDxzbWFseXNoZXZAZ21haWwuY29t
+Poh6BBMRCAAiBQJPZqq0AhsDBgsJCAcDAgYVCAIJCgsEFgIDAQIeAQIXgAAKCRAv
+eVa8XaBLXZczAP0e5EiiVLAgrvu7wRjjrXLa7qxtffqfn+6j8sNC7GiLewD/Qy+m
+e/M6G/0i5+++xkSPcTuLeH6IPnrjxgzB9MUKKP60K1N0YW5pc2xhdiBNYWx5c2hl
+diAoUEhQIGtleSkgPHN0YXNAcGhwLm5ldD6IegQTEQgAIgUCT2apoAIbAwYLCQgH
+AwIGFQgCCQoLBBYCAwECHgECF4AACgkQL3lWvF2gS12F2wD/WpBvlFluHo+UhV4c
+IUULd8y/LnrAnUoLSSeGmHJl1wYA/1tAWFYZvHKUWfvGadsnZulr7Rh/NFbBuCZ4
+hKhki1DVtDVTdGFuaXNsYXYgTWFseXNoZXYgKFBIUCBrZXkpIDxzbWFseXNoZXZA
+c3VnYXJjcm0uY29tPoh6BBMRCAAiBQJPZqqdAhsDBgsJCAcDAgYVCAIJCgsEFgID
+AQIeAQIXgAAKCRAveVa8XaBLXWuhAP9L9/cztiAKFozxIC3v2IA+8uJ6mVQGBiC4
+4mMdzXpADQD8CbSaMqY2rdbk/S4D+8H6WIIRwwt1xmI4iw0jjh4ePk+5Ag0ET2ap
+oBAIAN9k8ymNmSQZmPcFj/sCmguribCrNuH4KktfA2fbS0U29Jd9vxF15e9URvtJ
+zH5b2pimJq6faJcmAJUfx+ClmlHznq6VPWrq4Ib74Je5sS+Kn94mRmX3f/ziHTgp
+AnCyA6sCHQ6bc549Gfw+v777Qs1LQQvy5f9gd5M4Y6eeZOphN7JIFUV2i/oviZ6l
+11+N6SJwpCqEvuZmH/G6rb0mKNPS401fy/i8NZAO7l2UBx1364HeBxcwP8+CKcPX
+XOn7rC2tYKb/7IGqm8PBdBfk8ZSfC9tF+XsDLcybCaheJ5xkyDR3BNJzt7SWEHgc
+ZEdl0EwkHisdRUZ3Oq6Mr9y06+sAAwUH/RS1vvpB7qwIyUfFUCZ4T99ujs+LTlu1
+n/HTWvrt0d9oxI/SuIIonszQ5b6MBe2737P8FWdiKxbrtZZ/GXZxLm1kOCIeAkBF
+dZQ47vb6xJwc/wpCZOXXPXqDIpvBjdKbIGTByk4vfmeFRY0vL3ezI+hjqxlROKSv
+Ztli6QcNDfdcE+zh7oxtYp+xr2ppWaeU4XeTlSoKGO618doRrhDtU/jAEimmEcGL
+0wjXqgkjPME9saXa6h52PCJnpB5BmdK45VhnFTZ3eVEDw+u18U3VVKWkSb9VwC+2
+J4dRhYc3TA675yndKWvlclU2NOMmGXbxKWKcwwTniYoAZ/Yt2v91HBeIYQQYEQgA
+CQUCT2apoAIbDAAKCRAveVa8XaBLXboRAP9VV3cWCMsqCUKVFA/N19Tzju2oMrjM
+mNuZG/m8svCgTQD7ButCzuNUZTc2tLQAiXm9SZ7CmnYErNKR6nLbedaZ6PCZAg0E
+Xrb0LgEQAOX87ju0d9lqnpjc/B8j3/jB79MPAkuoE/yMzPcAfyzl7ytYcgjBclqj
+U1YWR3hWdJKI0Qx59+Ss1anIJuOvTo0Saanj0YJSlDCFPUO5C7wuEqh4+EgacAiy
+23LUtunKVJ9MQ7t+TtKeRijI84KK58RcM4ukHHwbCb9ww1mEUjTlcJBJ/n70iNoT
+GKGCZ18IpyFvK8atSf1jt67k9hS2wS7VJNqw3Orm6xJDqGi3fMFtWg9ErxrtNkIM
+YmrO+ofRsilUcpUrEDyv2Q/FNviOVE9BXzVVJ7zxOCwjMNJ4ao6Ezk0NOZU36qv0
+Bg8B3IWN6axWMwUQvfh0SAzZUGxfzuraG86Rj1z21PJwJxQATIRhERfm118EAVxw
+P/xz0Nwrr044Hx0Wi8mX6qi0B5d1rf08VAUoJ/Bhr7Lfbpjbi0z4mvwZh+ydRrow
+Doff+g0IAamzRVmcFVFyOdLM2iM9z10Ds6dPvi6QVvTMZfrE3l1MIpFb+YuOeU5A
+QFbl0so2HaWP1TMb/0pQjhXh9WwSOfwjG1QyEibs4CxSMbJ2TwPYLNo9QQZnBdPM
+PBUfa0Jkahw+NnztHjENsHbsr/ic1Zvi7HuaUTCKzm1oGeiIqIBXtH8WrQsQlAWi
+JdEvu2YkKAyjxUOD9reL4a8NbGve1MeNC1T4onX5OqJ/dCsnnd19ABEBAAG0OEdh
+YnJpZWwgQ2FydXNvIChSZWxlYXNlIE1hbmFnZXIpIDxjYXJ1c29nYWJyaWVsQHBo
+cC5uZXQ+iQJUBBMBCAA+FiEEv93ShkKCT4EY73eQm2elwSIpEY8FAl629C4CGwMF
+CQeEzgAFCwkIBwIGFQoJCAsCBBYCAwECHgECF4AACgkQm2elwSIpEY93YRAAorek
+8NdIxkegDBXSrVVR0wA3FsT7tMT25cVDHpV0NnGVoRYRQW65rjW7zPAKHe/oXk6M
+OuVbCg9Gr9znJa/KlQHsi0Hsv+6+w6rLpXw8aQfikfFgLIVOELY6/MoVcao2vEXv
+Q0gDPo3JKVA+W7lMrY+sLUyJcww9yI1181qBJRlAp5wwyKPiqNExHKlxRklMSR6v
+gJHocL7hSWcGPpSmKMqq5oZkwB73mhEktXAI6yEuAeOKEx7XarBfWeN4BCo9BHgp
+nslR5pjgzWjKbHK5k+XBS0ApKi4dDuzuDcodqhIhqUhrFj04LGznYfnLa7IVuupI
+NVY+HX/OBd9+a7qEH+hF7IOGFwfjv5xOCfbdzDzp3v4G6mluzTmDxByNta/T30hF
+tWmKsqY5FP7ip1eN6//DvhZlQVcpbs8WEeivo8BRvbMBy6tW/hFMhWxEPrA+i9Qq
+CRt0l5f29smtnJyCcZPi3AvtZI8qK+fgFgEinbz+NnOXY62JLJl/+GucSoWnx9rg
+OJb2ZEDcTFuN8JCo4YxPAvACSPib4CF03nnFhAuyP/qnPcDKwFGhLUT++3FIilEA
+CZ/dSGEylGQqTSYDl/gyxCpHslnZt6f2T8ZMd4fuqyrNvWT6sTARjwX3VCCwHNPn
+M7ik9DWsgZM3gIFrtBwkfd9zeL2tgxgC25WWkJS5Ag0EXrb0LgEQAN1a0LLbJ+fK
+NIFqwxsjNM5X5YdyPQMkkM0mMZzLgZMz3yCSUFw/ZbfD6ZqRfpxugek39M2l8BRA
+8eWo0TiFAq2HdD9yXBfqiWc1DFL0ZkVgJtSM8czE4IX1EON7BRwin0BkOChn+PE0
+JWKdvrjyo6bZ995YFyNkA3GlUxSyoAhaivPFfrSoKBUSXSiZBk9KzdrS5k76ZlhE
+73Vej1S5XCz+Ssqj6X683iDqTWlkXaUJ8EAnwv+b81zPmnjfxnAWYxa/Hi+vGWxD
+gDhP4El+XJSLjcEB5JWt0a1UkSKXigz7LkYib1s091mIkTPsNmtsh5c2opGMoWJd
+wbZvyqgM3VqrlCIkLdGiThqvhh85kKkvgg1Bicg0d00vmWlzJ4MFhkbt0pTLY7hp
++e+PF3gWey9inmqbiz52Xag8PQav7opOi1fb95Wvi/BkMZ6v5nmjxzQEe+HaF4Uj
+ZG1fFwVp3Hss2V2DvT2QAzz/JV1Aj0aNFo37VAVebKqkdrxNCRQQg4p630kwEImR
+wJTYY8tVNUlVQPbdVwkYJvdhXjsVXApPoxBhU20S5qevxMiI/2FhEHHgm5PmokSa
+XiDgII7Gm4sUgoAreslvOmydpQeGKSOU5gZ1MQtvfBvdcQQfV1klnCTtYQMV/6lN
+UXEx9LlXzaQ3/Ah0LC0XSV+8B9zz/A0FABEBAAGJAjwEGAEIACYWIQS/3dKGQoJP
+gRjvd5CbZ6XBIikRjwUCXrb0LgIbDAUJB4TOAAAKCRCbZ6XBIikRj1+vD/9KA9Ev
+HdPNyDk8jU/dUvPYKqLcQTKA0cBpDcv9+N0bfVFijBtw8Hpyg+23Q0XxJuwpgL7N
+72HLxCJzrpfIyucc5j99+Wrh1wrbqdynkKJ9hM24lMhj2ZHaP42oN6At4unLFGh8
+0a+YkJFjTxh9jORvtjXpQjzq+j+8isQ5i71yT9WTzesJBhtrLMVQrgOND5E6AS/I
+uUEjOHt3INuG2HFJp0jRtdlBT9ZLB+zoTJIIMARUqZGZTgF+rehVIsTXed7fdWid
+MK9GKN9SU+cBWZ3vcb37lDph8bCmRb/aGlby5hBUy6KwrSXF/V6VsyqWiccXzt99
+Dq0BfuSE+VCKYjHToyw4j9gnlrZdH2NMwyUgicKbc8GLbxGS6tzYrSy2MD+BILQD
++cnpGgAyD2kbcEm6ghGWLTTi11cotcr0uXCLiPZwWG28ychx9HxXvvNUNArvDSmP
+26uZqo/WZFYukaaFLltQocI5PEAkx2K4N+xb0y5Ht/8M+XNO/t/pAR+yHWNUpZUg
+bZ0dujm5hPdVA9U51cyHMCucOl0sN0+oO26re7e0ZTnImjF6HBzgN5LhDmccoT4r
+pOFJqrW77hOMhvIUkg5n4Sd63wbB88BKsPXF6mRUEPcHuvwLr5jAE8QSW6sLhphA
+bh57GXdFtudEaKvQbGW9yalYwuj7Yip5XJGttpkBDQRYSZuuAQgAv/bujXXqsBbi
+U+UzWyla5VZ5h4oYPel0mBsJfFD4omLjtycV2WnbgcNPeeRTnOl9nAKDia0WL9c2
+TtdJ1kt5+Qn41J/ay2dXZ5i/O/oGXDlH3owaNhJiyFTNck7C2b4oMSIYwlHYkA7F
+DYTdIdUDMKaygLoMobUuFCPQ3qbBLfSmqlUOCcNTOjdG/3p5EGLPjx5OU21lKsHb
+7hg1XmSNqaAaNki+YoFH3thADmS2aNAmPrQrIHtYbvn2MXJBBeAvEpbUKol55OWf
+0r6obkVdJbzmAbIcLp/uqoAuVCfKh7H1u6SvkHsH8Z7ALFuoG7iqK5bgokYNoQiM
+Ct3wCdEixwARAQABtB1Kb2UgV2F0a2lucyA8a3Jha2pvZUBwaHAubmV0PokBNwQT
+AQgAIQUCWEmbrgIbAwULCQgHAwUVCgkICwUWAgMBAAIeAQIXgAAKCRD5ugraMcvY
+nuVQCAC188we/HtxXtCfN8zn4+1QR0aCLJY3Z5Tj4qyHImarjqHjjjKUncIBwPLH
+ZRcc7KRA8jeF9WFNsyeXphOMdWzUmPLSPYe135aupBid85WGuUkPcPe2dDJ2rNI+
+8GyRnmoz5m2+mRX1mPN66MB1LiLo6pfkTdAL9jCsRF13snTnWRiJr8wqDZbR1pZq
+B8SPfqHqzzkPtOEcYRZwr8L+R8ojdvTvLJ9PBfdsF0aysy3LnVyXlGYECFZr+bKW
+POEjJXb/5Uq9fLN5T5b0A2nz4281LO0OnSRYohnVvrDltzJ7SWAHvZ/F9rZcuaMD
+LOfDfATU4TCaC4bSJtTDWc6BpzAWuQENBFhJm64BCADheJFbqH2hEgWoVQkeI1pd
+MFm4r90TTlG/+1ZtU13h/JJpC5CDxnYg0q3P8hDYvYvSP3vu381fjWOAdCMz3sFH
+y1K261EeNy0QYbpjQJKQxGl2EJ8/jBmCF4/9qViaFbNLSTGrrKQiSvfok2xTxDRO
+55ZUG9GyNRWdp0oAncN7uO6Ow3N1CodMVqwvRtfASUmWz5/XlGdIqA2WlQp8byX0
+vjG0o/SiXxusYJ4Cv5IUqzD4sgTF7NZklyPqWUjBV00ZflPbyDfapHbD9b4Ip+wo
+MEGtldDBz3UGqezbM26RtHXbsUZL4DO7itmO0Ar4g6vHlWwvH6rAL0XvlAyF2wN7
+ABEBAAGJAR8EGAEIAAkFAlhJm64CGwwACgkQ+boK2jHL2J6CLgf/XBylSYZhntdO
+RtF3mDVavl9Ms0roDHwMFRiTiGOG3ZG8Ujo+u3gHNcUx+sG8eyhx4Q3w1Tf+Sh8S
+UpvriVxOoYutnWPvrMj3aKob/9QDA9GCqcethK5vc6id/5OaQj5sxSxJ4kOPG3WR
+cWlVGQb2eHOHKu2hOZGP1n0jf1jTie/c0qPr09kZ7bhWNuEZKZcKPmoqv4BHcCr7
+js1Q3NOxvonaM31iGAFl0YIhgxIFIJj5DW6WC6DNTDyk05AVTI2LxBEnZIj4xx3A
+boFeZKbLslpuo7W4EdibfOIKvPqr/YFYJE9MaPiX//V+7KPAl6rSPT9ZHkOdYFzN
+5UBV5KexULkBDQRYSZyWAQgAv0OEW3aQMEb2pfUunaCFSrz7tu4Wo+CK6aYM+HND
+SrZxmOjJGDl8DCZndShp1eJFPsyQFwo/uH6NJ1Jz8DJfr5K+l9yrTjjK/QW+U9cJ
+49mInmKQNKBH+CZ4nPKkGSs+kldmmcQfxYEvqKzgtZg79cZkj7h3wmbh9ibRwPuM
+vt16mLdGbrEt9b0rL+tx4lKrdHN9wTK03YA5j9Mp7Q50tUG+3IMITHugFVxxzSQ2
+UjWwlpMLtQEh3600VLdYoxFGaHBgSBJjDfr3clODXeWhf+H4kEaDTqt1i45J2ijP
+rgCetgILg87hJJ98+hItq5YNyjf/S9zM4uw+4HVcIbHsrQARAQABiQEfBBgBCAAJ
+BQJYSZyWAhsgAAoJEPm6Ctoxy9ie4aYH/RA46dFPRYKZltCVSjrIZpHSSKBdJJuG
+ASp+Si41U5jzT9o7N4A+DzJH7lzFEdv7g0CbxKYC/w6myqrfE4LqcRrDJkN5mIJ2
+olcAx9MjUs+q6c2ErL52cWiMio6afet0X0KgLYONjxdw43vL5TE+5aOz2/J2lK/m
+7uz2iLD2S9QZdJRjMpgCkvwFGegdXlCMu0IPv0HJfefn/+J50LsU6QOZKnImwAFq
+TP8W8W6SqMnWyWRtKKcYGovYb8u4Tn9EZXqe3HSErj+WHAHRlmEh6ubeESaZRixZ
+QQ+ITgM5E4vCprY64ixCKe3zBvEAmGIHtzt9iiugUnVpoGI7iDbztCyZAg0EYF3k
+uQEQAM5x6DOFJQ74Oo+lBJNHJUTmYcT10CGl7FS8CbJPdvmsmg6BRekj79XMpra3
+jSCRx2SD+4dlswZNCDjd++2xjV4Pfa694krSsye0Eg2c5p/uMNFr1B0qpdbJAhs5
+Iz/LLIi1zqfaYULitkdo1TVDBkI8YRi3g9OBOY6IWPo0d/JYwhTMhNhr/sSS4VxX
+e2Kp67wabZwaWUWBpDT3/d2EvNuWy2CB3h/UDvPvlqgaYzLrG/AXNzdkDLWvFd0X
+lAKl2z669ZeSuk0mlEZknh5Hw7jYs4MkSmBEaTgsD6O9m6dbSC0k4gqYAZ9fYhKT
+bxqsJHXb13FqEccp59RLxBzbNMrr8j8Gn9kxVz80Leizom6tAkP8p9/hqaE1oFhF
+YP42ft9H6K1ncc8EfbJ/SfMvRyDAa3fsZtBcapG8dzCagAFj2bdZlULUiZ05LpPf
+MytQLgBPIP+q1Szo27HJXbYLWMtG0aq7Zgx0DD6zUbpXpDdjRKuVGrDQ1vhSDSAz
+Apl1UJT7baoaZUnjgPt9KvsDIhmZKsLiLoigX0jSlyllh0giaA4GeZKbA4iKfn+T
+Q6qDeBlZkCfZhXqqlWfdGNXP8aQWSaXfVOd4OL5pklK+bKlu9OORof/MAvAqlxIh
+1VliWaVZ9amsbxRjdZzdcmrrNFiMb1gB2BkvMf7sHvKv9VHzABEBAAG0IVNlcmdl
+eSBQYW50ZWxlZXYgPHNlcmdleUBwaHAubmV0PokCVwQTAQgAQQIbAwULCQgHAgYV
+CgkICwIEFgIDAQIeAQIXgAIZARYhBOYJE+TfIJkH2OMNlmWal8nPKnlaBQJia7JW
+BQkQ7XJcAAoJEGWal8nPKnlahDYQAIJUa105MUxBYXtymcBs0VIbMy/1198Tto5p
+xVqERxEy67k7k42FkyUrB5eNcmOZcmBrhfFmJ9yimegkSKICZ3p5vWh14d+tcBqs
+qKD8eoIde1MUFzQAMSAh7D0SseMoKKmDe4EDG9Hyd0JX/EOYAgN1kYzu6GSVi+2T
+ryODMre3NjIPN6z55AqGNB1d8eCnYypX5p667LxywVa8lX8MkNNcUx4PACb20Hx8
+yodkM6UXWOmX4VtdLc1038557wu2Nr7HmJMwwjmVWacel6bHrZb47bIIdR13hNfE
+jpp++kpeccOOxdmhmgtTWJjBW0DtcYhlMLN/NYy8Wxe1en7cax84UVm15diTheCg
+X7eb5VFQNdyTJ3fcdzZZkMh7g8phT5KPFX0af8u2r1fPA9v1SAuiLq4VGcmj2vjM
+BMp5Th7SYr2ZnLLk12Xnu0dewR36vZJqKHSS/RtfcvFYjxpvolak4IVZj7edVRcm
+rlofca2x2/9dSqT4zvrXosix0Nlstnvz1CsT2Y4S8AOez3AiO3xcVx3//mTv84z/
+l/8YrT6n12/nW5Ke7Kq1fbVK0bn9j6LG7Qy4ruMraBKZDQfChTa7OVRe8XIhaAQf
+/5BSAzVCh+Wi8GOn7lzAhvsIiXSyo8OhFtpZYCq2CJEgV4j9RwiyzZaodRj5shlu
+2KlID5O/tChTZXJnZXkgUGFudGVsZWV2IDxzZXJnZXlAcy1wYW50ZWxlZXYucnU+
+iQJUBBMBCAA+AhsDBQsJCAcCBhUKCQgLAgQWAgMBAh4BAheAFiEE5gkT5N8gmQfY
+4w2WZZqXyc8qeVoFAmJrslYFCRDtclwACgkQZZqXyc8qeVp4tA//d0RikI1jFLHq
+K0siQydWJ91aLs57sBOogZ8g7lni5n0TQkK/QIMfLgAxDvw0brvMrldKeCgIYd2x
+dTD2Hznt21dOpUqkbvAMAFIlAL6DqG7iwrru2kWW7xlz4ga0ZzZ42NMVJyIx2UJq
+hxj56FZVW64R7Dsq91V8QzEkgtGTeCuGrOxejQ9p4+qNEr+XH/BgcNbvbnkAuJsn
+xDfJ/2H4s50RrSofXGx1I/sbnm3WQEKgawVtPyw8s3MUy2rO6JOBCCxMw056LA6s
+9FQjDjJVA47my9nT5qCM4Z/SKSUbSF5AwLssYoUDMogW3FWtXqFKDAe3vLZ8DlG9
+EFHTNkbovltSQ/T/23EXpzoexJWKEA6lfYzKl6Xm4cOCeqrp4ZszMbjQyg6adpZw
+WsgI2v65ktjUV8CWvU2XizKKpcXfr6sDZ7ndBVw+naeW/0hH6KNa1RUg77FykAUp
+nk3BYRE76hCgY2Sq5btQrjHyM7x7ORiz+cLpj5wncCK49Lvpq+c/jv9IC9vJUsNq
+bLPK3yZIyyfKqCCHPqK+qpYTzXSLXTcB8UKMOiQ1N3S7OkJwvvhU3mkWy94jnrfF
+aKdsigC2A+8Ud3Xw19iCTItuTr1Xiz+HSicPykSJ3bcTEMpco5cFnOfUHDnvP9kU
+LHJKVQtCzn0EwVN1j1VdOpfyXalqGYu0LVNlcmdleSBQYW50ZWxlZXYgPHNlcmdl
+eUBzZXJnZXlwYW50ZWxlZXYuY29tPokCVAQTAQgAPgIbAwULCQgHAgYVCgkICwIE
+FgIDAQIeAQIXgBYhBOYJE+TfIJkH2OMNlmWal8nPKnlaBQJia7JWBQkQ7XJcAAoJ
+EGWal8nPKnlaVEMQAJw8P8OtrR/Qdbiqq7Rlh6iuyZGrIjb6lvW2xdTmouftVRl5
+vJFouS3eSr8Td6afEHYx+2fc5b1jMcNZByNzMe2Qo+t95TzYlrXdMXm+63IdRJOf
+1GrMvl+3H47g5nQflyqyyfKmB2eQEDlxrYbazcOqem2Fk/t7ZiHe88QQeDke8Tsa
+wfVzI3vcR+njEAmW0VJ0VW00OtnzEiPD2JSeeXQ9rpjEUq7LkCwtO/1PrKEA/zza
+jl9bWOqJNSkqriX8YKMplYiMGBRBpQ8N1YhI2EbSqgr8ZQ2lH9Z9okx3JgW31sb4
+0ZLH6DRFdg5aafc4RWBrknt/WmReByI50djgUxEZYYaEMNx9pYFNdVqT+IyVZus8
+3BR67fvVbikyRloMerRGoVvORfl48JxSp44dk/PmquMBKQ6sOunvkPlmGjpRwwRo
+6YDcTzzctlAJj7OH0f2ffhRQiqVraOzumer0BvS5g5V7kX5OKsfeoDMiul9utqUa
+cQPqWAtslrFTd5RO7Xcv/GBR8faOpria8MFLiD6sGqPgnZBxtz9+OdQSKe27Yc3x
+AYkSmQ1IUCO5ZdDQOaOJ2XvXQPNxVnL5YxweYA15dnsxJde8bBRX5ELkqv8/NUBO
+QLAlRj5x6ZTcT/6+n6hQ4XU7G8hIooQXVAf2nriTITR7M8nlKxXPifOLoIT5uQIN
+BGBd5LkBEACQOGIgEElrUeaXcwHfIMODsm9VsMADoGL3Dld7KbSyoh0zrbdTY79F
+CXPN9leyDd/hrrpmOi3W3VrEVldc3Dqn332Rm0TnGTXRByrrN+ZQMzrKuWZq2YIi
+a76aVZGtbtiptrsOmBYnmbgVcZOnTw2nyc0mIgJobsd+Tse1kiPMyv3l99pNpeyJ
+Itp28/SjaSc/Ry8Es9ZAoxTz0AMjzGHzSabqiaydJvLZ+W5R66BIo2grEmp2ipYJ
+YPluvRimTdTIb2BRyglTJCYLaBRSz2DWSzJ6r/EaWtNwn2XtzkjaJvJ+tGtp9bIT
+lmD++UosF9+exKQitX7RzhEWOOW15GboSKDqVWZds5dt9KikjK8b0hiZuBjm1Ff9
+oy+k55RxurH1Z+y6nUxhju2HkH9dJclAKxGDaTWcyXseCr0xWuaQoK5fUi9YGYCK
+WvGUCp2V2pID7z9knFDJql0O3Dx5xXQ0gUUba0LGh2clyXlFVlEaw7iA2NBVlboe
+neS2lwMuwmSk2GewfzIr2GYG97/8oF+2nNvQjXdbtskwmjPquDnYUNs7301mYsmX
+03zmYI80hK+FocU4spzIWlE6e57Z6IRHw4u/8zbif/ae+nVJbCSG/6IzoUhPXIIW
+nFeNfEIhIkzWhiZMz17laPfSNkC9hyDAP0pj9MbNJmjVb8E+K4hCJQARAQABiQI8
+BBgBCAAmFiEE5gkT5N8gmQfY4w2WZZqXyc8qeVoFAmBd5LkCGwwFCQeGH1wACgkQ
+ZZqXyc8qeVrqbA//cP+RgzaeS+hcsw7wrSrn1ju5/dITfBnZUfIN39doqM59dAUT
+IrlGplgj6Zu//Ejnz5ehWV/3LedTPJREJoFFo+29NunLpvxjcBHDzFPnAFgNVpjT
+HOUeOJ0VU2cMnUwo2/CfrxXipl1fV3HMcH4+tR5kblhWgYJLDVq7hioa5g/RW4Tk
+B5j2k/pz+YLuxK4sAnuLORrPog2IhbuFwlxE9djY13IJHDNJjfpQAjtlWcp6u+kr
+V5esuGnBJtsGBLj+iH6x273ShBvfZ0lFVNln+dPXwJHpO3G+y7msW3xDhtWRceIN
+k++uvP2Q4KjWl7cN9c5vahEyUXehnqH4yE0Lchm9VMRjRYrrYjkat964Z0wG9wj4
+EWlD6mu/ttlU5T+NmVAvoMR9DZPZ41zbGJg/V0rCiofqFxvyPc6J2zzzE98vF4wg
+9kGAIvLHBEkhbwKFKH9H2+j0/4c2YWS3tMvL4BVCblBX+CZ2/AmdNLe0Ow9QEDtZ
+fakyxhtAQPNbJB2uZICCkbDmdoerP6FyMYrpWxhb9sfkVB44p9Q8TgRU+khxeNAT
+/8nOsnywmQ8hMPgjxwisyjYNJ6yys4O+QOii0LnALAPaPMrNvBWMZOC2botZMhqZ
+LRSyEAcOT22d13GA8PzJ4XNdtBEkLuwGgVwtwFEmsXq6uUQGCaZajgBsi1iZAg0E
+YGUmMwEQALbBs788gDNVICnaSTsxebOhdVFI/IRueM3qqbvuevO+6CH9t49m5wbq
+VtczFGwKPgZL3EtwZmhJBmFP/YYl3L5pS3vN/qzKaklRNyA90RWZ/m5PFadCQGDQ
+F2bqHzHC+BNlWt1/DLt/uN8CwZJcrMSYl8nYvoseYAwjcj5yx0+ooEdLOPqFiNlh
+zBdKnZMAhKSkoqZX2SmRjdkoOgkJ0NvlDpvPLjEr4EjtcVsgwtYISR+lRqwZeU+h
+X/2q9ZavdIa2cqMTlWOhWADmKqAxTKbJ3Yv3PcGrLz6Yq2Z3FfJeDc7SjrzEb2ju
+lyOhq9VtFaKoT1OplzBqv7jYqgvoFyFZiUy95n1E7pf66ar3AYmNHcb308Rwe0Xp
+aiYxcaJ4uptTP9ZbQaKgvfu+SooxlhnS3IhOIll/tqbYnhOKDKrySTUcbquZJtdJ
+I4Fwhda/5pWedMzXgcqOxt/qPH3VV3/njIPuHKjPAS61vj4LP87dH1ndXqn859yc
+BMtcJ0ODWFg2NajPpNlyXEZOlkmntN6+oQGGpDy5r9BccnIXrNrdUVhcjgLZe1pX
+pfpzsfZK9GmGyedVkQxZIGxl5xb673fV5qZCLPPl2ZZbuMK1CoP+tzJuqj4962zN
+b4OuzGDfMX108zcf4bVdzhEgvUrg+FGuumX4fBm2w6BSIksyCtc/ABEBAAG0I1Bp
+ZXJyaWNrIENoYXJyb24gPHBpZXJyaWNrQHBocC5uZXQ+iQJOBBMBCAA4FiEEEZjA
+EXWTSXpexcGZKGrx+Yl0adwFAmJwnb0CGwMFCwkIBwIGFQgJCgsCBBYCAwECHgEC
+F4AACgkQKGrx+Yl0adyGOQ/+JjCmzfFXcj8okpIE1Qd2buhsy5dbWqcNn85c2Hkv
+bxPQ/LxdN1LIXRPYSkG9KrTKJG5WlNXATxqyllj6r8dLCW0gGcevWCn2QIiVnx7F
+YLwE8HzIHKpaXRh6kZxBJ/HyrWtPlS9xisF1v2hwJ3SeiS0+aidqqjKGvFaoU+Qn
+B6O0ydwnzFw8O3SOU4hPzDiD7kVBMMsNiV6jNhk6kqV9Xc/zzDz/1BzNgTIE9e00
+ki+oOvSYRzVXK7mMqUBzcRTgVqoOZT/Il7rakv0iehSRFnyl+4C8n3QP2Y9Odbba
+shNYv5YlXy7YvEOHmV9/v7W0J+vE947UImMkv046vf/LedLdQe+BVwnvP8JUnAaU
+2s54CU8ZAxWPZDUnGIGgn8HWvf2RfU5oSf6xqKqY/iB9Z1h8lOpLy8pZ4K6+f4Da
+oMJnNIOP59rcGHG1gYLE1/AEy0qMXURfPYSvX5yUhUuqV6dy0TKzK5Ih4P7Bbg5I
+hIivALd7NHjBacgYAJgybohqLTbST7zXjCOoABIzSpTH9PEF28oKoYcztQRWDx14
+PEMHFCLV4nl9oXZDMkl5lS4AUPyGklgECMeIjvbiiDJJRpc2xO2ZEjCzK1O6Z1gV
+yTruzfWmLKCwse63P/QvHXrKPLG0L5M8LueazMok3teCbx+rRTlUK6YyzAcl54cx
+Wqu5Ag0EYGUmMwEQAO2bpeJVNAirlSk1Relq53K64wSOQTWEjuHL+Pg4v52/xduM
+m/e0o04edwlR352LFcEcGuJZlSU1itzG0QwlvE+ziPD0K5lp8rpOe3ufpxsoYb9F
+Oc/C8Mv6M4an7WfdoEe6kJoLr1EFyU/R69g1P2vOoDLg0hz0AUsQIfLilt0FAoTP
+0DrpM1SVtXpGKOEhYKO72+9WtCDAT0zZdZdP9G6QmSafDBaKUZMKTb9n0FFzNnJR
+Lp50PWCnroUGqWkQXnzY+cv7ugC2PDBjw0FiBeRCZMTC+9OPiGPVVOx//KBlzw3Z
+M2Laxfp99gVpIkV3jHF8pPQMh1RyQjbSb7PEszB5Vk69vqQVXnf/AoMP/0t8oKny
+a+9+tJSOWuQq020m9vFCNECGFFOkZoXSMM6ZERc+Uefmv8E+wXKVfbgUm3ZawWdr
+Y5G3eCiybY+RfLenmv9bVV2rCBFUXECJXrPMQ8BSmlj9R5fAZWttcywhvWgW2k+B
+tPQK7i2Pek9Wx7ztxb1tSUFxOXtdbcqGVe4TA6GjqNxQjOqejqzjm084q3e0v16k
+gVYQ3lf5jkHHg+3il5zBjE96+q733JMlg6WzS6p1571PM8i50htwvKxm9AfwnwR8
+zm6upRBwI6Zc8mN5pKa15N06UKfXbh95d3qbnR1k557gOmhpks7HERFQmMbnABEB
+AAGJAjYEGAEIACACGwwWIQQRmMARdZNJel7FwZkoavH5iXRp3AUCYm/u6wAKCRAo
+avH5iXRp3HcTD/0UaiazVBDOUYP/GVpAKzDIQM2WYWWzt+3jiyz1GB8wQkJlNv7l
+7+eINcYcWKRmpfZiN5sijbMXSJE3uD30SXnuChufEU+jElMfP71o0zQyTT7rKERZ
+6QmvM548OjG3tmST80ZpBD629AnecHhk6rPwzodouPRKx/SBBPA6noJdn8myc3Fj
+1BUJDF5CBIaL6SBSreR0nXFshp7hmsYc46B1rhgij0c7YiFNljWopZXYUcC6erVa
+WFVsZsU+5deTM4oFl7mIrkuHhtAE7kB1MbODyYy9SvoNpLm8R+eIYWNzml09qJYe
+GC1qT3KmWtKdJVz0YlF2+qXyXSVMMaRsZ1KnD77QN7ZLTOuzsDU4tpsBPFihihSN
+wx7ZDRt8uYZ/zrh4b3k8kruAxQBBb5YA8CQIaz00eLjLswdIQnACJvNhKYrVdO2g
+9bPM2dAyK7h6GdkllVTUwZX63gT/nQICBuVOR0XQVBz0uJlEAQh5prmoXuCBz7UI
+v+jR4MqVvb5Yg3ekxRiOo43uIJNF/9I7SYqRJF/QXhU0Fw+Og51EKeeeYNpXw03+
+NeZZ+VXxBoZFr0uytPbkOPfzXxDSvqyxusPKVoutYQq5nX1NDVOk0AQf2U8Ka00d
+YqwE9TUYUf5PYJTLiQzjeNYnktmWL+fCnF0gjJqhpLw1K48itXWDhJRdiw==
+=MP+q
+-----END PGP PUBLIC KEY BLOCK-----

php.conf Added

@@ -0,0 +1,62 @@
+#
+# The following lines prevent .user.ini files from being viewed by Web clients.
+#
+<Files ".user.ini">
+ Require all denied
+</Files>
+
+#
+# Allow php to handle Multiviews
+#
+AddType text/html .php
+
+#
+# Add index.php to the list of files that will be served as directory
+# indexes.
+#
+DirectoryIndex index.php
+
+#
+# Redirect to local php-fpm (no mod_php in default configuration)
+#
+<IfModule !mod_php.c>
+ # Enable http authorization headers
+ SetEnvIfNoCase ^Authorization$ "(.+)" HTTP_AUTHORIZATION=$1
+
+ <FilesMatch \.(php|phar)$>
+ SetHandler "proxy:unix:/run/php-fpm/www.sock|fcgi://localhost"
+ </FilesMatch>
+</IfModule>
+
+#
+# mod_php is deprecated as FPM is now used by default with httpd in event mode
+# mod_php is only used when explicitly enabled or httpd switch to prefork mode
+#
+# mod_php options
+#
+<IfModule mod_php.c>
+ #
+ # Cause the PHP interpreter to handle files with a .php extension.
+ #
+ <FilesMatch \.(php|phar)$>
+ SetHandler application/x-httpd-php
+ </FilesMatch>
+
+ #
+ # Uncomment the following lines to allow PHP to pretty-print .phps
+ # files as PHP source code:
+ #
+ #<FilesMatch \.phps$>
+ # SetHandler application/x-httpd-php-source
+ #</FilesMatch>
+
+ #
+ # Apache specific PHP configuration options
+ # those can be override in each configured vhost
+ #
+ php_value session.save_handler "files"
+ php_value session.save_path "/var/lib/php/session"
+ php_value soap.wsdl_cache_dir "/var/lib/php/wsdlcache"
+
+ #php_value opcache.file_cache "/var/lib/php/opcache"
+</IfModule>

php.ini Added

@@ -0,0 +1,1667 @@
+PHP
+
+;;;;;;;;;;;;;;;;;;;
+; About php.ini ;
+;;;;;;;;;;;;;;;;;;;
+; PHP's initialization file, generally called php.ini, is responsible for
+; configuring many of the aspects of PHP's behavior.
+
+; PHP attempts to find and load this configuration from a number of locations.
+; The following is a summary of its search order:
+; 1. SAPI module specific location.
+; 2. The PHPRC environment variable. (As of PHP 5.2.0)
+; 3. A number of predefined registry keys on Windows (As of PHP 5.2.0)
+; 4. Current working directory (except CLI)
+; 5. The web server's directory (for SAPI modules), or directory of PHP
+; (otherwise in Windows)
+; 6. The directory from the --with-config-file-path compile time option, or the
+; Windows directory (usually C:\windows)
+; See the PHP docs for more specific information.
+; https://php.net/configuration.file
+
+; The syntax of the file is extremely simple. Whitespace and lines
+; beginning with a semicolon are silently ignored (as you probably guessed).
+; Section headers (e.g. Foo) are also silently ignored, even though
+; they might mean something in the future.
+
+; Directives following the section heading PATH=/www/mysite only
+; apply to PHP files in the /www/mysite directory. Directives
+; following the section heading HOST=www.example.com only apply to
+; PHP files served from www.example.com. Directives set in these
+; special sections cannot be overridden by user-defined INI files or
+; at runtime. Currently, PATH= and HOST= sections only work under
+; CGI/FastCGI.
+; https://php.net/ini.sections
+
+; Directives are specified using the following syntax:
+; directive = value
+; Directive names are *case sensitive* - foo=bar is different from FOO=bar.
+; Directives are variables used to configure PHP or PHP extensions.
+; There is no name validation. If PHP can't find an expected
+; directive because it is not set or is mistyped, a default value will be used.
+
+; The value can be a string, a number, a PHP constant (e.g. E_ALL or M_PI), one
+; of the INI constants (On, Off, True, False, Yes, No and None) or an expression
+; (e.g. E_ALL & ~E_NOTICE), a quoted string ("bar"), or a reference to a
+; previously set variable or directive (e.g. ${foo})
+
+; Expressions in the INI file are limited to bitwise operators and parentheses:
+; | bitwise OR
+; ^ bitwise XOR
+; & bitwise AND
+; ~ bitwise NOT
+; ! boolean NOT
+
+; Boolean flags can be turned on using the values 1, On, True or Yes.
+; They can be turned off using the values 0, Off, False or No.
+
+; An empty string can be denoted by simply not writing anything after the equal
+; sign, or by using the None keyword:
+
+; foo = ; sets foo to an empty string
+; foo = None ; sets foo to an empty string
+; foo = "None" ; sets foo to the string 'None'
+
+; If you use constants in your value, and these constants belong to a
+; dynamically loaded extension (either a PHP extension or a Zend extension),
+; you may only use these constants *after* the line that loads the extension.
+
+;;;;;;;;;;;;;;;;;;;
+; About this file ;
+;;;;;;;;;;;;;;;;;;;
+; PHP comes packaged with two INI files. One that is recommended to be used
+; in production environments and one that is recommended to be used in
+; development environments.
+
+; php.ini-production contains settings which hold security, performance and
+; best practices at its core. But please be aware, these settings may break
+; compatibility with older or less security conscience applications. We
+; recommending using the production ini in production and testing environments.
+
+; php.ini-development is very similar to its production variant, except it is
+; much more verbose when it comes to errors. We recommend using the
+; development version only in development environments, as errors shown to
+; application users can inadvertently leak otherwise secure information.
+
+; This is the php.ini-production INI file.
+
+;;;;;;;;;;;;;;;;;;;
+; Quick Reference ;
+;;;;;;;;;;;;;;;;;;;
+
+; The following are all the settings which are different in either the production
+; or development versions of the INIs with respect to PHP's default behavior.
+; Please see the actual settings later in the document for more details as to why
+; we recommend these changes in PHP's behavior.
+
+; display_errors
+; Default Value: On
+; Development Value: On
+; Production Value: Off
+
+; display_startup_errors
+; Default Value: On
+; Development Value: On
+; Production Value: Off
+
+; error_reporting
+; Default Value: E_ALL
+; Development Value: E_ALL
+; Production Value: E_ALL & ~E_DEPRECATED & ~E_STRICT
+
+; log_errors
+; Default Value: Off
+; Development Value: On
+; Production Value: On
+
+; max_input_time
+; Default Value: -1 (Unlimited)
+; Development Value: 60 (60 seconds)
+; Production Value: 60 (60 seconds)
+
+; output_buffering
+; Default Value: Off
+; Development Value: 4096
+; Production Value: 4096
+
+; register_argc_argv
+; Default Value: On
+; Development Value: Off
+; Production Value: Off
+
+; request_order
+; Default Value: None
+; Development Value: "GP"
+; Production Value: "GP"
+
+; session.gc_divisor
+; Default Value: 100
+; Development Value: 1000
+; Production Value: 1000
+
+; session.sid_bits_per_character
+; Default Value: 4
+; Development Value: 5
+; Production Value: 5
+
+; short_open_tag
+; Default Value: On
+; Development Value: Off
+; Production Value: Off
+
+; variables_order
+; Default Value: "EGPCS"
+; Development Value: "GPCS"
+; Production Value: "GPCS"
+
+; zend.exception_ignore_args
+; Default Value: Off
+; Development Value: Off
+; Production Value: On
+
+; zend.exception_string_param_max_len
+; Default Value: 15
+; Development Value: 15
+; Production Value: 0
+
+;;;;;;;;;;;;;;;;;;;;
+; php.ini Options ;
+;;;;;;;;;;;;;;;;;;;;
+; Name for user-defined php.ini (.htaccess) files. Default is ".user.ini"
+;user_ini.filename = ".user.ini"
+
+; To disable this feature set this option to an empty value
+;user_ini.filename =
+
+; TTL for user-defined php.ini files (time-to-live) in seconds. Default is 300 seconds (5 minutes)
+;user_ini.cache_ttl = 300
+
+;;;;;;;;;;;;;;;;;;;;
+; Language Options ;
+;;;;;;;;;;;;;;;;;;;;
+
+; Enable the PHP scripting language engine under Apache.
+; https://php.net/engine
+engine = On
+
+; This directive determines whether or not PHP will recognize code between
+; <? and ?> tags as PHP source which should be processed as such. It is
+; generally recommended that <?php and ?> should be used and that this feature
+; should be disabled, as enabling it may result in issues when generating XML
+; documents, however this remains supported for backward compatibility reasons.
+; Note that this directive does not control the <?= shorthand tag, which can be
+; used regardless of this directive.
+; Default Value: On
+; Development Value: Off
+; Production Value: Off
+; https://php.net/short-open-tag
+short_open_tag = Off
+
+; The number of significant digits displayed in floating point numbers.
+; https://php.net/precision
+precision = 14
+
+; Output buffering is a mechanism for controlling how much output data
+; (excluding headers and cookies) PHP should keep internally before pushing that
+; data to the client. If your application's output exceeds this setting, PHP
+; will send that data in chunks of roughly the size you specify.
+; Turning on this setting and managing its maximum buffer size can yield some
+; interesting side-effects depending on your application and web server.
+; You may be able to send headers and cookies after you've already sent output
+; through print or echo. You also may see performance benefits if your server is
+; emitting less packets due to buffered output versus PHP streaming the output
+; as it gets it. On production servers, 4096 bytes is a good setting for performance
+; reasons.
+; Note: Output buffering can also be controlled via Output Buffering Control
+; functions.
+; Possible Values:
+; On = Enabled and buffer is unlimited. (Use with caution)
+; Off = Disabled
+; Integer = Enables the buffer and sets its maximum size in bytes.
+; Note: This directive is hardcoded to Off for the CLI SAPI
+; Default Value: Off
+; Development Value: 4096
+; Production Value: 4096
+; https://php.net/output-buffering
+output_buffering = 4096
+
+; You can redirect all of the output of your scripts to a function. For
+; example, if you set output_handler to "mb_output_handler", character
+; encoding will be transparently converted to the specified encoding.
+; Setting any output handler automatically turns on output buffering.
+; Note: People who wrote portable scripts should not depend on this ini
+; directive. Instead, explicitly set the output handler using ob_start().
+; Using this ini directive may cause problems unless you know what script
+; is doing.
+; Note: You cannot use both "mb_output_handler" with "ob_iconv_handler"
+; and you cannot use both "ob_gzhandler" and "zlib.output_compression".
+; Note: output_handler must be empty if this is set 'On' !!!!
+; Instead you must use zlib.output_handler.
+; https://php.net/output-handler
+;output_handler =
+
+; URL rewriter function rewrites URL on the fly by using
+; output buffer. You can set target tags by this configuration.
+; "form" tag is special tag. It will add hidden input tag to pass values.
+; Refer to session.trans_sid_tags for usage.
+; Default Value: "form="
+; Development Value: "form="
+; Production Value: "form="
+;url_rewriter.tags
+
+; URL rewriter will not rewrite absolute URL nor form by default. To enable
+; absolute URL rewrite, allowed hosts must be defined at RUNTIME.
+; Refer to session.trans_sid_hosts for more details.
+; Default Value: ""
+; Development Value: ""
+; Production Value: ""
+;url_rewriter.hosts
+
+; Transparent output compression using the zlib library
+; Valid values for this option are 'off', 'on', or a specific buffer size
+; to be used for compression (default is 4KB)
+; Note: Resulting chunk size may vary due to nature of compression. PHP
+; outputs chunks that are few hundreds bytes each as a result of
+; compression. If you prefer a larger chunk size for better
+; performance, enable output_buffering in addition.
+; Note: You need to use zlib.output_handler instead of the standard
+; output_handler, or otherwise the output will be corrupted.
+; https://php.net/zlib.output-compression
+zlib.output_compression = Off
+
+; https://php.net/zlib.output-compression-level
+;zlib.output_compression_level = -1
+
+; You cannot specify additional output handlers if zlib.output_compression
+; is activated here. This setting does the same as output_handler but in
+; a different order.
+; https://php.net/zlib.output-handler
+;zlib.output_handler =
+
+; Implicit flush tells PHP to tell the output layer to flush itself
+; automatically after every output block. This is equivalent to calling the
+; PHP function flush() after each and every call to print() or echo() and each
+; and every HTML block. Turning this option on has serious performance
+; implications and is generally recommended for debugging purposes only.
+; https://php.net/implicit-flush
+; Note: This directive is hardcoded to On for the CLI SAPI
+implicit_flush = Off
+
+; The unserialize callback function will be called (with the undefined class'
+; name as parameter), if the unserializer finds an undefined class
+; which should be instantiated. A warning appears if the specified function is
+; not defined, or if the function doesn't include/implement the missing class.
+; So only set this entry, if you really want to implement such a
+; callback-function.
+unserialize_callback_func =
+
+; The unserialize_max_depth specifies the default depth limit for unserialized
+; structures. Setting the depth limit too high may result in stack overflows
+; during unserialization. The unserialize_max_depth ini setting can be
+; overridden by the max_depth option on individual unserialize() calls.
+; A value of 0 disables the depth limit.
+;unserialize_max_depth = 4096
+
+; When floats & doubles are serialized, store serialize_precision significant
+; digits after the floating point. The default value ensures that when floats
+; are decoded with unserialize, the data will remain the same.
+; The value is also used for json_encode when encoding double values.
+; If -1 is used, then dtoa mode 0 is used which automatically select the best
+; precision.
+serialize_precision = -1
+
+; open_basedir, if set, limits all file operations to the defined directory
+; and below. This directive makes most sense if used in a per-directory
+; or per-virtualhost web server configuration file.
+; Note: disables the realpath cache
+; https://php.net/open-basedir
+;open_basedir =
+
+; This directive allows you to disable certain functions.
+; It receives a comma-delimited list of function names.
+; https://php.net/disable-functions
+disable_functions =
+
+; This directive allows you to disable certain classes.
+; It receives a comma-delimited list of class names.
+; https://php.net/disable-classes
+disable_classes =
+
+; Colors for Syntax Highlighting mode. Anything that's acceptable in
+; would work.
+; https://php.net/syntax-highlighting
+;highlight.string = #DD0000
+;highlight.comment = #FF9900
+;highlight.keyword = #007700
+;highlight.default = #0000BB
+;highlight.html = #000000
+
+; If enabled, the request will be allowed to complete even if the user aborts
+; the request. Consider enabling it if executing long requests, which may end up
+; being interrupted by the user or a browser timing out. PHP's default behavior
+; is to disable this feature.
+; https://php.net/ignore-user-abort
+;ignore_user_abort = On
+
+; Determines the size of the realpath cache to be used by PHP. This value should
+; be increased on systems where PHP opens many files to reflect the quantity of
+; the file operations performed.
+; Note: if open_basedir is set, the cache is disabled
+; https://php.net/realpath-cache-size
+;realpath_cache_size = 4096k
+
+; Duration of time, in seconds for which to cache realpath information for a given
+; file or directory. For systems with rarely changing files, consider increasing this
+; value.
+; https://php.net/realpath-cache-ttl
+;realpath_cache_ttl = 120
+
+; Enables or disables the circular reference collector.
+; https://php.net/zend.enable-gc
+zend.enable_gc = On
+
+; If enabled, scripts may be written in encodings that are incompatible with
+; the scanner. CP936, Big5, CP949 and Shift_JIS are the examples of such
+; encodings. To use this feature, mbstring extension must be enabled.
+;zend.multibyte = Off
+
+; Allows to set the default encoding for the scripts. This value will be used
+; unless "declare(encoding=...)" directive appears at the top of the script.
+; Only affects if zend.multibyte is set.
+;zend.script_encoding =
+
+; Allows to include or exclude arguments from stack traces generated for exceptions.
+; In production, it is recommended to turn this setting on to prohibit the output
+; of sensitive information in stack traces
+; Default Value: Off
+; Development Value: Off
+; Production Value: On
+zend.exception_ignore_args = On
+
+; Allows setting the maximum string length in an argument of a stringified stack trace
+; to a value between 0 and 1000000.
+; This has no effect when zend.exception_ignore_args is enabled.
+; Default Value: 15
+; Development Value: 15
+; Production Value: 0
+; In production, it is recommended to set this to 0 to reduce the output
+; of sensitive information in stack traces.
+zend.exception_string_param_max_len = 0
+
+;;;;;;;;;;;;;;;;;
+; Miscellaneous ;
+;;;;;;;;;;;;;;;;;
+
+; Decides whether PHP may expose the fact that it is installed on the server
+; (e.g. by adding its signature to the Web server header). It is no security
+; threat in any way, but it makes it possible to determine whether you use PHP
+; on your server or not.
+; https://php.net/expose-php
+expose_php = On
+
+;;;;;;;;;;;;;;;;;;;
+; Resource Limits ;
+;;;;;;;;;;;;;;;;;;;
+
+; Maximum execution time of each script, in seconds
+; https://php.net/max-execution-time
+; Note: This directive is hardcoded to 0 for the CLI SAPI
+max_execution_time = 30
+
+; Maximum amount of time each script may spend parsing request data. It's a good
+; idea to limit this time on productions servers in order to eliminate unexpectedly
+; long running scripts.
+; Note: This directive is hardcoded to -1 for the CLI SAPI
+; Default Value: -1 (Unlimited)
+; Development Value: 60 (60 seconds)
+; Production Value: 60 (60 seconds)
+; https://php.net/max-input-time
+max_input_time = 60
+
+; Maximum input variable nesting level
+; https://php.net/max-input-nesting-level
+;max_input_nesting_level = 64
+
+; How many GET/POST/COOKIE input variables may be accepted
+;max_input_vars = 1000
+
+; Maximum amount of memory a script may consume
+; https://php.net/memory-limit
+memory_limit = 128M
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+; Error handling and logging ;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+; This directive informs PHP of which errors, warnings and notices you would like
+; it to take action for. The recommended way of setting values for this
+; directive is through the use of the error level constants and bitwise
+; operators. The error level constants are below here for convenience as well as
+; some common settings and their meanings.
+; By default, PHP is set to take action on all errors, notices and warnings EXCEPT
+; those related to E_NOTICE and E_STRICT, which together cover best practices and
+; recommended coding standards in PHP. For performance reasons, this is the
+; recommend error reporting setting. Your production server shouldn't be wasting
+; resources complaining about best practices and coding standards. That's what
+; development servers and development settings are for.
+; Note: The php.ini-development file has this setting as E_ALL. This
+; means it pretty much reports everything which is exactly what you want during
+; development and early testing.
+;
+; Error Level Constants:
+; E_ALL - All errors and warnings (includes E_STRICT as of PHP 5.4.0)
+; E_ERROR - fatal run-time errors
+; E_RECOVERABLE_ERROR - almost fatal run-time errors
+; E_WARNING - run-time warnings (non-fatal errors)
+; E_PARSE - compile-time parse errors
+; E_NOTICE - run-time notices (these are warnings which often result
+; from a bug in your code, but it's possible that it was
+; intentional (e.g., using an uninitialized variable and
+; relying on the fact it is automatically initialized to an
+; empty string)
+; E_STRICT - run-time notices, enable to have PHP suggest changes
+; to your code which will ensure the best interoperability
+; and forward compatibility of your code
+; E_CORE_ERROR - fatal errors that occur during PHP's initial startup
+; E_CORE_WARNING - warnings (non-fatal errors) that occur during PHP's
+; initial startup
+; E_COMPILE_ERROR - fatal compile-time errors
+; E_COMPILE_WARNING - compile-time warnings (non-fatal errors)
+; E_USER_ERROR - user-generated error message
+; E_USER_WARNING - user-generated warning message
+; E_USER_NOTICE - user-generated notice message
+; E_DEPRECATED - warn about code that will not work in future versions
+; of PHP
+; E_USER_DEPRECATED - user-generated deprecation warnings
+;
+; Common Values:
+; E_ALL (Show all errors, warnings and notices including coding standards.)
+; E_ALL & ~E_NOTICE (Show all errors, except for notices)
+; E_ALL & ~E_NOTICE & ~E_STRICT (Show all errors, except for notices and coding standards warnings.)
+; E_COMPILE_ERROR|E_RECOVERABLE_ERROR|E_ERROR|E_CORE_ERROR (Show only errors)
+; Default Value: E_ALL
+; Development Value: E_ALL
+; Production Value: E_ALL & ~E_DEPRECATED & ~E_STRICT
+; https://php.net/error-reporting
+error_reporting = E_ALL & ~E_DEPRECATED & ~E_STRICT
+
+; This directive controls whether or not and where PHP will output errors,
+; notices and warnings too. Error output is very useful during development, but
+; it could be very dangerous in production environments. Depending on the code
+; which is triggering the error, sensitive information could potentially leak
+; out of your application such as database usernames and passwords or worse.
+; For production environments, we recommend logging errors rather than
+; sending them to STDOUT.
+; Possible Values:
+; Off = Do not display any errors
+; stderr = Display errors to STDERR (affects only CGI/CLI binaries!)
+; On or stdout = Display errors to STDOUT
+; Default Value: On
+; Development Value: On
+; Production Value: Off
+; https://php.net/display-errors
+display_errors = Off
+
+; The display of errors which occur during PHP's startup sequence are handled
+; separately from display_errors. We strongly recommend you set this to 'off'
+; for production servers to avoid leaking configuration details.
+; Default Value: On
+; Development Value: On
+; Production Value: Off
+; https://php.net/display-startup-errors
+display_startup_errors = Off
+
+; Besides displaying errors, PHP can also log errors to locations such as a
+; server-specific log, STDERR, or a location specified by the error_log
+; directive found below. While errors should not be displayed on productions
+; servers they should still be monitored and logging is a great way to do that.
+; Default Value: Off
+; Development Value: On
+; Production Value: On
+; https://php.net/log-errors
+log_errors = On
+
+; Do not log repeated messages. Repeated errors must occur in same file on same
+; line unless ignore_repeated_source is set true.
+; https://php.net/ignore-repeated-errors
+ignore_repeated_errors = Off
+
+; Ignore source of message when ignoring repeated messages. When this setting
+; is On you will not log errors with repeated messages from different files or
+; source lines.
+; https://php.net/ignore-repeated-source
+ignore_repeated_source = Off
+
+; If this parameter is set to Off, then memory leaks will not be shown (on
+; stdout or in the log). This is only effective in a debug compile, and if
+; error reporting includes E_WARNING in the allowed list
+; https://php.net/report-memleaks
+report_memleaks = On
+
+; This setting is off by default.
+;report_zend_debug = 0
+
+; Turn off normal error reporting and emit XML-RPC error XML
+; https://php.net/xmlrpc-errors
+;xmlrpc_errors = 0
+
+; An XML-RPC faultCode
+;xmlrpc_error_number = 0
+
+; When PHP displays or logs an error, it has the capability of formatting the
+; error message as HTML for easier reading. This directive controls whether
+; the error message is formatted as HTML or not.
+; Note: This directive is hardcoded to Off for the CLI SAPI
+; https://php.net/html-errors
+;html_errors = On
+
+; If html_errors is set to On *and* docref_root is not empty, then PHP
+; produces clickable error messages that direct to a page describing the error
+; or function causing the error in detail.
+; You can download a copy of the PHP manual from https://php.net/docs
+; and change docref_root to the base URL of your local copy including the
+; leading '/'. You must also specify the file extension being used including
+; the dot. PHP's default behavior is to leave these settings empty, in which
+; case no links to documentation are generated.
+; Note: Never use this feature for production boxes.
+; https://php.net/docref-root
+; Examples
+;docref_root = "/phpmanual/"
+
+; https://php.net/docref-ext
+;docref_ext = .html
+
+; String to output before an error message. PHP's default behavior is to leave
+; this setting blank.
+; https://php.net/error-prepend-string
+; Example:
+;error_prepend_string = ""
+
+; String to output after an error message. PHP's default behavior is to leave
+; this setting blank.
+; https://php.net/error-append-string
+; Example:
+;error_append_string = ""
+
+; Log errors to specified file. PHP's default behavior is to leave this value
+; empty.
+; https://php.net/error-log
+; Example:
+;error_log = php_errors.log
+; Log errors to syslog (Event Log on Windows).
+;error_log = syslog
+
+; The syslog ident is a string which is prepended to every message logged
+; to syslog. Only used when error_log is set to syslog.
+;syslog.ident = php
+
+; The syslog facility is used to specify what type of program is logging
+; the message. Only used when error_log is set to syslog.
+;syslog.facility = user
+
+; Set this to disable filtering control characters (the default).
+; Some loggers only accept NVT-ASCII, others accept anything that's not
+; control characters. If your logger accepts everything, then no filtering
+; is needed at all.
+; Allowed values are:
+; ascii (all printable ASCII characters and NL)
+; no-ctrl (all characters except control characters)
+; all (all characters)
+; raw (like "all", but messages are not split at newlines)
+; https://php.net/syslog.filter
+;syslog.filter = ascii
+
+;windows.show_crt_warning
+; Default value: 0
+; Development value: 0
+; Production value: 0
+
+;;;;;;;;;;;;;;;;;
+; Data Handling ;
+;;;;;;;;;;;;;;;;;
+
+; The separator used in PHP generated URLs to separate arguments.
+; PHP's default setting is "&".
+; https://php.net/arg-separator.output
+; Example:
+;arg_separator.output = "&amp;"
+
+; List of separator(s) used by PHP to parse input URLs into variables.
+; PHP's default setting is "&".
+; NOTE: Every character in this directive is considered as separator!
+; https://php.net/arg-separator.input
+; Example:
+;arg_separator.input = ";&"
+
+; This directive determines which super global arrays are registered when PHP
+; starts up. G,P,C,E & S are abbreviations for the following respective super
+; globals: GET, POST, COOKIE, ENV and SERVER. There is a performance penalty
+; paid for the registration of these arrays and because ENV is not as commonly
+; used as the others, ENV is not recommended on productions servers. You
+; can still get access to the environment variables through getenv() should you
+; need to.
+; Default Value: "EGPCS"
+; Development Value: "GPCS"
+; Production Value: "GPCS";
+; https://php.net/variables-order
+variables_order = "GPCS"
+
+; This directive determines which super global data (G,P & C) should be
+; registered into the super global array REQUEST. If so, it also determines
+; the order in which that data is registered. The values for this directive
+; are specified in the same manner as the variables_order directive,
+; EXCEPT one. Leaving this value empty will cause PHP to use the value set
+; in the variables_order directive. It does not mean it will leave the super
+; globals array REQUEST empty.
+; Default Value: None
+; Development Value: "GP"
+; Production Value: "GP"
+; https://php.net/request-order
+request_order = "GP"
+
+; This directive determines whether PHP registers $argv & $argc each time it
+; runs. $argv contains an array of all the arguments passed to PHP when a script
+; is invoked. $argc contains an integer representing the number of arguments
+; that were passed when the script was invoked. These arrays are extremely
+; useful when running scripts from the command line. When this directive is
+; enabled, registering these variables consumes CPU cycles and memory each time
+; a script is executed. For performance reasons, this feature should be disabled
+; on production servers.
+; Note: This directive is hardcoded to On for the CLI SAPI
+; Default Value: On
+; Development Value: Off
+; Production Value: Off
+; https://php.net/register-argc-argv
+register_argc_argv = Off
+
+; When enabled, the ENV, REQUEST and SERVER variables are created when they're
+; first used (Just In Time) instead of when the script starts. If these
+; variables are not used within a script, having this directive on will result
+; in a performance gain. The PHP directive register_argc_argv must be disabled
+; for this directive to have any effect.
+; https://php.net/auto-globals-jit
+auto_globals_jit = On
+
+; Whether PHP will read the POST data.
+; This option is enabled by default.
+; Most likely, you won't want to disable this option globally. It causes $_POST
+; and $_FILES to always be empty; the only way you will be able to read the
+; POST data will be through the php://input stream wrapper. This can be useful
+; to proxy requests or to process the POST data in a memory efficient fashion.
+; https://php.net/enable-post-data-reading
+;enable_post_data_reading = Off
+
+; Maximum size of POST data that PHP will accept.
+; Its value may be 0 to disable the limit. It is ignored if POST data reading
+; is disabled through enable_post_data_reading.
+; https://php.net/post-max-size
+post_max_size = 8M
+
+; Automatically add files before PHP document.
+; https://php.net/auto-prepend-file
+auto_prepend_file =
+
+; Automatically add files after PHP document.
+; https://php.net/auto-append-file
+auto_append_file =
+
+; By default, PHP will output a media type using the Content-Type header. To
+; disable this, simply set it to be empty.
+;
+; PHP's built-in default media type is set to text/html.
+; https://php.net/default-mimetype
+default_mimetype = "text/html"
+
+; PHP's default character set is set to UTF-8.
+; https://php.net/default-charset
+default_charset = "UTF-8"
+
+; PHP internal character encoding is set to empty.
+; If empty, default_charset is used.
+; https://php.net/internal-encoding
+;internal_encoding =
+
+; PHP input character encoding is set to empty.
+; If empty, default_charset is used.
+; https://php.net/input-encoding
+;input_encoding =
+
+; PHP output character encoding is set to empty.
+; If empty, default_charset is used.
+; See also output_buffer.
+; https://php.net/output-encoding
+;output_encoding =
+
+;;;;;;;;;;;;;;;;;;;;;;;;;
+; Paths and Directories ;
+;;;;;;;;;;;;;;;;;;;;;;;;;
+
+; UNIX: "/path1:/path2"
+;include_path = ".:/php/includes"
+;
+; Windows: "\path1;\path2"
+;include_path = ".;c:\php\includes"
+;
+; PHP's default setting for include_path is ".;/path/to/php/pear"
+; https://php.net/include-path
+
+; The root of the PHP pages, used only if nonempty.
+; if PHP was not compiled with FORCE_REDIRECT, you SHOULD set doc_root
+; if you are running php as a CGI under any web server (other than IIS)
+; see documentation for security issues. The alternate is to use the
+; cgi.force_redirect configuration below
+; https://php.net/doc-root
+doc_root =
+
+; The directory under which PHP opens the script using /~username used only
+; if nonempty.
+; https://php.net/user-dir
+user_dir =
+
+; Directory in which the loadable extensions (modules) reside.
+; https://php.net/extension-dir
+;extension_dir = "./"
+; On windows:
+;extension_dir = "ext"
+
+; Directory where the temporary files should be placed.
+; Defaults to the system default (see sys_get_temp_dir)
+;sys_temp_dir = "/tmp"
+
+; Whether or not to enable the dl() function. The dl() function does NOT work
+; properly in multithreaded servers, such as IIS or Zeus, and is automatically
+; disabled on them.
+; https://php.net/enable-dl
+enable_dl = Off
+
+; cgi.force_redirect is necessary to provide security running PHP as a CGI under
+; most web servers. Left undefined, PHP turns this on by default. You can
+; turn it off here AT YOUR OWN RISK
+; **You CAN safely turn this off for IIS, in fact, you MUST.**
+; https://php.net/cgi.force-redirect
+;cgi.force_redirect = 1
+
+; if cgi.nph is enabled it will force cgi to always sent Status: 200 with
+; every request. PHP's default behavior is to disable this feature.
+;cgi.nph = 1
+
+; if cgi.force_redirect is turned on, and you are not running under Apache or Netscape
+; (iPlanet) web servers, you MAY need to set an environment variable name that PHP
+; will look for to know it is OK to continue execution. Setting this variable MAY
+; cause security issues, KNOW WHAT YOU ARE DOING FIRST.
+; https://php.net/cgi.redirect-status-env
+;cgi.redirect_status_env =
+
+; cgi.fix_pathinfo provides *real* PATH_INFO/PATH_TRANSLATED support for CGI. PHP's
+; previous behaviour was to set PATH_TRANSLATED to SCRIPT_FILENAME, and to not grok
+; what PATH_INFO is. For more information on PATH_INFO, see the cgi specs. Setting
+; this to 1 will cause PHP CGI to fix its paths to conform to the spec. A setting
+; of zero causes PHP to behave as before. Default is 1. You should fix your scripts
+; to use SCRIPT_FILENAME rather than PATH_TRANSLATED.
+; https://php.net/cgi.fix-pathinfo
+;cgi.fix_pathinfo=1
+
+; if cgi.discard_path is enabled, the PHP CGI binary can safely be placed outside
+; of the web tree and people will not be able to circumvent .htaccess security.
+;cgi.discard_path=1
+
+; FastCGI under IIS supports the ability to impersonate
+; security tokens of the calling client. This allows IIS to define the
+; security context that the request runs under. mod_fastcgi under Apache
+; does not currently support this feature (03/17/2002)
+; Set to 1 if running under IIS. Default is zero.
+; https://php.net/fastcgi.impersonate
+;fastcgi.impersonate = 1
+
+; Disable logging through FastCGI connection. PHP's default behavior is to enable
+; this feature.
+;fastcgi.logging = 0
+
+; cgi.rfc2616_headers configuration option tells PHP what type of headers to
+; use when sending HTTP response code. If set to 0, PHP sends Status: header that
+; is supported by Apache. When this option is set to 1, PHP will send
+; RFC2616 compliant header.
+; Default is zero.
+; https://php.net/cgi.rfc2616-headers
+;cgi.rfc2616_headers = 0
+
+; cgi.check_shebang_line controls whether CGI PHP checks for line starting with #!
+; (shebang) at the top of the running script. This line might be needed if the
+; script support running both as stand-alone script and via PHP CGI<. PHP in CGI
+; mode skips this line and ignores its content if this directive is turned on.
+; https://php.net/cgi.check-shebang-line
+;cgi.check_shebang_line=1
+
+;;;;;;;;;;;;;;;;
+; File Uploads ;
+;;;;;;;;;;;;;;;;
+
+; Whether to allow HTTP file uploads.
+; https://php.net/file-uploads
+file_uploads = On
+
+; Temporary directory for HTTP uploaded files (will use system default if not
+; specified).
+; https://php.net/upload-tmp-dir
+;upload_tmp_dir =
+
+; Maximum allowed size for uploaded files.
+; https://php.net/upload-max-filesize
+upload_max_filesize = 2M
+
+; Maximum number of files that can be uploaded via a single request
+max_file_uploads = 20
+
+;;;;;;;;;;;;;;;;;;
+; Fopen wrappers ;
+;;;;;;;;;;;;;;;;;;
+
+; Whether to allow the treatment of URLs (like http:// or ftp://) as files.
+; https://php.net/allow-url-fopen
+allow_url_fopen = On
+
+; Whether to allow include/require to open URLs (like https:// or ftp://) as files.
+; https://php.net/allow-url-include
+allow_url_include = Off
+
+; Define the anonymous ftp password (your email address). PHP's default setting
+; for this is empty.
+; https://php.net/from
+;from="john@doe.com"
+
+; Define the User-Agent string. PHP's default setting for this is empty.
+; https://php.net/user-agent
+;user_agent="PHP"
+
+; Default timeout for socket based streams (seconds)
+; https://php.net/default-socket-timeout
+default_socket_timeout = 60
+
+; If your scripts have to deal with files from Macintosh systems,
+; or you are running on a Mac and need to deal with files from
+; unix or win32 systems, setting this flag will cause PHP to
+; automatically detect the EOL character in those files so that
+; fgets() and file() will work regardless of the source of the file.
+; https://php.net/auto-detect-line-endings
+;auto_detect_line_endings = Off
+
+;;;;;;;;;;;;;;;;;;;;;;
+; Dynamic Extensions ;
+;;;;;;;;;;;;;;;;;;;;;;
+
+; If you wish to have an extension loaded automatically, use the following
+; syntax:
+;
+; extension=modulename
+;
+; For example:
+;
+; extension=mysqli
+;
+; When the extension library to load is not located in the default extension
+; directory, You may specify an absolute path to the library file:
+;
+; extension=/path/to/extension/mysqli.so
+;
+; Note : The syntax used in previous PHP versions ('extension=<ext>.so' and
+; 'extension='php_<ext>.dll') is supported for legacy reasons and may be
+; deprecated in a future PHP major version. So, when it is possible, please
+; move to the new ('extension=<ext>) syntax.
+
+;;;;
+; Note: packaged extension modules are now loaded via the .ini files
+; found in the directory /etc/php.d; these are loaded by default.
+;;;;
+
+;;;;;;;;;;;;;;;;;;;
+; Module Settings ;
+;;;;;;;;;;;;;;;;;;;
+
+CLI Server
+; Whether the CLI web server uses ANSI color coding in its terminal output.
+cli_server.color = On
+
+Date
+; Defines the default timezone used by the date functions
+; https://php.net/date.timezone
+;date.timezone =
+
+; https://php.net/date.default-latitude
+;date.default_latitude = 31.7667
+
+; https://php.net/date.default-longitude
+;date.default_longitude = 35.2333
+
+; https://php.net/date.sunrise-zenith
+;date.sunrise_zenith = 90.833333
+
+; https://php.net/date.sunset-zenith
+;date.sunset_zenith = 90.833333
+
+filter
+; https://php.net/filter.default
+;filter.default = unsafe_raw
+
+; https://php.net/filter.default-flags
+;filter.default_flags =
+
+iconv
+; Use of this INI entry is deprecated, use global input_encoding instead.
+; If empty, default_charset or input_encoding or iconv.input_encoding is used.
+; The precedence is: default_charset < input_encoding < iconv.input_encoding
+;iconv.input_encoding =
+
+; Use of this INI entry is deprecated, use global internal_encoding instead.
+; If empty, default_charset or internal_encoding or iconv.internal_encoding is used.
+; The precedence is: default_charset < internal_encoding < iconv.internal_encoding
+;iconv.internal_encoding =
+
+; Use of this INI entry is deprecated, use global output_encoding instead.
+; If empty, default_charset or output_encoding or iconv.output_encoding is used.
+; The precedence is: default_charset < output_encoding < iconv.output_encoding
+; To use an output encoding conversion, iconv's output handler must be set
+; otherwise output encoding conversion cannot be performed.
+;iconv.output_encoding =
+
+imap
+; rsh/ssh logins are disabled by default. Use this INI entry if you want to
+; enable them. Note that the IMAP library does not filter mailbox names before
+; passing them to rsh/ssh command, thus passing untrusted data to this function
+; with rsh/ssh enabled is insecure.
+;imap.enable_insecure_rsh=0
+
+intl
+;intl.default_locale =
+; This directive allows you to produce PHP errors when some error
+; happens within intl functions. The value is the level of the error produced.
+; Default is 0, which does not produce any errors.
+;intl.error_level = E_WARNING
+;intl.use_exceptions = 0
+
+sqlite3
+; Directory pointing to SQLite3 extensions
+; https://php.net/sqlite3.extension-dir
+;sqlite3.extension_dir =
+
+; SQLite defensive mode flag (only available from SQLite 3.26+)
+; When the defensive flag is enabled, language features that allow ordinary
+; SQL to deliberately corrupt the database file are disabled. This forbids
+; writing directly to the schema, shadow tables (eg. FTS data tables), or
+; the sqlite_dbpage virtual table.
+; https://www.sqlite.org/c3ref/c_dbconfig_defensive.html
+; (for older SQLite versions, this flag has no use)
+;sqlite3.defensive = 1
+
+Pcre
+; PCRE library backtracking limit.
+; https://php.net/pcre.backtrack-limit
+;pcre.backtrack_limit=100000
+
+; PCRE library recursion limit.
+; Please note that if you set this value to a high number you may consume all
+; the available process stack and eventually crash PHP (due to reaching the
+; stack size limit imposed by the Operating System).
+; https://php.net/pcre.recursion-limit
+;pcre.recursion_limit=100000
+
+; Enables or disables JIT compilation of patterns. This requires the PCRE
+; library to be compiled with JIT support.
+pcre.jit=0
+
+Pdo
+; Whether to pool ODBC connections. Can be one of "strict", "relaxed" or "off"
+; https://php.net/pdo-odbc.connection-pooling
+;pdo_odbc.connection_pooling=strict
+
+Pdo_mysql
+; Default socket name for local MySQL connects. If empty, uses the built-in
+; MySQL defaults.
+pdo_mysql.default_socket=
+
+Phar
+; https://php.net/phar.readonly
+;phar.readonly = On
+
+; https://php.net/phar.require-hash
+;phar.require_hash = On
+
+;phar.cache_list =
+
+mail function
+; For Unix only. You may supply arguments as well (default: "sendmail -t -i").
+; https://php.net/sendmail-path
+sendmail_path = /usr/sbin/sendmail -t -i
+
+; Force the addition of the specified parameters to be passed as extra parameters
+; to the sendmail binary. These parameters will always replace the value of
+; the 5th parameter to mail().
+;mail.force_extra_parameters =
+
+; Add X-PHP-Originating-Script: that will include uid of the script followed by the filename
+mail.add_x_header = Off
+
+; The path to a log file that will log all mail() calls. Log entries include
+; the full path of the script, line number, To address and headers.
+;mail.log =
+; Log mail to syslog (Event Log on Windows).
+;mail.log = syslog
+
+ODBC
+; https://php.net/odbc.default-db
+;odbc.default_db = Not yet implemented
+
+; https://php.net/odbc.default-user
+;odbc.default_user = Not yet implemented
+
+; https://php.net/odbc.default-pw
+;odbc.default_pw = Not yet implemented
+
+; Controls the ODBC cursor model.
+; Default: SQL_CURSOR_STATIC (default).
+;odbc.default_cursortype
+
+; Allow or prevent persistent links.
+; https://php.net/odbc.allow-persistent
+odbc.allow_persistent = On
+
+; Check that a connection is still valid before reuse.
+; https://php.net/odbc.check-persistent
+odbc.check_persistent = On
+
+; Maximum number of persistent links. -1 means no limit.
+; https://php.net/odbc.max-persistent
+odbc.max_persistent = -1
+
+; Maximum number of links (persistent + non-persistent). -1 means no limit.
+; https://php.net/odbc.max-links
+odbc.max_links = -1
+
+; Handling of LONG fields. Returns number of bytes to variables. 0 means
+; passthru.
+; https://php.net/odbc.defaultlrl
+odbc.defaultlrl = 4096
+
+; Handling of binary data. 0 means passthru, 1 return as is, 2 convert to char.
+; See the documentation on odbc_binmode and odbc_longreadlen for an explanation
+; of odbc.defaultlrl and odbc.defaultbinmode
+; https://php.net/odbc.defaultbinmode
+odbc.defaultbinmode = 1
+
+MySQLi
+
+; Maximum number of persistent links. -1 means no limit.
+; https://php.net/mysqli.max-persistent
+mysqli.max_persistent = -1
+
+; Allow accessing, from PHP's perspective, local files with LOAD DATA statements
+; https://php.net/mysqli.allow_local_infile
+;mysqli.allow_local_infile = On
+
+; It allows the user to specify a folder where files that can be sent via LOAD DATA
+; LOCAL can exist. It is ignored if mysqli.allow_local_infile is enabled.
+;mysqli.local_infile_directory =
+
+; Allow or prevent persistent links.
+; https://php.net/mysqli.allow-persistent
+mysqli.allow_persistent = On
+
+; Maximum number of links. -1 means no limit.
+; https://php.net/mysqli.max-links
+mysqli.max_links = -1
+
+; Default port number for mysqli_connect(). If unset, mysqli_connect() will use
+; the $MYSQL_TCP_PORT or the mysql-tcp entry in /etc/services or the
+; compile-time value defined MYSQL_PORT (in that order). Win32 will only look
+; at MYSQL_PORT.
+; https://php.net/mysqli.default-port
+mysqli.default_port = 3306
+
+; Default socket name for local MySQL connects. If empty, uses the built-in
+; MySQL defaults.
+; https://php.net/mysqli.default-socket
+mysqli.default_socket =
+
+; Default host for mysqli_connect() (doesn't apply in safe mode).
+; https://php.net/mysqli.default-host
+mysqli.default_host =
+
+; Default user for mysqli_connect() (doesn't apply in safe mode).
+; https://php.net/mysqli.default-user
+mysqli.default_user =
+
+; Default password for mysqli_connect() (doesn't apply in safe mode).
+; Note that this is generally a *bad* idea to store passwords in this file.
+; *Any* user with PHP access can run 'echo get_cfg_var("mysqli.default_pw")
+; and reveal this password! And of course, any users with read access to this
+; file will be able to reveal the password as well.
+; https://php.net/mysqli.default-pw
+mysqli.default_pw =
+
+; Allow or prevent reconnect
+mysqli.reconnect = Off
+
+; If this option is enabled, closing a persistent connection will rollback
+; any pending transactions of this connection, before it is put back
+; into the persistent connection pool.
+;mysqli.rollback_on_cached_plink = Off
+
+mysqlnd
+; Enable / Disable collection of general statistics by mysqlnd which can be
+; used to tune and monitor MySQL operations.
+mysqlnd.collect_statistics = On
+
+; Enable / Disable collection of memory usage statistics by mysqlnd which can be
+; used to tune and monitor MySQL operations.
+mysqlnd.collect_memory_statistics = Off
+
+; Records communication from all extensions using mysqlnd to the specified log
+; file.
+; https://php.net/mysqlnd.debug
+;mysqlnd.debug =
+
+; Defines which queries will be logged.
+;mysqlnd.log_mask = 0
+
+; Default size of the mysqlnd memory pool, which is used by result sets.
+;mysqlnd.mempool_default_size = 16000
+
+; Size of a pre-allocated buffer used when sending commands to MySQL in bytes.
+;mysqlnd.net_cmd_buffer_size = 2048
+
+; Size of a pre-allocated buffer used for reading data sent by the server in
+; bytes.
+;mysqlnd.net_read_buffer_size = 32768
+
+; Timeout for network requests in seconds.
+;mysqlnd.net_read_timeout = 31536000
+
+; SHA-256 Authentication Plugin related. File with the MySQL server public RSA
+; key.
+;mysqlnd.sha256_server_public_key =
+
+PostgreSQL
+; Allow or prevent persistent links.
+; https://php.net/pgsql.allow-persistent
+pgsql.allow_persistent = On
+
+; Detect broken persistent links always with pg_pconnect().
+; Auto reset feature requires a little overheads.
+; https://php.net/pgsql.auto-reset-persistent
+pgsql.auto_reset_persistent = Off
+
+; Maximum number of persistent links. -1 means no limit.
+; https://php.net/pgsql.max-persistent
+pgsql.max_persistent = -1
+
+; Maximum number of links (persistent+non persistent). -1 means no limit.
+; https://php.net/pgsql.max-links
+pgsql.max_links = -1
+
+; Ignore PostgreSQL backends Notice message or not.
+; Notice message logging require a little overheads.
+; https://php.net/pgsql.ignore-notice
+pgsql.ignore_notice = 0
+
+; Log PostgreSQL backends Notice message or not.
+; Unless pgsql.ignore_notice=0, module cannot log notice message.
+; https://php.net/pgsql.log-notice
+pgsql.log_notice = 0
+
+bcmath
+; Number of decimal digits for all bcmath functions.
+; https://php.net/bcmath.scale
+bcmath.scale = 0
+
+browscap
+; https://php.net/browscap
+;browscap = extra/browscap.ini
+
+Session
+; Handler used to store/retrieve data.
+; https://php.net/session.save-handler
+session.save_handler = files
+
+; Argument passed to save_handler. In the case of files, this is the path
+; where data files are stored. Note: Windows users have to change this
+; variable in order to use PHP's session functions.
+;
+; The path can be defined as:
+;
+; session.save_path = "N;/path"
+;
+; where N is an integer. Instead of storing all the session files in
+; /path, what this will do is use subdirectories N-levels deep, and
+; store the session data in those directories. This is useful if
+; your OS has problems with many files in one directory, and is
+; a more efficient layout for servers that handle many sessions.
+;
+; NOTE 1: PHP will not create this directory structure automatically.
+; You can use the script in the ext/session dir for that purpose.
+; NOTE 2: See the section on garbage collection below if you choose to
+; use subdirectories for session storage
+;
+; The file storage module creates files using mode 600 by default.
+; You can change that by using
+;
+; session.save_path = "N;MODE;/path"
+;
+; where MODE is the octal representation of the mode. Note that this
+; does not overwrite the process's umask.
+; https://php.net/session.save-path
+
+; RPM note : session directory must be owned by process owner
+; for mod_php, see /etc/httpd/conf.d/php.conf
+; for php-fpm, see /etc/php-fpm.d/*conf
+;session.save_path = "/tmp"
+
+; Whether to use strict session mode.
+; Strict session mode does not accept an uninitialized session ID, and
+; regenerates the session ID if the browser sends an uninitialized session ID.
+; Strict mode protects applications from session fixation via a session adoption
+; vulnerability. It is disabled by default for maximum compatibility, but
+; enabling it is encouraged.
+; https://wiki.php.net/rfc/strict_sessions
+session.use_strict_mode = 0
+
+; Whether to use cookies.
+; https://php.net/session.use-cookies
+session.use_cookies = 1
+
+; https://php.net/session.cookie-secure
+;session.cookie_secure =
+
+; This option forces PHP to fetch and use a cookie for storing and maintaining
+; the session id. We encourage this operation as it's very helpful in combating
+; session hijacking when not specifying and managing your own session id. It is
+; not the be-all and end-all of session hijacking defense, but it's a good start.
+; https://php.net/session.use-only-cookies
+session.use_only_cookies = 1
+
+; Name of the session (used as cookie name).
+; https://php.net/session.name
+session.name = PHPSESSID
+
+; Initialize session on request startup.
+; https://php.net/session.auto-start
+session.auto_start = 0
+
+; Lifetime in seconds of cookie or, if 0, until browser is restarted.
+; https://php.net/session.cookie-lifetime
+session.cookie_lifetime = 0
+
+; The path for which the cookie is valid.
+; https://php.net/session.cookie-path
+session.cookie_path = /
+
+; The domain for which the cookie is valid.
+; https://php.net/session.cookie-domain
+session.cookie_domain =
+
+; Whether or not to add the httpOnly flag to the cookie, which makes it
+; inaccessible to browser scripting languages such as JavaScript.
+; https://php.net/session.cookie-httponly
+session.cookie_httponly =
+
+; Add SameSite attribute to cookie to help mitigate Cross-Site Request Forgery (CSRF/XSRF)
+; Current valid values are "Strict", "Lax" or "None". When using "None",
+; make sure to include the quotes, as `none` is interpreted like `false` in ini files.
+; https://tools.ietf.org/html/draft-west-first-party-cookies-07
+session.cookie_samesite =
+
+; Handler used to serialize data. php is the standard serializer of PHP.
+; https://php.net/session.serialize-handler
+session.serialize_handler = php
+
+; Defines the probability that the 'garbage collection' process is started on every
+; session initialization. The probability is calculated by using gc_probability/gc_divisor,
+; e.g. 1/100 means there is a 1% chance that the GC process starts on each request.
+; Default Value: 1
+; Development Value: 1
+; Production Value: 1
+; https://php.net/session.gc-probability
+session.gc_probability = 1
+
+; Defines the probability that the 'garbage collection' process is started on every
+; session initialization. The probability is calculated by using gc_probability/gc_divisor,
+; e.g. 1/100 means there is a 1% chance that the GC process starts on each request.
+; For high volume production servers, using a value of 1000 is a more efficient approach.
+; Default Value: 100
+; Development Value: 1000
+; Production Value: 1000
+; https://php.net/session.gc-divisor
+session.gc_divisor = 1000
+
+; After this number of seconds, stored data will be seen as 'garbage' and
+; cleaned up by the garbage collection process.
+; https://php.net/session.gc-maxlifetime
+session.gc_maxlifetime = 1440
+
+; NOTE: If you are using the subdirectory option for storing session files
+; (see session.save_path above), then garbage collection does *not*
+; happen automatically. You will need to do your own garbage
+; collection through a shell script, cron entry, or some other method.
+; For example, the following script is the equivalent of setting
+; session.gc_maxlifetime to 1440 (1440 seconds = 24 minutes):
+; find /path/to/sessions -cmin +24 -type f | xargs rm
+
+; Check HTTP Referer to invalidate externally stored URLs containing ids.
+; HTTP_REFERER has to contain this substring for the session to be
+; considered as valid.
+; https://php.net/session.referer-check
+session.referer_check =
+
+; Set to {nocache,private,public,} to determine HTTP caching aspects
+; or leave this empty to avoid sending anti-caching headers.
+; https://php.net/session.cache-limiter
+session.cache_limiter = nocache
+
+; Document expires after n minutes.
+; https://php.net/session.cache-expire
+session.cache_expire = 180
+
+; trans sid support is disabled by default.
+; Use of trans sid may risk your users' security.
+; Use this option with caution.
+; - User may send URL contains active session ID
+; to other person via. email/irc/etc.
+; - URL that contains active session ID may be stored
+; in publicly accessible computer.
+; - User may access your site with the same session ID
+; always using URL stored in browser's history or bookmarks.
+; https://php.net/session.use-trans-sid
+session.use_trans_sid = 0
+
+; Set session ID character length. This value could be between 22 to 256.
+; Shorter length than default is supported only for compatibility reason.
+; Users should use 32 or more chars.
+; https://php.net/session.sid-length
+; Default Value: 32
+; Development Value: 26
+; Production Value: 26
+session.sid_length = 26
+
+; The URL rewriter will look for URLs in a defined set of HTML tags.
+; <form> is special; if you include them here, the rewriter will
+; add a hidden <input> field with the info which is otherwise appended
+; to URLs. <form> tag's action attribute URL will not be modified
+; unless it is specified.
+; Note that all valid entries require a "=", even if no value follows.
+; Default Value: "a=href,area=href,frame=src,form="
+; Development Value: "a=href,area=href,frame=src,form="
+; Production Value: "a=href,area=href,frame=src,form="
+; https://php.net/url-rewriter.tags
+session.trans_sid_tags = "a=href,area=href,frame=src,form="
+
+; URL rewriter does not rewrite absolute URLs by default.
+; To enable rewrites for absolute paths, target hosts must be specified
+; at RUNTIME. i.e. use ini_set()
+; <form> tags is special. PHP will check action attribute's URL regardless
+; of session.trans_sid_tags setting.
+; If no host is defined, HTTP_HOST will be used for allowed host.
+; Example value: php.net,www.php.net,wiki.php.net
+; Use "," for multiple hosts. No spaces are allowed.
+; Default Value: ""
+; Development Value: ""
+; Production Value: ""
+;session.trans_sid_hosts=""
+
+; Define how many bits are stored in each character when converting
+; the binary hash data to something readable.
+; Possible values:
+; 4 (4 bits: 0-9, a-f)
+; 5 (5 bits: 0-9, a-v)
+; 6 (6 bits: 0-9, a-z, A-Z, "-", ",")
+; Default Value: 4
+; Development Value: 5
+; Production Value: 5
+; https://php.net/session.hash-bits-per-character
+session.sid_bits_per_character = 5
+
+; Enable upload progress tracking in $_SESSION
+; Default Value: On
+; Development Value: On
+; Production Value: On
+; https://php.net/session.upload-progress.enabled
+;session.upload_progress.enabled = On
+
+; Cleanup the progress information as soon as all POST data has been read
+; (i.e. upload completed).
+; Default Value: On
+; Development Value: On
+; Production Value: On
+; https://php.net/session.upload-progress.cleanup
+;session.upload_progress.cleanup = On
+
+; A prefix used for the upload progress key in $_SESSION
+; Default Value: "upload_progress_"
+; Development Value: "upload_progress_"
+; Production Value: "upload_progress_"
+; https://php.net/session.upload-progress.prefix
+;session.upload_progress.prefix = "upload_progress_"
+
+; The index name (concatenated with the prefix) in $_SESSION
+; containing the upload progress information
+; Default Value: "PHP_SESSION_UPLOAD_PROGRESS"
+; Development Value: "PHP_SESSION_UPLOAD_PROGRESS"
+; Production Value: "PHP_SESSION_UPLOAD_PROGRESS"
+; https://php.net/session.upload-progress.name
+;session.upload_progress.name = "PHP_SESSION_UPLOAD_PROGRESS"
+
+; How frequently the upload progress should be updated.
+; Given either in percentages (per-file), or in bytes
+; Default Value: "1%"
+; Development Value: "1%"
+; Production Value: "1%"
+; https://php.net/session.upload-progress.freq
+;session.upload_progress.freq = "1%"
+
+; The minimum delay between updates, in seconds
+; Default Value: 1
+; Development Value: 1
+; Production Value: 1
+; https://php.net/session.upload-progress.min-freq
+;session.upload_progress.min_freq = "1"
+
+; Only write session data when session data is changed. Enabled by default.
+; https://php.net/session.lazy-write
+;session.lazy_write = On
+
+Assertion
+; Switch whether to compile assertions at all (to have no overhead at run-time)
+; -1: Do not compile at all
+; 0: Jump over assertion at run-time
+; 1: Execute assertions
+; Changing from or to a negative value is only possible in php.ini! (For turning assertions on and off at run-time, see assert.active, when zend.assertions = 1)
+; Default Value: 1
+; Development Value: 1
+; Production Value: -1
+; https://php.net/zend.assertions
+zend.assertions = -1
+
+; Assert(expr); active by default.
+; https://php.net/assert.active
+;assert.active = On
+
+; Throw an AssertionError on failed assertions
+; https://php.net/assert.exception
+;assert.exception = On
+
+; Issue a PHP warning for each failed assertion. (Overridden by assert.exception if active)
+; https://php.net/assert.warning
+;assert.warning = On
+
+; Don't bail out by default.
+; https://php.net/assert.bail
+;assert.bail = Off
+
+; User-function to be called if an assertion fails.
+; https://php.net/assert.callback
+;assert.callback = 0
+
+mbstring
+; language for internal character representation.
+; This affects mb_send_mail() and mbstring.detect_order.
+; https://php.net/mbstring.language
+;mbstring.language = Japanese
+
+; Use of this INI entry is deprecated, use global internal_encoding instead.
+; internal/script encoding.
+; Some encoding cannot work as internal encoding. (e.g. SJIS, BIG5, ISO-2022-*)
+; If empty, default_charset or internal_encoding or iconv.internal_encoding is used.
+; The precedence is: default_charset < internal_encoding < iconv.internal_encoding
+;mbstring.internal_encoding =
+
+; Use of this INI entry is deprecated, use global input_encoding instead.
+; http input encoding.
+; mbstring.encoding_translation = On is needed to use this setting.
+; If empty, default_charset or input_encoding or mbstring.input is used.
+; The precedence is: default_charset < input_encoding < mbstring.http_input
+; https://php.net/mbstring.http-input
+;mbstring.http_input =
+
+; Use of this INI entry is deprecated, use global output_encoding instead.
+; http output encoding.
+; mb_output_handler must be registered as output buffer to function.
+; If empty, default_charset or output_encoding or mbstring.http_output is used.
+; The precedence is: default_charset < output_encoding < mbstring.http_output
+; To use an output encoding conversion, mbstring's output handler must be set
+; otherwise output encoding conversion cannot be performed.
+; https://php.net/mbstring.http-output
+;mbstring.http_output =
+
+; enable automatic encoding translation according to
+; mbstring.internal_encoding setting. Input chars are
+; converted to internal encoding by setting this to On.
+; Note: Do _not_ use automatic encoding translation for
+; portable libs/applications.
+; https://php.net/mbstring.encoding-translation
+;mbstring.encoding_translation = Off
+
+; automatic encoding detection order.
+; "auto" detect order is changed according to mbstring.language
+; https://php.net/mbstring.detect-order
+;mbstring.detect_order = auto
+
+; substitute_character used when character cannot be converted
+; one from another
+; https://php.net/mbstring.substitute-character
+;mbstring.substitute_character = none
+
+; Enable strict encoding detection.
+;mbstring.strict_detection = Off
+
+; This directive specifies the regex pattern of content types for which mb_output_handler()
+; is activated.
+; Default: mbstring.http_output_conv_mimetypes=^(text/|application/xhtml\+xml)
+;mbstring.http_output_conv_mimetypes=
+
+; This directive specifies maximum stack depth for mbstring regular expressions. It is similar
+; to the pcre.recursion_limit for PCRE.
+;mbstring.regex_stack_limit=100000
+
+; This directive specifies maximum retry count for mbstring regular expressions. It is similar
+; to the pcre.backtrack_limit for PCRE.
+;mbstring.regex_retry_limit=1000000
+
+gd
+; Tell the jpeg decode to ignore warnings and try to create
+; a gd image. The warning will then be displayed as notices
+; disabled by default
+; https://php.net/gd.jpeg-ignore-warning
+;gd.jpeg_ignore_warning = 1
+
+exif
+; Exif UNICODE user comments are handled as UCS-2BE/UCS-2LE and JIS as JIS.
+; With mbstring support this will automatically be converted into the encoding
+; given by corresponding encode setting. When empty mbstring.internal_encoding
+; is used. For the decode settings you can distinguish between motorola and
+; intel byte order. A decode setting cannot be empty.
+; https://php.net/exif.encode-unicode
+;exif.encode_unicode = ISO-8859-15
+
+; https://php.net/exif.decode-unicode-motorola
+;exif.decode_unicode_motorola = UCS-2BE
+
+; https://php.net/exif.decode-unicode-intel
+;exif.decode_unicode_intel = UCS-2LE
+
+; https://php.net/exif.encode-jis
+;exif.encode_jis =
+
+; https://php.net/exif.decode-jis-motorola
+;exif.decode_jis_motorola = JIS
+
+; https://php.net/exif.decode-jis-intel
+;exif.decode_jis_intel = JIS
+
+Tidy
+; The path to a default tidy configuration file to use when using tidy
+; https://php.net/tidy.default-config
+;tidy.default_config = /usr/local/lib/php/default.tcfg
+
+; Should tidy clean and repair output automatically?
+; WARNING: Do not use this option if you are generating non-html content
+; such as dynamic images
+; https://php.net/tidy.clean-output
+tidy.clean_output = Off
+
+soap
+; Enables or disables WSDL caching feature.
+; https://php.net/soap.wsdl-cache-enabled
+soap.wsdl_cache_enabled=1
+
+; Sets the directory name where SOAP extension will put cache files.
+; https://php.net/soap.wsdl-cache-dir
+
+; RPM note : cache directory must be owned by process owner
+; for mod_php, see /etc/httpd/conf.d/php.conf
+; for php-fpm, see /etc/php-fpm.d/*conf
+soap.wsdl_cache_dir="/tmp"
+
+; (time to live) Sets the number of second while cached file will be used
+; instead of original one.
+; https://php.net/soap.wsdl-cache-ttl
+soap.wsdl_cache_ttl=86400
+
+; Sets the size of the cache limit. (Max. number of WSDL files to cache)
+soap.wsdl_cache_limit = 5
+
+sysvshm
+; A default size of the shared memory segment
+;sysvshm.init_mem = 10000
+
+ldap
+; Sets the maximum number of open links or -1 for unlimited.
+ldap.max_links = -1
+
+dba
+;dba.default_handler=
+
+opcache
+; see /etc/php.d/10-opcache.ini
+
+curl
+; A default value for the CURLOPT_CAINFO option. This is required to be an
+; absolute path.
+;curl.cainfo =
+
+openssl
+; The location of a Certificate Authority (CA) file on the local filesystem
+; to use when verifying the identity of SSL/TLS peers. Most users should
+; not specify a value for this directive as PHP will attempt to use the
+; OS-managed cert stores in its absence. If specified, this value may still
+; be overridden on a per-stream basis via the "cafile" SSL stream context
+; option.
+;openssl.cafile=
+
+; If openssl.cafile is not specified or if the CA file is not found, the
+; directory pointed to by openssl.capath is searched for a suitable
+; certificate. This value must be a correctly hashed certificate directory.
+; Most users should not specify a value for this directive as PHP will
+; attempt to use the OS-managed cert stores in its absence. If specified,
+; this value may still be overridden on a per-stream basis via the "capath"
+; SSL stream context option.
+;openssl.capath=
+
+ffi
+; see /etc/php.d/20-ffi.ini

php.modconf Added

Build Results
RPM Lint

Refresh

Submit package home:mollekopf...ab:Winterfell / php-PsrLog to package Kolab:16:Testing / php-PsrLog

php-PsrLog.spec Added

@@ -0,0 +1,195 @@
+#
+# Fedora spec file for php-PsrLog
+#
+# Copyright (c) 2013-2021 Shawn Iwinski <shawn.iwinski@gmail.com>
+#
+# License: MIT
+# http://opensource.org/licenses/MIT
+#
+# Please preserve the changelog entries
+#
+
+%global github_owner php-fig
+%global github_name log
+%global github_version 1.1.4
+%global github_commit d49695b909c3b7628b6289db5479a1c204601f11
+
+%global composer_vendor psr
+%global composer_project log
+
+%{!?phpdir: %global phpdir %{_datadir}/php}
+
+Name: php-PsrLog
+Version: %{github_version}
+Release: 2%{?dist}
+Summary: Common interface for logging libraries
+
+License: MIT
+URL: https://www.php-fig.org/psr/psr-3/
+Source0: https://github.com/%{github_owner}/%{github_name}/archive/%{github_commit}/%{name}-%{github_version}-%{github_commit}.tar.gz
+
+BuildArch: noarch
+# For tests
+BuildRequires: php-cli
+# Autoloader
+BuildRequires: php-composer(fedora/autoloader)
+
+Requires: php(language) >= 5.3.0
+# phpcompatinfo requires (computed from version 1.1.0)
+Requires: php-date
+Requires: php-pcre
+Requires: php-spl
+# Autoloader
+Requires: php-composer(fedora/autoloader)
+
+# php-{COMPOSER_VENDOR}-{COMPOSER_PROJECT}
+Provides: php-%{composer_vendor}-%{composer_project} = %{version}-%{release}
+# Composer
+Provides: php-composer(%{composer_vendor}/%{composer_project}) = %{version}
+
+
+%description
+This package holds all interfaces/classes/traits related to PSR-3 1.
+
+Note that this is not a logger of its own. It is merely an interface that
+describes a logger. See the specification for more details.
+
+1 https://www.php-fig.org/psr/psr-3/
+
+
+%prep
+%setup -qn %{github_name}-%{github_commit}
+
+: Create autoloader
+cat <<'AUTOLOAD' | tee Psr/Log/autoload.php
+<?php
+/**
+ * Autoloader for %{name} and its' dependencies
+ * (created by %{name}-%{version}-%{release}).
+ *
+ * @return \Symfony\Component\ClassLoader\ClassLoader
+ */
+
+if (!class_exists('Fedora\\Autoloader\\Autoload', false)) {
+ require_once '%{phpdir}/Fedora/Autoloader/autoload.php';
+}
+
+\Fedora\Autoloader\Autoload::addPsr4('Psr\\Log\\', __DIR__);
+AUTOLOAD
+
+
+%build
+# Empty build section, nothing to build
+
+
+%install
+mkdir -p %{buildroot}%{_datadir}/php
+cp -rp Psr %{buildroot}%{_datadir}/php/
+
+
+%check
+: Check if our autoloader works
+php -r '
+require "%{buildroot}%{_datadir}/php/Psr/Log/autoload.php";
+$a = new Psr\Log\NullLogger();
+echo "Ok\n";
+exit(0);
+'
+
+
+%files
+%{!?_licensedir:%global license %%doc}
+%license LICENSE
+%doc README.md
+%doc composer.json
+%dir %{_datadir}/php/Psr
+ %{_datadir}/php/Psr/Log
+
+
+%changelog
+* Fri Jul 23 2021 Fedora Release Engineering <releng@fedoraproject.org> - 1.1.4-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_35_Mass_Rebuild
+
+* Mon May 3 2021 Remi Collet <remi@remirepo.net> - 1.1.4-1
+- update to 1.1.4
+
+* Wed Jan 27 2021 Fedora Release Engineering <releng@fedoraproject.org> - 1.1.3-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_34_Mass_Rebuild
+
+* Tue Jul 28 2020 Fedora Release Engineering <releng@fedoraproject.org> - 1.1.3-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_33_Mass_Rebuild
+
+* Tue Mar 24 2020 Remi Collet <remi@remirepo.net> - 1.1.3-1
+- update to 1.1.3
+
+* Thu Jan 30 2020 Fedora Release Engineering <releng@fedoraproject.org> - 1.1.2-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_32_Mass_Rebuild
+
+* Mon Nov 4 2019 Remi Collet <remi@remirepo.net> - 1.1.2-1
+- update to 1.1.2
+
+* Fri Oct 25 2019 Remi Collet <remi@remirepo.net> - 1.1.1-1
+- update to 1.1.1
+
+* Fri Jul 26 2019 Fedora Release Engineering <releng@fedoraproject.org> - 1.1.0-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_31_Mass_Rebuild
+
+* Sat Feb 02 2019 Fedora Release Engineering <releng@fedoraproject.org> - 1.1.0-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_30_Mass_Rebuild
+
+* Thu Nov 22 2018 Remi Collet <remi@remirepo.net> - 1.1.0-1
+- update to 1.1.0
+
+* Fri Jul 13 2018 Fedora Release Engineering <releng@fedoraproject.org> - 1.0.2-6
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_29_Mass_Rebuild
+
+* Fri Feb 09 2018 Fedora Release Engineering <releng@fedoraproject.org> - 1.0.2-5
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_28_Mass_Rebuild
+
+* Thu Jul 27 2017 Fedora Release Engineering <releng@fedoraproject.org> - 1.0.2-4
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Mass_Rebuild
+
+* Sat Feb 11 2017 Fedora Release Engineering <releng@fedoraproject.org> - 1.0.2-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_26_Mass_Rebuild
+
+* Fri Oct 21 2016 Remi Collet <remi@fedoraproject.org> - 1.0.2-2
+- update to 1.0.2
+- switch from symfony/class-loader to fedora/autoloader
+- add minimal %%check for autoloader
+
+* Sun Sep 25 2016 Shawn Iwinski <shawn.iwinski@gmail.com> - 1.0.1-1
+- Updated to 1.0.1 (RHBZ #1377513)
+
+* Thu Feb 04 2016 Fedora Release Engineering <releng@fedoraproject.org> - 1.0.0-10
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_24_Mass_Rebuild
+
+* Wed Jan 20 2016 Shawn Iwinski <shawn.iwinski@gmail.com> - 1.0.0-9
+- Added php-{COMPOSER_VENDOR}-{COMPOSER_PROJECT} ("php-psr-log") virtual provide
+- %%license usage
+
+* Mon Nov 16 2015 Shawn Iwinski <shawn.iwinski@gmail.com> - 1.0.0-8
+- Added autoloader
+
+* Thu Jun 18 2015 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 1.0.0-7
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_23_Mass_Rebuild
+
+* Sat Jun 07 2014 Shawn Iwinski <shawn.iwinski@gmail.com> - 1.0.0-6
+- Replaced single-use %%composer_vendor and %%composer_project
+
+* Fri Jun 06 2014 Shawn Iwinski <shawn.iwinski@gmail.com> - 1.0.0-5
+- Updated URL
+- Requires php-common => php(language)
+- Added php-composer(%%{composer_vendor}/%%{composer_project}) virtual provide
+
+* Sun Aug 04 2013 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 1.0.0-4
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_20_Mass_Rebuild
+
+* Thu Feb 14 2013 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 1.0.0-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_19_Mass_Rebuild
+
+* Tue Jan 22 2013 Shawn Iwinski <shawn.iwinski@gmail.com> - 1.0.0-2
+- Updated URL
+- Added php-date require
+
+* Thu Jan 10 2013 Shawn Iwinski <shawn.iwiinski@gmail.com> - 1.0.0-1
+- Initial package

composer.json Added

php-PsrLog-1.1.4-d49695b909c3b7628b6289db5479a1c204601f11.tar.gz Added

Build Results
RPM Lint

Refresh

Submit package home:mollekopf:...olab:Winterfell / phpunit to package Kolab:16:Testing / phpunit

phpunit.spec Added

@@ -0,0 +1,1083 @@
+# remirepo/fedora spec file for php-phpunit-PHPUnit
+#
+# Copyright (c) 2010-2021 Remi Collet
+# Copyright (c) 2006-2009 Christopher Stone
+#
+# License: MIT
+# http://opensource.org/licenses/MIT
+#
+# Please, preserve the changelog entries
+#
+
+# For compatibility with SCL
+%undefine __brp_mangle_shebangs
+
+%global gh_commit b7803aeca3ccb99ad0a506fa80b64cd6a56bbc0c
+#global gh_date 20150927
+%global gh_short %(c=%{gh_commit}; echo ${c:0:7})
+%global gh_owner sebastianbergmann
+%global gh_project phpunit
+%global php_home %{_datadir}/php
+%global pear_name PHPUnit
+%global pear_channel pear.phpunit.de
+%global major 5.7
+%global minor 27
+
+Name: php-phpunit-PHPUnit
+Version: %{major}.%{minor}
+Release: 13%{?dist}
+Summary: The PHP Unit Testing framework version 5
+
+License: BSD
+URL: https://github.com/%{gh_owner}/%{gh_project}
+Source0: https://github.com/%{gh_owner}/%{gh_project}/archive/%{gh_commit}/%{name}-%{version}-%{gh_short}.tar.gz
+
+# Autoload template, from version 3.7
+Source2: %{gh_project}-5.4.0-Autoload.php.in
+
+# Fix command for autoload
+Patch0: %{gh_project}-rpm.patch
+# Minimal fix for PHP 8
+Patch1: %{gh_project}-php8.patch
+
+BuildArch: noarch
+BuildRequires: php(language) >= 5.6
+BuildRequires: %{_bindir}/phpab
+# remirepo:1
+%if 0%{?fedora} >= 27 || 0%{?rhel} >= 8
+BuildRequires: (php-composer(phpunit/php-file-iterator) >= 1.4 with php-composer(phpunit/php-file-iterator) < 2)
+BuildRequires: (php-composer(phpunit/php-text-template) >= 1.2 with php-composer(phpunit/php-text-template) < 2)
+BuildRequires: (php-composer(phpunit/php-code-coverage) >= 4.0.4 with php-composer(phpunit/php-code-coverage) < 5)
+BuildRequires: (php-composer(phpunit/php-timer) >= 1.0.6 with php-composer(phpunit/php-timer) < 2)
+BuildRequires: (php-composer(phpunit/phpunit-mock-objects) >= 3.2 with php-composer(phpunit/phpunit-mock-objects) < 4)
+BuildRequires: (php-composer(phpspec/prophecy) >= 1.6.2 with php-composer(phpspec/prophecy) < 2)
+BuildRequires: (php-composer(sebastian/comparator) >= 1.2.4 with php-composer(sebastian/comparator) < 2)
+BuildRequires: (php-composer(sebastian/diff) >= 1.4.3 with php-composer(sebastian/diff) < 2)
+BuildRequires: (php-composer(sebastian/environment) >= 1.3.4 with php-composer(sebastian/environment) < 3)
+BuildRequires: (php-composer(sebastian/exporter) >= 2.0 with php-composer(sebastian/exporter) < 3)
+BuildRequires: (php-composer(sebastian/global-state) >= 1.1 with php-composer(sebastian/global-state) < 2)
+BuildRequires: (php-composer(sebastian/object-enumerator) >= 2.0 with php-composer(sebastian/object-enumerator) < 3)
+BuildRequires: (php-composer(sebastian/resource-operations) >= 1.0 with php-composer(sebastian/resource-operations) < 2)
+BuildRequires: (php-composer(sebastian/version) >= 2.0.1 with php-composer(sebastian/version) < 3)
+BuildRequires: (php-composer(myclabs/deep-copy) >= 1.3 with php-composer(myclabs/deep-copy) < 2)
+BuildRequires: (php-composer(phpunit/php-invoker) >= 1.1 with php-composer(phpunit/php-invoker) < 2)
+BuildRequires: (php-composer(doctrine/instantiator) >= 1.0.4 with php-composer(doctrine/instantiator) < 2)
+BuildRequires: (php-composer(sebastian/recursion-context) >= 2.0 with php-composer(sebastian/recursion-context) < 3)
+# remirepo:20
+%else
+BuildRequires: php-phpunit-File-Iterator >= 1.4
+BuildRequires: php-phpunit-Text-Template >= 1.2
+BuildRequires: php-phpunit-PHP-CodeCoverage >= 4.0.4
+BuildRequires: php-phpunit-PHP-Timer >= 1.0.6
+BuildRequires: php-phpunit-PHPUnit-MockObject >= 3.2
+BuildRequires: php-phpspec-prophecy >= 1.6.2
+BuildRequires: php-phpunit-comparator >= 1.2.4
+BuildRequires: php-phpunit-diff >= 1.4.3
+BuildRequires: php-phpunit-environment >= 1.3.4
+BuildRequires: php-phpunit-exporter
+BuildRequires: php-sebastian-global-state >= 1.1
+BuildRequires: php-sebastian-object-enumerator
+BuildRequires: php-sebastian-resource-operations
+BuildRequires: php-phpunit-Version >= 2.0.1
+BuildRequires: php-myclabs-deep-copy >= 1.3
+BuildRequires: php-phpunit-PHP-Invoker >= 1.1
+BuildRequires: php-doctrine-instantiator >= 1.0.4
+BuildRequires: php-sebastian-recursion-context
+%endif
+BuildRequires: php-symfony4-yaml
+# Autoloader
+BuildRequires: php-composer(fedora/autoloader)
+
+# From composer.json, "require": {
+# "php": "^5.6 || ^7.0",
+# "phpunit/php-file-iterator": "~1.4",
+# "phpunit/php-text-template": "~1.2",
+# "phpunit/php-code-coverage": "^4.0.4",
+# "phpunit/php-timer": "^1.0.6",
+# "phpunit/phpunit-mock-objects": "^3.2",
+# "phpspec/prophecy": "^1.6.2",
+# "symfony/yaml": "~2.1|~3.0|~4.0",
+# "sebastian/comparator": "^1.2.4",
+# "sebastian/diff": "^1.4.3",
+# "sebastian/environment": "^1.3.4 || ^2.0",
+# "sebastian/exporter": "~2.0",
+# "sebastian/global-state": "^1.1",
+# "sebastian/object-enumerator": "~2.0",
+# "sebastian/resource-operations": "~1.0",
+# "sebastian/version": "^1.0.6|^2.0.1",
+# "myclabs/deep-copy": "~1.3",
+# "ext-dom": "*",
+# "ext-json": "*",
+# "ext-mbstring": "*",
+# "ext-xml": "*",
+# "ext-libxml": "*"
+Requires: php(language) >= 5.6
+Requires: php-cli
+# remirepo:1
+%if 0%{?fedora} >= 27 || 0%{?rhel} >= 8
+Requires: (php-composer(phpunit/php-file-iterator) >= 1.4 with php-composer(phpunit/php-file-iterator) < 2)
+Requires: (php-composer(phpunit/php-text-template) >= 1.2 with php-composer(phpunit/php-text-template) < 2)
+Requires: (php-composer(phpunit/php-code-coverage) >= 4.0.4 with php-composer(phpunit/php-code-coverage) < 5)
+Requires: (php-composer(phpunit/php-timer) >= 1.0.6 with php-composer(phpunit/php-timer) < 2)
+Requires: (php-composer(phpunit/phpunit-mock-objects) >= 3.2 with php-composer(phpunit/phpunit-mock-objects) < 4)
+Requires: (php-composer(phpspec/prophecy) >= 1.6.2 with php-composer(phpspec/prophecy) < 2)
+Requires: (php-composer(sebastian/comparator) >= 1.2.4 with php-composer(sebastian/comparator) < 2)
+Requires: (php-composer(sebastian/diff) >= 1.4.3 with php-composer(sebastian/diff) < 2)
+Requires: (php-composer(sebastian/environment) >= 1.3.4 with php-composer(sebastian/environment) < 3)
+Requires: (php-composer(sebastian/exporter) >= 2.0 with php-composer(sebastian/exporter) < 3)
+Requires: (php-composer(sebastian/global-state) >= 1.1 with php-composer(sebastian/global-state) < 2)
+Requires: (php-composer(sebastian/object-enumerator) >= 2.0 with php-composer(sebastian/object-enumerator) < 3)
+Requires: (php-composer(sebastian/resource-operations) >= 1.0 with php-composer(sebastian/resource-operations) < 2)
+Requires: (php-composer(sebastian/version) >= 2.0.1 with php-composer(sebastian/version) < 3)
+Requires: (php-composer(myclabs/deep-copy) >= 1.3 with php-composer(myclabs/deep-copy) < 2)
+# Supported versions
+Recommends: phpunit8
+Recommends: phpunit9
+# remirepo:17
+%else
+Requires: php-phpunit-File-Iterator >= 1.4
+Requires: php-phpunit-Text-Template >= 1.2
+Requires: php-phpunit-PHP-CodeCoverage >= 4.0.4
+Requires: php-phpunit-PHP-Timer >= 1.0.6
+Requires: php-phpunit-PHPUnit-MockObject >= 3.2
+Requires: php-phpspec-prophecy >= 1.6.2
+Requires: php-phpunit-comparator >= 1.2.4
+Requires: php-phpunit-diff >= 1.4.3
+Requires: php-phpunit-environment >= 1.3.4
+Requires: php-phpunit-exporter
+Requires: php-sebastian-global-state >= 1.1
+Requires: php-sebastian-object-enumerator
+Requires: php-sebastian-resource-operations
+Requires: php-phpunit-Version >= 2.0.1
+Requires: php-myclabs-deep-copy >= 1.3
+%endif
+Requires: php-symfony4-yaml
+Requires: php-dom
+Requires: php-json
+Requires: php-mbstring
+Requires: php-xml
+Requires: php-libxml
+# From composer.json, "suggest": {
+# "phpunit/php-invoker": "~1.1",
+# "ext-xdebug": "*"
+# remirepo:1
+%if 0%{?fedora} >= 27 || 0%{?rhel} >= 8
+Requires: (php-composer(phpunit/php-invoker) >= 1.1 with php-composer(phpunit/php-invoker) < 2)
+# For our autoload patch
+Requires: (php-composer(doctrine/instantiator) >= 1.0.4 with php-composer(doctrine/instantiator) < 2)
+Requires: (php-composer(sebastian/recursion-context) >= 2.0 with php-composer(sebastian/recursion-context) < 3)
+# remirepo:5
+%else
+Requires: php-phpunit-PHP-Invoker >= 1.1
+Requires: php-doctrine-instantiator >= 1.0.4
+Requires: php-sebastian-recursion-context
+%endif
+Requires: php-composer(fedora/autoloader)
+# From phpcompatinfo report for version 5.6.0
+Requires: php-reflection
+Requires: php-openssl
+Requires: php-pcntl
+Requires: php-pcre
+Requires: php-phar
+Requires: php-spl
+
+
+Provides: php-composer(phpunit/phpunit) = %{version}
+# For compatibility with PEAR mode
+Provides: php-pear(%{pear_channel}/%{pear_name}) = %{version}
+# Package have been rename
+Obsoletes: php-pear-PHPUnit < 4
+Provides: php-pear-PHPUnit = %{version}-%{release}
+# Project
+Provides: phpunit = %{version}-%{release}
+
+
+%description
+PHPUnit is a family of PEAR packages that supports the development of
+object-oriented PHP applications using the concepts and methods of Agile
+Software Development, Extreme Programming, Test-Driven Development and
+Design-by-Contract Development by providing an elegant and robust framework
+for the creation, execution and analysis of Unit Tests.
+
+This package provides the version 5 of PHPUnit,
+available using the phpunit command.
+
+This version have reached its end of life in Feb 2018,
+so consider using a supported version,
+see https://phpunit.de/supported-versions.html
+
+Documentation: https://phpunit.readthedocs.io/
+
+
+%prep
+%setup -q -n %{gh_project}-%{gh_commit}
+
+%patch0 -p1 -b .rpm
+# Restore PSR-0 tree
+mv src PHPUnit
+%patch1 -p1 -b .php8
+
+find . $ -name \*.rpm -o -name \*.php8 $ -delete -print
+
+
+
+%build
+%{_bindir}/phpab \
+ --output PHPUnit/Autoload.php \
+ --template %{SOURCE2} \
+ PHPUnit
+
+%{_bindir}/phpab \
+ --output tests/autoload.php \
+ --exclude '*/BankAccountTest2.php' \
+ --exclude '*/Regression/Trac/783/OneTest.php' \
+ tests
+
+
+%install
+mkdir -p %{buildroot}%{php_home}
+cp -pr PHPUnit %{buildroot}%{php_home}/PHPUnit
+
+install -D -p -m 755 phpunit %{buildroot}%{_bindir}/phpunit
+
+
+%check
+OPT="--testsuite=small --no-coverage"
+
+ret=0
+for cmd in php php73 php74 php80; do
+ if which $cmd; then
+ $cmd ./phpunit $OPT --verbose
+ fi
+done
+exit $ret
+
+
+%post
+if -x %{_bindir}/pear ; then
+ %{_bindir}/pear uninstall --nodeps --ignore-errors --register-only \
+ %{pear_channel}/%{pear_name} >/dev/null || :
+fi
+
+
+%files
+%doc README.md composer.json ChangeLog-%{major}.md
+%{!?_licensedir:%global license %%doc}
+%license LICENSE
+
+%{_bindir}/phpunit
+%{php_home}/PHPUnit
+
+
+%changelog
+* Thu Mar 25 2021 Remi Collet <remi@remirepo.net> - 5.7.27-13
+- switch to Symfony 4
+
+* Thu Mar 25 2021 Remi Collet <remi@remirepo.net> - 5.7.27-12
+- recommend using a supported version
+
+* Fri Mar 19 2021 Remi Collet <remi@remirepo.net> - 5.7.27-11
+- add minimal fix for PHP 8
+
+* Mon Mar 18 2019 Remi Collet <remi@remirepo.net> - 5.7.27-6
+- improve package description
+
+* Tue Dec 4 2018 Remi Collet <remi@remirepo.net> - 5.7.27-4
+- cleanup for EL-8
+
+* Tue Feb 20 2018 Remi Collet <remi@remirepo.net> - 5.7.27-3
+- fix autoloader, restrict symfony to Yaml component
+
+* Fri Feb 2 2018 Remi Collet <remi@remirepo.net> - 5.7.27-2
+- use package names on EL and Fedora < 27
+
+* Thu Feb 1 2018 Remi Collet <remi@remirepo.net> - 5.7.27-1
+- Update to 5.7.27
+- raise dependency on sebastian/version 2.0.1
+- undefine __brp_mangle_shebangs
+- use range dependencies on F27+
+
+* Mon Dec 18 2017 Remi Collet <remi@remirepo.net> - 5.7.26-1
+- Update to 5.7.26
+
+* Wed Nov 15 2017 Remi Collet <remi@remirepo.net> - 5.7.25-1
+- Update to 5.7.25
+
+* Sun Oct 15 2017 Remi Collet <remi@remirepo.net> - 5.7.23-1
+- Update to 5.7.23
+
+* Sun Sep 24 2017 Remi Collet <remi@remirepo.net> - 5.7.22-1
+- Update to 5.7.22
+
+* Sat Jun 24 2017 Remi Collet <remi@remirepo.net> - 5.7.21-1
+- Update to 5.7.21
+
+* Mon May 22 2017 Remi Collet <remi@remirepo.net> - 5.7.20-1
+- Update to 5.7.20 (no change)
+- raise dependency on sebastian/diff 1.4.3
+
+* Mon Apr 3 2017 Remi Collet <remi@remirepo.net> - 5.7.19-1
+- Update to 5.7.19
+
+* Mon Mar 20 2017 Remi Collet <remi@remirepo.net> - 5.7.17-1
+- Update to 5.7.17
+
+* Wed Mar 15 2017 Remi Collet <remi@remirepo.net> - 5.7.16-1
+- Update to 5.7.16
+
+* Sat Mar 4 2017 Remi Collet <remi@remirepo.net> - 5.7.15-2
+- fix dependency on sebastian/recursion-context
+
+* Thu Mar 2 2017 Remi Collet <remi@remirepo.net> - 5.7.15-1
+- Update to 5.7.15
+
+* Sun Feb 19 2017 Remi Collet <remi@fedoraproject.org> - 5.7.14-1
+- update to 5.7.14
+
+* Fri Feb 10 2017 Remi Collet <remi@fedoraproject.org> - 5.7.13-1
+- update to 5.7.13
+
+* Wed Feb 8 2017 Remi Collet <remi@fedoraproject.org> - 5.7.12-1
+- update to 5.7.12
+
+* Tue Feb 7 2017 Remi Collet <remi@fedoraproject.org> - 5.7.11-2
+- add max version for some build dependencies
+- only allow Symfony 2
+- handle redirect to composer installed PHPUnit v6
+
+* Sun Feb 5 2017 Remi Collet <remi@fedoraproject.org> - 5.7.11-1
+- update to 5.7.11
+- raise dependency on sebastian/comparator 1.2.4
+- raise dependency on sebastian/global-state 1.1
+
+* Sat Jan 28 2017 Remi Collet <remi@fedoraproject.org> - 5.7.9-1
+- update to 5.7.9
+
+* Fri Jan 27 2017 Remi Collet <remi@fedoraproject.org> - 5.7.8-2
+- add upstream patch
+
+* Thu Jan 26 2017 Remi Collet <remi@fedoraproject.org> - 5.7.8-1
+- update to 5.7.8
+- temporary ignore testNoTestCases
+
+* Thu Jan 26 2017 Remi Collet <remi@fedoraproject.org> - 5.7.7-1
+- update to 5.7.7
+
+* Mon Jan 23 2017 Remi Collet <remi@fedoraproject.org> - 5.7.6-1
+- update to 5.7.6
+
+* Thu Dec 29 2016 Remi Collet <remi@fedoraproject.org> - 5.7.5-1
+- update to 5.7.5
+
+* Wed Dec 14 2016 Remi Collet <remi@fedoraproject.org> - 5.7.4-1
+- update to 5.7.4
+
+* Fri Dec 9 2016 Remi Collet <remi@fedoraproject.org> - 5.7.3-1
+- update to 5.7.3
+- raise dependency on phpspec/prophecy 1.6.2
+
+* Sun Dec 4 2016 Remi Collet <remi@fedoraproject.org> - 5.7.2-1
+- update to 5.7.2
+
+* Fri Dec 2 2016 Remi Collet <remi@fedoraproject.org> - 5.7.1-1
+- update to 5.7.1
+
+* Fri Dec 2 2016 Remi Collet <remi@fedoraproject.org> - 5.7.0-1
+- update to 5.7.0
+
+* Mon Nov 28 2016 Remi Collet <remi@fedoraproject.org> - 5.6.7-1
+- update to 5.6.7
+
+* Tue Nov 22 2016 Remi Collet <remi@fedoraproject.org> - 5.6.5-1
+- update to 5.6.5
+- raise dependency on sebastian/comparator 1.2.2
+- raise dependency on sebastian/exporter 2.0
+- raise dependency on sebastian/object-enumerator 2.0
+
+* Mon Nov 14 2016 Remi Collet <remi@fedoraproject.org> - 5.6.3-1
+- update to 5.6.3
+
+* Mon Oct 31 2016 Remi Collet <remi@fedoraproject.org> - 5.6.2-2
+- fix autoloader (don't use symfony one for symfony components)
+
+* Tue Oct 25 2016 Remi Collet <remi@fedoraproject.org> - 5.6.2-1
+- update to 5.6.2 (no change)
+- switch to fedora/autoloader
+
+* Fri Oct 7 2016 Remi Collet <remi@fedoraproject.org> - 5.6.1-1
+- update to 5.6.1
+
+* Fri Oct 7 2016 Remi Collet <remi@fedoraproject.org> - 5.6.0-1
+- update to 5.6.0
+- drop dependency on php-tidy
+
+* Mon Oct 3 2016 Remi Collet <remi@fedoraproject.org> - 5.5.7-1
+- Update to 5.5.7 (no change)
+- sources from github
+
+* Mon Oct 3 2016 Remi Collet <remi@fedoraproject.org> - 5.5.6-1
+- Update to 5.5.6
+- sources from a git snapshot
+
+* Wed Sep 21 2016 Remi Collet <remi@fedoraproject.org> - 5.5.5-1
+- Update to 5.5.5
+
+* Wed Aug 31 2016 Remi Collet <remi@fedoraproject.org> - 5.5.4-1
+- Update to 5.5.4
+
+* Fri Aug 5 2016 Remi Collet <remi@fedoraproject.org> - 5.5.0-1
+- Update to 5.5.0
+
+* Tue Jul 26 2016 Remi Collet <remi@fedoraproject.org> - 5.4.8-1
+- Update to 5.4.8 (no change)
+- raise dependency on phpunit/php-code-coverage >= 4.0.1
+
+* Thu Jul 21 2016 Remi Collet <remi@fedoraproject.org> - 5.4.7-1
+- Update to 5.4.7
+
+* Thu Jun 16 2016 Remi Collet <remi@fedoraproject.org> - 5.4.6-1
+- Update to 5.4.6 (no change)
+
+* Wed Jun 15 2016 Remi Collet <remi@fedoraproject.org> - 5.4.5-1
+- Update to 5.4.5
+
+* Thu Jun 9 2016 Remi Collet <remi@fedoraproject.org> - 5.4.4-1
+- Update to 5.4.4
+
+* Fri Jun 3 2016 Remi Collet <remi@fedoraproject.org> - 5.4.2-1
+- Update to 5.4.2
+
+* Fri Jun 3 2016 Remi Collet <remi@fedoraproject.org> - 5.4.0-1
+- Update to 5.4.0
+- raise dependency on phpunit/php-code-coverage >= 4.0
+- raise dependency on phpunit/phpunit-mock-objects >= 3.2
+
+* Wed May 11 2016 Remi Collet <remi@fedoraproject.org> - 5.3.4-1
+- Update to 5.3.4
+
+* Wed Apr 13 2016 Remi Collet <remi@fedoraproject.org> - 5.3.2-1
+- Update to 5.3.2
+
+* Thu Apr 7 2016 Remi Collet <remi@fedoraproject.org> - 5.3.1-1
+- Update to 5.3.1
+
+* Fri Apr 1 2016 Remi Collet <remi@fedoraproject.org> - 5.3.0-1
+- Update to 5.3.0
+- add dependency on sebastian/object-enumerator
+- raise dependency on phpunit/phpunit-mock-objects >= 3.1
+
+* Tue Mar 15 2016 Remi Collet <remi@fedoraproject.org> - 5.2.12-1
+- Update to 5.2.12
+
+* Mon Mar 14 2016 Remi Collet <remi@fedoraproject.org> - 5.2.11-1
+- Update to 5.2.11
+
+* Thu Mar 3 2016 Remi Collet <remi@fedoraproject.org> - 5.2.10-1
+- Update to 5.2.10
+- raise dependency on phpunit/php-code-coverage >= 3.3.0
+
+* Fri Feb 19 2016 Remi Collet <remi@fedoraproject.org> - 5.2.9-1
+- Update to 5.2.9
+
+* Thu Feb 18 2016 Remi Collet <remi@fedoraproject.org> - 5.2.8-1
+- Update to 5.2.8
+- raise dependency on phpunit/php-code-coverage >= 3.2.1
+
+* Tue Feb 16 2016 Remi Collet <remi@fedoraproject.org> - 5.2.6-1
+- Update to 5.2.6
+
+* Sat Feb 13 2016 Remi Collet <remi@fedoraproject.org> - 5.2.5-1
+- Update to 5.2.5
+- raise dependency on phpunit/php-code-coverage >= 3.2
+
+* Thu Feb 11 2016 Remi Collet <remi@fedoraproject.org> - 5.2.4-1
+- Update to 5.2.4
+- lower dependency on phpunit/php-code-coverage >= 3.0
+
+* Sun Feb 7 2016 Remi Collet <remi@fedoraproject.org> - 5.2.2-1
+- Update to 5.2.2
+
+* Fri Feb 5 2016 Remi Collet <remi@fedoraproject.org> - 5.2.1-1
+- Update to 5.2.1
+
+* Fri Feb 5 2016 Remi Collet <remi@fedoraproject.org> - 5.2.0-1
+- Update to 5.2.0
+- raise dependency on phpunit/php-code-coverage >= 3.1
+
+* Tue Feb 2 2016 Remi Collet <remi@fedoraproject.org> - 5.1.7-1
+- Update to 5.1.7
+
+* Fri Jan 29 2016 Remi Collet <remi@fedoraproject.org> - 5.1.6-1
+- Update to 5.1.6
+
+* Fri Jan 29 2016 Remi Collet <remi@fedoraproject.org> - 5.1.5-1
+- Update to 5.1.5
+
+* Mon Jan 11 2016 Remi Collet <remi@fedoraproject.org> - 5.1.4-1
+- Update to 5.1.4
+
+* Thu Dec 10 2015 Remi Collet <remi@fedoraproject.org> - 5.1.3-1
+- Update to 5.1.3
+- obsolete php-phpunit-PHPUnit-Selenium
+
+* Mon Dec 7 2015 Remi Collet <remi@fedoraproject.org> - 5.1.2-1
+- Update to 5.1.2
+
+* Thu Dec 3 2015 Remi Collet <remi@fedoraproject.org> - 5.1.0-1
+- Update to 5.1.0
+
+* Mon Nov 30 2015 Remi Collet <remi@fedoraproject.org> - 5.0.10-1
+- Update to 5.0.10
+- run test suite with both PHP 5 and 7 when available
+
+* Wed Nov 11 2015 Remi Collet <remi@fedoraproject.org> - 5.0.9-1
+- Update to 5.0.9
+
+* Fri Oct 23 2015 Remi Collet <remi@fedoraproject.org> - 5.0.8-1
+- Update to 5.0.8 (no change)
+
+* Thu Oct 22 2015 Remi Collet <remi@fedoraproject.org> - 5.0.7-1
+- Update to 5.0.7
+
+* Wed Oct 14 2015 Remi Collet <remi@fedoraproject.org> - 5.0.6-1
+- Update to 5.0.6
+
+* Mon Oct 12 2015 Remi Collet <remi@fedoraproject.org> - 5.0.5-1
+- Update to 5.0.5
+
+* Wed Oct 7 2015 Remi Collet <remi@fedoraproject.org> - 5.0.4-1
+- Update to 5.0.4
+
+* Fri Oct 2 2015 Remi Collet <remi@fedoraproject.org> - 5.0.3-1
+- Update to 5.0.3 (no change)
+
+* Fri Oct 2 2015 Remi Collet <remi@fedoraproject.org> - 5.0.2-1
+- Update to 5.0.2
+
+* Tue Sep 29 2015 Remi Collet <remi@fedoraproject.org> - 5.0.0-0.1.20150927gite3b3f36
+- update to 5.0.0-dev
+- raise dependency on PHP >= 5.6
+- raise dependency on phpunit/php-code-coverage ~3.0
+- raise dependency on phpunit/phpunit-mock-objects ~3.0
+- add dependency on sebastian/resource-operations ~1.0
+- add dependency on myclabs/deep-copy ~1.3
+
+* Sun Sep 27 2015 Remi Collet <remi@fedoraproject.org> - 4.8.9-2
+- add --atleast-version command option, backported from 5.0
+
+* Mon Sep 21 2015 Remi Collet <remi@fedoraproject.org> - 4.8.9-1
+- Update to 4.8.9
+
+* Sun Sep 20 2015 Remi Collet <remi@fedoraproject.org> - 4.8.8-1
+- Update to 4.8.8
+
+* Mon Sep 14 2015 Remi Collet <remi@fedoraproject.org> - 4.8.7-1
+- Update to 4.8.7 (no change)
+
+* Tue Aug 25 2015 Remi Collet <remi@fedoraproject.org> - 4.8.6-1
+- Update to 4.8.6
+
+* Fri Aug 21 2015 Remi Collet <remi@fedoraproject.org> - 4.8.5-1
+- Update to 4.8.5 (no change)
+
+* Sat Aug 15 2015 Remi Collet <remi@fedoraproject.org> - 4.8.4-1
+- Update to 4.8.4
+
+* Mon Aug 10 2015 Remi Collet <remi@fedoraproject.org> - 4.8.3-1
+- Update to 4.8.3
+
+* Fri Aug 7 2015 Remi Collet <remi@fedoraproject.org> - 4.8.2-1
+- Update to 4.8.2
+
+* Fri Aug 7 2015 Remi Collet <remi@fedoraproject.org> - 4.8.1-1
+- Update to 4.8.1 (no change)
+
+* Fri Aug 7 2015 Remi Collet <remi@fedoraproject.org> - 4.8.0-1
+- Update to 4.8.0
+- raise dependency on sebastian/environment 1.3
+- rely on include_path for all dependencies
+- add Changelog in documentation
+
+* Mon Jul 13 2015 Remi Collet <remi@fedoraproject.org> - 4.7.7-1
+- Update to 4.7.7 (no change)
+
+* Tue Jun 30 2015 Remi Collet <remi@fedoraproject.org> - 4.7.6-1
+- Update to 4.7.6
+
+* Tue Jun 30 2015 Remi Collet <remi@fedoraproject.org> - 4.7.5-2
+- use $fedoraClassLoader autoloader
+
+* Sun Jun 21 2015 Remi Collet <remi@fedoraproject.org> - 4.7.5-1
+- Update to 4.7.5
+
+* Thu Jun 18 2015 Remi Collet <remi@fedoraproject.org> - 4.7.4-1
+- Update to 4.7.4
+- raise dependency on phpunit/php-timer >= 1.0.6
+
+* Thu Jun 11 2015 Remi Collet <remi@fedoraproject.org> - 4.7.3-1
+- Update to 4.7.3
+
+* Sun Jun 7 2015 Remi Collet <remi@fedoraproject.org> - 4.7.2-1
+- Update to 4.7.2
+
+* Fri Jun 5 2015 Remi Collet <remi@fedoraproject.org> - 4.7.1-1
+- Update to 4.7.1
+- raise dependency on phpunit/php-code-coverage ~2.1
+- improve autoloader
+
+* Wed Jun 3 2015 Remi Collet <remi@fedoraproject.org> - 4.6.10-1
+- Update to 4.6.10
+
+* Fri May 29 2015 Remi Collet <remi@fedoraproject.org> - 4.6.9-1
+- Update to 4.6.9
+
+* Thu May 28 2015 Remi Collet <remi@fedoraproject.org> - 4.6.8-1
+- Update to 4.6.8 (no change)
+
+* Tue May 26 2015 Remi Collet <remi@fedoraproject.org> - 4.6.7-3
+- ensure compatibility with SCL
+
+* Tue May 26 2015 Remi Collet <remi@fedoraproject.org> - 4.6.7-2
+- detect and redirect to composer installed version #1157910
+
+* Mon May 25 2015 Remi Collet <remi@fedoraproject.org> - 4.6.7-1
+- Update to 4.6.7 (no change)
+
+* Thu Apr 30 2015 Remi Collet <remi@fedoraproject.org> - 4.6.6-1
+- Update to 4.6.6
+
+* Wed Apr 29 2015 Remi Collet <remi@fedoraproject.org> - 4.6.5-1
+- Update to 4.6.5
+
+* Fri Apr 17 2015 Remi Collet <remi@fedoraproject.org> - 4.6.4-2
+- keep upstream shebang with /usr/bin/env (for SCL)
+
+* Mon Apr 13 2015 Remi Collet <remi@fedoraproject.org> - 4.6.4-1
+- Update to 4.6.4
+
+* Tue Apr 7 2015 Remi Collet <remi@fedoraproject.org> - 4.6.2-1
+- Update to 4.6.2
+
+* Fri Apr 3 2015 Remi Collet <remi@fedoraproject.org> - 4.6.1-1
+- Update to 4.6.1
+
+* Fri Apr 3 2015 Remi Collet <remi@fedoraproject.org> - 4.6.0-1
+- Update to 4.6.0
+- raise dependencies on file-iterator 1.4 and diff 1.2
+
+* Sun Mar 29 2015 Remi Collet <remi@fedoraproject.org> - 4.5.1-1
+- Update to 4.5.1
+
+* Fri Feb 13 2015 Remi Collet <remi@fedoraproject.org> - 4.5.0-1
+- Update to 4.5.0
+- add dependency on phpspec/prophecy
+- raise dependencies on sebastian/comparator >= 1.1,
+ sebastian/environment >= 1.2, sebastian/exporter >= 1.2
+ and doctrine/instantiator >= 1.0.4 (for autoloader file)
+
+* Tue Jan 27 2015 Remi Collet <remi@fedoraproject.org> - 4.4.5-1
+- Update to 4.4.5 (no change)
+
+* Tue Jan 27 2015 Remi Collet <remi@fedoraproject.org> - 4.4.4-2
+- add dependency on sebastian/recursion-context
+
+* Sun Jan 25 2015 Remi Collet <remi@fedoraproject.org> - 4.4.4-1
+- Update to 4.4.4
+
+* Sun Jan 18 2015 Remi Collet <remi@fedoraproject.org> - 4.4.2-1
+- Update to 4.4.2
+
+* Sun Dec 28 2014 Remi Collet <remi@fedoraproject.org> - 4.4.1-1
+- Update to 4.4.1
+
+* Fri Dec 5 2014 Remi Collet <remi@fedoraproject.org> - 4.4.0-1
+- Update to 4.4.0
+- add dependency on sebastian/global-state
+
+* Tue Nov 11 2014 Remi Collet <remi@fedoraproject.org> - 4.3.5-1
+- Update to 4.3.5
+- define date.timezone in phpunit command to avoid warning
+
+* Sat Oct 25 2014 Remi Collet <remi@fedoraproject.org> - 4.3.4-1
+- Update to 4.3.4
+- raise dependency on phpunit/php-file-iterator >= 1.3.2
+
+* Fri Oct 17 2014 Remi Collet <remi@fedoraproject.org> - 4.3.3-1
+- Update to 4.3.3
+
+* Thu Oct 16 2014 Remi Collet <remi@fedoraproject.org> - 4.3.2-1
+- Update to 4.3.2
+
+* Wed Oct 8 2014 Remi Collet <remi@fedoraproject.org> - 4.3.1-2
+- new upstream patch for "no colors" patch
+- raise dependency on sebastian/environment >= 1.1
+
+* Mon Oct 6 2014 Remi Collet <remi@fedoraproject.org> - 4.3.1-1
+- Update to 4.3.1 (no change)
+
+* Mon Oct 6 2014 Remi Collet <remi@fedoraproject.org> - 4.3.0-2
+- only enable colors when output to a terminal (from 4.4)
+- open https://github.com/sebastianbergmann/phpunit/pull/1458
+
+* Fri Oct 3 2014 Remi Collet <remi@fedoraproject.org> - 4.3.0-1
+- Update to 4.3.0
+- drop dependencies on ocramius/instantiator and ocramius/lazy-map
+- add dependency on doctrine/instantiator
+- raise dependency on phpunit/phpunit-mock-objects >= 2.3
+
+* Sun Sep 14 2014 Remi Collet <remi@fedoraproject.org> - 4.2.6-1
+- Update to 4.2.6 (no change)
+
+* Sun Sep 7 2014 Remi Collet <remi@fedoraproject.org> - 4.2.5-1
+- Update to 4.2.5 (no change)
+
+* Sun Aug 31 2014 Remi Collet <remi@fedoraproject.org> - 4.2.4-1
+- Update to 4.2.4
+
+* Thu Aug 28 2014 Remi Collet <remi@fedoraproject.org> - 4.2.3-1
+- Update to 4.2.3
+
+* Mon Aug 18 2014 Remi Collet <remi@fedoraproject.org> - 4.2.2-1
+- Update to 4.2.2
+
+* Sun Aug 17 2014 Remi Collet <remi@fedoraproject.org> - 4.2.1-1
+- Update to 4.2.1
+
+* Mon Aug 11 2014 Remi Collet <remi@fedoraproject.org> - 4.2.0-1
+- Update to 4.2.0
+- raise dependency on phpunit/phpunit-mock-objects >= 2.2
+- add dependency on ocramius/instantiator, ocramius/lazy-map
+ and symfony/class-loader
+
+* Fri Jul 18 2014 Remi Collet <remi@fedoraproject.org> - 4.1.4-1
+- Update to 4.1.4
+- composer dependencies
+- add missing documentation and license
+
+* Fri Jun 13 2014 Remi Collet <remi@fedoraproject.org> - 4.1.3-1
+- Update to 4.1.3
+
+* Sat Jun 7 2014 Remi Collet <remi@fedoraproject.org> - 4.1.2-1
+- Update to 4.1.2 (no change)
+- improve test suite bootstraping
+- add composer provide
+
+* Mon May 26 2014 Remi Collet <remi@fedoraproject.org> - 4.1.1-1
+- Update to 4.1.1
+
+* Tue May 6 2014 Remi Collet <remi@fedoraproject.org> - 4.1.0-2
+- fix some autoload issues
+
+* Sat May 3 2014 Remi Collet <remi@fedoraproject.org> - 4.1.0-1
+- Update to 4.1.0
+
+* Wed Apr 30 2014 Remi Collet <remi@fedoraproject.org> - 4.0.18-2
+- cleanup pear registry
+
+* Tue Apr 29 2014 Remi Collet <remi@fedoraproject.org> - 4.0.18-1
+- update to 4.0.18
+- sources from github
+
+* Tue Apr 22 2014 Remi Collet <remi@fedoraproject.org> - 3.7.35-2
+- remove message about deprecated PEAR channel
+
+* Tue Apr 22 2014 Remi Collet <remi@fedoraproject.org> - 3.7.35-1
+- Update to 3.7.35
+
+* Sun Apr 06 2014 Remi Collet <remi@fedoraproject.org> - 3.7.34-1
+- Update to 3.7.34
+
+* Tue Feb 25 2014 Remi Collet <remi@fedoraproject.org> - 3.7.32-1
+- Update to 3.7.32 (no change)
+
+* Mon Feb 03 2014 Remi Collet <remi@fedoraproject.org> - 3.7.31-1
+- Update to 3.7.31 (no change)
+
+* Fri Jan 31 2014 Remi Collet <remi@fedoraproject.org> - 3.7.30-1
+- Update to 3.7.30
+
+* Wed Jan 15 2014 Remi Collet <remi@fedoraproject.org> - 3.7.29-1
+- Update to 3.7.29 (stable)
+
+* Thu Oct 17 2013 Remi Collet <remi@fedoraproject.org> - 3.7.28-1
+- Update to 3.7.28
+- add Spec license header
+- open https://github.com/sebastianbergmann/phpunit/issues/1029
+
+* Mon Sep 16 2013 Remi Collet <remi@fedoraproject.org> - 3.7.27-1
+- Update to 3.7.27 (no change)
+
+* Fri Sep 13 2013 Remi Collet <remi@fedoraproject.org> - 3.7.26-1
+- Update to 3.7.26 (no change)
+
+* Tue Sep 10 2013 Remi Collet <remi@fedoraproject.org> - 3.7.25-1
+- Update to 3.7.25 (no change)
+
+* Tue Aug 20 2013 Remi Collet <remi@fedoraproject.org> - 3.7.24-1
+- Update to 3.7.24
+
+* Mon Aug 05 2013 Remi Collet <remi@fedoraproject.org> - 3.7.23-1
+- Update to 3.7.23
+- raise dependency on phpunit/PHP_Timer 1.0.4
+
+* Mon Jul 08 2013 Remi Collet <remi@fedoraproject.org> - 3.7.22-1
+- Update to 3.7.22
+
+* Fri May 24 2013 Remi Collet <remi@fedoraproject.org> - 3.7.21-1
+- Update to 3.7.21
+
+* Mon May 13 2013 Remi Collet <remi@fedoraproject.org> - 3.7.20-1
+- Update to 3.7.20
+
+* Mon Mar 25 2013 Remi Collet <remi@fedoraproject.org> - 3.7.19-1
+- Update to 3.7.19
+- requires pear.symfony.com/Yaml >= 2.0.0, <= 2.2.99
+
+* Fri Mar 08 2013 Remi Collet <remi@fedoraproject.org> - 3.7.18-1
+- Update to 3.7.18
+
+* Thu Mar 07 2013 Remi Collet <remi@fedoraproject.org> - 3.7.17-1
+- Update to 3.7.17
+
+* Wed Mar 06 2013 Remi Collet <remi@fedoraproject.org> - 3.7.16-1
+- Update to 3.7.16
+
+* Tue Mar 05 2013 Remi Collet <remi@fedoraproject.org> - 3.7.15-1
+- Update to 3.7.15
+
+* Thu Feb 14 2013 Remi Collet <remi@fedoraproject.org> - 3.7.14-1
+- Update to 3.7.14
+
+* Sun Jan 13 2013 Remi Collet <remi@fedoraproject.org> - 3.7.13-1
+- Version 3.7.13 (stable) - API 3.7.0 (stable)
+
+* Thu Jan 10 2013 Remi Collet <remi@fedoraproject.org> - 3.7.12-1
+- Version 3.7.12 (stable) - API 3.7.0 (stable)
+
+* Wed Jan 9 2013 Remi Collet <remi@fedoraproject.org> - 3.7.11-1
+- Version 3.7.11 (stable) - API 3.7.0 (stable)
+
+* Sun Dec 2 2012 Remi Collet <remi@fedoraproject.org> - 3.7.10-1
+- Version 3.7.10 (stable) - API 3.7.0 (stable)
+
+* Wed Nov 07 2012 Remi Collet <remi@fedoraproject.org> - 3.7.9-1
+- Version 3.7.9 (stable) - API 3.7.0 (stable)
+
+* Thu Oct 18 2012 Remi Collet <remi@fedoraproject.org> - 3.7.8-1
+- Version 3.7.8 (stable) - API 3.7.0 (stable)
+
+* Thu Oct 11 2012 Remi Collet <remi@fedoraproject.org> - 3.7.7-1
+- Version 3.7.7 (stable) - API 3.7.0 (stable)
+
+* Sun Oct 7 2012 Remi Collet <remi@fedoraproject.org> - 3.7.6-1
+- Version 3.7.6 (stable) - API 3.7.0 (stable)
+
+* Sat Oct 6 2012 Remi Collet <remi@fedoraproject.org> - 3.7.5-1
+- Version 3.7.5 (stable) - API 3.7.0 (stable)
+
+* Sat Oct 6 2012 Remi Collet <remi@fedoraproject.org> - 3.7.4-1
+- Version 3.7.4 (stable) - API 3.7.0 (stable)
+- add Conflicts for max version of PHP_CodeCoverage and PHPUnit_MockObject
+
+* Thu Sep 20 2012 Remi Collet <remi@fedoraproject.org> - 3.7.1-1
+- Version 3.7.1 (stable) - API 3.7.0 (stable)
+- raise dependencies: php 5.3.3, PHP_CodeCoverage 1.2.1,
+ PHP_Timer 1.0.2, Yaml 2.1.0 (instead of YAML from symfony 1)
+
+* Sat Aug 04 2012 Remi Collet <remi@fedoraproject.org> - 3.6.12-1
+- Version 3.6.12 (stable) - API 3.6.0 (stable)
+
+* Sat Jul 21 2012 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 3.6.11-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_18_Mass_Rebuild
+
+* Thu Jun 07 2012 Remi Collet <remi@fedoraproject.org> - 3.6.11-1
+- Version 3.6.11 (stable) - API 3.6.0 (stable)
+
+* Fri Jan 27 2012 Remi Collet <remi@fedoraproject.org> - 3.6.10-1
+- Version 3.6.10 (stable) - API 3.6.0 (stable)
+- raise PHP_Invokers >= 1.1.0
+
+* Tue Jan 24 2012 Remi Collet <remi@fedoraproject.org> - 3.6.9-1
+- Version 3.6.9 (stable) - API 3.6.0 (stable)
+
+* Sat Jan 21 2012 Remi Collet <remi@fedoraproject.org> - 3.6.8-1
+- Version 3.6.8 (stable) - API 3.6.0 (stable)
+
+* Thu Jan 05 2012 Remi Collet <remi@fedoraproject.org> - 3.6.7-1
+- Version 3.6.7 (stable) - API 3.6.0 (stable)
+
+* Mon Jan 02 2012 Remi Collet <remi@fedoraproject.org> - 3.6.6-1
+- Version 3.6.6 (stable) - API 3.6.0 (stable)
+
+* Mon Dec 19 2011 Remi Collet <remi@fedoraproject.org> - 3.6.5-1
+- Version 3.6.5 (stable) - API 3.6.0 (stable)
+
+* Sat Nov 26 2011 Remi Collet <remi@fedoraproject.org> - 3.6.4-1
+- Version 3.6.4 (stable) - API 3.6.0 (stable)
+
+* Fri Nov 11 2011 Remi Collet <remi@fedoraproject.org> - 3.6.3-1
+- Version 3.6.3 (stable) - API 3.6.0 (stable)
+
+* Fri Nov 04 2011 Remi Collet <remi@fedoraproject.org> - 3.6.2-1
+- Version 3.6.2 (stable) - API 3.6.0 (stable)
+
+* Tue Nov 01 2011 Remi Collet <remi@fedoraproject.org> - 3.6.0-1
+- Version 3.6.0 (stable) - API 3.6.0 (stable)
+
+* Fri Aug 19 2011 Remi Collet <remi@fedoraproject.org> - 3.5.15-1
+- Version 3.5.15 (stable) - API 3.5.7 (stable)
+- raise PEAR dependency to 1.9.3
+
+* Fri Jun 10 2011 Remi Collet <Fedora@famillecollet.com> - 3.5.14-1
+- Version 3.5.14 (stable) - API 3.5.7 (stable)
+
+* Tue May 3 2011 Remi Collet <Fedora@famillecollet.com> - 3.5.13-2
+- rebuild for doc in /usr/share/doc/pear
+
+* Tue Mar 8 2011 Remi Collet <Fedora@famillecollet.com> - 3.5.13-1
+- Version 3.5.13 (stable) - API 3.5.7 (stable)
+- remove PEAR hack (only needed for EPEL)
+- raise PEAR dependency to 1.9.2
+- remove duplicate dependency (YAML)
+
+* Thu Feb 24 2011 Remi Collet <Fedora@famillecollet.com> - 3.5.12-1
+- Version 3.5.12 (stable) - API 3.5.7 (stable)
+
+* Wed Feb 16 2011 Remi Collet <Fedora@famillecollet.com> - 3.5.11-1
+- Version 3.5.11 (stable) - API 3.5.7 (stable)
+- new dependency on php-pear(XML_RPC2)
+
+* Wed Feb 09 2011 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 3.5.10-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_15_Mass_Rebuild
+
+* Thu Jan 20 2011 Remi Collet <Fedora@famillecollet.com> - 3.5.10-1
+- Version 3.5.10 (stable) - API 3.5.7 (stable)
+
+* Tue Jan 18 2011 Remi Collet <Fedora@famillecollet.com> - 3.5.9-1
+- Version 3.5.9 (stable) - API 3.5.7 (stable)
+
+* Tue Jan 11 2011 Remi Collet <Fedora@famillecollet.com> - 3.5.7-1
+- Version 3.5.7 (stable) - API 3.5.7 (stable)
+- README, CHANGELOG and LICENSE are now in the tarball
+
+* Mon Dec 20 2010 Remi Collet <Fedora@famillecollet.com> - 3.5.6-1
+- Version 3.5.6 (stable) - API 3.5.4 (stable)
+- move README.mardown to README (was Changelog, now links to doc)
+- add CHANGELOG
+- not more doc provided by upstream
+
+* Mon Nov 22 2010 Remi Collet <Fedora@famillecollet.com> - 3.5.5-1
+- Version 3.5.5 (stable) - API 3.5.4 (stable)
+
+* Wed Nov 17 2010 Remi Collet <Fedora@famillecollet.com> - 3.5.4-1
+- Version 3.5.4 (stable) - API 3.5.4 (stable)
+
+* Wed Oct 27 2010 Remi Collet <Fedora@famillecollet.com> - 3.5.3-1
+- Update to 3.5.3
+- new requires and new packages for extensions of PHPUnit
+ PHPUnit_MockObject, PHPUnit_Selenium, DbUnit
+- lower PEAR dependency to allow el6 build
+- define timezone during build
+
+* Thu Jul 22 2010 Remi Collet <Fedora@famillecollet.com> - 3.4.15-1
+- Update to 3.4.15
+
+* Sat Jun 19 2010 Remi Collet <Fedora@famillecollet.com> - 3.4.14-1
+- Update to 3.4.14
+
+* Sat May 22 2010 Remi Collet <Fedora@famillecollet.com> - 3.4.13-1
+- Update to 3.4.13
+- add README.markdown (Changelog)
+
+* Wed Apr 07 2010 Remi Collet <Fedora@famillecollet.com> - 3.4.12-1
+- Update to 3.4.12
+
+* Thu Feb 18 2010 Remi Collet <Fedora@famillecollet.com> - 3.4.11-1.1
+- Update to 3.4.11
+
+* Wed Feb 10 2010 Remi Collet <Fedora@famillecollet.com> - 3.4.10-1
+- Update to 3.4.10
+
+* Sun Jan 24 2010 Remi Collet <Fedora@famillecollet.com> - 3.4.9-1
+- Update to 3.4.9
+
+* Sat Jan 16 2010 Remi Collet <Fedora@famillecollet.com> - 3.4.7-1
+- Update to 3.4.7
+- rename from php-pear-PHPUnit to php-phpunit-PHPUnit
+- update dependencies (PEAR 1.8.1, YAML, php-soap)
+
+* Sat Sep 12 2009 Christopher Stone <chris.stone@gmail.com> 3.3.17-1
+- Upstream sync
+
+* Sun Jul 26 2009 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 3.3.16-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_12_Mass_Rebuild
+
+* Sat May 02 2009 Remi Collet <Fedora@famillecollet.com> - 3.3.16-1
+- Upstream sync
+- Fix requires (remove hint) and raise PEAR version to 1.7.1
+- rename %%{pear_name}.xml to %%{name}.xml
+
+* Thu Feb 26 2009 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 3.3.4-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_11_Mass_Rebuild
+
+* Sat Nov 8 2008 Christopher Stone <chris.stone@gmail.com> 3.3.4-1
+- Upstream sync
+
+* Thu Oct 23 2008 Christopher Stone <chris.stone@gmail.com> 3.3.2-1
+- Upstream sync
+- Remove no longer needed Obsolete/Provides
+
+* Thu Oct 09 2008 Christopher Stone <chris.stone@gmail.com> 3.3.1-1
+- Upstream sync
+
+* Thu Oct 09 2008 Christopher Stone <chris.stone@gmail.com> 3.2.21-1
+- Upstream sync
+- Add php-xml to Requires (bz #464758)
+
+* Thu May 22 2008 Christopher Stone <chris.stone@gmail.com> 3.2.19-1
+- Upstream sync
+
+* Thu Feb 21 2008 Christopher Stone <chris.stone@gmail.com> 3.2.15-1
+- Upstream sync
+
+* Wed Feb 13 2008 Christopher Stone <chris.stone@gmail.com> 3.2.13-1
+- Upstream sync
+
+* Sun Nov 25 2007 Christopher Stone <chris.stone@gmail.com> 3.2.1-1
+- Upstream sync
+
+* Sat Sep 08 2007 Christopher Stone <chris.stone@gmail.com> 3.1.8-1
+- Upstream sync
+
+* Sun May 06 2007 Christopher Stone <chris.stone@gmail.com> 3.0.6-1
+- Upstream sync
+
+* Thu Mar 08 2007 Christopher Stone <chris.stone@gmail.com> 3.0.5-3
+- Fix testdir
+- Fix Provides version
+
+* Wed Mar 07 2007 Christopher Stone <chris.stone@gmail.com> 3.0.5-2
+- Add Obsoletes/Provides for php-pear(PHPUnit2)
+- Requires php-pear(PEAR) >= 1.5.0
+- Own %%{pear_testdir}/%%{pear_name}
+- Remove no longer needed manual channel install
+- Simplify %%doc
+- Only unregister old phpunit on upgrade
+
+* Mon Feb 26 2007 Christopher Stone <chris.stone@gmail.com> 3.0.5-1
+- Upstream sync
+
+* Wed Feb 21 2007 Christohper Stone <chris.stone@gmail.com> 3.0.4-1
+- Upstream sync
+
+* Mon Jan 29 2007 Christopher Stone <chris.stone@gmail.com> 3.0.3-1
+- Upstream sync
+
+* Sun Jan 14 2007 Christopher Stone <chris.stone@gmail.com> 3.0.2-1
+- Upstream sync
+
+* Fri Jan 05 2007 Christopher Stone <chris.stone@gmail.com> 3.0.1-1
+- Upstream sync
+
+* Wed Dec 27 2006 Christopher Stone <chris.stone@gmail.com> 3.0.0-1
+- Initial Release

phpunit-php8.patch Added

@@ -0,0 +1,68 @@
+diff -up ./PHPUnit/Framework/TestCase.php.php8 ./PHPUnit/Framework/TestCase.php
+--- ./PHPUnit/Framework/TestCase.php.php8	2021-03-19 12:29:00.122960437 +0100
++++ ./PHPUnit/Framework/TestCase.php	2021-03-19 12:29:16.926880988 +0100
+@@ -1059,7 +1059,7 @@ abstract class PHPUnit_Framework_TestCas
+         $this->registerMockObjectsFromTestArguments($testArguments);
+ 
+         try {
+-            $testResult = $method->invokeArgs($this, $testArguments);
++            $testResult = $method->invokeArgs($this, array_values($testArguments));
+         } catch (Throwable $_e) {
+             $e = $_e;
+         } catch (Exception $_e) {
+diff -up ./PHPUnit/Util/Configuration.php.php8 ./PHPUnit/Util/Configuration.php
+--- ./PHPUnit/Util/Configuration.php.php8	2018-02-01 06:50:59.000000000 +0100
++++ ./PHPUnit/Util/Configuration.php	2021-03-19 12:28:10.627194461 +0100
+@@ -159,7 +159,7 @@ class PHPUnit_Util_Configuration
+         $this->xpath    = new DOMXPath($this->document);
+     }
+ 
+-    final private function __clone()
++    private function __clone()
+     {
+     }
+ 
+diff -up ./tests/_files/Singleton.php.php8 ./tests/_files/Singleton.php
+--- ./tests/_files/Singleton.php.php8	2018-02-01 06:50:59.000000000 +0100
++++ ./tests/_files/Singleton.php	2021-03-19 12:28:10.627194461 +0100
+@@ -7,7 +7,7 @@ class Singleton
+     {
+     }
+ 
+-    final private function __clone()
++    private function __clone()
+     {
+     }
+ 
+diff -up ./tests/Framework/Constraint/JsonMatches/ErrorMessageProviderTest.php.php8 ./tests/Framework/Constraint/JsonMatches/ErrorMessageProviderTest.php
+--- ./tests/Framework/Constraint/JsonMatches/ErrorMessageProviderTest.php.php8	2018-02-01 06:50:59.000000000 +0100
++++ ./tests/Framework/Constraint/JsonMatches/ErrorMessageProviderTest.php	2021-03-19 12:28:10.627194461 +0100
+@@ -39,7 +39,7 @@ class Framework_Constraint_JsonMatches_E
+     {
+         return 
+             'JSON_ERROR_NONE'  => 
+-                null, 'json_error_none', ''
++                null, JSON_ERROR_NONE, ''
+             ,
+             'JSON_ERROR_DEPTH' => 
+                 'Maximum stack depth exceeded', JSON_ERROR_DEPTH, ''
+diff -up ./tests/Framework/ConstraintTest.php.php8 ./tests/Framework/ConstraintTest.php
+--- ./tests/Framework/ConstraintTest.php.php8	2018-02-01 06:50:59.000000000 +0100
++++ ./tests/Framework/ConstraintTest.php	2021-03-19 12:28:10.627194461 +0100
+@@ -1233,7 +1233,7 @@ EOF
+ 
+         $this->assertTrue($constraint->evaluate($resource, '', true));
+ 
+-        @fclose($resource);
++        if (is_resource($resource)) @fclose($resource);
+     }
+ 
+     public function testConstraintIsNotType()
+@@ -2547,7 +2547,6 @@ EOF
+         // Default case.
+         $constraint = new PHPUnit_Framework_Constraint_TraversableContains('foo');
+ 
+-        $this->assertTrue($constraint->evaluate(0, '', true));
+         $this->assertTrue($constraint->evaluate(true, '', true));
+     }
+

phpunit-rpm.patch Added

@@ -0,0 +1,62 @@
+diff -up ./phpunit.rpm ./phpunit
+--- ./phpunit.rpm	2017-02-05 16:31:31.000000000 +0100
++++ ./phpunit	2017-02-07 11:56:09.174850687 +0100
+@@ -27,26 +27,27 @@ if (!ini_get('date.timezone')) {
+ ini_set('date.timezone', 'UTC');
+ }
+ 
+-foreach (array(__DIR__ . '/../../autoload.php', __DIR__ . '/../vendor/autoload.php', __DIR__ . '/vendor/autoload.php') as $file) {
+- if (file_exists($file)) {
+- define('PHPUNIT_COMPOSER_INSTALL', $file);
+-
+- break;
+- }
++// Ensure correct include_path for RHSCL
++$inc = get_include_path();
++$dirs = explode(':', $inc);
++if (!in_array('/usr/share/php', $dirs)) {
++ $dirs = '/usr/share/php';
++ set_include_path(implode(':', $dirs));
+ }
++unset ($inc, $dirs);
+ 
+-unset($file);
+-
+-if (!defined('PHPUNIT_COMPOSER_INSTALL')) {
+- fwrite(STDERR,
+- 'You need to set up the project dependencies using Composer:' . PHP_EOL . PHP_EOL .
+- ' composer install' . PHP_EOL . PHP_EOL .
+- 'You can learn all about Composer on https://getcomposer.org/.' . PHP_EOL
+- );
+-
+- die(1);
++// Libraries PATH
++if (file_exists('./vendor/phpunit/phpunit/phpunit') && file_exists('./vendor/autoload.php')) {
++ echo "\n==== Redirecting to composer installed version in vendor/phpunit ====\n\n";
++ define ('PHPUNIT_COMPOSER_INSTALL', realpath('./vendor/autoload.php'));
++} else {
++ define ('PHPUNIT_COMPOSER_INSTALL', stream_resolve_include_path('PHPUnit/Autoload.php'));
+ }
+ 
+ require PHPUNIT_COMPOSER_INSTALL;
+ 
+-PHPUnit_TextUI_Command::main();
++if (class_exists('PHPUnit_TextUI_Command')) {
++ PHPUnit_TextUI_Command::main(); // PHPUnit v5 or older
++} else {
++ PHPUnit\TextUI\Command::main(); // PHPUnit v6 or newer
++}
+diff -up ./tests/bootstrap.php.rpm ./tests/bootstrap.php
+--- ./tests/bootstrap.php.rpm	2017-02-05 16:31:31.000000000 +0100
++++ ./tests/bootstrap.php	2017-02-07 11:49:35.123108015 +0100
+@@ -1,6 +1,9 @@
+ <?php
+ // Needed for isolated tests
+-require __DIR__ . '/../vendor/autoload.php';
++require_once __DIR__ . '/_files/CoveredFunction.php';
++require_once __DIR__ . '/../PHPUnit/Framework/Assert/Functions.php';
++require_once __DIR__ . '/../PHPUnit/Autoload.php';
++require_once __DIR__ . '/autoload.php';
+ 
+ ini_set('precision', 14);
+ ini_set('serialize_precision', 14);

php-phpunit-PHPUnit-5.7.27-b7803ae.tar.gz Added

phpunit-5.4.0-Autoload.php.in Added

@@ -0,0 +1,49 @@
+<?php
+/* Autoloader for phpunit/phpunit and its dependencies */
+
+if (!class_exists('Fedora\\Autoloader\\Autoload', false)) {
+ require_once 'Fedora/Autoloader/autoload.php';
+}
+
+\Fedora\Autoloader\Autoload::addClassMap(
+ array(
+ ___CLASSLIST___
+ ),
+ __DIR__
+);
+
+$sym = (getenv('RPM_SYMFONY_TREE') ?: 'Symfony4');
+/* don't use symfony autoloader which pull some unwanted stuff (polyfill) */
+$vendorDir = stream_resolve_include_path("$sym/Component/Yaml/Yaml.php");
+\Fedora\Autoloader\Autoload::addPsr4('Symfony\\Component\\Yaml\\', dirname($vendorDir));
+
+/* Required */
+require_once 'File/Iterator/Autoload.php';
+require_once 'SebastianBergmann/CodeCoverage/autoload.php';
+require_once 'PHP/Timer/Autoload.php';
+require_once 'PHPUnit/Framework/MockObject/Autoload.php';
+require_once 'Text/Template/Autoload.php';
+require_once 'PHP/Invoker/Autoload.php';
+require_once 'SebastianBergmann/Diff/autoload.php';
+require_once 'SebastianBergmann/Environment/autoload.php';
+require_once 'SebastianBergmann/Exporter/autoload.php';
+require_once 'SebastianBergmann/Version/autoload.php';
+require_once 'SebastianBergmann/Comparator/autoload.php';
+require_once 'SebastianBergmann/GlobalState/autoload.php';
+require_once 'SebastianBergmann/ObjectEnumerator/autoload.php';
+require_once 'Doctrine/Instantiator/autoload.php';
+require_once 'Prophecy/autoload.php';
+require_once 'SebastianBergmann/ResourceOperations/autoload.php';
+require_once 'DeepCopy/autoload.php';
+
+/* Optional */
+foreach(
+ 'PHPUnit/Extensions/Database/Autoload.php',
+ 'PHPUnit/Extensions/SeleniumCommon/Autoload.php',
+ 'PHPUnit/Extensions/SeleniumTestCase/Autoload.php',
+ 'PHPUnit/Extensions/Story/Autoload.php'
+ as $opt) {
+ if ($fic = stream_resolve_include_path($opt)) {
+ require_once $fic;
+ }
+}

Build Results
RPM Lint

Refresh

Submit package home:mollekopf:...olab:Winterfell / pykolab to package Kolab:16:Testing / pykolab

pykolab.spec Changed

@@ -2,11 +2,19 @@
 #!BuildIgnore: systemd
 %endif
 
-%if 0%{?fedora} || 0%{?rhel} >= 8
-%global py2 2
+%if 0%{?rhel} >= 8
+%global use_python3 1
+%endif
+
+%if 0%{?use_python3}
+%global py2or3_suffix 3
+%global py3ornone_suffix 3
+%global __python %{__python3}
+%else
+%global py2or3_suffix 2
+%{!?python_sitelib: %global python_sitelib %(python -c "from distutils.sysconfig import get_python_lib; print get_python_lib()")}
 %endif
 
-%{!?python_sitelib: %define python_sitelib %(python -c "from distutils.sysconfig import get_python_lib; print get_python_lib()")}
 
 %if 0%{?suse_version} || 0%{?fedora} > 17 || 0%{?rhel} > 6
 %global with_systemd 1
@@ -31,6 +39,17 @@
 %global kolabr_group kolab-r
 %global kolabr_group_id 414
 
+
+%if 0%{?suse_version}
+%global pythonmysql python-mysql
+%else
+%if 0%{?use_python3}
+%global pythonmysql python3-PyMySQL
+%else
+%global pythonmysql MySQL-python
+%endif
+%endif
+
 Summary: Kolab Groupware Solution
 Name: pykolab
 Version: 0.8.23
@@ -55,44 +74,40 @@
 BuildRequires: future
 %endif
 
+
 BuildRequires: gcc
 BuildRequires: gettext
 BuildRequires: glib2-devel
 BuildRequires: intltool
-
-%if 0%{?suse_version}
-BuildRequires: python-mysql
-%else
-BuildRequires: MySQL-python
-%endif
-
-BuildRequires: python%{?py2}
-BuildRequires: python%{?py2}-augeas
-BuildRequires: python%{?py2}-gnupg
-BuildRequires: python%{?py2}-icalendar
-BuildRequires: python%{?py2}-kolab >= 2.0
-BuildRequires: python%{?py2}-kolabformat
-BuildRequires: python%{?py2}-ldap
-BuildRequires: python%{?py2}-nose
-BuildRequires: python%{?py2}-pep8
-BuildRequires: python%{?py2}-pyasn1
-BuildRequires: python%{?py2}-pyasn1-modules
+BuildRequires: %{pythonmysql}
+BuildRequires: python%{?py3ornone_suffix}
+BuildRequires: python%{?py3ornone_suffix}-gnupg
+BuildRequires: python%{?py3ornone_suffix}-icalendar
+BuildRequires: python%{?py3ornone_suffix}-ldap
+BuildRequires: python%{?py3ornone_suffix}-augeas
+BuildRequires: python%{?py3ornone_suffix}-kolab >= 2.0
+BuildRequires: python%{?py3ornone_suffix}-kolabformat
+BuildRequires: python%{?py3ornone_suffix}-sqlalchemy
+BuildRequires: python%{?py3ornone_suffix}-tzlocal
+BuildRequires: python%{?py2or3_suffix}-nose
+BuildRequires: python%{?py2or3_suffix}-pyasn1
+BuildRequires: python%{?py2or3_suffix}-pyasn1-modules
 %if 0%{?rhel} < 8 && 0%{?fedora} < 1
 BuildRequires: pytz
 %else
-BuildRequires: python%{?py2}-pytz
+BuildRequires: python%{?py2or3_suffix}-pytz
+%endif
+BuildRequires: python%{?py2or3_suffix}-six
+%if 0%{?use_python3} < 1
+#FIXME only used for unittests
+BuildRequires: python-twisted-core
 %endif
-BuildRequires: python%{?py2}-sievelib
-BuildRequires: python%{?py2}-six
-BuildRequires: python%{?py2}-sqlalchemy
-BuildRequires: python%{?py2}-twisted-core
-BuildRequires: python%{?py2}-tzlocal
 
 Requires: kolab-cli = %{version}-%{release}
-Requires: python%{?py2}-ldap >= 2.4
-Requires: python%{?py2}-pyasn1
-Requires: python%{?py2}-pyasn1-modules
-Requires: python%{?py2}-six
+Requires: python%{?py3ornone_suffix}-ldap >= 2.4
+Requires: python%{?py2or3_suffix}-pyasn1
+Requires: python%{?py2or3_suffix}-pyasn1-modules
+Requires: python%{?py2or3_suffix}-six
 Requires(pre): /usr/sbin/useradd
 Requires(pre): /usr/sbin/usermod
 Requires(pre): /usr/sbin/groupadd
@@ -140,10 +155,10 @@
 Summary: Kolab XML format wrapper for %{name}
 Group: Applications/System
 Requires: %{name} = %{version}-%{release}
-Requires: python-icalendar
-Requires: python-kolab
-Requires: python-kolabformat >= 0.5
-Requires: python-tzlocal
+Requires: python{?py3ornone_suffix}-icalendar
+Requires: python{?py3ornone_suffix}-kolab
+Requires: python{?py3ornone_suffix}-kolabformat >= 0.5
+Requires: python{?py3ornone_suffix}-tzlocal
 
 %description xml
 Kolab Format XML bindings wrapper for %{name}
@@ -155,9 +170,9 @@
 Summary: Kolab CLI components
 Group: Applications/System
 Requires: %{name} = %{version}-%{release}
-Requires: python-augeas
-Requires: python-cheetah
-Requires: python-sqlalchemy
+Requires: python{?py3ornone_suffix}-augeas
+Requires: python{?py3ornone_suffix}-sqlalchemy
+Requires: python{?py2or3_suffix}-cheetah
 
 %description -n kolab-cli
 Kolab CLI utilities
@@ -171,7 +186,7 @@
 Requires: %{name} = %{version}-%{release}
 Requires: cyrus-sasl
 Requires: cyrus-sasl-plain
-Requires: python-sqlalchemy
+Requires: python{?py3ornone_suffix}-sqlalchemy
 
 %description -n kolab-saslauthd
 Kolab SASL Authentication Daemon for multi-domain, multi-authn database deployments
@@ -198,12 +213,12 @@
 %endif
 Requires: postfix
 Requires: %{name} = %{version}-%{release}
-Requires: python-sqlalchemy
-%if 0%{?suse_version}
-Requires: python-mysql
+%if 0%{?use_python3}
+Requires: python3-sqlalchemy
 %else
-Requires: MySQL-python
+Requires: python-sqlalchemy
 %endif
+Requires: %{pythonmysql}
 
 %description -n postfix-kolab
 Kolab SMTP Access Policy for Postfix
@@ -215,15 +230,11 @@
 Summary: Kolab Content-Filter
 Group: Applications/System
 Requires: %{name} = %{version}-%{release}
-Requires: python-sqlalchemy
-%if 0%{?suse_version}
-Requires: python-mysql
-%else
-Requires: MySQL-python
-%endif
-Requires: python-gnupg
-Requires: python-icalendar >= 3.0
-Requires: python-tzlocal
+Requires: python{?py3ornone_suffix}-sqlalchemy
+Requires: python{?py3ornone_suffix}-tzlocal
+Requires: %{pythonmysql}
+Requires: python{?py3ornone_suffix}-gnupg
+Requires: python{?py3ornone_suffix}-icalendar >= 3.0
 Requires: %{name}-xml = %{version}-%{release}
 
 %description -n wallace
@@ -232,8 +243,21 @@
 %prep
 %setup -q
 
+%if 0%{?use_python3}
+sed -i 's|#!/usr/bin/python|#!/usr/bin/python3|g' kolabd.py
+sed -i 's|#!/usr/bin/python|#!/usr/bin/python3|g' saslauthd.py
+sed -i 's|#!/usr/bin/python|#!/usr/bin/python3|g' conf.py
+sed -i 's|#!/usr/bin/python|#!/usr/bin/python3|g' setup-kolab.py
+sed -i 's|#!/usr/bin/python|#!/usr/bin/python3|g' wallace.py
+sed -i 's|#!/usr/bin/python|#!/usr/bin/python3|g' kolab-cli.py
+sed -i 's|#!/usr/bin/python|#!/usr/bin/python3|g' bin/kolab_parse_telemetry.py
+sed -i 's|#!/usr/bin/python|#!/usr/bin/python3|g' bin/kolab_smtp_access_policy.py
+%endif
+
+
 %build
 autoreconf -v || automake --add-missing && autoreconf -v
+
 %configure
 
 %install
@@ -401,7 +425,7 @@
 fi
 
 %check
-nosetests -v tests/unit/ ||:
+nosetests -v tests/unit/ || :
 
 %clean
 rm -rf %{buildroot}
@@ -413,11 +437,16 @@
 %attr(0750,kolab-n,kolab) %dir %{_sysconfdir}/kolab
 %attr(0640,kolab-n,kolab) %config(noreplace) %{_sysconfdir}/kolab/kolab.conf
 %config(noreplace) %{_sysconfdir}/logrotate.d/%{name}
+
+
 %dir %{python_sitelib}/pykolab/
 %exclude %{python_sitelib}/pykolab/telemetry.*
 %{python_sitelib}/pykolab/*.py
 %{python_sitelib}/pykolab/*.pyc
 %{python_sitelib}/pykolab/*.pyo
+%if 0%{?use_python3}
+%{python_sitelib}/pykolab/__pycache__/
+%endif
 %{python_sitelib}/pykolab/auth/
 %{python_sitelib}/pykolab/conf/
 %{python_sitelib}/pykolab/imap/
@@ -426,6 +455,9 @@
 %{python_sitelib}/pykolab/plugins/*.py
 %{python_sitelib}/pykolab/plugins/*.pyc
 %{python_sitelib}/pykolab/plugins/*.pyo
+%if 0%{?use_python3}
+%{python_sitelib}/pykolab/plugins/__pycache__/
+%endif
 %{python_sitelib}/pykolab/plugins/defaultfolders
 %{python_sitelib}/pykolab/plugins/dynamicquota
 %{python_sitelib}/pykolab/plugins/recipientpolicy
@@ -434,6 +466,11 @@
 %exclude %{python_sitelib}/kolab/
 %endif
 %{python_sitelib}/cyruslib.py*
+%if 0%{?use_python3}
+%pycached %{python_sitelib}/cyruslib.py
+%endif
+
+
 %attr(0775,kolab,kolab-n) %dir %{_localstatedir}/lib/kolab/
 %attr(0775,kolab,kolab-n) %dir %{_localstatedir}/log/kolab/
 
@@ -450,6 +487,9 @@
 %{python_sitelib}/pykolab/xml/*.py
 %{python_sitelib}/pykolab/xml/*.pyc
 %{python_sitelib}/pykolab/xml/*.pyo
+%if 0%{?use_python3}
+%{python_sitelib}/pykolab/xml/__pycache__/
+%endif
 
 %files -n kolab-cli
 %defattr(-,root,root,-)
@@ -468,14 +508,24 @@
 %{python_sitelib}/pykolab/cli/wap/*.py
 %{python_sitelib}/pykolab/cli/wap/*.pyc
 %{python_sitelib}/pykolab/cli/wap/*.pyo
+%if 0%{?use_python3}
+%{python_sitelib}/pykolab/cli/wap/__pycache__/
+%{python_sitelib}/pykolab/cli/__pycache__/
+%endif
 %dir %{python_sitelib}/pykolab/setup/
 %{python_sitelib}/pykolab/setup/*.py
 %{python_sitelib}/pykolab/setup/*.pyc
 %{python_sitelib}/pykolab/setup/*.pyo
+%if 0%{?use_python3}
+%{python_sitelib}/pykolab/setup/__pycache__/
+%endif
 %dir %{python_sitelib}/pykolab/wap_client/
 %{python_sitelib}/pykolab/wap_client/*.py
 %{python_sitelib}/pykolab/wap_client/*.pyc
 %{python_sitelib}/pykolab/wap_client/*.pyo
+%if 0%{?use_python3}
+%{python_sitelib}/pykolab/wap_client/__pycache__/
+%endif
 
 %files -n kolab-saslauthd
 %defattr(-,root,root,-)
@@ -567,6 +617,9 @@
 %attr(0700,%{kolab_user},%{kolab_group}) %dir %{_var}/spool/pykolab/wallace
 
 %changelog
+* Tue Aug 2 2022 Christian Mollekopf <mollekopf@apheleia-it.ch> - 0.8.23-2
+- Python3 support on centos 8
+
 * Tue Feb 8 2022 Jeroen van Meeuwen <vanmeeuwen@apheleia-it.ch> - 0.8.23-1
 - Release of version 0.8.23

Build Results
RPM Lint

Refresh

Submit package home:mollek...:Winterfell / python-sievelib to package Kolab:16:Testing / python-sievelib

python-sievelib.spec Changed

@@ -1,107 +1,162 @@
-%if 0%{?fedora}
-%global with_python3 1
-%{!?python3_version: %global python3_version %(%{__python3} -c "import sys; sys.stdout.write(sys.version:3)")}
-%else
-%{!?python_sitelib: %global python_sitelib %(%{__python} -c "from distutils.sysconfig import get_python_lib; print (get_python_lib())")}
-%endif
-
-Name: python-sievelib
-Version: 0.5.2
-Release: 2%{?dist}
-Summary: Managesieve library in Python
-
-Group: Development/Tools
-
-License: BSD
-URL: http://kolab.org/about/python-sievelib/
-Source0: sievelib-%{version}.tar.gz
-
+%global srcname sievelib
+%global _description\
+Client-side Sieve and Managesieve library written in Python.\
+* Sieve : An Email Filtering Language (RFC 5228).\
+* ManageSieve : A Protocol for Remotely Managing Sieve Scripts (RFC 5804).
+
+Name: python-%{srcname}
+Version: 1.2.1
+Release: 5%{?dist}
+Summary: Client-side SIEVE library
+License: MIT
+URL: https://github.com/tonioo/sievelib
+Source0: %{pypi_source}
 BuildArch: noarch
-%if 0%{?suse_version}
-BuildRequires: python-devel >= 2.4
-%else
-BuildRequires: python2-devel >= 2.4
-%endif
-BuildRequires: python-setuptools
-
-%if 0%{?with_python3}
 BuildRequires: python3-devel
 BuildRequires: python3-setuptools
-BuildRequires: python3-docutils
-BuildRequires: python3-jinja2
-BuildRequires: python3-pygments
+BuildRequires: python3-setuptools_scm
 BuildRequires: python3-nose
-%endif # with_python3
-
-%description
-Client-side Sieve and Managesieve library written in Python.
+BuildRequires: python3-six
+BuildRequires: python3-future
+BuildRequires: python3-pip
 
-* Sieve : An Email Filtering Language
- (`RFC 5228 <http://tools.ietf.org/html/rfc5228>`_)
-* ManageSieve : A Protocol for Remotely Managing Sieve Scripts
- (`Draft <http://tools.ietf.org/html/draft-martin-managesieve-12>`_)
+%description %_description
 
-%if 0%{?with_python3}
-%package -n python3-sievelib
-Summary: Managesieve library in Python
-Group: Development/Tools
+%package -n python3-%{srcname}
+Summary: %{summary}
+%{?python_provide:%python_provide python3-%{srcname}}
 
-%description -n python3-sievelib
+%description -n python3-%{srcname}
 Client-side Sieve and Managesieve library written in Python.
-
-* Sieve : An Email Filtering Language
- (`RFC 5228 <http://tools.ietf.org/html/rfc5228>`_)
-* ManageSieve : A Protocol for Remotely Managing Sieve Scripts
- (`Draft <http://tools.ietf.org/html/draft-martin-managesieve-12>`_)
-%endif # with_python3
+* Sieve : An Email Filtering Language (RFC 5228)
+* ManageSieve : A Protocol for Remotely Managing Sieve Scripts (RFC 5804)
 
 %prep
-%setup -q -n sievelib-%{version}
-
-%if 0%{?with_python3}
-rm -rf %{py3dir}
-cp -a . %{py3dir}
-%endif # with_python3
+%autosetup -n %{srcname}-%{version}
+# remove bundled egg-info
+rm -rf %{srcname}.egg-info
 
 %build
-%{__python} setup.py build
-%if 0%{?with_python3}
-pushd %{py3dir}
-%{__python3} setup.py build
-popd
-%endif # with_python3
+%py3_build
 
 %install
-rm -rf %{buildroot}
+%py3_install
 
-# Must do the python3 install first because the scripts in /usr/bin are
-# overwritten with every setup.py install (and we want the python2 version
-# to be the default for now).
-%if 0%{?with_python3}
-pushd %{py3dir}
-%{__python3} setup.py install --skip-build --root %{buildroot}
-popd
-%endif # with_python3
+%check
+nosetests-%{python3_version}
 
-%{__python} setup.py install --skip-build --root %{buildroot}
+%files -n python3-%{srcname}
+%doc README.rst
+%license COPYING
+%{python3_sitelib}/%{srcname}
+%{python3_sitelib}/%{srcname}-%{version}-py*.egg-info
 
-%check
+%changelog
+* Fri Jan 21 2022 Fedora Release Engineering <releng@fedoraproject.org> - 1.2.1-5
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_36_Mass_Rebuild
 
-%files
-%doc COPYING
-%{python_sitelib}/*
+* Fri Jul 23 2021 Fedora Release Engineering <releng@fedoraproject.org> - 1.2.1-4
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_35_Mass_Rebuild
 
-%if 0%{?with_python3}
-%files -n python3-sievelib
-%doc COPYING
-%{python3_sitelib}/*
-%endif # with_python3
+* Fri Jun 04 2021 Python Maint <python-maint@redhat.com> - 1.2.1-3
+- Rebuilt for Python 3.10
 
-%changelog
-* Tue Aug 26 2014 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 0.5.2-2
-- Fix Python 3 compatibility,
-- Better verbosity in debug mode,
-- Fix mixed use of tabs and spaces for indentation
+* Wed Jan 27 2021 Fedora Release Engineering <releng@fedoraproject.org> - 1.2.1-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_34_Mass_Rebuild
+
+* Mon Dec 07 2020 Juan Orti Alcaine <jortialc@redhat.com> - 1.2.1-1
+- Version 1.2.1 (#1904992)
+
+* Tue Nov 17 2020 Juan Orti Alcaine <jortialc@redhat.com> - 1.2.0-1
+- Version 1.2.0 (#1890926)
+
+* Wed Jul 29 2020 Fedora Release Engineering <releng@fedoraproject.org> - 1.1.1-12
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_33_Mass_Rebuild
+
+* Tue Jun 16 2020 Charalampos Stratakis <cstratak@redhat.com> - 1.1.1-11
+- Fix build with pip >= 20.1 (#1838484)
+
+* Tue May 26 2020 Miro Hrončok <mhroncok@redhat.com> - 1.1.1-10
+- Rebuilt for Python 3.9
+
+* Thu Jan 30 2020 Fedora Release Engineering <releng@fedoraproject.org> - 1.1.1-9
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_32_Mass_Rebuild
+
+* Thu Oct 03 2019 Miro Hrončok <mhroncok@redhat.com> - 1.1.1-8
+- Rebuilt for Python 3.8.0rc1 (#1748018)
+
+* Mon Aug 19 2019 Miro Hrončok <mhroncok@redhat.com> - 1.1.1-7
+- Rebuilt for Python 3.8
+
+* Fri Jul 26 2019 Fedora Release Engineering <releng@fedoraproject.org> - 1.1.1-6
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_31_Mass_Rebuild
+
+* Sat Feb 02 2019 Fedora Release Engineering <releng@fedoraproject.org> - 1.1.1-5
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_30_Mass_Rebuild
+
+* Fri Oct 12 2018 Zbigniew Jędrzejewski-Szmek <zbyszek@in.waw.pl> - 1.1.1-4
+- Python2 binary package has been removed
+ See https://fedoraproject.org/wiki/Changes/Mass_Python_2_Package_Removal
+
+* Sat Jul 14 2018 Fedora Release Engineering <releng@fedoraproject.org> - 1.1.1-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_29_Mass_Rebuild
+
+* Tue Jun 19 2018 Miro Hrončok <mhroncok@redhat.com> - 1.1.1-2
+- Rebuilt for Python 3.7
+
+* Tue Mar 13 2018 Juan Orti Alcaine <jorti@fedoraproject.org> - 1.1.1-1
+- Version 1.1.1
+- Github's tarball doesn't build, use Pypi instead.
+
+* Fri Feb 09 2018 Fedora Release Engineering <releng@fedoraproject.org> - 1.0.0-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_28_Mass_Rebuild
+
+* Tue Nov 21 2017 Juan Orti Alcaine <jorti@fedoraproject.org> - 1.0.0-1
+- Version 1.0.0
+
+* Thu Jul 27 2017 Fedora Release Engineering <releng@fedoraproject.org> - 0.9.2-9
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Mass_Rebuild
+
+* Sat Jul 01 2017 Juan Orti Alcaine <jorti@fedoraproject.org> - 0.9.2-8
+- Python3 changes
+
+* Sat Feb 11 2017 Fedora Release Engineering <releng@fedoraproject.org> - 0.9.2-7
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_26_Mass_Rebuild
+
+* Mon Dec 19 2016 Miro Hrončok <mhroncok@redhat.com> - 0.9.2-6
+- Rebuild for Python 3.6
+
+* Tue Jul 19 2016 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 0.9.2-5
+- https://fedoraproject.org/wiki/Changes/Automatic_Provides_for_Python_RPM_Packages
+
+* Thu Feb 04 2016 Fedora Release Engineering <releng@fedoraproject.org> - 0.9.2-4
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_24_Mass_Rebuild
+
+* Mon Nov 16 2015 Juan Orti Alcaine <jorti@fedoraproject.org> - 0.9.2-3
+- Use python_provide macro
+
+* Tue Nov 10 2015 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 0.9.2-2
+- Rebuilt for https://fedoraproject.org/wiki/Changes/python3.5
+
+* Wed Oct 21 2015 Juan Orti Alcaine <jorti@fedoraproject.org> - 0.9.2-1
+- New version 0.9.2
+
+* Mon Jun 29 2015 Juan Orti Alcaine <jorti@fedoraproject.org> - 0.8-5.20150629gite34fb54
+- Add python3 subpackage
+
+* Thu Jun 18 2015 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 0.8-4
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_23_Mass_Rebuild
+
+* Thu Apr 09 2015 Juan Orti Alcaine <jorti@fedoraproject.org> - 0.8-3
+- Use license macro
+
+* Wed Dec 03 2014 Juan Orti <jorti@fedoraproject.org> - 0.8-2
+- Remove python shebang from libraries
+- Change URL to GitHub
+- Include license file
+
+* Tue Dec 02 2014 Juan Orti <jorti@fedoraproject.org> - 0.8-1
+- Spec file cleanup
 
-* Tue Aug 19 2014 Jeroen van Meeuwen <vanmeeuwen@kolabsys.com> - 0.5.2-1
-- Initial package
+* Sat May 24 2014 Didier Fabert <didier.fabert@gmail.com> 0.0.4-1
+- Initial RPM release

debian.changelog Deleted

debian.control Deleted

@@ -1,31 +0,0 @@
-Source: sievelib
-Section: python
-Priority: optional
-Maintainer: Jeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com>
-Build-Depends: python-setuptools (>= 0.6b3), python-all (>= 2.6.6-3), debhelper (>= 7)
-Standards-Version: 3.9.3
-
-Package: python-sievelib
-Architecture: all
-Depends: ${misc:Depends}, ${python:Depends}
-Description: Client-side SIEVE library
- sievelib
- ========
- .
- Client-side Sieve and Managesieve library written in Python.
- .
- * Sieve : An Email Filtering Language
- (`RFC 5228 <http://tools.ietf.org/html/rfc5228>`_)
- * ManageSieve : A Protocol for Remotely Managing Sieve Scripts
- (`Draft <http://tools.ietf.org/html/draft-martin-managesieve-12>`_)
- .
- Sieve tools
- -----------
- .
- What is supported
- ^^^^^^^^^^^^^^^^^
- .
- Currently, the provided parser supports most of the functionalities
- described in the RFC. The only exception concerns section
- *2.4.2.4. Encoding Characters Using "encoded-character"* which is not
- supported.

debian.rules Deleted

debian.tar.gz Deleted

python-sievelib.dsc Deleted

sievelib-0.5.2.tar.gz/.gitignore -> sievelib-1.2.1.tar.gz/.gitignore Changed

sievelib-1.2.1.tar.gz/.travis.yml Added

sievelib-0.5.2.tar.gz/COPYING -> sievelib-1.2.1.tar.gz/COPYING Changed

@@ -1,13 +1,19 @@
-Copyright (c) 2011-2012, Antoine Nguyen <tonio@ngyn.org>
+Copyright (c) 2011-2015 Antoine Nguyen <tonio@ngyn.org>
 
-Permission to use, copy, modify, and/or distribute this software for any
-purpose with or without fee is hereby granted, provided that the above
-copyright notice and this permission notice appear in all copies.
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
 
-THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.

sievelib-0.5.2.tar.gz/MANIFEST.in -> sievelib-1.2.1.tar.gz/MANIFEST.in Changed

sievelib-0.5.2.tar.gz/PKG-INFO -> sievelib-1.2.1.tar.gz/PKG-INFO Changed

@@ -1,20 +1,35 @@
 Metadata-Version: 1.1
 Name: sievelib
-Version: 0.5.1
+Version: 1.2.1
 Summary: Client-side SIEVE library
-Home-page: http://bitbucket.org/tonioo/sievelib
+Home-page: https://github.com/tonioo/sievelib
 Author: Antoine Nguyen
 Author-email: tonio@ngyn.org
 License: MIT
 Description: sievelib
 ========
 
+ |travis| |codecov| |latest-version|
+ 
 Client-side Sieve and Managesieve library written in Python.
 
 * Sieve : An Email Filtering Language
 (`RFC 5228 <http://tools.ietf.org/html/rfc5228>`_)
 * ManageSieve : A Protocol for Remotely Managing Sieve Scripts
- (`Draft <http://tools.ietf.org/html/draft-martin-managesieve-12>`_)
+ (`RFC 5804 <http://tools.ietf.org/html/rfc5804>`_)
+ 
+ Installation
+ ------------
+ 
+ To install ``sievelib`` from PyPI::
+ 
+ pip install sievelib
+ 
+ To install sievelib from git::
+ 
+ git clone git@github.com:tonioo/sievelib.git
+ cd sievelib
+ python ./setup.py install
 
 Sieve tools
 -----------
@@ -29,7 +44,40 @@
 
 The following extensions are also supported:
 
+ * Copying Without Side Effects (`RFC 3894 <https://tools.ietf.org/html/rfc3894>`_)
+ * Body (`RFC 5173 <https://tools.ietf.org/html/rfc5173>`_)
 * Vacation (`RFC 5230 <http://tools.ietf.org/html/rfc5230>`_)
+ * Relational (`RFC 5231 <https://tools.ietf.org/html/rfc5231>`_)
+ * Imap4flags (`RFC 5232 <https://tools.ietf.org/html/rfc5232>`_)
+ 
+ The following extensions are partially supported:
+ 
+ * Date and Index (`RFC 5260 <https://tools.ietf.org/html/rfc5260>`_)
+ * Checking Mailbox Status and Accessing Mailbox Metadata (`RFC 5490 <https://tools.ietf.org/html/rfc5490>`_)
+ 
+ Extending the parser
+ ^^^^^^^^^^^^^^^^^^^^
+ 
+ It is possible to extend the parser by adding new supported
+ commands. For example::
+ 
+ import sievelib
+ 
+ class MyCommand(sievelib.commands.ActionCommand):
+ args_definition = 
+ {"name": "testtag",
+ "type": "tag",
+ "write_tag": True,
+ "values": ":testtag",
+ "extra_arg": {"type": "number",
+ "required": False},
+ "required": False},
+ {"name": "recipients",
+ "type": "string", "stringlist",
+ "required": True}
+ 
+ 
+ sievelib.commands.add_commands(MyCommand)
 
 Basic usage
 ^^^^^^^^^^^
@@ -63,7 +111,8 @@
 Some high-level classes are provided with the ``factory`` module, they
 make the generation of Sieve rules easier::
 
- >>> from sievelib.factory import FilterSet
+ >>> from sievelib.factory import FiltersSet
+ >>> fs = FiltersSet("test")
 >>> fs.addfilter("rule1",
 ... ("Sender", ":is", "toto@toto.com"),,
 ... ("fileinto", "Toto"),)
@@ -76,7 +125,7 @@
 }
 >>> 
 
- Additionnal documentation is available with source code.
+ Additional documentation is available within source code.
 
 ManageSieve tools
 -----------------
@@ -109,7 +158,14 @@
 True
 >>>
 
- Additionnal documentation is available with source code.
+ Additional documentation is available with source code.
+ 
+ .. |latest-version| image:: https://badge.fury.io/py/sievelib.svg
+ :target: https://badge.fury.io/py/sievelib
+ .. |travis| image:: https://travis-ci.org/tonioo/sievelib.png?branch=master
+ :target: https://travis-ci.org/tonioo/sievelib
+ .. |codecov| image:: http://codecov.io/github/tonioo/sievelib/coverage.svg?branch=master
+ :target: http://codecov.io/github/tonioo/sievelib?branch=master
 
 Keywords: sieve,managesieve,parser,client
 Platform: UNKNOWN

sievelib-0.5.2.tar.gz/README.rst -> sievelib-1.2.1.tar.gz/README.rst Changed

@@ -1,12 +1,27 @@
 sievelib
 ========
 
+|travis| |codecov| |latest-version|
+
 Client-side Sieve and Managesieve library written in Python.
 
 * Sieve : An Email Filtering Language
 (`RFC 5228 <http://tools.ietf.org/html/rfc5228>`_)
 * ManageSieve : A Protocol for Remotely Managing Sieve Scripts
- (`Draft <http://tools.ietf.org/html/draft-martin-managesieve-12>`_)
+ (`RFC 5804 <http://tools.ietf.org/html/rfc5804>`_)
+
+Installation
+------------
+
+To install ``sievelib`` from PyPI::
+
+ pip install sievelib
+
+To install sievelib from git::
+
+ git clone git@github.com:tonioo/sievelib.git
+ cd sievelib
+ python ./setup.py install
 
 Sieve tools
 -----------
@@ -21,7 +36,40 @@
 
 The following extensions are also supported:
 
+* Copying Without Side Effects (`RFC 3894 <https://tools.ietf.org/html/rfc3894>`_)
+* Body (`RFC 5173 <https://tools.ietf.org/html/rfc5173>`_)
 * Vacation (`RFC 5230 <http://tools.ietf.org/html/rfc5230>`_)
+* Relational (`RFC 5231 <https://tools.ietf.org/html/rfc5231>`_)
+* Imap4flags (`RFC 5232 <https://tools.ietf.org/html/rfc5232>`_)
+
+The following extensions are partially supported:
+
+* Date and Index (`RFC 5260 <https://tools.ietf.org/html/rfc5260>`_)
+* Checking Mailbox Status and Accessing Mailbox Metadata (`RFC 5490 <https://tools.ietf.org/html/rfc5490>`_)
+
+Extending the parser
+^^^^^^^^^^^^^^^^^^^^
+
+It is possible to extend the parser by adding new supported
+commands. For example::
+
+ import sievelib
+
+ class MyCommand(sievelib.commands.ActionCommand):
+ args_definition = 
+ {"name": "testtag",
+ "type": "tag",
+ "write_tag": True,
+ "values": ":testtag",
+ "extra_arg": {"type": "number",
+ "required": False},
+ "required": False},
+ {"name": "recipients",
+ "type": "string", "stringlist",
+ "required": True}
+ 
+
+ sievelib.commands.add_commands(MyCommand)
 
 Basic usage
 ^^^^^^^^^^^
@@ -55,7 +103,8 @@
 Some high-level classes are provided with the ``factory`` module, they
 make the generation of Sieve rules easier::
 
- >>> from sievelib.factory import FilterSet
+ >>> from sievelib.factory import FiltersSet
+ >>> fs = FiltersSet("test")
 >>> fs.addfilter("rule1",
 ... ("Sender", ":is", "toto@toto.com"),,
 ... ("fileinto", "Toto"),)
@@ -68,7 +117,7 @@
 }
 >>> 
 
-Additionnal documentation is available with source code.
+Additional documentation is available within source code.
 
 ManageSieve tools
 -----------------
@@ -101,4 +150,11 @@
 True
 >>>
 
-Additionnal documentation is available with source code.
+Additional documentation is available with source code.
+
+.. |latest-version| image:: https://badge.fury.io/py/sievelib.svg
+ :target: https://badge.fury.io/py/sievelib
+.. |travis| image:: https://travis-ci.org/tonioo/sievelib.png?branch=master
+ :target: https://travis-ci.org/tonioo/sievelib
+.. |codecov| image:: http://codecov.io/github/tonioo/sievelib/coverage.svg?branch=master
+ :target: http://codecov.io/github/tonioo/sievelib?branch=master

sievelib-1.2.1.tar.gz/requirements.txt Added

sievelib-0.5.2.tar.gz/setup.cfg -> sievelib-1.2.1.tar.gz/setup.cfg Changed

sievelib-0.5.2.tar.gz/setup.py -> sievelib-1.2.1.tar.gz/setup.py Changed

@@ -1,24 +1,42 @@
-from setuptools import setup
+#!/usr/bin/env python
 
-setup(
-    name = "sievelib",
-    packages = "sievelib",
-    version = "0.5.1",
-    description = "Client-side SIEVE library",
-    author = "Antoine Nguyen",
-    author_email = "tonio@ngyn.org",
-    url = "http://bitbucket.org/tonioo/sievelib",
-    license = "MIT",
-    keywords = "sieve", "managesieve", "parser", "client",
-    classifiers = 
-        "Programming Language :: Python",
-        "Development Status :: 4 - Beta",
-        "Intended Audience :: Developers",
-        "License :: OSI Approved :: MIT License",
-        "Operating System :: OS Independent",
-        "Topic :: Software Development :: Libraries :: Python Modules",
-        "Topic :: Communications :: Email :: Filters"
+"""
+A setuptools based setup module.
+
+See:
+https://packaging.python.org/en/latest/distributing.html
+"""
+
+import io
+from os import path
+from setuptools import setup, find_packages
+
+
+if __name__ == "__main__":
+    HERE = path.abspath(path.dirname(__file__))
+    with io.open(path.join(HERE, "README.rst"), encoding="utf-8") as readme:
+        LONG_DESCRIPTION = readme.read()
+    setup(
+        name="sievelib",
+        packages=find_packages(),
+        include_package_data=True,
+        description="Client-side SIEVE library",
+        author="Antoine Nguyen",
+        author_email="tonio@ngyn.org",
+        url="https://github.com/tonioo/sievelib",
+        license="MIT",
+        keywords="sieve", "managesieve", "parser", "client",
+        install_requires=,
+        setup_requires="setuptools_scm",
+        use_scm_version=True,
+        classifiers=
+            "Programming Language :: Python",
+            "Development Status :: 4 - Beta",
+            "Intended Audience :: Developers",
+            "License :: OSI Approved :: MIT License",
+            "Operating System :: OS Independent",
+            "Topic :: Software Development :: Libraries :: Python Modules",
+            "Topic :: Communications :: Email :: Filters"
         ,
-    
-    long_description = open("README.rst").read()
-)
+        long_description=LONG_DESCRIPTION
+    )

sievelib-1.2.1.tar.gz/sievelib.egg-info Added

sievelib-1.2.1.tar.gz/sievelib.egg-info/PKG-INFO Added

@@ -0,0 +1,178 @@
+Metadata-Version: 1.1
+Name: sievelib
+Version: 1.2.1
+Summary: Client-side SIEVE library
+Home-page: https://github.com/tonioo/sievelib
+Author: Antoine Nguyen
+Author-email: tonio@ngyn.org
+License: MIT
+Description: sievelib
+ ========
+ 
+ |travis| |codecov| |latest-version|
+ 
+ Client-side Sieve and Managesieve library written in Python.
+ 
+ * Sieve : An Email Filtering Language
+ (`RFC 5228 <http://tools.ietf.org/html/rfc5228>`_)
+ * ManageSieve : A Protocol for Remotely Managing Sieve Scripts
+ (`RFC 5804 <http://tools.ietf.org/html/rfc5804>`_)
+ 
+ Installation
+ ------------
+ 
+ To install ``sievelib`` from PyPI::
+ 
+ pip install sievelib
+ 
+ To install sievelib from git::
+ 
+ git clone git@github.com:tonioo/sievelib.git
+ cd sievelib
+ python ./setup.py install
+ 
+ Sieve tools
+ -----------
+ 
+ What is supported
+ ^^^^^^^^^^^^^^^^^
+ 
+ Currently, the provided parser supports most of the functionalities
+ described in the RFC. The only exception concerns section
+ *2.4.2.4. Encoding Characters Using "encoded-character"* which is not
+ supported.
+ 
+ The following extensions are also supported:
+ 
+ * Copying Without Side Effects (`RFC 3894 <https://tools.ietf.org/html/rfc3894>`_)
+ * Body (`RFC 5173 <https://tools.ietf.org/html/rfc5173>`_)
+ * Vacation (`RFC 5230 <http://tools.ietf.org/html/rfc5230>`_)
+ * Relational (`RFC 5231 <https://tools.ietf.org/html/rfc5231>`_)
+ * Imap4flags (`RFC 5232 <https://tools.ietf.org/html/rfc5232>`_)
+ 
+ The following extensions are partially supported:
+ 
+ * Date and Index (`RFC 5260 <https://tools.ietf.org/html/rfc5260>`_)
+ * Checking Mailbox Status and Accessing Mailbox Metadata (`RFC 5490 <https://tools.ietf.org/html/rfc5490>`_)
+ 
+ Extending the parser
+ ^^^^^^^^^^^^^^^^^^^^
+ 
+ It is possible to extend the parser by adding new supported
+ commands. For example::
+ 
+ import sievelib
+ 
+ class MyCommand(sievelib.commands.ActionCommand):
+ args_definition = 
+ {"name": "testtag",
+ "type": "tag",
+ "write_tag": True,
+ "values": ":testtag",
+ "extra_arg": {"type": "number",
+ "required": False},
+ "required": False},
+ {"name": "recipients",
+ "type": "string", "stringlist",
+ "required": True}
+ 
+ 
+ sievelib.commands.add_commands(MyCommand)
+ 
+ Basic usage
+ ^^^^^^^^^^^
+ 
+ The parser can either be used from the command-line::
+ 
+ $ cd sievelib
+ $ python parser.py test.sieve
+ Syntax OK
+ $
+ 
+ Or can be used from a python environment (or script/module)::
+ 
+ >>> from sievelib.parser import Parser
+ >>> p = Parser()
+ >>> p.parse('require "fileinto";')
+ True
+ >>> p.dump()
+ require (type: control)
+ "fileinto"
+ >>> 
+ >>> p.parse('require "fileinto"')
+ False
+ >>> p.error
+ 'line 1: parsing error: end of script reached while semicolon expected'
+ >>>
+ 
+ Simple filters creation
+ ^^^^^^^^^^^^^^^^^^^^^^^
+ 
+ Some high-level classes are provided with the ``factory`` module, they
+ make the generation of Sieve rules easier::
+ 
+ >>> from sievelib.factory import FiltersSet
+ >>> fs = FiltersSet("test")
+ >>> fs.addfilter("rule1",
+ ... ("Sender", ":is", "toto@toto.com"),,
+ ... ("fileinto", "Toto"),)
+ >>> fs.tosieve()
+ require "fileinto";
+ 
+ # Filter: rule1
+ if anyof (header :is "Sender" "toto@toto.com") {
+ fileinto "Toto";
+ }
+ >>> 
+ 
+ Additional documentation is available within source code.
+ 
+ ManageSieve tools
+ -----------------
+ 
+ What is supported
+ ^^^^^^^^^^^^^^^^^
+ 
+ All mandatory commands are supported. The ``RENAME`` extension is
+ supported, with a simulated behaviour for server that do not support
+ it.
+ 
+ For the ``AUTHENTICATE`` command, supported mechanisms are ``DIGEST-MD5``,
+ ``PLAIN`` and ``LOGIN``.
+ 
+ Basic usage
+ ^^^^^^^^^^^
+ 
+ The ManageSieve client is intended to be used from another python
+ application (there isn't any shell provided)::
+ 
+ >>> from sievelib.managesieve import Client
+ >>> c = Client("server.example.com")
+ >>> c.connect("user", "password", starttls=False, authmech="DIGEST-MD5")
+ True
+ >>> c.listscripts()
+ ("active_script", "script1", "script2")
+ >>> c.setactive("script1")
+ True
+ >>> c.havespace("script3", 45)
+ True
+ >>>
+ 
+ Additional documentation is available with source code.
+ 
+ .. |latest-version| image:: https://badge.fury.io/py/sievelib.svg
+ :target: https://badge.fury.io/py/sievelib
+ .. |travis| image:: https://travis-ci.org/tonioo/sievelib.png?branch=master
+ :target: https://travis-ci.org/tonioo/sievelib
+ .. |codecov| image:: http://codecov.io/github/tonioo/sievelib/coverage.svg?branch=master
+ :target: http://codecov.io/github/tonioo/sievelib?branch=master
+ 
+Keywords: sieve,managesieve,parser,client
+Platform: UNKNOWN
+Classifier: Programming Language :: Python
+Classifier: Development Status :: 4 - Beta
+Classifier: Intended Audience :: Developers
+Classifier: License :: OSI Approved :: MIT License
+Classifier: Operating System :: OS Independent
+Classifier: Topic :: Software Development :: Libraries :: Python Modules
+Classifier: Topic :: Communications :: Email :: Filters

sievelib-1.2.1.tar.gz/sievelib.egg-info/SOURCES.txt Added

sievelib-1.2.1.tar.gz/sievelib.egg-info/dependency_links.txt Added

sievelib-1.2.1.tar.gz/sievelib.egg-info/top_level.txt Added

sievelib-0.5.2.tar.gz/sievelib/__init__.py -> sievelib-1.2.1.tar.gz/sievelib/__init__.py Changed

sievelib-0.5.2.tar.gz/sievelib/commands.py -> sievelib-1.2.1.tar.gz/sievelib/commands.py Changed

@@ -1,5 +1,3 @@
-# coding: utf-8
-
 """
 SIEVE commands representation
 
@@ -22,17 +20,29 @@
 
 """
 import sys
+from collections.abc import Iterable
+from . import tools
+
+
+class CommandError(Exception):
+ """Base command exception class."""
+
+ pass
 
-class UnknownCommand(Exception):
+
+class UnknownCommand(CommandError):
 """Specific exception raised when an unknown command is encountered"""
+
 def __init__(self, name):
 self.name = name
 
 def __str__(self):
 return "unknown command %s" % self.name
 
-class BadArgument(Exception):
+
+class BadArgument(CommandError):
 """Specific exception raised when a bad argument is encountered"""
+
 def __init__(self, command, seen, expected):
 self.command = command
 self.seen = seen
@@ -40,108 +50,124 @@
 
 def __str__(self):
 return "bad argument %s for command %s (%s expected)" \
- % (self.seen, self.command, self.expected)
+ % (self.seen, self.command, self.expected)
+
 
-class BadValue(Exception):
+class BadValue(CommandError):
 """Specific exception raised when a bad argument value is encountered"""
+
 def __init__(self, argument, value):
 self.argument = argument
 self.value = value
 
 def __str__(self):
 return "bad value %s for argument %s" \
- % (self.value, self.argument)
+ % (self.value, self.argument)
+
+
+class ExtensionNotLoaded(CommandError):
+ """Raised when an extension is not loaded."""
+
+ def __init__(self, name):
+ self.name = name
+
+ def __str__(self):
+ return "extension '{}' not loaded".format(self.name)
 
 
 # Statement elements (see RFC, section 8.3)
 # They are used in different commands.
-comparator = {
- "name": "comparator",
- "type": "tag" ,
- "values": ":comparator" ,
- "extra_arg": {
- "type" : "string",
- "values" : '"i;octet"', '"i;ascii-casemap"' ,
- },
- "required": False
- }
-
-address_part = {
- "name": "address-part",
- "values": ":localpart", ":domain", ":all" ,
- "type" : "tag" ,
- "required" : False
- }
-
+comparator = {"name": "comparator",
+ "type": "tag",
+ "values": ":comparator",
+ "extra_arg": {"type": "string",
+ "values": '"i;octet"', '"i;ascii-casemap"'},
+ "required": False}
+address_part = {"name": "address-part",
+ "values": ":localpart", ":domain", ":all",
+ "type": "tag",
+ "required": False}
 match_type = {
- "name": "match-type",
- "values": ":is", ":contains", ":matches" ,
- "type": "tag" ,
- "required": False
- }
-
-namespace = {
- "name": "namespace",
- "values": ":personal", ":global" ,
- "type": "tag" ,
- "required": False
- }
+ "name": "match-type",
+ "values": ":is", ":contains", ":matches",
+ "extension_values": {
+ ":count": "relational",
+ ":value": "relational"
+ },
+ "extra_arg": {
+ "type": "string",
+ "values": '"gt"', '"ge"', '"lt"', '"le"', '"eq"', '"ne"',
+ "valid_for": ":count", ":value"
+ },
+ "type": "tag",
+ "required": False,
+}
 
-class Command(object):
- """
- Generic command representation.
 
- A command is described as follow:
+class Command(object):
+ """Generic command representation.
 
- * A name
- * A type
- * A description of supported arguments
- * Does it accept an unkwown quantity of arguments? (ex: anyof, allof)
- * Does it accept children? (ie. subcommands)
- * Is it an extension?
- * Must follow only certain commands
+ A command is described as follow:
+ * A name
+ * A type
+ * A description of supported arguments
+ * Does it accept an unknown quantity of arguments? (ex: anyof, allof)
+ * Does it accept children? (ie. subcommands)
+ * Is it an extension?
+ * Must follow only certain commands
 
 """
 _type = None
 variable_args_nb = False
+ non_deterministic_args = False
 accept_children = False
 must_follow = None
- is_extension = False
+ extension = None
 
 def __init__(self, parent=None):
 self.parent = parent
 self.arguments = {}
+ self.extra_arguments = {} # to store tag arguments
 self.children = 
 
 self.nextargpos = 0
 self.required_args = -1
 self.rargs_cnt = 0
-
- # for arguments that expect an argument :p (ex: :comparator)
- self.curarg = None
+ self.curarg = None # for arguments that expect an argument :p (ex: :comparator)
 
 self.name = self.__class__.__name__.replace("Command", "")
 self.name = self.name.lower()
 
+ self.hash_comments = 
+
 def __repr__(self):
 return "%s (type: %s)" % (self.name, self._type)
 
 def tosieve(self, indentlevel=0, target=sys.stdout):
- """
- Generate the sieve syntax corresponding to this command
+ """Generate the sieve syntax corresponding to this command
 
- Recursive method.
+ Recursive method.
 
- :param indentlevel: current indentation level
- :param target: opened file pointer where the content will be printed
+ :param indentlevel: current indentation level
+ :param target: opened file pointer where the content will be printed
 """
 self.__print(self.name, indentlevel, nocr=True, target=target)
 if self.has_arguments():
 for arg in self.args_definition:
- if not self.arguments.has_key(arg"name"):
+ if not arg"name" in self.arguments:
 continue
 target.write(" ")
 value = self.argumentsarg"name"
+ atype = arg"type"
+ if "tag" in atype:
+ target.write(value)
+ if arg"name" in self.extra_arguments:
+ value = self.extra_argumentsarg"name"
+ atype = arg"extra_arg""type"
+ target.write(" ")
+ else:
+ continue
+
 if type(value) == list:
 if self.__get_arg_type(arg"name") == "testlist":
 target.write("(")
@@ -151,38 +177,32 @@
 target.write(", ")
 target.write(")")
 else:
- target.write("" + (", ".join(map(lambda v: '"%s"' % v.strip('"'), value))) + "")
+ target.write(
+ "{}".format(", ".join(
+ '"%s"' % v.strip('"') for v in value)
+ )
+ )
 continue
 if isinstance(value, Command):
 value.tosieve(indentlevel, target=target)
 continue
 
- if type(value) is unicode:
- value = value.encode("utf-8")
-
- if "tag" in arg"type" and arg.get("write_tag", False):
- target.write("%s " % arg"values"0)
-
- if "string" in arg"type":
- target.write('"%s"' % value.strip('"'))
- elif arg.has_key('extra_arg') and "string" in arg'extra_arg''type':
- target.write('"%s"' % value.strip('"'))
+ if "string" in atype:
+ target.write(value)
+ if not value.startswith('"') and not value.startswith(""):
+ target.write("\n")
 else:
- target.write("%s" % value)
+ target.write(value)
 
 if not self.accept_children:
 if self.get_type() != "test":
- print >>target, ";"
+ target.write(";\n")
 return
-
 if self.get_type() != "control":
 return
-
- print >>target, " {"
-
+ target.write(" {\n")
 for ch in self.children:
 ch.tosieve(indentlevel + 4, target=target)
-
 self.__print("}", indentlevel, target=target)
 
 def __print(self, data, indentlevel, nocr=False, target=sys.stdout):
@@ -190,62 +210,70 @@
 if nocr:
 target.write(text)
 else:
- print >>target, text
+ target.write(text + "\n")
 
 def __get_arg_type(self, arg):
- """
- Return the type corresponding to the given name.
+ """Return the type corresponding to the given name.
 
- :param arg: a defined argument name
+ :param arg: a defined argument name
 """
-
 for a in self.args_definition:
 if a"name" == arg:
 return a"type"
 return None
 
 def complete_cb(self):
- """
- Completion callback
+ """Completion callback
 
- Called when a command is considered as complete by the parser.
+ Called when a command is considered as complete by the parser.
 """
-
 pass
 
 def get_expected_first(self):
- """
- Return the first expected token for this command
- """
-
+ """Return the first expected token for this command"""
 return None
 
 def has_arguments(self):
 return len(self.args_definition) != 0
 
- def dump(self, indentlevel=0, target=sys.stdout):
+ def reassign_arguments(self):
+ """Reassign arguments to proper slots.
+
+ Should be called when parsing of commands with non
+ deterministic arguments is considered done.
 """
- Display the command
+ raise NotImplementedError
+
+ def dump(self, indentlevel=0, target=sys.stdout):
+ """Display the command
 
- Pretty printing of this command and its eventual arguments and
- children. (recursively)
+ Pretty printing of this command and its eventual arguments and
+ children. (recursively)
 
- :param indentlevel: integer that indicates indentation level to apply
+ :param indentlevel: integer that indicates indentation level to apply
 """
-
 self.__print(self, indentlevel, target=target)
 indentlevel += 4
 if self.has_arguments():
 for arg in self.args_definition:
- if not self.arguments.has_key(arg"name"):
+ if not arg"name" in self.arguments:
 continue
 value = self.argumentsarg"name"
+ atype = arg"type"
+ if "tag" in atype:
+ self.__print(str(value), indentlevel, target=target)
+ if arg"name" in self.extra_arguments:
+ value = self.extra_argumentsarg"name"
+ atype = arg"extra_arg""type"
+ else:
+ continue
 if type(value) == list:
 if self.__get_arg_type(arg"name") == "testlist":
 for t in value:
 t.dump(indentlevel, target)
 else:
- self.__print("" + (",".join(value)) + "", indentlevel, target=target)
+ self.__print("" + (",".join(value)) + "",
+ indentlevel, target=target)
 continue
 if isinstance(value, Command):
 value.dump(indentlevel, target)
@@ -254,166 +282,220 @@
 for ch in self.children:
 ch.dump(indentlevel, target)
 
+ def walk(self):
+ """Walk through commands."""
+ yield self
+ if self.has_arguments():
+ for arg in self.args_definition:
+ if not arg"name" in self.arguments:
+ continue
+ value = self.argumentsarg"name"
+ if type(value) == list:
+ if self.__get_arg_type(arg"name") == "testlist":
+ for t in value:
+ for node in t.walk():
+ yield node
+ if isinstance(value, Command):
+ for node in value.walk():
+ yield node
+ for ch in self.children:
+ for node in ch.walk():
+ yield node
+
 def addchild(self, child):
- """
- Add a new child to the command
+ """Add a new child to the command
 
- A child corresponds to a command located into a block (this
- command's block). It can be either an action or a control.
+ A child corresponds to a command located into a block (this
+ command's block). It can be either an action or a control.
 
- :param child: the new child
- :return: True on succes, False otherwise
+ :param child: the new child
+ :return: True on succes, False otherwise
 """
-
 if not self.accept_children:
 return False
 self.children += child
 return True
 
- def iscomplete(self):
- """
- Check if the command is complete
+ def iscomplete(self, atype=None, avalue=None):
+ """Check if the command is complete
 
- Check if all required arguments have been encountered. For
- commands that allow an undefined number of arguments, this
- method always returns False.
+ Check if all required arguments have been encountered. For
+ commands that allow an undefined number of arguments, this
+ method always returns False.
 
- :return: True if command is complete, False otherwise
+ :return: True if command is complete, False otherwise
 """
-
 if self.variable_args_nb:
 return False
 if self.required_args == -1:
 self.required_args = 0
 for arg in self.args_definition:
- if arg"required":
+ if arg.get("required", False):
 self.required_args += 1
- return self.rargs_cnt == self.required_args
+ return (
+ (not self.curarg or
+ "extra_arg" not in self.curarg or
+ ("valid_for" in self.curarg"extra_arg" and
+ atype and atype in self.curarg"extra_arg""type" and
+ avalue not in self.curarg"extra_arg""valid_for")) and
+ (self.rargs_cnt == self.required_args)
+ )
 
 def get_type(self):
- """
- Return the command's type
- """
-
+ """Return the command's type"""
 if self._type is None:
- raise NotImplemented
+ raise NotImplementedError
 return self._type
 
- def __is_valid_value_for_arg(self, arg, value):
- """
- Check if value is allowed for arg
+ def __is_valid_value_for_arg(self, arg, value, check_extension=True):
+ """Check if value is allowed for arg
 
- Some commands only allow a limited set of values. The method
- always returns True for methods that do not provide such a
- set.
+ Some commands only allow a limited set of values. The method
+ always returns True for methods that do not provide such a
+ set.
 
- :param arg: the argument's name
- :param value: the value to check
- :return: True on succes, False otherwise
+ :param arg: the argument's name
+ :param value: the value to check
+ :param check_extension: check if value requires an extension
+ :return: True on succes, False otherwise
 """
-
- if not arg.has_key("values"):
+ if "values" not in arg and "extension_values" not in arg:
 return True
-
- if not isinstance(value, str) and not isinstance(value, basestring):
- if arg.has_key('type') and "stringlist" in arg'type':
+ if "values" in arg and value.lower() in arg"values":
+ return True
+ if "extension_values" in arg:
+ extension = arg"extension_values".get(value.lower())
+ if extension:
+ condition = (
+ check_extension and
+ extension not in RequireCommand.loaded_extensions
+ )
+ if condition:
+ raise ExtensionNotLoaded(extension)
 return True
- else:
- return False
+ return False
 
- return value.lower() in arg"values"
+ def __is_valid_type(self, typ, typlist):
+ """ Check if type is valid based on input type list
+ "string" is special because it can be used for stringlist
 
- def check_next_arg(self, atype, avalue, add=True):
+ :param typ: the type to check
+ :param typlist: the list of type to check
+ :return: True on success, False otherwise
 """
- Argument validity checking
+ typ_is_str = typ == "string"
+ str_list_in_typlist = "stringlist" in typlist
 
- This method is usually used by the parser to check if detected
- argument is allowed for this command.
+ return typ in typlist or (typ_is_str and str_list_in_typlist)
 
- We make a distinction between required and optional
- arguments. Optional (or tagged) arguments can be provided
- unordered but the required ones.
+ def check_next_arg(self, atype, avalue, add=True, check_extension=True):
+ """Argument validity checking
 
- A special handling is also for arguments that require an
- argument (example: the :comparator argument expects a string
- argument).
+ This method is usually used by the parser to check if detected
+ argument is allowed for this command.
 
- The "testlist" type is checked separately as we can't know in
- advance how many arguments will be provided.
+ We make a distinction between required and optional
+ arguments. Optional (or tagged) arguments can be provided
+ unordered but not the required ones.
 
- If the argument is incorrect, the method raises the
- appropriate exception, or return False to let the parser
- handle the exception.
+ A special handling is also done for arguments that require an
+ argument (example: the :comparator argument expects a string
+ argument).
 
- :param atype: the argument's type
- :param avalue: the argument's value
- :param add: indicates if this argument should be recorded on success
- :return: True on success, False otherwise
- """
+ The "testlist" type is checked separately as we can't know in
+ advance how many arguments will be provided.
+
+ If the argument is incorrect, the method raises the
+ appropriate exception, or return False to let the parser
+ handle the exception.
 
+ :param atype: the argument's type
+ :param avalue: the argument's value
+ :param add: indicates if this argument should be recorded on success
+ :param check_extension: raise ExtensionNotLoaded if extension not
+ loaded
+ :return: True on success, False otherwise
+ """
 if not self.has_arguments():
 return False
-
- if self.iscomplete():
+ if self.iscomplete(atype, avalue):
 return False
 
- if self.curarg is not None:
- if atype == self.curarg"extra_arg""type":
- if not self.curarg"extra_arg".has_key("values") or \
- avalue in self.curarg"extra_arg""values":
- if add:
- self.argumentsself.curarg"name" = avalue
- self.nextargpos += 1
- self.curarg = None
- return True
-
+ if self.curarg is not None and "extra_arg" in self.curarg:
+ condition = (
+ atype in self.curarg"extra_arg""type" and
+ ("values" not in self.curarg"extra_arg" or
+ avalue in self.curarg"extra_arg""values")
+ )
+ if condition:
+ if add:
+ self.extra_argumentsself.curarg"name" = avalue
+ self.curarg = None
+ return True
 raise BadValue(self.curarg"name", avalue)
 
 failed = False
-
- for arg in self.args_definitionself.nextargpos::
- if self.arguments.has_key(arg"name"):
- continue
-
- if arg"required":
- if arg"type" == "testlist":
- if not atype == "test":
+ pos = self.nextargpos
+ while pos < len(self.args_definition):
+ curarg = self.args_definitionpos
+ if curarg.get("required", False):
+ if curarg"type" == "testlist":
+ if atype != "test":
 failed = True
 elif add:
- if not self.arguments.has_key(arg"name"):
- self.argumentsarg"name" = 
- self.argumentsarg"name".append(avalue)
- elif atype not in arg"type" or \
- not self.__is_valid_value_for_arg(arg, avalue):
-
+ if not curarg"name" in self.arguments:
+ self.argumentscurarg"name" = 
+ self.argumentscurarg"name" += avalue
+ elif not self.__is_valid_type(atype, curarg"type") or \
+ not self.__is_valid_value_for_arg(
+ curarg, avalue, check_extension):
 failed = True
 else:
- self.nextargpos += 1
+ self.curarg = curarg
+ self.rargs_cnt += 1
+ self.nextargpos = pos + 1
 if add:
- self.argumentsarg"name" = avalue
-
+ self.argumentscurarg"name" = avalue
 break
 
- if self.__is_valid_value_for_arg(arg, avalue):
- self.argumentsarg"name" = avalue
- if arg.has_key('extra_arg'):
- self.curarg = arg
- break
- self.nextargpos += 1
+ condition = (
+ atype in curarg"type" and
+ self.__is_valid_value_for_arg(curarg, avalue, check_extension)
+ )
+ if condition:
+ ext = curarg.get("extension")
+ condition = (
+ check_extension and ext and
+ ext not in RequireCommand.loaded_extensions)
+ if condition:
+ raise ExtensionNotLoaded(ext)
+ condition = (
+ "extra_arg" in curarg and
+ ("valid_for" not in curarg"extra_arg" or
+ avalue in curarg"extra_arg""valid_for")
+ )
+ if condition:
+ self.curarg = curarg
+ if add:
+ self.argumentscurarg"name" = avalue
 break
 
+ pos += 1
+
 if failed:
 raise BadArgument(self.name, avalue,
- self.args_definitionself.nextargpos"type")
+ self.args_definitionpos"type")
 return True
 
+ def __contains__(self, name):
+ """Check if argument is provided with command."""
+ return name in self.arguments
+
 def __getitem__(self, name):
- """
- Shorcut to access a command argument
+ """Shorcut to access a command argument
 
- :param name: the argument's name
+ :param name: the argument's name
 """
-
 found = False
 for ad in self.args_definition:
 if ad"name" == name:
@@ -421,158 +503,225 @@
 break
 if not found:
 raise KeyError(name)
- if not self.arguments.has_key(name):
+ if name not in self.arguments:
 raise KeyError(name)
 return self.argumentsname
 
-class ControlCommand(Command):
- """
- Indermediate class to represent "control" commands
- """
 
+class ControlCommand(Command):
+ """Indermediate class to represent "control" commands"""
 _type = "control"
 
+
 class RequireCommand(ControlCommand):
- """
- The 'require' command
+ """The 'require' command
 
- This class has one big difference with others as it is used to
- store loaded extension names. (The result is we can check for
- unloaded extensions during the parsing)
+ This class has one big difference with others as it is used to
+ store loaded extension names. (The result is we can check for
+ unloaded extensions during the parsing)
 """
-
 args_definition = 
- {
- "name": "capabilities",
- "type": "string", "stringlist" ,
- "required": True
- }
- 
+ {"name": "capabilities",
+ "type": "string", "stringlist",
+ "required": True}
+ 
 
 loaded_extensions = 
 
 def complete_cb(self):
- if type(self.arguments"capabilities") == str:
+ if type(self.arguments"capabilities") != list:
 exts = self.arguments"capabilities"
 else:
 exts = self.arguments"capabilities"
 for ext in exts:
 ext = ext.strip('"')
- if not ext in RequireCommand.loaded_extensions:
+ if ext not in RequireCommand.loaded_extensions:
 RequireCommand.loaded_extensions += ext
 
-class StopCommand(ControlCommand):
- args_definition = 
 
 class IfCommand(ControlCommand):
 accept_children = True
 
 args_definition = 
- {
- "name": "test",
- "type": "test" ,
- "required": True
- }
- 
+ {"name": "test",
+ "type": "test",
+ "required": True}
+ 
 
 def get_expected_first(self):
 return "identifier"
 
+
 class ElsifCommand(ControlCommand):
 accept_children = True
 must_follow = "if", "elsif"
 args_definition = 
 {"name": "test",
- "type": "test" ,
+ "type": "test",
 "required": True}
- 
+ 
 
 def get_expected_first(self):
 return "identifier"
 
+
 class ElseCommand(ControlCommand):
 accept_children = True
 must_follow = "if", "elsif"
 args_definition = 
 
+
 class ActionCommand(Command):
 """Indermediate class to represent "action" commands"""
+
 _type = "action"
 
+ def args_as_tuple(self):
+ args = 
+ for name, value in list(self.arguments.items()):
+ unquote = False
+ for argdef in self.args_definition:
+ if name == argdef"name":
+ condition = (
+ "string" in argdef"type" or
+ "stringlist" in argdef"type"
+ )
+ if condition:
+ unquote = True
+ break
+ if unquote:
+ if "," in value:
+ args += tools.to_list(value)
+ else:
+ args.append(value.strip('"'))
+ continue
+ args.append(value)
+ return (self.name, ) + tuple(args)
+
+
+class StopCommand(ActionCommand):
+ args_definition = 
+
+
 class FileintoCommand(ActionCommand):
- is_extension = True
+ extension = "fileinto"
 args_definition = 
+ {"name": "copy",
+ "type": "tag",
+ "values": ":copy",
+ "required": False,
+ "extension": "copy"},
+ {"name": "create",
+ "type": "tag",
+ "values": ":create",
+ "required": False,
+ "extension": "mailbox"},
+ {"name": "flags",
+ "type": "tag",
+ "values": ":flags",
+ "extra_arg": {"type": "string", "stringlist"},
+ "extension": "imap4flags"},
 {"name": "mailbox",
- "type": "string" ,
+ "type": "string",
 "required": True}
- 
+ 
 
-class IncludeCommand(ControlCommand):
- is_extension = True
- accept_children = False
+
+class RedirectCommand(ActionCommand):
 args_definition = 
- namespace,
- {"name": "script",
- "type": "string" ,
+ {"name": "copy",
+ "type": "tag",
+ "values": ":copy",
+ "required": False,
+ "extension": "copy"},
+ {"name": "address",
+ "type": "string",
 "required": True}
- 
+ 
 
-class AddflagCommand(ActionCommand):
- args_definition = 
- {
- "name": "flag",
- "type": "string" ,
- "required": True
- }
- 
 
-class SetflagCommand(ActionCommand):
+class RejectCommand(ActionCommand):
+ extension = "reject"
 args_definition = 
- {
- "name": "flag",
- "type": "string" ,
- "required": True
- }
- 
+ {"name": "text",
+ "type": "string",
+ "required": True}
+ 
 
-class RedirectCommand(ActionCommand):
- is_extension = False
- args_definition = 
- {
- "name": "copy",
- "values": ":copy" ,
- "type": "tag" ,
- "required": False
- },
- {
- "name": "address",
- "type": "string", "stringlist" ,
- "required": True
- },
- 
 
 class KeepCommand(ActionCommand):
- args_definition = 
+ args_definition = 
+ {"name": "flags",
+ "type": "tag",
+ "values": ":flags",
+ "extra_arg": {"type": "string", "stringlist"},
+ "extension": "imap4flags"},
+ 
+
 
 class DiscardCommand(ActionCommand):
 args_definition = 
 
+
+class SetflagCommand(ActionCommand):
+ """imap4flags extension: setflag."""
+
+ args_definition = 
+ {"name": "variable-name",
+ "type": "string",
+ "required": False},
+ {"name": "list-of-flags",
+ "type": "string", "stringlist",
+ "required": True}
+ 
+ extension = "imap4flags"
+
+
+class AddflagCommand(ActionCommand):
+ """imap4flags extension: addflag."""
+
+ args_definition = 
+ {"name": "variable-name",
+ "type": "string",
+ "required": False},
+ {"name": "list-of-flags",
+ "type": "string", "stringlist",
+ "required": True}
+ 
+ extension = "imap4flags"
+
+
+class RemoveflagCommand(ActionCommand):
+ """imap4flags extension: removeflag."""
+
+ args_definition = 
+ {"name": "variable-name",
+ "type": "string"},
+ {"name": "list-of-flags",
+ "type": "string", "stringlist",
+ "required": True}
+ 
+ extension = "imap4flags"
+
+
 class TestCommand(Command):
 """Indermediate class to represent "test" commands"""
 _type = "test"
 
+
 class AddressCommand(TestCommand):
 args_definition = 
 comparator,
 address_part,
 match_type,
 {"name": "header-list",
- "type": "string", "stringlist" ,
+ "type": "string", "stringlist",
 "required": True},
 {"name": "key-list",
- "type": "string", "stringlist" ,
+ "type": "string", "stringlist",
 "required": True}
- 
+ 
+
 
 class AllofCommand(TestCommand):
 accept_children = True
@@ -580,128 +729,360 @@
 
 args_definition = 
 {"name": "tests",
- "type": "testlist" ,
+ "type": "testlist",
 "required": True}
- 
+ 
 
 def get_expected_first(self):
 return "left_parenthesis"
 
+
 class AnyofCommand(TestCommand):
 accept_children = True
 variable_args_nb = True
 
 args_definition = 
 {"name": "tests",
- "type": "testlist" ,
+ "type": "testlist",
 "required": True}
- 
+ 
 
 def get_expected_first(self):
 return "left_parenthesis"
 
+
 class EnvelopeCommand(TestCommand):
 args_definition = 
 comparator,
 address_part,
 match_type,
 {"name": "header-list",
- "type": "string", "stringlist" ,
+ "type": "string", "stringlist",
 "required": True},
 {"name": "key-list",
- "type": "string", "stringlist" ,
+ "type": "string", "stringlist",
 "required": True}
- 
+ 
+ extension = "envelope"
+
+ def args_as_tuple(self):
+ """Return arguments as a list."""
+ result = ("envelope", self.arguments"match-type")
+ value = self.arguments"header-list"
+ if isinstance(value, list):
+ # FIXME
+ value = "{}".format(
+ ",".join('"{}"'.format(item) for item in value))
+ if value.startswith(""):
+ result += (tools.to_list(value),)
+ else:
+ result += (value.strip('"'),)
+ value = self.arguments"key-list"
+ if isinstance(value, list):
+ # FIXME
+ value = "{}".format(
+ ",".join('"{}"'.format(item) for item in value))
+ if value.startswith(""):
+ result += (tools.to_list(value), )
+ else:
+ result = result + (value.strip('"'),)
+ return result
+
 
 class ExistsCommand(TestCommand):
 args_definition = 
 {"name": "header-names",
- "type": "string", "stringlist" ,
+ "type": "string", "stringlist",
 "required": True}
- 
+ 
+
+ def args_as_tuple(self):
+ """FIXME: en fonction de la manière dont la commande a été générée
+ (factory ou parser), le type des arguments est différent :
+ string quand ça vient de la factory ou type normal depuis le
+ parser. Il faut uniformiser tout ça !!
+
+ """
+ value = self.arguments"header-names"
+ if isinstance(value, list):
+ value = "{}".format(
+ ",".join('"{}"'.format(item) for item in value))
+ if not value.startswith(""):
+ return ('exists', value.strip('"'))
+ return ("exists", ) + tuple(tools.to_list(value))
+
 
 class TrueCommand(TestCommand):
 args_definition = 
 
+
 class FalseCommand(TestCommand):
 args_definition = 
 
+
 class HeaderCommand(TestCommand):
 args_definition = 
 comparator,
 match_type,
 {"name": "header-names",
- "type": "string", "stringlist" ,
+ "type": "string", "stringlist",
 "required": True},
 {"name": "key-list",
- "type": "string", "stringlist" ,
+ "type": "string", "stringlist",
 "required": True}
- 
+ 
+
+ def args_as_tuple(self):
+ """Return arguments as a list."""
+ if "," in self.arguments"header-names":
+ result = tuple(tools.to_list(self.arguments"header-names"))
+ else:
+ result = (self.arguments"header-names".strip('"'),)
+ result = result + (self.arguments"match-type",)
+ if "," in self.arguments"key-list":
+ result = result + tuple(
+ tools.to_list(self.arguments"key-list", unquote=False))
+ else:
+ result = result + (self.arguments"key-list".strip('"'),)
+ return result
+
+
+class BodyCommand(TestCommand):
+ """Body extension.
+
+ See https://tools.ietf.org/html/rfc5173.
+ """
+
+ args_definition = 
+ comparator,
+ match_type,
+ {"name": "body-transform",
+ "values": ":raw", ":content", ":text",
+ "extra_arg": {"type": "stringlist", "valid_for": ":content"},
+ "type": "tag",
+ "required": False},
+ {"name": "key-list",
+ "type": "string", "stringlist",
+ "required": True},
+ 
+ extension = "body"
+
+ def args_as_tuple(self):
+ """Return arguments as a list."""
+ result = ("body", )
+ result = result + (
+ self.arguments"body-transform", self.arguments"match-type")
+ value = self.arguments"key-list"
+ if isinstance(value, list):
+ # FIXME
+ value = "{}".format(
+ ",".join('"{}"'.format(item) for item in value))
+ if value.startswith(""):
+ result += tuple(tools.to_list(value))
+ else:
+ result += (value.strip('"'),)
+ return result
+
 
 class NotCommand(TestCommand):
 accept_children = True
 
 args_definition = 
 {"name": "test",
- "type": "test" ,
+ "type": "test",
 "required": True}
- 
+ 
 
 def get_expected_first(self):
 return "identifier"
 
+
 class SizeCommand(TestCommand):
 args_definition = 
 {"name": "comparator",
- "type": "tag" ,
- "values": ":over", ":under" ,
+ "type": "tag",
+ "values": ":over", ":under",
 "required": True},
 {"name": "limit",
- "type": "number" ,
+ "type": "number",
+ "required": True},
+ 
+
+ def args_as_tuple(self):
+ return ("size", self.arguments"comparator", self.arguments"limit")
+
+
+class HasflagCommand(TestCommand):
+ """imap4flags extension: hasflag."""
+
+ args_definition = 
+ comparator,
+ match_type,
+ {"name": "variable-list",
+ "type": "string", "stringlist",
+ "required": False},
+ {"name": "list-of-flags",
+ "type": "string", "stringlist",
+ "required": True}
+ 
+ extension = "imap4flags"
+ non_deterministic_args = True
+
+ def reassign_arguments(self):
+ """Deal with optional stringlist before a required one."""
+ condition = (
+ "variable-list" in self.arguments and
+ "list-of-flags" not in self.arguments
+ )
+ if condition:
+ self.arguments"list-of-flags" = (
+ self.arguments.pop("variable-list"))
+ self.rargs_cnt = 1
+
+
+class DateCommand(TestCommand):
+ """date command, part of the date extension.
+
+ https://tools.ietf.org/html/rfc5260#section-4
+ """
+
+ extension = "date"
+ args_definition = 
+ {"name": "zone",
+ "type": "tag",
+ "values": ":zone", ":originalzone",
+ "extra_arg": {"type": "string", "valid_for": ":zone"},
+ "required": False},
+ comparator,
+ match_type,
+ {"name": "header-name",
+ "type": "string",
+ "required": True},
+ {"name": "date-part",
+ "type": "string",
+ "required": True},
+ {"name": "key-list",
+ "type": "string", "stringlist",
+ "required": True}
+ 
+
+
+class CurrentdateCommand(TestCommand):
+ """currentdate command, part of the date extension.
+
+ http://tools.ietf.org/html/rfc5260#section-5
+ """
+
+ extension = "date"
+ args_definition = 
+ {"name": "zone",
+ "type": "tag",
+ "values": ":zone",
+ "extra_arg": {"type": "string"},
+ "required": False},
+ comparator,
+ match_type,
+ {"name": "date-part",
+ "type": "string",
 "required": True},
- 
+ {"name": "key-list",
+ "type": "string", "stringlist",
+ "required": True}
+ 
+
+ def args_as_tuple(self):
+ """Return arguments as a list."""
+ result = ("currentdate", )
+ result += (
+ ":zone",
+ self.extra_arguments"zone".strip('"'),
+ self.arguments"match-type",
+ )
+ if self.arguments"match-type" in ":count", ":value":
+ result += (self.extra_arguments"match-type".strip('"'), )
+ result += (self.arguments"date-part".strip('"'), )
+ value = self.arguments"key-list"
+ if isinstance(value, list):
+ # FIXME
+ value = "{}".format(
+ ",".join('"{}"'.format(item) for item in value))
+ if value.startswith(""):
+ result = result + tuple(tools.to_list(value))
+ else:
+ result = result + (value.strip('"'),)
+ return result
+
 
 class VacationCommand(ActionCommand):
 args_definition = 
- {"name": "days",
- "type": "tag" ,
- "write_tag": True,
- "values": ":days" ,
- "extra_arg": {"type": "number"},
- "required": False},
 {"name": "subject",
- "type": "tag" ,
- "write_tag": True,
- "values": ":subject" ,
- "extra_arg": {"type": "string"},
- "required": False},
+ "type": "tag",
+ "values": ":subject",
+ "extra_arg": {"type": "string"},
+ "required": False},
+ {"name": "days",
+ "type": "tag",
+ "values": ":days",
+ "extra_arg": {"type": "number"},
+ "required": False},
 {"name": "from",
- "type": "tag" ,
- "write_tag": True,
- "values": ":from" ,
- "extra_arg": {"type": "string"},
- "required": False},
+ "type": "tag",
+ "values": ":from",
+ "extra_arg": {"type": "string"},
+ "required": False},
 {"name": "addresses",
- "type": "tag" ,
- "write_tag": True,
- "values": ":addresses" ,
- "extra_arg": {"type": "stringlist"},
- "required": False},
+ "type": "tag",
+ "values": ":addresses",
+ "extra_arg": {"type": "string", "stringlist"},
+ "required": False},
 {"name": "handle",
- "type": "tag" ,
- "write_tag": True,
- "values": ":handle" ,
- "extra_arg": {"type": "string"},
- "required": False},
+ "type": "tag",
+ "values": ":handle",
+ "extra_arg": {"type": "string"},
+ "required": False},
 {"name": "mime",
- "type": "tag" ,
- "write_tag": True,
- "values": ":mime" ,
- "required": False},
+ "type": "tag",
+ "values": ":mime",
+ "required": False},
 {"name": "reason",
- "type": "string" ,
+ "type": "string",
+ "required": True},
+ 
+
+
+class SetCommand(ControlCommand):
+
+ """set command, part of the variables extension
+
+ http://tools.ietf.org/html/rfc5229
+ """
+
+ extension = "variables"
+ args_definition = 
+ {"name": "startend",
+ "type": "string",
 "required": True},
- 
+ {"name": "date",
+ "type": "string",
+ "required": True}
+ 
+
+
+def add_commands(cmds):
+ """
+ Adds one or more commands to the module namespace.
+ Commands must end in "Command" to be added.
+ Example (see tests/parser.py):
+ sievelib.commands.add_commands(MytestCommand)
+
+ :param cmds: a single Command Object or list of Command Objects
+ """
+ if not isinstance(cmds, Iterable):
+ cmds = cmds
+
+ for command in cmds:
+ if command.__name__.endswith("Command"):
+ globals()command.__name__ = command
 
 
 def get_command_instance(name, parent=None, checkexists=True):
@@ -718,8 +1099,12 @@
 :return: a new class instance
 """
 cname = "%sCommand" % name.lower().capitalize()
- if not globals().has_key(cname) or \
- (checkexists and globals()cname.is_extension and \
- not name in RequireCommand.loaded_extensions):
+ gl = globals()
+ condition = (
+ cname not in gl or
+ (checkexists and glcname.extension and
+ glcname.extension not in RequireCommand.loaded_extensions)
+ )
+ if condition:
 raise UnknownCommand(name)
- return globals()cname(parent)
+ return glcname(parent)

sievelib-0.5.2.tar.gz/sievelib/digest_md5.py -> sievelib-1.2.1.tar.gz/sievelib/digest_md5.py Changed

@@ -1,5 +1,3 @@
-# coding: utf-8
-
 """
 Simple Digest-MD5 implementation (client side)
 
@@ -12,13 +10,14 @@
 import re
 import random
 
+
 class DigestMD5(object):
     def __init__(self, challenge, digesturi):
         self.__digesturi = digesturi
         self.__challenge = challenge
 
         self.__params = {}
-        pexpr = re.compile('(\w+)="(.+)"')
+        pexpr = re.compile(r'(\w+)="(.+)"')
         for elt in base64.b64decode(challenge).split(","):
             m = pexpr.match(elt)
             if m is None:
@@ -38,32 +37,39 @@
         return binascii.hexlify(hashlib.md5(value).digest())
 
     def __make_response(self, username, password, check=False):
-        a1 = "%s:%s:%s" % (self.__digest("%s:%s:%s" % (username, self.realm, password)), 
-                           self.__params"nonce", self.cnonce)
+        a1 = "%s:%s:%s" % (
+            self.__digest("%s:%s:%s" % (username, self.realm, password)),
+            self.__params"nonce", self.cnonce
+        )
         if check:
             a2 = ":%s" % self.__digesturi
         else:
             a2 = "AUTHENTICATE:%s" % self.__digesturi
         resp = "%s:%s:00000001:%s:auth:%s" \
-            % (self.__hexdigest(a1), self.__params"nonce",
-               self.cnonce, self.__hexdigest(a2))
+               % (self.__hexdigest(a1), self.__params"nonce",
+                  self.cnonce, self.__hexdigest(a2))
 
         return self.__hexdigest(resp)
 
-    def response(self, username, password):
-        self.realm = self.__params"realm" if self.__params.has_key("realm") else ""
+    def response(self, username, password, authz_id=''):
+        self.realm = self.__params"realm" \
+            if self.__params.has_key("realm") else ""
         self.cnonce = self.__make_cnonce()
         respvalue = self.__make_response(username, password)
 
         dgres = 'username="%s",%snonce="%s",cnonce="%s",nc=00000001,qop=auth,' \
-            'digest-uri="%s",response=%s' \
-            % (username, ('realm="%s",' % self.realm) if len(self.realm) else "", 
+                'digest-uri="%s",response=%s' \
+            % (username,
+               ('realm="%s",' % self.realm) if len(self.realm) else "",
                self.__params"nonce", self.cnonce, self.__digesturi, respvalue)
+        if authz_id:
+            if type(authz_id) is unicode:
+                authz_id = authz_id.encode("utf-8")
+            dgres += ',authzid="%s"' % authz_id
 
         return base64.b64encode(dgres)
 
     def check_last_challenge(self, username, password, value):
         challenge = base64.b64decode(value.strip('"'))
         return challenge == \
-            ("rspauth=%s" % self.__make_response(username, password, True))
-        
+               ("rspauth=%s" % self.__make_response(username, password, True))

sievelib-0.5.2.tar.gz/sievelib/factory.py -> sievelib-1.2.1.tar.gz/sievelib/factory.py Changed

@@ -1,5 +1,3 @@
-# coding: utf-8
-
 """
 Tools for simpler sieve filters generation.
 
@@ -9,18 +7,35 @@
 Only commands (control/test/action) defined in the ``commands`` module
 are supported.
 """
+
+import io
 import sys
-import cStringIO
-from commands import *
+
+from sievelib import commands
+
 
 class FiltersSet(object):
-    def __init__(self, name):
+
+    """A set of filters."""
+
+    def __init__(self, name, filter_name_pretext=u"# Filter: ",
+                 filter_desc_pretext=u"# Description: "):
+        """Represents a set of one or more filters
+
+        :param name: the filterset's name
+        :param filter_name_pretext: the text that is used to mark a filter name
+                                    (as comment preceding the filter)
+        :param filter_desc_pretext: the text that is used to mark a filter
+                                     description
+        """
         self.name = name
+        self.filter_name_pretext = filter_name_pretext
+        self.filter_desc_pretext = filter_desc_pretext
         self.requires = 
         self.filters = 
 
     def __str__(self):
-        target = cStringIO.StringIO()
+        target = io.StringIO()
         self.tosieve(target)
         ret = target.getvalue()
         target.close()
@@ -31,30 +46,37 @@
 
         Simply checks if the filter is surrounded by a "if false" test.
 
-        :param name: the filter's name
+        :param fcontent: the filter's name
         """
-        if not isinstance(fcontent, IfCommand):
+        if not isinstance(fcontent, commands.IfCommand):
             return False
-        if not isinstance(fcontent"test", FalseCommand):
+        if not isinstance(fcontent"test", commands.FalseCommand):
             return False
         return True
 
     def from_parser_result(self, parser):
         cpt = 1
         for f in parser.result:
-            if isinstance(f, RequireCommand):
+            if isinstance(f, commands.RequireCommand):
                 if type(f.arguments"capabilities") == list:
-                    map(self.require, f.arguments"capabilities")
+                    self.require(c) for c in f.arguments"capabilities"
                 else:
                     self.require(f.arguments"capabilities")
                 continue
-            if cpt - 1 >= len(parser.hash_comments):
-                name =  "Unnamed rule %d" % cpt
-            else:
-                name = parser.hash_commentscpt - 1.replace("# Filter: ", "")
-            self.filters += {"name" : name,
-                              "content" : f,
-                              "enabled" : not self.__isdisabled(f)}
+
+            name = "Unnamed rule %d" % cpt
+            description = ""
+            for comment in f.hash_comments:
+                if isinstance(comment, bytes):
+                    comment = comment.decode("utf-8")
+                if comment.startswith(self.filter_name_pretext):
+                    name = comment.replace(self.filter_name_pretext, "")
+                if comment.startswith(self.filter_desc_pretext):
+                    description = comment.replace(self.filter_desc_pretext, "")
+            self.filters += {"name": name,
+                              "description": description,
+                              "content": f,
+                              "enabled": not self.__isdisabled(f)}
             cpt += 1
 
     def require(self, name):
@@ -62,20 +84,56 @@
 
         :param name: the extension's name
         """
-
         name = name.strip('"')
-        if not name in self.requires:
+        if name not in self.requires:
             self.requires += name
 
+    def check_if_arg_is_extension(self, arg):
+        """Include extension if arg requires one."""
+        args_using_extensions = {
+            ":copy": "copy"
+        }
+        if arg in args_using_extensions:
+            self.require(args_using_extensionsarg)
+
     def __gen_require_command(self):
         """Internal method to create a RequireCommand based on requirements
 
         Called just before this object is going to be dumped.
         """
-        reqcmd = get_command_instance("require")
+        if not len(self.requires):
+            return None
+        reqcmd = commands.get_command_instance("require")
         reqcmd.check_next_arg("stringlist", self.requires)
         return reqcmd
 
+    def __quote_if_necessary(self, value):
+        """Add double quotes to the given string if necessary
+
+        :param value: the string to check
+        :return: the string between quotes
+        """
+        if not value.startswith(('"', "'")):
+            return '"%s"' % value
+        return value
+
+    def __build_condition(self, condition, parent, tag=None):
+        """Translate a condition to a valid sievelib Command.
+
+        :param list condition: condition's definition
+        :param ``Command`` parent: the parent
+        :param str tag: tag to use instead of the one included into :keyword:`condition`
+        :rtype: Command
+        :return: the generated command
+        """
+        if tag is None:
+            tag = condition1
+        cmd = commands.get_command_instance("header", parent)
+        cmd.check_next_arg("tag", tag)
+        cmd.check_next_arg("string", self.__quote_if_necessary(condition0))
+        cmd.check_next_arg("string", self.__quote_if_necessary(condition2))
+        return cmd
+
     def __create_filter(self, conditions, actions, matchtype="anyof"):
         """Create a new filter
 
@@ -99,85 +157,121 @@
         :param actions: the list of actions
         :param matchtype: "anyof" or "allof"
         """
-        ifcontrol = get_command_instance("if")
-        mtypeobj = get_command_instance(matchtype, ifcontrol)
+        ifcontrol = commands.get_command_instance("if")
+        mtypeobj = commands.get_command_instance(matchtype, ifcontrol)
         for c in conditions:
-            _cmd = None
-
-            if c0 == "not":
-                _cmd = get_command_instance(c0, ifcontrol)
-                c = c1
-
-            if c0 in "true", "false":
-                cmd = get_command_instance(c0, ifcontrol)
-            elif c in "true", "false":
-                cmd = get_command_instance(c, ifcontrol)
-            elif c0 == "size":
-                cmd = get_command_instance("size", ifcontrol)
+            if c0.startswith("not"):
+                negate = True
+                cname = c0.replace("not", "", 1)
+            else:
+                negate = False
+                cname = c0
+            if cname in ("true", "false"):
+                cmd = commands.get_command_instance(c0, ifcontrol)
+            elif cname == "size":
+                cmd = commands.get_command_instance("size", ifcontrol)
                 cmd.check_next_arg("tag", c1)
                 cmd.check_next_arg("number", c2)
-            elif c0 == "envelope":
-                cmd = get_command_instance("envelope", ifcontrol)
-                for param in c1::
-                    try:
-                        cmd.check_next_arg("tag", param)
-                    except:
-                        try:
-                            cmd.check_next_arg("string", param)
-                        except:
-                            try:
-                                cmd.check_next_arg("stringlist", param)
-                            except:
-                                pass
-
-            else:
-                cmd = get_command_instance("header", ifcontrol)
-                if c0 == "header":
-                    params = c1:
+            elif cname == "exists":
+                cmd = commands.get_command_instance("exists", ifcontrol)
+                cmd.check_next_arg(
+                    "stringlist",
+                    "%s" % (",".join('"%s"' % val for val in c1:))
+                )
+            elif cname == "envelope":
+                cmd = commands.get_command_instance(
+                    "envelope", ifcontrol, False)
+                self.require("envelope")
+                if c1.startswith(":not"):
+                    comp_tag = c1.replace("not", "")
+                    negate = True
+                else:
+                    comp_tag = c1
+                cmd.check_next_arg("tag", comp_tag)
+                cmd.check_next_arg(
+                    "stringlist",
+                    "{}".format(",".join('"{}"'.format(val) for val in c2))
+                )
+                cmd.check_next_arg(
+                    "stringlist",
+                    "{}".format(",".join('"{}"'.format(val) for val in c3))
+                )
+            elif cname == "body":
+                cmd = commands.get_command_instance("body", ifcontrol, False)
+                self.require(cmd.extension)
+                cmd.check_next_arg("tag", c1)
+                if c2.startswith(":not"):
+                    comp_tag = c2.replace("not", "")
+                    negate = True
+                else:
+                    comp_tag = c2
+                cmd.check_next_arg("tag", comp_tag)
+                cmd.check_next_arg(
+                    "stringlist",
+                    "%s" % (",".join('"%s"' % val for val in c3:))
+                )
+            elif cname == "currentdate":
+                cmd = commands.get_command_instance(
+                    "currentdate", ifcontrol, False)
+                self.require(cmd.extension)
+                cmd.check_next_arg("tag", c1)
+                cmd.check_next_arg("string", self.__quote_if_necessary(c2))
+                if c3.startswith(":not"):
+                    comp_tag = c3.replace("not", "")
+                    negate = True
                 else:
-                    params = c
-
-                for param in params:
-                    try:
-                        cmd.check_next_arg("tag", param)
-                    except:
-                        try:
-                            cmd.check_next_arg("string", param)
-                        except:
-                            try:
-                                cmd.check_next_arg("stringlist", param)
-                            except:
-                                pass
-
-            if not _cmd == None:
-                _cmd.check_next_arg("test", cmd)
-                mtypeobj.check_next_arg("test", _cmd)
+                    comp_tag = c3
+                cmd.check_next_arg("tag", comp_tag, check_extension=False)
+                next_arg_pos = 4
+                if comp_tag == ":value":
+                    self.require("relational")
+                    cmd.check_next_arg(
+                        "string", self.__quote_if_necessary(cnext_arg_pos))
+                    next_arg_pos += 1
+                cmd.check_next_arg(
+                    "string", self.__quote_if_necessary(cnext_arg_pos))
+                next_arg_pos += 1
+                cmd.check_next_arg(
+                    "stringlist",
+                    "%s" %
+                    (",".join('"%s"' % val for val in cnext_arg_pos:))
+                )
             else:
-                mtypeobj.check_next_arg("test", cmd)
-
+                # header command fallback
+                if c1.startswith(':not'):
+                    cmd = self.__build_condition(
+                        c, ifcontrol, c1.replace("not", "", 1))
+                    negate = True
+                else:
+                    cmd = self.__build_condition(c, ifcontrol)
+            if negate:
+                not_cmd = commands.get_command_instance("not", ifcontrol)
+                not_cmd.check_next_arg("test", cmd)
+                cmd = not_cmd
+            mtypeobj.check_next_arg("test", cmd)
         ifcontrol.check_next_arg("test", mtypeobj)
 
         for actdef in actions:
-            if actdef in  "discard", "keep", "stop":
-                action = get_command_instance(actdef, ifcontrol, False)
-            else:
-                #self.require(actdef0)
-                action = get_command_instance(actdef0, ifcontrol, False)
-                if len(actdef) > 1:
-                    for arg in actdef1::
-                        if isinstance(arg, basestring) or isinstance(arg, str):
-                            try:
-                                action.check_next_arg("string", arg)
-                            except:
-                                action.check_next_arg("tag", arg)
-                        elif isinstance(arg, list):
-                            action.check_next_arg("stringlist", arg)
-                        elif isinstance(arg, int):
-                            action.check_next_arg("number", arg)
-
+            action = commands.get_command_instance(actdef0, ifcontrol, False)
+            if action.extension is not None:
+                self.require(action.extension)
+            for arg in actdef1::
+                self.check_if_arg_is_extension(arg)
+                if arg.startswith(":"):
+                    atype = "tag"
+                else:
+                    atype = "string"
+                    arg = self.__quote_if_necessary(arg)
+                action.check_next_arg(atype, arg, check_extension=False)
             ifcontrol.addchild(action)
         return ifcontrol
 
+    def _unicode_filter_name(self, name):
+        """Convert name to unicode if necessary."""
+        return (
+            name.decode("utf-8") if isinstance(name, bytes) else name
+        )
+
     def addfilter(self, name, conditions, actions, matchtype="anyof"):
         """Add a new filter to this filters set
 
@@ -187,19 +281,26 @@
         :param matchtype: "anyof" or "allof"
         """
         ifcontrol = self.__create_filter(conditions, actions, matchtype)
-        self.filters += {"name" : name, "content" : ifcontrol, "enabled" : True}
+        self.filters += {
+            "name": self._unicode_filter_name(name), "content": ifcontrol,
+            "enabled": True}
+        
 
-    def updatefilter(self, oldname, newname, conditions, actions, matchtype="anyof"):
+    def updatefilter(
+            self, oldname, newname, conditions, actions, matchtype="anyof"):
         """Update a specific filter
 
         Instead of removing and re-creating the filter, we update the
-        content in order to keep the original ordre between filters.
+        content in order to keep the original order between filters.
 
-        :param name: the filter's name
+        :param oldname: the filter's current name
+        :param newname: the filter's new name
         :param conditions: the list of conditions
         :param actions: the list of actions
         :param matchtype: "anyof" or "allof"
         """
+        oldname = self._unicode_filter_name(oldname)
+        newname = self._unicode_filter_name(newname)
         for f in self.filters:
             if f"name" == oldname:
                 f"name" = newname
@@ -210,12 +311,40 @@
                 return True
         return False
 
+    def replacefilter(
+            self, oldname, sieve_filter, newname=None, description=None):
+        """replace a specific sieve_filter
+
+        Instead of removing and re-creating the sieve_filter, we update the
+        content in order to keep the original order between filters.
+
+        :param oldname: the sieve_filter's current name
+        :param newname: the sieve_filter's new name
+        :param sieve_filter: the sieve_filter object as get from
+                             FiltersSet.getfilter()
+        """
+        oldname = self._unicode_filter_name(oldname)
+        newname = self._unicode_filter_name(newname)
+        if newname is None:
+            newname = oldname
+        for f in self.filters:
+            if f"name" == oldname:
+                f"name" = newname
+                f"content" = sieve_filter
+                if description is not None:
+                    f'description' = description
+                if not f"enabled":
+                    return self.disablefilter(newname)
+                return True
+        return False
+
     def getfilter(self, name):
         """Search for a specific filter
 
         :param name: the filter's name
         :return: the Command object if found, None otherwise
         """
+        name = self._unicode_filter_name(name)
         for f in self.filters:
             if f"name" == name:
                 if not f"enabled":
@@ -223,11 +352,80 @@
                 return f"content"
         return None
 
+    def get_filter_matchtype(self, name):
+        """Retrieve matchtype of the given filter."""
+        flt = self.getfilter(name)
+        if not flt:
+            return None
+        for node in flt.walk():
+            if isinstance(node, (commands.AllofCommand,
+                                 commands.AnyofCommand)):
+                return node.__class__.__name__.lower().replace("command", "")
+        return None
+
+    def get_filter_conditions(self, name):
+        """Retrieve conditions of the given filter."""
+        flt = self.getfilter(name)
+        if not flt:
+            return None
+        conditions = 
+        negate = False
+        for node in flt.walk():
+            if isinstance(node, commands.NotCommand):
+                negate = True
+            elif isinstance(node, (commands.HeaderCommand,
+                                   commands.SizeCommand,
+                                   commands.ExistsCommand,
+                                   commands.BodyCommand,
+                                   commands.EnvelopeCommand,
+                                   commands.CurrentdateCommand)):
+                args = node.args_as_tuple()
+                if negate:
+                    if node.name in "header", "envelope":
+                        nargs = (
+                            args0,
+                            ":not{}".format(args11:)
+                        )
+                        if len(args) > 3:
+                            nargs += (args2:)
+                        else:
+                            nargs += (args2,)
+                        args = nargs
+                    elif node.name == "body":
+                        args = (
+                            args:2 +
+                            (":not{}".format(args21:),) +
+                            args3:
+                        )
+                    elif node.name == "currentdate":
+                        args = (
+                            args:3 +
+                            (":not{}".format(args31:),) +
+                            args4:
+                        )
+                    elif node.name == "exists":
+                        args = ("not{}".format(args0),) + args1:
+                    negate = False
+                conditions.append(args)
+        return conditions
+
+    def get_filter_actions(self, name):
+        """Retrieve actions of the given filter."""
+        flt = self.getfilter(name)
+        if not flt:
+            return None
+        actions = 
+        for node in flt.walk():
+            if isinstance(node, commands.ActionCommand):
+                actions.append(node.args_as_tuple())
+        return actions
+
     def removefilter(self, name):
         """Remove a specific filter
 
         :param name: the filter's name
         """
+        name = self._unicode_filter_name(name)
         for f in self.filters:
             if f"name" == name:
                 self.filters.remove(f)
@@ -241,6 +439,7 @@
 
         :param name: the filter's name
         """
+        name = self._unicode_filter_name(name)
         for f in self.filters:
             if f"name" != name:
                 continue
@@ -249,13 +448,14 @@
             f"content" = f"content".children0
             f"enabled" = True
             return True
-        return False # raise NotFound
+        return False  # raise NotFound
 
     def is_filter_disabled(self, name):
         """Tells if the filter is currently disabled or not
 
         :param name: the filter's name
         """
+        name = self._unicode_filter_name(name)
         for f in self.filters:
             if f"name" == name:
                 return self.__isdisabled(f"content")
@@ -268,9 +468,11 @@
         "if false { }" test.
 
         :param name: the filter's name
+        :return: True if filter was disabled, False otherwise
         """
-        ifcontrol = get_command_instance("if")
-        falsecmd = get_command_instance("false", ifcontrol)
+        name = self._unicode_filter_name(name)
+        ifcontrol = commands.get_command_instance("if")
+        falsecmd = commands.get_command_instance("false", ifcontrol)
         ifcontrol.check_next_arg("test", falsecmd)
         for f in self.filters:
             if f"name" != name:
@@ -287,6 +489,7 @@
         :param name: the filter's name
         :param direction: string "up" or "down"
         """
+        name = self._unicode_filter_name(name)
         cpt = 0
         for f in self.filters:
             if f"name" == name:
@@ -302,17 +505,23 @@
                 self.filters.insert(cpt + 1, f)
                 return True
             cpt += 1
-        return False # raise not found
+        return False  # raise not found
 
     def dump(self):
         """Dump this object
 
         Available for debugging purposes
         """
-
-        self.__gen_require_command().dump()
+        print("Dumping filters set %s\n" % self.name)
+        cmd = self.__gen_require_command()
+        if cmd:
+            print("Dumping requirements")
+            cmd.dump()
+            print
 
         for f in self.filters:
+            print("Filter Name: %s" % f"name")
+            print("Filter Description: %s" % f"description")
             f"content".dump()
 
     def tosieve(self, target=sys.stdout):
@@ -325,9 +534,15 @@
 
         :param target: file pointer where the sieve syntax will be printed
         """
-        self.__gen_require_command().tosieve(target=target)
-        target.write("\n")
+        cmd = self.__gen_require_command()
+        if cmd:
+            cmd.tosieve(target=target)
+            target.write(u"\n")
         for f in self.filters:
+            target.write("{}{}\n".format(self.filter_name_pretext, f"name"))
+            if "description" in f and f"description":
+                target.write(u"{}{}\n".format(
+                    self.filter_desc_pretext, f"description"))
             f"content".tosieve(target=target)
 
 
@@ -335,7 +550,6 @@
     fs = FiltersSet("test")
 
     fs.addfilter("rule1",
-                 ("Sender", ":is", "toto@toto.com"),,
-                 ("fileinto", "Toto"),)
+                 ("Sender", ":is", "toto@toto.com"), ,
+                 ("fileinto", "Toto"), )
     fs.tosieve()
-

sievelib-0.5.2.tar.gz/sievelib/managesieve.py -> sievelib-1.2.1.tar.gz/sievelib/managesieve.py Changed

@@ -1,38 +1,34 @@
-#!/usr/bin/env python
-# coding: utf-8
-
 """
-A MANAGESIEVE client
+A MANAGESIEVE client.
 
 A protocol for securely managing Sieve scripts on a remote server.
 This protocol allows a user to have multiple scripts, and also alerts
 a user to syntactically flawed scripts.
 
-Implementation based on <draft-martin-managesieve-12>.
+Implementation based on RFC 5804.
 """
-
-import sys, os
-import socket
-import re
 import base64
+import re
+import socket
 import ssl
 
-from digest_md5 import DigestMD5
+from .digest_md5 import DigestMD5
+from . import tools
 
-from binascii import b2a_base64
 
-CRLF = '\r\n'
+CRLF = b"\r\n"
 
-KNOWN_CAPABILITIES = "IMPLEMENTATION", "SASL", "SIEVE",
- "STARTTLS", "NOTIFY", "LANGUAGE",
- "RENAME"
+KNOWN_CAPABILITIES = u"IMPLEMENTATION", u"SASL", u"SIEVE",
+ u"STARTTLS", u"NOTIFY", u"LANGUAGE",
+ u"VERSION"
 
-SUPPORTED_AUTH_MECHS = "DIGEST-MD5", "PLAIN", "LOGIN"
+SUPPORTED_AUTH_MECHS = u"DIGEST-MD5", u"PLAIN", u"LOGIN"
 
 
 class Error(Exception):
 pass
 
+
 class Response(Exception):
 def __init__(self, code, data):
 self.code = code
@@ -41,6 +37,7 @@
 def __str__(self):
 return "%s %s" % (self.code, self.data)
 
+
 class Literal(Exception):
 def __init__(self, value):
 self.value = value
@@ -48,6 +45,7 @@
 def __str__(self):
 return "{%d}" % self.value
 
+
 def authentication_required(meth):
 """Simple class method decorator.
 
@@ -55,30 +53,33 @@
 
 :param meth: the original called method
 """
+
 def check(cls, *args, **kwargs):
 if cls.authenticated:
 return meth(cls, *args, **kwargs)
 raise Error("Authentication required")
+
 return check
 
+
 class Client(object):
 read_size = 4096
 read_timeout = 5
 
- def __init__(self, srvaddr, srvport=2000, debug=False):
+ def __init__(self, srvaddr, srvport=4190, debug=False):
 self.srvaddr = srvaddr
 self.srvport = srvport
 self.__debug = debug
 self.sock = None
- self.__read_buffer = ""
+ self.__read_buffer = b""
 self.authenticated = False
 self.errcode = None
 
 self.__capabilities = {}
- self.__respcode_expr = re.compile("(OK|NO|BYE)\s*(.+)?")
- self.__error_expr = re.compile('($\w+$)?\s*(".+")')
- self.__size_expr = re.compile("\{(\d+)\+?\}")
- self.__active_expr = re.compile("ACTIVE", re.IGNORECASE)
+ self.__respcode_expr = re.compile(br"(OK|NO|BYE)\s*(.+)?")
+ self.__error_expr = re.compile(br'($\w/-+$)?\s*(".+")')
+ self.__size_expr = re.compile(br"\{(\d+)\+?\}")
+ self.__active_expr = re.compile(br"ACTIVE", re.IGNORECASE)
 
 def __del__(self):
 if self.sock is not None:
@@ -88,7 +89,7 @@
 def __dprint(self, message):
 if not self.__debug:
 return
- print(message)
+ print("DEBUG: %s" % message)
 
 def __read_block(self, size):
 """Read a block of 'size' bytes from the server.
@@ -105,9 +106,12 @@
 :rtype: string
 :returns: the read block (can be empty)
 """
- buf = ""
+ buf = b""
 if len(self.__read_buffer):
- limit = size if size <= len(self.__read_buffer) else len(self.__read_buffer)
+ limit = (
+ size if size <= len(self.__read_buffer) else
+ len(self.__read_buffer)
+ )
 buf = self.__read_buffer:limit
 self.__read_buffer = self.__read_bufferlimit:
 size -= limit
@@ -115,9 +119,9 @@
 return buf
 try:
 buf += self.sock.recv(size)
- except (socket.timeout, ssl.SSLError) as err:
+ except (socket.timeout, ssl.SSLError):
 raise Error("Failed to read %d bytes from the server" % size)
- self.__dprint("S: %s" % buf)
+ self.__dprint(buf)
 return buf
 
 def __read_line(self):
@@ -135,17 +139,18 @@
 :rtype: string
 :return: the read line
 """
- ret = ""
+ ret = b""
 while True:
 try:
 pos = self.__read_buffer.index(CRLF)
- ret = self.__read_buffer0:pos
- self.__read_buffer = self.__read_bufferpos+len(CRLF):
+ ret = self.__read_buffer:pos
+ self.__read_buffer = self.__read_bufferpos + len(CRLF):
 break
 except ValueError:
 pass
 try:
 nval = self.sock.recv(self.read_size)
+ self.__dprint(nval)
 if not len(nval):
 break
 self.__read_buffer += nval
@@ -159,12 +164,11 @@
 
 m = self.__respcode_expr.match(ret)
 if m:
- if m.group(1) == "BYE":
+ if m.group(1) == b"BYE":
 raise Error("Connection closed by server")
- if m.group(1) == "NO":
+ if m.group(1) == b"NO":
 self.__parse_error(m.group(2))
 raise Response(m.group(1), m.group(2))
- self.__dprint("S: %s" % ret)
 return ret
 
 def __read_response(self, nblines=-1):
@@ -180,7 +184,7 @@
 :return: a tuple of the form (code, data, response). If
 nblines is provided, code and data can be equal to None.
 """
- resp, code, data = ("", None, None)
+ resp, code, data = (b"", None, None)
 cpt = 0
 while True:
 try:
@@ -191,6 +195,8 @@
 break
 except Literal as inst:
 resp += self.__read_block(inst.value)
+ if not resp.endswith(CRLF):
+ resp += self.__read_line() + CRLF
 continue
 if not len(line):
 continue
@@ -212,38 +218,65 @@
 """
 ret = 
 for a in args:
- if type(a) in str, unicode and self.__size_expr.match(a) is None:
- ret += '"%s"' % a.encode('utf-8')
+ if isinstance(a, bytes):
+ if self.__size_expr.match(a):
+ ret += a
+ else:
+ ret += b'"' + a + b'"'
 continue
- ret += "%s" % str(a)
+ ret += bytes(str(a).encode("utf-8"))
 return ret
 
- def __send_command(self, name, args=, withcontent=False, extralines=, nblines=-1):
+ def __prepare_content(self, content):
+ """Format script content before sending it.
+
+ Script length must be inserted before the content,
+ enclosed in curly braces, separated by CRLF.
+
+ :param content: script content as str or bytes
+ :return: transformed script as bytes
+ """
+ if isinstance(content, str):
+ content = content.encode('utf-8')
+ return b"{%d+}%s%s" % (len(content), CRLF, content)
+
+ def __send_command(
+ self, name, args=None, withcontent=False, extralines=None,
+ nblines=-1):
 """Send a command to the server.
 
 If args is not empty, we concatenate the given command with
 the content of this list. If extralines is not empty, they are
- sent one by one to the server. (CLRF are automatically appended to them)
+ sent one by one to the server. (CLRF are automatically
+ appended to them)
 
 We wait for a response just after the command has been sent.
 
 :param name: the command to sent
 :param args: a list of arguments for this command
- :param withcontent: tells the function to return the server's response or not
+ :param withcontent: tells the function to return the server's response
+ or not
 :param extralines: a list of extra lines to sent after the command
 :param nblines: the number of response lines to read (all by default)
 
 :returns: a tuple of the form (code, data, response)
+
 """
- tosend = name
- if len(args):
- tosend += " " + " ".join(self.__prepare_args(args))
- self.__dprint("C: %s" % tosend)
- self.sock.send("%s%s" % (tosend, CRLF))
- for l in extralines:
- self.sock.send("%s%s" % (l, CRLF))
+ tosend = name.encode("utf-8")
+ if args:
+ tosend += b" " + b" ".join(self.__prepare_args(args))
+ self.__dprint(b"Command: " + tosend)
+ self.sock.sendall(tosend + CRLF)
+ if extralines:
+ for l in extralines:
+ self.sock.sendall(l + CRLF)
 code, data, content = self.__read_response(nblines)
 
+ if isinstance(code, bytes):
+ code = code.decode("utf-8")
+ if isinstance(data, bytes):
+ data = data.decode("utf-8")
+
 if withcontent:
 return (code, data, content)
 return (code, data)
@@ -253,13 +286,15 @@
 if code == "NO":
 return False
 
- for l in capabilities.splitlines()0:-1:
+ for l in capabilities.splitlines():
 parts = l.split(None, 1)
- cname = parts0.strip('"')
- if not cname in KNOWN_CAPABILITIES:
+ cname = parts0.strip(b'"').decode("utf-8")
+ if cname not in KNOWN_CAPABILITIES:
 continue
- self.__capabilitiescname = \
- parts1.strip('"') if len(parts) > 1 else None
+ self.__capabilitiescname = (
+ parts1.strip(b'"').decode("utf-8")
+ if len(parts) > 1 else None
+ )
 return True
 
 def __parse_error(self, text):
@@ -277,7 +312,7 @@
 """
 m = self.__size_expr.match(text)
 if m is not None:
- self.errcode = ""
+ self.errcode = b""
 self.errmsg = self.__read_block(int(m.group(1)) + 2)
 return
 
@@ -285,45 +320,44 @@
 if m is None:
 raise Error("Bad error message")
 if m.group(1) is not None:
- self.errcode = m.group(1).strip("()")
+ self.errcode = m.group(1).strip(b"()")
 else:
- self.errcode = ""
- self.errmsg = m.group(2).strip('"')
+ self.errcode = b""
+ self.errmsg = m.group(2).strip(b'"')
 
- def _plain_authentication(self, login, password, authzid=None):
+ def _plain_authentication(self, login, password, authz_id=b""):
 """SASL PLAIN authentication
 
 :param login: username
 :param password: clear password
 :return: True on success, False otherwise.
 """
- if not authzid == None:
- params = b2a_base64("%s\0%s\0%s" % (authzid, login, password)).strip()
- else:
- params = base64.b64encode('\0' + '\0'.join(login, password))
-
- code, data = self.__send_command("AUTHENTICATE", "PLAIN", params)
-
+ if isinstance(login, str):
+ login = login.encode("utf-8")
+ if isinstance(password, str):
+ password = password.encode("utf-8")
+ params = base64.b64encode(b'\0'.join(authz_id, login, password))
+ code, data = self.__send_command("AUTHENTICATE", b"PLAIN", params)
 if code == "OK":
 return True
 return False
 
- def _login_authentication(self, login, password):
+ def _login_authentication(self, login, password, authz_id=""):
 """SASL LOGIN authentication
 
 :param login: username
 :param password: clear password
 :return: True on success, False otherwise.
 """
- extralines = '"%s"' % base64.b64encode(login),
- '"%s"' % base64.b64encode(password)
- code, data = self.__send_command("AUTHENTICATE", "LOGIN",
+ extralines = b'"%s"' % base64.b64encode(login.encode("utf-8")),
+ b'"%s"' % base64.b64encode(password.encode("utf-8"))
+ code, data = self.__send_command("AUTHENTICATE", b"LOGIN",
 extralines=extralines)
 if code == "OK":
 return True
 return False
 
- def _digest_md5_authentication(self, login, password):
+ def _digest_md5_authentication(self, login, password, authz_id=""):
 """SASL DIGEST-MD5 authentication
 
 :param login: username
@@ -331,14 +365,15 @@
 :return: True on success, False otherwise.
 """
 code, data, challenge = \
- self.__send_command("AUTHENTICATE", "DIGEST-MD5",
+ self.__send_command("AUTHENTICATE", b"DIGEST-MD5",
 withcontent=True, nblines=1)
 dmd5 = DigestMD5(challenge, "sieve/%s" % self.srvaddr)
 
- code, data, challenge = \
- self.__send_command('"%s"' % dmd5.response(login, password),
- withcontent=True, nblines=1)
- if not len(challenge):
+ code, data, challenge = self.__send_command(
+ '"%s"' % dmd5.response(login, password, authz_id),
+ withcontent=True, nblines=1
+ )
+ if not challenge:
 return False
 if not dmd5.check_last_challenge(login, password, challenge):
 self.errmsg = "Bad challenge received from server"
@@ -348,7 +383,7 @@
 return True
 return False
 
- def __authenticate(self, login, password, authmech=None):
+ def __authenticate(self, login, password, authz_id=b"", authmech=None):
 """AUTHENTICATE command
 
 Actually, it is just a wrapper to the real commands (one by
@@ -360,10 +395,11 @@
 
 :param login: username
 :param password: clear password
+ :param authz_id: authorization ID
 :param authmech: prefered authentication mechanism
 :return: True on success, False otherwise
 """
- if not self.__capabilities.has_key("SASL"):
+ if "SASL" not in self.__capabilities:
 raise Error("SASL not supported by the server")
 srv_mechanisms = self.get_sasl_mechanisms()
 
@@ -373,16 +409,16 @@
 mech_list = authmech
 
 for mech in mech_list:
- if not mech in srv_mechanisms:
+ if mech not in srv_mechanisms:
 continue
- mech = mech.lower()
- mech = re.sub("-", "_", mech)
- if getattr(self, "_%s_authentication" % mech.lower())(login, password):
+ mech = mech.lower().replace("-", "_")
+ auth_method = getattr(self, "_%s_authentication" % mech)
+ if auth_method(login, password, authz_id):
 self.authenticated = True
 return True
 return False
 
- self.errmsg = "No suitable mechanism found"
+ self.errmsg = b"No suitable mechanism found"
 return False
 
 def __starttls(self, keyfile=None, certfile=None):
@@ -401,8 +437,8 @@
 return False
 try:
 nsock = ssl.wrap_socket(self.sock, keyfile, certfile)
- except ssl.SSLError as err:
- raise Error("SSL error: %s" % str(err))
+ except ssl.SSLError as e:
+ raise Error("SSL error: %s" % str(e))
 self.sock = nsock
 self.__capabilities = {}
 self.__get_capabilities()
@@ -436,7 +472,7 @@
 
 :rtype: boolean
 """
- return self.__capabilities.has_key("STARTTLS")
+ return "STARTTLS" in self.__capabilities
 
 def get_sieve_capabilities(self):
 """Returns the SIEVE extensions supported by the server.
@@ -446,11 +482,13 @@
 
 :rtype: string
 """
- if type(self.__capabilities"SIEVE") == str:
+ if isinstance(self.__capabilities"SIEVE", str):
 self.__capabilities"SIEVE" = self.__capabilities"SIEVE".split()
 return self.__capabilities"SIEVE"
 
- def connect(self, login=None, password=None, starttls=False, authmech=None):
+ def connect(
+ self, login, password, authz_id=b"", starttls=False,
+ authmech=None):
 """Establish a connection with the server.
 
 This function must be used. It read the server capabilities
@@ -463,25 +501,18 @@
 :rtype: boolean
 """
 try:
- self.sock = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
- self.sock.connect((self.srvaddr, self.srvport))
+ self.sock = socket.create_connection((self.srvaddr, self.srvport))
 self.sock.settimeout(Client.read_timeout)
 except socket.error as msg:
 raise Error("Connection to server failed: %s" % str(msg))
 
 if not self.__get_capabilities():
 raise Error("Failed to read capabilities from server")
-
 if starttls and not self.__starttls():
 return False
-
- if not login == None and not password == None:
- if self.__authenticate(login, password, authmech):
- return True
- else:
- return False
- else:
+ if self.__authenticate(login, password, authz_id, authmech):
 return True
+ return False
 
 def logout(self):
 """Disconnect from the server
@@ -498,8 +529,8 @@
 
 :rtype: string
 """
- code, data, capabilities = \
- self.__send_command("CAPABILITY", withcontent=True)
+ code, data, capabilities = (
+ self.__send_command("CAPABILITY", withcontent=True))
 if code == "OK":
 return capabilities
 return None
@@ -514,7 +545,8 @@
 :param scriptsize: script's size
 :rtype: boolean
 """
- code, data = self.__send_command("HAVESPACE", scriptname, scriptsize)
+ code, data = self.__send_command(
+ "HAVESPACE", scriptname.encode("utf-8"), scriptsize)
 if code == "OK":
 return True
 return False
@@ -527,7 +559,8 @@
 
 :returns: a 2-uple (active script, script1, ...)
 """
- code, data, listing = self.__send_command("LISTSCRIPTS", withcontent=True)
+ code, data, listing = self.__send_command(
+ "LISTSCRIPTS", withcontent=True)
 if code == "NO":
 return None
 ret = 
@@ -535,14 +568,15 @@
 for l in listing.splitlines():
 if self.__size_expr.match(l):
 continue
- m = re.match('"(^"+)"\s*(.+)', l)
+ m = re.match(br'"(^"+)"\s*(.+)', l)
 if m is None:
- ret += l.strip('"')
- else:
- if self.__active_expr.match(m.group(2)):
- active_script = m.group(1)
- else:
- ret += m.group(1)
+ ret += l.strip(b'"').decode("utf-8")
+ continue
+ script = m.group(1).decode("utf-8")
+ if self.__active_expr.match(m.group(2)):
+ active_script = script
+ continue
+ ret += script
 self.__dprint(ret)
 return (active_script, ret)
 
@@ -556,12 +590,13 @@
 :rtype: string
 :returns: the script's content on succes, None otherwise
 """
- code, data, content = self.__send_command("GETSCRIPT", name, withcontent=True)
+ code, data, content = self.__send_command(
+ "GETSCRIPT", name.encode("utf-8"), withcontent=True)
 if code == "OK":
 lines = content.splitlines()
 if self.__size_expr.match(lines0) is not None:
 lines = lines1:
- return "\n".join(lines)
+ return u"\n".join(line.decode("utf-8") for line in lines)
 return None
 
 @authentication_required
@@ -574,14 +609,9 @@
 :param content: script's content
 :rtype: boolean
 """
- if type(content) is unicode:
- content = content.encode("utf-8")
-
- content = "{%d+}%s%s" % (len(content), CRLF, content)
- code, data = \
- self.__send_command("PUTSCRIPT", name, content)
-
-
+ content = self.__prepare_content(content)
+ code, data = (
+ self.__send_command("PUTSCRIPT", name.encode("utf-8"), content))
 if code == "OK":
 return True
 return False
@@ -595,7 +625,8 @@
 :param name: script's name
 :rtype: boolean
 """
- code, data = self.__send_command("DELETESCRIPT", name)
+ code, data = self.__send_command(
+ "DELETESCRIPT", name.encode("utf-8"))
 if code == "OK":
 return True
 return False
@@ -613,18 +644,24 @@
 :param newname: new script's name
 :rtype: boolean
 """
- if self.__capabilities.has_key("RENAMESCRIPT"):
- code, data = self.__send_command("RENAMESCRIPT", oldname, newname)
+ if "VERSION" in self.__capabilities:
+ code, data = self.__send_command(
+ "RENAMESCRIPT",
+ oldname.encode("utf-8"), newname.encode("utf-8"))
 if code == "OK":
 return True
 return False
 
 (active_script, scripts) = self.listscripts()
- if scripts == None or not oldname in scripts:
- self.errmsg = "Old script does not exist"
+ condition = (
+ oldname != active_script and
+ (scripts is None or oldname not in scripts)
+ )
+ if condition:
+ self.errmsg = b"Old script does not exist"
 return False
 if newname in scripts:
- self.errmsg = "New script already exists"
+ self.errmsg = b"New script already exists"
 return False
 oldscript = self.getscript(oldname)
 if oldscript is None:
@@ -650,8 +687,26 @@
 :param scriptname: script's name
 :rtype: boolean
 """
- code, data = self.__send_command("SETACTIVE", scriptname)
+ code, data = self.__send_command(
+ "SETACTIVE", scriptname.encode("utf-8"))
 if code == "OK":
 return True
 return False
 
+ @authentication_required
+ def checkscript(self, content):
+ """Check whether a script is valid
+
+ See MANAGESIEVE specifications, section 2.12
+
+ :param name: script's content
+ :rtype: boolean
+ """
+ if "VERSION" not in self.__capabilities:
+ raise NotImplementedError(
+ "server does not support CHECKSCRIPT command")
+ content = self.__prepare_content(content)
+ code, data = self.__send_command("CHECKSCRIPT", content)
+ if code == "OK":
+ return True
+ return False

sievelib-0.5.2.tar.gz/sievelib/parser.py -> sievelib-1.2.1.tar.gz/sievelib/parser.py Changed

@@ -1,5 +1,4 @@
 #!/usr/bin/env python
-# coding: utf-8
 
 """
 This module provides a simple but functional parser for the SIEVE
@@ -11,16 +10,20 @@
 import re
 import sys
 
-from commands import get_command_instance, UnknownCommand, BadArgument, BadValue
+from sievelib.commands import (
+ get_command_instance, CommandError, RequireCommand)
+
 
 class ParseError(Exception):
 """Generic parsing error"""
+
 def __init__(self, msg):
 self.msg = msg
 
 def __str__(self):
 return "parsing error: %s" % self.msg
 
+
 class Lexer(object):
 """
 The lexical analysis part.
@@ -31,20 +34,26 @@
 Patterns are provided into a list of 2-uple. Each 2-uple consists
 of a token name and an associated pattern, example:
 
- ("left_bracket", r'\'),
+ (b"left_bracket", br'\'),
 """
+
 def __init__(self, definitions):
 self.definitions = definitions
 parts = 
 for name, part in definitions:
- parts.append("(?P<%s>%s)" % (name, part))
- self.regexpString = "|".join(parts)
+ param = b"(?P<%s>%s)" % (name, part)
+ parts.append(param)
+ self.regexpString = b"|".join(parts)
 self.regexp = re.compile(self.regexpString, re.MULTILINE)
- self.wsregexp = re.compile(r'\s+', re.M)
+ self.wsregexp = re.compile(br'\s+', re.M)
 
 def curlineno(self):
 """Return the current line number"""
- return self.text:self.pos.count('\n') + 1
+ return self.text:self.pos.count(b'\n') + 1
+
+ def curcolno(self):
+ """Return the current column number"""
+ return self.pos - self.text.rfind(b'\n', 0, self.pos)
 
 def scan(self, text):
 """Analyse some data
@@ -55,7 +64,7 @@
 
 On error, a ParseError exception is raised.
 
- :param text: a string containing the data to parse
+ :param text: a binary string containing the data to parse
 """
 self.pos = 0
 self.text = text
@@ -67,11 +76,15 @@
 
 m = self.regexp.match(text, self.pos)
 if m is None:
- lineno = self.curlineno()
- raise ParseError("unknown token %s" % textself.pos:)
+ token = textself.pos:
+ m = self.wsregexp.search(token)
+ if m is not None:
+ token = token:m.start()
+ raise ParseError("unknown token %s" % token)
 
- self.pos = m.end()
 yield (m.lastgroup, m.group(m.lastgroup))
+ self.pos += len(m.group(0))
+
 
 class Parser(object):
 """The grammatical analysis part.
@@ -80,22 +93,22 @@
 works with a Lexer object in order to check for grammar validity.
 """
 lrules = 
- ("left_bracket", r'\'),
- ("right_bracket", r'\'),
- ("left_parenthesis", r'$'),
- ("right_parenthesis", r'$'),
- ("left_cbracket", r'{'),
- ("right_cbracket", r'}'),
- ("semicolon", r';'),
- ("comma", r','),
- ("hash_comment", r'#.*$'),
- ("bracket_comment", r'/\*\s\S*?\*/'),
- ("multiline", r'text:^$*\r\n+\.$'),
- ("string", r'"(^"\\|\\.)*"'),
- ("identifier", r'a-zA-Z_\w*'),
- ("tag", r':a-zA-Z_\w*'),
- ("number", r'0-9+KMGkmg?'),
- 
+ (b"left_bracket", br'\'),
+ (b"right_bracket", br'\'),
+ (b"left_parenthesis", br'$'),
+ (b"right_parenthesis", br'$'),
+ (b"left_cbracket", br'{'),
+ (b"right_cbracket", br'}'),
+ (b"semicolon", br';'),
+ (b"comma", br','),
+ (b"hash_comment", br'#.*$'),
+ (b"bracket_comment", br'/\*\s\S*?\*/'),
+ (b"multiline", br'text:^$*?\r\n+\.$'),
+ (b"string", br'"(^"\\|\\.)*"'),
+ (b"identifier", br'a-zA-Z_\w*'),
+ (b"tag", br':a-zA-Z_\w*'),
+ (b"number", br'0-9+KMGkmg?'),
+ 
 
 def __init__(self, debug=False):
 self.debug = debug
@@ -120,7 +133,8 @@
 self.__curcommand = None
 self.__curstringlist = None
 self.__expected = None
- self.__opened_blocks = 0
+ self.__expected_brackets = 
+ RequireCommand.loaded_extensions = 
 
 def __set_expected(self, *args, **kwargs):
 """Set the next expected token.
@@ -130,6 +144,28 @@
 """
 self.__expected = args
 
+ def __push_expected_bracket(self, ttype, tvalue):
+ """Append a new expected bracket.
+
+ Next time a bracket is closed, it must match the one provided here.
+ """
+ self.__expected_brackets.append((ttype, tvalue))
+
+ def __pop_expected_bracket(self, ttype, tvalue):
+ """Drop the last expected bracket.
+
+ If the given bracket doesn't match the dropped expected bracket,
+ or if no bracket is expected at all, a ParseError will be raised.
+ """
+ try:
+ etype, evalue = self.__expected_brackets.pop()
+ except IndexError:
+ raise ParseError("unexpected closing bracket %s (none opened)" %
+ (tvalue,))
+ if ttype != etype:
+ raise ParseError("unexpected closing bracket %s (expected %s)" %
+ (tvalue, evalue))
+
 def __up(self, onlyrecord=False):
 """Return to the current command's parent
 
@@ -146,15 +182,41 @@
 prevcmd = self.__curcommand.parent.children-2 \
 if len(self.__curcommand.parent.children) >= 2 else None
 if prevcmd is None or prevcmd.name not in self.__curcommand.must_follow:
- raise ParseError("the %s command must follow an %s command" % \
- (self.__curcommand.name,
- " or ".join(self.__curcommand.must_follow)))
+ raise ParseError("the %s command must follow an %s command" %
+ (self.__curcommand.name,
+ " or ".join(self.__curcommand.must_follow)))
 
 if not self.__curcommand.parent:
+ # collect current amount of hash comments for later
+ # parsing into names and desciptions
+ self.__curcommand.hash_comments = self.hash_comments
+ self.hash_comments = 
 self.result += self.__curcommand
 
- if not onlyrecord:
+ if onlyrecord:
+ # We are done
+ return
+
+ while self.__curcommand:
 self.__curcommand = self.__curcommand.parent
+ if not self.__curcommand:
+ break
+ # Make sure to detect all done tests (including 'not' ones).
+ condition = (
+ self.__curcommand.get_type() == "test" and
+ self.__curcommand.iscomplete()
+ )
+ if condition:
+ continue
+ # If we are on a control accepting a test list, next token
+ # must be a comma or a right parenthesis.
+ condition = (
+ self.__curcommand.get_type() == "test" and
+ self.__curcommand.variable_args_nb
+ )
+ if condition:
+ self.__set_expected("comma", "right_parenthesis")
+ break
 
 def __check_command_completion(self, testsemicolon=True):
 """Check for command(s) completion
@@ -174,9 +236,11 @@
 return True
 
 ctype = self.__curcommand.get_type()
- if ctype == "action" or \
- (ctype == "control" and \
- not self.__curcommand.accept_children):
+ condition = (
+ ctype == "action" or
+ (ctype == "control" and not self.__curcommand.accept_children)
+ )
+ if condition:
 if testsemicolon:
 self.__set_expected("semicolon")
 return True
@@ -187,6 +251,7 @@
 if self.__curcommand.get_type() in "control", "test":
 if self.__curcommand.iscomplete():
 if self.__curcommand.get_type() == "control":
+ self.__set_expected("left_cbracket")
 break
 continue
 if not self.__curcommand.check_next_arg("test", cmd, add=False):
@@ -195,7 +260,6 @@
 if self.__curcommand.variable_args_nb:
 self.__set_expected("comma", "right_parenthesis")
 break
-
 return True
 
 def __stringlist(self, ttype, tvalue):
@@ -207,13 +271,14 @@
 ; are optional
 """
 if ttype == "string":
- self.__curstringlist += tvalue
+ self.__curstringlist += tvalue.decode("utf-8")
 self.__set_expected("comma", "right_bracket")
 return True
 if ttype == "comma":
 self.__set_expected("string")
 return True
 if ttype == "right_bracket":
+ self.__pop_expected_bracket(ttype, tvalue)
 self.__curcommand.check_next_arg("stringlist", self.__curstringlist)
 self.__cstate = self.__arguments
 return self.__check_command_completion()
@@ -231,17 +296,29 @@
 :param tvalue: current token value
 :return: False if an error is encountered, True otherwise
 """
- if ttype == "multiline":
- return self.__curcommand.check_next_arg("string", tvalue)
+ if ttype in "multiline", "string":
+ return self.__curcommand.check_next_arg("string", tvalue.decode("utf-8"))
 
- if ttype in "number", "tag", "string":
- return self.__curcommand.check_next_arg(ttype, tvalue)
+ if ttype in "number", "tag":
+ return self.__curcommand.check_next_arg(ttype, tvalue.decode("ascii"))
 
 if ttype == "left_bracket":
+ self.__push_expected_bracket("right_bracket", b'}')
 self.__cstate = self.__stringlist
 self.__curstringlist = 
 self.__set_expected("string")
 return True
+
+ condition = (
+ ttype in "left_cbracket", "comma" and
+ self.__curcommand.non_deterministic_args
+ )
+ if condition:
+ self.__curcommand.reassign_arguments()
+ # rewind lexer
+ self.lexer.pos -= 1
+ return True
+
 return False
 
 def __arguments(self, ttype, tvalue):
@@ -259,13 +336,19 @@
 :return: False if an error is encountered, True otherwise
 """
 if ttype == "identifier":
- test = get_command_instance(tvalue, self.__curcommand)
+ test = get_command_instance(tvalue.decode("ascii"), self.__curcommand)
+ if test.get_type() != "test":
+ raise ParseError(
+ "Expected test command, '{}' found instead"
+ .format(test.name)
+ )
 self.__curcommand.check_next_arg("test", test)
 self.__expected = test.get_expected_first()
 self.__curcommand = test
 return self.__check_command_completion(testsemicolon=False)
 
 if ttype == "left_parenthesis":
+ self.__push_expected_bracket("right_parenthesis", b')')
 self.__set_expected("identifier")
 return True
 
@@ -274,11 +357,12 @@
 return True
 
 if ttype == "right_parenthesis":
+ self.__pop_expected_bracket(ttype, tvalue)
 self.__up()
 return True
 
 if self.__argument(ttype, tvalue):
- return self.__check_command_completion()
+ return self.__check_command_completion(testsemicolon=False)
 
 return False
 
@@ -300,32 +384,25 @@
 """
 if self.__cstate is None:
 if ttype == "right_cbracket":
+ self.__pop_expected_bracket(ttype, tvalue)
 self.__up()
- self.__opened_blocks -= 1
 self.__cstate = None
 return True
 
 if ttype != "identifier":
 return False
-
- command = get_command_instance(tvalue, self.__curcommand)
-
+ command = get_command_instance(
+ tvalue.decode("ascii"), self.__curcommand)
 if command.get_type() == "test":
- raise ParseError("%s may not appear as a first command" % command.name)
-
+ raise ParseError(
+ "%s may not appear as a first command" % command.name)
 if command.get_type() == "control" and command.accept_children \
- and command.has_arguments():
+ and command.has_arguments():
 self.__set_expected("identifier")
-
 if self.__curcommand is not None:
- cur_parent = self.__curcommand
- while not cur_parent.addchild(command):
- if hasattr(cur_parent, 'parent'):
- cur_parent = cur_parent.parent
- else:
- raise ParseError("%s unexpected after a %s" % \
- (tvalue, self.__curcommand.name))
-
+ if not self.__curcommand.addchild(command):
+ raise ParseError("%s unexpected after a %s" %
+ (tvalue, self.__curcommand.name))
 self.__curcommand = command
 self.__cstate = self.__arguments
 
@@ -335,7 +412,7 @@
 return True
 
 if ttype == "left_cbracket":
- self.__opened_blocks += 1
+ self.__push_expected_bracket("right_cbracket", b'}')
 self.__cstate = None
 return True
 
@@ -363,37 +440,49 @@
 :param text: a string containing the data to parse
 :return: True on success (no error detected), False otherwise
 """
+ if isinstance(text, str):
+ text = text.encode("utf-8")
+
 self.__reset_parser()
 try:
+ tvalue = ''
 for ttype, tvalue in self.lexer.scan(text):
 if ttype == "hash_comment":
- self.hash_comments += tvalue
+ self.hash_comments += tvalue.strip()
 continue
 if ttype == "bracket_comment":
 continue
 if self.__expected is not None:
- if not ttype in self.__expected:
- if self.lexer.pos < len(text):
- msg = "%s found while %s expected near '%s'" \
- % (ttype, "|".join(self.__expected), textself.lexer.pos)
+ if ttype not in self.__expected:
+ if self.lexer.pos < len(text) + len(tvalue):
+ msg = (
+ "{} found while {} expected near '{}'"
+ .format(ttype, "|".join(self.__expected),
+ text.decode()self.lexer.pos)
+ )
 else:
- msg = "%s found while %s expected at end of file" \
+ msg = (
+ "%s found while %s expected at end of file"
 % (ttype, "|".join(self.__expected))
+ )
 raise ParseError(msg)
 self.__expected = None
 
 if not self.__command(ttype, tvalue):
- msg = "unexpected token '%s' found near '%s'" \
- % (tvalue, textself.lexer.pos)
+ msg = (
+ "unexpected token '%s' found near '%s'"
+ % (tvalue.decode(), text.decode()self.lexer.pos)
+ )
 raise ParseError(msg)
- if self.__opened_blocks:
- self.__set_expected("right_cbracket")
+ if self.__expected_brackets:
+ self.__set_expected(self.__expected_brackets-10)
 if self.__expected is not None:
- raise ParseError("end of script reached while %s expected" % \
- "|".join(self.__expected))
+ raise ParseError("end of script reached while %s expected" %
+ "|".join(self.__expected))
 
- except (ParseError, UnknownCommand, BadArgument, BadValue) as err:
- self.error = "line %d: %s" % (self.lexer.curlineno(), str(err))
+ except (ParseError, CommandError) as e:
+ self.error_pos = (self.lexer.curlineno(), self.lexer.curcolno(), len(tvalue))
+ self.error = "line %d: %s" % (self.error_pos0, str(e))
 return False
 return True
 
@@ -405,10 +494,8 @@
 :param name: the pathname of the file to parse
 :return: True on success (no error detected), False otherwise
 """
- fp = open(name)
- content = fp.read()
- fp.close()
- return self.parse(content)
+ with open(name, "rb") as fp:
+ return self.parse(fp.read())
 
 def dump(self, target=sys.stdout):
 """Dump the parsing tree.
@@ -418,6 +505,7 @@
 for r in self.result:
 r.dump(target=target)
 
+
 if __name__ == "__main__":
 from optparse import OptionParser
 
@@ -427,6 +515,8 @@
 help="Activate verbose mode")
 op.add_option("-d", "--debug", action="store_true", default=False,
 help="Activate debug traces")
+ op.add_option("--tosieve", action="store_true",
+ help="Print parser results using sieve")
 options, args = op.parse_args()
 
 if not len(args):
@@ -435,12 +525,14 @@
 
 for a in args:
 p = Parser(debug=options.debug)
- print("Parsing file %s... " % (a))
+ print("Parsing file %s... " % a, end=' ')
 if p.parse_file(a):
 print("OK")
 if options.verbose:
 p.dump()
+ if options.tosieve:
+ for r in p.result:
+ r.tosieve()
 continue
 print("ERROR")
 print(p.error)
-

sievelib-1.2.1.tar.gz/sievelib/tests Added

sievelib-1.2.1.tar.gz/sievelib/tests/__init__.py Added

sievelib-1.2.1.tar.gz/sievelib/tests/files Added

sievelib-1.2.1.tar.gz/sievelib/tests/files/utf8_sieve.txt Added

sievelib-1.2.1.tar.gz/sievelib/tests/test_factory.py Added

@@ -0,0 +1,409 @@
+import unittest
+import io
+
+from sievelib.factory import FiltersSet
+from .. import parser
+
+
+class FactoryTestCase(unittest.TestCase):
+
+    def setUp(self):
+        self.fs = FiltersSet("test")
+
+    def test_get_filter_conditions(self):
+        """Test get_filter_conditions method."""
+        orig_conditions = ('Sender', ":is", 'toto@toto.com')
+        self.fs.addfilter(
+            "ruleX",
+            orig_conditions,
+            ("fileinto", ":copy", "Toto"), )
+        conditions = self.fs.get_filter_conditions("ruleX")
+        self.assertEqual(orig_conditions, conditions)
+
+        orig_conditions = ("exists", "list-help", "list-unsubscribe",
+                            "list-subscribe", "list-owner")
+        self.fs.addfilter(
+            "ruleY",
+            orig_conditions,
+            ("fileinto", 'List')
+        )
+        conditions = self.fs.get_filter_conditions("ruleY")
+        self.assertEqual(orig_conditions, conditions)
+
+        orig_conditions = ('Sender', ":notis", 'toto@toto.com')
+        self.fs.addfilter(
+            "ruleZ",
+            orig_conditions,
+            ("fileinto", ":copy", "Toto"), )
+        conditions = self.fs.get_filter_conditions("ruleZ")
+        self.assertEqual(orig_conditions, conditions)
+
+        orig_conditions = ("notexists", "list-help", "list-unsubscribe",
+                            "list-subscribe", "list-owner")
+        self.fs.addfilter(
+            "ruleA",
+            orig_conditions,
+            ("fileinto", 'List')
+        )
+        conditions = self.fs.get_filter_conditions("ruleA")
+        self.assertEqual(orig_conditions, conditions)
+
+        orig_conditions = ("envelope", ":is", "From", "hello")
+        self.fs.addfilter(
+            "ruleB",
+            orig_conditions,
+            ("fileinto", "INBOX")
+        )
+        conditions = self.fs.get_filter_conditions("ruleB")
+        self.assertEqual(orig_conditions, conditions)
+
+        orig_conditions = ("body", ":raw", ":notcontains", "matteo")
+        self.fs.addfilter(
+            "ruleC",
+            orig_conditions,
+            ("fileinto", "INBOX")
+        )
+        conditions = self.fs.get_filter_conditions("ruleC")
+        self.assertEqual(orig_conditions, conditions)
+
+        orig_conditions = (
+            "currentdate", ":zone", "+0100", ":notis", "date", "2019-02-26"
+        )
+        self.fs.addfilter(
+            "ruleD",
+            orig_conditions,
+            ("fileinto", "INBOX")
+        )
+        conditions = self.fs.get_filter_conditions("ruleD")
+        self.assertEqual(orig_conditions, conditions)
+
+        orig_conditions = (
+            "currentdate", ":zone", "+0100", ":value", "gt", "date",
+            "2019-02-26"
+        )
+        self.fs.addfilter(
+            "ruleE",
+            orig_conditions,
+            ("fileinto", "INBOX")
+        )
+        conditions = self.fs.get_filter_conditions("ruleE")
+        self.assertEqual(orig_conditions, conditions)
+
+    def test_get_filter_conditions_from_parser_result(self):
+        res = """require "fileinto";
+
+# rule:test
+if anyof (exists "Subject") {
+    fileinto "INBOX";
+}
+"""
+        p = parser.Parser()
+        p.parse(res)
+        fs = FiltersSet("test", '# rule:')
+        fs.from_parser_result(p)
+        c = fs.get_filter_conditions('test')
+        self.assertEqual(c, ("exists", "Subject"))
+
+        res = """require "date", "fileinto";
+
+# rule:aaa
+if anyof (currentdate :zone "+0100" :is "date" "2019-03-27") {
+    fileinto "INBOX";
+}
+"""
+        p = parser.Parser()
+        p.parse(res)
+        fs = FiltersSet("aaa", "# rule:")
+        fs.from_parser_result(p)
+        c = fs.get_filter_conditions('aaa')
+        self.assertEqual(
+            c, ('currentdate', ':zone', '+0100', ':is', 'date', '2019-03-27')
+        )
+
+        res = """require "envelope", "fileinto";
+
+# rule:aaa
+if anyof (envelope :contains "To" "hello@world.it") {
+    fileinto "INBOX";
+}
+"""
+        p = parser.Parser()
+        p.parse(res)
+        fs = FiltersSet("aaa", "# rule:")
+        fs.from_parser_result(p)
+        c = fs.get_filter_conditions('aaa')
+        self.assertEqual(
+            c, ('envelope', ':contains', 'To', 'hello@world.it')
+        )
+
+    def test_get_filter_matchtype(self):
+        """Test get_filter_matchtype method."""
+        self.fs.addfilter(
+            "ruleX",
+            ('Sender', ":is", 'toto@toto.com'), ,
+            ("fileinto", ":copy", "Toto"), )
+        match_type = self.fs.get_filter_matchtype("ruleX")
+        self.assertEqual(match_type, "anyof")
+
+    def test_get_filter_actions(self):
+        """Test get_filter_actions method."""
+        self.fs.addfilter(
+            "ruleX",
+            ('Sender', ":is", 'toto@toto.com'), ,
+            ("fileinto", ":copy", "Toto"), )
+        actions = self.fs.get_filter_actions("ruleX")
+        self.assertIn("fileinto", actions0)
+        self.assertIn(":copy", actions0)
+        self.assertIn("Toto", actions0)
+
+        self.fs.addfilter(
+            "ruleY",
+            ("Subject", ":contains", "aaa"),
+            ("stop",)
+        )
+        actions = self.fs.get_filter_actions("ruleY")
+        self.assertIn("stop", actions0)
+
+    def test_add_header_filter(self):
+        output = io.StringIO()
+        self.fs.addfilter(
+            "rule1",
+            ('Sender', ":is", 'toto@toto.com'), ,
+            ("fileinto", ":copy", "Toto"), )
+        self.assertIsNot(self.fs.getfilter("rule1"), None)
+        self.fs.tosieve(output)
+        self.assertEqual(output.getvalue(), """require "fileinto", "copy";
+
+# Filter: rule1
+if anyof (header :is "Sender" "toto@toto.com") {
+    fileinto :copy "Toto";
+}
+""")
+        output.close()
+
+    def test_use_action_with_tag(self):
+        output = io.StringIO()
+        self.fs.addfilter(
+            "rule1",
+            ('Sender', ":is", 'toto@toto.com'), ,
+            ("redirect", ":copy", "toto@titi.com"), )
+        self.assertIsNot(self.fs.getfilter("rule1"), None)
+        self.fs.tosieve(output)
+        self.assertEqual(output.getvalue(), """require "copy";
+
+# Filter: rule1
+if anyof (header :is "Sender" "toto@toto.com") {
+    redirect :copy "toto@titi.com";
+}
+""")
+        output.close()
+
+    def test_add_header_filter_with_not(self):
+        output = io.StringIO()
+        self.fs.addfilter(
+            "rule1",
+            ('Sender', ":notcontains", 'toto@toto.com'),
+            ("fileinto", 'Toto'))
+        self.assertIsNot(self.fs.getfilter("rule1"), None)
+        self.fs.tosieve(output)
+        self.assertEqual(output.getvalue(), """require "fileinto";
+
+# Filter: rule1
+if anyof (not header :contains "Sender" "toto@toto.com") {
+    fileinto "Toto";
+}
+""")
+
+    def test_add_exists_filter(self):
+        output = io.StringIO()
+        self.fs.addfilter(
+            "rule1",
+            ('exists', "list-help", "list-unsubscribe",
+              "list-subscribe", "list-owner"),
+            ("fileinto", 'Toto')
+        )
+        self.assertIsNot(self.fs.getfilter("rule1"), None)
+        self.fs.tosieve(output)
+        self.assertEqual(output.getvalue(), """require "fileinto";
+
+# Filter: rule1
+if anyof (exists "list-help","list-unsubscribe","list-subscribe","list-owner") {
+    fileinto "Toto";
+}
+""")
+
+    def test_add_exists_filter_with_not(self):
+        output = io.StringIO()
+        self.fs.addfilter(
+            "rule1",
+            ('notexists', "list-help", "list-unsubscribe",
+              "list-subscribe", "list-owner"),
+            ("fileinto", 'Toto')
+        )
+        self.assertIsNot(self.fs.getfilter("rule1"), None)
+        self.fs.tosieve(output)
+        self.assertEqual(output.getvalue(), """require "fileinto";
+
+# Filter: rule1
+if anyof (not exists "list-help","list-unsubscribe","list-subscribe","list-owner") {
+    fileinto "Toto";
+}
+""")
+
+    def test_add_size_filter(self):
+        output = io.StringIO()
+        self.fs.addfilter(
+            "rule1",
+            ('size', ":over", "100k"),
+            ("fileinto", 'Totoéé')
+        )
+        self.assertIsNot(self.fs.getfilter("rule1"), None)
+        self.fs.tosieve(output)
+        self.assertEqual(output.getvalue(), """require "fileinto";
+
+# Filter: rule1
+if anyof (size :over 100k) {
+    fileinto "Totoéé";
+}
+""")
+
+    def test_remove_filter(self):
+        self.fs.addfilter("rule1",
+                          ('Sender', ":is", 'toto@toto.com'),
+                          ("fileinto", 'Toto'))
+        self.assertIsNot(self.fs.getfilter("rule1"), None)
+        self.assertEqual(self.fs.removefilter("rule1"), True)
+        self.assertIs(self.fs.getfilter("rule1"), None)
+
+    def test_disablefilter(self):
+        """
+        FIXME: Extra spaces are written between if and anyof, why?!
+        """
+        self.fs.addfilter("rule1",
+                          ('Sender', ":is", 'toto@toto.com'),
+                          ("fileinto", 'Toto'))
+        self.assertIsNot(self.fs.getfilter("rule1"), None)
+        self.assertEqual(self.fs.disablefilter("rule1"), True)
+        output = io.StringIO()
+        self.fs.tosieve(output)
+        self.assertEqual(output.getvalue(), """require "fileinto";
+
+# Filter: rule1
+if false {
+    if     anyof (header :is "Sender" "toto@toto.com") {
+        fileinto "Toto";
+    }
+}
+""")
+        output.close()
+        self.assertEqual(self.fs.is_filter_disabled("rule1"), True)
+
+    def test_add_filter_unicode(self):
+        """Add a filter containing unicode data."""
+        name = u"Test\xe9".encode("utf-8")
+        self.fs.addfilter(
+            name,
+            ('Sender', ":is", 'toto@toto.com'), ,
+            ("fileinto", 'Toto'), )
+        self.assertIsNot(self.fs.getfilter("Testé"), None)
+        self.assertEqual("{}".format(self.fs), """require "fileinto";
+
+# Filter: Testé
+if anyof (header :is "Sender" "toto@toto.com") {
+    fileinto "Toto";
+}
+""")
+
+    def test_add_body_filter(self):
+        """Add a body filter."""
+        self.fs.addfilter(
+            "test",
+            ("body", ":raw", ":contains", "matteo"),
+            ("fileinto", "Toto")
+        )
+        self.assertEqual("{}".format(self.fs), """require "body", "fileinto";
+
+# Filter: test
+if anyof (body :contains :raw "matteo") {
+    fileinto "Toto";
+}
+""")
+
+    def test_add_notbody_filter(self):
+        """Add a not body filter."""
+        self.fs.addfilter(
+            "test",
+            ("body", ":raw", ":notcontains", "matteo"),
+            ("fileinto", "Toto")
+        )
+        self.assertEqual("{}".format(self.fs), """require "body", "fileinto";
+
+# Filter: test
+if anyof (not body :contains :raw "matteo") {
+    fileinto "Toto";
+}
+""")
+
+    def test_add_envelope_filter(self):
+        """Add a envelope filter."""
+        self.fs.addfilter(
+            "test",
+            ("envelope", ":is", "From", "hello"),
+            ("fileinto", "INBOX")
+        )
+        self.assertEqual("{}".format(self.fs), """require "envelope", "fileinto";
+
+# Filter: test
+if anyof (envelope :is "From" "hello") {
+    fileinto "INBOX";
+}
+""")
+
+    def test_add_notenvelope_filter(self):
+        """Add a not envelope filter."""
+        self.fs.addfilter(
+            "test",
+            ("envelope", ":notis", "From", "hello"),
+            ("fileinto", "INBOX")
+        )
+        self.assertEqual("{}".format(self.fs), """require "envelope", "fileinto";
+
+# Filter: test
+if anyof (not envelope :is "From" "hello") {
+    fileinto "INBOX";
+}
+""")
+
+    def test_add_currentdate_filter(self):
+        """Add a currentdate filter."""
+        self.fs.addfilter(
+            "test",
+            ("currentdate", ":zone", "+0100", ":is", "date", "2019-02-26"),
+            ("fileinto", "INBOX")
+        )
+        self.assertEqual("{}".format(self.fs), """require "date", "fileinto";
+
+# Filter: test
+if anyof (currentdate :zone "+0100" :is "date" "2019-02-26") {
+    fileinto "INBOX";
+}
+""")
+
+        self.fs.removefilter("test")
+        self.fs.addfilter(
+            "test",
+            ("currentdate", ":zone", "+0100", ":value", "gt", "date",
+              "2019-02-26"),
+            ("fileinto", "INBOX")
+        )
+        self.assertEqual("{}".format(self.fs), """require "date", "fileinto", "relational";
+
+# Filter: test
+if anyof (currentdate :zone "+0100" :value "gt" "date" "2019-02-26") {
+    fileinto "INBOX";
+}
+""")
+
+
+if __name__ == "__main__":
+    unittest.main()

sievelib-1.2.1.tar.gz/sievelib/tests/test_managesieve.py Added

@@ -0,0 +1,161 @@
+"""Managesieve test cases."""
+
+import unittest
+from unittest import mock
+
+from sievelib import managesieve
+
+CAPABILITIES = (
+    b'"IMPLEMENTATION" "Example1 ManageSieved v001"\r\n'
+    b'"VERSION" "1.0"\r\n'
+    b'"SASL" "PLAIN SCRAM-SHA-1 GSSAPI"\r\n'
+    b'"SIEVE" "fileinto vacation"\r\n'
+    b'"STARTTLS"\r\n'
+)
+
+CAPABILITIES_WITHOUT_VERSION = (
+    b'"IMPLEMENTATION" "Example1 ManageSieved v001"\r\n'
+    b'"SASL" "PLAIN SCRAM-SHA-1 GSSAPI"\r\n'
+    b'"SIEVE" "fileinto vacation"\r\n'
+    b'"STARTTLS"\r\n'
+)
+
+AUTHENTICATION = (
+    CAPABILITIES +
+    b'OK "Dovecot ready."\r\n'
+    b'OK "Logged in."\r\n'
+)
+
+LISTSCRIPTS = (
+    b'"summer_script"\r\n'
+    b'"vac\xc3\xa0tion_script"\r\n'
+    b'{13}\r\n'
+    b'clever"script\r\n'
+    b'"main_script" ACTIVE\r\n'
+    b'OK "Listscripts completed."\r\n'
+)
+
+GETSCRIPT = (
+    b'{54}\r\n'
+    b'#this is my wonderful script\r\n'
+    b'reject "I reject all";\r\n'
+    b'OK "Getscript completed."\r\n'
+)
+
+
+@mock.patch("socket.socket")
+class ManageSieveTestCase(unittest.TestCase):
+    """Managesieve test cases."""
+
+    def setUp(self):
+        """Create client."""
+        self.client = managesieve.Client("127.0.0.1")
+
+    def authenticate(self, mock_socket):
+        """Authenticate client."""
+        mock_socket.return_value.recv.side_effect = (AUTHENTICATION, )
+        self.client.connect(b"user", b"password")
+
+    def test_connection(self, mock_socket):
+        """Test connection."""
+        self.authenticate(mock_socket)
+        self.assertEqual(
+            self.client.get_sieve_capabilities(), "fileinto", "vacation")
+        mock_socket.return_value.recv.side_effect = (b"OK test\r\n", )
+        self.client.logout()
+
+    def test_capabilities(self, mock_socket):
+        """Test capabilities command."""
+        self.authenticate(mock_socket)
+        mock_socket.return_value.recv.side_effect = (
+            CAPABILITIES + b'OK "Capability completed."\r\n', )
+        capabilities = self.client.capability()
+        self.assertEqual(capabilities, CAPABILITIES)
+
+    def test_listscripts(self, mock_socket):
+        """Test listscripts command."""
+        self.authenticate(mock_socket)
+        mock_socket.return_value.recv.side_effect = (LISTSCRIPTS, )
+        active_script, others = self.client.listscripts()
+        self.assertEqual(active_script, "main_script")
+        self.assertEqual(
+            others, u'summer_script', u'vacàtion_script', u'clever"script')
+
+    def test_getscript(self, mock_socket):
+        """Test getscript command."""
+        self.authenticate(mock_socket)
+        mock_socket.return_value.recv.side_effect = (GETSCRIPT, )
+        content = self.client.getscript("main_script")
+        self.assertEqual(
+            content, u'#this is my wonderful script\nreject "I reject all";')
+
+    def test_putscript(self, mock_socket):
+        """Test putscript command."""
+        self.authenticate(mock_socket)
+        script = """require "fileinto";
+
+if envelope :contains "to" "tmartin+sent" {
+  fileinto "INBOX.sent";
+}
+"""
+        mock_socket.return_value.recv.side_effect = (
+            b'OK "putscript completed."\r\n', )
+        self.assertTrue(self.client.putscript(u"test_script", script))
+
+    def test_deletescript(self, mock_socket):
+        """Test deletescript command."""
+        self.authenticate(mock_socket)
+        mock_socket.return_value.recv.side_effect = (
+            b'OK "deletescript completed."\r\n', )
+        self.assertTrue(self.client.deletescript(u"test_script"))
+
+    def test_checkscript(self, mock_socket):
+        """Test checkscript command."""
+        self.authenticate(mock_socket)
+        mock_socket.return_value.recv.side_effect = (
+            b'OK "checkscript completed."\r\n', )
+        script = "#comment\r\nInvalidSieveCommand\r\n"
+        self.assertTrue(self.client.checkscript(script))
+
+    def test_setactive(self, mock_socket):
+        """Test setactive command."""
+        self.authenticate(mock_socket)
+        mock_socket.return_value.recv.side_effect = (
+            b'OK "setactive completed."\r\n', )
+        self.assertTrue(self.client.setactive(u"test_script"))
+
+    def test_havespace(self, mock_socket):
+        """Test havespace command."""
+        self.authenticate(mock_socket)
+        mock_socket.return_value.recv.side_effect = (
+            b'OK "havespace completed."\r\n', )
+        self.assertTrue(self.client.havespace(u"test_script", 1000))
+
+    def test_renamescript(self, mock_socket):
+        """Test renamescript command."""
+        self.authenticate(mock_socket)
+        mock_socket.return_value.recv.side_effect = (
+            b'OK "renamescript completed."\r\n', )
+        self.assertTrue(self.client.renamescript(u"old_script", u"new_script"))
+
+    def test_renamescript_simulated(self, mock_socket):
+        """Test renamescript command simulation."""
+        mock_socket.return_value.recv.side_effect = (
+            CAPABILITIES_WITHOUT_VERSION +
+            b'OK "Dovecot ready."\r\n'
+            b'OK "Logged in."\r\n',
+        )
+        self.client.connect(b"user", b"password")
+        mock_socket.return_value.recv.side_effect = (
+            LISTSCRIPTS,
+            GETSCRIPT,
+            b'OK "putscript completed."\r\n',
+            b'OK "setactive completed."\r\n',
+            b'OK "deletescript completed."\r\n'
+        )
+        self.assertTrue(
+            self.client.renamescript(u"main_script", u"new_script"))
+
+
+if __name__ == "__main__":
+    unittest.main()

sievelib-1.2.1.tar.gz/sievelib/tests/test_parser.py Added

@@ -0,0 +1,911 @@
+"""
+Unit tests for the SIEVE language parser.
+"""
+import unittest
+import os.path
+import codecs
+import io
+
+from sievelib.parser import Parser
+from sievelib.factory import FiltersSet
+import sievelib.commands
+
+
+class MytestCommand(sievelib.commands.ActionCommand):
+ args_definition = 
+ {"name": "testtag",
+ "type": "tag",
+ "write_tag": True,
+ "values": ":testtag",
+ "extra_arg": {"type": "number",
+ "required": False},
+ "required": False},
+ {"name": "recipients",
+ "type": "string", "stringlist",
+ "required": True}
+ 
+
+
+class Quota_notificationCommand(sievelib.commands.ActionCommand):
+ args_definition = 
+ {"name": "subject",
+ "type": "tag",
+ "write_tag": True,
+ "values": ":subject",
+ "extra_arg": {"type": "string"},
+ "required": False},
+ {"name": "recipient",
+ "type": "tag",
+ "write_tag": True,
+ "values": ":recipient",
+ "extra_arg": {"type": "stringlist"},
+ "required": True}
+ 
+
+
+class SieveTest(unittest.TestCase):
+ def setUp(self):
+ self.parser = Parser()
+
+ def __checkCompilation(self, script, result):
+ self.assertEqual(self.parser.parse(script), result)
+
+ def compilation_ok(self, script, **kwargs):
+ self.__checkCompilation(script, True, **kwargs)
+
+ def compilation_ko(self, script):
+ self.__checkCompilation(script, False)
+
+ def representation_is(self, content):
+ target = io.StringIO()
+ self.parser.dump(target)
+ repr_ = target.getvalue()
+ target.close()
+ self.assertEqual(repr_, content.lstrip())
+
+ def sieve_is(self, content):
+ filtersset = FiltersSet("Testfilterset")
+ filtersset.from_parser_result(self.parser)
+ target = io.StringIO()
+ filtersset.tosieve(target)
+ repr_ = target.getvalue()
+ target.close()
+ self.assertEqual(repr_, content)
+
+
+class AdditionalCommands(SieveTest):
+ def test_add_command(self):
+ self.assertRaises(
+ sievelib.commands.UnknownCommand,
+ sievelib.commands.get_command_instance, 'mytest'
+ )
+ sievelib.commands.add_commands(MytestCommand)
+ sievelib.commands.get_command_instance('mytest')
+ self.compilation_ok(b"""
+ mytest :testtag 10 "testrecp1@example.com";
+ """)
+
+ def test_quota_notification(self):
+ sievelib.commands.add_commands(Quota_notificationCommand)
+ quota_notification_sieve = """# Filter: Testrule\nquota_notification :subject "subject here" :recipient "somerecipient@example.com";\n"""
+ self.compilation_ok(quota_notification_sieve)
+ self.sieve_is(quota_notification_sieve)
+
+
+class ValidEncodings(SieveTest):
+ def test_utf8_file(self):
+ utf8_sieve = os.path.join(
+ os.path.dirname(__file__), 'files', 'utf8_sieve.txt'
+ )
+ with codecs.open(utf8_sieve, encoding='utf8') as fobj:
+ source_sieve = fobj.read()
+ self.parser.parse_file(utf8_sieve)
+ self.sieve_is(source_sieve)
+
+
+class ValidSyntaxes(SieveTest):
+ def test_hash_comment(self):
+ self.compilation_ok(b"""
+if size :over 100k { # this is a comment
+ discard;
+}
+""")
+ self.representation_is("""
+if (type: control)
+ size (type: test)
+ :over
+ 100k
+ discard (type: action)
+""")
+
+ def test_bracket_comment(self):
+ self.compilation_ok(b"""
+if size :over 100K { /* this is a comment
+ this is still a comment */ discard /* this is a comment
+ */ ;
+}
+""")
+ self.representation_is("""
+if (type: control)
+ size (type: test)
+ :over
+ 100K
+ discard (type: action)
+""")
+
+ def test_string_with_bracket_comment(self):
+ self.compilation_ok(b"""
+if header :contains "Cc" "/* comment */" {
+ discard;
+}
+""")
+ self.representation_is("""
+if (type: control)
+ header (type: test)
+ :contains
+ "Cc"
+ "/* comment */"
+ discard (type: action)
+""")
+
+ def test_multiline_string(self):
+ self.compilation_ok(b"""
+require "reject";
+
+if allof (false, address :is "From", "Sender" "blka@bla.com") {
+ reject text:
+noreply
+============================
+Your email has been canceled
+============================
+.
+;
+ stop;
+} else {
+ reject text:
+================================
+Your email has been canceled too
+================================
+.
+;
+}
+""")
+ self.representation_is("""
+require (type: control)
+ "reject"
+if (type: control)
+ allof (type: test)
+ false (type: test)
+ address (type: test)
+ :is
+ "From","Sender"
+ "blka@bla.com"
+ reject (type: action)
+ text:
+noreply
+============================
+Your email has been canceled
+============================
+.
+ stop (type: action)
+else (type: control)
+ reject (type: action)
+ text:
+================================
+Your email has been canceled too
+================================
+.
+""")
+
+ def test_complex_allof_with_not(self):
+ """Test for allof/anyof commands including a not test.
+
+ See https://github.com/tonioo/sievelib/issues/69.
+ """
+ self.compilation_ok(b"""
+require "fileinto", "reject";
+
+if allof (not allof (address :is "From","sender" "test1@test2.priv","test2@test2.priv", header :matches "Subject" "INACTIVE*"), address :is "From" "user3@test3.priv")
+{
+ reject;
+}
+""")
+ self.representation_is("""
+require (type: control)
+ "fileinto","reject"
+if (type: control)
+ allof (type: test)
+ not (type: test)
+ allof (type: test)
+ address (type: test)
+ :is
+ "From","sender"
+ "test1@test2.priv","test2@test2.priv"
+ header (type: test)
+ :matches
+ "Subject"
+ "INACTIVE*"
+ address (type: test)
+ :is
+ "From"
+ "user3@test3.priv"
+ reject (type: action)
+""")
+
+ def test_nested_blocks(self):
+ self.compilation_ok(b"""
+if header :contains "Sender" "example.com" {
+ if header :contains "Sender" "me@" {
+ discard;
+ } elsif header :contains "Sender" "you@" {
+ keep;
+ }
+}
+""")
+ self.representation_is("""
+if (type: control)
+ header (type: test)
+ :contains
+ "Sender"
+ "example.com"
+ if (type: control)
+ header (type: test)
+ :contains
+ "Sender"
+ "me@"
+ discard (type: action)
+ elsif (type: control)
+ header (type: test)
+ :contains
+ "Sender"
+ "you@"
+ keep (type: action)
+""")
+
+ def test_true_test(self):
+ self.compilation_ok(b"""
+if true {
+
+}
+""")
+ self.representation_is("""
+if (type: control)
+ true (type: test)
+""")
+
+ def test_rfc5228_extended(self):
+ self.compilation_ok(b"""
+#
+# Example Sieve Filter
+# Declare any optional features or extension used by the script
+#
+require "fileinto";
+
+#
+# Handle messages from known mailing lists
+# Move messages from IETF filter discussion list to filter mailbox
+#
+if header :is "Sender" "owner-ietf-mta-filters@imc.org"
+ {
+ fileinto "filter"; # move to "filter" mailbox
+ }
+#
+# Keep all messages to or from people in my company
+#
+elsif address :domain :is "From", "To" "example.com"
+ {
+ keep; # keep in "In" mailbox
+ }
+
+#
+# Try and catch unsolicited email. If a message is not to me,
+# or it contains a subject known to be spam, file it away.
+#
+elsif anyof (NOT address :all :contains
+ "To", "Cc", "Bcc" "me@example.com",
+ header :matches "subject"
+ "*make*money*fast*", "*university*dipl*mas*")
+ {
+ fileinto "spam"; # move to "spam" mailbox
+ }
+else
+ {
+ # Move all other (non-company) mail to "personal"
+ # mailbox.
+ fileinto "personal";
+ }
+""")
+ self.representation_is("""
+require (type: control)
+ "fileinto"
+if (type: control)
+ header (type: test)
+ :is
+ "Sender"
+ "owner-ietf-mta-filters@imc.org"
+ fileinto (type: action)
+ "filter"
+elsif (type: control)
+ address (type: test)
+ :domain
+ :is
+ "From","To"
+ "example.com"
+ keep (type: action)
+elsif (type: control)
+ anyof (type: test)
+ not (type: test)
+ address (type: test)
+ :all
+ :contains
+ "To","Cc","Bcc"
+ "me@example.com"
+ header (type: test)
+ :matches
+ "subject"
+ "*make*money*fast*","*university*dipl*mas*"
+ fileinto (type: action)
+ "spam"
+else (type: control)
+ fileinto (type: action)
+ "personal"
+""")
+
+ def test_explicit_comparator(self):
+ self.compilation_ok(b"""
+if header :contains :comparator "i;octet" "Subject" "MAKE MONEY FAST" {
+ discard;
+}
+""")
+ self.representation_is("""
+if (type: control)
+ header (type: test)
+ :comparator
+ "i;octet"
+ :contains
+ "Subject"
+ "MAKE MONEY FAST"
+ discard (type: action)
+""")
+
+ def test_non_ordered_args(self):
+ self.compilation_ok(b"""
+if address :all :is "from" "tim@example.com" {
+ discard;
+}
+""")
+ self.representation_is("""
+if (type: control)
+ address (type: test)
+ :all
+ :is
+ "from"
+ "tim@example.com"
+ discard (type: action)
+""")
+
+ def test_multiple_not(self):
+ self.compilation_ok(b"""
+if not not not not true {
+ stop;
+}
+""")
+ self.representation_is("""
+if (type: control)
+ not (type: test)
+ not (type: test)
+ not (type: test)
+ not (type: test)
+ true (type: test)
+ stop (type: action)
+""")
+
+ def test_just_one_command(self):
+ self.compilation_ok(b"keep;")
+ self.representation_is("""
+keep (type: action)
+""")
+
+ def test_singletest_testlist(self):
+ self.compilation_ok(b"""
+if anyof (true) {
+ discard;
+}
+""")
+ self.representation_is("""
+if (type: control)
+ anyof (type: test)
+ true (type: test)
+ discard (type: action)
+""")
+
+ def test_multitest_testlist(self):
+ self.compilation_ok(b"""
+if anyof(allof(address :contains "From" ""), allof(header :contains "Subject" "")) {}
+""")
+
+ def test_truefalse_testlist(self):
+ self.compilation_ok(b"""
+if anyof(true, false) {
+ discard;
+}
+""")
+ self.representation_is("""
+if (type: control)
+ anyof (type: test)
+ true (type: test)
+ false (type: test)
+ discard (type: action)
+""")
+
+ def test_vacationext_basic(self):
+ self.compilation_ok(b"""
+require "vacation";
+if header :contains "subject" "cyrus" {
+ vacation "I'm out -- send mail to cyrus-bugs";
+} else {
+ vacation "I'm out -- call me at +1 304 555 0123";
+}
+""")
+
+ def test_vacationext_medium(self):
+ self.compilation_ok(b"""
+require "vacation";
+if header :contains "subject" "lunch" {
+ vacation :handle "ran-away" "I'm out and can't meet for lunch";
+} else {
+ vacation :handle "ran-away" "I'm out";
+}
+""")
+
+ def test_vacationext_with_limit(self):
+ self.compilation_ok(b"""
+require "vacation";
+vacation :days 23 :addresses "tjs@example.edu",
+ "ts4z@landru.example.edu"
+ "I'm away until October 19.
+ If it's an emergency, call 911, I guess." ;
+""")
+
+ def test_vacationext_with_single_mail_address(self):
+ self.compilation_ok("""
+require "vacation";
+vacation :days 23 :addresses "tjs@example.edu"
+ "I'm away until October 19.
+ If it's an emergency, call 911, I guess." ;
+""")
+
+ def test_vacationext_with_multiline(self):
+ self.compilation_ok(b"""
+require "vacation";
+vacation :mime text:
+Content-Type: multipart/alternative; boundary=foo
+
+--foo
+
+I'm at the beach relaxing. Mmmm, surf...
+
+--foo
+Content-Type: text/html; charset=us-ascii
+
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN"
+ "http://www.w3.org/TR/REC-html40/strict.dtd">
+<HTML><HEAD><TITLE>How to relax</TITLE>
+<BASE HREF="http://home.example.com/pictures/"></HEAD>
+<BODY>I'm at the <A HREF="beach.gif">beach</A> relaxing.
+Mmmm, <A HREF="ocean.gif">surf</A>...
+</BODY></HTML>
+
+--foo--
+.
+;
+""")
+
+ def test_reject_extension(self):
+ self.compilation_ok(b"""
+require "reject";
+
+if header :contains "subject" "viagra" {
+ reject;
+}
+""")
+
+ def test_fileinto_create(self):
+ self.compilation_ok(b"""require "fileinto", "mailbox";
+if header :is "Sender" "owner-ietf-mta-filters@imc.org"
+ {
+ fileinto :create "filter"; # move to "filter" mailbox
+ }
+""")
+
+ def test_imap4flags_extension(self):
+ self.compilation_ok(b"""
+require "fileinto", "imap4flags", "variables";
+if size :over 1M {
+ addflag "MyFlags" "Big";
+ if header :is "From" "boss@company.example.com" {
+ # The message will be marked as "\Flagged Big" when filed into
+ # mailbox "Big messages"
+ addflag "MyFlags" "\\Flagged";
+ }
+ fileinto :flags "${MyFlags}" "Big messages";
+}
+""")
+
+ def test_imap4flags_hasflag(self):
+ self.compilation_ok(b"""
+require "imap4flags", "fileinto";
+
+if hasflag "test", "toto" {
+ fileinto "Test";
+}
+addflag "Var1" "Truc";
+if hasflag "Var1" "Truc" {
+ fileinto "Truc";
+}
+""")
+
+ def test_body_extension(self):
+ self.compilation_ok(b"""
+require "body", "fileinto";
+
+if body :content "text" :contains "missile", "coordinates" {
+ fileinto "secrets";
+}
+""")
+ self.compilation_ok(b"""
+require "body";
+
+if body :raw :contains "MAKE MONEY FAST" {
+ discard;
+}
+""")
+ self.compilation_ok(b"""
+require "body", "fileinto";
+
+# Save messages mentioning the project schedule in the
+# project/schedule folder.
+if body :text :contains "project schedule" {
+ fileinto "project/schedule";
+}
+""")
+
+
+class InvalidSyntaxes(SieveTest):
+ def test_nested_comments(self):
+ self.compilation_ko(b"""
+/* this is a comment /* with a nested comment inside */
+it is allowed by the RFC :p */
+""")
+
+ def test_nonopened_block(self):
+ self.compilation_ko(b"""
+if header :is "Sender" "me@example.com"
+ discard;
+}
+""")
+
+ def test_nonclosed_block(self):
+ self.compilation_ko(b"""
+if header :is "Sender" "me@example.com" {
+ discard;
+
+""")
+
+ def test_nonopened_parenthesis(self):
+ self.compilation_ko(b"""
+if header :is "Sender" "me@example.com") {
+ discard;
+}
+""")
+
+ def test_nonopened_block2(self):
+ self.compilation_ko(b"""}""")
+
+ def test_unknown_token(self):
+ self.compilation_ko(b"""
+if header :is "Sender" "Toto" & header :contains "Cc" "Tata" {
+
+}
+""")
+
+ def test_empty_string_list(self):
+ self.compilation_ko(b"require ;")
+
+ def test_unopened_string_list(self):
+ self.compilation_ko(b'require "fileinto";')
+
+ def test_unclosed_string_list(self):
+ self.compilation_ko(b'require "toto", "tata";')
+
+ def test_misplaced_comma_in_string_list(self):
+ self.compilation_ko(b'require "toto",;')
+
+ def test_nonopened_tests_list(self):
+ self.compilation_ko(b"""
+if anyof header :is "Sender" "me@example.com",
+ header :is "Sender" "myself@example.com") {
+ fileinto "trash";
+}
+""")
+
+ def test_nonclosed_tests_list(self):
+ self.compilation_ko(b"""
+if anyof (header :is "Sender" "me@example.com",
+ header :is "Sender" "myself@example.com" {
+ fileinto "trash";
+}
+""")
+
+ def test_nonclosed_tests_list2(self):
+ self.compilation_ko(b"""
+if anyof (header :is "Sender" {
+ fileinto "trash";
+}
+""")
+
+ def test_misplaced_comma_in_tests_list(self):
+ self.compilation_ko(b"""
+if anyof (header :is "Sender" "me@example.com",) {
+
+}
+""")
+
+ def test_comma_inside_arguments(self):
+ self.compilation_ko(b"""
+require "fileinto", "enveloppe";
+""")
+
+ def test_non_ordered_args(self):
+ self.compilation_ko(b"""
+if address "From" :is "tim@example.com" {
+ discard;
+}
+""")
+
+ def test_extra_arg(self):
+ self.compilation_ko(b"""
+if address :is "From" "tim@example.com" "tutu" {
+ discard;
+}
+""")
+
+ def test_empty_not(self):
+ self.compilation_ko(b"""
+if not {
+ discard;
+}
+""")
+
+ def test_missing_semicolon(self):
+ self.compilation_ko(b"""
+require "fileinto"
+""")
+
+ def test_missing_semicolon_in_block(self):
+ self.compilation_ko(b"""
+if true {
+ stop
+}
+""")
+
+ def test_misplaced_parenthesis(self):
+ self.compilation_ko(b"""
+if (true) {
+
+}
+""")
+
+ def test_control_command_in_test(self):
+ self.compilation_ko(b"""
+if stop;
+""")
+
+ def test_extra_test_in_simple_control(self):
+ self.compilation_ko(b"""
+if address "From" "example.com" header "Subject" "Example" { stop; }
+""")
+
+ def test_missing_comma_in_test_list(self):
+ self.compilation_ko(b"""
+if allof(anyof(address "From" "example.com") header "Subject" "Example") { stop; }
+""")
+
+
+class LanguageRestrictions(SieveTest):
+ def test_unknown_control(self):
+ self.compilation_ko(b"""
+macommande "Toto";
+""")
+
+ def test_misplaced_elsif(self):
+ self.compilation_ko(b"""
+elsif true {
+
+}
+""")
+
+ def test_misplaced_elsif2(self):
+ self.compilation_ko(b"""
+elsif header :is "From" "toto" {
+
+}
+""")
+
+ def test_misplaced_nested_elsif(self):
+ self.compilation_ko(b"""
+if true {
+ elsif false {
+
+ }
+}
+""")
+
+ def test_unexpected_argument(self):
+ self.compilation_ko(b'stop "toto";')
+
+ def test_bad_arg_value(self):
+ self.compilation_ko(b"""
+if header :isnot "Sent" "me@example.com" {
+ stop;
+}
+""")
+
+ def test_bad_arg_value2(self):
+ self.compilation_ko(b"""
+if header :isnot "Sent" 10000 {
+ stop;
+}
+""")
+
+ def test_bad_comparator_value(self):
+ self.compilation_ko(b"""
+if header :contains :comparator "i;prout" "Subject" "MAKE MONEY FAST" {
+ discard;
+}
+""")
+
+ def test_not_included_extension(self):
+ self.compilation_ko(b"""
+if header :contains "Subject" "MAKE MONEY FAST" {
+ fileinto "spam";
+}
+""")
+
+ def test_test_outside_control(self):
+ self.compilation_ko(b"true;")
+
+ def test_fileinto_create_without_mailbox(self):
+ self.compilation_ko(b"""require "fileinto";
+if header :is "Sender" "owner-ietf-mta-filters@imc.org"
+ {
+ fileinto :create "filter"; # move to "filter" mailbox
+ }
+""")
+ self.assertEqual(
+ self.parser.error, "line 4: extension 'mailbox' not loaded")
+
+ def test_fileinto_create_without_fileinto(self):
+ self.compilation_ko(b"""require "mailbox";
+if header :is "Sender" "owner-ietf-mta-filters@imc.org"
+ {
+ fileinto :create "filter"; # move to "filter" mailbox
+ }
+""")
+ self.assertEqual(
+ self.parser.error, "line 4: unknown command fileinto")
+
+ def test_exists_get_string_or_list(self):
+ self.compilation_ok(b"""
+if exists "subject"
+{
+ discard;
+}
+""")
+ self.compilation_ok(b"""
+if exists "subject"
+{
+ discard;
+}
+""")
+
+
+class DateCommands(SieveTest):
+
+ def test_date_command(self):
+ self.compilation_ok(b"""require "date", "relational", "fileinto";
+if allof(header :is "from" "boss@example.com",
+ date :value "ge" :originalzone "date" "hour" "09",
+ date :value "lt" :originalzone "date" "hour" "17")
+{ fileinto "urgent"; }
+""")
+
+ def test_currentdate_command(self):
+ self.compilation_ok(b"""require "date", "relational";
+
+if allof(currentdate :value "ge" "date" "2013-10-23",
+ currentdate :value "le" "date" "2014-10-12")
+{
+ discard;
+}
+""")
+
+ def test_currentdate_command_timezone(self):
+ self.compilation_ok(b"""require "date", "relational";
+
+if allof(currentdate :zone "+0100" :value "ge" "date" "2013-10-23",
+ currentdate :value "le" "date" "2014-10-12")
+{
+ discard;
+}
+""")
+
+ def test_currentdate_norel(self):
+ self.compilation_ok(b"""require "date";
+
+if allof (
+ currentdate :zone "+0100" :is "date" "2013-10-23"
+)
+{
+ discard;
+}""")
+
+ def test_currentdate_extension_not_loaded(self):
+ self.compilation_ko(b"""require "date";
+
+if allof ( currentdate :value "ge" "date" "2013-10-23" , currentdate :value "le" "date" "2014-10-12" )
+{
+ discard;
+}
+""")
+
+
+class VariablesCommands(SieveTest):
+ def test_set_command(self):
+ self.compilation_ok(b"""require "variables";
+
+set "matchsub" "testsubject";
+
+if allof (
+ header :contains "Subject" "${header}"
+)
+{
+ discard;
+}
+""")
+
+
+class CopyWithoutSideEffectsTestCase(SieveTest):
+ """RFC3894 test cases."""
+
+ def test_redirect_with_copy(self):
+ self.compilation_ko(b"""
+if header :contains "subject" "test" {
+ redirect :copy "dev@null.com";
+}
+""")
+
+ self.compilation_ok(b"""require "copy";
+if header :contains "subject" "test" {
+ redirect :copy "dev@null.com";
+}
+""")
+
+ def test_fileinto_with_copy(self):
+ self.compilation_ko(b"""require "fileinto";
+if header :contains "subject" "test" {
+ fileinto :copy "Spam";
+}
+""")
+ self.assertEqual(
+ self.parser.error, "line 3: extension 'copy' not loaded")
+
+ self.compilation_ok(b"""require "fileinto", "copy";
+if header :contains "subject" "test" {
+ fileinto :copy "Spam";
+}
+""")
+
+
+if __name__ == "__main__":
+ unittest.main()

sievelib-1.2.1.tar.gz/sievelib/tools.py Added

Build Results
RPM Lint

Refresh

Submit package home:molleko...:Winterfell / python-twisted to package Kolab:16:Testing / python-twisted

python-twisted.spec Added

@@ -0,0 +1,131 @@
+%global pypi_name twisted
+
+%global common_description %{expand:
+Twisted is a networking engine written in Python, supporting numerous protocols.
+It contains a web server, numerous chat clients, chat servers, mail servers
+and more.}
+
+Name: python-%{pypi_name}
+Version: 21.7.0
+Release: %autorelease
+Summary: Twisted is a networking engine written in Python
+
+License: MIT
+URL: http://twistedmatrix.com/
+VCS: https://github.com/twisted/twisted
+Source0: %{pypi_source Twisted}
+# Import gobject from gi.repository for Python 3
+# https://twistedmatrix.com/trac/ticket/9642
+Patch1: 0001-Import-gobject-from-gi.repository-in-Python-3.patch
+
+BuildArch: noarch
+
+%description %{common_description}
+
+%package -n python3-%{pypi_name}
+Summary: %{summary}
+
+BuildRequires: gcc
+BuildRequires: git-core
+BuildRequires: python3-devel >= 3.3
+BuildRequires: python3dist(pip) >= 19
+BuildRequires: python3dist(packaging)
+BuildRequires: python3dist(setuptools) >= 40.8
+BuildRequires: python3dist(wheel)
+BuildRequires: python3-Cython
+BuildRequires: python3dist(appdirs) >= 1.4
+BuildRequires: python3dist(automat) >= 0.8
+BuildRequires: python3dist(attrs) >= 19.2.0
+BuildRequires: python3dist(bcrypt) >= 3.0.0
+BuildRequires: python3dist(constantly) >= 15.1
+BuildRequires: python3dist(cryptography) >= 2.6
+BuildRequires: (python3dist(h2) >= 3 with python3dist(h2) < 5)
+BuildRequires: python3dist(pyhamcrest) >= 1.9
+BuildRequires: python3dist(hyperlink) >= 17.1.1
+BuildRequires: python3dist(idna) >= 2.4
+BuildRequires: python3dist(incremental) >= 21.3
+BuildRequires: (python3dist(priority) >= 1.1 with python3dist(priority) < 3)
+BuildRequires: python3dist(pyasn1)
+BuildRequires: python3dist(pyopenssl) >= 16
+BuildRequires: python3dist(pyserial) >= 3
+BuildRequires: python3dist(service-identity) >= 18.1
+BuildRequires: python3dist(setuptools)
+BuildRequires: python3dist(sphinx) >= 1.3.1
+BuildRequires: python3dist(sphinx-rtd-theme)
+BuildRequires: python3dist(typing-extensions) >= 3.6.5
+BuildRequires: python3dist(zope-interface) >= 4.4.2
+
+%{?python_extras_subpkg:Recommends: python3-%{pypi_name}+tls}
+%{!?python_extras_subpkg:Recommends: python3dist(service-identity) >= 18.1}
+
+%description -n python3-%{pypi_name} %{common_description}
+
+%{?python_extras_subpkg:%python_extras_subpkg -n python3-%{pypi_name} -i %{python3_sitelib}/*.dist-info tls}
+
+%prep
+%autosetup -p1 -n Twisted-%{version}
+# Relax python priority dep
+sed -i "s|priority >= 1.1.0, < 2.0|priority >= 1.1.0, < 3.0|" setup.cfg
+
+%build
+%pyproject_wheel
+
+%install
+%pyproject_install
+
+# no-manual-page-for-binary
+mkdir -p %{buildroot}%{_mandir}/man1/
+for s in conch core mail; do
+cp -a docs/$s/man/*.1 %{buildroot}%{_mandir}/man1/
+done
+
+# Packages that install arch-independent twisted plugins install here.
+# https://bugzilla.redhat.com/show_bug.cgi?id=1252140
+mkdir -p %{buildroot}%{python3_sitelib}/twisted/plugins
+
+# Move and symlink python3 scripts
+# no-manual-page-for-binary: man page is trial and twistd
+mv %{buildroot}%{_bindir}/trial %{buildroot}%{_bindir}/trial-%{python3_version}
+ln -s ./trial-%{python3_version} %{buildroot}%{_bindir}/trial-3
+ln -s ./trial-%{python3_version} %{buildroot}%{_bindir}/trial
+
+mv %{buildroot}%{_bindir}/twistd %{buildroot}%{_bindir}/twistd-%{python3_version}
+ln -s ./twistd-%{python3_version} %{buildroot}%{_bindir}/twistd-3
+ln -s ./twistd-%{python3_version} %{buildroot}%{_bindir}/twistd
+
+# ambiguous shebangs
+pathfix.py -pn -i %{__python3} %{buildroot}%{python3_sitelib}
+
+%pyproject_save_files twisted
+echo "%ghost %{python3_sitelib}/twisted/plugins/dropin.cache" >> %{pyproject_files}
+
+%check
+# can't get this to work within the buildroot yet due to multicast
+# https://twistedmatrix.com/trac/ticket/7494
+PATH=%{buildroot}%{_bindir}:$PATH PYTHONPATH=%{buildroot}%{python3_sitelib} %{buildroot}%{_bindir}/trial twisted ||:
+
+%files -n python3-twisted -f %{pyproject_files}
+%doc NEWS.rst README.rst
+%license LICENSE
+%{_bindir}/trial-3*
+%{_bindir}/twistd-3*
+%{_bindir}/cftp
+%{_bindir}/ckeygen
+%{_bindir}/conch
+%{_bindir}/mailmail
+%{_bindir}/pyhtmlizer
+%{_bindir}/tkconch
+%{_bindir}/trial
+%{_bindir}/twist
+%{_bindir}/twistd
+%{_mandir}/man1/cftp.1*
+%{_mandir}/man1/ckeygen.1*
+%{_mandir}/man1/conch.1*
+%{_mandir}/man1/mailmail.1*
+%{_mandir}/man1/pyhtmlizer.1*
+%{_mandir}/man1/tkconch.1*
+%{_mandir}/man1/trial.1*
+%{_mandir}/man1/twistd.1*
+
+%changelog
+%autochangelog

0001-Import-gobject-from-gi.repository-in-Python-3.patch Added

@@ -0,0 +1,32 @@
+From 2e99044f6785e9bd0c252cee4349feab9bb9bb66 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Robert-Andr=C3=A9=20Mauchin?= <zebob.m@gmail.com>
+Date: Wed, 22 May 2019 18:13:32 +0200
+Subject: PATCH 1/2 Import gobject from gi.repository in Python 3
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Signed-off-by: Robert-André Mauchin <zebob.m@gmail.com>
+---
+ src/twisted/internet/gtk2reactor.py | 5 ++++-
+ 1 file changed, 4 insertions(+), 1 deletion(-)
+
+diff --git a/src/twisted/internet/gtk2reactor.py b/src/twisted/internet/gtk2reactor.py
+index faf123464..19d97445c 100644
+--- a/src/twisted/internet/gtk2reactor.py
++++ b/src/twisted/internet/gtk2reactor.py
+@@ -43,7 +43,10 @@ try:
+ except (ImportError, AttributeError):
+ pass # maybe we're using pygtk before this hack existed.
+ 
+-import gobject # type: ignoreimport
++try:
++ import gobject # type: ignoreimport
++except ImportError:
++ from gi.repository import GObject as gobject
+ 
+ if hasattr(gobject, "threads_init"):
+ # recent versions of python-gtk expose this. python-gtk=2.4.1
+-- 
+2.21.0
+

Twisted-21.7.0.tar.gz Added

changelog Added

@@ -0,0 +1,320 @@
+* Tue Jul 27 2021 Fedora Release Engineering <releng@fedoraproject.org> - 21.2.0-4
+- Second attempt - Rebuilt for
+ https://fedoraproject.org/wiki/Fedora_35_Mass_Rebuild
+
+* Fri Jun 04 2021 Python Maint <python-maint@redhat.com> - 21.2.0-3
+- Rebuilt for Python 3.10
+
+* Fri Mar 05 2021 Miro Hrončok <mhroncok@redhat.com> - 21.2.0-2
+- Reintroduce twistedtls subpackage
+- Fixes: rhbz#1935872
+- Fixes: rhbz#1935873
+- Fixes: rhbz#1935869
+- Fixes: rhbz#1935870
+- Fixes: rhbz#1935871
+
+* Fri Mar 5 09:54:54 CET 2021 Robert-André Mauchin <zebob.m@gmail.com> - 21.2.0-1
+- Update to 21.2.0
+
+* Wed Jan 27 2021 Fedora Release Engineering <releng@fedoraproject.org> - 20.3.0-5
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_34_Mass_Rebuild
+
+* Sun Dec 20 2020 Robert-André Mauchin <zebob.m@gmail.com> - 20.3.0-4
+- Bump h2 dependency
+- Fix: rhbz#1909413
+
+* Wed Jul 29 2020 Fedora Release Engineering <releng@fedoraproject.org> - 20.3.0-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_33_Mass_Rebuild
+
+* Fri Jul 10 2020 Miro Hrončok <mhroncok@redhat.com> - 20.3.0-2
+- Add twistedtls subpackage
+
+* Thu Jun 18 05:29:03 CEST 2020 Robert-André Mauchin <zebob.m@gmail.com> - 20.3.0-1
+- Update to 20.3.0
+
+* Sun May 24 2020 Miro Hrončok <mhroncok@redhat.com> - 19.10.0-3
+- Rebuilt for Python 3.9
+
+* Tue Mar 17 16:31:05 CET 2020 Robert-André Mauchin <zebob.m@gmail.com> - 19.10.0-2
+- Security fix for CVE-2020-10108 (#1813439, #1813441)
+- Security fix for CVE-2020-10109 (#1813447, #1813449)
+
+* Tue Mar 17 15:15:48 CET 2020 Robert-André Mauchin <zebob.m@gmail.com> - 19.10.0-1
+- Update to 19.10.0
+- Revert removal of %%{python3_sitelib}/twisted/plugins/
+
+* Sun Oct 13 23:35:33 CEST 2019 Robert-André Mauchin <zebob.m@gmail.com> - 19.7.0-2
+- Drop Python 2 support (#1761204)
+
+* Mon Sep 16 2019 Jeremy Cline <jcline@redhat.com> - 19.7.0-1
+- Update to 19.7.0
+
+* Tue Sep 03 2019 Miro Hrončok <mhroncok@redhat.com> - 19.2.1-6
+- Stop running Python 2 tests at build time, reduce the build dependencies
+
+* Sat Aug 17 2019 Miro Hrončok <mhroncok@redhat.com> - 19.2.1-5
+- Rebuilt for Python 3.8
+
+* Fri Jul 26 2019 Fedora Release Engineering <releng@fedoraproject.org> - 19.2.1-4
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_31_Mass_Rebuild
+
+* Tue Jul 09 2019 Miro Hrončok <mhroncok@redhat.com> - 19.2.1-3
+- Security fix for CVE-2019-12855 (Check certificates for XMPP TLS) (#1728206) (#1728207)
+
+* Wed Jul 03 2019 Miro Hrončok <mhroncok@redhat.com> - 19.2.1-2
+- Rebuilt to update automatic Python dependencies
+
+* Sun Jun 09 18:40:31 CEST 2019 Robert-André Mauchin <zebob.m@gmail.com> - 19.2.1-1
+- Release 19.2.1
+
+* Wed May 22 18:26:29 CEST 2019 Robert-André Mauchin <zebob.m@gmail.com> - 19.2.0-3
+- Add patch to import gobject from gi.repository for Python 3
+- Fix #1712748
+
+* Tue May 14 16:00:42 CEST 2019 Robert-André Mauchin <zebob.m@gmail.com> - 19.2.0-2
+- Add patch regenerating raiser.c to use with Python 3.8a4
+- Fix #11709817
+
+* Wed Apr 10 17:38:50 CET 2019 Robert-André Mauchin <zebob.m@gmail.com> - 19.2.0-1
+- Release 19.2.0 (#1698490)
+
+* Thu Mar 07 2019 Robert-André Mauchin <zebob.m@gmail.com> - 18.9.0-1
+- Release 18.9.0
+- Run tests
+
+* Sat Feb 02 2019 Fedora Release Engineering <releng@fedoraproject.org> - 18.7.0-4
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_30_Mass_Rebuild
+
+* Mon Oct 22 2018 Miro Hrončok <mhroncok@redhat.com> - 18.7.0-3
+- Recommend pythonX-service-identity
+
+* Sat Jul 21 2018 Robert-André Mauchin <zebob.m@gmail.com> - 18.7.0-2
+- Remove erroneous symlink to binaries
+
+* Sun Jul 15 2018 Robert-André Mauchin <zebob.m@gmail.com> - 18.7.0-1
+- Update to 18.7.0
+
+* Sat Jul 14 2018 Fedora Release Engineering <releng@fedoraproject.org> - 18.4.0-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_29_Mass_Rebuild
+
+* Wed Jun 27 2018 Robert-André Mauchin <zebob.m@gmail.com> - 18.4.0-1
+- Update to 18.4.0
+- Default binaries to Python 3
+- Drop old Obsoletes/Provides
+- Refresh BR
+- Remove useless macros
+- Use python_enable_dependency_generator
+
+* Mon Jun 18 2018 Miro Hrončok <mhroncok@redhat.com> - 16.4.1-11
+- Rebuilt for Python 3.7
+
+* Wed May 23 2018 Miro Hrončok <mhroncok@redhat.com> - 16.4.1-10
+- Fix ambiguous shebangs
+
+* Fri Apr 27 2018 Petr Viktorin <pviktori@redhat.com> - 16.4.1-9
+- No longer require python-crypto
+
+* Mon Mar 26 2018 Iryna Shcherbina <ishcherb@redhat.com> - 16.4.1-8
+- Update Python 2 dependency declarations to new packaging standards
+ (See https://fedoraproject.org/wiki/FinalizingFedoraSwitchtoPython3)
+
+* Fri Feb 09 2018 Fedora Release Engineering <releng@fedoraproject.org> - 16.4.1-7
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_28_Mass_Rebuild
+
+* Fri Sep 29 2017 Troy Dawson <tdawson@redhat.com> - 16.4.1-6
+- Cleanup spec file conditionals
+
+* Thu Aug 03 2017 Fedora Release Engineering <releng@fedoraproject.org> - 16.4.1-5
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Binutils_Mass_Rebuild
+
+* Thu Jul 27 2017 Fedora Release Engineering <releng@fedoraproject.org> - 16.4.1-4
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Mass_Rebuild
+
+* Sat Feb 11 2017 Fedora Release Engineering <releng@fedoraproject.org> - 16.4.1-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_26_Mass_Rebuild
+
+* Tue Dec 13 2016 Stratakis Charalampos <cstratak@redhat.com> - 16.4.1-2
+- rebuilt
+
+* Wed Oct 26 2016 Jonathan Steffan <jsteffan@fedoraproject.org> - 16.4.1-1
+- Update to 16.4.1
+
+* Tue Jul 19 2016 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 16.3.0-2
+- https://fedoraproject.org/wiki/Changes/Automatic_Provides_for_Python_RPM_Packages
+
+* Fri Jul 8 2016 Jonathan Steffan <jsteffan@fedoraproject.org> - 16.3.0-1
+- Update to 16.3.0
+- mahole, tap2deb, tap2rpm are removed upstream
+
+* Sun Jun 26 2016 Jonathan Steffan <jsteffan@fedoraproject.org> - 16.2.0-2
+- Add rpmlint notes
+- Fix unneeded py3 conditional for py2 script chmod
+
+* Sun Jun 26 2016 Jonathan Steffan <jsteffan@fedoraproject.org> - 16.2.0-1
+- Update to 16.2.0
+- Update upstream source location
+
+* Thu Jun 2 2016 Haïkel Guémar <hguemar@fedoraproject.org> - 16.1.1-3
+- Drop tkinter dependency (only required for tkconch)
+- Use python3 conditionals
+- Move BR under the proper subpackage
+
+* Tue May 10 2016 Petr Viktorin <pviktori@redhat.com> - 16.1.1-2
+- Update to better conform to Python packaging guidelines
+
+* Thu May 05 2016 Julien Enselme <jujens@jujens.eu> - 16.1.1-1
+- Update to 16.1.1 (#1287381)
+
+* Thu Mar 10 2016 Julien Enselme <jujens@jujens.eu> - 15.5.0-2
+- Add python3 support
+
+* Thu Mar 10 2016 Julien Enselme <jujens@jujens.eu> - 15.5.0-1
+- Update to 15.5.0 (#1287381)
+- Use new python macros
+- Remove deprecated %%clean section
+
+* Thu Feb 04 2016 Fedora Release Engineering <releng@fedoraproject.org> - 15.4.0-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_24_Mass_Rebuild
+
+* Fri Nov 27 2015 Tom Prince <tom.prince@twistedmatrix.com> - 15.4.0-2
+- Add arch-independent plugin directory to package. (RHBZ#1252140)
+
+* Thu Oct 29 2015 Tom Prince <tom.prince@twistedmatrix.com> - 15.4.0-1
+- Update to 15.4.0
+- Include test certificates.
+
+* Mon Jul 20 2015 Jonathan Steffan <jsteffan@fedoraproject.org> - 15.2.1-1
+- Update to 15.2.1
+
+* Sat May 09 2015 Jonathan Steffan <jsteffan@fedoraproject.org> - 15.1.0-1
+- Update to 15.1.0 (RHBZ#1187921,RHBZ#1192707)
+- Require python-service-identity (RHBZ#1119067)
+- Obsolete python-twisted-core-doc (RHBZ#1187025)
+
+* Sat Nov 22 2014 Jonathan Steffan <jsteffan@fedoraproject.org> - 14.0.2-1
+- Update to 14.0.2 (RHBZ#1143002)
+
+* Sun Aug 17 2014 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 14.0.0-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_21_22_Mass_Rebuild
+
+* Sat Jun 07 2014 Jonathan Steffan <jsteffan@fedoraproject.org> - 14.0.0-1
+- Update to 14.0.0
+- Ship Twisted as a fully featured package without subpackages on the advice
+ of upstream and to mirror what pypi provides
+- Explictly build for python2 with new macros
+
+* Sat Jun 07 2014 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 12.2.0-4
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_21_Mass_Rebuild
+
+* Sun Aug 04 2013 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 12.2.0-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_20_Mass_Rebuild
+
+* Thu Feb 14 2013 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 12.2.0-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_19_Mass_Rebuild
+
+* Mon Sep 03 2012 Julian Sikorski <belegdol@fedoraproject.org> - 12.2.0-1
+- Updated to 12.2.0
+
+* Sat Jul 21 2012 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 12.1.0-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_18_Mass_Rebuild
+
+* Sun Jun 17 2012 Julian Sikorski <belegdol@fedoraproject.org> - 12.1.0-1
+- Updated to 12.1.0
+
+* Sun Feb 12 2012 Julian Sikorski <belegdol@fedoraproject.org> - 12.0.0-1
+- Updated to 12.0.0
+
+* Sat Jan 07 2012 Julian Sikorski <belegdol@fedoraproject.org> - 11.1.0-2
+- Rebuilt for gcc-4.7
+
+* Fri Nov 18 2011 Julian Sikorski <belegdol@fedoraproject.org> - 11.1.0-1
+- Updated to 11.1.0
+- Dropped obsolete Group, Buildroot, %%clean and %%defattr
+
+* Sat Apr 30 2011 Julian Sikorski <belegdol@fedoraproject.org> - 11.0.0-1
+- Updated to 11.0.0
+- Added comment on how to obtain the PKG-INFO file
+
+* Wed Feb 09 2011 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 10.2.0-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_15_Mass_Rebuild
+
+* Sat Jan 15 2011 Julian Sikorski <belegdol@fedoraproject.org> - 10.2.0-1
+- Updated to 10.2.0
+
+* Mon Nov 08 2010 Julian Sikorski <belegdol@fedoraproject.org> - 10.1.0-3
+- Use python_sitelib instead of python-sitearch
+- The aforementioned macros are defined in Fedora 13 and above
+
+* Sun Nov 07 2010 Julian Sikorski <belegdol@fedoraproject.org> - 10.1.0-2
+- Added egg-info file
+
+* Tue Sep 21 2010 Julian Sikorski <belegdol@fedoraproject.org> - 10.1.0-1
+- Updated to 10.1.0
+- Switched to macros for versioned dependencies
+
+* Sun Jul 26 2009 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 8.2.0-3
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_12_Mass_Rebuild
+
+* Thu Feb 26 2009 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 8.2.0-2
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_11_Mass_Rebuild
+
+* Mon Dec 29 2008 Matthias Saou <http://freshrpms.net/> 8.2.0-1
+- Update to 8.2.0.
+- Change back spec cosmetic details from Paul's to Thomas' preference.
+
+* Wed Jul 16 2008 Matthias Saou <http://freshrpms.net/> 8.1.0-2
+- Update to 8.1.0.
+- Minor spec file cleanups.
+- Merge back changes from Paul Howarth.
+
+* Wed May 21 2008 Thomas Vander Stichele <thomas at apestaart dot org>
+- 2.5.0-1
+- update to 2.5.0 release (only the umbrella package was missing)
+
+* Tue Jan 16 2007 Thomas Vander Stichele <thomas at apestaart dot org>
+- 2.4.0-3
+- list packages in README.fedora
+
+* Wed Jan 03 2007 Thomas Vander Stichele <thomas at apestaart dot org>
+- 2.4.0-2
+- add a README.fedora
+- made noarch, since it doesn't actually install any python twisted/ module
+ code
+- fixed provides/obsoletes
+
+* Wed Jun 07 2006 Thomas Vander Stichele <thomas at apestaart dot org>
+- 2.4.0-1
+- this is now a pure umbrella package
+
+* Mon Oct 10 2005 Jeff Pitman <symbiont+pyvault@berlios.de> 2.1.0-1
+- upstream release
+
+* Tue Aug 23 2005 Jeff Pitman <symbiont+pyvault@berlios.de> 2.0.1-1
+- upstream release
+
+* Mon Apr 04 2005 Jeff Pitman <symbiont+pyvault@berlios.de> 2.0.0-2
+- add zsh support
+
+* Fri Mar 25 2005 Jeff Pitman <symbiont+pyvault@berlios.de> 2.0.0-1
+- final release
+
+* Thu Mar 17 2005 Jeff Pitman <symbiont+pyvault@berlios.de> 2.0.0-0.2.a3
+- dropped web2
+
+* Wed Mar 16 2005 Jeff Pitman <symbiont+pyvault@berlios.de> 2.0.0-0.1.a3
+- upstream release
+
+* Sat Mar 12 2005 Jeff Pitman <symbiont+pyvault@berlios.de> 2.0.0-0.1.a2
+- new prerelease; FE versioning
+
+* Mon Feb 07 2005 Jeff Pitman <symbiont+pyvault@berlios.de> 2.0.0a1-1
+- prep for split
+
+* Fri Aug 20 2004 Jeff Pitman <symbiont+pyvault@berlios.de> 1.3.0-1
+- new version
+
+* Mon Apr 19 2004 Jeff Pitman <symbiont+pyvault@berlios.de> 1.2.0-3
+- vaultize
+
+* Mon Apr 12 2004 Jeff Pitman <symbiont+pyvault@berlios.de> 1.2.0-2
+- require pyOpenSSL, SOAPpy, openssh-clients, crypto, dia so trial can run