Kolab Groupware OBS

guam.spec Changed

@@ -14,6 +14,8 @@
 %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})
 
@@ -29,7 +31,7 @@
 Source0:            guam-%{version}.tar.gz
 Source100:          plesk.sys.config
 
-Patch9991:          nodeps.patch
+#Patch9991:          nodeps.patch
 
 BuildRequires:      erlang >= 17.4
 BuildRequires:      erlang-asn1
@@ -37,18 +39,12 @@
 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 +52,12 @@
 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
+BuildRequires:      git
 
-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,8 +86,6 @@
 %prep
 %setup -q
 
-%patch9991 -p1
-
 %build
 
 DEBUG=1
@@ -105,7 +94,10 @@
 HEX_OFFLINE=true
 export HEX_OFFLINE
 
-rebar3 release \
+REBAR_CACHE_DIR=cache/rebar3/
+export REBAR_CACHE_DIR
+
+./rebar3 release \
     --dev-mode false \
     --relname %{name} \
     --relvsn %{version} \
@@ -172,7 +164,7 @@
 
 %check
 # Hopeless on -0.9
-rebar3 eunit -v || :
+#./rebar3 eunit -v || :
 
 %postun
 %if 0%{?with_systemd}

guam-0.9.11.tar.gz/.git Added

guam-0.9.11.tar.gz/.git/COMMIT_EDITMSG Added

guam-0.9.11.tar.gz/.git/FETCH_HEAD Added

@@ -0,0 +1,14 @@
+8332e06ac83a37ec92ce56aec30d48b966ed8c45		branch 'develop' of ssh://git.kolab.org/diffusion/G/guam
+0d3fd56445f1377797b9bc11391c0e0079c8ffed	not-for-merge	branch 'dev/mollekopf' of ssh://git.kolab.org/diffusion/G/guam
+7aaf330bba6bf5a3c10eaaff46fd73d79f17d054	not-for-merge	branch 'dev/mollekopf2' of ssh://git.kolab.org/diffusion/G/guam
+8dd174db900da9c8c11ce9b8b407829203211a26	not-for-merge	branch 'dev/simplifyfolderextraction' of ssh://git.kolab.org/diffusion/G/guam
+deb3292b33aee3578791bd8646704d8117874fb1	not-for-merge	branch 'feature/0.9-with-rebar2' of ssh://git.kolab.org/diffusion/G/guam
+68385bd51d75daad051a596fa2d5ebb941e1b501	not-for-merge	branch 'feature/T932_literal_continuations' of ssh://git.kolab.org/diffusion/G/guam
+4e85df4e2ecf6c8001a47f1504a2acd1d084c099	not-for-merge	branch 'feature/autodetect_ipv6' of ssh://git.kolab.org/diffusion/G/guam
+98c3f09fbb8ecb6f532516c60993476fca591905	not-for-merge	branch 'feature/implicit_tls_delayed_ssl_start' of ssh://git.kolab.org/diffusion/G/guam
+5c9b2751009f71f7c313b3ad2c28213ef1a4e063	not-for-merge	branch 'feature/init_script' of ssh://git.kolab.org/diffusion/G/guam
+cd57385625e419c681bc31293fefb30d65d8465f	not-for-merge	branch 'feature/prep_for_0.9' of ssh://git.kolab.org/diffusion/G/guam
+fcddaf18a88fbcd50becabdf93bafb224e395b87	not-for-merge	branch 'feature/support_tag_arrives_before_command' of ssh://git.kolab.org/diffusion/G/guam
+35d90722caccd894ad6b896e531da0c4baf1e38a	not-for-merge	branch 'guam-0.7' of ssh://git.kolab.org/diffusion/G/guam
+967bacc60233c9859872b94904ae22e6fa29afb2	not-for-merge	branch 'hotfix/no_tls_server_response_fixup' of ssh://git.kolab.org/diffusion/G/guam
+8332e06ac83a37ec92ce56aec30d48b966ed8c45	not-for-merge	branch 'master' of ssh://git.kolab.org/diffusion/G/guam

guam-0.9.11.tar.gz/.git/HEAD Added

guam-0.9.11.tar.gz/.git/ORIG_HEAD Added

guam-0.9.11.tar.gz/.git/branches Added

guam-0.9.11.tar.gz/.git/config Added

guam-0.9.11.tar.gz/.git/description Added

guam-0.9.11.tar.gz/.git/gitk.cache Added

@@ -0,0 +1,73 @@
+1 71
+90101ef3f39f75894659b096558ad5c38a1a0fd5 12628108c1a9a16e5ed09e5f20e2c771266c4357 12628108c1a9a16e5ed09e5f20e2c771266c4357
+90101ef3f39f75894659b096558ad5c38a1a0fd5 12628108c1a9a16e5ed09e5f20e2c771266c4357 {4dcf71405e5e7456de7380bfd7fd7631a9dfe273 12628108c1a9a16e5ed09e5f20e2c771266c4357}
+b9d2dc3cf61556ec9652f434aed1ddfc6d77e62e d854029b1d1b256eef63f95bd68bf25710e475f1 {1b203d8d6cabd14afea8fedfecf4cb6908610879 fb9f5ee08d735f563881b0dafb2920d4b87cbb56 4b813dc2085a0d5373a343fae553335e137b000b c9ddac0b624dd1ee3e2f816c3a693220a2aa66cc bd6bc33f9f924150ac603482704182dec06c399d 6227a3b564474cfffada3513effa17525255ba66 5c1388c6895b06fcbc91abc394151d984aa8bf20 37d36481e3ac115fca4b7b14ad0b5bd336dd8297 9027ce3dea937df7c9801ad30bc85ba53dbc24d7 70ad1c4b9bc372bba75e82edf895c402d01ad8bd a0b3920941971367e4662e40fb17770e280e1272 a5555afc51f2885080ca3870bb359ae11bc8d347 82c7d1148395581cb484077ed46ec635e04debcc 6768785c7d9a293126ba0f042c990d105ae8bf05 5f47ee7552311df5fe7eab2f7303454daa9a809a e22d42e856662c5f84819437a24b23bc7e1b25ca ab124cc1f51715b298b1d1ec8102999485e383b8 753bc63ada1059740c6bdc4841c2a0a4dd435dc4 5212745dd8df6dfc9e2f279e4029b7b0c41bf05f 9bc245265c18fd0b0b815438b3dcb1cf4de79c49 6d9be5cf01657de1b9c44198af64e4fb87a33763 30625a79457b7500beb976d2f50180d274d5f6fd d854029b1d1b256eef63f95bd68bf25710e475f1}
+12628108c1a9a16e5ed09e5f20e2c771266c4357 d854029b1d1b256eef63f95bd68bf25710e475f1 d854029b1d1b256eef63f95bd68bf25710e475f1
+d854029b1d1b256eef63f95bd68bf25710e475f1 5cce063b91d4a23a9fadc37c514baee40d4be27f {739ab9d2089f80ab0e6a2d6eb7b01f9bf6c65e4f a3c5d59f8fc47a6123cd2252289db3e7917d1ef5 5cce063b91d4a23a9fadc37c514baee40d4be27f}
+7aaf330bba6bf5a3c10eaaff46fd73d79f17d054 5cce063b91d4a23a9fadc37c514baee40d4be27f 5cce063b91d4a23a9fadc37c514baee40d4be27f
+5cce063b91d4a23a9fadc37c514baee40d4be27f 3d1fc7327a47ea9466816bb9389db332a21b8aaf {22b6772b11bb61114cb38f466723f7d901409494 ec5b1b6446ad938a09040bc29231b35a584c8db8 3322866185fa0a4b5ff18100d851bf8880fe3c22 6ece9bc7e89040b4a9652993ff97360843ccbb25 c3a3e0d8b8cfb73c271e6be89d1b180cc61ff134 fa2df8729fbb6dc3cbddb41364d040acbb2ce6ac 0f620068f5f7e790fc667902b85e38074de1ecae 2d421059db3ab35474330f3a82e26e3e30c6b686 1e627052fab95080efc10df03fa293d5a79fa07d 7dc2e1ba57ec7879a96e9a56430ccf1bbb276f8f 366e18153cc8e4340aa67bcecb0a8cdfc8be906f 1e2b6740c3d7b2ac0b21b638c6c36aad6351d9cd 0005a4d8aaca9db0d961cdf6c5db6ac28f8c220c 1401c6833a10a68340ae2c1037c5e3e4b36e4c72 8c73d84ffc152b1d845f674959672ecdded2dfd4 5313e5cca5f067e1fa5cbf8bb5a67b70893d6f7e ae6f2abb47a320475cbc9909ca77789208962672 3d1fc7327a47ea9466816bb9389db332a21b8aaf}
+3d1fc7327a47ea9466816bb9389db332a21b8aaf edc12507a494fe12dee38140c670c61dd10a5df9 edc12507a494fe12dee38140c670c61dd10a5df9
+3d1fc7327a47ea9466816bb9389db332a21b8aaf be2c6543eb62a02d46fae76890b808adaf11268d {11b5f6d6cca2075cfef47369fb75a4a4a6527a2e be2c6543eb62a02d46fae76890b808adaf11268d}
+8dd174db900da9c8c11ce9b8b407829203211a26 be2c6543eb62a02d46fae76890b808adaf11268d be2c6543eb62a02d46fae76890b808adaf11268d
+be2c6543eb62a02d46fae76890b808adaf11268d 1c19032947a9bfdbb62f5abb66e1d1980d4ed868 {d081b813b57c2bdff0d1648de0b707d186f6a1ec 5fb59623d06c18a8acdeadfb7f82f13b4007279f dda2cac6e5b3d87fc79c5c0c37554106535e9f2d 288988bed685264605e494a4b131659a12344c10 7781b3e02579432f0b5cf25601575a8ef566f399 5dbd36c3a720eab460b493b0cc439f477b74a4a3 cb4bad8500cf9d620f65ff727a6a5db31f67f83c 9cec357257e50e15a4d903fbf71f6d29f0f8cbff bfe358de6dc47c8ad0a6cd9c657e90cfd26e31b9 9dcbd1c75496c5c4c49fa695bcfa29556efa37cc 1c19032947a9bfdbb62f5abb66e1d1980d4ed868}
+0d3fd56445f1377797b9bc11391c0e0079c8ffed 1c19032947a9bfdbb62f5abb66e1d1980d4ed868 {f96cb4507c36636d0708f21643a1dc977fad775e 7eefaceadc399313c88ba0e0086486049fcb34ed 4cd00c7887acab65b2dd3886d2264f9fdc873162 f480fb5e15debfc28b659fa743343aecbd1f1f28 0cf350de34e4c8e3eb2ee82cf9d206388df6ddfd 733a0eb44c10b0af3f89f12b74eb5f54ca255029 4e8ef8a51a4282b6a3dfadac734adeb1f6780a4f 0bc199581185aa44cbf9ba35539dc483d0bcc853 1c19032947a9bfdbb62f5abb66e1d1980d4ed868}
+1c19032947a9bfdbb62f5abb66e1d1980d4ed868 016b74439c23948aca0834c96e03a7014ee48206 {c10e7397958436930ab8ab453f88327bd614a921 016b74439c23948aca0834c96e03a7014ee48206}
+edc12507a494fe12dee38140c670c61dd10a5df9 417fec0be3df14c157bd10915892ba8f90c224e6 417fec0be3df14c157bd10915892ba8f90c224e6
+edc12507a494fe12dee38140c670c61dd10a5df9 016b74439c23948aca0834c96e03a7014ee48206 016b74439c23948aca0834c96e03a7014ee48206
+016b74439c23948aca0834c96e03a7014ee48206 96b24e4a4cf9f0e27e159eb9ecea9e37d15568c5 {7db53d9c3fc00baa1fe4fb8ca7c9ae63c61e853b 96b24e4a4cf9f0e27e159eb9ecea9e37d15568c5}
+4e85df4e2ecf6c8001a47f1504a2acd1d084c099 96b24e4a4cf9f0e27e159eb9ecea9e37d15568c5 {eafa6a43b2a50fe108e9f485cd0b3bbfe2feb68b 96b24e4a4cf9f0e27e159eb9ecea9e37d15568c5}
+96b24e4a4cf9f0e27e159eb9ecea9e37d15568c5 0849a45cb179763ed5a06c0ad3ddafb8455efeef 0849a45cb179763ed5a06c0ad3ddafb8455efeef
+96b24e4a4cf9f0e27e159eb9ecea9e37d15568c5 09830e017b432b3b460a7d8968329ff8b41fc73c 09830e017b432b3b460a7d8968329ff8b41fc73c
+417fec0be3df14c157bd10915892ba8f90c224e6 eb6708a61233f69de0871daee0d0733651ba686c eb6708a61233f69de0871daee0d0733651ba686c
+417fec0be3df14c157bd10915892ba8f90c224e6 09830e017b432b3b460a7d8968329ff8b41fc73c 09830e017b432b3b460a7d8968329ff8b41fc73c
+09830e017b432b3b460a7d8968329ff8b41fc73c 0849a45cb179763ed5a06c0ad3ddafb8455efeef 0849a45cb179763ed5a06c0ad3ddafb8455efeef
+deb3292b33aee3578791bd8646704d8117874fb1 2cb72cad60fb970df5928ad0ede1dee979ee912d {72c87f111af4ced09733b35ccc92f21495f03126 2cb72cad60fb970df5928ad0ede1dee979ee912d}
+0849a45cb179763ed5a06c0ad3ddafb8455efeef faf914e8f1208a16fb73c21e223274b17b4bac82 {3e2c25a0365e6c99630f0943b16f29613f7c24c9 c7c1886d5f46c345342a5f036d7cf40fcb920abe 3abf0c87d258e2f742f20b59d6e5e71e001fa472 f5e07184cef852bbec536f686894836a78c1764a 2b5c6b36617e2570b5f9a5c0f1ddb280ab37440d f9b5b9d9ce73657a3160b57ddbe5545c2b550be4 20808866e5a213e31cbd92d3c95da4547adadd0b faf914e8f1208a16fb73c21e223274b17b4bac82}
+2cb72cad60fb970df5928ad0ede1dee979ee912d faf914e8f1208a16fb73c21e223274b17b4bac82 {8f5c1b561c46b2c0ca2768363a221001ee1d3ffb 73d46b46d5678bad08171688766e4ed7613c0b2b f1e6132bfc76a27419efa136aa28ecfa7fc7cd48 de5a7816df9ad38c66f75c136a1a69f9d4e28e42 238505386fd65a29fe998cf3837cb77349095354 faf914e8f1208a16fb73c21e223274b17b4bac82}
+2cb72cad60fb970df5928ad0ede1dee979ee912d acb33fdee994c264d0c385056295300c8dde6ca3 {d2c2e355f63423c4d6582f3b9dc63dcf5748fd4d ea349e96b055d20ddc4ccdb188c5901c842cbb99 1170b6259fd6d42dfa33dc806037d2f6c7533b33 4ad5d3752ec2100d95c2a5476ee3cb9382231f4e 18571305480297f0a087eb2224c7715eba6a1163 dfc454d61332bc9fbf6de4cb39878116cb8a51dd acb33fdee994c264d0c385056295300c8dde6ca3}
+faf914e8f1208a16fb73c21e223274b17b4bac82 92b6b602c213897c6f6775de219549ae9dd18aee 92b6b602c213897c6f6775de219549ae9dd18aee
+faf914e8f1208a16fb73c21e223274b17b4bac82 c15c84ceeb8068123611d783f0822e6b2ebbe695 c15c84ceeb8068123611d783f0822e6b2ebbe695
+eb6708a61233f69de0871daee0d0733651ba686c 1711d5046f85990b974809d8859b1bceee5a798f 1711d5046f85990b974809d8859b1bceee5a798f
+eb6708a61233f69de0871daee0d0733651ba686c c15c84ceeb8068123611d783f0822e6b2ebbe695 c15c84ceeb8068123611d783f0822e6b2ebbe695
+c15c84ceeb8068123611d783f0822e6b2ebbe695 92b6b602c213897c6f6775de219549ae9dd18aee {fd5e6edfb65a24e1888f900411ab5e1ee7a24968 92b6b602c213897c6f6775de219549ae9dd18aee}
+92b6b602c213897c6f6775de219549ae9dd18aee acb33fdee994c264d0c385056295300c8dde6ca3 {fc0c0392da89e62ea1ad6be48ee8e2a5a4ba2b0e acb33fdee994c264d0c385056295300c8dde6ca3}
+acb33fdee994c264d0c385056295300c8dde6ca3 0691c2edb220c2a2ca799849e487d2cfe70c31cd 0691c2edb220c2a2ca799849e487d2cfe70c31cd
+acb33fdee994c264d0c385056295300c8dde6ca3 548407cc0dce5b7b7728d3bf181d97cfb120e6c6 548407cc0dce5b7b7728d3bf181d97cfb120e6c6
+1711d5046f85990b974809d8859b1bceee5a798f ca8594566b5c945a3488110f6a1eac3880826bf4 ca8594566b5c945a3488110f6a1eac3880826bf4
+1711d5046f85990b974809d8859b1bceee5a798f 548407cc0dce5b7b7728d3bf181d97cfb120e6c6 548407cc0dce5b7b7728d3bf181d97cfb120e6c6
+548407cc0dce5b7b7728d3bf181d97cfb120e6c6 0691c2edb220c2a2ca799849e487d2cfe70c31cd 0691c2edb220c2a2ca799849e487d2cfe70c31cd
+0691c2edb220c2a2ca799849e487d2cfe70c31cd 471f90819ea1bd43807a03ff994f615e77ee4f06 {a26122149bd4cb882b3b73c89ecf3a4e22ffba8c b369e8a655982fb613053a9653520a4e0311d3e3 e3a5c9080906d1d406137bcbcbe40374b219d307 471f90819ea1bd43807a03ff994f615e77ee4f06}
+471f90819ea1bd43807a03ff994f615e77ee4f06 56dd318f52bb1f9042e0b866dac5b288025fe358 56dd318f52bb1f9042e0b866dac5b288025fe358
+471f90819ea1bd43807a03ff994f615e77ee4f06 56dd318f52bb1f9042e0b866dac5b288025fe358 {fcddaf18a88fbcd50becabdf93bafb224e395b87 b1552bcf1e3aee4d58c9e8b6e0ceb99e4e1b81f2 56dd318f52bb1f9042e0b866dac5b288025fe358}
+56dd318f52bb1f9042e0b866dac5b288025fe358 b919e5f3499e738bdc3f3fe98450443629fc1e22 b919e5f3499e738bdc3f3fe98450443629fc1e22
+56dd318f52bb1f9042e0b866dac5b288025fe358 eb99d26182a5b0335a750dcfcb2dc78809ea64b1 eb99d26182a5b0335a750dcfcb2dc78809ea64b1
+ca8594566b5c945a3488110f6a1eac3880826bf4 455c217013276cbd2255a21e67a8c75d359bfd6d 455c217013276cbd2255a21e67a8c75d359bfd6d
+ca8594566b5c945a3488110f6a1eac3880826bf4 eb99d26182a5b0335a750dcfcb2dc78809ea64b1 eb99d26182a5b0335a750dcfcb2dc78809ea64b1
+eb99d26182a5b0335a750dcfcb2dc78809ea64b1 b919e5f3499e738bdc3f3fe98450443629fc1e22 b919e5f3499e738bdc3f3fe98450443629fc1e22
+b919e5f3499e738bdc3f3fe98450443629fc1e22 538a092340c6e832976702f4a3276cc743f3eba4 {c75ebeee40e47bc6f1148052d312defddd3fe3ba 967dc51e01dd7f483bae36efacc77d89a9d985f8 1c51cd1b871932d6ef1e75d23b12e8f59e1fc81b b194824ea121c2657c5cf064c0a0d1e2e39c58f8 8ab2f13093af0c38afecbcdb70ce20ae0ee15fc6 538a092340c6e832976702f4a3276cc743f3eba4}
+538a092340c6e832976702f4a3276cc743f3eba4 2179919e878f93026d2ab60c17483b4901026d36 2179919e878f93026d2ab60c17483b4901026d36
+538a092340c6e832976702f4a3276cc743f3eba4 a03d3cc39db6f6b40ff8c2f0b154aaf6bdc39c47 {cd57385625e419c681bc31293fefb30d65d8465f 44e8b56942d924ab3f904071b172da44b8aadd46 e5b0e5efcd896a4372b93a6c2418402666215826 76e05d668aaf40db048e518228480d5572ba4108 e929afa07020d011165a1bdb59cb3726c1cc0d3b 63a16769974ae53e05ff75af723b682cd31a888c 0c658f96d547cb3b24446eb5b5ebcc7c9e4ecb66 7b3bdb0f560f2b9b59792b97efe1c26b5221a2c9 06d3a975258194e78746d3976e59ec434e01ff2b 48278f29cc464f272f16b9b99be6fb8345fa5fdf 2fdee2ec6350d8e9a9becb5528aa054c51fc008b 8959d1cdb6d89ea614f0689666589c9e3c7bbecf 147fc0136fd3d90bcb215b8f4a835a5d0adca9ac db7b10b24ab93e9dfa9a7dbfc059bb82a2ee0d90 a03d3cc39db6f6b40ff8c2f0b154aaf6bdc39c47}
+2179919e878f93026d2ab60c17483b4901026d36 455c217013276cbd2255a21e67a8c75d359bfd6d {e1d0cdb47026d8c37040aeaf069e98a4f266099e 455c217013276cbd2255a21e67a8c75d359bfd6d}
+2179919e878f93026d2ab60c17483b4901026d36 98c3f09fbb8ecb6f532516c60993476fca591905 98c3f09fbb8ecb6f532516c60993476fca591905
+98c3f09fbb8ecb6f532516c60993476fca591905 455c217013276cbd2255a21e67a8c75d359bfd6d {7a387a68c2727b9e9542ec77b8b4d1b04dd8b918 455c217013276cbd2255a21e67a8c75d359bfd6d}
+98c3f09fbb8ecb6f532516c60993476fca591905 455c217013276cbd2255a21e67a8c75d359bfd6d {64ce8ce93647a7f7d5bdeb847500a8a27f66e780 455c217013276cbd2255a21e67a8c75d359bfd6d}
+455c217013276cbd2255a21e67a8c75d359bfd6d 3db01463dff24fa33de01ce7deb20f101cf405b8 {5c291f68017751c9e0e58592074c6f0e49189a4f f772112fed74eb57d79c53d230280d32c1ba3338 35f317b98cc537d7fbbb68e81cab13168bc7245c 8bb82da982b20df67def41e1fcd5825a1061de32 74e1725dc15554f168c8731ec18cdc98dd1064c7 148bd595fb1359d885990d1f3e7fd8bca037bcc5 89e2d7a1121a4dafc2c24b91fef51e6d13e6a636 e86fb0c1b460b24012342a3959e8031da20901b8 f1f1a7c9898494b95995c4192a2585b7fd5e1d7a ffcf242637822d6aca5dda764a29a2ec501922fe 9de47877740ac39a1f8e9ee36786538b685991c4 9546991a31961bcf44a62e30679b1a3c6f7618fa 397c7b1571a6954d901d8c3617fd49d8a662dcb5 e3a417235274ee544303c7907a47fc5ef9de566d 4a466fd9107ff34fb68eb109acb89b57aed30a43 3db01463dff24fa33de01ce7deb20f101cf405b8}
+3db01463dff24fa33de01ce7deb20f101cf405b8 1341f21c1c73b1ba4c01a0ef8675d86ac6355d6d {967bacc60233c9859872b94904ae22e6fa29afb2 7a96caca1d8f8db6f6d7bd625867d5eb292694f0 95fd43730add12a8e13627fd0ad71f2bcc1360bc 2cb99c736820d9f5e30b975ca3956def88a471f6 4cb9fd2e94f7746e5ec05f0cd3c1c7cca895efa3 75ce99f2226438cab4cf57cb8b7dbbe6e4d22885 18bd1abb8a1221b16b2ec53641b07d8ef49130ea f1df1fe2766912652a57c4c2cc1706e8eecf529f 7583eaedf1c9c722d90123d456b0ceed283f4d44 16c0a956e9dd699e5802e8ef03b7dff8474f2bab 956d2d6b73faf9b1bd99bf6783e2006dd5c88f3a dbb21403a13033255bbbcec121eddccec3ce3dc4 1341f21c1c73b1ba4c01a0ef8675d86ac6355d6d}
+3db01463dff24fa33de01ce7deb20f101cf405b8 a03d3cc39db6f6b40ff8c2f0b154aaf6bdc39c47 {eceb8c0ec13221d621c73178796fe3ac7a49791f fc886af2f460a4e31e787a891c8fadbeca3f0e0d 21c4b9e03a343bbee5c3593586ca7954a7549ddd fde09ae6dd5b38642d8712893f39066d8f4f2091 f527fde7a659f67314adb161025965b242655b83 a03d3cc39db6f6b40ff8c2f0b154aaf6bdc39c47}
+1341f21c1c73b1ba4c01a0ef8675d86ac6355d6d 2840a399b84f7c7d02c529d8efdcab42f8b66d9f 2840a399b84f7c7d02c529d8efdcab42f8b66d9f
+1341f21c1c73b1ba4c01a0ef8675d86ac6355d6d a03d3cc39db6f6b40ff8c2f0b154aaf6bdc39c47 a03d3cc39db6f6b40ff8c2f0b154aaf6bdc39c47
+a03d3cc39db6f6b40ff8c2f0b154aaf6bdc39c47 8634287374609422760237b904fca16e0aa70377 8634287374609422760237b904fca16e0aa70377
+8634287374609422760237b904fca16e0aa70377 7717c0b118d2e537bb3542a33e7cb1df5014e698 {ef2ec46e597f70734aab6673a9735b6a6f807507 84795a1aef06385d86b5672494791205d49dcef0 7a76257816ad42b814768fdbbac547d5387b6fd7 b657acdb6f72b765bc32973b37e5e8efaad8abd6 dedc11eaf1cf1d21489cebe4861f11634b936c64 9d56223f2e77d38e39b93056b1295d0265bbd364 999773a16904dbed53fe811cd76a2d645dd55e17 672a2ea7970b5d24772f012fb00bf35153933da9 f1ef30bc0e1250e92fa26e2403a27f83a9bbd03a 1a4b9d29b20446b6642d3e18aeec592c0c24605b 9b07627556208c11d75a8e675659d75a0ef101ff e2f4076636d32c5663a89f5d54f98b5d81ea2c8f 93b6f3041a1359fcf6565b19a0e3a9888adac1a3 d5bfec45a21364158bc78d66321f1082fb1901bd ff750d57b06f413123373da1d3abf7845b62aac5 5f8ebe8824be8ced935afbd8aef8326d765f38fe d385e8fa490fe4c13788757ad4c41bfe527572f7 f07467495f3691cb213a6e1e0159825af449a3cc c4857af64bcee8eb0b1b37d2c486880145095dc9 75d88b55f39ec667a114d04af937d2cb30a16118 b81a31dabd38616928761a78c85fe31d691680e4 7717c0b118d2e537bb3542a33e7cb1df5014e698}
+8634287374609422760237b904fca16e0aa70377 5c9b2751009f71f7c313b3ad2c28213ef1a4e063 5c9b2751009f71f7c313b3ad2c28213ef1a4e063
+5c9b2751009f71f7c313b3ad2c28213ef1a4e063 7717c0b118d2e537bb3542a33e7cb1df5014e698 {d121205cf6fa46e58495a938c110305aa2f5d39e 1ebc7bc9371a9c9771e134cd58ae05ab5bee754b f71b2815637e40f35a496268d773e8d228eff40e a8aade288cf8852846ed8d007d3adb6b09a38103 7717c0b118d2e537bb3542a33e7cb1df5014e698}
+5c9b2751009f71f7c313b3ad2c28213ef1a4e063 2840a399b84f7c7d02c529d8efdcab42f8b66d9f {2460543023c931814dbc32c1f430950bfc2c24d9 01a8cade039673a0de9ab057767c356d24c01b40 e96490456fc6dcc409c6d2514f01009304d44b54 c246415f8efe53546d52b35d12f66d1f07c6bd79 d1794acdc24ee9a42c0de6465e160c29ae71f363 8121e2066dc34f93c921108af8380f509e830299 72f2025063910a7fd7f39dd56ffdf2866d38f758 758d6abe0b1ddb2af6c7f8b4b50ed9e16cb5e401 88bae8ce14dc7db9fad9248c1c61067bd842aa9a 1f8284be9bf5d83c3b05a6af361aa11e7d657a57 bc4e164b8cf13510c6f30d8715917ac3071305a7 2840a399b84f7c7d02c529d8efdcab42f8b66d9f}
+7717c0b118d2e537bb3542a33e7cb1df5014e698 5df52529128b811400682c0c54546816af51c8e6 {68385bd51d75daad051a596fa2d5ebb941e1b501 ace731e24524eee6608bef815d118fc78820ac1e 6241707b0eb10826a00405835aed519ab9c2d9e7 68a41b65130f6249d680ea454b15af48153a5de6 bd2dd529f6037df18eb0f5c68b47f18590e9f069 39885cbd6d145780fe7336e739806cd7948769c5 d95586f57af08676f6d99ef592b8472097b957da d723846b333c9f631d405676725fd7a4b6061cb5 26f0421d29b70514e086b24270fe0413f2174bf9 80db4f95b0921f7fd997a1a81cfa92b6cb3954eb 4652f477d39d09f931034db27efd394ceaa3738a 5df52529128b811400682c0c54546816af51c8e6}
+2840a399b84f7c7d02c529d8efdcab42f8b66d9f ff40cefa1053d0f79ebd669aad199b87ff91abe5 {3e494ddce5e8a421af4bc7e5770ffde31bfa2b69 cc440801918ccd5840ab0ce0b71dff4d6d509d2c be089a69f90b8394acd510bd7d5eaf1c6cd68621 9116804949e1fd74be6c712fa01eb5ea0722c10a f917c2cceb2cb6effe1c504440b438da3180c02e 277e484db4662cbbd6c869551f54828f57649939 4ffdc88a909999511419f0143b071b09da577f47 b69afda7d7edafd59a8fce1cbe4de5c298f2ab6c 8abcd8fa2ea153350fc406d0bd8250698c43f899 f097f39042017b6660f737eceb42dc4ecef26f3d 67039060286a77da6c1c24e858ec198002c1d154 5c5be6d7dcb103359f35854f76f848112531b360 450c1c26ad65dabb2b8420a359824fae438c1d26 ff40cefa1053d0f79ebd669aad199b87ff91abe5}
+35d90722caccd894ad6b896e531da0c4baf1e38a ff40cefa1053d0f79ebd669aad199b87ff91abe5 {7da5df064b6e9220a04b30e8e47c0ce7eeafd22c a7b7976618d5020e15e71e990e5570fe26127e23 a80c100ef20582d756601e7d12517990d45f2012 6d7118efab651bf5c43d5673a761a727dc304e87 b69774ffd6ea41f2c6851654cc8c3e2e550bf4b9 bdea873af6dde6b1ab8c33fa45738a0b92f2fa14 6062291a36ae0348ee20207a4cc8c19aefcd674a ba22e02a4b1667c897c12d0844e7b72a2681470d fc2329a70bb4342a5c0b4ba3ee3ae3f202a182cd d6f2d72870f7c53082f490fdb8ad3fcbc5e76986 ff40cefa1053d0f79ebd669aad199b87ff91abe5}
+ff40cefa1053d0f79ebd669aad199b87ff91abe5 5df52529128b811400682c0c54546816af51c8e6 {d47a1b9722e5a3a71a4fc90fbc24c507121b904d 4aa8289f868a8ab2e459a5a2a3dc32aeda4d10c1 30cea12a8c244c24111da50d4415c4acdaf6ca6e 477f9222a63050c1d0bbb4b61561da8785d4f516 5f72dace4a7d2f5859f003f20fc723477f6b3046 1ee333cb8de3bc642c3311e4ff82ff9cb966448f 9ea20e06f28b2042e93411d10d9a7480d17dea1d 737d66c617558c9735582d1aff09ff1ff353e516 93aef46dc20861092df417703405545e1e0f76b8 5df52529128b811400682c0c54546816af51c8e6}
+5df52529128b811400682c0c54546816af51c8e6 8cdf95267269e53ed04a68b012e9a7fbdf4291f8 {cb882b401129975f6cd44cd0a57065c5f1cde8e8 315b36de22af1d7a37840ff631073967ed04906b 0d99bb9d5c5e7ac3e1bedeffcd385c7dd6d6c488 b4ecd58d07c4f9e2c3f7e4e2721a1d8200b2ae30 b883f139c1afb6a4551149d22eeca4bff3b03cc3 112dd3d320e0b4e75768743eaa5cf62f68898ae3 7caeec437f303ad8d2d88d0a8e66b7f2fad23f50 180b496109d0dad588bbd205545791a5984287bc 45cc49493bd1da03c23d875428286aa210fb8af9 dee3823b9ea73a9a3dd19ea0fad83057c3d06c44 b4616928c490ea752ef2d22937f1ce49dfbe181b 28f63133a54dcccf8cefe4b1cf56a9f9e5d9301b b5b0c1b4b1732727b636409cf80425fae0b9023f 582de0a6321e308f2432b9088973fe68f2d36051 c34a15a0312e41a65c8b89aed2386c19199dd651 30042ac4933101925d1d5e2223500913605f8704 81ca24df6b56dc16d08e997c2d7b96d5aa951a68 a5a07a9d4140b595db83406983da3ffb4b69ef46 05229b2cbbe20646e44b2ac82d62dc6e08457d98 615a2126a609a289bedc101bc13a2f6354e72b11 534d19b37ec57efe9754c6cf8a22a59cbdcd7b6f a87d4b73d06d3aa7ec406a114ed2b8576d2ded38 4f4256cff7bf015a176bd8a521a2787dec892dda 2aecd86ae182c24168cf0d8c9692779fd11b628f d6d2e7e46d145baad4b5afc108b10a629d665815 9b0958b135661f7283d5dff49d6a2d5e17102ff2 71238cf83ce922c8c1b6cce6541e5a371b0f8ad6 c2eda9ad6fb1727ecf7e4e406052a74d6030a44d 3184d07b8ebaf8083b242be8a746981348c0a64f 51797d5c1b86acb97f67175ffc3dc344dbfc1d70 03e72458191eba0aad2cbdc47a8976f213c7722a b14c1e191940bb972693ededac493ff61bbdc06d 792126ff585db722d517269f3b71f6e12aefde94 6a9d2439778271f74659537902fd845ab029c95c 6f4d215405da8230d5f49e3b660b8a4d3cc91c01 8bec103e638e33668294c4e3d73757a044b4d3e1 6601f384a7ff05b6288e3b75cfa7eb88ecbe7e31 f3a72c01f289d40ed7c8c1bbdb2b374a73a03c33 c61845c3997bc0e56830ac8976b4418db38781e5 3cbf0e25db716b0e3664198355dee62a755a5c9d 6fbd6162fc3605f9883932bc27c9316eeeb794c8 0cd65b1fe515a069a23e0f2211eebadb9142d246 89e70efb0136492e1b75e63bf5dbd5343fbd95bd 8f69b0d59b70e8dcfa4dae4a722840beaaf60eb6 6fd53e4b2f2ee32af25c9be9a60acf868dc0231a 457c0792a566432c30b049b73906016f90adf831 f528759e71c15bcea8e43317b87063817fc7215c 1a1659ab389367e3fbea507cd8b8406b233364fc 1383a142dc3bbc951ba401bf5f8b71f7efa9655f 825c7aa3bfba5c891314722a8492ce0c27117a01 8195627059e3a761bce8d649913c7e6bfb9d1da0 770a8abc3a580066c491695471388714feb03b32 46a80eb2808589c6675805fb9324e551e775d18e 44e3225d4c016c9d8c2b6c631cbccd27b428f1f9 ffc29be571ab85dffc56265d49e6aabdec927dd9 bbf2fb096d4c61298ca159db50d222ad98eecb0f 13c2d4ed313cea01f42d7ad198b38337794201a2 05563a7f5f72b916de6ea62b1c55a1938b09fc12 03f68a7e940c27462e5f89001131edebd8ae8deb b2aa498842ad2c88fdf65954b15ea406478b54ae 3d53a3ac65b79f4ffffc5e6e277532d02cf689f4 15889fc31bdb5ae85e9c2b284d2db458fe656378 bab455e2d5482596c1a20036f9a23d079ae13594 928aaa23539ef69276f06baee9f95f6c46988155 f87041862d6d9de4b023e2e30fa07876b270c8fa c49e55f32624b9bbce037993df64e55f309f884f a4ead94709a1644e46daf1a84ed078143d99b433 f495bf3f5309202ef51b27c2e23fb59c23ed5631 afd9b9a9b89cf4728349b82e1190464b7b4d1efe 295c3c1c36aa76aacbf945db2dc522b3c371c899 97a3ed6eeaa81d7985302e760438cef5bb4eea6e 927519a807e91e799db5be2bd406b582ff2f8550 179b64f6ade4d93a9370aa747b2a7884954825a6 c60b93d015fcd43f56affc388aba91c8578cfbc1 358171164130ef5d3ee99ba8adf5565f397f6ef0 6240553b417b2f53cea22d9fae1b36e60b9faea4 720e12d70be7e7b94deb28f5736fed9e1c5eb71d 1ad35d165ec05b90be6257b85a4452aea5599bd2 399b8a9cb79d56509ebdaa850f96d3e991d9b9cd a22e288cc17e217c77a8a51839b2b505a799023b bd9b0c33ed771480cc4005d28155aa060f8b1d83 e55158dadc644cf9b7388be390efae45350b0cfd 8dade307d091486b26b1041f85161f8949389707 f39d6b32b67c565ea413a292f6ab08d967440f9d bcb83269c442f47b91cf72c701252b188ccfa6c3 bc2269ecc4c3cca3e20589d98488dd134f162137 30083875ac4b00a35969f5c6538a963c9e13150e 15de3f10aa3c54b6a4c368a8dc1a007052021551 9b6cea6ecbcad8d5208474d16ec0b5d001bb41a8 eb2fbc6e9205f9d38a2dc4da27e9c52ac6c8022a e8e8f8840e94199ea6285b312f58b55ab34ef342 c6b2b3d407c61e2170d61edf4851ec65db2ebe7d 7e49831e26fcd8ff97236fcab997ca237997a491 e033460abc827e6e66f4cfcb33f84d7150413a1c 95886ca27ab60d83d91b6447e0e05986bfa65284 11c889ba678ba0d917e7592b369eaf0ca671ac26 eac54814e5695209e1b2e44d383dbc8f09f8279a 3f34c6b3c688e3028395e14b7faec67ccd01fb9d dcc8401a943bd4513a8471ba53f0605597d5ebd8 39ee8d98e01ee3ca78924b8f18340c63a8a50309 6f6a5842307f07bb2e236f0c602361b6dd64817d 0afe731dc3102e5cf289bd5b790b7e354d47ec83 0fc873c2ef2c15c615370b06da8e8238b0aced4b 4646caa1d49fca06ed570c259cf4af710bf43a41 7c101cddfbcb750361a5812459851c01e406b91f 685187f47f56399265d7813568808a4c1ba90483 fc7e0b88c6e1a2d62fbd1a024f88fbd12adcda98 85f8f4118d36a76dc1b7b651513c5c1d11d70acd 8cdf95267269e53ed04a68b012e9a7fbdf4291f8}
+c728094f548b9f79575b39ff470d8ed04e19ea99 b9d2dc3cf61556ec9652f434aed1ddfc6d77e62e {e7094f7f7e49639c88a59512754a6c41cafac13d f6559ace42a091b430b3229455e224a4cdfd6ea1 b9d2dc3cf61556ec9652f434aed1ddfc6d77e62e}
+0957e4cf8eb8b6dd444ef481ae8a266087e770ba 40a09f20fc0ca51189ee74f803be293a93a374e2 40a09f20fc0ca51189ee74f803be293a93a374e2
+0957e4cf8eb8b6dd444ef481ae8a266087e770ba 40a09f20fc0ca51189ee74f803be293a93a374e2 {41a18961bb89fcd7c43ff1668805d73590589879 40a09f20fc0ca51189ee74f803be293a93a374e2}
+40a09f20fc0ca51189ee74f803be293a93a374e2 b9d2dc3cf61556ec9652f434aed1ddfc6d77e62e {4be24b047f7532a7313215063266a87492ae7800 d369c7caef62b53422b579fdbcf8763b7ecf8a27 b9d2dc3cf61556ec9652f434aed1ddfc6d77e62e}
+1

guam-0.9.11.tar.gz/.git/hooks Added

guam-0.9.11.tar.gz/.git/hooks/applypatch-msg.sample Added

guam-0.9.11.tar.gz/.git/hooks/commit-msg.sample Added

guam-0.9.11.tar.gz/.git/hooks/fsmonitor-watchman.sample Added

@@ -0,0 +1,173 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use IPC::Open2;
+
+# An example hook script to integrate Watchman
+# (https://facebook.github.io/watchman/) with git to speed up detecting
+# new and modified files.
+#
+# The hook is passed a version (currently 2) and last update token
+# formatted as a string and outputs to stdout a new update token and
+# all files that have been modified since the update token. Paths must
+# be relative to the root of the working tree and separated by a single NUL.
+#
+# To enable this hook, rename this file to "query-watchman" and set
+# 'git config core.fsmonitor .git/hooks/query-watchman'
+#
+my ($version, $last_update_token) = @ARGV;
+
+# Uncomment for debugging
+# print STDERR "$0 $version $last_update_token\n";
+
+# Check the hook interface version
+if ($version ne 2) {
+	die "Unsupported query-fsmonitor hook version '$version'.\n" .
+	    "Falling back to scanning...\n";
+}
+
+my $git_work_tree = get_working_dir();
+
+my $retry = 1;
+
+my $json_pkg;
+eval {
+	require JSON::XS;
+	$json_pkg = "JSON::XS";
+	1;
+} or do {
+	require JSON::PP;
+	$json_pkg = "JSON::PP";
+};
+
+launch_watchman();
+
+sub launch_watchman {
+	my $o = watchman_query();
+	if (is_work_tree_watched($o)) {
+		output_result($o->{clock}, @{$o->{files}});
+	}
+}
+
+sub output_result {
+	my ($clockid, @files) = @_;
+
+	# Uncomment for debugging watchman output
+	# open (my $fh, ">", ".git/watchman-output.out");
+	# binmode $fh, ":utf8";
+	# print $fh "$clockid\n@files\n";
+	# close $fh;
+
+	binmode STDOUT, ":utf8";
+	print $clockid;
+	print "\0";
+	local $, = "\0";
+	print @files;
+}
+
+sub watchman_clock {
+	my $response = qx/watchman clock "$git_work_tree"/;
+	die "Failed to get clock id on '$git_work_tree'.\n" .
+		"Falling back to scanning...\n" if $? != 0;
+
+	return $json_pkg->new->utf8->decode($response);
+}
+
+sub watchman_query {
+	my $pid = open2(\*CHLD_OUT, \*CHLD_IN, 'watchman -j --no-pretty')
+	or die "open2() failed: $!\n" .
+	"Falling back to scanning...\n";
+
+	# In the query expression below we're asking for names of files that
+	# changed since $last_update_token but not from the .git folder.
+	#
+	# To accomplish this, we're using the "since" generator to use the
+	# recency index to select candidate nodes and "fields" to limit the
+	# output to file names only. Then we're using the "expression" term to
+	# further constrain the results.
+	if (substr($last_update_token, 0, 1) eq "c") {
+		$last_update_token = "\"$last_update_token\"";
+	}
+	my $query = <<"	END";
+		["query", "$git_work_tree", {
+			"since": $last_update_token,
+			"fields": ["name"],
+			"expression": ["not", ["dirname", ".git"]]
+		}]
+	END
+
+	# Uncomment for debugging the watchman query
+	# open (my $fh, ">", ".git/watchman-query.json");
+	# print $fh $query;
+	# close $fh;
+
+	print CHLD_IN $query;
+	close CHLD_IN;
+	my $response = do {local $/; <CHLD_OUT>};
+
+	# Uncomment for debugging the watch response
+	# open ($fh, ">", ".git/watchman-response.json");
+	# print $fh $response;
+	# close $fh;
+
+	die "Watchman: command returned no output.\n" .
+	"Falling back to scanning...\n" if $response eq "";
+	die "Watchman: command returned invalid output: $response\n" .
+	"Falling back to scanning...\n" unless $response =~ /^\{/;
+
+	return $json_pkg->new->utf8->decode($response);
+}
+
+sub is_work_tree_watched {
+	my ($output) = @_;
+	my $error = $output->{error};
+	if ($retry > 0 and $error and $error =~ m/unable to resolve root .* directory (.*) is not watched/) {
+		$retry--;
+		my $response = qx/watchman watch "$git_work_tree"/;
+		die "Failed to make watchman watch '$git_work_tree'.\n" .
+		    "Falling back to scanning...\n" if $? != 0;
+		$output = $json_pkg->new->utf8->decode($response);
+		$error = $output->{error};
+		die "Watchman: $error.\n" .
+		"Falling back to scanning...\n" if $error;
+
+		# Uncomment for debugging watchman output
+		# open (my $fh, ">", ".git/watchman-output.out");
+		# close $fh;
+
+		# Watchman will always return all files on the first query so
+		# return the fast "everything is dirty" flag to git and do the
+		# Watchman query just to get it over with now so we won't pay
+		# the cost in git to look up each individual file.
+		my $o = watchman_clock();
+		$error = $output->{error};
+
+		die "Watchman: $error.\n" .
+		"Falling back to scanning...\n" if $error;
+
+		output_result($o->{clock}, ("/"));
+		$last_update_token = $o->{clock};
+
+		eval { launch_watchman() };
+		return 0;
+	}
+
+	die "Watchman: $error.\n" .
+	"Falling back to scanning...\n" if $error;
+
+	return 1;
+}
+
+sub get_working_dir {
+	my $working_dir;
+	if ($^O =~ 'msys' || $^O =~ 'cygwin') {
+		$working_dir = Win32::GetCwd();
+		$working_dir =~ tr/\\/\//;
+	} else {
+		require Cwd;
+		$working_dir = Cwd::cwd();
+	}
+
+	return $working_dir;
+}

guam-0.9.11.tar.gz/.git/hooks/post-update.sample Added

guam-0.9.11.tar.gz/.git/hooks/pre-applypatch.sample Added

guam-0.9.11.tar.gz/.git/hooks/pre-commit.sample Added

@@ -0,0 +1,49 @@
+#!/usr/bin/sh
+#
+# An example hook script to verify what is about to be committed.
+# Called by "git commit" with no arguments.  The hook should
+# exit with non-zero status after issuing an appropriate message if
+# it wants to stop the commit.
+#
+# To enable this hook, rename this file to "pre-commit".
+
+if git rev-parse --verify HEAD >/dev/null 2>&1
+then
+	against=HEAD
+else
+	# Initial commit: diff against an empty tree object
+	against=$(git hash-object -t tree /dev/null)
+fi
+
+# If you want to allow non-ASCII filenames set this variable to true.
+allownonascii=$(git config --type=bool hooks.allownonascii)
+
+# Redirect output to stderr.
+exec 1>&2
+
+# Cross platform projects tend to avoid non-ASCII filenames; prevent
+# them from being added to the repository. We exploit the fact that the
+# printable range starts at the space character and ends with tilde.
+if [ "$allownonascii" != "true" ] &&
+	# Note that the use of brackets around a tr range is ok here, (it's
+	# even required, for portability to Solaris 10's /usr/bin/tr), since
+	# the square bracket bytes happen to fall in the designated range.
+	test $(git diff --cached --name-only --diff-filter=A -z $against |
+	  LC_ALL=C tr -d '[ -~]\0' | wc -c) != 0
+then
+	cat <<\EOF
+Error: Attempt to add a non-ASCII file name.
+
+This can cause problems if you want to work with people on other platforms.
+
+To be portable it is advisable to rename the file.
+
+If you know what you are doing you can disable this check using:
+
+  git config hooks.allownonascii true
+EOF
+	exit 1
+fi
+
+# If there are whitespace errors, print the offending file names and fail.
+exec git diff-index --check --cached $against --

guam-0.9.11.tar.gz/.git/hooks/pre-merge-commit.sample Added

guam-0.9.11.tar.gz/.git/hooks/pre-push.sample Added

@@ -0,0 +1,53 @@
+#!/usr/bin/sh
+
+# An example hook script to verify what is about to be pushed.  Called by "git
+# push" after it has checked the remote status, but before anything has been
+# pushed.  If this script exits with a non-zero status nothing will be pushed.
+#
+# This hook is called with the following parameters:
+#
+# $1 -- Name of the remote to which the push is being done
+# $2 -- URL to which the push is being done
+#
+# If pushing without using a named remote those arguments will be equal.
+#
+# Information about the commits which are being pushed is supplied as lines to
+# the standard input in the form:
+#
+#   <local ref> <local sha1> <remote ref> <remote sha1>
+#
+# This sample shows how to prevent push of commits where the log message starts
+# with "WIP" (work in progress).
+
+remote="$1"
+url="$2"
+
+z40=0000000000000000000000000000000000000000
+
+while read local_ref local_sha remote_ref remote_sha
+do
+	if [ "$local_sha" = $z40 ]
+	then
+		# Handle delete
+		:
+	else
+		if [ "$remote_sha" = $z40 ]
+		then
+			# New branch, examine all commits
+			range="$local_sha"
+		else
+			# Update to existing branch, examine new commits
+			range="$remote_sha..$local_sha"
+		fi
+
+		# Check for WIP commit
+		commit=`git rev-list -n 1 --grep '^WIP' "$range"`
+		if [ -n "$commit" ]
+		then
+			echo >&2 "Found WIP commit in $local_ref, not pushing"
+			exit 1
+		fi
+	fi
+done
+
+exit 0

guam-0.9.11.tar.gz/.git/hooks/pre-rebase.sample Added

@@ -0,0 +1,169 @@
+#!/usr/bin/sh
+#
+# Copyright (c) 2006, 2008 Junio C Hamano
+#
+# The "pre-rebase" hook is run just before "git rebase" starts doing
+# its job, and can prevent the command from running by exiting with
+# non-zero status.
+#
+# The hook is called with the following parameters:
+#
+# $1 -- the upstream the series was forked from.
+# $2 -- the branch being rebased (or empty when rebasing the current branch).
+#
+# This sample shows how to prevent topic branches that are already
+# merged to 'next' branch from getting rebased, because allowing it
+# would result in rebasing already published history.
+
+publish=next
+basebranch="$1"
+if test "$#" = 2
+then
+	topic="refs/heads/$2"
+else
+	topic=`git symbolic-ref HEAD` ||
+	exit 0 ;# we do not interrupt rebasing detached HEAD
+fi
+
+case "$topic" in
+refs/heads/??/*)
+	;;
+*)
+	exit 0 ;# we do not interrupt others.
+	;;
+esac
+
+# Now we are dealing with a topic branch being rebased
+# on top of master.  Is it OK to rebase it?
+
+# Does the topic really exist?
+git show-ref -q "$topic" || {
+	echo >&2 "No such branch $topic"
+	exit 1
+}
+
+# Is topic fully merged to master?
+not_in_master=`git rev-list --pretty=oneline ^master "$topic"`
+if test -z "$not_in_master"
+then
+	echo >&2 "$topic is fully merged to master; better remove it."
+	exit 1 ;# we could allow it, but there is no point.
+fi
+
+# Is topic ever merged to next?  If so you should not be rebasing it.
+only_next_1=`git rev-list ^master "^$topic" ${publish} | sort`
+only_next_2=`git rev-list ^master           ${publish} | sort`
+if test "$only_next_1" = "$only_next_2"
+then
+	not_in_topic=`git rev-list "^$topic" master`
+	if test -z "$not_in_topic"
+	then
+		echo >&2 "$topic is already up to date with master"
+		exit 1 ;# we could allow it, but there is no point.
+	else
+		exit 0
+	fi
+else
+	not_in_next=`git rev-list --pretty=oneline ^${publish} "$topic"`
+	/usr/bin/perl -e '
+		my $topic = $ARGV[0];
+		my $msg = "* $topic has commits already merged to public branch:\n";
+		my (%not_in_next) = map {
+			/^([0-9a-f]+) /;
+			($1 => 1);
+		} split(/\n/, $ARGV[1]);
+		for my $elem (map {
+				/^([0-9a-f]+) (.*)$/;
+				[$1 => $2];
+			} split(/\n/, $ARGV[2])) {
+			if (!exists $not_in_next{$elem->[0]}) {
+				if ($msg) {
+					print STDERR $msg;
+					undef $msg;
+				}
+				print STDERR " $elem->[1]\n";
+			}
+		}
+	' "$topic" "$not_in_next" "$not_in_master"
+	exit 1
+fi
+
+<<\DOC_END
+
+This sample hook safeguards topic branches that have been
+published from being rewound.
+
+The workflow assumed here is:
+
+ * Once a topic branch forks from "master", "master" is never
+   merged into it again (either directly or indirectly).
+
+ * Once a topic branch is fully cooked and merged into "master",
+   it is deleted.  If you need to build on top of it to correct
+   earlier mistakes, a new topic branch is created by forking at
+   the tip of the "master".  This is not strictly necessary, but
+   it makes it easier to keep your history simple.
+
+ * Whenever you need to test or publish your changes to topic
+   branches, merge them into "next" branch.
+
+The script, being an example, hardcodes the publish branch name
+to be "next", but it is trivial to make it configurable via
+$GIT_DIR/config mechanism.
+
+With this workflow, you would want to know:
+
+(1) ... if a topic branch has ever been merged to "next".  Young
+    topic branches can have stupid mistakes you would rather
+    clean up before publishing, and things that have not been
+    merged into other branches can be easily rebased without
+    affecting other people.  But once it is published, you would
+    not want to rewind it.
+
+(2) ... if a topic branch has been fully merged to "master".
+    Then you can delete it.  More importantly, you should not
+    build on top of it -- other people may already want to
+    change things related to the topic as patches against your
+    "master", so if you need further changes, it is better to
+    fork the topic (perhaps with the same name) afresh from the
+    tip of "master".
+
+Let's look at this example:
+
+		   o---o---o---o---o---o---o---o---o---o "next"
+		  /       /           /           /
+		 /   a---a---b A     /           /
+		/   /               /           /
+	       /   /   c---c---c---c B         /
+	      /   /   /             \         /
+	     /   /   /   b---b C     \       /
+	    /   /   /   /             \     /
+    ---o---o---o---o---o---o---o---o---o---o---o "master"
+
+
+A, B and C are topic branches.
+
+ * A has one fix since it was merged up to "next".
+
+ * B has finished.  It has been fully merged up to "master" and "next",
+   and is ready to be deleted.
+
+ * C has not merged to "next" at all.
+
+We would want to allow C to be rebased, refuse A, and encourage
+B to be deleted.
+
+To compute (1):
+
+	git rev-list ^master ^topic next
+	git rev-list ^master        next
+
+	if these match, topic has not merged in next at all.
+
+To compute (2):
+
+	git rev-list master..topic
+
+	if this is empty, it is fully merged to "master".
+
+DOC_END

guam-0.9.11.tar.gz/.git/hooks/pre-receive.sample Added

guam-0.9.11.tar.gz/.git/hooks/prepare-commit-msg.sample Added

@@ -0,0 +1,42 @@
+#!/usr/bin/sh
+#
+# An example hook script to prepare the commit log message.
+# Called by "git commit" with the name of the file that has the
+# commit message, followed by the description of the commit
+# message's source.  The hook's purpose is to edit the commit
+# message file.  If the hook fails with a non-zero status,
+# the commit is aborted.
+#
+# To enable this hook, rename this file to "prepare-commit-msg".
+
+# This hook includes three examples. The first one removes the
+# "# Please enter the commit message..." help message.
+#
+# The second includes the output of "git diff --name-status -r"
+# into the message, just before the "git status" output.  It is
+# commented because it doesn't cope with --amend or with squashed
+# commits.
+#
+# The third example adds a Signed-off-by line to the message, that can
+# still be edited.  This is rarely a good idea.
+
+COMMIT_MSG_FILE=$1
+COMMIT_SOURCE=$2
+SHA1=$3
+
+/usr/bin/perl -i.bak -ne 'print unless(m/^. Please enter the commit message/..m/^#$/)' "$COMMIT_MSG_FILE"
+
+# case "$COMMIT_SOURCE,$SHA1" in
+#  ,|template,)
+#    /usr/bin/perl -i.bak -pe '
+#       print "\n" . `git diff --cached --name-status -r`
+# 	 if /^#/ && $first++ == 0' "$COMMIT_MSG_FILE" ;;
+#  *) ;;
+# esac
+
+# SOB=$(git var GIT_COMMITTER_IDENT | sed -n 's/^$.*>$.*$/Signed-off-by: \1/p')
+# git interpret-trailers --in-place --trailer "$SOB" "$COMMIT_MSG_FILE"
+# if test -z "$COMMIT_SOURCE"
+# then
+#   /usr/bin/perl -i.bak -pe 'print "\n" if !$first_line++' "$COMMIT_MSG_FILE"
+# fi

guam-0.9.11.tar.gz/.git/hooks/update.sample Added

@@ -0,0 +1,128 @@
+#!/usr/bin/sh
+#
+# An example hook script to block unannotated tags from entering.
+# Called by "git receive-pack" with arguments: refname sha1-old sha1-new
+#
+# To enable this hook, rename this file to "update".
+#
+# Config
+# ------
+# hooks.allowunannotated
+#   This boolean sets whether unannotated tags will be allowed into the
+#   repository.  By default they won't be.
+# hooks.allowdeletetag
+#   This boolean sets whether deleting tags will be allowed in the
+#   repository.  By default they won't be.
+# hooks.allowmodifytag
+#   This boolean sets whether a tag may be modified after creation. By default
+#   it won't be.
+# hooks.allowdeletebranch
+#   This boolean sets whether deleting branches will be allowed in the
+#   repository.  By default they won't be.
+# hooks.denycreatebranch
+#   This boolean sets whether remotely creating branches will be denied
+#   in the repository.  By default this is allowed.
+#
+
+# --- Command line
+refname="$1"
+oldrev="$2"
+newrev="$3"
+
+# --- Safety check
+if [ -z "$GIT_DIR" ]; then
+	echo "Don't run this script from the command line." >&2
+	echo " (if you want, you could supply GIT_DIR then run" >&2
+	echo "  $0 <ref> <oldrev> <newrev>)" >&2
+	exit 1
+fi
+
+if [ -z "$refname" -o -z "$oldrev" -o -z "$newrev" ]; then
+	echo "usage: $0 <ref> <oldrev> <newrev>" >&2
+	exit 1
+fi
+
+# --- Config
+allowunannotated=$(git config --type=bool hooks.allowunannotated)
+allowdeletebranch=$(git config --type=bool hooks.allowdeletebranch)
+denycreatebranch=$(git config --type=bool hooks.denycreatebranch)
+allowdeletetag=$(git config --type=bool hooks.allowdeletetag)
+allowmodifytag=$(git config --type=bool hooks.allowmodifytag)
+
+# check for no description
+projectdesc=$(sed -e '1q' "$GIT_DIR/description")
+case "$projectdesc" in
+"Unnamed repository"* | "")
+	echo "*** Project description file hasn't been set" >&2
+	exit 1
+	;;
+esac
+
+# --- Check types
+# if $newrev is 0000...0000, it's a commit to delete a ref.
+zero="0000000000000000000000000000000000000000"
+if [ "$newrev" = "$zero" ]; then
+	newrev_type=delete
+else
+	newrev_type=$(git cat-file -t $newrev)
+fi
+
+case "$refname","$newrev_type" in
+	refs/tags/*,commit)
+		# un-annotated tag
+		short_refname=${refname##refs/tags/}
+		if [ "$allowunannotated" != "true" ]; then
+			echo "*** The un-annotated tag, $short_refname, is not allowed in this repository" >&2
+			echo "*** Use 'git tag [ -a | -s ]' for tags you want to propagate." >&2
+			exit 1
+		fi
+		;;
+	refs/tags/*,delete)
+		# delete tag
+		if [ "$allowdeletetag" != "true" ]; then
+			echo "*** Deleting a tag is not allowed in this repository" >&2
+			exit 1
+		fi
+		;;
+	refs/tags/*,tag)
+		# annotated tag
+		if [ "$allowmodifytag" != "true" ] && git rev-parse $refname > /dev/null 2>&1
+		then
+			echo "*** Tag '$refname' already exists." >&2
+			echo "*** Modifying a tag is not allowed in this repository." >&2
+			exit 1
+		fi
+		;;
+	refs/heads/*,commit)
+		# branch
+		if [ "$oldrev" = "$zero" -a "$denycreatebranch" = "true" ]; then
+			echo "*** Creating a branch is not allowed in this repository" >&2
+			exit 1
+		fi
+		;;
+	refs/heads/*,delete)
+		# delete branch
+		if [ "$allowdeletebranch" != "true" ]; then
+			echo "*** Deleting a branch is not allowed in this repository" >&2
+			exit 1
+		fi
+		;;
+	refs/remotes/*,commit)
+		# tracking branch
+		;;
+	refs/remotes/*,delete)
+		# delete tracking branch
+		if [ "$allowdeletebranch" != "true" ]; then
+			echo "*** Deleting a tracking branch is not allowed in this repository" >&2
+			exit 1
+		fi
+		;;
+	*)
+		# Anything else (is there anything else?)
+		echo "*** Update hook: unknown type of update to ref $refname of type $newrev_type" >&2
+		exit 1
+		;;
+esac
+
+# --- Finished
+exit 0

guam-0.9.11.tar.gz/.git/index Added

guam-0.9.11.tar.gz/.git/info Added

guam-0.9.11.tar.gz/.git/info/exclude Added

guam-0.9.11.tar.gz/.git/logs Added

guam-0.9.11.tar.gz/.git/logs/HEAD Added

@@ -0,0 +1,83 @@
+0000000000000000000000000000000000000000 d854029b1d1b256eef63f95bd68bf25710e475f1 Christian Mollekopf <mollekopf@kolabsys.com> 1593420153 +0200	clone: from ssh://git@git.kolab.org/diffusion/G/guam.git
+d854029b1d1b256eef63f95bd68bf25710e475f1 d854029b1d1b256eef63f95bd68bf25710e475f1 Christian Mollekopf <mollekopf@kolabsys.com> 1603138571 +0200	reset: moving to HEAD
+d854029b1d1b256eef63f95bd68bf25710e475f1 d854029b1d1b256eef63f95bd68bf25710e475f1 Christian Mollekopf <mollekopf@kolabsys.com> 1603138708 +0200	checkout: moving from master to develop
+d854029b1d1b256eef63f95bd68bf25710e475f1 4891f2063ed2b1fc82f38a64c3ce8c87775dbf90 Christian Mollekopf <mollekopf@kolabsys.com> 1603144835 +0200	commit: Avoid buffering continuations
+4891f2063ed2b1fc82f38a64c3ce8c87775dbf90 4891f2063ed2b1fc82f38a64c3ce8c87775dbf90 Christian Mollekopf <mollekopf@kolabsys.com> 1603183899 +0200	reset: moving to HEAD
+4891f2063ed2b1fc82f38a64c3ce8c87775dbf90 12628108c1a9a16e5ed09e5f20e2c771266c4357 Christian Mollekopf <mollekopf@kolabsys.com> 1603183906 +0200	commit (amend): Avoid buffering continuations
+12628108c1a9a16e5ed09e5f20e2c771266c4357 12628108c1a9a16e5ed09e5f20e2c771266c4357 Christian Mollekopf <mollekopf@kolabsys.com> 1607626706 +0100	reset: moving to HEAD
+12628108c1a9a16e5ed09e5f20e2c771266c4357 b9d2dc3cf61556ec9652f434aed1ddfc6d77e62e Christian Mollekopf <mollekopf@kolabsys.com> 1607626711 +0100	pull (start): checkout b9d2dc3cf61556ec9652f434aed1ddfc6d77e62e
+b9d2dc3cf61556ec9652f434aed1ddfc6d77e62e 12628108c1a9a16e5ed09e5f20e2c771266c4357 Christian Mollekopf <mollekopf@kolabsys.com> 1607626739 +0100	rebase (abort): updating HEAD
+12628108c1a9a16e5ed09e5f20e2c771266c4357 b9d2dc3cf61556ec9652f434aed1ddfc6d77e62e Christian Mollekopf <mollekopf@kolabsys.com> 1607626758 +0100	pull (start): checkout b9d2dc3cf61556ec9652f434aed1ddfc6d77e62e
+b9d2dc3cf61556ec9652f434aed1ddfc6d77e62e 12628108c1a9a16e5ed09e5f20e2c771266c4357 Christian Mollekopf <mollekopf@kolabsys.com> 1607626809 +0100	rebase (abort): updating HEAD
+12628108c1a9a16e5ed09e5f20e2c771266c4357 b9d2dc3cf61556ec9652f434aed1ddfc6d77e62e Christian Mollekopf <mollekopf@kolabsys.com> 1607626856 +0100	reset: moving to origin/develop
+b9d2dc3cf61556ec9652f434aed1ddfc6d77e62e d369c7caef62b53422b579fdbcf8763b7ecf8a27 Christian Mollekopf <mollekopf@kolabsys.com> 1607950199 +0100	commit: Log a readable message for issues that we know can happen, and exit
+d369c7caef62b53422b579fdbcf8763b7ecf8a27 4be24b047f7532a7313215063266a87492ae7800 Christian Mollekopf <mollekopf@kolabsys.com> 1607953406 +0100	commit: Set a high limit for number of file descriptors
+4be24b047f7532a7313215063266a87492ae7800 40a09f20fc0ca51189ee74f803be293a93a374e2 Christian Mollekopf <mollekopf@kolabsys.com> 1607955061 +0100	commit: 0.9.9
+40a09f20fc0ca51189ee74f803be293a93a374e2 40a09f20fc0ca51189ee74f803be293a93a374e2 Christian Mollekopf <mollekopf@kolabsys.com> 1607955079 +0100	reset: moving to HEAD
+40a09f20fc0ca51189ee74f803be293a93a374e2 7fc53d4eebb7f383350de8bf15f1b1bf4355500c Christian Mollekopf <mollekopf@kolabsys.com> 1607955175 +0100	commit: fixup
+7fc53d4eebb7f383350de8bf15f1b1bf4355500c d369c7caef62b53422b579fdbcf8763b7ecf8a27 Christian Mollekopf <mollekopf@kolabsys.com> 1607955205 +0100	rebase (start): checkout origin/develop
+d369c7caef62b53422b579fdbcf8763b7ecf8a27 f6559ace42a091b430b3229455e224a4cdfd6ea1 Christian Mollekopf <mollekopf@kolabsys.com> 1607955205 +0100	rebase (fixup): Log a readable message for issues that we know can happen, and exit
+f6559ace42a091b430b3229455e224a4cdfd6ea1 e7094f7f7e49639c88a59512754a6c41cafac13d Christian Mollekopf <mollekopf@kolabsys.com> 1607955205 +0100	rebase (pick): Set a high limit for number of file descriptors
+e7094f7f7e49639c88a59512754a6c41cafac13d c728094f548b9f79575b39ff470d8ed04e19ea99 Christian Mollekopf <mollekopf@kolabsys.com> 1607955205 +0100	rebase (pick): 0.9.9
+c728094f548b9f79575b39ff470d8ed04e19ea99 c728094f548b9f79575b39ff470d8ed04e19ea99 Christian Mollekopf <mollekopf@kolabsys.com> 1607955205 +0100	rebase (finish): returning to refs/heads/develop
+c728094f548b9f79575b39ff470d8ed04e19ea99 d854029b1d1b256eef63f95bd68bf25710e475f1 Christian Mollekopf <mollekopf@kolabsys.com> 1607955293 +0100	checkout: moving from develop to master
+d854029b1d1b256eef63f95bd68bf25710e475f1 1b203d8d6cabd14afea8fedfecf4cb6908610879 Christian Mollekopf <mollekopf@kolabsys.com> 1607955529 +0100	pull: Fast-forward
+1b203d8d6cabd14afea8fedfecf4cb6908610879 c728094f548b9f79575b39ff470d8ed04e19ea99 Christian Mollekopf <mollekopf@kolabsys.com> 1607955551 +0100	merge develop: Fast-forward
+c728094f548b9f79575b39ff470d8ed04e19ea99 b08b93cfb768e01512738091953c7d50963ddb74 Christian Mollekopf <mollekopf@kolabsys.com> 1621369713 +0200	commit: Audit rule
+b08b93cfb768e01512738091953c7d50963ddb74 8ff5b4547b0dcd3faf56b84dc599119ae000c322 Christian Mollekopf <mollekopf@kolabsys.com> 1621422311 +0200	commit: Better tested audit rule
+8ff5b4547b0dcd3faf56b84dc599119ae000c322 6f7af7f15ad2106a8921dd4eb863eddef59601d2 Christian Mollekopf <mollekopf@kolabsys.com> 1621425218 +0200	commit: Fixup
+6f7af7f15ad2106a8921dd4eb863eddef59601d2 7a5de6aca4d48e710ed166cf11ed9ee9df1ee465 Christian Mollekopf <mollekopf@kolabsys.com> 1621430464 +0200	commit: Document rule callbacks
+7a5de6aca4d48e710ed166cf11ed9ee9df1ee465 bbcda5198917bb4430359e872743c7b701c5d3ff Christian Mollekopf <mollekopf@kolabsys.com> 1621430519 +0200	commit: Cleanup
+bbcda5198917bb4430359e872743c7b701c5d3ff 62f92fb372ed56b463174fa661f00c8593e95c3e Christian Mollekopf <mollekopf@kolabsys.com> 1621430561 +0200	commit: Added the lager common test backend to the test config
+62f92fb372ed56b463174fa661f00c8593e95c3e 1b40a4e12693ce6db1c1a08c3800d0c5def70a74 Christian Mollekopf <mollekopf@kolabsys.com> 1621430577 +0200	commit: Some extra defaults for app.config
+1b40a4e12693ce6db1c1a08c3800d0c5def70a74 4da532c1126351fd693e1e54bde36fb2b9a77cc1 Christian Mollekopf <mollekopf@kolabsys.com> 1621430637 +0200	commit: Fixed variable name
+4da532c1126351fd693e1e54bde36fb2b9a77cc1 4da532c1126351fd693e1e54bde36fb2b9a77cc1 Christian Mollekopf <mollekopf@kolabsys.com> 1621430645 +0200	reset: moving to HEAD
+4da532c1126351fd693e1e54bde36fb2b9a77cc1 c728094f548b9f79575b39ff470d8ed04e19ea99 Christian Mollekopf <mollekopf@kolabsys.com> 1621430650 +0200	checkout: moving from master to develop
+c728094f548b9f79575b39ff470d8ed04e19ea99 4da532c1126351fd693e1e54bde36fb2b9a77cc1 Christian Mollekopf <mollekopf@kolabsys.com> 1621430660 +0200	merge master: Fast-forward
+4da532c1126351fd693e1e54bde36fb2b9a77cc1 b08b93cfb768e01512738091953c7d50963ddb74 Christian Mollekopf <mollekopf@kolabsys.com> 1621430690 +0200	rebase (start): checkout origin/develop
+b08b93cfb768e01512738091953c7d50963ddb74 ddfac526da5e2813b5e686e40ee7bab9d7a069a2 Christian Mollekopf <mollekopf@kolabsys.com> 1621430690 +0200	rebase (fixup): # This is a combination of 2 commits.
+ddfac526da5e2813b5e686e40ee7bab9d7a069a2 1335ebe88f1f2c0b789d5179b4905cc9f76455fb Christian Mollekopf <mollekopf@kolabsys.com> 1621430690 +0200	rebase (fixup): # This is a combination of 3 commits.
+1335ebe88f1f2c0b789d5179b4905cc9f76455fb 60551a8f40363548fe0caf391a65cf66646ef556 Christian Mollekopf <mollekopf@kolabsys.com> 1621430690 +0200	rebase (fixup): Audit rule
+60551a8f40363548fe0caf391a65cf66646ef556 c986c69c7939899aa722ffee61e31edc7a830947 Christian Mollekopf <mollekopf@kolabsys.com> 1621430690 +0200	rebase (pick): Document rule callbacks
+c986c69c7939899aa722ffee61e31edc7a830947 a1c790758696d7f6a3160710ccc206d54fa4f4db Christian Mollekopf <mollekopf@kolabsys.com> 1621430690 +0200	rebase (pick): Added the lager common test backend to the test config
+a1c790758696d7f6a3160710ccc206d54fa4f4db c99a52060a6b562eaa9241357f9fb658f6501cd6 Christian Mollekopf <mollekopf@kolabsys.com> 1621430690 +0200	rebase (pick): Some extra defaults for app.config
+c99a52060a6b562eaa9241357f9fb658f6501cd6 06bcfc1d276f3c2c8c4da7e17e3644a394eb5633 Christian Mollekopf <mollekopf@kolabsys.com> 1621430690 +0200	rebase (pick): Fixed variable name
+06bcfc1d276f3c2c8c4da7e17e3644a394eb5633 06bcfc1d276f3c2c8c4da7e17e3644a394eb5633 Christian Mollekopf <mollekopf@kolabsys.com> 1621430690 +0200	rebase (finish): returning to refs/heads/develop
+06bcfc1d276f3c2c8c4da7e17e3644a394eb5633 0a7436a231a9a87cd46e953b60fe562d52653b41 Christian Mollekopf <mollekopf@kolabsys.com> 1621430857 +0200	commit (amend): Fixed variable name
+0a7436a231a9a87cd46e953b60fe562d52653b41 125a35ec3b6a16071e6d082426b64771ccb0ee91 Christian Mollekopf <mollekopf@kolabsys.com> 1621431015 +0200	commit: Cleanup
+125a35ec3b6a16071e6d082426b64771ccb0ee91 60551a8f40363548fe0caf391a65cf66646ef556 Christian Mollekopf <mollekopf@kolabsys.com> 1621431038 +0200	rebase (start): checkout origin/develop
+60551a8f40363548fe0caf391a65cf66646ef556 91f1f2e5c7b2fb2d5c32ac463f37cac3b1ff078d Christian Mollekopf <mollekopf@kolabsys.com> 1621431038 +0200	rebase (fixup): Audit rule
+91f1f2e5c7b2fb2d5c32ac463f37cac3b1ff078d f2496b89719013e4da5bf707217b89b10295f090 Christian Mollekopf <mollekopf@kolabsys.com> 1621431038 +0200	rebase (pick): Document rule callbacks
+f2496b89719013e4da5bf707217b89b10295f090 26602ae29503ceb925fb95976c0fed9c83383e3a Christian Mollekopf <mollekopf@kolabsys.com> 1621431038 +0200	rebase (pick): Added the lager common test backend to the test config
+26602ae29503ceb925fb95976c0fed9c83383e3a 0336d6988374fd0007576506e260b6277b1725e8 Christian Mollekopf <mollekopf@kolabsys.com> 1621431038 +0200	rebase (pick): Some extra defaults for app.config
+0336d6988374fd0007576506e260b6277b1725e8 8bbc0ed96975bee12e62621a7113152f92ed7a63 Christian Mollekopf <mollekopf@kolabsys.com> 1621431038 +0200	rebase (pick): Fixed variable name
+8bbc0ed96975bee12e62621a7113152f92ed7a63 8bbc0ed96975bee12e62621a7113152f92ed7a63 Christian Mollekopf <mollekopf@kolabsys.com> 1621431038 +0200	rebase (finish): returning to refs/heads/develop
+8bbc0ed96975bee12e62621a7113152f92ed7a63 2619a1b5a16b2faf147df108aa0b928f4e8108e6 Christian Mollekopf <mollekopf@kolabsys.com> 1621432414 +0200	commit: Use eimap:is_tagged_response
+2619a1b5a16b2faf147df108aa0b928f4e8108e6 4a292a7e1d2dc62c5fd357dedef74834ee4d5483 Christian Mollekopf <mollekopf@kolabsys.com> 1622936983 +0200	commit: Enahnced audit log messages
+4a292a7e1d2dc62c5fd357dedef74834ee4d5483 4179ded474f1b44b58632a5168e4ffdc5f3e8fcb Christian Mollekopf <mollekopf@kolabsys.com> 1622938561 +0200	commit: Dispatch to the right peername implementation
+4179ded474f1b44b58632a5168e4ffdc5f3e8fcb 4179ded474f1b44b58632a5168e4ffdc5f3e8fcb Christian Mollekopf <mollekopf@kolabsys.com> 1622938856 +0200	reset: moving to HEAD
+4179ded474f1b44b58632a5168e4ffdc5f3e8fcb 2619a1b5a16b2faf147df108aa0b928f4e8108e6 Christian Mollekopf <mollekopf@kolabsys.com> 1622938881 +0200	rebase (start): checkout origin/develop
+2619a1b5a16b2faf147df108aa0b928f4e8108e6 4a292a7e1d2dc62c5fd357dedef74834ee4d5483 Christian Mollekopf <mollekopf@kolabsys.com> 1622938881 +0200	rebase: fast-forward
+4a292a7e1d2dc62c5fd357dedef74834ee4d5483 260a36a958e09e9e3d6eb77afe2b20c048b9138e Christian Mollekopf <mollekopf@kolabsys.com> 1622938881 +0200	rebase (reword): Enhanced audit log messages
+260a36a958e09e9e3d6eb77afe2b20c048b9138e 538cae8c773a374b522daaa6ccb715d95386d152 Christian Mollekopf <mollekopf@kolabsys.com> 1622938905 +0200	rebase (pick): Dispatch to the right peername implementation
+538cae8c773a374b522daaa6ccb715d95386d152 538cae8c773a374b522daaa6ccb715d95386d152 Christian Mollekopf <mollekopf@kolabsys.com> 1622938905 +0200	rebase (finish): returning to refs/heads/develop
+538cae8c773a374b522daaa6ccb715d95386d152 1bab185342e54bae9e1c42715edbee2a195d0f1e Christian Mollekopf <mollekopf@kolabsys.com> 1622977706 +0200	commit: localhost test certificates
+1bab185342e54bae9e1c42715edbee2a195d0f1e 1be6b263a3d8e00a13798ff0017097d5ed547a1b Christian Mollekopf <mollekopf@kolabsys.com> 1622977969 +0200	commit (amend): localhost test certificates
+1be6b263a3d8e00a13798ff0017097d5ed547a1b d3407ad19d5328fcd2a14bf3714aa4b3610de625 Christian Mollekopf <mollekopf@kolabsys.com> 1622977982 +0200	commit (amend): localhost test certificates
+d3407ad19d5328fcd2a14bf3714aa4b3610de625 52e50c004173a6d91a3555d316361bb7c01ddf92 Christian Mollekopf <mollekopf@kolabsys.com> 1622978034 +0200	commit (amend): localhost test certificates
+52e50c004173a6d91a3555d316361bb7c01ddf92 acf17241c2808cd92e57865e897ec28f5b96a615 Christian Mollekopf <mollekopf@kolabsys.com> 1622978083 +0200	commit (amend): localhost test certificates
+acf17241c2808cd92e57865e897ec28f5b96a615 78238e384ac178e09196a2b3e148e7b003684262 Christian Mollekopf <mollekopf@kolabsys.com> 1623049742 +0200	commit: Added support for AUTHENTICATE PLAIN to the audit rule
+78238e384ac178e09196a2b3e148e7b003684262 78238e384ac178e09196a2b3e148e7b003684262 Christian Mollekopf <mollekopf@kolabsys.com> 1623049785 +0200	reset: moving to HEAD
+78238e384ac178e09196a2b3e148e7b003684262 4da532c1126351fd693e1e54bde36fb2b9a77cc1 Christian Mollekopf <mollekopf@kolabsys.com> 1623050139 +0200	checkout: moving from develop to master
+4da532c1126351fd693e1e54bde36fb2b9a77cc1 78238e384ac178e09196a2b3e148e7b003684262 Christian Mollekopf <mollekopf@kolabsys.com> 1623050158 +0200	checkout: moving from master to develop
+78238e384ac178e09196a2b3e148e7b003684262 ceb90d30effb1a6436c04988d1c3b180519da8a4 Christian Mollekopf <mollekopf@kolabsys.com> 1623056587 +0200	commit: Use relative paths for the test certificates
+ceb90d30effb1a6436c04988d1c3b180519da8a4 c2b7193f2787638ceaf24c720877a86f9c49d008 Christian Mollekopf <mollekopf@kolabsys.com> 1623056605 +0200	pull (start): checkout c2b7193f2787638ceaf24c720877a86f9c49d008
+c2b7193f2787638ceaf24c720877a86f9c49d008 ceb90d30effb1a6436c04988d1c3b180519da8a4 Christian Mollekopf <mollekopf@kolabsys.com> 1623056749 +0200	rebase (abort): updating HEAD
+ceb90d30effb1a6436c04988d1c3b180519da8a4 c2b7193f2787638ceaf24c720877a86f9c49d008 Christian Mollekopf <mollekopf@kolabsys.com> 1623056769 +0200	rebase (start): checkout origin/develop
+c2b7193f2787638ceaf24c720877a86f9c49d008 8d9d480a987b1f9fb777ced8a6bd327682687699 Christian Mollekopf <mollekopf@kolabsys.com> 1623056956 +0200	commit: Use relative paths for the test certificates
+8d9d480a987b1f9fb777ced8a6bd327682687699 ceb90d30effb1a6436c04988d1c3b180519da8a4 Christian Mollekopf <mollekopf@kolabsys.com> 1623057013 +0200	checkout: moving from 8d9d480a987b1f9fb777ced8a6bd327682687699 to develop
+ceb90d30effb1a6436c04988d1c3b180519da8a4 8d9d480a987b1f9fb777ced8a6bd327682687699 Christian Mollekopf <mollekopf@kolabsys.com> 1623057018 +0200	reset: moving to 8d9d480
+8d9d480a987b1f9fb777ced8a6bd327682687699 ceb90d30effb1a6436c04988d1c3b180519da8a4 Christian Mollekopf <mollekopf@kolabsys.com> 1623057031 +0200	rebase (abort): updating HEAD
+ceb90d30effb1a6436c04988d1c3b180519da8a4 ceb90d30effb1a6436c04988d1c3b180519da8a4 Christian Mollekopf <mollekopf@kolabsys.com> 1623057031 +0200	rebase (abort): updating HEAD
+ceb90d30effb1a6436c04988d1c3b180519da8a4 8d9d480a987b1f9fb777ced8a6bd327682687699 Christian Mollekopf <mollekopf@kolabsys.com> 1623057039 +0200	reset: moving to 8d9d480
+8d9d480a987b1f9fb777ced8a6bd327682687699 8332e06ac83a37ec92ce56aec30d48b966ed8c45 Christian Mollekopf <mollekopf@kolabsys.com> 1623057126 +0200	commit: changelog

guam-0.9.11.tar.gz/.git/logs/refs Added

guam-0.9.11.tar.gz/.git/logs/refs/heads Added

guam-0.9.11.tar.gz/.git/logs/refs/heads/develop Added

@@ -0,0 +1,29 @@
+0000000000000000000000000000000000000000 d854029b1d1b256eef63f95bd68bf25710e475f1 Christian Mollekopf <mollekopf@kolabsys.com> 1603138708 +0200	branch: Created from refs/remotes/origin/develop
+d854029b1d1b256eef63f95bd68bf25710e475f1 4891f2063ed2b1fc82f38a64c3ce8c87775dbf90 Christian Mollekopf <mollekopf@kolabsys.com> 1603144835 +0200	commit: Avoid buffering continuations
+4891f2063ed2b1fc82f38a64c3ce8c87775dbf90 12628108c1a9a16e5ed09e5f20e2c771266c4357 Christian Mollekopf <mollekopf@kolabsys.com> 1603183906 +0200	commit (amend): Avoid buffering continuations
+12628108c1a9a16e5ed09e5f20e2c771266c4357 b9d2dc3cf61556ec9652f434aed1ddfc6d77e62e Christian Mollekopf <mollekopf@kolabsys.com> 1607626856 +0100	reset: moving to origin/develop
+b9d2dc3cf61556ec9652f434aed1ddfc6d77e62e d369c7caef62b53422b579fdbcf8763b7ecf8a27 Christian Mollekopf <mollekopf@kolabsys.com> 1607950199 +0100	commit: Log a readable message for issues that we know can happen, and exit
+d369c7caef62b53422b579fdbcf8763b7ecf8a27 4be24b047f7532a7313215063266a87492ae7800 Christian Mollekopf <mollekopf@kolabsys.com> 1607953406 +0100	commit: Set a high limit for number of file descriptors
+4be24b047f7532a7313215063266a87492ae7800 40a09f20fc0ca51189ee74f803be293a93a374e2 Christian Mollekopf <mollekopf@kolabsys.com> 1607955061 +0100	commit: 0.9.9
+40a09f20fc0ca51189ee74f803be293a93a374e2 7fc53d4eebb7f383350de8bf15f1b1bf4355500c Christian Mollekopf <mollekopf@kolabsys.com> 1607955175 +0100	commit: fixup
+7fc53d4eebb7f383350de8bf15f1b1bf4355500c c728094f548b9f79575b39ff470d8ed04e19ea99 Christian Mollekopf <mollekopf@kolabsys.com> 1607955205 +0100	rebase (finish): refs/heads/develop onto b9d2dc3cf61556ec9652f434aed1ddfc6d77e62e
+c728094f548b9f79575b39ff470d8ed04e19ea99 4da532c1126351fd693e1e54bde36fb2b9a77cc1 Christian Mollekopf <mollekopf@kolabsys.com> 1621430660 +0200	merge master: Fast-forward
+4da532c1126351fd693e1e54bde36fb2b9a77cc1 06bcfc1d276f3c2c8c4da7e17e3644a394eb5633 Christian Mollekopf <mollekopf@kolabsys.com> 1621430690 +0200	rebase (finish): refs/heads/develop onto c728094f548b9f79575b39ff470d8ed04e19ea99
+06bcfc1d276f3c2c8c4da7e17e3644a394eb5633 0a7436a231a9a87cd46e953b60fe562d52653b41 Christian Mollekopf <mollekopf@kolabsys.com> 1621430857 +0200	commit (amend): Fixed variable name
+0a7436a231a9a87cd46e953b60fe562d52653b41 125a35ec3b6a16071e6d082426b64771ccb0ee91 Christian Mollekopf <mollekopf@kolabsys.com> 1621431015 +0200	commit: Cleanup
+125a35ec3b6a16071e6d082426b64771ccb0ee91 8bbc0ed96975bee12e62621a7113152f92ed7a63 Christian Mollekopf <mollekopf@kolabsys.com> 1621431038 +0200	rebase (finish): refs/heads/develop onto c728094f548b9f79575b39ff470d8ed04e19ea99
+8bbc0ed96975bee12e62621a7113152f92ed7a63 2619a1b5a16b2faf147df108aa0b928f4e8108e6 Christian Mollekopf <mollekopf@kolabsys.com> 1621432414 +0200	commit: Use eimap:is_tagged_response
+2619a1b5a16b2faf147df108aa0b928f4e8108e6 4a292a7e1d2dc62c5fd357dedef74834ee4d5483 Christian Mollekopf <mollekopf@kolabsys.com> 1622936983 +0200	commit: Enahnced audit log messages
+4a292a7e1d2dc62c5fd357dedef74834ee4d5483 4179ded474f1b44b58632a5168e4ffdc5f3e8fcb Christian Mollekopf <mollekopf@kolabsys.com> 1622938561 +0200	commit: Dispatch to the right peername implementation
+4179ded474f1b44b58632a5168e4ffdc5f3e8fcb 538cae8c773a374b522daaa6ccb715d95386d152 Christian Mollekopf <mollekopf@kolabsys.com> 1622938905 +0200	rebase (finish): refs/heads/develop onto 2619a1b5a16b2faf147df108aa0b928f4e8108e6
+538cae8c773a374b522daaa6ccb715d95386d152 1bab185342e54bae9e1c42715edbee2a195d0f1e Christian Mollekopf <mollekopf@kolabsys.com> 1622977706 +0200	commit: localhost test certificates
+1bab185342e54bae9e1c42715edbee2a195d0f1e 1be6b263a3d8e00a13798ff0017097d5ed547a1b Christian Mollekopf <mollekopf@kolabsys.com> 1622977969 +0200	commit (amend): localhost test certificates
+1be6b263a3d8e00a13798ff0017097d5ed547a1b d3407ad19d5328fcd2a14bf3714aa4b3610de625 Christian Mollekopf <mollekopf@kolabsys.com> 1622977982 +0200	commit (amend): localhost test certificates
+d3407ad19d5328fcd2a14bf3714aa4b3610de625 52e50c004173a6d91a3555d316361bb7c01ddf92 Christian Mollekopf <mollekopf@kolabsys.com> 1622978034 +0200	commit (amend): localhost test certificates
+52e50c004173a6d91a3555d316361bb7c01ddf92 acf17241c2808cd92e57865e897ec28f5b96a615 Christian Mollekopf <mollekopf@kolabsys.com> 1622978083 +0200	commit (amend): localhost test certificates
+acf17241c2808cd92e57865e897ec28f5b96a615 78238e384ac178e09196a2b3e148e7b003684262 Christian Mollekopf <mollekopf@kolabsys.com> 1623049742 +0200	commit: Added support for AUTHENTICATE PLAIN to the audit rule
+78238e384ac178e09196a2b3e148e7b003684262 ceb90d30effb1a6436c04988d1c3b180519da8a4 Christian Mollekopf <mollekopf@kolabsys.com> 1623056587 +0200	commit: Use relative paths for the test certificates
+ceb90d30effb1a6436c04988d1c3b180519da8a4 8d9d480a987b1f9fb777ced8a6bd327682687699 Christian Mollekopf <mollekopf@kolabsys.com> 1623057018 +0200	reset: moving to 8d9d480
+8d9d480a987b1f9fb777ced8a6bd327682687699 ceb90d30effb1a6436c04988d1c3b180519da8a4 Christian Mollekopf <mollekopf@kolabsys.com> 1623057031 +0200	rebase (abort): updating HEAD
+ceb90d30effb1a6436c04988d1c3b180519da8a4 8d9d480a987b1f9fb777ced8a6bd327682687699 Christian Mollekopf <mollekopf@kolabsys.com> 1623057039 +0200	reset: moving to 8d9d480
+8d9d480a987b1f9fb777ced8a6bd327682687699 8332e06ac83a37ec92ce56aec30d48b966ed8c45 Christian Mollekopf <mollekopf@kolabsys.com> 1623057126 +0200	commit: changelog

guam-0.9.11.tar.gz/.git/logs/refs/heads/master Added

@@ -0,0 +1,11 @@
+0000000000000000000000000000000000000000 d854029b1d1b256eef63f95bd68bf25710e475f1 Christian Mollekopf <mollekopf@kolabsys.com> 1593420153 +0200	clone: from ssh://git@git.kolab.org/diffusion/G/guam.git
+d854029b1d1b256eef63f95bd68bf25710e475f1 1b203d8d6cabd14afea8fedfecf4cb6908610879 Christian Mollekopf <mollekopf@kolabsys.com> 1607955529 +0100	pull: Fast-forward
+1b203d8d6cabd14afea8fedfecf4cb6908610879 c728094f548b9f79575b39ff470d8ed04e19ea99 Christian Mollekopf <mollekopf@kolabsys.com> 1607955551 +0100	merge develop: Fast-forward
+c728094f548b9f79575b39ff470d8ed04e19ea99 b08b93cfb768e01512738091953c7d50963ddb74 Christian Mollekopf <mollekopf@kolabsys.com> 1621369713 +0200	commit: Audit rule
+b08b93cfb768e01512738091953c7d50963ddb74 8ff5b4547b0dcd3faf56b84dc599119ae000c322 Christian Mollekopf <mollekopf@kolabsys.com> 1621422311 +0200	commit: Better tested audit rule
+8ff5b4547b0dcd3faf56b84dc599119ae000c322 6f7af7f15ad2106a8921dd4eb863eddef59601d2 Christian Mollekopf <mollekopf@kolabsys.com> 1621425218 +0200	commit: Fixup
+6f7af7f15ad2106a8921dd4eb863eddef59601d2 7a5de6aca4d48e710ed166cf11ed9ee9df1ee465 Christian Mollekopf <mollekopf@kolabsys.com> 1621430464 +0200	commit: Document rule callbacks
+7a5de6aca4d48e710ed166cf11ed9ee9df1ee465 bbcda5198917bb4430359e872743c7b701c5d3ff Christian Mollekopf <mollekopf@kolabsys.com> 1621430519 +0200	commit: Cleanup
+bbcda5198917bb4430359e872743c7b701c5d3ff 62f92fb372ed56b463174fa661f00c8593e95c3e Christian Mollekopf <mollekopf@kolabsys.com> 1621430561 +0200	commit: Added the lager common test backend to the test config
+62f92fb372ed56b463174fa661f00c8593e95c3e 1b40a4e12693ce6db1c1a08c3800d0c5def70a74 Christian Mollekopf <mollekopf@kolabsys.com> 1621430577 +0200	commit: Some extra defaults for app.config
+1b40a4e12693ce6db1c1a08c3800d0c5def70a74 4da532c1126351fd693e1e54bde36fb2b9a77cc1 Christian Mollekopf <mollekopf@kolabsys.com> 1621430637 +0200	commit: Fixed variable name

guam-0.9.11.tar.gz/.git/logs/refs/remotes Added

guam-0.9.11.tar.gz/.git/logs/refs/remotes/origin Added

guam-0.9.11.tar.gz/.git/logs/refs/remotes/origin/HEAD Added

guam-0.9.11.tar.gz/.git/logs/refs/remotes/origin/develop Added

@@ -0,0 +1,8 @@
+d854029b1d1b256eef63f95bd68bf25710e475f1 b9d2dc3cf61556ec9652f434aed1ddfc6d77e62e Christian Mollekopf <mollekopf@kolabsys.com> 1607626711 +0100	pull: fast-forward
+b9d2dc3cf61556ec9652f434aed1ddfc6d77e62e c728094f548b9f79575b39ff470d8ed04e19ea99 Christian Mollekopf <mollekopf@kolabsys.com> 1607955275 +0100	update by push
+c728094f548b9f79575b39ff470d8ed04e19ea99 8bbc0ed96975bee12e62621a7113152f92ed7a63 Christian Mollekopf <mollekopf@kolabsys.com> 1621432236 +0200	update by push
+8bbc0ed96975bee12e62621a7113152f92ed7a63 2619a1b5a16b2faf147df108aa0b928f4e8108e6 Christian Mollekopf <mollekopf@kolabsys.com> 1621432433 +0200	update by push
+2619a1b5a16b2faf147df108aa0b928f4e8108e6 538cae8c773a374b522daaa6ccb715d95386d152 Christian Mollekopf <mollekopf@kolabsys.com> 1622939258 +0200	update by push
+538cae8c773a374b522daaa6ccb715d95386d152 78238e384ac178e09196a2b3e148e7b003684262 Christian Mollekopf <mollekopf@kolabsys.com> 1623049792 +0200	update by push
+78238e384ac178e09196a2b3e148e7b003684262 c2b7193f2787638ceaf24c720877a86f9c49d008 Christian Mollekopf <mollekopf@kolabsys.com> 1623056605 +0200	pull: fast-forward
+c2b7193f2787638ceaf24c720877a86f9c49d008 8332e06ac83a37ec92ce56aec30d48b966ed8c45 Christian Mollekopf <mollekopf@kolabsys.com> 1623057144 +0200	update by push

guam-0.9.11.tar.gz/.git/logs/refs/remotes/origin/master Added

guam-0.9.11.tar.gz/.git/logs/refs/stash Added

@@ -0,0 +1,7 @@
+0000000000000000000000000000000000000000 a32b4dff257004cc79a2a5b5e9dec4610a1e682f Christian Mollekopf <mollekopf@kolabsys.com> 1603138571 +0200	WIP on master: d854029 Changelog
+a32b4dff257004cc79a2a5b5e9dec4610a1e682f 6576251e1ef122dd22d2d78469ff2075b861bb51 Christian Mollekopf <mollekopf@kolabsys.com> 1603183899 +0200	WIP on develop: 4891f20 Avoid buffering continuations
+6576251e1ef122dd22d2d78469ff2075b861bb51 90101ef3f39f75894659b096558ad5c38a1a0fd5 Christian Mollekopf <mollekopf@kolabsys.com> 1607626706 +0100	WIP on develop: 1262810 Avoid buffering continuations
+90101ef3f39f75894659b096558ad5c38a1a0fd5 0957e4cf8eb8b6dd444ef481ae8a266087e770ba Christian Mollekopf <mollekopf@kolabsys.com> 1607955079 +0100	WIP on develop: 40a09f2 0.9.9
+0957e4cf8eb8b6dd444ef481ae8a266087e770ba f794a902453c748d0eb59182a0d545cb258757a6 Christian Mollekopf <mollekopf@kolabsys.com> 1621430645 +0200	WIP on master: 4da532c Fixed variable name
+f794a902453c748d0eb59182a0d545cb258757a6 e213e87b76ea2ed2c920abf320346cba74d2512f Christian Mollekopf <mollekopf@kolabsys.com> 1622938856 +0200	WIP on develop: 4179ded Dispatch to the right peername implementation
+e213e87b76ea2ed2c920abf320346cba74d2512f 85fb8a5b9ffb4ebdd77514071cdc729f590fef4a Christian Mollekopf <mollekopf@kolabsys.com> 1623049785 +0200	WIP on develop: 78238e3 Added support for AUTHENTICATE PLAIN to the audit rule

guam-0.9.11.tar.gz/.git/objects Added

guam-0.9.11.tar.gz/.git/objects/00 Added

guam-0.9.11.tar.gz/.git/objects/00/d26b4942aec5687a04f495edd2629a6c25a87b Added

guam-0.9.11.tar.gz/.git/objects/02 Added

guam-0.9.11.tar.gz/.git/objects/02/9a2299ab56b796c2dda0564bdf3e696b8b381a Added

guam-0.9.11.tar.gz/.git/objects/02/d3a93363a489e78cad9b8bc93cf876bd14600b Added

guam-0.9.11.tar.gz/.git/objects/03 Added

guam-0.9.11.tar.gz/.git/objects/03/36d6988374fd0007576506e260b6277b1725e8 Added

guam-0.9.11.tar.gz/.git/objects/03/50c02079272d94fdcc0a36ca08c2b83555440f Added

guam-0.9.11.tar.gz/.git/objects/03/a06ea3fa9b64ccc607fc2df2d2297857294c92 Added

guam-0.9.11.tar.gz/.git/objects/04 Added

guam-0.9.11.tar.gz/.git/objects/04/0258286b8b9efba9a13778c99a62d74ff7ac84 Added

guam-0.9.11.tar.gz/.git/objects/05 Added

guam-0.9.11.tar.gz/.git/objects/05/304c0a5740c2b3d7691c96a1f9893f9bf03301 Added

guam-0.9.11.tar.gz/.git/objects/06 Added

guam-0.9.11.tar.gz/.git/objects/06/00d4ab476f763665a211770808c6e789e1ba5f Added

guam-0.9.11.tar.gz/.git/objects/06/3941fd673277150e018e99d62a7b231a4e12aa Added

guam-0.9.11.tar.gz/.git/objects/06/8ad51cc0c0b73fd0344f9c0d3501e474d909c5 Added

guam-0.9.11.tar.gz/.git/objects/06/bcfc1d276f3c2c8c4da7e17e3644a394eb5633 Added

guam-0.9.11.tar.gz/.git/objects/06/be121d9e3ef26731ea5d5f7efc6a1e45bff789 Added

guam-0.9.11.tar.gz/.git/objects/06/d432b34fa6d5764c7234752cefaece0f943fdb Added

guam-0.9.11.tar.gz/.git/objects/07 Added

guam-0.9.11.tar.gz/.git/objects/07/030e39f1ae9ca3bc085c166816718f8406fd43 Added

guam-0.9.11.tar.gz/.git/objects/07/2f2fecaf39590e854a6d52a3e8479a4b9f192d Added

guam-0.9.11.tar.gz/.git/objects/07/f8e1532f8cd13bb25e1be39920f4a7d869f892 Added

guam-0.9.11.tar.gz/.git/objects/08 Added

guam-0.9.11.tar.gz/.git/objects/08/b0c2471aad7ae2720623272db0c6ba250511f9 Added

guam-0.9.11.tar.gz/.git/objects/09 Added

guam-0.9.11.tar.gz/.git/objects/09/57e4cf8eb8b6dd444ef481ae8a266087e770ba Added

guam-0.9.11.tar.gz/.git/objects/0a Added

guam-0.9.11.tar.gz/.git/objects/0a/7436a231a9a87cd46e953b60fe562d52653b41 Added

guam-0.9.11.tar.gz/.git/objects/0b Added

guam-0.9.11.tar.gz/.git/objects/0b/0220dad3addf29f068b1b57d427ff22152225c Added

guam-0.9.11.tar.gz/.git/objects/0c Added

guam-0.9.11.tar.gz/.git/objects/0c/35e3e20c6767e68886873b8a70be27c08713f3 Added

guam-0.9.11.tar.gz/.git/objects/0c/ca7aba4a2e8ce0e8ce76a93b19d8b75e5f293f Added

guam-0.9.11.tar.gz/.git/objects/0c/ddb2f1da485bcb7cac63e10d9e9e3a65237042 Added

guam-0.9.11.tar.gz/.git/objects/0d Added

guam-0.9.11.tar.gz/.git/objects/0d/196366298a25f26cb089dff753581209ec1261 Added

guam-0.9.11.tar.gz/.git/objects/0d/e94cc79a316c9f4c380eee419cce1cd89ce69e Added

guam-0.9.11.tar.gz/.git/objects/0d/eb6baab985c2ffdcf01b0399916a36ad005479 Added

guam-0.9.11.tar.gz/.git/objects/0e Added

guam-0.9.11.tar.gz/.git/objects/0e/0c3f67ef405007fa6f9ad862a95e2b51358f6d Added

guam-0.9.11.tar.gz/.git/objects/0e/ffe810642dfcfc0ffc0316b45205a67699322b Added

guam-0.9.11.tar.gz/.git/objects/0f Added

guam-0.9.11.tar.gz/.git/objects/0f/65089ab05a0533baaab653bfa09f45b7f077b3 Added

guam-0.9.11.tar.gz/.git/objects/0f/bb9f749b50296401ef63a60c3afacc58ff7545 Added

guam-0.9.11.tar.gz/.git/objects/10 Added

guam-0.9.11.tar.gz/.git/objects/10/452717a3aa41c65fbb0dc1e486811bcf9bcf86 Added

guam-0.9.11.tar.gz/.git/objects/10/b3508ffb05c61af750bc9d839fcdaac9579f0d Added

guam-0.9.11.tar.gz/.git/objects/11 Added

guam-0.9.11.tar.gz/.git/objects/11/136df27dc5f1fcd4b3290f86c52922a9c4b39c Added

guam-0.9.11.tar.gz/.git/objects/12 Added

guam-0.9.11.tar.gz/.git/objects/12/14bf28a4448dbd9de8109fa8e62dffadcf6a41 Added

guam-0.9.11.tar.gz/.git/objects/12/2fdf35594af3f484ac61151ba362fdb8a200c2 Added

guam-0.9.11.tar.gz/.git/objects/12/5908ddbbe354ea374340a0a7ee157f817434fd Added

guam-0.9.11.tar.gz/.git/objects/12/5a35ec3b6a16071e6d082426b64771ccb0ee91 Added

guam-0.9.11.tar.gz/.git/objects/12/628108c1a9a16e5ed09e5f20e2c771266c4357 Added

guam-0.9.11.tar.gz/.git/objects/13 Added

guam-0.9.11.tar.gz/.git/objects/13/35ebe88f1f2c0b789d5179b4905cc9f76455fb Added

guam-0.9.11.tar.gz/.git/objects/13/76ac0955848b76d4101519a981eaac050a2263 Added

guam-0.9.11.tar.gz/.git/objects/13/a39a93ce847dcdbe9d0ce81a657f7e6f912aed Added

guam-0.9.11.tar.gz/.git/objects/13/e1886ccef102d5375e11a2b973e7882ce885de Added

guam-0.9.11.tar.gz/.git/objects/14 Added

guam-0.9.11.tar.gz/.git/objects/14/f54bb68a7784d1fbeca4a7edd7efa31168159b Added

guam-0.9.11.tar.gz/.git/objects/14/f58d81f4756ac29a0f4520598824d1a72283c8 Added

guam-0.9.11.tar.gz/.git/objects/15 Added

guam-0.9.11.tar.gz/.git/objects/15/11fe6b47637f0ed8cb73d96febadbc8d5a949c Added

guam-0.9.11.tar.gz/.git/objects/15/6a361829b4f77630e1cdedcd4430cfdb9827dd Added

guam-0.9.11.tar.gz/.git/objects/16 Added

guam-0.9.11.tar.gz/.git/objects/16/93f50c64b58136e70da20a3ed94148d79e9359 Added

guam-0.9.11.tar.gz/.git/objects/16/950eb6db40ca83a4cea1da6b18e61f3476c5c8 Added

guam-0.9.11.tar.gz/.git/objects/16/a05b03fe86744837bd33987dd0a5b6057edbd1 Added

guam-0.9.11.tar.gz/.git/objects/18 Added

guam-0.9.11.tar.gz/.git/objects/18/445950bb6c38afa72c5df3da604a4771c83c0b Added

guam-0.9.11.tar.gz/.git/objects/18/f6d6ce5344c7b6543c604fb6d4b986082c22cd Added

guam-0.9.11.tar.gz/.git/objects/19 Added

guam-0.9.11.tar.gz/.git/objects/19/0b8e93e6c23ac9252d71375641d3b2332c109e Added

guam-0.9.11.tar.gz/.git/objects/19/56693705136e4479815f4b2ad1d7b5d8503031 Added

guam-0.9.11.tar.gz/.git/objects/1a Added

guam-0.9.11.tar.gz/.git/objects/1a/562953cf72df3ce580d27cd166156e83231d10 Added

guam-0.9.11.tar.gz/.git/objects/1a/8e167c34781162c300cba83203d9d51f1c70e9 Added

guam-0.9.11.tar.gz/.git/objects/1a/9910266ac6f0a740288abe7140d9166a03b480 Added

guam-0.9.11.tar.gz/.git/objects/1b Added

guam-0.9.11.tar.gz/.git/objects/1b/34548d4e932cdd79cb57ef4b97578147177f3d Added

guam-0.9.11.tar.gz/.git/objects/1b/4048b32e5e2dbaddbd73871fb94e7e6bd172d0 Added

guam-0.9.11.tar.gz/.git/objects/1b/40a4e12693ce6db1c1a08c3800d0c5def70a74 Added

guam-0.9.11.tar.gz/.git/objects/1b/6a7c150b3b39a00229b6a18c7ac388a0618f8d Added

guam-0.9.11.tar.gz/.git/objects/1b/ab185342e54bae9e1c42715edbee2a195d0f1e Added

guam-0.9.11.tar.gz/.git/objects/1b/b7577fc4413377746d46904434b636aca44356 Added

guam-0.9.11.tar.gz/.git/objects/1b/e6b263a3d8e00a13798ff0017097d5ed547a1b Added

guam-0.9.11.tar.gz/.git/objects/1c Added

guam-0.9.11.tar.gz/.git/objects/1c/9890211d9e19a88ca2276b7f935faa52223dc9 Added

guam-0.9.11.tar.gz/.git/objects/1c/b13b9aaebd15b61d698849bb09956a8864e33a Added

guam-0.9.11.tar.gz/.git/objects/1d Added

guam-0.9.11.tar.gz/.git/objects/1d/6832c0a0e75d951498fdddb07122cc33684a8d Added

guam-0.9.11.tar.gz/.git/objects/1d/dc3e376845b11b6d1761d7a500175f6903ea86 Added

guam-0.9.11.tar.gz/.git/objects/1d/e2cb90afff4f34c7d873cd43231ef064ec33f7 Added

guam-0.9.11.tar.gz/.git/objects/1e Added

guam-0.9.11.tar.gz/.git/objects/1e/231ccb72dc2d0fdb58af62b534454f53b8b428 Added

guam-0.9.11.tar.gz/.git/objects/1f Added

guam-0.9.11.tar.gz/.git/objects/1f/196a150d78031f46ca1840989ef7d6155530ad Added

guam-0.9.11.tar.gz/.git/objects/20 Added

guam-0.9.11.tar.gz/.git/objects/20/00d601f756d1a3947f565d93d5e7f30b7ad124 Added

guam-0.9.11.tar.gz/.git/objects/20/d5028c46c41debb364f087f6ab63d3424c5b52 Added

guam-0.9.11.tar.gz/.git/objects/21 Added

guam-0.9.11.tar.gz/.git/objects/21/491d03c402ed8482e98ba322988b65fd2e4ad7 Added

guam-0.9.11.tar.gz/.git/objects/21/517e34d6de7a85e72c315741d49a31229acbc4 Added

guam-0.9.11.tar.gz/.git/objects/22 Added

guam-0.9.11.tar.gz/.git/objects/22/300f1034294ace2fe01ba3b62e67a6b668be30 Added

guam-0.9.11.tar.gz/.git/objects/22/9d89edc24142cd3a7b97304a084efe24ac5d15 Added

guam-0.9.11.tar.gz/.git/objects/23 Added

guam-0.9.11.tar.gz/.git/objects/23/c0fdb3c57b7d9d18131b6ace6d2a1ca7e57e81 Added

guam-0.9.11.tar.gz/.git/objects/24 Added

guam-0.9.11.tar.gz/.git/objects/24/e45fab7e0bffd1e3c94231de0584ff5fbf145e Added

guam-0.9.11.tar.gz/.git/objects/25 Added

guam-0.9.11.tar.gz/.git/objects/25/966e52e73fe2e7c42d6fc491b72bee48ac0bde Added

@@ -0,0 +1,5 @@
+x&#x1;ÝWKoÛ0&#xc;Þ9¿0àçÆ]¶ÇíÜz,&#x2;Cq&#x14;×¨b&#x19;²Ý.&#x13;òßGú¡ÈNb'[7&#x14;KÔHü>>¤¥Kør7
>=MÀuáñëã&#x3;D2]'ñ&#x4;tÎrá&#x1;î´j%äJI&#x15;
+&#x19;Ç\y ×à&#x1e;8ø~E
+«m&#x1f;_ÝÎ³tq&#x1d;&#x17;Ãb¡x%Ôß6VÃÍ:\%hÜXuv^í&#xb;&#xf;2&#x6;ÜäQ!Õ¶k¿c`Ã~,·&#x5;Ï=&#x8;¦7w³Ûù´²áâ+|ÿ&#x6;¸
ä:äÉO>lÄÐÌl×âÿ]Uê9&#x19;2ê&#xb;&#xc;IÃ&#x14;l&#x19;Æ%ÛPü5~&#x1a;
ËÂ«W®ÐjcUÃ¯Y)cÖ/W&#x1a;eNp&#x7f;í&#x7;ó;&#x7f;6÷iài_ÉüP&&#x15;ê&#x6;7_Î&#x13;/&#x4;:JØ8X^&#x1c;l&#x1e;q¥Á&ß&#x1e;E oÕ&#x4;IÐù&#x15;ª¨éGró&#x17;ãÌ&#xb;¦
+øý¢MåÛEî£EÍ£½¿¿ÕBü]"&#x15;2b¢ÎÉÃÔ>Ilp}ëOñï²Äý&#x7;!v¹Ní&5$/xz¤Ï«`
MùÕ_§exmw&#x18;,Y
ª¬zÕ8&#x7;È¦&#xe;Vp&#x15;ÆJÙ&#x1b;SØ&#x16;ÃéÐPyXíã#eoööà"¤ÞKýy$(,Ç°Jè º&#x1d;qU4cç&#x17;ÑU&#xb;=Lp?ãÔ&#x1c;` ®ë=o
aÕô&#x6;`44eã&#x7f;Ic`'QRÔ0Õ]Ä&#x1a;öðæAÃ&#x5;&#x14;&#x12;»Ôàè&#x17;¾=Á3îü&#x19;Ïí8&#x19;lÍ&#x16;É7#9jw¯>&#x1;à¬&#x1a;ÑùèÅúáH;kÊX¤Í&#x8;è&#x15;¦±=¬s6g¿Ý]»
Ê.¥]g,Ù;]¦V%ûÈ9Äm>&#xc;Áaª£iR9é&#x1e;Am75&#x13;9;Nw&#xb;&#x6;Ù)O&#x1b;oÓÀÊUBçíqÑ
+C&#x17;b³&#xf;&#x3;qtz{:k1z_LP&#x8;Ç$£Ë&#x15;¾×&#x13;H&#x1b;dYº&#x12;tö0+Ý&#x19;Õ¨Ò¸Ì¥àáE/<]ÑñaYÆ}W[ij²{Q&#x1a;±MÛ¥[u¡£,ø+ÇkaµZOÚ½/ÊY6&#x1b;÷êk¢eµñ²3¿krè{áO&®«+pBl¯t4&#x1;>9tãr<¼%è_®%]Ç~&#x1;hI=j
\ No newline at end of file

guam-0.9.11.tar.gz/.git/objects/26 Added

guam-0.9.11.tar.gz/.git/objects/26/041e8dc5517b18f02d308e5233fce9bfc0ec50 Added

guam-0.9.11.tar.gz/.git/objects/26/0a36a958e09e9e3d6eb77afe2b20c048b9138e Added

guam-0.9.11.tar.gz/.git/objects/26/19a1b5a16b2faf147df108aa0b928f4e8108e6 Added

guam-0.9.11.tar.gz/.git/objects/26/602ae29503ceb925fb95976c0fed9c83383e3a Added

guam-0.9.11.tar.gz/.git/objects/26/e20b6357c26e18fd9b70bde47d8144f3e875eb Added

guam-0.9.11.tar.gz/.git/objects/26/e52493affec069fa266d4d54c6faace1bf9eb0 Added

guam-0.9.11.tar.gz/.git/objects/27 Added

guam-0.9.11.tar.gz/.git/objects/27/0ef0334e344cf5c14e93ced501fee9392beb35 Added

guam-0.9.11.tar.gz/.git/objects/28 Added

guam-0.9.11.tar.gz/.git/objects/28/40357a0ee00a0519a63072cb859d10fb904d27 Added

guam-0.9.11.tar.gz/.git/objects/28/9b22ea93ce154dcb8db28d1df5f4e551d6f601 Added

guam-0.9.11.tar.gz/.git/objects/29 Added

guam-0.9.11.tar.gz/.git/objects/29/1989a64dd095ad3c86dd146153d890bd2a6020 Added

guam-0.9.11.tar.gz/.git/objects/29/7cec012c80a73db6bcc8028382e55605961fa8 Added

guam-0.9.11.tar.gz/.git/objects/29/9374b0f2c1c8335c4f98281b86fa24ef904a6a Added

guam-0.9.11.tar.gz/.git/objects/29/b8f85d65c27dfe4806241d78c3a65a8170652f Added

guam-0.9.11.tar.gz/.git/objects/29/d4016c3ac45d429581da4a31654a8c8c0ec1b2 Added

guam-0.9.11.tar.gz/.git/objects/2a Added

guam-0.9.11.tar.gz/.git/objects/2a/13dcdb692af63e1e4bd04edfd4b0b9546a8a8c Added

guam-0.9.11.tar.gz/.git/objects/2a/628a6cb77d7c52208068c913b76b025461ac6b Added

guam-0.9.11.tar.gz/.git/objects/2a/c8439718327f5ae310b2bbd74b686f13886beb Added

guam-0.9.11.tar.gz/.git/objects/2b Added

guam-0.9.11.tar.gz/.git/objects/2b/13c19c3227dd762633eb4fc5b50a24c97186f3 Added

guam-0.9.11.tar.gz/.git/objects/2b/bbcb3552b5f12fdcccc3e6babd3a83e0eded97 Added

guam-0.9.11.tar.gz/.git/objects/2c Added

guam-0.9.11.tar.gz/.git/objects/2c/5ea88a5c594fcd83c94269ce46f25b7d7f45e7 Added

guam-0.9.11.tar.gz/.git/objects/2c/645e6c97efc78351136582e6edc89d9b791c4f Added

guam-0.9.11.tar.gz/.git/objects/2d Added

guam-0.9.11.tar.gz/.git/objects/2d/2345c81ddf6557a20d3820189a0f7a7f630cec Added

guam-0.9.11.tar.gz/.git/objects/2d/3f56ad4d3bdbab799f18b6f5c3d5412eea84cd Added

guam-0.9.11.tar.gz/.git/objects/2d/52a033e1d03c58be3f26cc197f60a81502dcdc Added

guam-0.9.11.tar.gz/.git/objects/2d/a8660633b6bdb9dacea29b81054195cc5fc986 Added

guam-0.9.11.tar.gz/.git/objects/2e Added

guam-0.9.11.tar.gz/.git/objects/2e/1892dcb8abe08fd6360c2fa4edddbc16f563be Added

guam-0.9.11.tar.gz/.git/objects/2e/68f3c126870fab5caf58a2732982f308a4d1b2 Added

guam-0.9.11.tar.gz/.git/objects/2e/e69f162d9b72c087e87e8fc112110d243c0ce4 Added

guam-0.9.11.tar.gz/.git/objects/2e/e7b8a77ad2191718410aba6363675637f49658 Added

guam-0.9.11.tar.gz/.git/objects/2f Added

guam-0.9.11.tar.gz/.git/objects/2f/be6c77b27e222246bb1880167ee59890e781e4 Added

guam-0.9.11.tar.gz/.git/objects/2f/eaf88f233213094b158e4651ea3e5cbb6f957d Added

guam-0.9.11.tar.gz/.git/objects/30 Added

guam-0.9.11.tar.gz/.git/objects/30/942178220582229f1e0902f96167c7310e842e Added

guam-0.9.11.tar.gz/.git/objects/30/a97860e14291164c4f65530031672a5ada3a37 Added

guam-0.9.11.tar.gz/.git/objects/30/bd11d5bf69e36464fc64c35f33821ca31065cd Added

guam-0.9.11.tar.gz/.git/objects/30/d7546548f67c95fbb6ab22c0ae926c4676e710 Added

guam-0.9.11.tar.gz/.git/objects/31 Added

guam-0.9.11.tar.gz/.git/objects/31/0d11f5d44d12617a97cd990437aa0e3c67b4b6 Added

guam-0.9.11.tar.gz/.git/objects/32 Added

guam-0.9.11.tar.gz/.git/objects/32/110e0dd2c0d3fe15b69212ebb9e641c90148fc Added

guam-0.9.11.tar.gz/.git/objects/32/3fd354c2fff01712864f11604e8d524b89f81d Added

guam-0.9.11.tar.gz/.git/objects/32/7db4756cf64945b909d49e50a49fc5fd4f4f88 Added

guam-0.9.11.tar.gz/.git/objects/32/abcf42f9eb1196ef8017af79cc3d402469e46f Added

guam-0.9.11.tar.gz/.git/objects/34 Added

guam-0.9.11.tar.gz/.git/objects/34/811d1829a4f43ed862d74136e71c82638f78af Added

guam-0.9.11.tar.gz/.git/objects/35 Added

guam-0.9.11.tar.gz/.git/objects/35/48970088aff0a9fb9b0a8679ea16c240f55f14 Added

guam-0.9.11.tar.gz/.git/objects/35/66948f3cc6f4697eb82e2f8106133538ed7dc4 Added

guam-0.9.11.tar.gz/.git/objects/35/f025df92c008bd3147b314720f963db268b6f4 Added

guam-0.9.11.tar.gz/.git/objects/36 Added

guam-0.9.11.tar.gz/.git/objects/36/ec8a50d839c19d120a15601c4caa02445514aa Added

guam-0.9.11.tar.gz/.git/objects/37 Added

guam-0.9.11.tar.gz/.git/objects/37/90da63ba68f3d03fa2b24d5ae74fdc5d9d1896 Added

guam-0.9.11.tar.gz/.git/objects/38 Added

guam-0.9.11.tar.gz/.git/objects/38/3e5f4cbfc6249de9e6a2d29c7b0a140ea3a1b4 Added

guam-0.9.11.tar.gz/.git/objects/38/9974cbfec85b0719a2727290b560b7a5d29bd8 Added

guam-0.9.11.tar.gz/.git/objects/38/f6235747a7528cba9a2bb84453e143653215c5 Added

guam-0.9.11.tar.gz/.git/objects/3a Added

guam-0.9.11.tar.gz/.git/objects/3a/493dca6c880c9fea961f6f29f2e345ad0bfb21 Added

guam-0.9.11.tar.gz/.git/objects/3a/64b0280fe36e9845cd3defca0dfffe0e5dfea9 Added

guam-0.9.11.tar.gz/.git/objects/3a/9d68b90a176e2c64437a9b7fafd18389973d06 Added

guam-0.9.11.tar.gz/.git/objects/3b Added

guam-0.9.11.tar.gz/.git/objects/3b/65e853d42b14214adc4ad654ae342e00eb1dfb Added

guam-0.9.11.tar.gz/.git/objects/3c Added

guam-0.9.11.tar.gz/.git/objects/3c/bd5f425b7edb78b55c2c8e4cc5202a5e8fd5ae Added

guam-0.9.11.tar.gz/.git/objects/3c/e8e4b5ba63f08c2f2125355fe5a30a5194bf45 Added

guam-0.9.11.tar.gz/.git/objects/3d Added

guam-0.9.11.tar.gz/.git/objects/3d/1699ab95a080c233c5984a24b7a9c59e25c6a7 Added

guam-0.9.11.tar.gz/.git/objects/3e Added

guam-0.9.11.tar.gz/.git/objects/3e/2e61bee5de435b8781311006842dd6b0d7987d Added

guam-0.9.11.tar.gz/.git/objects/3e/3df750bcfe58f716bd4f19be04bc6a23f2eaf2 Added

guam-0.9.11.tar.gz/.git/objects/3e/85fbfb5104eec5fd23523eec97a6bc90aa2e14 Added

guam-0.9.11.tar.gz/.git/objects/3f Added

guam-0.9.11.tar.gz/.git/objects/3f/1c8b8071ecf11355e0c131b8274c6f19b81f6a Added

guam-0.9.11.tar.gz/.git/objects/3f/20f2a970886abe25266ffb39e71828e1dde090 Added

guam-0.9.11.tar.gz/.git/objects/3f/8136e9ece4b37aa68b063cfdb0f848c21a6c3a Added

guam-0.9.11.tar.gz/.git/objects/3f/818b38721b66e96c612d6154d2b6aa5d533947 Added

guam-0.9.11.tar.gz/.git/objects/40 Added

guam-0.9.11.tar.gz/.git/objects/40/054f14c6438f28593f5a1cf1288eef070f7cda Added

guam-0.9.11.tar.gz/.git/objects/40/6d19038926d0ca090fa1b2048dd77baba078be Added

guam-0.9.11.tar.gz/.git/objects/40/8d733ccfb1a339a43fd49bbcc44aa5b71f2371 Added

guam-0.9.11.tar.gz/.git/objects/40/a09f20fc0ca51189ee74f803be293a93a374e2 Added

guam-0.9.11.tar.gz/.git/objects/40/e4d03d353c8dd669437235deb846131a558130 Added

guam-0.9.11.tar.gz/.git/objects/41 Added

guam-0.9.11.tar.gz/.git/objects/41/79ded474f1b44b58632a5168e4ffdc5f3e8fcb Added

guam-0.9.11.tar.gz/.git/objects/41/a18961bb89fcd7c43ff1668805d73590589879 Added

guam-0.9.11.tar.gz/.git/objects/41/be0b5a042a45ba0b36b8904145042950a4e47a Added

guam-0.9.11.tar.gz/.git/objects/42 Added

guam-0.9.11.tar.gz/.git/objects/42/19b34e8723abc6f4ee176f5dd21527699a93b0 Added

guam-0.9.11.tar.gz/.git/objects/43 Added

guam-0.9.11.tar.gz/.git/objects/43/1f30d624bae1e3e94210ae3ffdf39d3adc21a3 Added

guam-0.9.11.tar.gz/.git/objects/43/4b4e9f0c7a120c21c99a5e41452110ad3a359a Added

guam-0.9.11.tar.gz/.git/objects/43/51d3734154a5e49c19f2044ce095805fe0a9c0 Added

guam-0.9.11.tar.gz/.git/objects/43/983779880dfc77b5c4de413d36804ab65ebe7b Added

guam-0.9.11.tar.gz/.git/objects/44 Added

guam-0.9.11.tar.gz/.git/objects/44/13b40813c67decf482d5c8be76398b8754ea84 Added

guam-0.9.11.tar.gz/.git/objects/44/c14a9390ceac5a6bb886fd2e28af121f687c9d Added

guam-0.9.11.tar.gz/.git/objects/45 Added

guam-0.9.11.tar.gz/.git/objects/45/01c57388ba13a59ff88702b22ff9a982be670a Added

guam-0.9.11.tar.gz/.git/objects/45/35c86eb0738dafa7a242bc89973c3b7a335ebc Added

guam-0.9.11.tar.gz/.git/objects/45/9c34656d8c75ee92574ae376cab638bee1e943 Added

guam-0.9.11.tar.gz/.git/objects/46 Added

guam-0.9.11.tar.gz/.git/objects/46/a500fe8c8fa4e2ba7ca0f40515a89a731f4854 Added

guam-0.9.11.tar.gz/.git/objects/46/a95a9047f08dd9f7809581caeeaf4da15bdc22 Added

guam-0.9.11.tar.gz/.git/objects/46/b5e247d1a0153b7bdc00cfa917675e8184594b Added

guam-0.9.11.tar.gz/.git/objects/46/e9d626a98fc5f3643066be6e3e042950940838 Added

guam-0.9.11.tar.gz/.git/objects/47 Added

guam-0.9.11.tar.gz/.git/objects/47/1fc5fb27e227ec7e11b40bbef0035b3dcb51cf Added

guam-0.9.11.tar.gz/.git/objects/47/a6bdd6305da878814636fffab2d74ec4facd4f Added

guam-0.9.11.tar.gz/.git/objects/47/aff101200a36432f0cc18074fbfefacf29c8d0 Added

guam-0.9.11.tar.gz/.git/objects/47/e1e05a83b498f1dbbaa0888b80f8bb3bc67816 Added

guam-0.9.11.tar.gz/.git/objects/48 Added

guam-0.9.11.tar.gz/.git/objects/48/1d53a4012cbcaf46610ee9e0bd0746f845b9d0 Added

guam-0.9.11.tar.gz/.git/objects/48/4c2c86147ecc3a81fc8ca7ef02c3b35ee7b63c Added

guam-0.9.11.tar.gz/.git/objects/48/91f2063ed2b1fc82f38a64c3ce8c87775dbf90 Added

guam-0.9.11.tar.gz/.git/objects/48/a9dcae2fb7c5acfa17d55de0118163b203e04f Added

guam-0.9.11.tar.gz/.git/objects/49 Added

guam-0.9.11.tar.gz/.git/objects/49/e22a83ba2331e9bc819777082cf7999501ee8a Added

guam-0.9.11.tar.gz/.git/objects/4a Added

guam-0.9.11.tar.gz/.git/objects/4a/292a7e1d2dc62c5fd357dedef74834ee4d5483 Added

guam-0.9.11.tar.gz/.git/objects/4a/cb46a3b2abfdbf5e9566bb0b6f09d264f0b02f Added

guam-0.9.11.tar.gz/.git/objects/4b Added

guam-0.9.11.tar.gz/.git/objects/4b/21af4ec4fb8ee4eebc8571416de98bb7e8ff85 Added

guam-0.9.11.tar.gz/.git/objects/4b/59af357c2e399766603b2f96983812d6fbfe91 Added

guam-0.9.11.tar.gz/.git/objects/4b/e24b047f7532a7313215063266a87492ae7800 Added

guam-0.9.11.tar.gz/.git/objects/4b/f1bb21161dcddf2c71046b2f5e525acd90b17b Added

guam-0.9.11.tar.gz/.git/objects/4c Added

guam-0.9.11.tar.gz/.git/objects/4c/3e32f09a8a90cc009e5ac61b412871054b803f Added

guam-0.9.11.tar.gz/.git/objects/4c/73f623539ab66d7d014c523354582d976ba858 Added

guam-0.9.11.tar.gz/.git/objects/4c/da528993c870b3f3689818b012a642e6a61387 Added

guam-0.9.11.tar.gz/.git/objects/4c/dd7cae329543ac8a02fa35bfc94c38f376f433 Added

guam-0.9.11.tar.gz/.git/objects/4c/f1f37d2f9a21d4f62b8de001f1cbcc71565faa Added

guam-0.9.11.tar.gz/.git/objects/4d Added

guam-0.9.11.tar.gz/.git/objects/4d/a532c1126351fd693e1e54bde36fb2b9a77cc1 Added

guam-0.9.11.tar.gz/.git/objects/4d/cf71405e5e7456de7380bfd7fd7631a9dfe273 Added

guam-0.9.11.tar.gz/.git/objects/4d/da6913672488e4d2cf69aeb4e2e87142bceb7b Added

guam-0.9.11.tar.gz/.git/objects/4e Added

guam-0.9.11.tar.gz/.git/objects/4e/2cfe25c0b4b1fcfdfcab673e6f260e8f77c2c2 Added

guam-0.9.11.tar.gz/.git/objects/4e/e70200f1ccdfb51785d6d261bdbe94db55e15a Added

guam-0.9.11.tar.gz/.git/objects/4f Added

guam-0.9.11.tar.gz/.git/objects/4f/9264973af37f809a9ae27922021f18d4e32772 Added

guam-0.9.11.tar.gz/.git/objects/4f/aa465fa3f8ec25cf6d482200ffac4c4f0ef20e Added

guam-0.9.11.tar.gz/.git/objects/50 Added

guam-0.9.11.tar.gz/.git/objects/50/857b666e14670924550427d103585079ea7e14 Added

guam-0.9.11.tar.gz/.git/objects/51 Added

guam-0.9.11.tar.gz/.git/objects/51/04c5e5ff5e21daea07369aa727858010a82f0e Added

guam-0.9.11.tar.gz/.git/objects/51/542a625d9b8958e09513da8a37008ef1f4ee87 Added

guam-0.9.11.tar.gz/.git/objects/51/fa60e82620d1014f4e963d6ca1ad0765506258 Added

guam-0.9.11.tar.gz/.git/objects/52 Added

guam-0.9.11.tar.gz/.git/objects/52/5efb4f0de8f6701e7e65c1fb2d77709ee4aed3 Added

guam-0.9.11.tar.gz/.git/objects/52/e50c004173a6d91a3555d316361bb7c01ddf92 Added

guam-0.9.11.tar.gz/.git/objects/53 Added

guam-0.9.11.tar.gz/.git/objects/53/8cae8c773a374b522daaa6ccb715d95386d152 Added

guam-0.9.11.tar.gz/.git/objects/53/bea826905411e94f6fe2163ceb1f662b9eec04 Added

guam-0.9.11.tar.gz/.git/objects/54 Added

guam-0.9.11.tar.gz/.git/objects/54/61f4ca7bd8597a494de5097fe89c497d471dc2 Added

guam-0.9.11.tar.gz/.git/objects/54/624006e75e7d6c16c92f162bf3055d06e932b6 Added

guam-0.9.11.tar.gz/.git/objects/54/7e4838fb4ed5d265da2be706d6ca106c373b38 Added

guam-0.9.11.tar.gz/.git/objects/56 Added

guam-0.9.11.tar.gz/.git/objects/56/202a7f0bbf483d366a770a4e800de158f484ea Added

guam-0.9.11.tar.gz/.git/objects/57 Added

guam-0.9.11.tar.gz/.git/objects/57/b938b4628bd7c16b7109c7f998b4a0b4849e14 Added

guam-0.9.11.tar.gz/.git/objects/57/da4f02a363949477ed069f277e528c559c86f1 Added

guam-0.9.11.tar.gz/.git/objects/58 Added

guam-0.9.11.tar.gz/.git/objects/58/241e848d4caf80c9d7aee00f1bcdaab9c7cf0a Added

guam-0.9.11.tar.gz/.git/objects/5a Added

guam-0.9.11.tar.gz/.git/objects/5a/045e5e7607f6e6cc34ab8326269ebe7336b186 Added

guam-0.9.11.tar.gz/.git/objects/5a/5da974af73852dffbade70527830a2e6ed7966 Added

guam-0.9.11.tar.gz/.git/objects/5a/69a998638ffdc683c4c34c3cf6fc0947616b2c Added

guam-0.9.11.tar.gz/.git/objects/5a/6c5d6ff8a835ac6cb4fa3c675e6f47c2ccdde0 Added

guam-0.9.11.tar.gz/.git/objects/5a/80ababe7a3c378d57f6f86df2cfc09b35e8849 Added

guam-0.9.11.tar.gz/.git/objects/5a/e2a880640d7a0bbd051a504924e1deba5abf2c Added

guam-0.9.11.tar.gz/.git/objects/5a/e35bc8a5d33bd6b182159b777a6b836751f747 Added

guam-0.9.11.tar.gz/.git/objects/5b Added

guam-0.9.11.tar.gz/.git/objects/5b/06816223d6fc72316f41cc9dadb6f5816e034b Added

guam-0.9.11.tar.gz/.git/objects/5b/7a7422f32f7aaae6aa274a0070d9b182b09fe8 Added

guam-0.9.11.tar.gz/.git/objects/5b/7fb2c50267e3825a78b0f95b56c8e68018d65f Added

guam-0.9.11.tar.gz/.git/objects/5b/8433eb707eec9aa6205bdf2fac671814eaaaca Added

guam-0.9.11.tar.gz/.git/objects/5c Added

guam-0.9.11.tar.gz/.git/objects/5c/1ff07bce50c8a646259c9bd9f7b8b7d67325d8 Added

guam-0.9.11.tar.gz/.git/objects/5c/2d23804f31586e2a2a4abc5d433c0d77afc4ff Added

guam-0.9.11.tar.gz/.git/objects/5c/f3bb64dd3dd8ba41a80a975e70bcffaabdac05 Added

guam-0.9.11.tar.gz/.git/objects/5d Added

guam-0.9.11.tar.gz/.git/objects/5d/cb45e3ee9924ce92b36997690fbf084bf2d0e4 Added

guam-0.9.11.tar.gz/.git/objects/5d/cf507986e63a4d1940eec23704a13e8b213cbf Added

guam-0.9.11.tar.gz/.git/objects/5e Added

guam-0.9.11.tar.gz/.git/objects/5e/55a25bb410f14311893d0a965cf8ea69b327f2 Added

guam-0.9.11.tar.gz/.git/objects/5e/b8258d479d18723fc8801b5961d0e034bb0d3b Added

guam-0.9.11.tar.gz/.git/objects/5e/fd7863c40a3899ffa59b437a9ef93c03ed01c9 Added

guam-0.9.11.tar.gz/.git/objects/5f Added

guam-0.9.11.tar.gz/.git/objects/5f/d16f074f2aaf031d96884c43cd8fce918e9aa8 Added

guam-0.9.11.tar.gz/.git/objects/60 Added

guam-0.9.11.tar.gz/.git/objects/60/3e7432c69250e43220810e58b52f3a6adcb212 Added

guam-0.9.11.tar.gz/.git/objects/60/551a8f40363548fe0caf391a65cf66646ef556 Added

guam-0.9.11.tar.gz/.git/objects/61 Added

guam-0.9.11.tar.gz/.git/objects/61/67efbe103f8d38c09e076a79d804e836d1ba4e Added

guam-0.9.11.tar.gz/.git/objects/61/9504a342a7136d2c6d328ae9bf5c914212422c Added

guam-0.9.11.tar.gz/.git/objects/61/9fdf5803c342c77d80a9aee5e8566e7b20ff3c Added

guam-0.9.11.tar.gz/.git/objects/61/e81e6286dea97cbbdf95f3e5fa2fcaecb91503 Added

guam-0.9.11.tar.gz/.git/objects/62 Added

guam-0.9.11.tar.gz/.git/objects/62/1f0fd3529bb76fee0377af41dc105e606b29fc Added

guam-0.9.11.tar.gz/.git/objects/62/f92fb372ed56b463174fa661f00c8593e95c3e Added

guam-0.9.11.tar.gz/.git/objects/63 Added

guam-0.9.11.tar.gz/.git/objects/63/21e29f901fceba8a9bfb2e5c5b45871b41fd2e Added

guam-0.9.11.tar.gz/.git/objects/63/652c59d7330811cd53e7be466bd4048624bae0 Added

guam-0.9.11.tar.gz/.git/objects/63/70bbbf4e1707548b7434272cb95016d930acaf Added

guam-0.9.11.tar.gz/.git/objects/63/7d4ae6a86d7f50d24571568611658d0fd5a392 Added

guam-0.9.11.tar.gz/.git/objects/63/84a8cfaacd27c04577527bbd94ab38bd7b5c75 Added

guam-0.9.11.tar.gz/.git/objects/64 Added

guam-0.9.11.tar.gz/.git/objects/64/6c0e3c6fdeb67c1e37dc988d7628e4b933703d Added

guam-0.9.11.tar.gz/.git/objects/64/8ede3ca5446c0a185f363ae3d8bc921dc9bd5e Added

guam-0.9.11.tar.gz/.git/objects/64/9721f4edc645a11e5afd1fecf2bbe9e5a37e8a Added

guam-0.9.11.tar.gz/.git/objects/64/c19671804d2163250639822345fb3c1e213361 Added

guam-0.9.11.tar.gz/.git/objects/65 Added

guam-0.9.11.tar.gz/.git/objects/65/19f277d794d0ab456785c7d06c0aec6c1e5d90 Added

guam-0.9.11.tar.gz/.git/objects/65/216eb88b428f19f364210a82fc43722837d448 Added

guam-0.9.11.tar.gz/.git/objects/65/76251e1ef122dd22d2d78469ff2075b861bb51 Added

guam-0.9.11.tar.gz/.git/objects/65/ed9c2422985269d688b76a67184b4900e5fcfd Added

guam-0.9.11.tar.gz/.git/objects/66 Added

guam-0.9.11.tar.gz/.git/objects/66/6bb1d0fc11be0a3ca7e3d0c2c199a68b2a5907 Added

guam-0.9.11.tar.gz/.git/objects/67 Added

guam-0.9.11.tar.gz/.git/objects/67/3ec42a9a36f787a11ed0eaf83b4657ca1e8414 Added

guam-0.9.11.tar.gz/.git/objects/67/da90711ea47476298e4a9b17ccd081bee719a5 Added

guam-0.9.11.tar.gz/.git/objects/67/f7270c60edb27405363279d2250dd24050b375 Added

guam-0.9.11.tar.gz/.git/objects/68 Added

guam-0.9.11.tar.gz/.git/objects/68/902d006e375233721931fb9c52889b9b2fa5b4 Added

guam-0.9.11.tar.gz/.git/objects/68/b6feb0b75e78745f768817a7d197f6362aa229 Added

guam-0.9.11.tar.gz/.git/objects/69 Added

guam-0.9.11.tar.gz/.git/objects/69/10ee024a49029a62c1298a77a2774c5f7eb85d Added

guam-0.9.11.tar.gz/.git/objects/69/2ee27800df740658f81fec7f0127e359edcd4b Added

guam-0.9.11.tar.gz/.git/objects/6a Added

guam-0.9.11.tar.gz/.git/objects/6a/7dfc9e36f3f40f52559cb22d1fe3f8936b4ca9 Added

guam-0.9.11.tar.gz/.git/objects/6a/9e95b798e78b5a7346bc5b4008c95df2a607b0 Added

guam-0.9.11.tar.gz/.git/objects/6a/ea2a688969c15c237d51b40cd32a19d386b01e Added

guam-0.9.11.tar.gz/.git/objects/6b Added

guam-0.9.11.tar.gz/.git/objects/6b/02d49ec42cab195a2f7750cb0b77eae719305f Added

guam-0.9.11.tar.gz/.git/objects/6b/3231622fffa9d773a0c08f27e51c6b6ef44eb7 Added

guam-0.9.11.tar.gz/.git/objects/6b/4d17b571b1ea823b3a7348964c24019a3321bd Added

guam-0.9.11.tar.gz/.git/objects/6b/b4cf8b453e8e2fe56b0f414037941f0cbed8d2 Added

guam-0.9.11.tar.gz/.git/objects/6c Added

guam-0.9.11.tar.gz/.git/objects/6c/293e726aabd3cb9342fbebc1e0283085cd1039 Added

guam-0.9.11.tar.gz/.git/objects/6c/37bea13ff021ceac6223c75208127a754a3f09 Added

guam-0.9.11.tar.gz/.git/objects/6c/3adfc2d9f01bab4dca2a155d10c672bbc1a46c Added

guam-0.9.11.tar.gz/.git/objects/6c/e7b5a1e6254dc2b187a1826c863f2b0dff5b9a Added

guam-0.9.11.tar.gz/.git/objects/6c/f3ce818e8b0ae6a496385ff7530d6f827a2ade Added

guam-0.9.11.tar.gz/.git/objects/6e Added

guam-0.9.11.tar.gz/.git/objects/6e/02526ad1e410daa43e99494aca42ed6d0a1edf Added

guam-0.9.11.tar.gz/.git/objects/6f Added

guam-0.9.11.tar.gz/.git/objects/6f/7af7f15ad2106a8921dd4eb863eddef59601d2 Added

guam-0.9.11.tar.gz/.git/objects/6f/fc6ac9c84771587c40eef05b86bcc3476fe5be Added

guam-0.9.11.tar.gz/.git/objects/71 Added

guam-0.9.11.tar.gz/.git/objects/71/2bcd5b710c6fdef1e3acd579082759b015262f Added

guam-0.9.11.tar.gz/.git/objects/71/6dd46c45c4f02602569b83da5258ddcd8735cf Added

guam-0.9.11.tar.gz/.git/objects/71/7222207d4556f2f0f2ac303e4070c35ff478f2 Added

guam-0.9.11.tar.gz/.git/objects/72 Added

guam-0.9.11.tar.gz/.git/objects/72/dbfe3ebbee1cfcc8331e2685d30ae45a373bd9 Added

guam-0.9.11.tar.gz/.git/objects/73 Added

guam-0.9.11.tar.gz/.git/objects/73/316f4a70bd6284e13bf280725ac1897e2dbaac Added

guam-0.9.11.tar.gz/.git/objects/73/aebae79c46d02a9f5562b63976de6c3e91a60c Added

guam-0.9.11.tar.gz/.git/objects/74 Added

guam-0.9.11.tar.gz/.git/objects/74/96121fc3d6db9d3b425b30bad6889c0c17f3c0 Added

guam-0.9.11.tar.gz/.git/objects/74/ffaa089c18bc0bb67e9b832f6f400145d0b942 Added

guam-0.9.11.tar.gz/.git/objects/75 Added

guam-0.9.11.tar.gz/.git/objects/75/6650e53fcf6c400178dcb39aa78e4b9a2fb3a1 Added

guam-0.9.11.tar.gz/.git/objects/76 Added

guam-0.9.11.tar.gz/.git/objects/76/d6046aafe6f81fca1b354a708d2c5788030bea Added

guam-0.9.11.tar.gz/.git/objects/76/d8fea62ccbfbb59078c540e385dcab10c5aa2f Added

guam-0.9.11.tar.gz/.git/objects/77 Added

guam-0.9.11.tar.gz/.git/objects/77/0cffdc99ee440aa31ea3cc6021d8fda5276104 Added

guam-0.9.11.tar.gz/.git/objects/78 Added

guam-0.9.11.tar.gz/.git/objects/78/1233417210a09cad4ad7530a9c053054eafa2a Added

guam-0.9.11.tar.gz/.git/objects/78/238e384ac178e09196a2b3e148e7b003684262 Added

guam-0.9.11.tar.gz/.git/objects/78/e09a87783e1b3565887d444ad810fd9ea8b5cf Added

guam-0.9.11.tar.gz/.git/objects/79 Added

guam-0.9.11.tar.gz/.git/objects/79/5543472842055f232456fe4621a179faaada8c Added

guam-0.9.11.tar.gz/.git/objects/7a Added

guam-0.9.11.tar.gz/.git/objects/7a/1327058ead7a11e9f0cf3d8ce4ed579fd5c10b Added

guam-0.9.11.tar.gz/.git/objects/7a/5de6aca4d48e710ed166cf11ed9ee9df1ee465 Added

guam-0.9.11.tar.gz/.git/objects/7a/7daf53d00219dfae1616a4e7327de72251aa07 Added

guam-0.9.11.tar.gz/.git/objects/7a/f2c0d8003e06eff0441eaf6ccd3230d05178b4 Added

guam-0.9.11.tar.gz/.git/objects/7b Added

guam-0.9.11.tar.gz/.git/objects/7b/0231f7a9194cc51e92d5494387dd07818559c2 Added

guam-0.9.11.tar.gz/.git/objects/7b/b475479d74862a4eb928a3cbb5f62db32177d3 Added

guam-0.9.11.tar.gz/.git/objects/7b/c18c4acb1b947145b919926d7701ba53fde4a9 Added

guam-0.9.11.tar.gz/.git/objects/7c Added

guam-0.9.11.tar.gz/.git/objects/7c/2bb142d6c5dd57f2a94daca98de6e093a8e591 Added

guam-0.9.11.tar.gz/.git/objects/7c/502248af6110c72eb674d7b9a4a97fb14cb18e Added

guam-0.9.11.tar.gz/.git/objects/7d Added

guam-0.9.11.tar.gz/.git/objects/7d/40b80c5d5b797c984d699c96035db5ef5eac37 Added

guam-0.9.11.tar.gz/.git/objects/7d/8143723cee84d7f4cd67543eba241538250ea1 Added

guam-0.9.11.tar.gz/.git/objects/7d/9aa3885b0c946187400d2d4a1710d07c9b1460 Added

guam-0.9.11.tar.gz/.git/objects/7d/a1b2605027a546f9ca64c7ac2cbe78edc3d4b3 Added

guam-0.9.11.tar.gz/.git/objects/7d/b2df58a3b3df94fbf36ff638a2720b2e68bb3e Added

guam-0.9.11.tar.gz/.git/objects/7d/e0eefa24db00c774aad0501cf5fad480a539cc Added

guam-0.9.11.tar.gz/.git/objects/7e Added

guam-0.9.11.tar.gz/.git/objects/7e/2c4a2c724a126ec775b666813def8413b2a207 Added

guam-0.9.11.tar.gz/.git/objects/7e/c0dc6030c8ac2a65eb2d92d81cc682b475c602 Added

guam-0.9.11.tar.gz/.git/objects/7f Added

guam-0.9.11.tar.gz/.git/objects/7f/30d318038162c6a0db90b3fdff76515698812a Added

guam-0.9.11.tar.gz/.git/objects/7f/7de0319bab7f8145a7e1e7f1d7ee729ee46d56 Added

guam-0.9.11.tar.gz/.git/objects/7f/997cb12c03bf8ac8741df4f0f148f386059076 Added

guam-0.9.11.tar.gz/.git/objects/7f/c53d4eebb7f383350de8bf15f1b1bf4355500c Added

guam-0.9.11.tar.gz/.git/objects/80 Added

guam-0.9.11.tar.gz/.git/objects/80/6691631c153f6554fe6fc4e34c250a5707e086 Added

guam-0.9.11.tar.gz/.git/objects/80/9b3bf3277f116c12148c02d43b9c7f843a7a4d Added

guam-0.9.11.tar.gz/.git/objects/80/f585d22dfb31a750cc8b95366b7c32f77bcab1 Added

guam-0.9.11.tar.gz/.git/objects/81 Added

guam-0.9.11.tar.gz/.git/objects/81/2144e830a3d3cafe0bbe51b297d92449ffe3dc Added

guam-0.9.11.tar.gz/.git/objects/81/e7be454c94f7e9b5386082c8b8de7c898b445e Added

guam-0.9.11.tar.gz/.git/objects/83 Added

guam-0.9.11.tar.gz/.git/objects/83/32e06ac83a37ec92ce56aec30d48b966ed8c45 Added

guam-0.9.11.tar.gz/.git/objects/83/e829f1577d697e2e495febe48ae5e09e848cec Added

guam-0.9.11.tar.gz/.git/objects/84 Added

guam-0.9.11.tar.gz/.git/objects/84/b49b580bb94a2f38e5a404a8866a6e90f8e349 Added

guam-0.9.11.tar.gz/.git/objects/84/c9ab3d6f7815c567a6cbc9025fe33a37699352 Added

guam-0.9.11.tar.gz/.git/objects/84/cf37f985fa2e4346ac15ec4ee020b4df59a3a1 Added

guam-0.9.11.tar.gz/.git/objects/85 Added

guam-0.9.11.tar.gz/.git/objects/85/02c12429c447278f170eb34a1d559921a104da Added

guam-0.9.11.tar.gz/.git/objects/85/b27644f307b19225583b050b149ed5e43f4ecc Added

guam-0.9.11.tar.gz/.git/objects/85/fb8a5b9ffb4ebdd77514071cdc729f590fef4a Added

guam-0.9.11.tar.gz/.git/objects/86 Added

guam-0.9.11.tar.gz/.git/objects/86/618f0fd82f18b8d10598969657d099ad3291c5 Added

guam-0.9.11.tar.gz/.git/objects/86/e755ce872b421ff6bc03d3c3170d9375db23f2 Added

guam-0.9.11.tar.gz/.git/objects/86/f782b57819dc92bd392053d4b296f5c04f5045 Added

guam-0.9.11.tar.gz/.git/objects/87 Added

guam-0.9.11.tar.gz/.git/objects/87/55faf70cea5976e4eabf54ec5a3b8109848e07 Added

guam-0.9.11.tar.gz/.git/objects/87/f2d4821716779152a4e7a12bd6d21ffb618ceb Added

guam-0.9.11.tar.gz/.git/objects/88 Added

guam-0.9.11.tar.gz/.git/objects/88/00769760d2d906e4b7a77b966c0020c416e453 Added

guam-0.9.11.tar.gz/.git/objects/88/55bfb168e9539bc4637f3018a67641243517af Added

guam-0.9.11.tar.gz/.git/objects/89 Added

guam-0.9.11.tar.gz/.git/objects/89/08a4171aa304fcf8e6a620fe8b58f09b8cd165 Added

guam-0.9.11.tar.gz/.git/objects/8a Added

guam-0.9.11.tar.gz/.git/objects/8a/6e285c26535f9ba1c92aa838af78c32aaabb5e Added

guam-0.9.11.tar.gz/.git/objects/8a/797fe11832a1544e1ab7d2f0eeac49594debb8 Added

guam-0.9.11.tar.gz/.git/objects/8a/d2291ed0b09ad14e8d39285b7dbbea0657ef0d Added

guam-0.9.11.tar.gz/.git/objects/8b Added

guam-0.9.11.tar.gz/.git/objects/8b/3e1a3af6815960fd37e078eee239532af7d770 Added

guam-0.9.11.tar.gz/.git/objects/8b/81a5acac9f3f51a752304465e2e2f080550287 Added

guam-0.9.11.tar.gz/.git/objects/8b/bc0ed96975bee12e62621a7113152f92ed7a63 Added

guam-0.9.11.tar.gz/.git/objects/8b/d4b036840fce84dc5f534399933d630ff8eed2 Added

guam-0.9.11.tar.gz/.git/objects/8b/d57dcf785e6775f3379272912a2ab3d17b8650 Added

guam-0.9.11.tar.gz/.git/objects/8c Added

guam-0.9.11.tar.gz/.git/objects/8c/23edddc54f643984db49a9432b479ddfa3f59a Added

guam-0.9.11.tar.gz/.git/objects/8c/25f321f2db21f38502819a030b68f894e29452 Added

guam-0.9.11.tar.gz/.git/objects/8c/ceb6e27d4bc5d8cf27c43c9593ddcc2b6e0d20 Added

guam-0.9.11.tar.gz/.git/objects/8c/dd530babb7fffe010302f6aeb7fee6383dd48b Added

guam-0.9.11.tar.gz/.git/objects/8d Added

guam-0.9.11.tar.gz/.git/objects/8d/9d480a987b1f9fb777ced8a6bd327682687699 Added

guam-0.9.11.tar.gz/.git/objects/8f Added

guam-0.9.11.tar.gz/.git/objects/8f/12125492d9baaba6659e8196e75762fcb79c5c Added

guam-0.9.11.tar.gz/.git/objects/8f/7b7117dca1cab4d6953e14de73ec3be46d72e6 Added

guam-0.9.11.tar.gz/.git/objects/8f/f5b4547b0dcd3faf56b84dc599119ae000c322 Added

guam-0.9.11.tar.gz/.git/objects/90 Added

guam-0.9.11.tar.gz/.git/objects/90/101ef3f39f75894659b096558ad5c38a1a0fd5 Added

guam-0.9.11.tar.gz/.git/objects/90/86fbc3f61bf9ae5c8242fa2c59c35d729d48fc Added

guam-0.9.11.tar.gz/.git/objects/90/919f76d49b0a74f55064058b612f0fd47a131c Added

guam-0.9.11.tar.gz/.git/objects/90/99f3754736a8b786f24dc31c4fd67f000f3e90 Added

guam-0.9.11.tar.gz/.git/objects/91 Added

guam-0.9.11.tar.gz/.git/objects/91/70c5f18e926157a038f4fd22a869fb54670af1 Added

guam-0.9.11.tar.gz/.git/objects/91/f1f2e5c7b2fb2d5c32ac463f37cac3b1ff078d Added

guam-0.9.11.tar.gz/.git/objects/92 Added

guam-0.9.11.tar.gz/.git/objects/92/d906f5ddfa30972c2c0ec4b427acd324e6b205 Added

guam-0.9.11.tar.gz/.git/objects/92/fc7f055c30873d82c724ecd538c302c409d724 Added

guam-0.9.11.tar.gz/.git/objects/93 Added

guam-0.9.11.tar.gz/.git/objects/93/34515039539fef0ce5c5295d302929c6f8c49c Added

guam-0.9.11.tar.gz/.git/objects/93/ba3dbf2676d4aad52052ce61afa470d2b36d76 Added

guam-0.9.11.tar.gz/.git/objects/93/cc9d1a2287d930ae557592fc145a7c33238baa Added

guam-0.9.11.tar.gz/.git/objects/93/e33730fc2d98f5a530c408470273bb4c3d0adf Added

guam-0.9.11.tar.gz/.git/objects/95 Added

guam-0.9.11.tar.gz/.git/objects/95/33a17bb8891125c9a880de8f293833b3dc3484 Added

guam-0.9.11.tar.gz/.git/objects/95/a88d825969ed4437223c467174b9b4a3a340e5 Added

guam-0.9.11.tar.gz/.git/objects/96 Added

guam-0.9.11.tar.gz/.git/objects/96/8589aa33da018426d60c14083f8ea6b9fc267e Added

guam-0.9.11.tar.gz/.git/objects/97 Added

guam-0.9.11.tar.gz/.git/objects/97/1ce6a6232b95f2d6ddf63b372a8d2fa0479012 Added

guam-0.9.11.tar.gz/.git/objects/97/5bb3cd600a19f755be276fa36c89eeca6d3975 Added

guam-0.9.11.tar.gz/.git/objects/97/85225270380d9001b1107c4367c7691b547d94 Added

guam-0.9.11.tar.gz/.git/objects/97/cc93999a47ee423f2a344c078c935ea55a32a1 Added

guam-0.9.11.tar.gz/.git/objects/98 Added

guam-0.9.11.tar.gz/.git/objects/98/5345513e4163ac989322b12c699287709aff28 Added

guam-0.9.11.tar.gz/.git/objects/99 Added

guam-0.9.11.tar.gz/.git/objects/99/96133427155c97d6f61eaf00701adf439601ae Added

guam-0.9.11.tar.gz/.git/objects/9a Added

guam-0.9.11.tar.gz/.git/objects/9a/127dd5a1089132e62366c2832e53cf31cbf716 Added

guam-0.9.11.tar.gz/.git/objects/9a/8852b9aac559b4bbd17d306b266cbf77f8abc1 Added

guam-0.9.11.tar.gz/.git/objects/9a/b89dc30e7cdb5485e5ab4b4b13e53359c13685 Added

guam-0.9.11.tar.gz/.git/objects/9b Added

guam-0.9.11.tar.gz/.git/objects/9b/1a7ae1964d476fc829c471c91434f012697459 Added

guam-0.9.11.tar.gz/.git/objects/9b/8aafc672876a220625f40b8fdbd35061bb48fe Added

guam-0.9.11.tar.gz/.git/objects/9b/a2c9c6a269e4310860f1844f4d1e41d1196b83 Added

guam-0.9.11.tar.gz/.git/objects/9c Added

guam-0.9.11.tar.gz/.git/objects/9c/1ebe895c165381f1089b40853b7745203d2afd Added

guam-0.9.11.tar.gz/.git/objects/9c/3073e02009bbb81c2c6b509f2ede1319788c74 Added

guam-0.9.11.tar.gz/.git/objects/9c/3751771d51e049436464b4f14a598a1d91a273 Added

guam-0.9.11.tar.gz/.git/objects/9c/54d08baf1884950b419e9a397a1e95680ddef1 Added

guam-0.9.11.tar.gz/.git/objects/9c/91436a13aa4656c714d4645604d8437ad99bd3 Added

guam-0.9.11.tar.gz/.git/objects/9c/fbbb68615c354cd3cb92b265d8f3092df71a4c Added

guam-0.9.11.tar.gz/.git/objects/9d Added

guam-0.9.11.tar.gz/.git/objects/9d/27498988045aeacd8532a25c7cb5bb88f0fb82 Added

guam-0.9.11.tar.gz/.git/objects/9d/941a1ed3201e2cfa64a68097695244677b7835 Added

guam-0.9.11.tar.gz/.git/objects/9d/ff084528df9612d776312887fbd9f5090e00ad Added

guam-0.9.11.tar.gz/.git/objects/9e Added

guam-0.9.11.tar.gz/.git/objects/9e/621de1a24f2b21acbbf1f24bb8c3762e038258 Added

guam-0.9.11.tar.gz/.git/objects/9e/894a4f2f4f98e676e708a6c606f68ae504affc Added

guam-0.9.11.tar.gz/.git/objects/9e/b8b406de136f5e8d3f936bc194381efd99713a Added

guam-0.9.11.tar.gz/.git/objects/9e/c9575fae64fdb4ae690c10fdec80fbd190dad7 Added

guam-0.9.11.tar.gz/.git/objects/9f Added

guam-0.9.11.tar.gz/.git/objects/9f/c22b6d9dfa2cf9f8bd605d55bda303e5b9f847 Added

guam-0.9.11.tar.gz/.git/objects/a0 Added

guam-0.9.11.tar.gz/.git/objects/a0/039e4f84386411209066e2d005f351d0a98d3f Added

guam-0.9.11.tar.gz/.git/objects/a0/91f675648007965ed18970e292ff8414c9839f Added

guam-0.9.11.tar.gz/.git/objects/a0/e381420cb0dba7d68f4172038d3d5bd50ef526 Added

guam-0.9.11.tar.gz/.git/objects/a1 Added

guam-0.9.11.tar.gz/.git/objects/a1/27b8774e994bda7b46bc387e6ccdbe01a1fe42 Added

guam-0.9.11.tar.gz/.git/objects/a1/404fc9803137e1cd44e35d24ef19a8816f2d15 Added

guam-0.9.11.tar.gz/.git/objects/a1/c790758696d7f6a3160710ccc206d54fa4f4db Added

guam-0.9.11.tar.gz/.git/objects/a1/c7eb947c472fb95a9b40a6d59c6e55b84ebd27 Added

guam-0.9.11.tar.gz/.git/objects/a2 Added

guam-0.9.11.tar.gz/.git/objects/a2/221224d5961ffaaaf74cbfd0c273eb4eeaaf7d Added

guam-0.9.11.tar.gz/.git/objects/a2/78c2ffd753951d440e71351187e1d46cb2559e Added

guam-0.9.11.tar.gz/.git/objects/a3 Added

guam-0.9.11.tar.gz/.git/objects/a3/2b4dff257004cc79a2a5b5e9dec4610a1e682f Added

guam-0.9.11.tar.gz/.git/objects/a4 Added

guam-0.9.11.tar.gz/.git/objects/a4/65d5522fd364fb3f0fe15aa3b0f0725b88eb33 Added

guam-0.9.11.tar.gz/.git/objects/a4/83b7297b2d2880a3ccada3c679de097277bab4 Added

guam-0.9.11.tar.gz/.git/objects/a5 Added

guam-0.9.11.tar.gz/.git/objects/a5/22f2bbb93a69fd82a50c59b48e41c8cc995e59 Added

guam-0.9.11.tar.gz/.git/objects/a5/69b2bcec7c115def206b2fa2de0411c517d209 Added

guam-0.9.11.tar.gz/.git/objects/a7 Added

guam-0.9.11.tar.gz/.git/objects/a7/189b5acf5285f114d848af496612c29db79ac7 Added

guam-0.9.11.tar.gz/.git/objects/a7/1aa18d87db40df58d29954b583d9fbd1c15378 Added

guam-0.9.11.tar.gz/.git/objects/a7/77009c48d6303fdf59ae788e4510f2edfc1dbf Added

guam-0.9.11.tar.gz/.git/objects/a7/b51a3d2978aebf810cfe9f2fcacb411cd7d4f6 Added

guam-0.9.11.tar.gz/.git/objects/a8 Added

guam-0.9.11.tar.gz/.git/objects/a8/91563a7c6607fffe87c52b7e23da15282ce237 Added

guam-0.9.11.tar.gz/.git/objects/a8/a9f6c47fae26b38fd928fc505cb247cb1bd782 Added

guam-0.9.11.tar.gz/.git/objects/a9 Added

guam-0.9.11.tar.gz/.git/objects/a9/a660ea2c8cab3f2855cb70aee56b233f32ee48 Added

guam-0.9.11.tar.gz/.git/objects/aa Added

guam-0.9.11.tar.gz/.git/objects/aa/905899bed8fa38b0c48800a535f9b06e371b91 Added

guam-0.9.11.tar.gz/.git/objects/aa/9e7a26458bd2cb7f2f53bf143f0b82fb3cff02 Added

guam-0.9.11.tar.gz/.git/objects/aa/b9df9c1f97ef9fa4ed6cadb82acb6fa176b8f6 Added

guam-0.9.11.tar.gz/.git/objects/aa/f0b064d316c6ab0126dba851b9f5bac8b3318d Added

guam-0.9.11.tar.gz/.git/objects/ab Added

guam-0.9.11.tar.gz/.git/objects/ab/0cfd73cda6b52ec2960560d8dac2191324d41e Added

guam-0.9.11.tar.gz/.git/objects/ac Added

guam-0.9.11.tar.gz/.git/objects/ac/27a6726206cc2cc19cdfe33a989e18b01c0c02 Added

guam-0.9.11.tar.gz/.git/objects/ac/f17241c2808cd92e57865e897ec28f5b96a615 Added

guam-0.9.11.tar.gz/.git/objects/ad Added

guam-0.9.11.tar.gz/.git/objects/ad/cab7a527b05274e3448afbda9f350436052cc5 Added

guam-0.9.11.tar.gz/.git/objects/b0 Added

guam-0.9.11.tar.gz/.git/objects/b0/15ba721d66c88b4d5cc5ce4166ac3801e4b12f Added

guam-0.9.11.tar.gz/.git/objects/b0/53b9d75c92127f2e8cab802849d89ea7f7b303 Added

guam-0.9.11.tar.gz/.git/objects/b0/8b93cfb768e01512738091953c7d50963ddb74 Added

guam-0.9.11.tar.gz/.git/objects/b0/945a957d2fadeb2f9b4cb2761f71138f8c8743 Added

guam-0.9.11.tar.gz/.git/objects/b1 Added

guam-0.9.11.tar.gz/.git/objects/b1/25db50f86ef019f93e5e9da5d68c4caa304792 Added

guam-0.9.11.tar.gz/.git/objects/b1/54165eb0315d554108e1403c68492100fe6b48 Added

guam-0.9.11.tar.gz/.git/objects/b1/654775428cb7ac52dbb90286d798038c05dbf4 Added

guam-0.9.11.tar.gz/.git/objects/b1/aab04e02c2200131d33190945c42b4126f6146 Added

guam-0.9.11.tar.gz/.git/objects/b1/ecfde8bd2aa1a3176223fe172dcc5e6fc1b9eb Added

guam-0.9.11.tar.gz/.git/objects/b2 Added

guam-0.9.11.tar.gz/.git/objects/b2/825131a165759e913c68b0f3389096b83d2a3b Added

guam-0.9.11.tar.gz/.git/objects/b3 Added

guam-0.9.11.tar.gz/.git/objects/b3/0b349c4ee010cbba9be4b4e133930a1fa050f9 Added

guam-0.9.11.tar.gz/.git/objects/b3/40f81c1ac6a68aa60f46e8f4a35022e9563a64 Added

guam-0.9.11.tar.gz/.git/objects/b3/9e22bdf3c97bb4d0a5e5bab097f603eb3956f6 Added

guam-0.9.11.tar.gz/.git/objects/b5 Added

guam-0.9.11.tar.gz/.git/objects/b5/9bcb8e6a6fd794651af691eedfde5a97efae6c Added

guam-0.9.11.tar.gz/.git/objects/b5/f4a702c7d809fd7b3231329012ff103e456f22 Added

guam-0.9.11.tar.gz/.git/objects/b6 Added

guam-0.9.11.tar.gz/.git/objects/b6/c734c02dae7cfa658b65a30fa3180a3dde2ab2 Added

guam-0.9.11.tar.gz/.git/objects/b7 Added

guam-0.9.11.tar.gz/.git/objects/b7/cc983c219aa4d109110faaacb9d699512550a3 Added

guam-0.9.11.tar.gz/.git/objects/b8 Added

guam-0.9.11.tar.gz/.git/objects/b8/111ae690693f86e89492ae3d20a7e5b33470f7 Added

guam-0.9.11.tar.gz/.git/objects/b9 Added

guam-0.9.11.tar.gz/.git/objects/b9/3f30f539934c58cb7a08b1ed20620063f66068 Added

guam-0.9.11.tar.gz/.git/objects/b9/89710606820f79cf46a63636a6a9e01d9e36e2 Added

guam-0.9.11.tar.gz/.git/objects/b9/a6477e0cec6fabdafa9e7356694eb1facfead5 Added

guam-0.9.11.tar.gz/.git/objects/b9/d2a42f67e19cbfc2773e61d52181f8ac2829e6 Added

guam-0.9.11.tar.gz/.git/objects/bb Added

guam-0.9.11.tar.gz/.git/objects/bb/3ab934e6d60a4f552e957bb8365f3fc2210232 Added

guam-0.9.11.tar.gz/.git/objects/bb/cda5198917bb4430359e872743c7b701c5d3ff Added

guam-0.9.11.tar.gz/.git/objects/bc Added

guam-0.9.11.tar.gz/.git/objects/bc/0e221f9277b295957487b707a1bf3db94df0c9 Added

guam-0.9.11.tar.gz/.git/objects/bc/a65c95761c7e0af7032c18868599bb925be726 Added

guam-0.9.11.tar.gz/.git/objects/bc/e2db105b88601545d33da8ee444595c47adbf3 Added

guam-0.9.11.tar.gz/.git/objects/bd Added

guam-0.9.11.tar.gz/.git/objects/bd/840cd311664f5afd896c55cb95fb1c491f0b64 Added

guam-0.9.11.tar.gz/.git/objects/be Added

guam-0.9.11.tar.gz/.git/objects/be/342ba5296e5aab0f92842868ac9dfa86a0dd1a Added

guam-0.9.11.tar.gz/.git/objects/be/ba8a918081fa8fb5c9e51f648306ac91a90048 Added

guam-0.9.11.tar.gz/.git/objects/bf Added

guam-0.9.11.tar.gz/.git/objects/bf/f484b7f93b4ae4cbc4689c46f0fc21aad22e14 Added

guam-0.9.11.tar.gz/.git/objects/c0 Added

guam-0.9.11.tar.gz/.git/objects/c0/127b728d4fc4b5a43eeeb00bfd7c49f980c42b Added

guam-0.9.11.tar.gz/.git/objects/c0/463b6fe80a44979a1a5839566bf2609d9b2bab Added

guam-0.9.11.tar.gz/.git/objects/c0/b4bc37cd38b8414d0939f14075bb57e1f2252c Added

guam-0.9.11.tar.gz/.git/objects/c0/b60927aa8dfcc01c9d4981cc06a3d703b54a91 Added

guam-0.9.11.tar.gz/.git/objects/c1 Added

guam-0.9.11.tar.gz/.git/objects/c1/c27acd4fed27913efe6b2461fac09cf19e26bf Added

guam-0.9.11.tar.gz/.git/objects/c1/c85551b01908f11924a2e970c2581a051b32d5 Added

guam-0.9.11.tar.gz/.git/objects/c2 Added

guam-0.9.11.tar.gz/.git/objects/c2/71b69883b521584c23208e2ee0d99bb0b10b6f Added

guam-0.9.11.tar.gz/.git/objects/c2/7d71aefa023e900f723cac5686a006d6bdac5d Added

guam-0.9.11.tar.gz/.git/objects/c2/92b8d5155c080196236e3c71bed32084c8d3ee Added

guam-0.9.11.tar.gz/.git/objects/c2/9da48ca51a719bb66bfd39a655463fa5da924e Added

guam-0.9.11.tar.gz/.git/objects/c2/b7193f2787638ceaf24c720877a86f9c49d008 Added

guam-0.9.11.tar.gz/.git/objects/c2/c5af612c939bf4ce58821bc7d8e6407947075a Added

guam-0.9.11.tar.gz/.git/objects/c3 Added

guam-0.9.11.tar.gz/.git/objects/c3/e38d6dfb1f49d49f246ac4dc72cb75ad94e45e Added

guam-0.9.11.tar.gz/.git/objects/c3/e44fbb646b21b03d5898a61bab90e6ccd2c81d Added

guam-0.9.11.tar.gz/.git/objects/c4 Added

guam-0.9.11.tar.gz/.git/objects/c4/36e9d6a60e3f87a9bef5eb3ff8c8265d8f09c7 Added

guam-0.9.11.tar.gz/.git/objects/c4/9b2ecf5b6933c142fe2799cbb02fd32da0bb68 Added

guam-0.9.11.tar.gz/.git/objects/c5 Added

guam-0.9.11.tar.gz/.git/objects/c5/7061db4cf1ca7e989d8087fbb8174a0ba2df2f Added

guam-0.9.11.tar.gz/.git/objects/c5/ad7fdcde5f12ab7f3a3529cc895f311d2a56af Added

guam-0.9.11.tar.gz/.git/objects/c5/ba5ba685be6262faacb51208eadddc28cdc917 Added

guam-0.9.11.tar.gz/.git/objects/c7 Added

guam-0.9.11.tar.gz/.git/objects/c7/00263fcae8757da608d560ba6cfb667cc9d6bb Added

guam-0.9.11.tar.gz/.git/objects/c7/28094f548b9f79575b39ff470d8ed04e19ea99 Added

guam-0.9.11.tar.gz/.git/objects/c7/7faa5fbeaa49d98c64509e33ed15e690c16404 Added

guam-0.9.11.tar.gz/.git/objects/c7/9a1f821c507775f865320006f596c68bf5029b Added

guam-0.9.11.tar.gz/.git/objects/c7/e81a305f28fa4863b153e70e89e97e193cb566 Added

guam-0.9.11.tar.gz/.git/objects/c8 Added

guam-0.9.11.tar.gz/.git/objects/c8/41882af2cc76a6f6f43e8a9fc92366f5d00bce Added

guam-0.9.11.tar.gz/.git/objects/c8/d3bc83e48a0c5641d2175ac5e82add819c48c4 Added

guam-0.9.11.tar.gz/.git/objects/c8/eb26a46b1cfab1c9ac9ebdbe5f09e972ddaaf9 Added

guam-0.9.11.tar.gz/.git/objects/c8/fee651ea1f31870350f07da44fd2ecf668789d Added

guam-0.9.11.tar.gz/.git/objects/c9 Added

guam-0.9.11.tar.gz/.git/objects/c9/148db39524355073d67dce3a4ca0da185f1fda Added

guam-0.9.11.tar.gz/.git/objects/c9/7b80cc470d0201e2978df53d66d3fbd65494a1 Added

guam-0.9.11.tar.gz/.git/objects/c9/86c69c7939899aa722ffee61e31edc7a830947 Added

guam-0.9.11.tar.gz/.git/objects/c9/9a52060a6b562eaa9241357f9fb658f6501cd6 Added

guam-0.9.11.tar.gz/.git/objects/c9/c1a68b99fcdcc6c8c575d732af6986c3eb4979 Added

guam-0.9.11.tar.gz/.git/objects/ca Added

guam-0.9.11.tar.gz/.git/objects/ca/3c834bcad2dd271a72a08712130462cc2ee17b Added

guam-0.9.11.tar.gz/.git/objects/ca/52b3acdb67058f45ed8b3e70c68570e1c42d18 Added

guam-0.9.11.tar.gz/.git/objects/ca/d3c89137fddfdf3fa259e827e321c7f1614007 Added

guam-0.9.11.tar.gz/.git/objects/cb Added

guam-0.9.11.tar.gz/.git/objects/cb/007f481024f8f1c56f3127ac1692c705829dfe Added

guam-0.9.11.tar.gz/.git/objects/cb/4e7f56ab51ce1774bbda77b1f840ff352aa647 Added

guam-0.9.11.tar.gz/.git/objects/cb/55a5e0412d229f8ca0f4ca8a723f3e101aaed4 Added

guam-0.9.11.tar.gz/.git/objects/cb/98315eb7965cc560ae76e3b6b86d21e8cdfbf5 Added

guam-0.9.11.tar.gz/.git/objects/cb/db84d36d364dd4b1b8e7add27bdea96a29810f Added

guam-0.9.11.tar.gz/.git/objects/cd Added

guam-0.9.11.tar.gz/.git/objects/cd/9955380c1bb8f88d96985ac78465ac592a6378 Added

guam-0.9.11.tar.gz/.git/objects/ce Added

guam-0.9.11.tar.gz/.git/objects/ce/09276d578b31de8f3bcddb9e220d8d164165f6 Added

guam-0.9.11.tar.gz/.git/objects/ce/11c0f03326b44acca3d56ff94c1cb42dfd601b Added

guam-0.9.11.tar.gz/.git/objects/ce/58c6062d764ac942932dd4ab473b434b268d5d Added

guam-0.9.11.tar.gz/.git/objects/ce/9263d303f9d318f74cfd425775a6f13904f2ec Added

guam-0.9.11.tar.gz/.git/objects/ce/b90d30effb1a6436c04988d1c3b180519da8a4 Added

guam-0.9.11.tar.gz/.git/objects/ce/c9f82211c4f6f4f01a229a3b67b08d884c7aa8 Added

guam-0.9.11.tar.gz/.git/objects/cf Added

guam-0.9.11.tar.gz/.git/objects/cf/8d0b347dc35df9e33a083681d8218927bb1fdc Added

guam-0.9.11.tar.gz/.git/objects/cf/f44fff062c651569ef5ac7d009d1c0f84fb9a7 Added

guam-0.9.11.tar.gz/.git/objects/d0 Added

guam-0.9.11.tar.gz/.git/objects/d0/47fd9a77f09cd8e70256ec8917bd8061d79cff Added

guam-0.9.11.tar.gz/.git/objects/d1 Added

guam-0.9.11.tar.gz/.git/objects/d1/0bf4a7db8a029b0ebd0b42a6ff11491bfa5e3a Added

guam-0.9.11.tar.gz/.git/objects/d1/47b8c0c0000972ad4df20789eb57bea7bc2bff Added

guam-0.9.11.tar.gz/.git/objects/d2 Added

guam-0.9.11.tar.gz/.git/objects/d2/880653d53dadd305ea4cb86e3ccddb81534488 Added

guam-0.9.11.tar.gz/.git/objects/d2/94de2d31876fa4a349abbaa26720f91c1f7f32 Added

guam-0.9.11.tar.gz/.git/objects/d2/b7030f10fa1a7a103b9efc5155fa4a25a5ebf0 Added

guam-0.9.11.tar.gz/.git/objects/d2/c9cfbfab822e87f2f76e38696edccb3f7f20d3 Added

guam-0.9.11.tar.gz/.git/objects/d2/ccc4eef278b3b8247d098ba224fe8817f56866 Added

guam-0.9.11.tar.gz/.git/objects/d2/cd9f60b0b9ecaf581d34cf7a70e12065bb08b1 Added

guam-0.9.11.tar.gz/.git/objects/d2/e326f1d37f667174f81330a7d00c0f6b101469 Added

guam-0.9.11.tar.gz/.git/objects/d3 Added

guam-0.9.11.tar.gz/.git/objects/d3/407ad19d5328fcd2a14bf3714aa4b3610de625 Added

guam-0.9.11.tar.gz/.git/objects/d3/69c7caef62b53422b579fdbcf8763b7ecf8a27 Added

guam-0.9.11.tar.gz/.git/objects/d3/dbaa90f04d38783fff31cc44696ec5c6cad7f3 Added

guam-0.9.11.tar.gz/.git/objects/d4 Added

guam-0.9.11.tar.gz/.git/objects/d4/45610b1869f1b09f9e429cf48ec279e8803882 Added

guam-0.9.11.tar.gz/.git/objects/d4/af7acd7695bd7c6eefbb2791b777c2dd3a0516 Added

guam-0.9.11.tar.gz/.git/objects/d4/dc7e39ac777808fa29fa402c00984bb374eec0 Added

guam-0.9.11.tar.gz/.git/objects/d5 Added

guam-0.9.11.tar.gz/.git/objects/d5/0109778ad491865377ec49d6bbd76203984abf Added

guam-0.9.11.tar.gz/.git/objects/d5/d996154248e4d6d2103ea26f342608232a3df7 Added

guam-0.9.11.tar.gz/.git/objects/d6 Added

guam-0.9.11.tar.gz/.git/objects/d6/74cfaa1f61ea80629408db86679387f031ccb7 Added

guam-0.9.11.tar.gz/.git/objects/d6/b5a8054103c60548ea8e3e69666569c9f6092d Added

guam-0.9.11.tar.gz/.git/objects/d6/da83d77ac4a4d71f2f9139e7b78827b54635c1 Added

guam-0.9.11.tar.gz/.git/objects/d7 Added

guam-0.9.11.tar.gz/.git/objects/d7/1bd9d6d67f96e6c38af961dbf845cdfaa22f60 Added

guam-0.9.11.tar.gz/.git/objects/d7/57ad5e135f683207f8bf4acf7c88ffdca38542 Added

guam-0.9.11.tar.gz/.git/objects/d9 Added

guam-0.9.11.tar.gz/.git/objects/d9/ee6781fda1e670003b7f0875d051138b34e647 Added

guam-0.9.11.tar.gz/.git/objects/da Added

guam-0.9.11.tar.gz/.git/objects/da/1acd2aa973f879248b2a05acd568df0f2689e4 Added

guam-0.9.11.tar.gz/.git/objects/da/5b04a6a09f254234a8d62b497a9019431fa14e Added

guam-0.9.11.tar.gz/.git/objects/db Added

guam-0.9.11.tar.gz/.git/objects/db/0aa3344c8ece6e4d3ac80d268314770ecb349b Added

guam-0.9.11.tar.gz/.git/objects/db/3ed547b5e52dc679db582014abe8d7b14b7800 Added

guam-0.9.11.tar.gz/.git/objects/db/59bebd6fa0b873fa80682022ec8ccc5940a580 Added

guam-0.9.11.tar.gz/.git/objects/db/8c61a81737399fce7521c00f8fff8b26f8d6c6 Added

guam-0.9.11.tar.gz/.git/objects/db/c0262a67fb32110059bc9ab11027defd539cc0 Added

guam-0.9.11.tar.gz/.git/objects/dc Added

guam-0.9.11.tar.gz/.git/objects/dc/68aa34fda805cab56f15e5c1973e30ae1824cf Added

guam-0.9.11.tar.gz/.git/objects/dc/8fbc946fcdcc8952dc4d9038d55a35b3ee6127 Added

guam-0.9.11.tar.gz/.git/objects/dc/a3e0a303e5c2cabe9e52a9650570ca4405809a Added

guam-0.9.11.tar.gz/.git/objects/dd Added

guam-0.9.11.tar.gz/.git/objects/dd/9558e6e120ffa9e54b3896149e380b4cc443f0 Added

guam-0.9.11.tar.gz/.git/objects/dd/fac526da5e2813b5e686e40ee7bab9d7a069a2 Added

guam-0.9.11.tar.gz/.git/objects/de Added

guam-0.9.11.tar.gz/.git/objects/de/08677275940107dc11b8b35f6fdb72dbe63c36 Added

guam-0.9.11.tar.gz/.git/objects/df Added

guam-0.9.11.tar.gz/.git/objects/df/12a820f5a9d1b762aee0269a8a83f1aba47789 Added

guam-0.9.11.tar.gz/.git/objects/e0 Added

guam-0.9.11.tar.gz/.git/objects/e0/39b4af9d040b139c7714e65b505a3003fe9967 Added

guam-0.9.11.tar.gz/.git/objects/e0/a2573f85c60c942cb60d6940897130a5f7a1a3 Added

guam-0.9.11.tar.gz/.git/objects/e0/fc494716f3ebea4cf8bd872039702500ca29a6 Added

guam-0.9.11.tar.gz/.git/objects/e2 Added

guam-0.9.11.tar.gz/.git/objects/e2/13e87b76ea2ed2c920abf320346cba74d2512f Added

guam-0.9.11.tar.gz/.git/objects/e2/8de0c7710cf45ba220df72eb7dc0ef7cf6cbcd Added

guam-0.9.11.tar.gz/.git/objects/e2/cba77aafe4548a4bef08f6a945f6d92b66d099 Added

guam-0.9.11.tar.gz/.git/objects/e2/d7d2d6741f4085db3e4a11f38a5e806aee3150 Added

guam-0.9.11.tar.gz/.git/objects/e3 Added

guam-0.9.11.tar.gz/.git/objects/e3/691b03ec329f4b33258535c87b86259ab15ca3 Added

guam-0.9.11.tar.gz/.git/objects/e3/eb5f7ca14f4031791ea9deed1d3c2cf313aee5 Added

guam-0.9.11.tar.gz/.git/objects/e4 Added

guam-0.9.11.tar.gz/.git/objects/e4/578fa0774da84aea7ee387657af7916dc7292b Added

guam-0.9.11.tar.gz/.git/objects/e5 Added

guam-0.9.11.tar.gz/.git/objects/e5/329219ef4ff44d128697da962ccf90706f14b6 Added

guam-0.9.11.tar.gz/.git/objects/e5/82cfde1b3f268a8e1b50d405879b2b0971cb88 Added

guam-0.9.11.tar.gz/.git/objects/e5/a1642fb38b3f9158feec861d45a5959d38cf49 Added

guam-0.9.11.tar.gz/.git/objects/e5/ebcdfcfae0a12f7a651879b917d464acfea23e Added

guam-0.9.11.tar.gz/.git/objects/e6 Added

guam-0.9.11.tar.gz/.git/objects/e6/9de29bb2d1d6434b8b29ae775ad8c2e48c5391 Added

guam-0.9.11.tar.gz/.git/objects/e7 Added

guam-0.9.11.tar.gz/.git/objects/e7/094f7f7e49639c88a59512754a6c41cafac13d Added

guam-0.9.11.tar.gz/.git/objects/e7/5280685e08bf4da6928e6b41a0def42733dc93 Added

guam-0.9.11.tar.gz/.git/objects/e7/8f50f7e0bd752a47ff7852315072857b95fcab Added

guam-0.9.11.tar.gz/.git/objects/e7/c5eb9d0b9f8889d15fa8048cd02f09d7d87bc4 Added

guam-0.9.11.tar.gz/.git/objects/e8 Added

guam-0.9.11.tar.gz/.git/objects/e8/6b8bcd89615edef964a077764bd2cec72ab339 Added

guam-0.9.11.tar.gz/.git/objects/e8/8d85f92143750b031ee9eaeead985237ff547e Added

guam-0.9.11.tar.gz/.git/objects/e8/9c93c3a0fd779a7113a20638771523707a9474 Added

guam-0.9.11.tar.gz/.git/objects/e9 Added

guam-0.9.11.tar.gz/.git/objects/e9/1c7cd052bf62f3fff823a29cad4cc8eea6385e Added

guam-0.9.11.tar.gz/.git/objects/e9/5b47e09388426e218aaf5f4fc70159dcf1aa8f Added

guam-0.9.11.tar.gz/.git/objects/ea Added

guam-0.9.11.tar.gz/.git/objects/ea/be0756ed08a06ffce07f3905367e5664d4fc0e Added

guam-0.9.11.tar.gz/.git/objects/eb Added

guam-0.9.11.tar.gz/.git/objects/eb/230e5599e3ace3d5b2c1b9dcbda46e418a2e8c Added

guam-0.9.11.tar.gz/.git/objects/eb/616469f8a27d9287aad035dcecf00696de4c41 Added

guam-0.9.11.tar.gz/.git/objects/eb/ef87220d7eeaff370b05b286d4800a37956ada Added

guam-0.9.11.tar.gz/.git/objects/ec Added

guam-0.9.11.tar.gz/.git/objects/ec/f40e5255b9704acb92baaab36124fa53547fbf Added

guam-0.9.11.tar.gz/.git/objects/ec/f7ea65a93494af5799ae560f969fd993facb7c Added

guam-0.9.11.tar.gz/.git/objects/ed Added

guam-0.9.11.tar.gz/.git/objects/ed/1f7c67f2793c7aad92a222f50d7ab52c5feffe Added

guam-0.9.11.tar.gz/.git/objects/ed/44a7e26099acb67d98ee1232861dd52d5d5359 Added

guam-0.9.11.tar.gz/.git/objects/ee Added

guam-0.9.11.tar.gz/.git/objects/ee/0775bc13f2edd38ad8a74fa88e18633a6e8aaa Added

guam-0.9.11.tar.gz/.git/objects/ee/9928d064208fcbd289383a588150454e86e5c3 Added

guam-0.9.11.tar.gz/.git/objects/ee/f6327b3f92b6699a684d5249455947a6b848ad Added

guam-0.9.11.tar.gz/.git/objects/ef Added

guam-0.9.11.tar.gz/.git/objects/ef/27d49ddde56112f4e31cd956c956f3e25ca451 Added

guam-0.9.11.tar.gz/.git/objects/ef/43419c34c1dd1db6a1527de42b154babb0f70e Added

guam-0.9.11.tar.gz/.git/objects/f1 Added

guam-0.9.11.tar.gz/.git/objects/f1/186e951183afd7c7708284d83288c7b0fe8626 Added

guam-0.9.11.tar.gz/.git/objects/f1/1bcdf6e33eeea43f050fd6777cfbbd86d32a39 Added

guam-0.9.11.tar.gz/.git/objects/f1/6bfe9f60e19d3e1a2ae46415d8faf877710726 Added

guam-0.9.11.tar.gz/.git/objects/f1/f48dc9da5a7a604e4a953867f69abcd92c8c75 Added

guam-0.9.11.tar.gz/.git/objects/f1/fb5cc203729fccf19348ad8b07acf80e391fa8 Added

guam-0.9.11.tar.gz/.git/objects/f2 Added

guam-0.9.11.tar.gz/.git/objects/f2/496b89719013e4da5bf707217b89b10295f090 Added

guam-0.9.11.tar.gz/.git/objects/f3 Added

guam-0.9.11.tar.gz/.git/objects/f3/6a476c7d4157d74e424ddeff028cc81193662f Added

guam-0.9.11.tar.gz/.git/objects/f3/e47383e92e20ceeeadc60a860eaf19bdd05d9a Added

guam-0.9.11.tar.gz/.git/objects/f4 Added

guam-0.9.11.tar.gz/.git/objects/f4/a8e82457015a946ca5bafe72c61a29275aa228 Added

guam-0.9.11.tar.gz/.git/objects/f5 Added

guam-0.9.11.tar.gz/.git/objects/f5/2f48f2aba4a16ed637ac5c3b7b04953a469897 Added

guam-0.9.11.tar.gz/.git/objects/f5/5e5b51ffa8d20d601758801c818a0d04c2b4c7 Added

guam-0.9.11.tar.gz/.git/objects/f6 Added

guam-0.9.11.tar.gz/.git/objects/f6/559ace42a091b430b3229455e224a4cdfd6ea1 Added

guam-0.9.11.tar.gz/.git/objects/f6/d3e37c5be93c90ba239b12e6f225b6834787a8 Added

guam-0.9.11.tar.gz/.git/objects/f7 Added

guam-0.9.11.tar.gz/.git/objects/f7/44972d14714316a3d56229b963ad892599fdfe Added

guam-0.9.11.tar.gz/.git/objects/f7/94a902453c748d0eb59182a0d545cb258757a6 Added

guam-0.9.11.tar.gz/.git/objects/f8 Added

guam-0.9.11.tar.gz/.git/objects/f8/42f4f9cb359bd9a3420758180d47a6445a06ee Added

guam-0.9.11.tar.gz/.git/objects/f8/b49e71b4542c390f80550a8d9bc75074fdd79a Added

guam-0.9.11.tar.gz/.git/objects/f8/f3930fe8a4e522b01154c997a5b36e626ef753 Added

guam-0.9.11.tar.gz/.git/objects/f9 Added

guam-0.9.11.tar.gz/.git/objects/f9/aa6c7142eb6582912cda57908d6d23074e23da Added

guam-0.9.11.tar.gz/.git/objects/f9/bce7992b601859b91a30773b71561024ef0113 Added

guam-0.9.11.tar.gz/.git/objects/f9/bd9f9676de487d71ce1fd93446966897558a9a Added

guam-0.9.11.tar.gz/.git/objects/f9/d5437772d36446cac61854cca2feea9e245ecd Added

guam-0.9.11.tar.gz/.git/objects/fa Added

guam-0.9.11.tar.gz/.git/objects/fa/557f2850bb69508d3e4089d9dd4f17e3db9d19 Added

guam-0.9.11.tar.gz/.git/objects/fa/8b75ddde7870f0d728102613f2548bf133b8af Added

guam-0.9.11.tar.gz/.git/objects/fa/a81025ab436a1b99a5c379b16eff2b6beee7b5 Added

guam-0.9.11.tar.gz/.git/objects/fa/a96f9afac9f75ba285d541072011dcd3a7cd70 Added

guam-0.9.11.tar.gz/.git/objects/fa/e950cfbe377613f761f04d93c5a60f26a0f4a3 Added

guam-0.9.11.tar.gz/.git/objects/fb Added

guam-0.9.11.tar.gz/.git/objects/fb/e04d4d19cc20aa8024dd9b06807876297de214 Added

guam-0.9.11.tar.gz/.git/objects/fc Added

guam-0.9.11.tar.gz/.git/objects/fc/34ddd4a570bc6691bbab2d9c8a6d5e12358405 Added

guam-0.9.11.tar.gz/.git/objects/fc/6e9b45b1131b60682cd5d1be4269af7c90c047 Added

guam-0.9.11.tar.gz/.git/objects/fd Added

guam-0.9.11.tar.gz/.git/objects/fd/0b25ffc1f9655cf482555a0d4c0e02ac18f18b Added

guam-0.9.11.tar.gz/.git/objects/fe Added

guam-0.9.11.tar.gz/.git/objects/fe/1cf20766b9035b98c503aaca51e9e96238f89c Added

guam-0.9.11.tar.gz/.git/objects/ff Added

guam-0.9.11.tar.gz/.git/objects/ff/1ce18bac7a3a8bcbfb0237a5f58bcab64ae69e Added

guam-0.9.11.tar.gz/.git/objects/ff/6566e1e168c7ce67c67d2a21eb325b12d58eec Added

guam-0.9.11.tar.gz/.git/objects/ff/d2074b269cb5ac8c3e6929354dd86c76e0966c Added

guam-0.9.11.tar.gz/.git/objects/info Added

guam-0.9.11.tar.gz/.git/objects/pack Added

guam-0.9.11.tar.gz/.git/objects/pack/pack-e7025db44305c276a61f4abdc0ce31e00855b569.idx Added

guam-0.9.11.tar.gz/.git/objects/pack/pack-e7025db44305c276a61f4abdc0ce31e00855b569.pack Added

guam-0.9.11.tar.gz/.git/objects/pack/pack-effb8743e21a32f314b248d84618ec7094d9bd51.idx Added

guam-0.9.11.tar.gz/.git/objects/pack/pack-effb8743e21a32f314b248d84618ec7094d9bd51.pack Added

guam-0.9.11.tar.gz/.git/packed-refs Added

@@ -0,0 +1,48 @@
+# pack-refs with: peeled fully-peeled sorted 
+0d3fd56445f1377797b9bc11391c0e0079c8ffed refs/remotes/origin/dev/mollekopf
+7aaf330bba6bf5a3c10eaaff46fd73d79f17d054 refs/remotes/origin/dev/mollekopf2
+8dd174db900da9c8c11ce9b8b407829203211a26 refs/remotes/origin/dev/simplifyfolderextraction
+d854029b1d1b256eef63f95bd68bf25710e475f1 refs/remotes/origin/develop
+deb3292b33aee3578791bd8646704d8117874fb1 refs/remotes/origin/feature/0.9-with-rebar2
+68385bd51d75daad051a596fa2d5ebb941e1b501 refs/remotes/origin/feature/T932_literal_continuations
+4e85df4e2ecf6c8001a47f1504a2acd1d084c099 refs/remotes/origin/feature/autodetect_ipv6
+98c3f09fbb8ecb6f532516c60993476fca591905 refs/remotes/origin/feature/implicit_tls_delayed_ssl_start
+5c9b2751009f71f7c313b3ad2c28213ef1a4e063 refs/remotes/origin/feature/init_script
+cd57385625e419c681bc31293fefb30d65d8465f refs/remotes/origin/feature/prep_for_0.9
+fcddaf18a88fbcd50becabdf93bafb224e395b87 refs/remotes/origin/feature/support_tag_arrives_before_command
+35d90722caccd894ad6b896e531da0c4baf1e38a refs/remotes/origin/guam-0.7
+967bacc60233c9859872b94904ae22e6fa29afb2 refs/remotes/origin/hotfix/no_tls_server_response_fixup
+d854029b1d1b256eef63f95bd68bf25710e475f1 refs/remotes/origin/master
+f87a3d4bd7f4b3785158b4a89607514de93ede76 refs/tags/0.8
+^1341f21c1c73b1ba4c01a0ef8675d86ac6355d6d
+e3a417235274ee544303c7907a47fc5ef9de566d refs/tags/0.8.1
+89e2d7a1121a4dafc2c24b91fef51e6d13e6a636 refs/tags/0.8.2
+455c217013276cbd2255a21e67a8c75d359bfd6d refs/tags/0.8.3
+aafa371262207eca88ef28c0638d5bd1608d5a6c refs/tags/0.9.0
+^ca8594566b5c945a3488110f6a1eac3880826bf4
+e5699da6b7b804fd2c37c68567a5e81445f08b96 refs/tags/0.9.6
+^0005a4d8aaca9db0d961cdf6c5db6ac28f8c220c
+838c5dede048c8f15fcda35a6655660220ae9511 refs/tags/0.9.7
+^d854029b1d1b256eef63f95bd68bf25710e475f1
+9f162081a5b155c28806aa4cc7bace4f2680515a refs/tags/guam-0.1
+^6f4d215405da8230d5f49e3b660b8a4d3cc91c01
+4c3cbaddc86bd33c64b6992c0784cb48ec5f6c55 refs/tags/guam-0.2
+^792126ff585db722d517269f3b71f6e12aefde94
+1c4e771c32032143906f218f84c9aa919fb1415c refs/tags/guam-0.3
+^a5a07a9d4140b595db83406983da3ffb4b69ef46
+0d15f30e1cb2c3c33a139679a54b98988d1bc6a9 refs/tags/guam-0.4
+^b5b0c1b4b1732727b636409cf80425fae0b9023f
+efb8b7e8816d4f2e634d493cd71ea77546f92bbd refs/tags/guam-0.5
+^5df52529128b811400682c0c54546816af51c8e6
+0cdd67cd25befa558355834e42f4820b886f19bb refs/tags/guam-0.6
+^1ee333cb8de3bc642c3311e4ff82ff9cb966448f
+77129203985e6ce3daf6b3839b4460f161c3374d refs/tags/guam-0.7.0
+^ff40cefa1053d0f79ebd669aad199b87ff91abe5
+ab4e342436ce2f8c2c556a9cf17592b65b7c93c0 refs/tags/guam-0.7.1
+^6062291a36ae0348ee20207a4cc8c19aefcd674a
+7e0cab2c2af732ef717bc8abc213966909cedb45 refs/tags/guam-0.7.2
+^a7b7976618d5020e15e71e990e5570fe26127e23
+56edb7296780d424f0268a97a9b600511284bb1c refs/tags/guam-0.7.3
+^35d90722caccd894ad6b896e531da0c4baf1e38a
+7290f8a12e1d9b6dcdb1b70cd846fd4b11b3bf6a refs/tags/guam-0.9.5
+^3d1fc7327a47ea9466816bb9389db332a21b8aaf

guam-0.9.11.tar.gz/.git/refs Added

guam-0.9.11.tar.gz/.git/refs/heads Added

guam-0.9.11.tar.gz/.git/refs/heads/develop Added

guam-0.9.11.tar.gz/.git/refs/heads/master Added

guam-0.9.11.tar.gz/.git/refs/remotes Added

guam-0.9.11.tar.gz/.git/refs/remotes/origin Added

guam-0.9.11.tar.gz/.git/refs/remotes/origin/HEAD Added

guam-0.9.11.tar.gz/.git/refs/remotes/origin/develop Added

guam-0.9.11.tar.gz/.git/refs/remotes/origin/master Added

guam-0.9.11.tar.gz/.git/refs/stash Added

guam-0.9.11.tar.gz/.git/refs/tags Added

guam-0.9.11.tar.gz/.git/refs/tags/0.9.10 Added

guam-0.9.11.tar.gz/.git/refs/tags/0.9.11 Added

guam-0.9.11.tar.gz/.git/refs/tags/0.9.8 Added

guam-0.9.11.tar.gz/.git/refs/tags/0.9.9 Added

guam-0.9.11.tar.gz/Makefile Changed

guam-0.9.11.tar.gz/_build Added

guam-0.9.11.tar.gz/_build/default Added

guam-0.9.11.tar.gz/_build/default/lib Added

guam-0.9.11.tar.gz/_build/default/lib/eimap Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.erlang Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/HEAD Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/branches Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/config Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/description Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/hooks Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/hooks/applypatch-msg.sample Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/hooks/commit-msg.sample Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/hooks/fsmonitor-watchman.sample Added

@@ -0,0 +1,173 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use IPC::Open2;
+
+# An example hook script to integrate Watchman
+# (https://facebook.github.io/watchman/) with git to speed up detecting
+# new and modified files.
+#
+# The hook is passed a version (currently 2) and last update token
+# formatted as a string and outputs to stdout a new update token and
+# all files that have been modified since the update token. Paths must
+# be relative to the root of the working tree and separated by a single NUL.
+#
+# To enable this hook, rename this file to "query-watchman" and set
+# 'git config core.fsmonitor .git/hooks/query-watchman'
+#
+my ($version, $last_update_token) = @ARGV;
+
+# Uncomment for debugging
+# print STDERR "$0 $version $last_update_token\n";
+
+# Check the hook interface version
+if ($version ne 2) {
+	die "Unsupported query-fsmonitor hook version '$version'.\n" .
+	    "Falling back to scanning...\n";
+}
+
+my $git_work_tree = get_working_dir();
+
+my $retry = 1;
+
+my $json_pkg;
+eval {
+	require JSON::XS;
+	$json_pkg = "JSON::XS";
+	1;
+} or do {
+	require JSON::PP;
+	$json_pkg = "JSON::PP";
+};
+
+launch_watchman();
+
+sub launch_watchman {
+	my $o = watchman_query();
+	if (is_work_tree_watched($o)) {
+		output_result($o->{clock}, @{$o->{files}});
+	}
+}
+
+sub output_result {
+	my ($clockid, @files) = @_;
+
+	# Uncomment for debugging watchman output
+	# open (my $fh, ">", ".git/watchman-output.out");
+	# binmode $fh, ":utf8";
+	# print $fh "$clockid\n@files\n";
+	# close $fh;
+
+	binmode STDOUT, ":utf8";
+	print $clockid;
+	print "\0";
+	local $, = "\0";
+	print @files;
+}
+
+sub watchman_clock {
+	my $response = qx/watchman clock "$git_work_tree"/;
+	die "Failed to get clock id on '$git_work_tree'.\n" .
+		"Falling back to scanning...\n" if $? != 0;
+
+	return $json_pkg->new->utf8->decode($response);
+}
+
+sub watchman_query {
+	my $pid = open2(\*CHLD_OUT, \*CHLD_IN, 'watchman -j --no-pretty')
+	or die "open2() failed: $!\n" .
+	"Falling back to scanning...\n";
+
+	# In the query expression below we're asking for names of files that
+	# changed since $last_update_token but not from the .git folder.
+	#
+	# To accomplish this, we're using the "since" generator to use the
+	# recency index to select candidate nodes and "fields" to limit the
+	# output to file names only. Then we're using the "expression" term to
+	# further constrain the results.
+	if (substr($last_update_token, 0, 1) eq "c") {
+		$last_update_token = "\"$last_update_token\"";
+	}
+	my $query = <<"	END";
+		["query", "$git_work_tree", {
+			"since": $last_update_token,
+			"fields": ["name"],
+			"expression": ["not", ["dirname", ".git"]]
+		}]
+	END
+
+	# Uncomment for debugging the watchman query
+	# open (my $fh, ">", ".git/watchman-query.json");
+	# print $fh $query;
+	# close $fh;
+
+	print CHLD_IN $query;
+	close CHLD_IN;
+	my $response = do {local $/; <CHLD_OUT>};
+
+	# Uncomment for debugging the watch response
+	# open ($fh, ">", ".git/watchman-response.json");
+	# print $fh $response;
+	# close $fh;
+
+	die "Watchman: command returned no output.\n" .
+	"Falling back to scanning...\n" if $response eq "";
+	die "Watchman: command returned invalid output: $response\n" .
+	"Falling back to scanning...\n" unless $response =~ /^\{/;
+
+	return $json_pkg->new->utf8->decode($response);
+}
+
+sub is_work_tree_watched {
+	my ($output) = @_;
+	my $error = $output->{error};
+	if ($retry > 0 and $error and $error =~ m/unable to resolve root .* directory (.*) is not watched/) {
+		$retry--;
+		my $response = qx/watchman watch "$git_work_tree"/;
+		die "Failed to make watchman watch '$git_work_tree'.\n" .
+		    "Falling back to scanning...\n" if $? != 0;
+		$output = $json_pkg->new->utf8->decode($response);
+		$error = $output->{error};
+		die "Watchman: $error.\n" .
+		"Falling back to scanning...\n" if $error;
+
+		# Uncomment for debugging watchman output
+		# open (my $fh, ">", ".git/watchman-output.out");
+		# close $fh;
+
+		# Watchman will always return all files on the first query so
+		# return the fast "everything is dirty" flag to git and do the
+		# Watchman query just to get it over with now so we won't pay
+		# the cost in git to look up each individual file.
+		my $o = watchman_clock();
+		$error = $output->{error};
+
+		die "Watchman: $error.\n" .
+		"Falling back to scanning...\n" if $error;
+
+		output_result($o->{clock}, ("/"));
+		$last_update_token = $o->{clock};
+
+		eval { launch_watchman() };
+		return 0;
+	}
+
+	die "Watchman: $error.\n" .
+	"Falling back to scanning...\n" if $error;
+
+	return 1;
+}
+
+sub get_working_dir {
+	my $working_dir;
+	if ($^O =~ 'msys' || $^O =~ 'cygwin') {
+		$working_dir = Win32::GetCwd();
+		$working_dir =~ tr/\\/\//;
+	} else {
+		require Cwd;
+		$working_dir = Cwd::cwd();
+	}
+
+	return $working_dir;
+}

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/hooks/post-update.sample Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/hooks/pre-applypatch.sample Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/hooks/pre-commit.sample Added

@@ -0,0 +1,49 @@
+#!/usr/bin/sh
+#
+# An example hook script to verify what is about to be committed.
+# Called by "git commit" with no arguments.  The hook should
+# exit with non-zero status after issuing an appropriate message if
+# it wants to stop the commit.
+#
+# To enable this hook, rename this file to "pre-commit".
+
+if git rev-parse --verify HEAD >/dev/null 2>&1
+then
+	against=HEAD
+else
+	# Initial commit: diff against an empty tree object
+	against=$(git hash-object -t tree /dev/null)
+fi
+
+# If you want to allow non-ASCII filenames set this variable to true.
+allownonascii=$(git config --type=bool hooks.allownonascii)
+
+# Redirect output to stderr.
+exec 1>&2
+
+# Cross platform projects tend to avoid non-ASCII filenames; prevent
+# them from being added to the repository. We exploit the fact that the
+# printable range starts at the space character and ends with tilde.
+if [ "$allownonascii" != "true" ] &&
+	# Note that the use of brackets around a tr range is ok here, (it's
+	# even required, for portability to Solaris 10's /usr/bin/tr), since
+	# the square bracket bytes happen to fall in the designated range.
+	test $(git diff --cached --name-only --diff-filter=A -z $against |
+	  LC_ALL=C tr -d '[ -~]\0' | wc -c) != 0
+then
+	cat <<\EOF
+Error: Attempt to add a non-ASCII file name.
+
+This can cause problems if you want to work with people on other platforms.
+
+To be portable it is advisable to rename the file.
+
+If you know what you are doing you can disable this check using:
+
+  git config hooks.allownonascii true
+EOF
+	exit 1
+fi
+
+# If there are whitespace errors, print the offending file names and fail.
+exec git diff-index --check --cached $against --

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/hooks/pre-merge-commit.sample Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/hooks/pre-push.sample Added

@@ -0,0 +1,53 @@
+#!/usr/bin/sh
+
+# An example hook script to verify what is about to be pushed.  Called by "git
+# push" after it has checked the remote status, but before anything has been
+# pushed.  If this script exits with a non-zero status nothing will be pushed.
+#
+# This hook is called with the following parameters:
+#
+# $1 -- Name of the remote to which the push is being done
+# $2 -- URL to which the push is being done
+#
+# If pushing without using a named remote those arguments will be equal.
+#
+# Information about the commits which are being pushed is supplied as lines to
+# the standard input in the form:
+#
+#   <local ref> <local sha1> <remote ref> <remote sha1>
+#
+# This sample shows how to prevent push of commits where the log message starts
+# with "WIP" (work in progress).
+
+remote="$1"
+url="$2"
+
+z40=0000000000000000000000000000000000000000
+
+while read local_ref local_sha remote_ref remote_sha
+do
+	if [ "$local_sha" = $z40 ]
+	then
+		# Handle delete
+		:
+	else
+		if [ "$remote_sha" = $z40 ]
+		then
+			# New branch, examine all commits
+			range="$local_sha"
+		else
+			# Update to existing branch, examine new commits
+			range="$remote_sha..$local_sha"
+		fi
+
+		# Check for WIP commit
+		commit=`git rev-list -n 1 --grep '^WIP' "$range"`
+		if [ -n "$commit" ]
+		then
+			echo >&2 "Found WIP commit in $local_ref, not pushing"
+			exit 1
+		fi
+	fi
+done
+
+exit 0

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/hooks/pre-rebase.sample Added

@@ -0,0 +1,169 @@
+#!/usr/bin/sh
+#
+# Copyright (c) 2006, 2008 Junio C Hamano
+#
+# The "pre-rebase" hook is run just before "git rebase" starts doing
+# its job, and can prevent the command from running by exiting with
+# non-zero status.
+#
+# The hook is called with the following parameters:
+#
+# $1 -- the upstream the series was forked from.
+# $2 -- the branch being rebased (or empty when rebasing the current branch).
+#
+# This sample shows how to prevent topic branches that are already
+# merged to 'next' branch from getting rebased, because allowing it
+# would result in rebasing already published history.
+
+publish=next
+basebranch="$1"
+if test "$#" = 2
+then
+	topic="refs/heads/$2"
+else
+	topic=`git symbolic-ref HEAD` ||
+	exit 0 ;# we do not interrupt rebasing detached HEAD
+fi
+
+case "$topic" in
+refs/heads/??/*)
+	;;
+*)
+	exit 0 ;# we do not interrupt others.
+	;;
+esac
+
+# Now we are dealing with a topic branch being rebased
+# on top of master.  Is it OK to rebase it?
+
+# Does the topic really exist?
+git show-ref -q "$topic" || {
+	echo >&2 "No such branch $topic"
+	exit 1
+}
+
+# Is topic fully merged to master?
+not_in_master=`git rev-list --pretty=oneline ^master "$topic"`
+if test -z "$not_in_master"
+then
+	echo >&2 "$topic is fully merged to master; better remove it."
+	exit 1 ;# we could allow it, but there is no point.
+fi
+
+# Is topic ever merged to next?  If so you should not be rebasing it.
+only_next_1=`git rev-list ^master "^$topic" ${publish} | sort`
+only_next_2=`git rev-list ^master           ${publish} | sort`
+if test "$only_next_1" = "$only_next_2"
+then
+	not_in_topic=`git rev-list "^$topic" master`
+	if test -z "$not_in_topic"
+	then
+		echo >&2 "$topic is already up to date with master"
+		exit 1 ;# we could allow it, but there is no point.
+	else
+		exit 0
+	fi
+else
+	not_in_next=`git rev-list --pretty=oneline ^${publish} "$topic"`
+	/usr/bin/perl -e '
+		my $topic = $ARGV[0];
+		my $msg = "* $topic has commits already merged to public branch:\n";
+		my (%not_in_next) = map {
+			/^([0-9a-f]+) /;
+			($1 => 1);
+		} split(/\n/, $ARGV[1]);
+		for my $elem (map {
+				/^([0-9a-f]+) (.*)$/;
+				[$1 => $2];
+			} split(/\n/, $ARGV[2])) {
+			if (!exists $not_in_next{$elem->[0]}) {
+				if ($msg) {
+					print STDERR $msg;
+					undef $msg;
+				}
+				print STDERR " $elem->[1]\n";
+			}
+		}
+	' "$topic" "$not_in_next" "$not_in_master"
+	exit 1
+fi
+
+<<\DOC_END
+
+This sample hook safeguards topic branches that have been
+published from being rewound.
+
+The workflow assumed here is:
+
+ * Once a topic branch forks from "master", "master" is never
+   merged into it again (either directly or indirectly).
+
+ * Once a topic branch is fully cooked and merged into "master",
+   it is deleted.  If you need to build on top of it to correct
+   earlier mistakes, a new topic branch is created by forking at
+   the tip of the "master".  This is not strictly necessary, but
+   it makes it easier to keep your history simple.
+
+ * Whenever you need to test or publish your changes to topic
+   branches, merge them into "next" branch.
+
+The script, being an example, hardcodes the publish branch name
+to be "next", but it is trivial to make it configurable via
+$GIT_DIR/config mechanism.
+
+With this workflow, you would want to know:
+
+(1) ... if a topic branch has ever been merged to "next".  Young
+    topic branches can have stupid mistakes you would rather
+    clean up before publishing, and things that have not been
+    merged into other branches can be easily rebased without
+    affecting other people.  But once it is published, you would
+    not want to rewind it.
+
+(2) ... if a topic branch has been fully merged to "master".
+    Then you can delete it.  More importantly, you should not
+    build on top of it -- other people may already want to
+    change things related to the topic as patches against your
+    "master", so if you need further changes, it is better to
+    fork the topic (perhaps with the same name) afresh from the
+    tip of "master".
+
+Let's look at this example:
+
+		   o---o---o---o---o---o---o---o---o---o "next"
+		  /       /           /           /
+		 /   a---a---b A     /           /
+		/   /               /           /
+	       /   /   c---c---c---c B         /
+	      /   /   /             \         /
+	     /   /   /   b---b C     \       /
+	    /   /   /   /             \     /
+    ---o---o---o---o---o---o---o---o---o---o---o "master"
+
+
+A, B and C are topic branches.
+
+ * A has one fix since it was merged up to "next".
+
+ * B has finished.  It has been fully merged up to "master" and "next",
+   and is ready to be deleted.
+
+ * C has not merged to "next" at all.
+
+We would want to allow C to be rebased, refuse A, and encourage
+B to be deleted.
+
+To compute (1):
+
+	git rev-list ^master ^topic next
+	git rev-list ^master        next
+
+	if these match, topic has not merged in next at all.
+
+To compute (2):
+
+	git rev-list master..topic
+
+	if this is empty, it is fully merged to "master".
+
+DOC_END

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/hooks/pre-receive.sample Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/hooks/prepare-commit-msg.sample Added

@@ -0,0 +1,42 @@
+#!/usr/bin/sh
+#
+# An example hook script to prepare the commit log message.
+# Called by "git commit" with the name of the file that has the
+# commit message, followed by the description of the commit
+# message's source.  The hook's purpose is to edit the commit
+# message file.  If the hook fails with a non-zero status,
+# the commit is aborted.
+#
+# To enable this hook, rename this file to "prepare-commit-msg".
+
+# This hook includes three examples. The first one removes the
+# "# Please enter the commit message..." help message.
+#
+# The second includes the output of "git diff --name-status -r"
+# into the message, just before the "git status" output.  It is
+# commented because it doesn't cope with --amend or with squashed
+# commits.
+#
+# The third example adds a Signed-off-by line to the message, that can
+# still be edited.  This is rarely a good idea.
+
+COMMIT_MSG_FILE=$1
+COMMIT_SOURCE=$2
+SHA1=$3
+
+/usr/bin/perl -i.bak -ne 'print unless(m/^. Please enter the commit message/..m/^#$/)' "$COMMIT_MSG_FILE"
+
+# case "$COMMIT_SOURCE,$SHA1" in
+#  ,|template,)
+#    /usr/bin/perl -i.bak -pe '
+#       print "\n" . `git diff --cached --name-status -r`
+# 	 if /^#/ && $first++ == 0' "$COMMIT_MSG_FILE" ;;
+#  *) ;;
+# esac
+
+# SOB=$(git var GIT_COMMITTER_IDENT | sed -n 's/^$.*>$.*$/Signed-off-by: \1/p')
+# git interpret-trailers --in-place --trailer "$SOB" "$COMMIT_MSG_FILE"
+# if test -z "$COMMIT_SOURCE"
+# then
+#   /usr/bin/perl -i.bak -pe 'print "\n" if !$first_line++' "$COMMIT_MSG_FILE"
+# fi

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/hooks/update.sample Added

@@ -0,0 +1,128 @@
+#!/usr/bin/sh
+#
+# An example hook script to block unannotated tags from entering.
+# Called by "git receive-pack" with arguments: refname sha1-old sha1-new
+#
+# To enable this hook, rename this file to "update".
+#
+# Config
+# ------
+# hooks.allowunannotated
+#   This boolean sets whether unannotated tags will be allowed into the
+#   repository.  By default they won't be.
+# hooks.allowdeletetag
+#   This boolean sets whether deleting tags will be allowed in the
+#   repository.  By default they won't be.
+# hooks.allowmodifytag
+#   This boolean sets whether a tag may be modified after creation. By default
+#   it won't be.
+# hooks.allowdeletebranch
+#   This boolean sets whether deleting branches will be allowed in the
+#   repository.  By default they won't be.
+# hooks.denycreatebranch
+#   This boolean sets whether remotely creating branches will be denied
+#   in the repository.  By default this is allowed.
+#
+
+# --- Command line
+refname="$1"
+oldrev="$2"
+newrev="$3"
+
+# --- Safety check
+if [ -z "$GIT_DIR" ]; then
+	echo "Don't run this script from the command line." >&2
+	echo " (if you want, you could supply GIT_DIR then run" >&2
+	echo "  $0 <ref> <oldrev> <newrev>)" >&2
+	exit 1
+fi
+
+if [ -z "$refname" -o -z "$oldrev" -o -z "$newrev" ]; then
+	echo "usage: $0 <ref> <oldrev> <newrev>" >&2
+	exit 1
+fi
+
+# --- Config
+allowunannotated=$(git config --type=bool hooks.allowunannotated)
+allowdeletebranch=$(git config --type=bool hooks.allowdeletebranch)
+denycreatebranch=$(git config --type=bool hooks.denycreatebranch)
+allowdeletetag=$(git config --type=bool hooks.allowdeletetag)
+allowmodifytag=$(git config --type=bool hooks.allowmodifytag)
+
+# check for no description
+projectdesc=$(sed -e '1q' "$GIT_DIR/description")
+case "$projectdesc" in
+"Unnamed repository"* | "")
+	echo "*** Project description file hasn't been set" >&2
+	exit 1
+	;;
+esac
+
+# --- Check types
+# if $newrev is 0000...0000, it's a commit to delete a ref.
+zero="0000000000000000000000000000000000000000"
+if [ "$newrev" = "$zero" ]; then
+	newrev_type=delete
+else
+	newrev_type=$(git cat-file -t $newrev)
+fi
+
+case "$refname","$newrev_type" in
+	refs/tags/*,commit)
+		# un-annotated tag
+		short_refname=${refname##refs/tags/}
+		if [ "$allowunannotated" != "true" ]; then
+			echo "*** The un-annotated tag, $short_refname, is not allowed in this repository" >&2
+			echo "*** Use 'git tag [ -a | -s ]' for tags you want to propagate." >&2
+			exit 1
+		fi
+		;;
+	refs/tags/*,delete)
+		# delete tag
+		if [ "$allowdeletetag" != "true" ]; then
+			echo "*** Deleting a tag is not allowed in this repository" >&2
+			exit 1
+		fi
+		;;
+	refs/tags/*,tag)
+		# annotated tag
+		if [ "$allowmodifytag" != "true" ] && git rev-parse $refname > /dev/null 2>&1
+		then
+			echo "*** Tag '$refname' already exists." >&2
+			echo "*** Modifying a tag is not allowed in this repository." >&2
+			exit 1
+		fi
+		;;
+	refs/heads/*,commit)
+		# branch
+		if [ "$oldrev" = "$zero" -a "$denycreatebranch" = "true" ]; then
+			echo "*** Creating a branch is not allowed in this repository" >&2
+			exit 1
+		fi
+		;;
+	refs/heads/*,delete)
+		# delete branch
+		if [ "$allowdeletebranch" != "true" ]; then
+			echo "*** Deleting a branch is not allowed in this repository" >&2
+			exit 1
+		fi
+		;;
+	refs/remotes/*,commit)
+		# tracking branch
+		;;
+	refs/remotes/*,delete)
+		# delete tracking branch
+		if [ "$allowdeletebranch" != "true" ]; then
+			echo "*** Deleting a tracking branch is not allowed in this repository" >&2
+			exit 1
+		fi
+		;;
+	*)
+		# Anything else (is there anything else?)
+		echo "*** Update hook: unknown type of update to ref $refname of type $newrev_type" >&2
+		exit 1
+		;;
+esac
+
+# --- Finished
+exit 0

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/index Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/info Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/info/exclude Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/logs Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/logs/HEAD Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/objects Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/objects/info Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/objects/pack Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/objects/pack/pack-aac06d325ab67576846921e8913a0efe6b13f23b.idx Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/objects/pack/pack-aac06d325ab67576846921e8913a0efe6b13f23b.pack Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/packed-refs Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/refs Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/refs/heads Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/refs/tags Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/refs/tags/0.1 Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/refs/tags/0.1.1 Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/refs/tags/0.1.2 Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/refs/tags/0.1.4 Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/refs/tags/0.2 Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/refs/tags/0.2.1 Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/refs/tags/0.2.2 Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/refs/tags/0.2.3 Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/refs/tags/0.2.4 Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/refs/tags/0.2.5 Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/refs/tags/eimap-0.1.2 Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.git/refs/tags/eimap-0.1.5 Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.gitignore Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.rebar3 Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.rebar3/rebar_compiler_erl Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/.rebar3/rebar_compiler_erl/source.dag Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/CHANGELOG.md Added

@@ -0,0 +1,44 @@
+# 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.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.11.tar.gz/_build/default/lib/eimap/Makefile Added

guam-0.9.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/eimap/ebin Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/ebin/eimap_command.beam Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/ebin/eimap_command_annotation.beam Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/ebin/eimap_command_capability.beam Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/ebin/eimap_command_compress.beam Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/ebin/eimap_command_getmetadata.beam Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/ebin/eimap_command_login.beam Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/ebin/eimap_command_logout.beam Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/ebin/eimap_command_namespace.beam Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/ebin/eimap_command_noop.beam Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/ebin/eimap_command_peek_message.beam Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/ebin/eimap_command_starttls.beam Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/ebin/eimap_command_status.beam Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/ebin/eimap_command_switch_folder.beam Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/ebin/eimap_uidset.beam Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/ebin/eimap_utils.beam Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/rebar.config Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/rebar3 Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/src Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/src/commands Added

guam-0.9.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/eimap/src/commands/eimap_command_getmetadata.erl Added

@@ -0,0 +1,117 @@
+%% 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(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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.PEEK[HEADER] BODY.PEEK[TEXT])">>, 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(<<"BODY[HEADER] {", Data/binary>>, Parts) ->
+    parse_header(Data, Parts);
+parse_next_component(<<"BODY[TEXT] {", 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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/eimap/src/eimap.app.src Added

guam-0.9.11.tar.gz/_build/default/lib/eimap/src/eimap.erl Added

@@ -0,0 +1,481 @@
+%% 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 }).
+-record(command, { tag, mbox, message, from, response_type, response_token, parse_state }).
+
+-define(SSL_UPGRADE_TIMEOUT, 5000).
+-define(TCP_CONNECT_TIMEOUT, 5000).
+
+%% 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),
+    State = #state { host = Host, port = Port, tls  = TLS },
+    { 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) }.
+
+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]),
+    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) ->
+    { next_state, idle, ensure_process_command_queue(State) };
+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)]),
+    next_command_after_response(Response, State);
+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(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 }].
+
+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)),
+    State#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 }) ->  joined(zlib:inflate(Inflator, Data), <<>>).
+
+deflated(Data, #state{ deflator = undefined }) -> Data;
+deflated(Data, #state{ deflator = Deflator }) ->  joined(zlib:deflate(Deflator, Data, sync), <<>>).
+
+joined([], Binary) -> Binary;
+joined([H|Rest], Binary) -> joined(Rest, <<Binary/binary, H/binary>>).
+
+

guam-0.9.11.tar.gz/_build/default/lib/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 } = eimap_utils:num_literal_continuation_bytes(Line),
+    process_line(ContinuationBytes, ParseTaggedLine, eimap_utils:is_tagged_response(FirstLine, Tag), Tag, LastPartialLine, FirstLine, MoreLines, Acc, Module).
+
+
+process_line(ContinuationBytes, ParseTaggedLine, IsTagged, Tag, LastPartialLine, Line, [<<>>|MoreLines], Acc, Module) ->
+    %% skip empty lines
+    process_line(ContinuationBytes, ParseTaggedLine, IsTagged, Tag, LastPartialLine, Line, MoreLines, Acc, Module);
+process_line(0, 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));
+process_line(0, ParseTaggedLine, untagged, Tag, LastPartialLine, Line, MoreLines, Acc, Module) ->
+    %io:format("Calling it here with ~p~n~n...", [Line]),
+    process_lines(ParseTaggedLine, Tag, LastPartialLine, MoreLines, Module:process_line(Line, Acc), Module);
+process_line(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(_ContinuationBytes, ParseTaggedLine, IsTagged, Tag, LastPartialLine, Line, [NextLine|MoreLines], Acc, Module) ->
+    { StrippedNextLine, NextContinuationBytes } = 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(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.11.tar.gz/_build/default/lib/eimap/src/eimap_uidset.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_uidset).
+-export([uid_list_to_binary/1, 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.
+
+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.11.tar.gz/_build/default/lib/eimap/src/eimap_utils.erl Added

@@ -0,0 +1,246 @@
+%% 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
+        ]).
+
+%% 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() }.
+num_literal_continuation_bytes(Buffer) when size(Buffer) < 4 ->
+    { Buffer, 0 };
+num_literal_continuation_bytes(Buffer) ->
+    case binary:last(Buffer) =:= $} of
+        true -> number_of_bytes_in_continuation(Buffer);
+        false -> { Buffer, 0 }
+    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 };
+confirm_continuation(Buffer, OpenBracePos) ->
+    BufferSize = size(Buffer),
+    try binary_to_integer(binary:part(Buffer, OpenBracePos + 1, BufferSize - OpenBracePos - 2)) of
+        Result -> { binary:part(Buffer, 0, OpenBracePos), Result }
+    catch
+        _:_ -> { Buffer, 0 }
+    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) ->
+    End = eol_found(Buffer, binary:match(Buffer, <<"\r\n">>)),
+    { Tag, CommandStart } = searched_in_buffer(Buffer, 0, End, binary:match(Buffer, <<" ">>, [ { scope, { 0, End } } ])),
+    { 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 }.
+
+eol_found(Buffer, nomatch) -> size(Buffer);
+eol_found(_Buffer, { MatchStart, _MatchLength }) -> 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) -> <<>>.
+
+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.11.tar.gz/_build/default/lib/eimap/test Added

guam-0.9.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/eimap/test/eimap_command_getmetadata_tests.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_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\\\"\")\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\"">> } ] }
+                  ]
+          }
+        },
+        {
+          <<"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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/eimap/test/eimap_command_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_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 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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/eimap/test/eimap_utils_tests.erl Added

@@ -0,0 +1,198 @@
+%% 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 =
+    [
+        { { <<>>, <<>>, <<>> }, <<>> },
+        { { <<".">>, <<"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 } },
+        { <<"abcd{5}">>, { <<"abcd">>, 5 } },
+        { <<"abcd{100}">>, { <<"abcd">>, 100 } },
+        { <<"123abcd{100}">>, { <<"123abcd">>, 100  } },
+        { <<"ab{123abcd{100}">>, { <<"ab{123abcd">>, 100  } },
+        { <<"ab{123abcd{1{00}">>, { <<"ab{123abcd{1">>, 0 } },
+        { <<"abcd{aa0}">>, { <<"abcd{aa0}">>, 0 } },
+        { <<"abcd{10aa0}">>, { <<"abcd{10aa0}">>, 0 } },
+        { <<"abcd100}">>, { <<"abcd100}">>, 0 } },
+        { <<"abcd100}">>, { <<"abcd100}">>, 0 } }
+    ],
+    lists:foldl(fun({ Input, Output}, Acc) -> [?_assertEqual(Output, eimap_utils:num_literal_continuation_bytes(Input)) | Acc] end, [], Data).
+
+

guam-0.9.11.tar.gz/_build/default/lib/goldrush Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/.rebar3 Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/.rebar3/rebar_compiler_erl Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/.rebar3/rebar_compiler_erl/source.dag Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/LICENSE Added

guam-0.9.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/goldrush/ebin Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/ebin/glc.beam Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/ebin/glc_code.beam Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/ebin/glc_lib.beam Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/ebin/glc_ops.beam Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/ebin/glc_run.beam Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/ebin/goldrush.app Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/ebin/gr_app.beam Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/ebin/gr_context.beam Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/ebin/gr_counter.beam Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/ebin/gr_counter_sup.beam Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/ebin/gr_manager.beam Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/ebin/gr_manager_sup.beam Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/ebin/gr_param.beam Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/ebin/gr_param_sup.beam Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/ebin/gr_sup.beam Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/ebin/gre.beam Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/hex_metadata.config Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/priv Added

guam-0.9.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/goldrush/rebar.config Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/rebar.lock Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/src Added

guam-0.9.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/goldrush/src/glc_run.erl Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/src/goldrush.app.src Added

guam-0.9.11.tar.gz/_build/default/lib/goldrush/src/gr_app.erl Added

guam-0.9.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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. <em>Counter</em>} and
+%% {@link gr_param:start_link/0. <em>Param</em>} 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.11.tar.gz/_build/default/lib/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. 
+%% <em>Manager</em>} processes, which serve as heir of the 
+%% {@link gr_counter:start_link/0. <em>Counter</em>} and
+%% {@link gr_param:start_link/0. <em>Param</em>} 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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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. 
+%% <em>Param</em>}, process table responsible for params
+%% {@link gr_param:start_link/0. <em>Counter</em>} and
+%% their {@link gr_counter:start_link/0. <em>Manager</em>} 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.11.tar.gz/_build/default/lib/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. 
+%% <em>Counter</em>}, {@link gr_param_sup:start_link/0. <em>Param</em>} and
+%% their {@link gr_manager_sup:start_link/0. <em>Manager</em>} 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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/kolab_guam Added

guam-0.9.11.tar.gz/_build/default/lib/kolab_guam/.rebar3 Added

guam-0.9.11.tar.gz/_build/default/lib/kolab_guam/.rebar3/rebar_compiler_erl Added

guam-0.9.11.tar.gz/_build/default/lib/kolab_guam/.rebar3/rebar_compiler_erl/source.dag Added

guam-0.9.11.tar.gz/_build/default/lib/kolab_guam/ebin Added

guam-0.9.11.tar.gz/_build/default/lib/kolab_guam/ebin/kolab_guam.app Added

guam-0.9.11.tar.gz/_build/default/lib/kolab_guam/ebin/kolab_guam.beam Added

guam-0.9.11.tar.gz/_build/default/lib/kolab_guam/ebin/kolab_guam_listener.beam Added

guam-0.9.11.tar.gz/_build/default/lib/kolab_guam/ebin/kolab_guam_rule.beam Added

guam-0.9.11.tar.gz/_build/default/lib/kolab_guam/ebin/kolab_guam_rule_audit.beam Added

guam-0.9.11.tar.gz/_build/default/lib/kolab_guam/ebin/kolab_guam_rule_filter_groupware.beam Added

guam-0.9.11.tar.gz/_build/default/lib/kolab_guam/ebin/kolab_guam_session.beam Added

guam-0.9.11.tar.gz/_build/default/lib/kolab_guam/ebin/kolab_guam_sup.beam Added

guam-0.9.11.tar.gz/_build/default/lib/kolab_guam/include Added

guam-0.9.11.tar.gz/_build/default/lib/kolab_guam/priv Added

guam-0.9.11.tar.gz/_build/default/lib/kolab_guam/src Added

guam-0.9.11.tar.gz/_build/default/lib/lager Added

guam-0.9.11.tar.gz/_build/default/lib/lager/.rebar3 Added

guam-0.9.11.tar.gz/_build/default/lib/lager/.rebar3/rebar_compiler_erl Added

guam-0.9.11.tar.gz/_build/default/lib/lager/.rebar3/rebar_compiler_erl/source.dag Added

guam-0.9.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/lager/README.md Added

@@ -0,0 +1,1379 @@
+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.
+
+[Travis-CI](http://travis-ci.org/erlang-lager/lager) :: [![Build Status](https://travis-ci.org/erlang-lager/lager.svg?branch=master)]
+[![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], [Ww[Dhh]] and [Mdd[Dhh]],
+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, "\e[0m\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.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.11.tar.gz/_build/default/lib/lager/ebin Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/error_logger_lager_h.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager.app Added

@@ -0,0 +1,37 @@
+{application,lager,
+             [{description,"Erlang logging framework"},
+              {vsn,"3.8.1"},
+              {modules,[error_logger_lager_h,lager,lager_app,
+                        lager_backend_throttle,lager_common_test_backend,
+                        lager_config,lager_console_backend,lager_crash_log,
+                        lager_default_formatter,lager_file_backend,
+                        lager_format,lager_handler_watcher,
+                        lager_handler_watcher_sup,lager_manager_killer,
+                        lager_msg,lager_rotator_behaviour,
+                        lager_rotator_default,lager_stdlib,lager_sup,
+                        lager_transform,lager_trunc_io,lager_util]},
+              {applications,[kernel,stdlib,goldrush]},
+              {registered,[lager_sup,lager_event,lager_crash_log,
+                           lager_handler_watcher_sup]},
+              {mod,{lager_app,[]}},
+              {env,[{colored,false},
+                    {colors,[{debug,"\e[0;38m"},
+                             {info,"\e[1;37m"},
+                             {notice,"\e[1;36m"},
+                             {warning,"\e[1;33m"},
+                             {error,"\e[1;31m"},
+                             {critical,"\e[1;35m"},
+                             {alert,"\e[1;44m"},
+                             {emergency,"\e[1;41m"}]},
+                    {crash_log,"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.11.tar.gz/_build/default/lib/lager/ebin/lager.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager_app.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager_backend_throttle.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager_common_test_backend.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager_config.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager_console_backend.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager_crash_log.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager_default_formatter.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager_file_backend.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager_format.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager_handler_watcher.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager_handler_watcher_sup.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager_manager_killer.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager_msg.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager_rotator_behaviour.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager_rotator_default.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager_stdlib.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager_sup.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager_transform.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager_trunc_io.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager/ebin/lager_util.beam Added

guam-0.9.11.tar.gz/_build/default/lib/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.8.1">>}.

guam-0.9.11.tar.gz/_build/default/lib/lager/include Added

guam-0.9.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/lager/priv Added

guam-0.9.11.tar.gz/_build/default/lib/lager/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.11.tar.gz/_build/default/lib/lager/rebar.config Added

@@ -0,0 +1,60 @@
+%% -*- 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, "^(19|20|21|22)", test_statem},
+    {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.11.tar.gz/_build/default/lib/lager/rebar.config.script Added

guam-0.9.11.tar.gz/_build/default/lib/lager/rebar.lock Added

guam-0.9.11.tar.gz/_build/default/lib/lager/src Added

guam-0.9.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/lager/src/lager.app.src Added

@@ -0,0 +1,29 @@
+{application,lager,
+             [{description,"Erlang logging framework"},
+              {vsn,"3.8.1"},
+              {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,"\e[0;38m"},
+                             {info,"\e[1;37m"},
+                             {notice,"\e[1;36m"},
+                             {warning,"\e[1;33m"},
+                             {error,"\e[1;31m"},
+                             {critical,"\e[1;35m"},
+                             {alert,"\e[1;44m"},
+                             {emergency,"\e[1;41m"}]},
+                    {crash_log,"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.11.tar.gz/_build/default/lib/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 <b>only</b> 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.11.tar.gz/_build/default/lib/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, "log/error.log"}, {level, error},
+           {size, 10485760}, {date, "$D0"}, {count, 5}]
+         },
+         {lager_file_backend,
+          [{file, "log/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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}  ->
+            "\e[0m\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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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 < P ->
+                    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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/lager/src/lager_rotator_behaviour.erl Added

guam-0.9.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/lager/src/lager_transform.erl Added

@@ -0,0 +1,339 @@
+%% 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,'_'}]}],
+                  [],
+                  %% trick the linter into avoiding a 'term constructed but not used' error:
+                  %% (fun() -> {error, lager_not_running} end)()
+                  [{call, Line, {'fun', Line, {clauses, [{clause, Line, [],[], [{tuple, 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,'_'}]}],
+                  [],
+                  %% same trick as above to avoid linter error
+                  [{call, Line, {'fun', Line, {clauses, [{clause, Line, [],[], [{tuple,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, Line) ->
+    list_to_atom(Prefix ++ atom_to_list(get(module)) ++ integer_to_list(Line)).
+
+%% 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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/lager/src/lager_util.erl Added

@@ -0,0 +1,967 @@
+%% -------------------------------------------------------------------
+%%
+%% 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(RelPath) ->
+    case application:get_env(lager, log_root) of
+        {ok, LogRoot} when is_list(LogRoot) -> % Join relative path
+            %% check if the given RelPath contains LogRoot, if so, do not add
+            %% it again; see gh #304
+            case string:str(filename:dirname(RelPath), LogRoot) of
+                X when X > 0 ->
+                    RelPath;
+                _Zero ->
+                    filename:join(LogRoot, RelPath)
+            end;
+        undefined -> % No log_root given, keep relative path
+            RelPath
+    end.
+
+%% 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 = filename:absname(File1),
+    File2Abs = filename:absname(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("/foo/bar", expand_path("/foo/bar")),
+    ?assertEqual("foo/bar", expand_path("foo/bar")),
+
+    ok = application:set_env(lager, log_root, "log/dir"),
+    ?assertEqual("/foo/bar", expand_path("/foo/bar")), % Absolute path should not be changed
+    ?assertEqual("log/dir/foo/bar", expand_path("foo/bar")),
+    ?assertEqual("log/dir/foo/bar", expand_path("log/dir/foo/bar")), %% gh #304
+
+    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.11.tar.gz/_build/default/lib/lager_syslog Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/HEAD Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/branches Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/config Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/description Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/hooks Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/hooks/applypatch-msg.sample Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/hooks/commit-msg.sample Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/hooks/fsmonitor-watchman.sample Added

@@ -0,0 +1,173 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use IPC::Open2;
+
+# An example hook script to integrate Watchman
+# (https://facebook.github.io/watchman/) with git to speed up detecting
+# new and modified files.
+#
+# The hook is passed a version (currently 2) and last update token
+# formatted as a string and outputs to stdout a new update token and
+# all files that have been modified since the update token. Paths must
+# be relative to the root of the working tree and separated by a single NUL.
+#
+# To enable this hook, rename this file to "query-watchman" and set
+# 'git config core.fsmonitor .git/hooks/query-watchman'
+#
+my ($version, $last_update_token) = @ARGV;
+
+# Uncomment for debugging
+# print STDERR "$0 $version $last_update_token\n";
+
+# Check the hook interface version
+if ($version ne 2) {
+	die "Unsupported query-fsmonitor hook version '$version'.\n" .
+	    "Falling back to scanning...\n";
+}
+
+my $git_work_tree = get_working_dir();
+
+my $retry = 1;
+
+my $json_pkg;
+eval {
+	require JSON::XS;
+	$json_pkg = "JSON::XS";
+	1;
+} or do {
+	require JSON::PP;
+	$json_pkg = "JSON::PP";
+};
+
+launch_watchman();
+
+sub launch_watchman {
+	my $o = watchman_query();
+	if (is_work_tree_watched($o)) {
+		output_result($o->{clock}, @{$o->{files}});
+	}
+}
+
+sub output_result {
+	my ($clockid, @files) = @_;
+
+	# Uncomment for debugging watchman output
+	# open (my $fh, ">", ".git/watchman-output.out");
+	# binmode $fh, ":utf8";
+	# print $fh "$clockid\n@files\n";
+	# close $fh;
+
+	binmode STDOUT, ":utf8";
+	print $clockid;
+	print "\0";
+	local $, = "\0";
+	print @files;
+}
+
+sub watchman_clock {
+	my $response = qx/watchman clock "$git_work_tree"/;
+	die "Failed to get clock id on '$git_work_tree'.\n" .
+		"Falling back to scanning...\n" if $? != 0;
+
+	return $json_pkg->new->utf8->decode($response);
+}
+
+sub watchman_query {
+	my $pid = open2(\*CHLD_OUT, \*CHLD_IN, 'watchman -j --no-pretty')
+	or die "open2() failed: $!\n" .
+	"Falling back to scanning...\n";
+
+	# In the query expression below we're asking for names of files that
+	# changed since $last_update_token but not from the .git folder.
+	#
+	# To accomplish this, we're using the "since" generator to use the
+	# recency index to select candidate nodes and "fields" to limit the
+	# output to file names only. Then we're using the "expression" term to
+	# further constrain the results.
+	if (substr($last_update_token, 0, 1) eq "c") {
+		$last_update_token = "\"$last_update_token\"";
+	}
+	my $query = <<"	END";
+		["query", "$git_work_tree", {
+			"since": $last_update_token,
+			"fields": ["name"],
+			"expression": ["not", ["dirname", ".git"]]
+		}]
+	END
+
+	# Uncomment for debugging the watchman query
+	# open (my $fh, ">", ".git/watchman-query.json");
+	# print $fh $query;
+	# close $fh;
+
+	print CHLD_IN $query;
+	close CHLD_IN;
+	my $response = do {local $/; <CHLD_OUT>};
+
+	# Uncomment for debugging the watch response
+	# open ($fh, ">", ".git/watchman-response.json");
+	# print $fh $response;
+	# close $fh;
+
+	die "Watchman: command returned no output.\n" .
+	"Falling back to scanning...\n" if $response eq "";
+	die "Watchman: command returned invalid output: $response\n" .
+	"Falling back to scanning...\n" unless $response =~ /^\{/;
+
+	return $json_pkg->new->utf8->decode($response);
+}
+
+sub is_work_tree_watched {
+	my ($output) = @_;
+	my $error = $output->{error};
+	if ($retry > 0 and $error and $error =~ m/unable to resolve root .* directory (.*) is not watched/) {
+		$retry--;
+		my $response = qx/watchman watch "$git_work_tree"/;
+		die "Failed to make watchman watch '$git_work_tree'.\n" .
+		    "Falling back to scanning...\n" if $? != 0;
+		$output = $json_pkg->new->utf8->decode($response);
+		$error = $output->{error};
+		die "Watchman: $error.\n" .
+		"Falling back to scanning...\n" if $error;
+
+		# Uncomment for debugging watchman output
+		# open (my $fh, ">", ".git/watchman-output.out");
+		# close $fh;
+
+		# Watchman will always return all files on the first query so
+		# return the fast "everything is dirty" flag to git and do the
+		# Watchman query just to get it over with now so we won't pay
+		# the cost in git to look up each individual file.
+		my $o = watchman_clock();
+		$error = $output->{error};
+
+		die "Watchman: $error.\n" .
+		"Falling back to scanning...\n" if $error;
+
+		output_result($o->{clock}, ("/"));
+		$last_update_token = $o->{clock};
+
+		eval { launch_watchman() };
+		return 0;
+	}
+
+	die "Watchman: $error.\n" .
+	"Falling back to scanning...\n" if $error;
+
+	return 1;
+}
+
+sub get_working_dir {
+	my $working_dir;
+	if ($^O =~ 'msys' || $^O =~ 'cygwin') {
+		$working_dir = Win32::GetCwd();
+		$working_dir =~ tr/\\/\//;
+	} else {
+		require Cwd;
+		$working_dir = Cwd::cwd();
+	}
+
+	return $working_dir;
+}

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/hooks/post-update.sample Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/hooks/pre-applypatch.sample Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/hooks/pre-commit.sample Added

@@ -0,0 +1,49 @@
+#!/usr/bin/sh
+#
+# An example hook script to verify what is about to be committed.
+# Called by "git commit" with no arguments.  The hook should
+# exit with non-zero status after issuing an appropriate message if
+# it wants to stop the commit.
+#
+# To enable this hook, rename this file to "pre-commit".
+
+if git rev-parse --verify HEAD >/dev/null 2>&1
+then
+	against=HEAD
+else
+	# Initial commit: diff against an empty tree object
+	against=$(git hash-object -t tree /dev/null)
+fi
+
+# If you want to allow non-ASCII filenames set this variable to true.
+allownonascii=$(git config --type=bool hooks.allownonascii)
+
+# Redirect output to stderr.
+exec 1>&2
+
+# Cross platform projects tend to avoid non-ASCII filenames; prevent
+# them from being added to the repository. We exploit the fact that the
+# printable range starts at the space character and ends with tilde.
+if [ "$allownonascii" != "true" ] &&
+	# Note that the use of brackets around a tr range is ok here, (it's
+	# even required, for portability to Solaris 10's /usr/bin/tr), since
+	# the square bracket bytes happen to fall in the designated range.
+	test $(git diff --cached --name-only --diff-filter=A -z $against |
+	  LC_ALL=C tr -d '[ -~]\0' | wc -c) != 0
+then
+	cat <<\EOF
+Error: Attempt to add a non-ASCII file name.
+
+This can cause problems if you want to work with people on other platforms.
+
+To be portable it is advisable to rename the file.
+
+If you know what you are doing you can disable this check using:
+
+  git config hooks.allownonascii true
+EOF
+	exit 1
+fi
+
+# If there are whitespace errors, print the offending file names and fail.
+exec git diff-index --check --cached $against --

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/hooks/pre-merge-commit.sample Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/hooks/pre-push.sample Added

@@ -0,0 +1,53 @@
+#!/usr/bin/sh
+
+# An example hook script to verify what is about to be pushed.  Called by "git
+# push" after it has checked the remote status, but before anything has been
+# pushed.  If this script exits with a non-zero status nothing will be pushed.
+#
+# This hook is called with the following parameters:
+#
+# $1 -- Name of the remote to which the push is being done
+# $2 -- URL to which the push is being done
+#
+# If pushing without using a named remote those arguments will be equal.
+#
+# Information about the commits which are being pushed is supplied as lines to
+# the standard input in the form:
+#
+#   <local ref> <local sha1> <remote ref> <remote sha1>
+#
+# This sample shows how to prevent push of commits where the log message starts
+# with "WIP" (work in progress).
+
+remote="$1"
+url="$2"
+
+z40=0000000000000000000000000000000000000000
+
+while read local_ref local_sha remote_ref remote_sha
+do
+	if [ "$local_sha" = $z40 ]
+	then
+		# Handle delete
+		:
+	else
+		if [ "$remote_sha" = $z40 ]
+		then
+			# New branch, examine all commits
+			range="$local_sha"
+		else
+			# Update to existing branch, examine new commits
+			range="$remote_sha..$local_sha"
+		fi
+
+		# Check for WIP commit
+		commit=`git rev-list -n 1 --grep '^WIP' "$range"`
+		if [ -n "$commit" ]
+		then
+			echo >&2 "Found WIP commit in $local_ref, not pushing"
+			exit 1
+		fi
+	fi
+done
+
+exit 0

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/hooks/pre-rebase.sample Added

@@ -0,0 +1,169 @@
+#!/usr/bin/sh
+#
+# Copyright (c) 2006, 2008 Junio C Hamano
+#
+# The "pre-rebase" hook is run just before "git rebase" starts doing
+# its job, and can prevent the command from running by exiting with
+# non-zero status.
+#
+# The hook is called with the following parameters:
+#
+# $1 -- the upstream the series was forked from.
+# $2 -- the branch being rebased (or empty when rebasing the current branch).
+#
+# This sample shows how to prevent topic branches that are already
+# merged to 'next' branch from getting rebased, because allowing it
+# would result in rebasing already published history.
+
+publish=next
+basebranch="$1"
+if test "$#" = 2
+then
+	topic="refs/heads/$2"
+else
+	topic=`git symbolic-ref HEAD` ||
+	exit 0 ;# we do not interrupt rebasing detached HEAD
+fi
+
+case "$topic" in
+refs/heads/??/*)
+	;;
+*)
+	exit 0 ;# we do not interrupt others.
+	;;
+esac
+
+# Now we are dealing with a topic branch being rebased
+# on top of master.  Is it OK to rebase it?
+
+# Does the topic really exist?
+git show-ref -q "$topic" || {
+	echo >&2 "No such branch $topic"
+	exit 1
+}
+
+# Is topic fully merged to master?
+not_in_master=`git rev-list --pretty=oneline ^master "$topic"`
+if test -z "$not_in_master"
+then
+	echo >&2 "$topic is fully merged to master; better remove it."
+	exit 1 ;# we could allow it, but there is no point.
+fi
+
+# Is topic ever merged to next?  If so you should not be rebasing it.
+only_next_1=`git rev-list ^master "^$topic" ${publish} | sort`
+only_next_2=`git rev-list ^master           ${publish} | sort`
+if test "$only_next_1" = "$only_next_2"
+then
+	not_in_topic=`git rev-list "^$topic" master`
+	if test -z "$not_in_topic"
+	then
+		echo >&2 "$topic is already up to date with master"
+		exit 1 ;# we could allow it, but there is no point.
+	else
+		exit 0
+	fi
+else
+	not_in_next=`git rev-list --pretty=oneline ^${publish} "$topic"`
+	/usr/bin/perl -e '
+		my $topic = $ARGV[0];
+		my $msg = "* $topic has commits already merged to public branch:\n";
+		my (%not_in_next) = map {
+			/^([0-9a-f]+) /;
+			($1 => 1);
+		} split(/\n/, $ARGV[1]);
+		for my $elem (map {
+				/^([0-9a-f]+) (.*)$/;
+				[$1 => $2];
+			} split(/\n/, $ARGV[2])) {
+			if (!exists $not_in_next{$elem->[0]}) {
+				if ($msg) {
+					print STDERR $msg;
+					undef $msg;
+				}
+				print STDERR " $elem->[1]\n";
+			}
+		}
+	' "$topic" "$not_in_next" "$not_in_master"
+	exit 1
+fi
+
+<<\DOC_END
+
+This sample hook safeguards topic branches that have been
+published from being rewound.
+
+The workflow assumed here is:
+
+ * Once a topic branch forks from "master", "master" is never
+   merged into it again (either directly or indirectly).
+
+ * Once a topic branch is fully cooked and merged into "master",
+   it is deleted.  If you need to build on top of it to correct
+   earlier mistakes, a new topic branch is created by forking at
+   the tip of the "master".  This is not strictly necessary, but
+   it makes it easier to keep your history simple.
+
+ * Whenever you need to test or publish your changes to topic
+   branches, merge them into "next" branch.
+
+The script, being an example, hardcodes the publish branch name
+to be "next", but it is trivial to make it configurable via
+$GIT_DIR/config mechanism.
+
+With this workflow, you would want to know:
+
+(1) ... if a topic branch has ever been merged to "next".  Young
+    topic branches can have stupid mistakes you would rather
+    clean up before publishing, and things that have not been
+    merged into other branches can be easily rebased without
+    affecting other people.  But once it is published, you would
+    not want to rewind it.
+
+(2) ... if a topic branch has been fully merged to "master".
+    Then you can delete it.  More importantly, you should not
+    build on top of it -- other people may already want to
+    change things related to the topic as patches against your
+    "master", so if you need further changes, it is better to
+    fork the topic (perhaps with the same name) afresh from the
+    tip of "master".
+
+Let's look at this example:
+
+		   o---o---o---o---o---o---o---o---o---o "next"
+		  /       /           /           /
+		 /   a---a---b A     /           /
+		/   /               /           /
+	       /   /   c---c---c---c B         /
+	      /   /   /             \         /
+	     /   /   /   b---b C     \       /
+	    /   /   /   /             \     /
+    ---o---o---o---o---o---o---o---o---o---o---o "master"
+
+
+A, B and C are topic branches.
+
+ * A has one fix since it was merged up to "next".
+
+ * B has finished.  It has been fully merged up to "master" and "next",
+   and is ready to be deleted.
+
+ * C has not merged to "next" at all.
+
+We would want to allow C to be rebased, refuse A, and encourage
+B to be deleted.
+
+To compute (1):
+
+	git rev-list ^master ^topic next
+	git rev-list ^master        next
+
+	if these match, topic has not merged in next at all.
+
+To compute (2):
+
+	git rev-list master..topic
+
+	if this is empty, it is fully merged to "master".
+
+DOC_END

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/hooks/pre-receive.sample Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/hooks/prepare-commit-msg.sample Added

@@ -0,0 +1,42 @@
+#!/usr/bin/sh
+#
+# An example hook script to prepare the commit log message.
+# Called by "git commit" with the name of the file that has the
+# commit message, followed by the description of the commit
+# message's source.  The hook's purpose is to edit the commit
+# message file.  If the hook fails with a non-zero status,
+# the commit is aborted.
+#
+# To enable this hook, rename this file to "prepare-commit-msg".
+
+# This hook includes three examples. The first one removes the
+# "# Please enter the commit message..." help message.
+#
+# The second includes the output of "git diff --name-status -r"
+# into the message, just before the "git status" output.  It is
+# commented because it doesn't cope with --amend or with squashed
+# commits.
+#
+# The third example adds a Signed-off-by line to the message, that can
+# still be edited.  This is rarely a good idea.
+
+COMMIT_MSG_FILE=$1
+COMMIT_SOURCE=$2
+SHA1=$3
+
+/usr/bin/perl -i.bak -ne 'print unless(m/^. Please enter the commit message/..m/^#$/)' "$COMMIT_MSG_FILE"
+
+# case "$COMMIT_SOURCE,$SHA1" in
+#  ,|template,)
+#    /usr/bin/perl -i.bak -pe '
+#       print "\n" . `git diff --cached --name-status -r`
+# 	 if /^#/ && $first++ == 0' "$COMMIT_MSG_FILE" ;;
+#  *) ;;
+# esac
+
+# SOB=$(git var GIT_COMMITTER_IDENT | sed -n 's/^$.*>$.*$/Signed-off-by: \1/p')
+# git interpret-trailers --in-place --trailer "$SOB" "$COMMIT_MSG_FILE"
+# if test -z "$COMMIT_SOURCE"
+# then
+#   /usr/bin/perl -i.bak -pe 'print "\n" if !$first_line++' "$COMMIT_MSG_FILE"
+# fi

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/hooks/update.sample Added

@@ -0,0 +1,128 @@
+#!/usr/bin/sh
+#
+# An example hook script to block unannotated tags from entering.
+# Called by "git receive-pack" with arguments: refname sha1-old sha1-new
+#
+# To enable this hook, rename this file to "update".
+#
+# Config
+# ------
+# hooks.allowunannotated
+#   This boolean sets whether unannotated tags will be allowed into the
+#   repository.  By default they won't be.
+# hooks.allowdeletetag
+#   This boolean sets whether deleting tags will be allowed in the
+#   repository.  By default they won't be.
+# hooks.allowmodifytag
+#   This boolean sets whether a tag may be modified after creation. By default
+#   it won't be.
+# hooks.allowdeletebranch
+#   This boolean sets whether deleting branches will be allowed in the
+#   repository.  By default they won't be.
+# hooks.denycreatebranch
+#   This boolean sets whether remotely creating branches will be denied
+#   in the repository.  By default this is allowed.
+#
+
+# --- Command line
+refname="$1"
+oldrev="$2"
+newrev="$3"
+
+# --- Safety check
+if [ -z "$GIT_DIR" ]; then
+	echo "Don't run this script from the command line." >&2
+	echo " (if you want, you could supply GIT_DIR then run" >&2
+	echo "  $0 <ref> <oldrev> <newrev>)" >&2
+	exit 1
+fi
+
+if [ -z "$refname" -o -z "$oldrev" -o -z "$newrev" ]; then
+	echo "usage: $0 <ref> <oldrev> <newrev>" >&2
+	exit 1
+fi
+
+# --- Config
+allowunannotated=$(git config --type=bool hooks.allowunannotated)
+allowdeletebranch=$(git config --type=bool hooks.allowdeletebranch)
+denycreatebranch=$(git config --type=bool hooks.denycreatebranch)
+allowdeletetag=$(git config --type=bool hooks.allowdeletetag)
+allowmodifytag=$(git config --type=bool hooks.allowmodifytag)
+
+# check for no description
+projectdesc=$(sed -e '1q' "$GIT_DIR/description")
+case "$projectdesc" in
+"Unnamed repository"* | "")
+	echo "*** Project description file hasn't been set" >&2
+	exit 1
+	;;
+esac
+
+# --- Check types
+# if $newrev is 0000...0000, it's a commit to delete a ref.
+zero="0000000000000000000000000000000000000000"
+if [ "$newrev" = "$zero" ]; then
+	newrev_type=delete
+else
+	newrev_type=$(git cat-file -t $newrev)
+fi
+
+case "$refname","$newrev_type" in
+	refs/tags/*,commit)
+		# un-annotated tag
+		short_refname=${refname##refs/tags/}
+		if [ "$allowunannotated" != "true" ]; then
+			echo "*** The un-annotated tag, $short_refname, is not allowed in this repository" >&2
+			echo "*** Use 'git tag [ -a | -s ]' for tags you want to propagate." >&2
+			exit 1
+		fi
+		;;
+	refs/tags/*,delete)
+		# delete tag
+		if [ "$allowdeletetag" != "true" ]; then
+			echo "*** Deleting a tag is not allowed in this repository" >&2
+			exit 1
+		fi
+		;;
+	refs/tags/*,tag)
+		# annotated tag
+		if [ "$allowmodifytag" != "true" ] && git rev-parse $refname > /dev/null 2>&1
+		then
+			echo "*** Tag '$refname' already exists." >&2
+			echo "*** Modifying a tag is not allowed in this repository." >&2
+			exit 1
+		fi
+		;;
+	refs/heads/*,commit)
+		# branch
+		if [ "$oldrev" = "$zero" -a "$denycreatebranch" = "true" ]; then
+			echo "*** Creating a branch is not allowed in this repository" >&2
+			exit 1
+		fi
+		;;
+	refs/heads/*,delete)
+		# delete branch
+		if [ "$allowdeletebranch" != "true" ]; then
+			echo "*** Deleting a branch is not allowed in this repository" >&2
+			exit 1
+		fi
+		;;
+	refs/remotes/*,commit)
+		# tracking branch
+		;;
+	refs/remotes/*,delete)
+		# delete tracking branch
+		if [ "$allowdeletebranch" != "true" ]; then
+			echo "*** Deleting a tracking branch is not allowed in this repository" >&2
+			exit 1
+		fi
+		;;
+	*)
+		# Anything else (is there anything else?)
+		echo "*** Update hook: unknown type of update to ref $refname of type $newrev_type" >&2
+		exit 1
+		;;
+esac
+
+# --- Finished
+exit 0

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/index Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/info Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/info/exclude Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/logs Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/logs/HEAD Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/objects Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/objects/info Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/objects/pack Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/objects/pack/pack-fd92f774b6c37e398e2e1178b7a16ee6a239a885.idx Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/objects/pack/pack-fd92f774b6c37e398e2e1178b7a16ee6a239a885.pack Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/packed-refs Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/refs Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/refs/heads Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/refs/tags Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.git/refs/tags/1.2.1 Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.gitignore Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.rebar3 Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.rebar3/rebar_compiler_erl Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.rebar3/rebar_compiler_erl/source.dag Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/.travis.yml Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/lager_syslog/README.org Added

@@ -0,0 +1,53 @@
+* Overview
+  [[http://travis-ci.org/basho/lager_syslog][Travis-CI]] :: [[https://secure.travis-ci.org/basho/lager_syslog.png]]
+
+  This is a syslog backend for [[https://github.com/basho/lager][Lager]]. 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.php][riak]]
+  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.11.tar.gz/_build/default/lib/lager_syslog/ebin Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/ebin/lager_syslog.app Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/ebin/lager_syslog_backend.beam Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/rebar Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/rebar.config Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/src Added

guam-0.9.11.tar.gz/_build/default/lib/lager_syslog/src/lager_syslog.app.src Added

guam-0.9.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/syslog Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/HEAD Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/branches Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/config Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/description Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/hooks Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/hooks/applypatch-msg.sample Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/hooks/commit-msg.sample Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/hooks/fsmonitor-watchman.sample Added

@@ -0,0 +1,173 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use IPC::Open2;
+
+# An example hook script to integrate Watchman
+# (https://facebook.github.io/watchman/) with git to speed up detecting
+# new and modified files.
+#
+# The hook is passed a version (currently 2) and last update token
+# formatted as a string and outputs to stdout a new update token and
+# all files that have been modified since the update token. Paths must
+# be relative to the root of the working tree and separated by a single NUL.
+#
+# To enable this hook, rename this file to "query-watchman" and set
+# 'git config core.fsmonitor .git/hooks/query-watchman'
+#
+my ($version, $last_update_token) = @ARGV;
+
+# Uncomment for debugging
+# print STDERR "$0 $version $last_update_token\n";
+
+# Check the hook interface version
+if ($version ne 2) {
+	die "Unsupported query-fsmonitor hook version '$version'.\n" .
+	    "Falling back to scanning...\n";
+}
+
+my $git_work_tree = get_working_dir();
+
+my $retry = 1;
+
+my $json_pkg;
+eval {
+	require JSON::XS;
+	$json_pkg = "JSON::XS";
+	1;
+} or do {
+	require JSON::PP;
+	$json_pkg = "JSON::PP";
+};
+
+launch_watchman();
+
+sub launch_watchman {
+	my $o = watchman_query();
+	if (is_work_tree_watched($o)) {
+		output_result($o->{clock}, @{$o->{files}});
+	}
+}
+
+sub output_result {
+	my ($clockid, @files) = @_;
+
+	# Uncomment for debugging watchman output
+	# open (my $fh, ">", ".git/watchman-output.out");
+	# binmode $fh, ":utf8";
+	# print $fh "$clockid\n@files\n";
+	# close $fh;
+
+	binmode STDOUT, ":utf8";
+	print $clockid;
+	print "\0";
+	local $, = "\0";
+	print @files;
+}
+
+sub watchman_clock {
+	my $response = qx/watchman clock "$git_work_tree"/;
+	die "Failed to get clock id on '$git_work_tree'.\n" .
+		"Falling back to scanning...\n" if $? != 0;
+
+	return $json_pkg->new->utf8->decode($response);
+}
+
+sub watchman_query {
+	my $pid = open2(\*CHLD_OUT, \*CHLD_IN, 'watchman -j --no-pretty')
+	or die "open2() failed: $!\n" .
+	"Falling back to scanning...\n";
+
+	# In the query expression below we're asking for names of files that
+	# changed since $last_update_token but not from the .git folder.
+	#
+	# To accomplish this, we're using the "since" generator to use the
+	# recency index to select candidate nodes and "fields" to limit the
+	# output to file names only. Then we're using the "expression" term to
+	# further constrain the results.
+	if (substr($last_update_token, 0, 1) eq "c") {
+		$last_update_token = "\"$last_update_token\"";
+	}
+	my $query = <<"	END";
+		["query", "$git_work_tree", {
+			"since": $last_update_token,
+			"fields": ["name"],
+			"expression": ["not", ["dirname", ".git"]]
+		}]
+	END
+
+	# Uncomment for debugging the watchman query
+	# open (my $fh, ">", ".git/watchman-query.json");
+	# print $fh $query;
+	# close $fh;
+
+	print CHLD_IN $query;
+	close CHLD_IN;
+	my $response = do {local $/; <CHLD_OUT>};
+
+	# Uncomment for debugging the watch response
+	# open ($fh, ">", ".git/watchman-response.json");
+	# print $fh $response;
+	# close $fh;
+
+	die "Watchman: command returned no output.\n" .
+	"Falling back to scanning...\n" if $response eq "";
+	die "Watchman: command returned invalid output: $response\n" .
+	"Falling back to scanning...\n" unless $response =~ /^\{/;
+
+	return $json_pkg->new->utf8->decode($response);
+}
+
+sub is_work_tree_watched {
+	my ($output) = @_;
+	my $error = $output->{error};
+	if ($retry > 0 and $error and $error =~ m/unable to resolve root .* directory (.*) is not watched/) {
+		$retry--;
+		my $response = qx/watchman watch "$git_work_tree"/;
+		die "Failed to make watchman watch '$git_work_tree'.\n" .
+		    "Falling back to scanning...\n" if $? != 0;
+		$output = $json_pkg->new->utf8->decode($response);
+		$error = $output->{error};
+		die "Watchman: $error.\n" .
+		"Falling back to scanning...\n" if $error;
+
+		# Uncomment for debugging watchman output
+		# open (my $fh, ">", ".git/watchman-output.out");
+		# close $fh;
+
+		# Watchman will always return all files on the first query so
+		# return the fast "everything is dirty" flag to git and do the
+		# Watchman query just to get it over with now so we won't pay
+		# the cost in git to look up each individual file.
+		my $o = watchman_clock();
+		$error = $output->{error};
+
+		die "Watchman: $error.\n" .
+		"Falling back to scanning...\n" if $error;
+
+		output_result($o->{clock}, ("/"));
+		$last_update_token = $o->{clock};
+
+		eval { launch_watchman() };
+		return 0;
+	}
+
+	die "Watchman: $error.\n" .
+	"Falling back to scanning...\n" if $error;
+
+	return 1;
+}
+
+sub get_working_dir {
+	my $working_dir;
+	if ($^O =~ 'msys' || $^O =~ 'cygwin') {
+		$working_dir = Win32::GetCwd();
+		$working_dir =~ tr/\\/\//;
+	} else {
+		require Cwd;
+		$working_dir = Cwd::cwd();
+	}
+
+	return $working_dir;
+}

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/hooks/post-update.sample Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/hooks/pre-applypatch.sample Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/hooks/pre-commit.sample Added

@@ -0,0 +1,49 @@
+#!/usr/bin/sh
+#
+# An example hook script to verify what is about to be committed.
+# Called by "git commit" with no arguments.  The hook should
+# exit with non-zero status after issuing an appropriate message if
+# it wants to stop the commit.
+#
+# To enable this hook, rename this file to "pre-commit".
+
+if git rev-parse --verify HEAD >/dev/null 2>&1
+then
+	against=HEAD
+else
+	# Initial commit: diff against an empty tree object
+	against=$(git hash-object -t tree /dev/null)
+fi
+
+# If you want to allow non-ASCII filenames set this variable to true.
+allownonascii=$(git config --type=bool hooks.allownonascii)
+
+# Redirect output to stderr.
+exec 1>&2
+
+# Cross platform projects tend to avoid non-ASCII filenames; prevent
+# them from being added to the repository. We exploit the fact that the
+# printable range starts at the space character and ends with tilde.
+if [ "$allownonascii" != "true" ] &&
+	# Note that the use of brackets around a tr range is ok here, (it's
+	# even required, for portability to Solaris 10's /usr/bin/tr), since
+	# the square bracket bytes happen to fall in the designated range.
+	test $(git diff --cached --name-only --diff-filter=A -z $against |
+	  LC_ALL=C tr -d '[ -~]\0' | wc -c) != 0
+then
+	cat <<\EOF
+Error: Attempt to add a non-ASCII file name.
+
+This can cause problems if you want to work with people on other platforms.
+
+To be portable it is advisable to rename the file.
+
+If you know what you are doing you can disable this check using:
+
+  git config hooks.allownonascii true
+EOF
+	exit 1
+fi
+
+# If there are whitespace errors, print the offending file names and fail.
+exec git diff-index --check --cached $against --

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/hooks/pre-merge-commit.sample Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/hooks/pre-push.sample Added

@@ -0,0 +1,53 @@
+#!/usr/bin/sh
+
+# An example hook script to verify what is about to be pushed.  Called by "git
+# push" after it has checked the remote status, but before anything has been
+# pushed.  If this script exits with a non-zero status nothing will be pushed.
+#
+# This hook is called with the following parameters:
+#
+# $1 -- Name of the remote to which the push is being done
+# $2 -- URL to which the push is being done
+#
+# If pushing without using a named remote those arguments will be equal.
+#
+# Information about the commits which are being pushed is supplied as lines to
+# the standard input in the form:
+#
+#   <local ref> <local sha1> <remote ref> <remote sha1>
+#
+# This sample shows how to prevent push of commits where the log message starts
+# with "WIP" (work in progress).
+
+remote="$1"
+url="$2"
+
+z40=0000000000000000000000000000000000000000
+
+while read local_ref local_sha remote_ref remote_sha
+do
+	if [ "$local_sha" = $z40 ]
+	then
+		# Handle delete
+		:
+	else
+		if [ "$remote_sha" = $z40 ]
+		then
+			# New branch, examine all commits
+			range="$local_sha"
+		else
+			# Update to existing branch, examine new commits
+			range="$remote_sha..$local_sha"
+		fi
+
+		# Check for WIP commit
+		commit=`git rev-list -n 1 --grep '^WIP' "$range"`
+		if [ -n "$commit" ]
+		then
+			echo >&2 "Found WIP commit in $local_ref, not pushing"
+			exit 1
+		fi
+	fi
+done
+
+exit 0

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/hooks/pre-rebase.sample Added

@@ -0,0 +1,169 @@
+#!/usr/bin/sh
+#
+# Copyright (c) 2006, 2008 Junio C Hamano
+#
+# The "pre-rebase" hook is run just before "git rebase" starts doing
+# its job, and can prevent the command from running by exiting with
+# non-zero status.
+#
+# The hook is called with the following parameters:
+#
+# $1 -- the upstream the series was forked from.
+# $2 -- the branch being rebased (or empty when rebasing the current branch).
+#
+# This sample shows how to prevent topic branches that are already
+# merged to 'next' branch from getting rebased, because allowing it
+# would result in rebasing already published history.
+
+publish=next
+basebranch="$1"
+if test "$#" = 2
+then
+	topic="refs/heads/$2"
+else
+	topic=`git symbolic-ref HEAD` ||
+	exit 0 ;# we do not interrupt rebasing detached HEAD
+fi
+
+case "$topic" in
+refs/heads/??/*)
+	;;
+*)
+	exit 0 ;# we do not interrupt others.
+	;;
+esac
+
+# Now we are dealing with a topic branch being rebased
+# on top of master.  Is it OK to rebase it?
+
+# Does the topic really exist?
+git show-ref -q "$topic" || {
+	echo >&2 "No such branch $topic"
+	exit 1
+}
+
+# Is topic fully merged to master?
+not_in_master=`git rev-list --pretty=oneline ^master "$topic"`
+if test -z "$not_in_master"
+then
+	echo >&2 "$topic is fully merged to master; better remove it."
+	exit 1 ;# we could allow it, but there is no point.
+fi
+
+# Is topic ever merged to next?  If so you should not be rebasing it.
+only_next_1=`git rev-list ^master "^$topic" ${publish} | sort`
+only_next_2=`git rev-list ^master           ${publish} | sort`
+if test "$only_next_1" = "$only_next_2"
+then
+	not_in_topic=`git rev-list "^$topic" master`
+	if test -z "$not_in_topic"
+	then
+		echo >&2 "$topic is already up to date with master"
+		exit 1 ;# we could allow it, but there is no point.
+	else
+		exit 0
+	fi
+else
+	not_in_next=`git rev-list --pretty=oneline ^${publish} "$topic"`
+	/usr/bin/perl -e '
+		my $topic = $ARGV[0];
+		my $msg = "* $topic has commits already merged to public branch:\n";
+		my (%not_in_next) = map {
+			/^([0-9a-f]+) /;
+			($1 => 1);
+		} split(/\n/, $ARGV[1]);
+		for my $elem (map {
+				/^([0-9a-f]+) (.*)$/;
+				[$1 => $2];
+			} split(/\n/, $ARGV[2])) {
+			if (!exists $not_in_next{$elem->[0]}) {
+				if ($msg) {
+					print STDERR $msg;
+					undef $msg;
+				}
+				print STDERR " $elem->[1]\n";
+			}
+		}
+	' "$topic" "$not_in_next" "$not_in_master"
+	exit 1
+fi
+
+<<\DOC_END
+
+This sample hook safeguards topic branches that have been
+published from being rewound.
+
+The workflow assumed here is:
+
+ * Once a topic branch forks from "master", "master" is never
+   merged into it again (either directly or indirectly).
+
+ * Once a topic branch is fully cooked and merged into "master",
+   it is deleted.  If you need to build on top of it to correct
+   earlier mistakes, a new topic branch is created by forking at
+   the tip of the "master".  This is not strictly necessary, but
+   it makes it easier to keep your history simple.
+
+ * Whenever you need to test or publish your changes to topic
+   branches, merge them into "next" branch.
+
+The script, being an example, hardcodes the publish branch name
+to be "next", but it is trivial to make it configurable via
+$GIT_DIR/config mechanism.
+
+With this workflow, you would want to know:
+
+(1) ... if a topic branch has ever been merged to "next".  Young
+    topic branches can have stupid mistakes you would rather
+    clean up before publishing, and things that have not been
+    merged into other branches can be easily rebased without
+    affecting other people.  But once it is published, you would
+    not want to rewind it.
+
+(2) ... if a topic branch has been fully merged to "master".
+    Then you can delete it.  More importantly, you should not
+    build on top of it -- other people may already want to
+    change things related to the topic as patches against your
+    "master", so if you need further changes, it is better to
+    fork the topic (perhaps with the same name) afresh from the
+    tip of "master".
+
+Let's look at this example:
+
+		   o---o---o---o---o---o---o---o---o---o "next"
+		  /       /           /           /
+		 /   a---a---b A     /           /
+		/   /               /           /
+	       /   /   c---c---c---c B         /
+	      /   /   /             \         /
+	     /   /   /   b---b C     \       /
+	    /   /   /   /             \     /
+    ---o---o---o---o---o---o---o---o---o---o---o "master"
+
+
+A, B and C are topic branches.
+
+ * A has one fix since it was merged up to "next".
+
+ * B has finished.  It has been fully merged up to "master" and "next",
+   and is ready to be deleted.
+
+ * C has not merged to "next" at all.
+
+We would want to allow C to be rebased, refuse A, and encourage
+B to be deleted.
+
+To compute (1):
+
+	git rev-list ^master ^topic next
+	git rev-list ^master        next
+
+	if these match, topic has not merged in next at all.
+
+To compute (2):
+
+	git rev-list master..topic
+
+	if this is empty, it is fully merged to "master".
+
+DOC_END

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/hooks/pre-receive.sample Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/hooks/prepare-commit-msg.sample Added

@@ -0,0 +1,42 @@
+#!/usr/bin/sh
+#
+# An example hook script to prepare the commit log message.
+# Called by "git commit" with the name of the file that has the
+# commit message, followed by the description of the commit
+# message's source.  The hook's purpose is to edit the commit
+# message file.  If the hook fails with a non-zero status,
+# the commit is aborted.
+#
+# To enable this hook, rename this file to "prepare-commit-msg".
+
+# This hook includes three examples. The first one removes the
+# "# Please enter the commit message..." help message.
+#
+# The second includes the output of "git diff --name-status -r"
+# into the message, just before the "git status" output.  It is
+# commented because it doesn't cope with --amend or with squashed
+# commits.
+#
+# The third example adds a Signed-off-by line to the message, that can
+# still be edited.  This is rarely a good idea.
+
+COMMIT_MSG_FILE=$1
+COMMIT_SOURCE=$2
+SHA1=$3
+
+/usr/bin/perl -i.bak -ne 'print unless(m/^. Please enter the commit message/..m/^#$/)' "$COMMIT_MSG_FILE"
+
+# case "$COMMIT_SOURCE,$SHA1" in
+#  ,|template,)
+#    /usr/bin/perl -i.bak -pe '
+#       print "\n" . `git diff --cached --name-status -r`
+# 	 if /^#/ && $first++ == 0' "$COMMIT_MSG_FILE" ;;
+#  *) ;;
+# esac
+
+# SOB=$(git var GIT_COMMITTER_IDENT | sed -n 's/^$.*>$.*$/Signed-off-by: \1/p')
+# git interpret-trailers --in-place --trailer "$SOB" "$COMMIT_MSG_FILE"
+# if test -z "$COMMIT_SOURCE"
+# then
+#   /usr/bin/perl -i.bak -pe 'print "\n" if !$first_line++' "$COMMIT_MSG_FILE"
+# fi

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/hooks/update.sample Added

@@ -0,0 +1,128 @@
+#!/usr/bin/sh
+#
+# An example hook script to block unannotated tags from entering.
+# Called by "git receive-pack" with arguments: refname sha1-old sha1-new
+#
+# To enable this hook, rename this file to "update".
+#
+# Config
+# ------
+# hooks.allowunannotated
+#   This boolean sets whether unannotated tags will be allowed into the
+#   repository.  By default they won't be.
+# hooks.allowdeletetag
+#   This boolean sets whether deleting tags will be allowed in the
+#   repository.  By default they won't be.
+# hooks.allowmodifytag
+#   This boolean sets whether a tag may be modified after creation. By default
+#   it won't be.
+# hooks.allowdeletebranch
+#   This boolean sets whether deleting branches will be allowed in the
+#   repository.  By default they won't be.
+# hooks.denycreatebranch
+#   This boolean sets whether remotely creating branches will be denied
+#   in the repository.  By default this is allowed.
+#
+
+# --- Command line
+refname="$1"
+oldrev="$2"
+newrev="$3"
+
+# --- Safety check
+if [ -z "$GIT_DIR" ]; then
+	echo "Don't run this script from the command line." >&2
+	echo " (if you want, you could supply GIT_DIR then run" >&2
+	echo "  $0 <ref> <oldrev> <newrev>)" >&2
+	exit 1
+fi
+
+if [ -z "$refname" -o -z "$oldrev" -o -z "$newrev" ]; then
+	echo "usage: $0 <ref> <oldrev> <newrev>" >&2
+	exit 1
+fi
+
+# --- Config
+allowunannotated=$(git config --type=bool hooks.allowunannotated)
+allowdeletebranch=$(git config --type=bool hooks.allowdeletebranch)
+denycreatebranch=$(git config --type=bool hooks.denycreatebranch)
+allowdeletetag=$(git config --type=bool hooks.allowdeletetag)
+allowmodifytag=$(git config --type=bool hooks.allowmodifytag)
+
+# check for no description
+projectdesc=$(sed -e '1q' "$GIT_DIR/description")
+case "$projectdesc" in
+"Unnamed repository"* | "")
+	echo "*** Project description file hasn't been set" >&2
+	exit 1
+	;;
+esac
+
+# --- Check types
+# if $newrev is 0000...0000, it's a commit to delete a ref.
+zero="0000000000000000000000000000000000000000"
+if [ "$newrev" = "$zero" ]; then
+	newrev_type=delete
+else
+	newrev_type=$(git cat-file -t $newrev)
+fi
+
+case "$refname","$newrev_type" in
+	refs/tags/*,commit)
+		# un-annotated tag
+		short_refname=${refname##refs/tags/}
+		if [ "$allowunannotated" != "true" ]; then
+			echo "*** The un-annotated tag, $short_refname, is not allowed in this repository" >&2
+			echo "*** Use 'git tag [ -a | -s ]' for tags you want to propagate." >&2
+			exit 1
+		fi
+		;;
+	refs/tags/*,delete)
+		# delete tag
+		if [ "$allowdeletetag" != "true" ]; then
+			echo "*** Deleting a tag is not allowed in this repository" >&2
+			exit 1
+		fi
+		;;
+	refs/tags/*,tag)
+		# annotated tag
+		if [ "$allowmodifytag" != "true" ] && git rev-parse $refname > /dev/null 2>&1
+		then
+			echo "*** Tag '$refname' already exists." >&2
+			echo "*** Modifying a tag is not allowed in this repository." >&2
+			exit 1
+		fi
+		;;
+	refs/heads/*,commit)
+		# branch
+		if [ "$oldrev" = "$zero" -a "$denycreatebranch" = "true" ]; then
+			echo "*** Creating a branch is not allowed in this repository" >&2
+			exit 1
+		fi
+		;;
+	refs/heads/*,delete)
+		# delete branch
+		if [ "$allowdeletebranch" != "true" ]; then
+			echo "*** Deleting a branch is not allowed in this repository" >&2
+			exit 1
+		fi
+		;;
+	refs/remotes/*,commit)
+		# tracking branch
+		;;
+	refs/remotes/*,delete)
+		# delete tracking branch
+		if [ "$allowdeletebranch" != "true" ]; then
+			echo "*** Deleting a tracking branch is not allowed in this repository" >&2
+			exit 1
+		fi
+		;;
+	*)
+		# Anything else (is there anything else?)
+		echo "*** Update hook: unknown type of update to ref $refname of type $newrev_type" >&2
+		exit 1
+		;;
+esac
+
+# --- Finished
+exit 0

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/index Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/info Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/info/exclude Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/logs Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/logs/HEAD Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/logs/refs Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/logs/refs/heads Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/logs/refs/heads/master Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/logs/refs/remotes Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/logs/refs/remotes/origin Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/logs/refs/remotes/origin/HEAD Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/objects Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/objects/info Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/objects/pack Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/objects/pack/pack-530f2da589c2a7d368d96293bdcc65385e9d957a.idx Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/objects/pack/pack-530f2da589c2a7d368d96293bdcc65385e9d957a.pack Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/packed-refs Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/refs Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/refs/heads Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/refs/heads/master Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/refs/remotes Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/refs/remotes/origin Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/refs/remotes/origin/HEAD Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/refs/tags Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/refs/tags/0.0.1 Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/refs/tags/1.0.0 Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/refs/tags/1.0.1 Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/refs/tags/1.0.2 Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/refs/tags/1.0.3 Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/refs/tags/1.0.4 Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.git/refs/tags/1.0.5 Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.gitignore Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.rebar3 Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.rebar3/rebar_compiler_erl Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/.rebar3/rebar_compiler_erl/source.dag Added

guam-0.9.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/syslog/c_src Added

guam-0.9.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/syslog/c_src/syslog_drv.d Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/c_src/syslog_drv.o Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/ebin Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/ebin/syslog.app Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/ebin/syslog.beam Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/ebin/syslog_app.beam Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/ebin/syslog_sup.beam Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/priv Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/priv/syslog_drv.so Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/rebar.config Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/rebar.lock Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/src Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/src/syslog.app.src Added

guam-0.9.11.tar.gz/_build/default/lib/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.11.tar.gz/_build/default/lib/syslog/src/syslog_app.erl Added

guam-0.9.11.tar.gz/_build/default/lib/syslog/src/syslog_sup.erl Added

guam-0.9.11.tar.gz/_build/default/plugins Added

guam-0.9.11.tar.gz/_build/default/plugins/pc Added

guam-0.9.11.tar.gz/_build/default/plugins/pc/.rebar3 Added

guam-0.9.11.tar.gz/_build/default/plugins/pc/.rebar3/rebar_compiler_erl Added

guam-0.9.11.tar.gz/_build/default/plugins/pc/.rebar3/rebar_compiler_erl/source.dag Added

guam-0.9.11.tar.gz/_build/default/plugins/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.11.tar.gz/_build/default/plugins/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.11.tar.gz/_build/default/plugins/pc/ebin Added

guam-0.9.11.tar.gz/_build/default/plugins/pc/ebin/pc.app Added

guam-0.9.11.tar.gz/_build/default/plugins/pc/ebin/pc.beam Added

guam-0.9.11.tar.gz/_build/default/plugins/pc/ebin/pc_compilation.beam Added

guam-0.9.11.tar.gz/_build/default/plugins/pc/ebin/pc_port_env.beam Added

guam-0.9.11.tar.gz/_build/default/plugins/pc/ebin/pc_port_specs.beam Added

guam-0.9.11.tar.gz/_build/default/plugins/pc/ebin/pc_prv_clean.beam Added

guam-0.9.11.tar.gz/_build/default/plugins/pc/ebin/pc_prv_compile.beam Added

guam-0.9.11.tar.gz/_build/default/plugins/pc/ebin/pc_util.beam Added

guam-0.9.11.tar.gz/_build/default/plugins/pc/hex_metadata.config Added

guam-0.9.11.tar.gz/_build/default/plugins/pc/rebar.config Added

guam-0.9.11.tar.gz/_build/default/plugins/pc/rebar.lock Added

guam-0.9.11.tar.gz/_build/default/plugins/pc/src Added

guam-0.9.11.tar.gz/_build/default/plugins/pc/src/pc.app.src Added

guam-0.9.11.tar.gz/_build/default/plugins/pc/src/pc.erl Added

guam-0.9.11.tar.gz/_build/default/plugins/pc/src/pc_compilation.erl Added

@@ -0,0 +1,252 @@
+%% -------------------------------------------------------------------
+%%
+%% 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 ~s", [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),
+    rebar_api:expand_env_variable(Cmd1, "PORT_OUT_FILE", OutFile).
+
+exec_compiler(_Config, Source, Cmd, ShOpts) ->
+    case rebar_utils:sh(Cmd, ShOpts) of
+        {error, {_RC, RawError}} ->
+            AbsSource = filename:absname(Source),
+            rebar_api:info("Compiling ~s", [AbsSource]),
+            Error = re:replace(RawError, Source, AbsSource,
+                               [{return, list}, global]),
+            rebar_api:error("~s", [Error]),
+            rebar_api:abort();
+        {ok, Output} ->
+            rebar_api:info("Compiling ~s", [Source]),
+            rebar_api:debug("~s", [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.11.tar.gz/_build/default/plugins/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
+     {"darwin1[0-4].*-64$", "CFLAGS", "-m64 $CFLAGS"},
+     {"darwin1[0-4].*-64$", "CXXFLAGS", "-m64 $CXXFLAGS"},
+     {"darwin1[0-4].*-64$", "LDFLAGS", "-arch x86_64 -flat_namespace -undefined suppress $LDFLAGS"},
+
+     %% OS X Snow Leopard, Lion, and Mountain Lion flags for 32-bit
+     {"darwin1[0-2].*-32", "CFLAGS", "-m32 $CFLAGS"},
+     {"darwin1[0-2].*-32", "CXXFLAGS", "-m32 $CXXFLAGS"},
+     {"darwin1[0-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.11.tar.gz/_build/default/plugins/pc/src/pc_port_specs.erl Added

@@ -0,0 +1,240 @@
+%% -------------------------------------------------------------------
+%%
+%% 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
+    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("priv", lists:concat([AppName, "_drv.so"]));
+                 AName ->
+                     filename:join("priv", 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),
+    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 = filename:join(rebar_state:dir(Config), Target),
+    ObjectFiles = [pc_util:replace_extension(O, ".o") || O <- SourceFiles],
+    #spec{type      = pc_util:target_type(Target1),
+          target    = coerce_extension(OsType, Target1),
+          link_lang = LinkLang,
+          sources   = SourceFiles,
+          objects   = ObjectFiles,
+          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.11.tar.gz/_build/default/plugins/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.11.tar.gz/_build/default/plugins/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.11.tar.gz/_build/default/plugins/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.11.tar.gz/_build/default/rel Added

guam-0.9.11.tar.gz/_build/default/rel/guam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/bin Added

guam-0.9.11.tar.gz/_build/default/rel/guam/bin/guam Added

@@ -0,0 +1,796 @@
+#!/bin/sh
+
+set -e
+
+# http://erlang.org/doc/man/run_erl.html
+# If defined, disables input and output flow control for the pty
+# opend by run_erl. Useful if you want to remove any risk of accidentally
+# blocking the flow control by using Ctrl-S (instead of Ctrl-D to detach),
+# which can result in blocking of the entire Beam process, and in the case
+# of running heart as supervisor even the heart process becomes blocked
+# when writing log message to terminal, leaving the heart process unable
+# to do its work.
+RUN_ERL_DISABLE_FLOWCNTRL=${RUN_ERL_DISABLE_FLOWCNTRL:-true}
+export $RUN_ERL_DISABLE_FLOWCNTRL
+
+if [ "$TERM" = "dumb" -o -z "$TERM" ]; then
+  export TERM=screen
+fi
+
+# OSX does not support readlink '-f' flag, work
+# around that
+case $OSTYPE in
+    darwin*)
+        SCRIPT=$(readlink $0 || true)
+    ;;
+    *)
+        SCRIPT=$(readlink -f $0 || true)
+    ;;
+esac
+[ -z $SCRIPT ] && SCRIPT=$0
+SCRIPT_DIR="$(cd `dirname "$SCRIPT"` && pwd -P)"
+RELEASE_ROOT_DIR="$(cd "$SCRIPT_DIR/.." && pwd -P)"
+# Make the value available to variable substitution calls below
+export REL_NAME="guam"
+REL_VSN="0.9.11"
+ERTS_VSN="11.2.2.3"
+REL_DIR="$RELEASE_ROOT_DIR/releases/$REL_VSN"
+ERL_OPTS=""
+RUNNER_LOG_DIR="${RUNNER_LOG_DIR:-$RELEASE_ROOT_DIR/log}"
+export ESCRIPT_NAME="${ESCRIPT_NAME-$SCRIPT}"
+
+# start/stop/install/upgrade pre/post hooks
+PRE_START_HOOKS=""
+POST_START_HOOKS=""
+PRE_STOP_HOOKS=""
+POST_STOP_HOOKS=""
+PRE_INSTALL_UPGRADE_HOOKS=""
+POST_INSTALL_UPGRADE_HOOKS=""
+STATUS_HOOK=""
+EXTENSIONS="undefined"
+
+relx_usage() {
+    command="$1"
+
+    case "$command" in
+        unpack)
+            echo "Usage: $REL_NAME unpack [VERSION]"
+            echo "Unpacks a release package VERSION, it assumes that this"
+            echo "release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            ;;
+        install)
+            echo "Usage: $REL_NAME install [VERSION]"
+            echo "Installs a release package VERSION, it assumes that this"
+            echo "release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            echo ""
+            echo "     --no-permanent   Install release package VERSION but"
+            echo "                      don't make it permanent"
+            ;;
+        uninstall)
+            echo "Usage: $REL_NAME uninstall [VERSION]"
+            echo "Uninstalls a release VERSION, it will only accept"
+            echo "versions that are not currently in use"
+            ;;
+        upgrade)
+            echo "Usage: $REL_NAME upgrade [VERSION]"
+            echo "Upgrades the currently running release to VERSION, it assumes"
+            echo "that a release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            echo ""
+            echo "     --no-permanent   Install release package VERSION but"
+            echo "                      don't make it permanent"
+            ;;
+        downgrade)
+            echo "Usage: $REL_NAME downgrade [VERSION]"
+            echo "Downgrades the currently running release to VERSION, it assumes"
+            echo "that a release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            echo ""
+            echo "     --no-permanent   Install release package VERSION but"
+            echo "                      don't make it permanent"
+            ;;
+        status)
+            echo "Usage: $REL_NAME status"
+            echo "Obtains node status information."
+            ;;
+        *)
+            # check for extension
+            IS_EXTENSION=$(relx_is_extension $command)
+            if [ "$IS_EXTENSION" = "1" ]; then
+                EXTENSION_SCRIPT=$(relx_get_extension_script $command)
+                relx_run_extension $EXTENSION_SCRIPT help
+            else
+                EXTENSIONS=`echo $EXTENSIONS | sed -e 's/|undefined//g'`
+                echo "Usage: $REL_NAME {start|start_boot <file>|foreground|stop|restart|reboot|pid|ping|console|console_clean|console_boot <file>|attach|remote_console|upgrade|downgrade|install|uninstall|versions|escript|rpc|rpcterms|eval|status|$EXTENSIONS}"
+            fi
+            ;;
+    esac
+}
+
+find_erts_dir() {
+    __erts_dir="$RELEASE_ROOT_DIR/erts-$ERTS_VSN"
+    if [ -d "$__erts_dir" ]; then
+        ERTS_DIR="$__erts_dir";
+        ROOTDIR="$RELEASE_ROOT_DIR"
+    else
+        __erl="$(which erl)"
+        code="io:format(\"~s\", [code:root_dir()]), halt()."
+        __erl_root="$("$__erl" -boot no_dot_erlang -sasl errlog_type error -noshell -eval "$code")"
+        ERTS_DIR="$__erl_root/erts-$ERTS_VSN"
+        ROOTDIR="$__erl_root"
+    fi
+}
+
+# Get node pid
+relx_get_pid() {
+    if output="$(relx_nodetool rpcterms os getpid)"
+    then
+        echo "$output" | sed -e 's/"//g'
+        return 0
+    else
+        echo "$output"
+        return 1
+    fi
+}
+
+relx_get_nodename() {
+    id="longname$(relx_gen_id)-${NAME}"
+    if [ -z "$COOKIE" ]; then
+        "$BINDIR/erl" -boot start_clean \
+                      -mode interactive \
+                      -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" \
+                      -eval '[_,H]=re:split(atom_to_list(node()),"@",[unicode,{return,list}]), io:format("~s~n",[H]), halt()' \
+                      ${START_EPMD} \
+                      -noshell ${NAME_TYPE} $id
+    else
+        # running with setcookie prevents a ~/.erlang.cookie from being created
+        "$BINDIR/erl" -boot start_clean \
+                      -mode interactive \
+                      -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" \
+                      -eval '[_,H]=re:split(atom_to_list(node()),"@",[unicode,{return,list}]), io:format("~s~n",[H]), halt()' \
+                      -setcookie ${COOKIE} \
+                      ${START_EPMD} \
+                      -noshell ${NAME_TYPE} $id
+    fi
+}
+
+# Connect to a remote node
+relx_rem_sh() {
+    # Generate a unique id used to allow multiple remsh to the same node
+    # transparently
+    id="remsh$(relx_gen_id)-${NAME}"
+
+    # Get the node's ticktime so that we use the same thing.
+    TICKTIME="$(relx_nodetool rpcterms net_kernel get_net_ticktime)"
+
+    # Setup remote shell command to control node
+    exec "$BINDIR/erl" "$NAME_TYPE" "$id" -remsh "$NAME" -boot start_clean -mode interactive \
+         -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" $MAYBE_DIST_ARGS \
+         -setcookie "$COOKIE" -hidden -kernel net_ticktime $TICKTIME
+}
+
+# Generate a random id
+relx_gen_id() {
+    od -t x -N 4 /dev/urandom | head -n1 | awk '{print $2}'
+}
+
+# Control a node
+relx_nodetool() {
+    command="$1"; shift
+
+    # Generate a unique id used to allow multiple nodetool calls to the
+    # same node transparently
+    nodetool_id="maint$(relx_gen_id)-${NAME}"
+
+    if [ -z "${START_EPMD}" ]; then
+        ERL_FLAGS="${ERL_FLAGS} ${MAYBE_DIST_ARGS} ${NAME_TYPE} $nodetool_id -setcookie ${COOKIE}" \
+                 "$ERTS_DIR/bin/escript" \
+                 "$ROOTDIR/bin/nodetool" \
+                 "$NAME_TYPE" "$NAME" \
+                 "$command" $@
+    else
+        ERL_FLAGS="${ERL_FLAGS} ${MAYBE_DIST_ARGS} ${NAME_TYPE} $nodetool_id -setcookie ${COOKIE}" \
+                 "$ERTS_DIR/bin/escript" \
+                 "$ROOTDIR/bin/nodetool" \
+                 $START_EPMD "$NAME_TYPE" "$NAME" "$command" $@
+    fi
+}
+
+# Run an escript in the node's environment
+relx_escript() {
+    scriptpath="$1"; shift
+    export RELEASE_ROOT_DIR
+
+    "$ERTS_DIR/bin/escript" "$ROOTDIR/$scriptpath" $@
+}
+
+make_out_file_path() {
+    # Use output directory provided in the RELX_OUT_FILE_PATH environment variable
+    # (default to the current location of vm.args and sys.config)
+    DIR=$(dirname $1)
+    [ -d "${RELX_OUT_FILE_PATH}" ] && DIR="${RELX_OUT_FILE_PATH}"
+    FILE=$(basename $1)
+    IN="${DIR}/${FILE}"
+
+    PFX=$(echo $IN   | awk '{sub(/\.[^.]+$/, "", $0)}1')
+    SFX=$(echo $FILE | awk -F . '{if (NF>1) print $NF}')
+    if [ $RELX_MULTI_NODE ]; then
+        echo "${PFX}.${NAME}.${SFX}"
+    else
+        echo "${PFX}.${SFX}"
+    fi
+}
+
+# Replace environment variables
+replace_os_vars() {
+    awk '{
+        while(match($0,"[$]{[^}]*}")) {
+            var=substr($0,RSTART+2,RLENGTH -3)
+            gsub("[$]{"var"}",ENVIRON[var])
+        }
+    }1' < "$1" > "$2"
+}
+
+add_path() {
+    # Use $CWD/$1 if exists, otherwise releases/VSN/$1
+    IN_FILE_PATH=$2
+    if [ -z "$IN_FILE_PATH" ]; then
+        if [ -f "$RELEASE_ROOT_DIR/$1" ]; then
+            IN_FILE_PATH="$RELEASE_ROOT_DIR/$1"
+        else
+            IN_FILE_PATH="$REL_DIR/$1"
+        fi
+    fi
+    echo $IN_FILE_PATH
+}
+
+check_replace_os_vars() {
+    IN_FILE_PATH=$(add_path $1 $2)
+    OUT_FILE_PATH="$IN_FILE_PATH"
+    SRC_FILE_PATH="$IN_FILE_PATH.src"
+    ORIG_FILE_PATH="$IN_FILE_PATH.orig"
+    if [ -f "$SRC_FILE_PATH" ]; then
+        OUT_FILE_PATH=$(make_out_file_path $IN_FILE_PATH)
+        replace_os_vars "$SRC_FILE_PATH" "$OUT_FILE_PATH"
+    elif [ $RELX_REPLACE_OS_VARS ]; then
+        OUT_FILE_PATH=$(make_out_file_path $IN_FILE_PATH)
+        # If vm.args.orig or sys.config.orig is present then use that
+        if [ -f "$ORIG_FILE_PATH" ]; then
+           IN_FILE_PATH="$ORIG_FILE_PATH"
+        fi
+
+        # apply the environment variable substitution to $IN_FILE_PATH
+        # the result is saved to $OUT_FILE_PATH
+        # if they are both the same, then ensure that we don't clobber
+        # the file by saving a backup with the .orig extension
+        if [ "$IN_FILE_PATH" = "$OUT_FILE_PATH" ]; then
+            cp "$IN_FILE_PATH" "$ORIG_FILE_PATH"
+            replace_os_vars "$ORIG_FILE_PATH" "$OUT_FILE_PATH"
+        else
+            replace_os_vars "$IN_FILE_PATH" "$OUT_FILE_PATH"
+        fi
+    else
+        # If vm.arg.orig or sys.config.orig is present then use that
+        if [ -f "$ORIG_FILE_PATH" ]; then
+            OUT_FILE_PATH=$(make_out_file_path $IN_FILE_PATH)
+            cp "$ORIG_FILE_PATH" "$OUT_FILE_PATH"
+        fi
+    fi
+    echo $OUT_FILE_PATH
+}
+
+relx_run_hooks() {
+    HOOKS=$1
+    for hook in $HOOKS
+    do
+        # the scripts arguments at this point are separated
+        # from each other by | , we now replace these
+        # by empty spaces and give them to the `set`
+        # command in order to be able to extract them
+        # separately
+        set `echo "$hook" | sed -e 's/|/ /g'`
+        HOOK_SCRIPT=$1; shift
+        # all hook locations are expected to be
+        # relative to the start script location
+        [ "$SCRIPT_DIR/$HOOK_SCRIPT" ] && . "$SCRIPT_DIR/$HOOK_SCRIPT" $@
+    done
+}
+
+relx_disable_hooks() {
+    PRE_START_HOOKS=""
+    POST_START_HOOKS=""
+    PRE_STOP_HOOKS=""
+    POST_STOP_HOOKS=""
+    PRE_INSTALL_UPGRADE_HOOKS=""
+    POST_INSTALL_UPGRADE_HOOKS=""
+    STATUS_HOOK=""
+}
+
+relx_is_extension() {
+    EXTENSION=$1
+    case "$EXTENSION" in
+        undefined)
+            echo "1"
+        ;;
+        *)
+            echo "0"
+        ;;
+    esac
+}
+
+relx_get_extension_script() {
+    EXTENSION=$1
+    # below are the extensions declarations
+    # of the form:
+    # foo_extension="path/to/foo_script";bar_extension="path/to/bar_script"
+    
+    # get the command extension (eg. foo) and
+    # obtain the actual script filename that it
+    # refers to (eg. "path/to/foo_script"
+    eval echo "$"${EXTENSION}_extension""
+}
+
+relx_run_extension() {
+    # drop the first argument which is the name of the
+    # extension script
+    EXTENSION_SCRIPT=$1
+    shift
+    # all extension script locations are expected to be
+    # relative to the start script location
+    [ "$SCRIPT_DIR/$EXTENSION_SCRIPT" ] && . "$SCRIPT_DIR/$EXTENSION_SCRIPT" "$@"
+}
+
+# given a list of arguments, identify the internal ones
+#   --relx-disable-hooks
+# and process them accordingly
+process_internal_args() {
+    for arg in $@
+    do
+      shift
+      case "$arg" in
+          --relx-disable-hooks)
+            relx_disable_hooks
+            ;;
+          *)
+            ;;
+      esac
+    done
+}
+
+# process internal arguments
+process_internal_args $@
+
+find_erts_dir
+export ROOTDIR="$RELEASE_ROOT_DIR"
+export BINDIR="$ERTS_DIR/bin"
+export EMU="beam"
+export PROGNAME="erl"
+export LD_LIBRARY_PATH="$ERTS_DIR/lib:$LD_LIBRARY_PATH"
+ERTS_LIB_DIR="$(dirname "$ERTS_DIR")/lib"
+
+VMARGS_PATH=$(add_path vm.args $VMARGS_PATH)
+
+VMARGS_PATH=$(check_replace_os_vars vm.args $VMARGS_PATH)
+RELX_CONFIG_PATH=$(check_replace_os_vars sys.config $RELX_CONFIG_PATH)
+
+# Check vm.args and other files referenced via -args_file parameters for:
+#    - nonexisting -args_files
+#    - circular dependencies of -args_files
+#    - relative paths in -args_file parameters
+#    - multiple/mixed occurences of -name and -sname parameters
+#    - missing -name or -sname parameters
+# If all checks pass, extract the target node name
+set +e
+TMP_NAME_ARG=$(awk 'function check_name(file)
+{
+    if (system("test -f "file)) {
+        print file" not found"
+        exit 3
+    }
+    if (system("test -r "file)) {
+        print file" not readable"
+        exit 3
+    }
+    while ((getline line<file)>0) {
+        if (line~/^-args_file +/) {
+            gsub(/^-args_file +| *$/, "", line)
+            if (!(line~/^\//)) {
+                print "relative path "line" encountered in "file
+                exit 4
+            }
+            if (line in files) {
+                print "circular reference to "line" encountered in "file
+                exit 5
+            }
+            files[line]=line
+            check_name(line)
+        }
+        else if (line~/^-s?name +/) {
+            if (name!="") {
+                print "\""line"\" parameter found in "file" but already specified as \""name"\""
+                exit 2
+            }
+            name=line
+        }
+    }
+}
+
+BEGIN {
+    split("", files)
+    name=""
+}
+
+{
+    files[FILENAME]=FILENAME
+    check_name(FILENAME)
+    if (name=="") {
+        print "need to have exactly one of either -name or -sname parameters but none found"
+        exit 1
+    }
+    print name
+    exit 0
+}' "$VMARGS_PATH")
+TMP_NAME_ARG_RC=$?
+case $TMP_NAME_ARG_RC in
+    0) NAME_ARG="$TMP_NAME_ARG";;
+    *) echo "$TMP_NAME_ARG"
+       exit $TMP_NAME_ARG_RC;;
+esac
+unset TMP_NAME_ARG
+unset TMP_NAME_ARG_RC
+set -e
+
+# Perform replacement of variables in ${NAME_ARG}
+NAME_ARG=$(eval echo "${NAME_ARG}")
+
+# Extract the name type and name from the NAME_ARG for REMSH
+NAME_TYPE="$(echo "$NAME_ARG" | awk '{print $1}')"
+NAME="$(echo "$NAME_ARG" | awk '{print $2}')"
+
+# Extract dist arguments
+MAYBE_DIST_ARGS=""
+PROTO_DIST="$(grep '^-proto_dist' "$VMARGS_PATH" || true)"
+if [ "$PROTO_DIST" ]; then
+    MAYBE_DIST_ARGS="${PROTO_DIST}"
+fi
+START_EPMD="$(grep '^-start_epmd' "$VMARGS_PATH" || true)"
+if [ "$START_EPMD" ]; then
+    MAYBE_DIST_ARGS="${MAYBE_DIST_ARGS} ${START_EPMD}"
+fi
+EPMD_MODULE="$(grep '^-epmd_module' "$VMARGS_PATH" || true)"
+if [ "$EPMD_MODULE" ]; then
+    MAYBE_DIST_ARGS="${MAYBE_DIST_ARGS} ${EPMD_MODULE}"
+fi
+
+# Extract the target cookie
+# Do this before relx_get_nodename so we can use it and not create a ~/.erlang.cookie
+COOKIE_ARG="$(grep '^-setcookie' "$VMARGS_PATH" || true)"
+DEFAULT_COOKIE_FILE="$HOME/.erlang.cookie"
+if [ -z "$COOKIE_ARG" ]; then
+    if [ -f "$DEFAULT_COOKIE_FILE" ]; then
+        COOKIE="$(cat $DEFAULT_COOKIE_FILE)"
+    else
+        echo "No cookie is set or found. This limits the scripts functionality, installing, upgrading, rpc and getting a list of versions will not work."
+    fi
+else
+    # Extract cookie name from COOKIE_ARG
+    COOKIE="$(echo "$COOKIE_ARG" | awk '{print $2}')"
+fi
+
+# User can specify an sname without @hostname
+# This will fail when creating remote shell
+# So here we check for @ and add @hostname if missing
+case "${NAME}" in
+    *@*) ;;                             # Nothing to do
+    *)   NAME=${NAME}@$(relx_get_nodename);;  # Add @hostname
+esac
+
+# Export the variable so that it's available in the 'eval' calls
+export NAME
+
+test -z "$PIPE_DIR" && PIPE_BASE_DIR='/tmp/erl_pipes/'
+PIPE_DIR="${PIPE_DIR:-/tmp/erl_pipes/$NAME/}"
+
+cd "$ROOTDIR"
+
+# Check the first argument for instructions
+case "$1" in
+    start|start_boot)
+        case "$1" in
+            start)
+                shift
+                START_OPTION="console"
+                HEART_OPTION="start"
+                ;;
+            start_boot)
+                shift
+                START_OPTION="console_boot"
+                HEART_OPTION="start_boot"
+                ;;
+        esac
+        ARGS="$(printf "'%s' " "$@")"
+
+        # Export the HEART_COMMAND
+        HEART_COMMAND="\"$RELEASE_ROOT_DIR/bin/$REL_NAME\" \"$HEART_OPTION\" $ARGS"
+        export HEART_COMMAND
+
+        test -z "$PIPE_BASE_DIR" || mkdir -m 1777 -p "$PIPE_BASE_DIR"
+        mkdir -p "$PIPE_DIR"
+        if [ ! -w "$PIPE_DIR" ]
+        then
+            echo "failed to start, user '$USER' does not have write privileges on '$PIPE_DIR', either delete it or run node as a different user"
+            exit 1
+        fi
+
+        # Make sure log directory exists
+        mkdir -p "$RUNNER_LOG_DIR"
+
+        relx_run_hooks "$PRE_START_HOOKS"
+        "$BINDIR/run_erl" -daemon "$PIPE_DIR" "$RUNNER_LOG_DIR" \
+            "exec \"$RELEASE_ROOT_DIR/bin/$REL_NAME\" \"$START_OPTION\" $ARGS --relx-disable-hooks"
+        relx_run_hooks "$POST_START_HOOKS"
+        ;;
+
+    stop)
+        relx_run_hooks "$PRE_STOP_HOOKS"
+        # Wait for the node to completely stop...
+        PID="$(relx_get_pid)"
+        if ! relx_nodetool "stop"; then
+            exit 1
+        fi
+        while $(kill -s 0 "$PID" 2>/dev/null);
+        do
+            sleep 1
+        done
+        relx_run_hooks "$POST_STOP_HOOKS"
+        ;;
+
+    restart)
+        ## Restart the VM without exiting the process
+        if ! relx_nodetool "restart"; then
+            exit 1
+        fi
+        ;;
+
+    reboot)
+        ## Restart the VM completely (uses heart to restart it)
+        if ! relx_nodetool "reboot"; then
+            exit 1
+        fi
+        ;;
+
+    pid)
+        ## Get the VM's pid
+        if ! relx_get_pid; then
+            exit 1
+        fi
+        ;;
+
+    ping)
+        ## See if the VM is alive
+        if ! relx_nodetool "ping"; then
+            exit 1
+        fi
+        ;;
+
+    escript)
+        ## Run an escript under the node's environment
+        shift
+        if ! relx_escript $@; then
+            exit 1
+        fi
+        ;;
+
+    attach)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        if [ ! -w "$PIPE_DIR" ]
+        then
+            echo "failed to attach, user '$USER' does not have sufficient privileges on '$PIPE_DIR', please run node as a different user"
+            exit 1
+        fi
+
+        shift
+        exec "$BINDIR/to_erl" "$PIPE_DIR"
+        ;;
+
+    remote_console)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        shift
+        relx_rem_sh
+        ;;
+
+    upgrade|downgrade|install|unpack|uninstall)
+        if [ -z "$2" ]; then
+            echo "Missing version argument"
+            echo "Usage: $REL_NAME $1 {version}"
+            exit 1
+        fi
+
+        COMMAND="$1"; shift
+
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        relx_run_hooks "$PRE_INSTALL_UPGRADE_HOOKS"
+
+        exec "$BINDIR/escript" "$ROOTDIR/bin/install_upgrade.escript" \
+             "$COMMAND" "{'$REL_NAME', \"$NAME_TYPE\", '$NAME', '$COOKIE'}" "$@"
+
+        relx_run_hooks "$POST_INSTALL_UPGRADE_HOOKS"
+        ;;
+
+    versions)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        COMMAND="$1"; shift
+
+        exec "$BINDIR/escript" "$ROOTDIR/bin/install_upgrade.escript" \
+             "versions" "{'$REL_NAME', \"$NAME_TYPE\", '$NAME', '$COOKIE'}" "$@"
+        ;;
+
+    console|console_clean|console_boot|foreground)
+        __code_paths=""
+        FOREGROUNDOPTIONS=""
+        # .boot file typically just $REL_NAME (ie, the app name)
+        # however, for debugging, sometimes start_clean.boot is useful.
+        # For e.g. 'setup', one may even want to name another boot script.
+        case "$1" in
+            console)
+                if [ -f "$REL_DIR/$REL_NAME.boot" ]; then
+                  BOOTFILE="$REL_DIR/$REL_NAME"
+                else
+                  BOOTFILE="$REL_DIR/start"
+                fi
+                ;;
+            foreground)
+                # start up the release in the foreground for use by runit
+                # or other supervision services
+                if [ -f "$REL_DIR/$REL_NAME.boot" ]; then
+                  BOOTFILE="$REL_DIR/$REL_NAME"
+                else
+                  BOOTFILE="$REL_DIR/start"
+                fi
+                FOREGROUNDOPTIONS="-noshell -noinput +Bd"
+                ;;
+            console_clean)
+                # if not set by user use interactive mode for console_clean
+                CODE_LOADING_MODE="${CODE_LOADING_MODE:-interactive}"
+                BOOTFILE="$ROOTDIR/bin/start_clean"
+                ;;
+            console_boot)
+                shift
+                BOOTFILE="$1"
+                shift
+                ;;
+        esac
+
+        # if not set by user or console_clean use embedded
+        CODE_LOADING_MODE="${CODE_LOADING_MODE:-embedded}"
+
+        # Setup beam-required vars
+        EMU="beam"
+        PROGNAME="${0#*/}"
+
+        export EMU
+        export PROGNAME
+
+        # Dump environment info for logging purposes
+        echo "Exec: $BINDIR/erlexec" $FOREGROUNDOPTIONS \
+            -boot "$BOOTFILE" -mode "$CODE_LOADING_MODE" \
+            -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" \
+            -config "$RELX_CONFIG_PATH" \
+            -args_file "$VMARGS_PATH" -- "$@"
+        echo "Root: $ROOTDIR"
+
+        # Log the startup
+        echo "$RELEASE_ROOT_DIR"
+        logger -t "$REL_NAME[$$]" "Starting up"
+
+        relx_run_hooks "$PRE_START_HOOKS"
+        # Start the VM
+        exec "$BINDIR/erlexec" $FOREGROUNDOPTIONS \
+            -boot "$BOOTFILE" -mode "$CODE_LOADING_MODE" \
+            -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" \
+            -config "$RELX_CONFIG_PATH" \
+            -args_file "$VMARGS_PATH" -- "$@"
+        # exec will replace the current image and nothing else gets
+        # executed from this point on, this explains the absence
+        # of the pre start hook
+        ;;
+    rpc)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        shift
+
+        relx_nodetool rpc $@
+        ;;
+    rpcterms)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        shift
+
+        relx_nodetool rpcterms $@
+        ;;
+    eval)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        shift
+        relx_nodetool "eval" $@
+        ;;
+    status)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        [ ! -z "${STATUS_HOOK}" ] && [ "$SCRIPT_DIR/$STATUS_HOOK" ] && . "$SCRIPT_DIR/$STATUS_HOOK" $@
+        ;;
+    help)
+        if [ -z "$2" ]; then
+            relx_usage
+            exit 1
+        fi
+
+        TOPIC="$2"; shift
+        relx_usage $TOPIC
+        ;;
+    *)
+        # check for extension
+        IS_EXTENSION=$(relx_is_extension $1)
+        if [ "$IS_EXTENSION" = "1" ]; then
+            EXTENSION_SCRIPT=$(relx_get_extension_script $1)
+            shift
+            relx_run_extension $EXTENSION_SCRIPT "$@"
+            # all extension scripts are expected to exit
+        else
+            relx_usage $1
+        fi
+        exit 1
+        ;;
+esac
+
+exit 0

guam-0.9.11.tar.gz/_build/default/rel/guam/bin/guam-0.9.11 Added

@@ -0,0 +1,796 @@
+#!/bin/sh
+
+set -e
+
+# http://erlang.org/doc/man/run_erl.html
+# If defined, disables input and output flow control for the pty
+# opend by run_erl. Useful if you want to remove any risk of accidentally
+# blocking the flow control by using Ctrl-S (instead of Ctrl-D to detach),
+# which can result in blocking of the entire Beam process, and in the case
+# of running heart as supervisor even the heart process becomes blocked
+# when writing log message to terminal, leaving the heart process unable
+# to do its work.
+RUN_ERL_DISABLE_FLOWCNTRL=${RUN_ERL_DISABLE_FLOWCNTRL:-true}
+export $RUN_ERL_DISABLE_FLOWCNTRL
+
+if [ "$TERM" = "dumb" -o -z "$TERM" ]; then
+  export TERM=screen
+fi
+
+# OSX does not support readlink '-f' flag, work
+# around that
+case $OSTYPE in
+    darwin*)
+        SCRIPT=$(readlink $0 || true)
+    ;;
+    *)
+        SCRIPT=$(readlink -f $0 || true)
+    ;;
+esac
+[ -z $SCRIPT ] && SCRIPT=$0
+SCRIPT_DIR="$(cd `dirname "$SCRIPT"` && pwd -P)"
+RELEASE_ROOT_DIR="$(cd "$SCRIPT_DIR/.." && pwd -P)"
+# Make the value available to variable substitution calls below
+export REL_NAME="guam"
+REL_VSN="0.9.11"
+ERTS_VSN="11.2.2.3"
+REL_DIR="$RELEASE_ROOT_DIR/releases/$REL_VSN"
+ERL_OPTS=""
+RUNNER_LOG_DIR="${RUNNER_LOG_DIR:-$RELEASE_ROOT_DIR/log}"
+export ESCRIPT_NAME="${ESCRIPT_NAME-$SCRIPT}"
+
+# start/stop/install/upgrade pre/post hooks
+PRE_START_HOOKS=""
+POST_START_HOOKS=""
+PRE_STOP_HOOKS=""
+POST_STOP_HOOKS=""
+PRE_INSTALL_UPGRADE_HOOKS=""
+POST_INSTALL_UPGRADE_HOOKS=""
+STATUS_HOOK=""
+EXTENSIONS="undefined"
+
+relx_usage() {
+    command="$1"
+
+    case "$command" in
+        unpack)
+            echo "Usage: $REL_NAME unpack [VERSION]"
+            echo "Unpacks a release package VERSION, it assumes that this"
+            echo "release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            ;;
+        install)
+            echo "Usage: $REL_NAME install [VERSION]"
+            echo "Installs a release package VERSION, it assumes that this"
+            echo "release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            echo ""
+            echo "     --no-permanent   Install release package VERSION but"
+            echo "                      don't make it permanent"
+            ;;
+        uninstall)
+            echo "Usage: $REL_NAME uninstall [VERSION]"
+            echo "Uninstalls a release VERSION, it will only accept"
+            echo "versions that are not currently in use"
+            ;;
+        upgrade)
+            echo "Usage: $REL_NAME upgrade [VERSION]"
+            echo "Upgrades the currently running release to VERSION, it assumes"
+            echo "that a release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            echo ""
+            echo "     --no-permanent   Install release package VERSION but"
+            echo "                      don't make it permanent"
+            ;;
+        downgrade)
+            echo "Usage: $REL_NAME downgrade [VERSION]"
+            echo "Downgrades the currently running release to VERSION, it assumes"
+            echo "that a release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            echo ""
+            echo "     --no-permanent   Install release package VERSION but"
+            echo "                      don't make it permanent"
+            ;;
+        status)
+            echo "Usage: $REL_NAME status"
+            echo "Obtains node status information."
+            ;;
+        *)
+            # check for extension
+            IS_EXTENSION=$(relx_is_extension $command)
+            if [ "$IS_EXTENSION" = "1" ]; then
+                EXTENSION_SCRIPT=$(relx_get_extension_script $command)
+                relx_run_extension $EXTENSION_SCRIPT help
+            else
+                EXTENSIONS=`echo $EXTENSIONS | sed -e 's/|undefined//g'`
+                echo "Usage: $REL_NAME {start|start_boot <file>|foreground|stop|restart|reboot|pid|ping|console|console_clean|console_boot <file>|attach|remote_console|upgrade|downgrade|install|uninstall|versions|escript|rpc|rpcterms|eval|status|$EXTENSIONS}"
+            fi
+            ;;
+    esac
+}
+
+find_erts_dir() {
+    __erts_dir="$RELEASE_ROOT_DIR/erts-$ERTS_VSN"
+    if [ -d "$__erts_dir" ]; then
+        ERTS_DIR="$__erts_dir";
+        ROOTDIR="$RELEASE_ROOT_DIR"
+    else
+        __erl="$(which erl)"
+        code="io:format(\"~s\", [code:root_dir()]), halt()."
+        __erl_root="$("$__erl" -boot no_dot_erlang -sasl errlog_type error -noshell -eval "$code")"
+        ERTS_DIR="$__erl_root/erts-$ERTS_VSN"
+        ROOTDIR="$__erl_root"
+    fi
+}
+
+# Get node pid
+relx_get_pid() {
+    if output="$(relx_nodetool rpcterms os getpid)"
+    then
+        echo "$output" | sed -e 's/"//g'
+        return 0
+    else
+        echo "$output"
+        return 1
+    fi
+}
+
+relx_get_nodename() {
+    id="longname$(relx_gen_id)-${NAME}"
+    if [ -z "$COOKIE" ]; then
+        "$BINDIR/erl" -boot start_clean \
+                      -mode interactive \
+                      -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" \
+                      -eval '[_,H]=re:split(atom_to_list(node()),"@",[unicode,{return,list}]), io:format("~s~n",[H]), halt()' \
+                      ${START_EPMD} \
+                      -noshell ${NAME_TYPE} $id
+    else
+        # running with setcookie prevents a ~/.erlang.cookie from being created
+        "$BINDIR/erl" -boot start_clean \
+                      -mode interactive \
+                      -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" \
+                      -eval '[_,H]=re:split(atom_to_list(node()),"@",[unicode,{return,list}]), io:format("~s~n",[H]), halt()' \
+                      -setcookie ${COOKIE} \
+                      ${START_EPMD} \
+                      -noshell ${NAME_TYPE} $id
+    fi
+}
+
+# Connect to a remote node
+relx_rem_sh() {
+    # Generate a unique id used to allow multiple remsh to the same node
+    # transparently
+    id="remsh$(relx_gen_id)-${NAME}"
+
+    # Get the node's ticktime so that we use the same thing.
+    TICKTIME="$(relx_nodetool rpcterms net_kernel get_net_ticktime)"
+
+    # Setup remote shell command to control node
+    exec "$BINDIR/erl" "$NAME_TYPE" "$id" -remsh "$NAME" -boot start_clean -mode interactive \
+         -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" $MAYBE_DIST_ARGS \
+         -setcookie "$COOKIE" -hidden -kernel net_ticktime $TICKTIME
+}
+
+# Generate a random id
+relx_gen_id() {
+    od -t x -N 4 /dev/urandom | head -n1 | awk '{print $2}'
+}
+
+# Control a node
+relx_nodetool() {
+    command="$1"; shift
+
+    # Generate a unique id used to allow multiple nodetool calls to the
+    # same node transparently
+    nodetool_id="maint$(relx_gen_id)-${NAME}"
+
+    if [ -z "${START_EPMD}" ]; then
+        ERL_FLAGS="${ERL_FLAGS} ${MAYBE_DIST_ARGS} ${NAME_TYPE} $nodetool_id -setcookie ${COOKIE}" \
+                 "$ERTS_DIR/bin/escript" \
+                 "$ROOTDIR/bin/nodetool" \
+                 "$NAME_TYPE" "$NAME" \
+                 "$command" $@
+    else
+        ERL_FLAGS="${ERL_FLAGS} ${MAYBE_DIST_ARGS} ${NAME_TYPE} $nodetool_id -setcookie ${COOKIE}" \
+                 "$ERTS_DIR/bin/escript" \
+                 "$ROOTDIR/bin/nodetool" \
+                 $START_EPMD "$NAME_TYPE" "$NAME" "$command" $@
+    fi
+}
+
+# Run an escript in the node's environment
+relx_escript() {
+    scriptpath="$1"; shift
+    export RELEASE_ROOT_DIR
+
+    "$ERTS_DIR/bin/escript" "$ROOTDIR/$scriptpath" $@
+}
+
+make_out_file_path() {
+    # Use output directory provided in the RELX_OUT_FILE_PATH environment variable
+    # (default to the current location of vm.args and sys.config)
+    DIR=$(dirname $1)
+    [ -d "${RELX_OUT_FILE_PATH}" ] && DIR="${RELX_OUT_FILE_PATH}"
+    FILE=$(basename $1)
+    IN="${DIR}/${FILE}"
+
+    PFX=$(echo $IN   | awk '{sub(/\.[^.]+$/, "", $0)}1')
+    SFX=$(echo $FILE | awk -F . '{if (NF>1) print $NF}')
+    if [ $RELX_MULTI_NODE ]; then
+        echo "${PFX}.${NAME}.${SFX}"
+    else
+        echo "${PFX}.${SFX}"
+    fi
+}
+
+# Replace environment variables
+replace_os_vars() {
+    awk '{
+        while(match($0,"[$]{[^}]*}")) {
+            var=substr($0,RSTART+2,RLENGTH -3)
+            gsub("[$]{"var"}",ENVIRON[var])
+        }
+    }1' < "$1" > "$2"
+}
+
+add_path() {
+    # Use $CWD/$1 if exists, otherwise releases/VSN/$1
+    IN_FILE_PATH=$2
+    if [ -z "$IN_FILE_PATH" ]; then
+        if [ -f "$RELEASE_ROOT_DIR/$1" ]; then
+            IN_FILE_PATH="$RELEASE_ROOT_DIR/$1"
+        else
+            IN_FILE_PATH="$REL_DIR/$1"
+        fi
+    fi
+    echo $IN_FILE_PATH
+}
+
+check_replace_os_vars() {
+    IN_FILE_PATH=$(add_path $1 $2)
+    OUT_FILE_PATH="$IN_FILE_PATH"
+    SRC_FILE_PATH="$IN_FILE_PATH.src"
+    ORIG_FILE_PATH="$IN_FILE_PATH.orig"
+    if [ -f "$SRC_FILE_PATH" ]; then
+        OUT_FILE_PATH=$(make_out_file_path $IN_FILE_PATH)
+        replace_os_vars "$SRC_FILE_PATH" "$OUT_FILE_PATH"
+    elif [ $RELX_REPLACE_OS_VARS ]; then
+        OUT_FILE_PATH=$(make_out_file_path $IN_FILE_PATH)
+        # If vm.args.orig or sys.config.orig is present then use that
+        if [ -f "$ORIG_FILE_PATH" ]; then
+           IN_FILE_PATH="$ORIG_FILE_PATH"
+        fi
+
+        # apply the environment variable substitution to $IN_FILE_PATH
+        # the result is saved to $OUT_FILE_PATH
+        # if they are both the same, then ensure that we don't clobber
+        # the file by saving a backup with the .orig extension
+        if [ "$IN_FILE_PATH" = "$OUT_FILE_PATH" ]; then
+            cp "$IN_FILE_PATH" "$ORIG_FILE_PATH"
+            replace_os_vars "$ORIG_FILE_PATH" "$OUT_FILE_PATH"
+        else
+            replace_os_vars "$IN_FILE_PATH" "$OUT_FILE_PATH"
+        fi
+    else
+        # If vm.arg.orig or sys.config.orig is present then use that
+        if [ -f "$ORIG_FILE_PATH" ]; then
+            OUT_FILE_PATH=$(make_out_file_path $IN_FILE_PATH)
+            cp "$ORIG_FILE_PATH" "$OUT_FILE_PATH"
+        fi
+    fi
+    echo $OUT_FILE_PATH
+}
+
+relx_run_hooks() {
+    HOOKS=$1
+    for hook in $HOOKS
+    do
+        # the scripts arguments at this point are separated
+        # from each other by | , we now replace these
+        # by empty spaces and give them to the `set`
+        # command in order to be able to extract them
+        # separately
+        set `echo "$hook" | sed -e 's/|/ /g'`
+        HOOK_SCRIPT=$1; shift
+        # all hook locations are expected to be
+        # relative to the start script location
+        [ "$SCRIPT_DIR/$HOOK_SCRIPT" ] && . "$SCRIPT_DIR/$HOOK_SCRIPT" $@
+    done
+}
+
+relx_disable_hooks() {
+    PRE_START_HOOKS=""
+    POST_START_HOOKS=""
+    PRE_STOP_HOOKS=""
+    POST_STOP_HOOKS=""
+    PRE_INSTALL_UPGRADE_HOOKS=""
+    POST_INSTALL_UPGRADE_HOOKS=""
+    STATUS_HOOK=""
+}
+
+relx_is_extension() {
+    EXTENSION=$1
+    case "$EXTENSION" in
+        undefined)
+            echo "1"
+        ;;
+        *)
+            echo "0"
+        ;;
+    esac
+}
+
+relx_get_extension_script() {
+    EXTENSION=$1
+    # below are the extensions declarations
+    # of the form:
+    # foo_extension="path/to/foo_script";bar_extension="path/to/bar_script"
+    
+    # get the command extension (eg. foo) and
+    # obtain the actual script filename that it
+    # refers to (eg. "path/to/foo_script"
+    eval echo "$"${EXTENSION}_extension""
+}
+
+relx_run_extension() {
+    # drop the first argument which is the name of the
+    # extension script
+    EXTENSION_SCRIPT=$1
+    shift
+    # all extension script locations are expected to be
+    # relative to the start script location
+    [ "$SCRIPT_DIR/$EXTENSION_SCRIPT" ] && . "$SCRIPT_DIR/$EXTENSION_SCRIPT" "$@"
+}
+
+# given a list of arguments, identify the internal ones
+#   --relx-disable-hooks
+# and process them accordingly
+process_internal_args() {
+    for arg in $@
+    do
+      shift
+      case "$arg" in
+          --relx-disable-hooks)
+            relx_disable_hooks
+            ;;
+          *)
+            ;;
+      esac
+    done
+}
+
+# process internal arguments
+process_internal_args $@
+
+find_erts_dir
+export ROOTDIR="$RELEASE_ROOT_DIR"
+export BINDIR="$ERTS_DIR/bin"
+export EMU="beam"
+export PROGNAME="erl"
+export LD_LIBRARY_PATH="$ERTS_DIR/lib:$LD_LIBRARY_PATH"
+ERTS_LIB_DIR="$(dirname "$ERTS_DIR")/lib"
+
+VMARGS_PATH=$(add_path vm.args $VMARGS_PATH)
+
+VMARGS_PATH=$(check_replace_os_vars vm.args $VMARGS_PATH)
+RELX_CONFIG_PATH=$(check_replace_os_vars sys.config $RELX_CONFIG_PATH)
+
+# Check vm.args and other files referenced via -args_file parameters for:
+#    - nonexisting -args_files
+#    - circular dependencies of -args_files
+#    - relative paths in -args_file parameters
+#    - multiple/mixed occurences of -name and -sname parameters
+#    - missing -name or -sname parameters
+# If all checks pass, extract the target node name
+set +e
+TMP_NAME_ARG=$(awk 'function check_name(file)
+{
+    if (system("test -f "file)) {
+        print file" not found"
+        exit 3
+    }
+    if (system("test -r "file)) {
+        print file" not readable"
+        exit 3
+    }
+    while ((getline line<file)>0) {
+        if (line~/^-args_file +/) {
+            gsub(/^-args_file +| *$/, "", line)
+            if (!(line~/^\//)) {
+                print "relative path "line" encountered in "file
+                exit 4
+            }
+            if (line in files) {
+                print "circular reference to "line" encountered in "file
+                exit 5
+            }
+            files[line]=line
+            check_name(line)
+        }
+        else if (line~/^-s?name +/) {
+            if (name!="") {
+                print "\""line"\" parameter found in "file" but already specified as \""name"\""
+                exit 2
+            }
+            name=line
+        }
+    }
+}
+
+BEGIN {
+    split("", files)
+    name=""
+}
+
+{
+    files[FILENAME]=FILENAME
+    check_name(FILENAME)
+    if (name=="") {
+        print "need to have exactly one of either -name or -sname parameters but none found"
+        exit 1
+    }
+    print name
+    exit 0
+}' "$VMARGS_PATH")
+TMP_NAME_ARG_RC=$?
+case $TMP_NAME_ARG_RC in
+    0) NAME_ARG="$TMP_NAME_ARG";;
+    *) echo "$TMP_NAME_ARG"
+       exit $TMP_NAME_ARG_RC;;
+esac
+unset TMP_NAME_ARG
+unset TMP_NAME_ARG_RC
+set -e
+
+# Perform replacement of variables in ${NAME_ARG}
+NAME_ARG=$(eval echo "${NAME_ARG}")
+
+# Extract the name type and name from the NAME_ARG for REMSH
+NAME_TYPE="$(echo "$NAME_ARG" | awk '{print $1}')"
+NAME="$(echo "$NAME_ARG" | awk '{print $2}')"
+
+# Extract dist arguments
+MAYBE_DIST_ARGS=""
+PROTO_DIST="$(grep '^-proto_dist' "$VMARGS_PATH" || true)"
+if [ "$PROTO_DIST" ]; then
+    MAYBE_DIST_ARGS="${PROTO_DIST}"
+fi
+START_EPMD="$(grep '^-start_epmd' "$VMARGS_PATH" || true)"
+if [ "$START_EPMD" ]; then
+    MAYBE_DIST_ARGS="${MAYBE_DIST_ARGS} ${START_EPMD}"
+fi
+EPMD_MODULE="$(grep '^-epmd_module' "$VMARGS_PATH" || true)"
+if [ "$EPMD_MODULE" ]; then
+    MAYBE_DIST_ARGS="${MAYBE_DIST_ARGS} ${EPMD_MODULE}"
+fi
+
+# Extract the target cookie
+# Do this before relx_get_nodename so we can use it and not create a ~/.erlang.cookie
+COOKIE_ARG="$(grep '^-setcookie' "$VMARGS_PATH" || true)"
+DEFAULT_COOKIE_FILE="$HOME/.erlang.cookie"
+if [ -z "$COOKIE_ARG" ]; then
+    if [ -f "$DEFAULT_COOKIE_FILE" ]; then
+        COOKIE="$(cat $DEFAULT_COOKIE_FILE)"
+    else
+        echo "No cookie is set or found. This limits the scripts functionality, installing, upgrading, rpc and getting a list of versions will not work."
+    fi
+else
+    # Extract cookie name from COOKIE_ARG
+    COOKIE="$(echo "$COOKIE_ARG" | awk '{print $2}')"
+fi
+
+# User can specify an sname without @hostname
+# This will fail when creating remote shell
+# So here we check for @ and add @hostname if missing
+case "${NAME}" in
+    *@*) ;;                             # Nothing to do
+    *)   NAME=${NAME}@$(relx_get_nodename);;  # Add @hostname
+esac
+
+# Export the variable so that it's available in the 'eval' calls
+export NAME
+
+test -z "$PIPE_DIR" && PIPE_BASE_DIR='/tmp/erl_pipes/'
+PIPE_DIR="${PIPE_DIR:-/tmp/erl_pipes/$NAME/}"
+
+cd "$ROOTDIR"
+
+# Check the first argument for instructions
+case "$1" in
+    start|start_boot)
+        case "$1" in
+            start)
+                shift
+                START_OPTION="console"
+                HEART_OPTION="start"
+                ;;
+            start_boot)
+                shift
+                START_OPTION="console_boot"
+                HEART_OPTION="start_boot"
+                ;;
+        esac
+        ARGS="$(printf "'%s' " "$@")"
+
+        # Export the HEART_COMMAND
+        HEART_COMMAND="\"$RELEASE_ROOT_DIR/bin/$REL_NAME\" \"$HEART_OPTION\" $ARGS"
+        export HEART_COMMAND
+
+        test -z "$PIPE_BASE_DIR" || mkdir -m 1777 -p "$PIPE_BASE_DIR"
+        mkdir -p "$PIPE_DIR"
+        if [ ! -w "$PIPE_DIR" ]
+        then
+            echo "failed to start, user '$USER' does not have write privileges on '$PIPE_DIR', either delete it or run node as a different user"
+            exit 1
+        fi
+
+        # Make sure log directory exists
+        mkdir -p "$RUNNER_LOG_DIR"
+
+        relx_run_hooks "$PRE_START_HOOKS"
+        "$BINDIR/run_erl" -daemon "$PIPE_DIR" "$RUNNER_LOG_DIR" \
+            "exec \"$RELEASE_ROOT_DIR/bin/$REL_NAME\" \"$START_OPTION\" $ARGS --relx-disable-hooks"
+        relx_run_hooks "$POST_START_HOOKS"
+        ;;
+
+    stop)
+        relx_run_hooks "$PRE_STOP_HOOKS"
+        # Wait for the node to completely stop...
+        PID="$(relx_get_pid)"
+        if ! relx_nodetool "stop"; then
+            exit 1
+        fi
+        while $(kill -s 0 "$PID" 2>/dev/null);
+        do
+            sleep 1
+        done
+        relx_run_hooks "$POST_STOP_HOOKS"
+        ;;
+
+    restart)
+        ## Restart the VM without exiting the process
+        if ! relx_nodetool "restart"; then
+            exit 1
+        fi
+        ;;
+
+    reboot)
+        ## Restart the VM completely (uses heart to restart it)
+        if ! relx_nodetool "reboot"; then
+            exit 1
+        fi
+        ;;
+
+    pid)
+        ## Get the VM's pid
+        if ! relx_get_pid; then
+            exit 1
+        fi
+        ;;
+
+    ping)
+        ## See if the VM is alive
+        if ! relx_nodetool "ping"; then
+            exit 1
+        fi
+        ;;
+
+    escript)
+        ## Run an escript under the node's environment
+        shift
+        if ! relx_escript $@; then
+            exit 1
+        fi
+        ;;
+
+    attach)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        if [ ! -w "$PIPE_DIR" ]
+        then
+            echo "failed to attach, user '$USER' does not have sufficient privileges on '$PIPE_DIR', please run node as a different user"
+            exit 1
+        fi
+
+        shift
+        exec "$BINDIR/to_erl" "$PIPE_DIR"
+        ;;
+
+    remote_console)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        shift
+        relx_rem_sh
+        ;;
+
+    upgrade|downgrade|install|unpack|uninstall)
+        if [ -z "$2" ]; then
+            echo "Missing version argument"
+            echo "Usage: $REL_NAME $1 {version}"
+            exit 1
+        fi
+
+        COMMAND="$1"; shift
+
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        relx_run_hooks "$PRE_INSTALL_UPGRADE_HOOKS"
+
+        exec "$BINDIR/escript" "$ROOTDIR/bin/install_upgrade.escript" \
+             "$COMMAND" "{'$REL_NAME', \"$NAME_TYPE\", '$NAME', '$COOKIE'}" "$@"
+
+        relx_run_hooks "$POST_INSTALL_UPGRADE_HOOKS"
+        ;;
+
+    versions)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        COMMAND="$1"; shift
+
+        exec "$BINDIR/escript" "$ROOTDIR/bin/install_upgrade.escript" \
+             "versions" "{'$REL_NAME', \"$NAME_TYPE\", '$NAME', '$COOKIE'}" "$@"
+        ;;
+
+    console|console_clean|console_boot|foreground)
+        __code_paths=""
+        FOREGROUNDOPTIONS=""
+        # .boot file typically just $REL_NAME (ie, the app name)
+        # however, for debugging, sometimes start_clean.boot is useful.
+        # For e.g. 'setup', one may even want to name another boot script.
+        case "$1" in
+            console)
+                if [ -f "$REL_DIR/$REL_NAME.boot" ]; then
+                  BOOTFILE="$REL_DIR/$REL_NAME"
+                else
+                  BOOTFILE="$REL_DIR/start"
+                fi
+                ;;
+            foreground)
+                # start up the release in the foreground for use by runit
+                # or other supervision services
+                if [ -f "$REL_DIR/$REL_NAME.boot" ]; then
+                  BOOTFILE="$REL_DIR/$REL_NAME"
+                else
+                  BOOTFILE="$REL_DIR/start"
+                fi
+                FOREGROUNDOPTIONS="-noshell -noinput +Bd"
+                ;;
+            console_clean)
+                # if not set by user use interactive mode for console_clean
+                CODE_LOADING_MODE="${CODE_LOADING_MODE:-interactive}"
+                BOOTFILE="$ROOTDIR/bin/start_clean"
+                ;;
+            console_boot)
+                shift
+                BOOTFILE="$1"
+                shift
+                ;;
+        esac
+
+        # if not set by user or console_clean use embedded
+        CODE_LOADING_MODE="${CODE_LOADING_MODE:-embedded}"
+
+        # Setup beam-required vars
+        EMU="beam"
+        PROGNAME="${0#*/}"
+
+        export EMU
+        export PROGNAME
+
+        # Dump environment info for logging purposes
+        echo "Exec: $BINDIR/erlexec" $FOREGROUNDOPTIONS \
+            -boot "$BOOTFILE" -mode "$CODE_LOADING_MODE" \
+            -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" \
+            -config "$RELX_CONFIG_PATH" \
+            -args_file "$VMARGS_PATH" -- "$@"
+        echo "Root: $ROOTDIR"
+
+        # Log the startup
+        echo "$RELEASE_ROOT_DIR"
+        logger -t "$REL_NAME[$$]" "Starting up"
+
+        relx_run_hooks "$PRE_START_HOOKS"
+        # Start the VM
+        exec "$BINDIR/erlexec" $FOREGROUNDOPTIONS \
+            -boot "$BOOTFILE" -mode "$CODE_LOADING_MODE" \
+            -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" \
+            -config "$RELX_CONFIG_PATH" \
+            -args_file "$VMARGS_PATH" -- "$@"
+        # exec will replace the current image and nothing else gets
+        # executed from this point on, this explains the absence
+        # of the pre start hook
+        ;;
+    rpc)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        shift
+
+        relx_nodetool rpc $@
+        ;;
+    rpcterms)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        shift
+
+        relx_nodetool rpcterms $@
+        ;;
+    eval)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        shift
+        relx_nodetool "eval" $@
+        ;;
+    status)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        [ ! -z "${STATUS_HOOK}" ] && [ "$SCRIPT_DIR/$STATUS_HOOK" ] && . "$SCRIPT_DIR/$STATUS_HOOK" $@
+        ;;
+    help)
+        if [ -z "$2" ]; then
+            relx_usage
+            exit 1
+        fi
+
+        TOPIC="$2"; shift
+        relx_usage $TOPIC
+        ;;
+    *)
+        # check for extension
+        IS_EXTENSION=$(relx_is_extension $1)
+        if [ "$IS_EXTENSION" = "1" ]; then
+            EXTENSION_SCRIPT=$(relx_get_extension_script $1)
+            shift
+            relx_run_extension $EXTENSION_SCRIPT "$@"
+            # all extension scripts are expected to exit
+        else
+            relx_usage $1
+        fi
+        exit 1
+        ;;
+esac
+
+exit 0

guam-0.9.11.tar.gz/_build/default/rel/guam/bin/install_upgrade.escript Added

@@ -0,0 +1,337 @@
+#!/usr/bin/env escript
+%%! -noshell -noinput
+%% -*- mode: erlang;erlang-indent-level: 4;indent-tabs-mode: nil -*-
+%% ex: ft=erlang ts=4 sw=4 et
+
+-define(TIMEOUT, 300000).
+-define(INFO(Fmt,Args), io:format(Fmt,Args)).
+
+main([Command0, DistInfoStr | CommandArgs]) ->
+    %% convert the distribution info arguments string to an erlang term
+    {ok, Tokens, _} = erl_scan:string(DistInfoStr ++ "."),
+    {ok, DistInfo} = erl_parse:parse_term(Tokens),
+    %% convert arguments into a proplist
+    Opts = parse_arguments(CommandArgs),
+    %% invoke the command passed as argument
+    F = case Command0 of
+        "install" -> fun(A, B) -> install(A, B) end;
+        "unpack" -> fun(A, B) -> unpack(A, B) end;
+        "upgrade" -> fun(A, B) -> upgrade(A, B) end;
+        "downgrade" -> fun(A, B) -> downgrade(A, B) end;
+        "uninstall" -> fun(A, B) -> uninstall(A, B) end;
+        "versions" -> fun(A, B) -> versions(A, B) end
+    end,
+    F(DistInfo, Opts);
+main(Args) ->
+    ?INFO("unknown args: ~p\n", [Args]),
+    erlang:halt(1).
+
+unpack({RelName, NameTypeArg, NodeName, Cookie}, Opts) ->
+    TargetNode = start_distribution(NodeName, NameTypeArg, Cookie),
+    Version = proplists:get_value(version, Opts),
+    case unpack_release(RelName, TargetNode, Version) of
+        {ok, Vsn} ->
+            ?INFO("Unpacked successfully: ~p~n", [Vsn]);
+        old ->
+            %% no need to unpack, has been installed previously
+            ?INFO("Release ~s is marked old.~n",[Version]);
+        unpacked ->
+            ?INFO("Release ~s is already unpacked.~n",[Version]);
+        current ->
+            ?INFO("Release ~s is already installed and current.~n",[Version]);
+        permanent ->
+            ?INFO("Release ~s is already installed and set permanent.~n",[Version]);
+        {error, Reason} ->
+            ?INFO("Unpack failed: ~p~n",[Reason]),
+            print_existing_versions(TargetNode),
+            erlang:halt(2)
+    end;
+unpack(_, Args) ->
+    ?INFO("unpack: unknown args ~p\n", [Args]).
+
+install({RelName, NameTypeArg, NodeName, Cookie}, Opts) ->
+    TargetNode = start_distribution(NodeName, NameTypeArg, Cookie),
+    Version = proplists:get_value(version, Opts),
+    case unpack_release(RelName, TargetNode, Version) of
+        {ok, Vsn} ->
+            ?INFO("Unpacked successfully: ~p~n", [Vsn]),
+            check_and_install(TargetNode, Vsn),
+            maybe_permafy(TargetNode, RelName, Vsn, Opts);
+        old ->
+            %% no need to unpack, has been installed previously
+            ?INFO("Release ~s is marked old, switching to it.~n",[Version]),
+            check_and_install(TargetNode, Version),
+            maybe_permafy(TargetNode, RelName, Version, Opts);
+        unpacked ->
+            ?INFO("Release ~s is already unpacked, now installing.~n",[Version]),
+            check_and_install(TargetNode, Version),
+            maybe_permafy(TargetNode, RelName, Version, Opts);
+        current ->
+            case proplists:get_value(permanent, Opts, true) of
+                true ->
+                    ?INFO("Release ~s is already installed and current, making permanent.~n",
+                        [Version]),
+                    permafy(TargetNode, RelName, Version);
+                false ->
+                    ?INFO("Release ~s is already installed and current.~n",
+                        [Version])
+            end;
+        permanent ->
+            %% this release is marked permanent, however it might not the
+            %% one currently running
+            case current_release_version(TargetNode) of
+                Version ->
+                    ?INFO("Release ~s is already installed, running and set permanent.~n",
+                        [Version]);
+                CurrentVersion ->
+                    ?INFO("Release ~s is the currently running version.~n",
+                        [CurrentVersion]),
+                    check_and_install(TargetNode, Version),
+                    maybe_permafy(TargetNode, RelName, Version, Opts)
+            end;
+        {error, Reason} ->
+            ?INFO("Unpack failed: ~p~n",[Reason]),
+            print_existing_versions(TargetNode),
+            erlang:halt(2)
+    end;
+install(_, Args) ->
+    ?INFO("install: unknown args ~p\n", [Args]).
+
+upgrade(DistInfo, Args) ->
+    install(DistInfo, Args).
+
+downgrade(DistInfo, Args) ->
+    install(DistInfo, Args).
+
+uninstall({_RelName, NameTypeArg, NodeName, Cookie}, Opts) ->
+    TargetNode = start_distribution(NodeName, NameTypeArg, Cookie),
+    WhichReleases = which_releases(TargetNode),
+    Version = proplists:get_value(version, Opts),
+    case proplists:get_value(Version, WhichReleases) of
+        undefined ->
+            ?INFO("Release ~s is already uninstalled.~n", [Version]);
+        old ->
+            ?INFO("Release ~s is marked old, uninstalling it.~n", [Version]),
+            remove_release(TargetNode, Version);
+        unpacked ->
+            ?INFO("Release ~s is marked unpacked, uninstalling it~n",
+                [Version]),
+            remove_release(TargetNode, Version);
+        current ->
+            ?INFO("Uninstall failed: Release ~s is marked current.~n", [Version]),
+            erlang:halt(2);
+        permanent ->
+            ?INFO("Uninstall failed: Release ~s is running.~n", [Version]),
+            erlang:halt(2)
+    end;
+uninstall(_, Args) ->
+    ?INFO("uninstall: unknown args ~p\n", [Args]).
+
+versions({_RelName, NameTypeArg, NodeName, Cookie}, []) ->
+    TargetNode = start_distribution(NodeName, NameTypeArg, Cookie),
+    print_existing_versions(TargetNode).
+
+parse_arguments(Args) ->
+    parse_arguments(Args, []).
+
+parse_arguments([], Acc) -> Acc;
+parse_arguments(["--no-permanent"|Rest], Acc) ->
+    parse_arguments(Rest, [{permanent, false}] ++ Acc);
+parse_arguments([VersionStr|Rest], Acc) ->
+    Version = parse_version(VersionStr),
+    parse_arguments(Rest, [{version, Version}] ++ Acc).
+
+unpack_release(RelName, TargetNode, Version) ->
+    WhichReleases = which_releases(TargetNode),
+    case proplists:get_value(Version, WhichReleases) of
+        undefined ->
+            %% not installed, so unpack tarball:
+            %% look for a release package with the intended version in the following order:
+            %%      releases/<relname>-<version>.tar.gz
+            %%      releases/<version>/<relname>-<version>.tar.gz
+            %%      releases/<version>/<relname>.tar.gz
+            case find_and_link_release_package(Version, RelName) of
+                {_, undefined} ->
+                    {error, release_package_not_found};
+                {ReleasePackage, ReleasePackageLink} ->
+                    ?INFO("Release ~s not found, attempting to unpack ~s~n",
+                        [Version, ReleasePackage]),
+                    case rpc:call(TargetNode, release_handler, unpack_release,
+                                  [ReleasePackageLink], ?TIMEOUT) of
+                        {ok, Vsn} -> {ok, Vsn};
+                        {error, _} = Error -> Error
+                    end
+            end;
+        Other -> Other
+    end.
+
+%% 1. look for a release package tarball with the provided version in the following order:
+%%      releases/<relname>-<version>.tar.gz
+%%      releases/<version>/<relname>-<version>.tar.gz
+%%      releases/<version>/<relname>.tar.gz
+%% 2. create a symlink from a fixed location (ie. releases/<version>/<relname>.tar.gz)
+%%    to the release package tarball found in 1.
+%% 3. return a tuple with the paths to the release package and
+%%    to the symlink that is to be provided to release handler
+find_and_link_release_package(Version, RelName) ->
+    RelNameStr = atom_to_list(RelName),
+    %% regardless of the location of the release package, we'll
+    %% always give release handler the same path which is the symlink
+    %% the path to the package link is relative to "releases/" because
+    %% that's what release handler is expecting
+    ReleaseHandlerPackageLink = filename:join(Version, RelNameStr),
+    %% this is the symlink name we'll create once
+    %% we've found where the actual release package is located
+    ReleaseLink = filename:join(["releases", Version,
+                                 RelNameStr ++ ".tar.gz"]),
+    case first_value(fun filelib:is_file/1,
+                     [filename:join(["releases",
+                                     RelNameStr ++ "-" ++ Version ++ ".tar.gz"]),
+                      filename:join(["releases", Version,
+                                     RelNameStr ++ "-" ++ Version ++ ".tar.gz"]),
+                      filename:join(["releases", Version,
+                                     RelNameStr ++ ".tar.gz"])]) of
+        no_value ->
+            {undefined, undefined};
+        %% no need to create the link since the release package we
+        %% found is located in the same place as the link would be
+        {ok, Filename} when is_list(Filename) andalso
+                            Filename =:= ReleaseLink ->
+            {Filename, ReleaseHandlerPackageLink};
+        {ok, Filename} when is_list(Filename) ->
+            %% we now have the location of the release package, however
+            %% release handler expects a fixed nomenclature (<relname>.tar.gz)
+            %% so give it just that by creating a symlink to the tarball
+            %% we found.
+            %% make sure that the dir where we're creating the link in exists
+            ok = filelib:ensure_dir(filename:join([filename:dirname(ReleaseLink), "dummy"])),
+            %% create the symlink pointing to the full path name of the
+            %% release package we found
+            case file:make_symlink(filename:absname(Filename), ReleaseLink) of
+                ok ->
+                    ok;
+                {error, eperm} -> % windows!
+                    {ok,_} = file:copy(filename:absname(Filename), ReleaseLink)
+            end,
+            {Filename, ReleaseHandlerPackageLink}
+    end.
+
+first_value(_Fun, []) -> no_value;
+first_value(Fun, [Value | Rest]) ->
+    case Fun(Value) of
+        false ->
+            first_value(Fun, Rest);
+        true ->
+            {ok, Value}
+    end.
+
+parse_version(V) when is_list(V) ->
+    hd(string:tokens(V,"/")).
+
+check_and_install(TargetNode, Vsn) ->
+    case rpc:call(TargetNode, release_handler,
+                  check_install_release, [Vsn], ?TIMEOUT) of
+        {ok, _OtherVsn, _Desc} ->
+            ok;
+        {error, Reason} ->
+            ?INFO("ERROR: release_handler:check_install_release failed: ~p~n",[Reason]),
+            erlang:halt(3)
+    end,
+    case rpc:call(TargetNode, release_handler, install_release,
+                  [Vsn, [{update_paths, true}]], ?TIMEOUT) of
+        {ok, _, _} ->
+            ?INFO("Installed Release: ~s~n", [Vsn]),
+            ok;
+        {error, {no_such_release, Vsn}} ->
+            VerList =
+                iolist_to_binary(
+                    [io_lib:format("* ~s\t~s~n",[V,S]) ||  {V,S} <- which_releases(TargetNode)]),
+            ?INFO("Installed versions:~n~s", [VerList]),
+            ?INFO("ERROR: Unable to revert to '~s' - not installed.~n", [Vsn]),
+            erlang:halt(2);
+        %% as described in http://erlang.org/doc/man/appup.html, when performing a relup
+        %% with soft purge:
+        %%      If the value is soft_purge, release_handler:install_release/1
+        %%      returns {error,{old_processes,Mod}}
+        {error, {old_processes, Mod}} ->
+            ?INFO("ERROR: unable to install '~s' - old processes still running code from module ~p~n",
+                [Vsn, Mod]),
+            erlang:halt(3);
+        {error, Reason1} ->
+            ?INFO("ERROR: release_handler:install_release failed: ~p~n",[Reason1]),
+            erlang:halt(4)
+    end.
+
+maybe_permafy(TargetNode, RelName, Vsn, Opts) ->
+    case proplists:get_value(permanent, Opts, true) of
+        true ->
+            permafy(TargetNode, RelName, Vsn);
+        false -> ok
+    end.
+
+permafy(TargetNode, RelName, Vsn) ->
+    ok = rpc:call(TargetNode, release_handler,
+                  make_permanent, [Vsn], ?TIMEOUT),
+    file:copy(filename:join(["bin", atom_to_list(RelName)++"-"++Vsn]),
+              filename:join(["bin", atom_to_list(RelName)])),
+    ?INFO("Made release permanent: ~p~n", [Vsn]),
+    ok.
+
+remove_release(TargetNode, Vsn) ->
+    case rpc:call(TargetNode, release_handler, remove_release, [Vsn], ?TIMEOUT) of
+        ok ->
+            ?INFO("Uninstalled Release: ~s~n", [Vsn]),
+            ok;
+        {error, Reason} ->
+            ?INFO("ERROR: release_handler:remove_release failed: ~p~n", [Reason]),
+            erlang:halt(3)
+    end.
+
+which_releases(TargetNode) ->
+    R = rpc:call(TargetNode, release_handler, which_releases, [], ?TIMEOUT),
+    [ {V, S} ||  {_,V,_, S} <- R ].
+
+%% the running release version is either the only one marked `current´
+%% or, if none exists, the one marked `permanent`
+current_release_version(TargetNode) ->
+    R = rpc:call(TargetNode, release_handler, which_releases,
+                [], ?TIMEOUT),
+    Versions = [ {S, V} ||  {_,V,_, S} <- R ],
+    %% current version takes priority over the permanent
+    proplists:get_value(current, Versions,
+        proplists:get_value(permanent, Versions)).
+
+print_existing_versions(TargetNode) ->
+    VerList = iolist_to_binary([
+            io_lib:format("* ~s\t~s~n",[V,S])
+            ||  {V,S} <- which_releases(TargetNode) ]),
+    ?INFO("Installed versions:~n~s", [VerList]).
+
+start_distribution(TargetNode, NameTypeArg, Cookie) ->
+    MyNode = make_script_node(TargetNode),
+    {ok, _Pid} = net_kernel:start([MyNode, get_name_type(NameTypeArg)]),
+    erlang:set_cookie(node(), Cookie),
+    case {net_kernel:connect_node(TargetNode),
+          net_adm:ping(TargetNode)} of
+        {true, pong} ->
+            ok;
+        {_, pang} ->
+            ?INFO("Node ~p not responding to pings.\n", [TargetNode]),
+            erlang:halt(1)
+    end,
+    {ok, Cwd} = file:get_cwd(),
+    ok = rpc:call(TargetNode, file, set_cwd, [Cwd], ?TIMEOUT),
+    TargetNode.
+
+make_script_node(Node) ->
+    [Name, Host] = string:tokens(atom_to_list(Node), "@"),
+    list_to_atom(lists:concat([Name, "_upgrader_", os:getpid(), "@", Host])).
+
+%% get name type from arg
+get_name_type(NameTypeArg) ->
+	case NameTypeArg of
+		"-sname" ->
+			shortnames;
+		_ ->
+			longnames
+	end.

guam-0.9.11.tar.gz/_build/default/rel/guam/bin/no_dot_erlang.boot Added

guam-0.9.11.tar.gz/_build/default/rel/guam/bin/nodetool Added

@@ -0,0 +1,200 @@
+#!/usr/bin/env escript
+%% -*- mode: erlang;erlang-indent-level: 4;indent-tabs-mode: nil -*-
+%% ex: ft=erlang ts=4 sw=4 et
+%% -------------------------------------------------------------------
+%%
+%% nodetool: Helper Script for interacting with live nodes
+%%
+%% -------------------------------------------------------------------
+
+main(Args) ->
+    %% Extract the args
+    {RestArgs, TargetNode, StartEpmd} = process_args(Args, [], undefined, true),
+
+    ok = start_epmd(StartEpmd),
+
+    %% See if the node is currently running  -- if it's not, we'll bail
+    case {net_kernel:hidden_connect_node(TargetNode), net_adm:ping(TargetNode)} of
+        {true, pong} ->
+            ok;
+        {_, pang} ->
+            io:format("Node ~p not responding to pings.\n", [TargetNode]),
+            halt(1)
+    end,
+
+    Timeout =
+        case os:getenv("NODETOOL_TIMEOUT") of
+            false ->
+                60000;
+            StrVal ->
+                try
+                    list_to_integer(StrVal)
+                catch _:_ ->
+                        60000
+                end
+        end,
+
+    case RestArgs of
+        ["ping"] ->
+            %% If we got this far, the node already responsed to a ping, so just dump
+            %% a "pong"
+            io:format("pong\n");
+        ["stop"] ->
+            io:format("~p\n", [rpc:call(TargetNode, init, stop, [], Timeout)]);
+        ["restart"] ->
+            io:format("~p\n", [rpc:call(TargetNode, init, restart, [], Timeout)]);
+        ["reboot"] ->
+            io:format("~p\n", [rpc:call(TargetNode, init, reboot, [], Timeout)]);
+        ["rpc", Module, Function | RpcArgs] ->
+            case rpc:call(TargetNode, list_to_atom(Module), list_to_atom(Function),
+                          [RpcArgs], Timeout) of
+                ok ->
+                    ok;
+                {badrpc, Reason} ->
+                    io:format("RPC to ~p failed: ~p\n", [TargetNode, Reason]),
+                    halt(1);
+                _ ->
+                    halt(1)
+            end;
+        ["rpcterms", Module, Function | ArgsAsString] ->
+            case rpc:call(TargetNode, list_to_atom(Module), list_to_atom(Function),
+                          consult(lists:flatten(ArgsAsString)), Timeout) of
+                {badrpc, Reason} ->
+                    io:format("RPC to ~p failed: ~p\n", [TargetNode, Reason]),
+                    halt(1);
+                Other ->
+                    io:format("~p\n", [Other])
+            end;
+        ["eval" | ListOfArgs] ->
+            % shells may process args into more than one, and end up stripping
+            % spaces, so this converts all of that to a single string to parse
+            String = binary_to_list(
+                      list_to_binary(
+                        join(ListOfArgs," ")
+                      )
+                    ),
+
+            % then just as a convenience to users, if they forgot a trailing
+            % '.' add it for them.
+            Normalized =
+              case lists:reverse(String) of
+                [$. | _] -> String;
+                R -> lists:reverse([$. | R])
+              end,
+
+            % then scan and parse the string
+            {ok, Scanned, _} = erl_scan:string(Normalized),
+            {ok, Parsed } = erl_parse:parse_exprs(Scanned),
+
+            % and evaluate it on the remote node
+            case rpc:call(TargetNode, erl_eval, exprs, [Parsed, [] ]) of
+                {value, Value, _} ->
+                    io:format ("~p\n",[Value]);
+                {badrpc, Reason} ->
+                    io:format("RPC to ~p failed: ~p\n", [TargetNode, Reason]),
+                    halt(1)
+            end;
+        Other ->
+            io:format("Other: ~p\n", [Other]),
+            io:format("Usage: nodetool {ping|stop|restart|reboot|rpc|rpcterms|eval [Terms]} [RPC]\n")
+    end,
+    net_kernel:stop().
+
+process_args([], Acc, TargetNode, StartEpmd) ->
+    {lists:reverse(Acc), TargetNode, StartEpmd};
+process_args(["-setcookie", Cookie | Rest], Acc, TargetNode, StartEpmd) ->
+    erlang:set_cookie(node(), list_to_atom(Cookie)),
+    process_args(Rest, Acc, TargetNode, StartEpmd);
+process_args(["-start_epmd", StartEpmd | Rest], Acc, TargetNode, _StartEpmd) ->
+    process_args(Rest, Acc, TargetNode, list_to_atom(StartEpmd));
+process_args(["-name", TargetName | Rest], Acc, _, StartEpmd) ->
+    maybe_start_node(TargetName, longnames),
+    process_args(Rest, Acc, nodename(TargetName), StartEpmd);
+process_args(["-sname", TargetName | Rest], Acc, _, StartEpmd) ->
+    maybe_start_node(TargetName, shortnames),
+    process_args(Rest, Acc, nodename(TargetName), StartEpmd);
+process_args([Arg | Rest], Acc, Opts, StartEpmd) ->
+    process_args(Rest, [Arg | Acc], Opts, StartEpmd).
+
+maybe_start_node(TargetName, Names) ->
+    case erlang:node() of
+        'nonode@nohost' ->
+            ThisNode = append_node_suffix(TargetName, "_maint_"),
+            {ok, _} = net_kernel:start([ThisNode, Names]);
+        _ ->
+            ok
+    end.
+
+start_epmd(true) ->
+    [] = os:cmd("\"" ++ epmd_path() ++ "\" -daemon"),
+    ok;
+start_epmd(_) ->
+    ok.
+
+epmd_path() ->
+    ErtsBinDir = filename:dirname(escript:script_name()),
+    Name = "epmd",
+    case os:find_executable(Name, ErtsBinDir) of
+        false ->
+            case os:find_executable(Name) of
+                false ->
+                    io:format("Could not find epmd.~n"),
+                    halt(1);
+                GlobalEpmd ->
+                    GlobalEpmd
+            end;
+        Epmd ->
+            Epmd
+    end.
+
+
+nodename(Name) ->
+    case re:split(Name, "@", [{return, list}, unicode]) of
+        [_Node, _Host] ->
+            list_to_atom(Name);
+        [Node] ->
+            [_, Host] = re:split(atom_to_list(node()), "@", [{return, list}, unicode]),
+            list_to_atom(lists:concat([Node, "@", Host]))
+    end.
+
+append_node_suffix(Name, Suffix) ->
+    case re:split(Name, "@", [{return, list}, unicode]) of
+        [Node, Host] ->
+            list_to_atom(lists:concat([Node, Suffix, os:getpid(), "@", Host]));
+        [Node] ->
+            list_to_atom(lists:concat([Node, Suffix, os:getpid()]))
+    end.
+
+%%
+%% Given a string or binary, parse it into a list of terms, ala file:consult/0
+%%
+consult(Str) when is_list(Str) ->
+    consult([], Str, []);
+consult(Bin) when is_binary(Bin)->
+    consult([], binary_to_list(Bin), []).
+
+consult(Cont, Str, Acc) ->
+    case erl_scan:tokens(Cont, Str, 0) of
+        {done, Result, Remaining} ->
+            case Result of
+                {ok, Tokens, _} ->
+                    {ok, Term} = erl_parse:parse_term(Tokens),
+                    consult([], Remaining, [Term | Acc]);
+                {eof, _Other} ->
+                    lists:reverse(Acc);
+                {error, Info, _} ->
+                    {error, Info}
+            end;
+        {more, Cont1} ->
+            consult(Cont1, eof, Acc)
+    end.
+
+%% string:join/2 copy; string:join/2 is getting obsoleted
+%% and replaced by lists:join/2, but lists:join/2 is too new
+%% for version support (only appeared in 19.0) so it cannot be
+%% used. Instead we just adopt join/2 locally and hope it works
+%% for most unicode use cases anyway.
+join([], Sep) when is_list(Sep) ->
+    [];
+join([H|T], Sep) ->
+    H ++ lists:append([Sep ++ X || X <- T]).

guam-0.9.11.tar.gz/_build/default/rel/guam/bin/start_clean.boot Added

guam-0.9.11.tar.gz/_build/default/rel/guam/etc Added

guam-0.9.11.tar.gz/_build/default/rel/guam/etc/sys.config Added

@@ -0,0 +1,89 @@
+%% Example configuration for Guam.
+[
+    {
+        kolab_guam, [
+            {
+                imap_servers, [
+                    {
+                        imap, [
+                            { host, "127.0.0.1" },
+                            { port, 143 },
+                            { tls, starttls }
+                        ]
+                    },
+                    {
+                        imaps, [
+                            { host, "127.0.0.1" },
+                            { port, 993 },
+                            { tls, true }
+                        ]
+                    }
+                ]
+            },
+            {
+                listeners, [
+                    {
+                        imap, [
+                            { port, 9143 },
+                            { imap_server, imap },
+                            {
+                                rules, [
+                                    { filter_groupware, [] }
+                                ]
+                            },
+                            {
+                                tls_config, [
+                                    { certfile, "/etc/pki/tls/private/localhost.pem" },
+                                    { cacertfile, "/etc/pki/tls/private/localhost.ca.pem" },
+                                    { keyfile, "/etc/pki/tls/private/localhost.key" }
+                                ]
+                            }
+                        ]
+                    },
+                    {
+                        imaps, [
+                            { port, 9993 },
+                            { implicit_tls, true },
+                            { imap_server, imaps },
+                            {
+                                rules, [
+                                    { filter_groupware, [] }
+                                ]
+                            },
+                            {
+                                tls_config, [
+                                    { certfile, "/etc/pki/tls/private/localhost.pem" },
+                                    { cacertfile, "/etc/pki/tls/private/localhost.ca.pem" },
+                                    { keyfile, "/etc/pki/tls/private/localhost.key" }
+                                ]
+                            }
+                        ]
+                    }
+                ]
+            }
+        ]
+    },
+
+    {
+        lager, [
+            {
+                handlers, [
+                    { lager_console_backend, debug },
+                    { lager_file_backend, [ { file, "log/error.log"}, { level, error } ] },
+                    { lager_file_backend, [ { file, "log/console.log"}, { level, info } ] }
+                ]
+            }
+        ]
+    },
+
+    %% SASL config
+    {
+        sasl, [
+            { sasl_error_logger, { file, "log/sasl-error.log" } },
+            { errlog_type, error },
+            { error_logger_mf_dir, "log/sasl" },      % Log directory
+            { error_logger_mf_maxbytes, 10485760 },   % 10 MB max file size
+            { error_logger_mf_maxfiles, 5 }           % 5 files max
+        ]
+    }
+].

guam-0.9.11.tar.gz/_build/default/rel/guam/lib Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4 Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/ebin Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/ebin/eimap.app Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/ebin/eimap.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/ebin/eimap_command.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/ebin/eimap_command_annotation.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/ebin/eimap_command_capability.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/ebin/eimap_command_compress.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/ebin/eimap_command_getmetadata.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/ebin/eimap_command_login.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/ebin/eimap_command_logout.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/ebin/eimap_command_namespace.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/ebin/eimap_command_noop.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/ebin/eimap_command_peek_message.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/ebin/eimap_command_starttls.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/ebin/eimap_command_status.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/ebin/eimap_command_switch_folder.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/ebin/eimap_uidset.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/ebin/eimap_utils.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/src Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/src/commands Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/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.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/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.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/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.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/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.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/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.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/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.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/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.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/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.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/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.PEEK[HEADER] BODY.PEEK[TEXT])">>, 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(<<"BODY[HEADER] {", Data/binary>>, Parts) ->
+    parse_header(Data, Parts);
+parse_next_component(<<"BODY[TEXT] {", 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.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/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.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/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.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/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.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/src/eimap.app.src Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/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.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/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 } = eimap_utils:num_literal_continuation_bytes(Line),
+    process_line(ContinuationBytes, ParseTaggedLine, eimap_utils:is_tagged_response(FirstLine, Tag), Tag, LastPartialLine, FirstLine, MoreLines, Acc, Module).
+
+
+process_line(ContinuationBytes, ParseTaggedLine, IsTagged, Tag, LastPartialLine, Line, [<<>>|MoreLines], Acc, Module) ->
+    %% skip empty lines
+    process_line(ContinuationBytes, ParseTaggedLine, IsTagged, Tag, LastPartialLine, Line, MoreLines, Acc, Module);
+process_line(0, 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));
+process_line(0, ParseTaggedLine, untagged, Tag, LastPartialLine, Line, MoreLines, Acc, Module) ->
+    %io:format("Calling it here with ~p~n~n...", [Line]),
+    process_lines(ParseTaggedLine, Tag, LastPartialLine, MoreLines, Module:process_line(Line, Acc), Module);
+process_line(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(_ContinuationBytes, ParseTaggedLine, IsTagged, Tag, LastPartialLine, Line, [NextLine|MoreLines], Acc, Module) ->
+    { StrippedNextLine, NextContinuationBytes } = 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(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.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/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.11.tar.gz/_build/default/rel/guam/lib/eimap-0.4.4/src/eimap_utils.erl Added

@@ -0,0 +1,258 @@
+%% 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
+        ]).
+
+%% 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() }.
+num_literal_continuation_bytes(Buffer) when size(Buffer) < 4 ->
+    { Buffer, 0 };
+num_literal_continuation_bytes(Buffer) ->
+    case binary:last(Buffer) =:= $} of
+        true -> number_of_bytes_in_continuation(Buffer);
+        false -> { Buffer, 0 }
+    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 };
+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 }
+    catch
+        _:_ -> { Buffer, 0 }
+    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) -> <<>>.
+
+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.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9 Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/ebin Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/ebin/glc.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/ebin/glc_code.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/ebin/glc_lib.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/ebin/glc_ops.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/ebin/glc_run.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/ebin/goldrush.app Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/ebin/gr_app.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/ebin/gr_context.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/ebin/gr_counter.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/ebin/gr_counter_sup.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/ebin/gr_manager.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/ebin/gr_manager_sup.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/ebin/gr_param.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/ebin/gr_param_sup.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/ebin/gr_sup.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/ebin/gre.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/priv Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/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.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/src Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/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.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/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.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/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.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/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.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/src/glc_run.erl Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/src/goldrush.app.src Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/src/gr_app.erl Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/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.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/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.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/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.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/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. <em>Counter</em>} and
+%% {@link gr_param:start_link/0. <em>Param</em>} 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.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/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. 
+%% <em>Manager</em>} processes, which serve as heir of the 
+%% {@link gr_counter:start_link/0. <em>Counter</em>} and
+%% {@link gr_param:start_link/0. <em>Param</em>} 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.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/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.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/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. 
+%% <em>Param</em>}, process table responsible for params
+%% {@link gr_param:start_link/0. <em>Counter</em>} and
+%% their {@link gr_counter:start_link/0. <em>Manager</em>} 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.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/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. 
+%% <em>Counter</em>}, {@link gr_param_sup:start_link/0. <em>Param</em>} and
+%% their {@link gr_manager_sup:start_link/0. <em>Manager</em>} 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.11.tar.gz/_build/default/rel/guam/lib/goldrush-0.1.9/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.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11 Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/ebin Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/ebin/kolab_guam.app Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/ebin/kolab_guam.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/ebin/kolab_guam_listener.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/ebin/kolab_guam_rule.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/ebin/kolab_guam_rule_audit.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/ebin/kolab_guam_rule_filter_groupware.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/ebin/kolab_guam_session.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/ebin/kolab_guam_sup.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/src Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/src/kolab_guam.app.src Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/src/kolab_guam.erl Added

@@ -0,0 +1,38 @@
+%% 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 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 General Public License for more details.
+%%
+%% You should have received a copy of the GNU General Public License
+%% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+-module(kolab_guam).
+
+-behaviour(application).
+
+%% Application callbacks
+-export([start/0, start/2, stop/0, stop/1]).
+
+start() -> ssl:start(), application:start(kolab_guam).
+stop() -> application:stop(kolab_guam).
+
+%% ===================================================================
+%% Application callbacks
+%% ===================================================================
+
+start(_StartType, _StartArgs) ->
+    lager:info("Starting Kolab Guam IMAP session proxy ..."),
+    lager:info("    Starting the main supervisor ..."),
+    kolab_guam_sup:start_link().
+
+stop(_State) ->
+    ok.

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/src/kolab_guam_listener.erl Added

@@ -0,0 +1,96 @@
+%% 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 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 General Public License for more details.
+%%
+%% You should have received a copy of the GNU General Public License
+%% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+-module(kolab_guam_listener).
+
+-behaviour(supervisor).
+-define(DEFAULT_IMAP_PORT, 143).
+-define(DEFAULT_LISTENER_POOL_SIZE, 10).
+
+%% API
+-export([start_link/2, create_initial_listeners/2, cleanup/1]).
+
+%% gen_supervisor callbacks
+-export([init/1]).
+
+%% state record definition
+%%TODO: support reconfiguration requests
+
+%% public API
+start_link(Name, Config) -> supervisor:start_link(?MODULE, [Name, Config]).
+
+%% gen_server API
+init([Name, Config]) ->
+    Host = proplists:get_value(host, Config, none),
+    NetIface = proplists:get_value(net_iface, Config, none),
+    Port = proplists:get_value(port, Config, ?DEFAULT_IMAP_PORT),
+    ImplicitTLS = proplists:get_value(implicit_tls, Config, false),
+    TLSConfig = proplists:get_value(tls_config, Config, []),
+    Rules = proplists:get_value(rules, Config, []),
+    Options = listen_options(NetIface, Host),
+    lager:info("Starting listener \"~p\" on port ~B (~p) with ~B rules", [Name, Port, Options, length(Rules)]),
+    { ok, ListenSocket } = listen(ImplicitTLS, Port, Options),
+    spawn_link(?MODULE, cleanup, [ListenSocket]),
+    %% setting up the initial listeners must be done async to allow the init to be done and the supervisor to be setup
+    ListenerPoolSize = proplists:get_value(listener_pool_size, Config, ?DEFAULT_LISTENER_POOL_SIZE),
+    spawn_link(kolab_guam_listener, create_initial_listeners, [ListenerPoolSize, self()]),
+    ImapConfig = imap_config(proplists:get_value(imap_server, Config, none)),
+    lager:debug("ImapConfig is ~p", [ImapConfig]),
+    {ok, { { simple_one_for_one, 60, 3600 },
+         [ { session, { kolab_guam_session, start_link, [self(), ListenSocket, ImapConfig, ImplicitTLS, TLSConfig, Rules] }, temporary, 1000, worker, [kolab_guam_session] } ]
+         }
+    }.
+
+imap_config(none) -> kolab_guam_sup:default_imap_server_config();
+imap_config(Backend) -> kolab_guam_sup:imap_server_config(Backend).
+
+-spec listen_options(Iface :: string(), Hostname :: string()) -> list().
+listen_options(none, none) -> default_listen_options();
+listen_options(none, Hostname) ->
+    case inet:gethostbyname(Hostname) of
+        { ok, { hostent, _HostName, _Unused, inet, _Ver, [IP] } } ->
+            [ { ip, IP } | default_listen_options() ];
+        _ ->
+            listen_options(none, none)
+    end;
+listen_options(Iface, Hostname) ->
+    { ok, Ifaces } = inet:getifaddrs(),
+    case proplists:get_value(Iface, Ifaces) of
+        undefined -> listen_options(none, Hostname);
+        Info -> Addr = proplists:get_value(addr, Info, none),
+                listen_options(none, Addr)
+    end.
+
+default_listen_options() -> [ { keepalive, true }, { reuseaddr, true }, {active, false}, inet6 ].
+
+create_initial_listeners(ListenerPoolSize, PID) when is_pid(PID) ->
+    lager:debug("Creating session pool of size ~p for listener ~p", [ListenerPoolSize, PID]),
+    [ supervisor:start_child(PID, []) || _ <- lists:seq(1, ListenerPoolSize) ].
+
+cleanup(Socket) ->
+    process_flag(trap_exit, true),
+    receive
+        { 'EXIT', _PID, _  } -> ok;
+        _ -> cleanup(Socket)
+    end,
+    gen_tcp:close(Socket).
+
+listen(true, Port, Options) -> gen_tcp:listen(Port, Options);
+listen(_ImplicitTLS, Port, Options) -> gen_tcp:listen(Port, Options).
+
+%% private API
+

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/src/kolab_guam_rule.erl Added

@@ -0,0 +1,39 @@
+%% 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 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 General Public License for more details.
+%%
+%% You should have received a copy of the GNU General Public License
+%% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+-module(kolab_guam_rule).
+
+-callback new(Args :: any()) ->
+    State :: any().
+
+%% Used to decied if a rule applies to a session (is active). No longer called once the rule is decided (true/false).
+-callback applies(ConnectionDetails :: list(), Buffer :: binary(), SplitBinary :: { Tag :: binary(), Command :: binary(), Data :: binary() }, State :: any()) ->
+    { true, State :: any() } |
+    { false, State :: any() } |
+    { notyet, State :: any() }.
+
+%% Called for rules in the active set.
+-callback apply_to_client_message(ImapSession :: pid(), Command :: binary(), SplitBinary :: { Tag :: binary(), Command :: binary(), Data :: binary() }, State :: any()) ->
+    { ProcessedCommand :: binary(), State :: any() }.
+
+%% Called for rules in the active set.
+-callback apply_to_server_message(ImapSession :: pid(), Command :: binary(), State :: any()) ->
+    { ProcessedCommand :: binary(), State :: any() }.
+
+%% Callback for rules that request extra data from the server
+-callback imap_data(ResponseToken :: any(), Response :: any(), State :: any()) ->
+    State :: any().

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/src/kolab_guam_session.erl Added

@@ -0,0 +1,505 @@
+%% 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 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 General Public License for more details.
+%%
+%% You should have received a copy of the GNU General Public License
+%% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+-module(kolab_guam_session).
+
+-behaviour(gen_server).
+
+%% API
+-export([ start_link/6 ]).
+
+%% gen_server callbacks
+-export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]).
+
+%% tests
+-export([ process_client_data/3 ]).
+
+-include("kolab_guam_session.hrl").
+
+%% public API
+start_link(SupervisorPID, ListenSocket, ImapConfig, ImplicitTLS, TLSConfig, Rules) -> gen_server:start_link(?MODULE, [SupervisorPID, ListenSocket, ImapConfig, ImplicitTLS, TLSConfig, Rules], []).
+
+%% gen_server API
+init([SupervisorPID, ListenSocket, ServerConfig, ImplicitTLS, TLSConfig, Rules]) ->
+    %% accepting a connection is blocking .. so do it async
+    %% lager:debug("Starting a session handler on socket ~p for listener ~p", [ListenSocket, SupervisorPID]),
+    process_flag(trap_exit, true),
+    ActiveRules = init_rules(Rules),
+    gen_server:cast(self(), accept),
+    %% lager:debug("Rules are ~p from ~p", [ActiveRules, Rules]),
+    { ok, #state{ listen_socket = ListenSocket, super_pid = SupervisorPID, client_implicit_tls = ImplicitTLS, tls_config = TLSConfig, server_config = ServerConfig, rules_deciding = ActiveRules } }.
+
+handle_call(_Request, _From, State) ->
+    { reply, ok, State }.
+
+handle_cast(accept, State = #state{ server_config = ServerConfig } = State) ->
+    %% try to rate limit our responses a bit here so that hammering the socket with connections is survivable
+    timer:sleep(3),
+    { ok, AcceptSocket, TLSActive } = accept_client(State),
+    { ok, ImapSession } = eimap:start_link(ServerConfig),
+    eimap:connect(ImapSession, self(), server_hello),
+    { noreply, State#state{ listen_socket = undefined, socket = AcceptSocket, imap_session = ImapSession, client_tls_active = TLSActive } };
+handle_cast(_Msg, State) ->
+    { noreply, State }.
+
+handle_info({ tcp_closed, _Socket }, State) ->
+    %lager:debug("Client closed socket"),
+    { stop, normal, State };
+handle_info({ tcp_error, _Socket, _Error }, State) ->
+    %lager:debug("Socket error"),
+    { stop, normal, State };
+handle_info({ ssl_closed, _Socket }, State) ->
+    %lager:debug("Client closed socket"),
+    { stop, normal, State };
+handle_info({ ssl_error, _Socket, _Error }, State) ->
+    %lager:debug("Socket error"),
+    { stop, normal, State };
+handle_info({ tcp, Socket, Data }, #state{ client_tls_active = false } = State) ->
+    % lager:debug("Data coming in from client over TCP ~s", [Data]),
+    {Acc, NewState} = process_client_data(Socket, Data, State),
+    forward_literal_data(Acc, NewState),
+    %Required because of socket upgrade, in which case we will end up with the ssl variant here.
+    set_socket_active(NewState),
+    { noreply, NewState };
+
+handle_info({ ssl, Socket, Data }, State) ->
+    % lager:debug("Data coming in from client over SSL, ~p", [Data]),
+    {Acc, NewState} = process_client_data(Socket, Data, State),
+    forward_literal_data(Acc, NewState),
+    ssl:setopts(Socket, [{ active, once }]),
+    { noreply, NewState };
+
+handle_info({ server_hello, ServerHello }, #state{ imap_session = ImapSession, tls_config = TLSConfig, socket = Socket, client_implicit_tls = ImplicitTLS, client_tls_active = TLSActive, deflator = Deflator } = State) ->
+    CorrectedHello = correct_hello(TLSActive, ImplicitTLS, TLSConfig, ServerHello),
+    ServerIdent = proplists:get_value(server_id, ServerHello, <<>>),
+    FullGreeting = <<"* OK [CAPABILITY ", CorrectedHello/binary, "] ", ServerIdent/binary, "\r\n">>,
+    eimap:start_passthrough(ImapSession, self()),
+    relay_response(Socket, postprocess_server_data(Deflator, FullGreeting), TLSActive),
+    { noreply, State };
+handle_info({ { rule_data, Module, ResponseToken }, Data }, #state{ rules_active = ActiveRules } = State) ->
+    %lager:debug("Got back data requested by rule ~p: ~p", [Module, Data]),
+    NewActiveRules =
+    case proplists:get_value(Module, ActiveRules) of
+        undefined -> ActiveRules;
+        ModuleState ->
+            NewModuleState = Module:imap_data(ResponseToken, Data, ModuleState),
+            lists:reverse(lists:foldl(fun({ Rule, RuleState }, Acc) ->
+                                              case Rule =:= Module of
+                                                  true -> [{ Rule, NewModuleState }|Acc];
+                                                  _ -> [{ Rule, RuleState }|Acc]
+                                              end
+                                      end,
+                          [], ActiveRules))
+    end,
+    %TODO: should we also support non-active rules doing imapy things here?
+    { noreply, State#state{ rules_active = NewActiveRules } };
+handle_info({ imap_server_response, Data }, #state{ socket = Socket, imap_session = ImapSession, client_tls_active = TLS, deflator = Deflator, rules_active = ActiveRules } = State) ->
+    lager:debug("FROM SERVER: ~p", [Data]),
+    { ModifiedData, CurrentlyActiveRules } = apply_ruleset_serverside(ImapSession, Data, ActiveRules),
+    relay_response(Socket, postprocess_server_data(Deflator, ModifiedData), TLS),
+    NewSplitCommand = update_split_command_state(ModifiedData, State),
+    { noreply, State#state{ rules_active = CurrentlyActiveRules, current_command_split = NewSplitCommand } };
+handle_info({ 'EXIT', PID, _Reason }, #state { imap_session = PID } = State) ->
+    { stop, normal, State#state{ imap_session = undefined } };
+handle_info(Info, State) ->
+    lager:debug("Received unexpected info... ~p", [Info]),
+    { noreply, State }.
+
+terminate(_Reason, #state{ inflator = Inflator, imap_session = ImapSession, deflator = Deflator, socket = Socket, client_implicit_tls = ImplicitTLS, client_tls_active = TLS }) ->
+    close_zlib_handle(Inflator),
+    close_zlib_handle(Deflator),
+    close_socket(ImplicitTLS, TLS, Socket),
+    case ImapSession of
+        undefined -> ok;
+        _ -> exit(ImapSession, kill)
+    end,
+    ok.
+
+code_change(_OldVsn, State, _Extra) ->
+    { ok, State }.
+
+%% private API
+
+%% update_split_command_state updates the split_command being held on to when we get a server response
+%% in the case of "transactional" messages (such as authentication) where the client and server enter a bidirectional conversation
+%% that is goverened by rules outside the the usual IMAP call/response pattern, we need to wait for the end of the server response
+%% since this is relatively expensive due to having to scan the data for the tagged server response, and is not necessary for all other
+%% IMAP commands, we shortcircuit when the command does not trigger a "transactional" interaction between client and server, and instead
+%% just always reset the split data state at that point
+update_split_command_state(Data, #state{ command_split_reset_trigger = reset_on_server_response, current_command_split = CurrentCommandSplit }) ->
+    case CurrentCommandSplit of
+        undefined -> undefined;
+        { Tag, _Command, _Data } ->
+            case binary:match(Data, <<Tag/binary, " ">>) of
+                nomatch -> CurrentCommandSplit;
+                { 0, _ } -> undefined;
+                { Start, _ } ->
+                    case binary:at(Data, Start - 1) of
+                        $\n -> undefined;
+                        _ -> CurrentCommandSplit
+                    end
+            end
+    end;
+update_split_command_state(_Data, _State) ->
+    undefined.
+
+update_split_command_state_client(ClientDataComponents, #state{ command_split_reset_trigger = reset_for_next_client_command, current_command_split = CurrentCommandSplit }) ->
+    %If we have a currently active command (CurrentCommandSplit), then we reset only if we find a new command (and not just on any new line).
+    %This is relevant for multi-line commands such as APPEND, which follow up with a continuation which we want to avoid buffering.
+    case CurrentCommandSplit of
+        undefined -> undefined;
+        _ ->
+            case ClientDataComponents of
+                { <<>>, <<>>, <<>> } -> CurrentCommandSplit;
+                { _Tag, <<>>, <<>> } -> CurrentCommandSplit;
+                { <<>>, _Command, <<>> } -> CurrentCommandSplit;
+                { _Tag, _Command, _Data } -> undefined
+            end
+    end;
+update_split_command_state_client(_ClientDataComponents, _State) ->
+    undefined.
+
+set_socket_active(#state{ client_tls_active = true, socket = Socket}) -> ssl:setopts(Socket, [{ active, once }]);
+set_socket_active(#state{ client_tls_active = false, socket = Socket}) -> inet:setopts(Socket, [{ active, once }]).
+
+accept_client(#state{ client_implicit_tls = true, tls_config = TLSConfig, listen_socket = ListenSocket, super_pid = SupervisorPID }) ->
+    AcceptSocket = accept_socket(ListenSocket, SupervisorPID),
+
+    { ok, SSLSocket } =
+    case ssl:ssl_accept(AcceptSocket, TLSConfig) of
+        { ok, Socket } ->
+            { ok, Socket };
+        {error, {tls_alert, Reason}} ->
+            lager:warning("TLS handshake failed with a tls_alert: ~p", [Reason]),
+            ok = gen_tcp:close(AcceptSocket),
+            exit(normal);
+        {error, Reason} when Reason =:= timeout; Reason =:= closed ->
+            lager:info("Socket closed or timed out during TLS handshake: ~p", [Reason]),
+            ok = gen_tcp:close(AcceptSocket),
+            exit(normal)
+    end,
+
+    %% prep for the next listen
+    ok = ssl:setopts(SSLSocket, [{ active, once }, { mode, binary }]),
+    % lager:info("~p All done!", [self()]),
+    { ok, SSLSocket, true };
+accept_client(#state{ listen_socket = ListenSocket, super_pid = SupervisorPID }) ->
+    AcceptSocket = accept_socket(ListenSocket, SupervisorPID),
+    ok = inet:setopts(AcceptSocket, [{ active, once }, { mode, binary }]),
+    { ok, AcceptSocket, false }.
+
+accept_socket(ListenSocket, SupervisorPID) ->
+    AcceptResult = gen_tcp:accept(ListenSocket),
+    %% start a new accepting process to replace this one, which is now in use
+    supervisor:start_child(SupervisorPID, []),
+    %% assert that the accept worked
+    { ok, AcceptSocket } =
+    case AcceptResult of
+        { ok, Socket } ->
+            { ok, Socket };
+        {error, emfile} ->
+            lager:error("Too many files open, you may be running into a file descriptor limitation."),
+            exit(emfile)
+    end,
+    AcceptSocket.
+
+close_zlib_handle(undefined) -> ok;
+close_zlib_handle(Z) -> zlib:close(Z).
+
+close_socket(_ImplicitTLS, _TLS, undefined) -> ok;
+close_socket(_ImplicitTLS, true, Socket) -> ssl:close(Socket);
+close_socket(true, _TLS, Socket) -> ssl:close(Socket);
+close_socket(_ImplicitTLS, _TLS, Socket) -> gen_tcp:close(Socket).
+
+
+forward_literal_data(<<>>, _State) ->
+    {};
+forward_literal_data(Data, #state{imap_session = ImapSession} = _State) ->
+    eimap:passthrough_data(ImapSession, Data).
+
+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)),
+    {NewAcc, NewState} = process_client_line(Line, Socket, State, Acc),
+    process_lines(Socket, NewState, MoreLines, NextContinuationBytes, NewAcc);
+process_lines(Socket, State, [Line|MoreLines], ContinuationBytes, Acc) ->
+    {LiteralPartOfLine, Remainder} = split_binary(Line, min(ContinuationBytes, size(Line))),
+    Lines =
+    case Remainder of
+       <<>> -> MoreLines;
+        _ -> [Remainder|MoreLines]
+    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) ->
+    % TODO: refactor so starttls and compress commands can be made into rules
+    PreprocessData = preprocess_client_data(Inflator, Data, State),
+    lager:debug("FROM CLIENT: ~p", [PreprocessData]),
+
+    {Lines, NewLastPartialLine} = split_lines(PreprocessData),
+    {Acc, NewState} = process_lines(Socket, State#state{ buffered_client_data = <<>> }, Lines, ContinuationBytes, <<>>),
+    #state{ buffered_client_data = DataToBuffer, continuation_bytes = NewContinuationBytes} = NewState,
+
+    NewBuffer = <<DataToBuffer/binary, NewLastPartialLine/binary>>,
+    %If we are inside a continuation, forward up to NewContinuationBytes
+    {LiteralPartOfBuffer, NonLiteralPart} = split_binary(NewBuffer, min(NewContinuationBytes, size(NewBuffer))),
+
+    {<<Acc/binary, LiteralPartOfBuffer/binary>>, NewState#state{ buffered_client_data = NonLiteralPart, continuation_bytes = NewContinuationBytes - size(LiteralPartOfBuffer)}}.
+
+
+process_client_line(Data, Socket, #state{ rules_deciding = UndecidedRules, tls_config = TLSConfig, client_tls_active = TLS, rules_active = ActiveRules, socket = Socket, imap_session = ImapSession, deflator = Deflator, server_config = ServerConfig} = State, Acc) ->
+    ClientDataComponents = eimap_utils:split_command_into_components(Data),
+    case check_for_transmission_change_commands(TLS, TLSConfig, ClientDataComponents, Deflator, Socket) of
+        { socket_upgraded, SSLSocket } ->
+            %% if we have upgraded our socket, then do so to the backend if that hasn't happened auomatically
+            case proplists:get_value(implicit_tls, ServerConfig, false) of
+                false -> eimap:starttls(ImapSession, undefined, undefined);
+                _ -> ok
+            end,
+            { Acc, State#state{ client_tls_active = true, socket = SSLSocket, buffered_client_data = <<>>, current_command_split = undefined, command_split_reset_trigger = undefined } };
+        { compression, NewInflator, NewDeflator } ->
+            eimap:compress(ImapSession), % TODO: make optional
+            { Acc, State#state{ inflator = NewInflator, deflator = NewDeflator, buffered_client_data = <<>>, current_command_split = undefined, command_split_reset_trigger = undefined } };
+        nochange ->
+            %We  first check if we have to reset the split command before we process the new command in apply_ruleset_clientside
+            NewSplit = update_split_command_state_client(ClientDataComponents, State),
+            { ModifiedData, NewSplitCommand, NewSplitResetTrigger, NewUndecidedRules, NewActiveRules, PostAction } = apply_ruleset_clientside(ImapSession, Socket, Data, ClientDataComponents, NewSplit, UndecidedRules, ActiveRules),
+            { SendThisData, BufferThisData } =
+            case PostAction of
+                perform_passthrough ->
+                    {ModifiedData, <<>>};
+                buffer_data ->
+                    {<<>>, Data}
+            end,
+            { <<Acc/binary, SendThisData/binary>>, State#state{ rules_deciding = NewUndecidedRules, rules_active = NewActiveRules, buffered_client_data = BufferThisData, current_command_split = NewSplitCommand, command_split_reset_trigger = NewSplitResetTrigger } }
+    end.
+
+preprocess_client_data(undefined, Data, #state{ buffered_client_data = Buffered }) ->
+    <<Buffered/binary, Data/binary>>;
+preprocess_client_data(Z, Data, #state{ buffered_client_data = Buffered }) ->
+    Inflated = iolist_to_binary(zlib:inflate(Z, Data)),
+    <<Buffered/binary, Inflated/binary>>.
+
+postprocess_server_data(undefined, Data) ->
+    %% we aren't compressing so there is nothing to do
+    Data;
+postprocess_server_data(Z, Data) ->
+    iolist_to_binary(zlib:deflate(Z, Data, sync)).
+
+init_rules(RuleConfig) -> init_rule(RuleConfig, []).
+init_rule([], Acc) -> Acc;
+init_rule([{ RuleName, Config }|RuleConfig], Acc) ->
+    Module = full_rule_name(RuleName),
+    %% we try to new the module, but if something goes wrong, e.g. it does not exist,
+    %% then we skip this config block because it is BROKEN
+    try Module:new(Config) of
+        ModuleState -> init_rule(RuleConfig, [{ Module, ModuleState }|Acc])
+    catch
+        Type:Error ->
+            lager:warning("Could not create rule for ~p due to failure: ~p ~p", [RuleName, Type, Error]),
+            init_rule(RuleConfig, Acc)
+    end;
+init_rule([_|RuleConfig], Acc) ->
+    init_rule(RuleConfig, Acc).
+
+full_rule_name(Module) when is_atom(Module) -> list_to_atom("kolab_guam_rule_" ++ atom_to_list(Module)).
+
+apply_ruleset_serverside(ImapSession, ServerData, CurrentlyActiveRules) ->
+    %TODO: allow undecided rules to opt-in here as well
+    apply_next_rule_serverside(ImapSession, ServerData, [], CurrentlyActiveRules).
+
+apply_next_rule_serverside(_ImapSession, ServerData, ActiveRulesAcc, []) -> { ServerData, lists:reverse(ActiveRulesAcc) };
+apply_next_rule_serverside(ImapSession, ServerData, ActiveRulesAcc, [{ Module, RuleState } | ActiveRules]) ->
+    %TODO: allow rules to remove themselves from the action during serverside processing?
+    { ModifiedData, ModifiedRuleState } = Module:apply_to_server_message(ImapSession, ServerData, RuleState),
+    apply_next_rule_serverside(ImapSession, ModifiedData, [{ Module, ModifiedRuleState } | ActiveRulesAcc], ActiveRules).
+
+apply_ruleset_clientside(_ImapSession, _Socket, ClientData, _ClientDataComponents, _CurrentCommandSplit, [], []) ->
+    { ClientData, undefined, [], [], [], perform_passthrough };
+apply_ruleset_clientside(ImapSession, Socket, ClientData, ClientDataComponents, CurrentCommandSplit, UndecidedRules, CurrentlyActiveRules) ->
+    { PostAction, SplitCommand, SplitResetTrigger } =
+        case CurrentCommandSplit of
+            undefined ->
+                case ClientDataComponents of
+                    % In case of an empty line ("\r\n") the line is complete (doesn't need to be buffered), but there is also no command or tag.
+                    { <<>>, <<>>, <<>> } -> { perform_passthrough, CurrentCommandSplit, reset_for_next_client_command };
+                    { _Tag, <<>>, <<>> } -> { buffer_data, undefined, reset_for_next_client_command };
+                    { _Tag, Command, _Data } = Split -> { perform_passthrough, Split, when_to_reset_split(Command) }
+                end;
+            _ ->  { perform_passthrough, CurrentCommandSplit, reset_for_next_client_command }
+        end,
+    { StillUndecided, NewlyActive } = check_undecided(Socket, ClientData, SplitCommand, UndecidedRules),
+    ActiveRules = CurrentlyActiveRules ++ NewlyActive,
+    %lager:info("Active Rules: ~p", [ActiveRules]),
+    { ModifiedData, ActiveRulesRun } = apply_next_rule_clientside(ImapSession, ClientData, SplitCommand, [], ActiveRules),
+    { ModifiedData, SplitCommand, SplitResetTrigger, StillUndecided, ActiveRulesRun, PostAction }.
+
+when_to_reset_split(<<"AUTHENTICATE">>) -> reset_on_server_response;
+when_to_reset_split(<<"authenticate">>) -> reset_on_server_response;
+when_to_reset_split(_) -> reset_for_next_client_command.
+
+check_undecided(_Socket, _ClientData, undefined, Rules) ->
+    %% if we do not have a properly split command ... do nothing!
+    { Rules, [] };
+check_undecided(Socket, ClientData, SplitCommand, Rules) -> check_next_undecided_rule(Socket, ClientData, SplitCommand, Rules, { [], [] }).
+check_next_undecided_rule(_Socket, _ClientData, _SplitCommand, [], Accs) -> Accs;
+check_next_undecided_rule(Socket, ClientData, SplitCommand, [Rule|Rules], { UndecidedAcc, NewActiveAcc }) ->
+    { Module, RuleState } = Rule,
+    %%lager:debug("Does ~p apply with state ~p? let's find out!", [Module, RuleState]),
+    Application = Module:applies(Socket, ClientData, SplitCommand, RuleState),
+    check_next_undecided_rule(Socket, ClientData, SplitCommand, Rules, applies(Module, Application, UndecidedAcc, NewActiveAcc)).
+
+applies(Module, { true, RuleState }, UndecidedAcc, NewActiveAcc) -> { UndecidedAcc, [{ Module, RuleState }|NewActiveAcc] };
+applies(_Module, { false, _RuleState }, UndecidedAcc, NewActiveAcc) -> { UndecidedAcc, NewActiveAcc };
+applies(Module, { notyet, RuleState }, UndecidedAcc, NewActiveAcc) -> { [{ Module, RuleState }|UndecidedAcc], NewActiveAcc }.
+
+apply_next_rule_clientside(_ImapSession, ClientData, _SplitCommand, ActiveRulesAcc, []) -> { ClientData, lists:reverse(ActiveRulesAcc) };
+apply_next_rule_clientside(ImapSession, ClientData, SplitCommand, ActiveRulesAcc, [{ Module, RuleState }|Rules]) ->
+    { Data, NewState } = Module:apply_to_client_message(ImapSession, ClientData, SplitCommand, RuleState),
+    apply_next_rule_clientside(ImapSession, Data, SplitCommand, [{ Module, NewState } | ActiveRulesAcc], Rules).
+
+relay_response(Socket, Data, false) ->
+    %lager:debug("Sending over non-secure socket ..."),
+    gen_tcp:send(Socket, Data);
+relay_response(Socket, Data, _TLS) ->
+    %lager:debug("Sending over TLS!"),
+    ssl:send(Socket, Data).
+
+check_for_transmission_change_commands(TLS, TLSConfig, ClientDataComponents, Deflator, Socket) ->
+    {Tag, Command, _Data } = ClientDataComponents,
+    case check_tls_state(TLS, TLSConfig, Command, Deflator, Socket, Tag) of
+        nochange -> check_compress_request(Deflator, Command, Socket, TLS, Tag);
+        Response -> Response
+    end.
+
+check_tls_state(false, TLSConfig, <<"STARTTLS">>, Deflator, Socket, Tag) -> start_client_tls(TLSConfig, Deflator, Socket, Tag);
+check_tls_state(false, TLSConfig, <<"starttls">>, Deflator, Socket, Tag) -> start_client_tls(TLSConfig, Deflator, Socket, Tag);
+check_tls_state(_TLS, _TLSConfig, _Buffer, _Deflator, _Socket, _Tag) -> nochange.
+
+start_client_tls(TLSConfig, Deflator, Socket, Tag) ->
+    Response = <<Tag/binary, " OK Begin TLS negotiation now\r\n">>,
+    relay_response(Socket, postprocess_server_data(Deflator, Response), false),
+    inet:setopts(Socket, [{ active, false }]), %% must be set to active false, otherwise can fail depending on timing
+    { ok, SSLSocket } = ssl:ssl_accept(Socket, TLSConfig),
+    { socket_upgraded, SSLSocket }.
+
+check_compress_request(undefined, <<"COMPRESS">>, Socket, TLS, Tag) -> start_client_compression(Socket, TLS, Tag);
+check_compress_request(undefined, <<"compress">>, Socket, TLS, Tag) -> start_client_compression(Socket, TLS, Tag);
+check_compress_request(_Deflator, _Command, _Socket, _TLS, _Tag) -> nochange.
+
+start_client_compression(Socket, TLS, Tag) ->
+    Response = <<Tag/binary, " OK DEFLATE active\r\n">>,
+    relay_response(Socket, postprocess_server_data(undefined, Response), TLS),
+    %% create an inflate/deflate pair for use with the client
+    Inflator = zlib:open(),
+    ok = zlib:inflateInit(Inflator, -15),
+    Deflator = zlib:open(),
+    ok = zlib:deflateInit(Deflator, 1, deflated, -15, 8, default),
+    { compression, Inflator, Deflator }.
+
+
+-spec correct_hello(TLSActive :: true | false, ImplicitTLS :: true | false, TlSConfig :: [] | list(), ServerHello :: binary()) -> CorrectedHello :: binary().
+correct_hello(true, true, _TLSConfig, ServerResponse) ->
+    % the connection is already secured, so don't advertise starttls to the client
+    ensure_hello_does_not_have_starttls(ServerResponse);
+correct_hello(true, _ImplicitTLS, _TLSConfig, ServerResponse) ->
+    % the connection is already secured, so don't advertise starttls to the client
+    ensure_hello_does_not_have_starttls(ServerResponse);
+correct_hello(_TLSActive, _ImplicitTLS, [], ServerResponse) ->
+    % guam does not have a TLS config and so can not provide TLS to the client
+    ensure_hello_does_not_have_starttls(ServerResponse);
+correct_hello(_TLSActive, _ImplicitTLS, _TLSConfig, ServerResponse) ->
+    % guam has a TLS config, and it is not currently active, so make sure to include
+    % STARTTLS in our response regardless of what the backend says
+    ensure_hello_has_starttls(ServerResponse).
+
+ensure_hello_has_starttls(ServerResponse) ->
+    ServerHello = proplists:get_value(capabilities, ServerResponse, <<>>),
+    case binary:match(ServerHello, <<"STARTTLS">>) of
+        nomatch -> add_starttls_to_capabilities(ServerHello);
+        _ -> ServerHello
+    end.
+
+add_starttls_to_capabilities(ServerHello) ->
+    case binary:match(ServerHello, <<"CAPABILITY ">>) of
+        nomatch -> add_starttls_after_imap4_atom(ServerHello);
+        { Start, End } ->
+            Prefix = binary:part(ServerHello, 0, Start + End),
+            Suffix = binary:part(ServerHello, Start + End, size(ServerHello) - Start - End),
+            CorrectHello = <<Prefix/binary, "STARTTLS ", Suffix/binary>>,
+            remove_auth_offers(CorrectHello)
+    end.
+
+add_starttls_after_imap4_atom(ServerHello) ->
+    case binary:match(ServerHello, <<"IMAP4rev1 ">>) of
+        nomatch -> <<"STARTTLS ", ServerHello/binary>>;
+        { Start, End } ->
+            Prefix = binary:part(ServerHello, 0, Start + End),
+            Suffix = binary:part(ServerHello, Start + End, size(ServerHello) - Start - End),
+            CorrectHello = <<Prefix/binary, "STARTTLS ", Suffix/binary>>,
+            remove_auth_offers(CorrectHello)
+    end.
+
+ensure_hello_does_not_have_starttls(ServerResponse) ->
+    ServerHello = proplists:get_value(capabilities, ServerResponse, <<>>),
+    case binary:match(ServerHello, <<"STARTTLS">>) of
+        nomatch -> ServerHello;
+        { Start, End } ->
+            Prefix = binary:part(ServerHello, 0, Start),
+            Suffix = binary:part(ServerHello, Start + End, size(ServerHello) - Start - End),
+            <<Prefix/binary, Suffix/binary>>
+    end.
+
+remove_auth_offers(ServerHello) ->
+    case binary:match(ServerHello, <<"AUTH=">>) of
+        nomatch -> ensure_advertise_login_disabled(ServerHello);
+        { Start, _End } ->
+            Prefix = binary:part(ServerHello, 0, Start),
+            Suffix =
+            case binary:match(ServerHello, <<" ">>, [{ scope, { Start, size(ServerHello) - Start } }]) of
+                nomatch ->
+                    %% end of the line, so no suffix
+                    <<>>;
+                { SpaceStart, SpaceEnd } ->
+                    binary:part(ServerHello, SpaceStart + SpaceEnd, size(ServerHello) - SpaceStart - SpaceEnd)
+            end,
+            remove_auth_offers(<<Prefix/binary, Suffix/binary>>)
+    end.
+
+ensure_advertise_login_disabled(ServerHello) ->
+    case binary:match(ServerHello, <<"LOGINDISABLED">>) of
+        nomatch -> <<ServerHello/binary, " LOGINDISABLED">>;
+        _ -> ServerHello
+    end.
+

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/src/kolab_guam_session.hrl Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/src/kolab_guam_sup.erl Added

@@ -0,0 +1,54 @@
+%% 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 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 General Public License for more details.
+%%
+%% You should have received a copy of the GNU General Public License
+%% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+-module(kolab_guam_sup).
+
+-behaviour(supervisor).
+
+%% API
+-export([start_link/0, default_imap_server_config/0, imap_server_config/1]).
+
+%% Supervisor callbacks
+-export([init/1]).
+
+%% ===================================================================
+%% API functions
+%% ===================================================================
+
+start_link() ->
+    supervisor:start_link({local, ?MODULE}, ?MODULE, []).
+
+default_imap_server_config() -> imap_server_config(default).
+
+imap_server_config(DefinitionName) when is_atom(DefinitionName) ->
+    ServerDefinitions = application:get_env(kolab_guam, imap_servers, []),
+    proplists:get_value(DefinitionName, ServerDefinitions, []).
+
+%% ===================================================================
+%% Supervisor callbacks
+%% ===================================================================
+
+init([]) ->
+    lager:debug("Creating listeners ..."),
+    ListenersConfig = application:get_env(kolab_guam, listeners, []),
+    Children = [ create_child(Name, ListenerConfig) || { Name, ListenerConfig } <- ListenersConfig ],
+    lager:debug("We have ~p~n", [Children]),
+    { ok, { { one_for_one, 5, 10}, Children } }.
+
+create_child(Name, ListenerConfig) ->
+    lager:debug("Making listener \"~p\" with ~p", [Name, ListenerConfig]),
+    { Name, { kolab_guam_listener, start_link, [Name, ListenerConfig] }, permanent, 5000, supervisor, [Name] }.

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/src/rules Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/src/rules/kolab_guam_rule_audit.erl Added

@@ -0,0 +1,109 @@
+%% Copyright 2021 Apheleia IT AG (http://www.apheleia.ch)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%% Christian Mollekopf (Apheleia IT) <mollekopf a apheleia.ch>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU 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 General Public License for more details.
+%%
+%% You should have received a copy of the GNU General Public License
+%% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+-module(kolab_guam_rule_audit).
+-export([new/1, applies/4, imap_data/3, apply_to_client_message/4, apply_to_server_message/3]).
+-behavior(kolab_guam_rule).
+
+-include("kolab_guam_rule_audit.hrl").
+
+new(_Config) -> #state { }.
+
+peername({sslsocket, _, _} = Socket) -> ssl:peername(Socket);
+peername(Socket) -> inet:peername(Socket).
+
+applies(Socket, _Buffer, { _Tag, _Command, _Data }, State) ->
+    {ok, {Ip, _Port}} = peername(Socket),
+    % This command is always immediately active as we expect the LOGIN command at the beginning
+    { true, State#state{ ip = Ip }}.
+
+
+% Unused
+imap_data(_ResponseToken, _Response, State) -> State.
+
+
+apply_to_client_message(_ImapSession, Buffer, undefined, State) ->
+    { Buffer, State };
+
+% We just buffer the entire command once activated
+apply_to_client_message(_ImapSession, Buffer, { _Tag, _Command, _Data }, #state{ buffer = LeftOvers, active = true } = State) ->
+    { Buffer, State#state{ buffer = <<LeftOvers/binary, Buffer/binary>> }};
+
+% Monitor for the trigger command, otherwise do nothing
+apply_to_client_message(ImapSession, Buffer, { Tag, Command, Data }, State) ->
+    case is_triggering_command(Command, Data, State) of
+        true -> apply_to_client_message(ImapSession, Buffer, { Tag, Command, Data }, State#state{ active = true, tag = Tag, command = Command });
+        _ -> { Buffer, State }
+    end.
+
+
+apply_to_server_message(_ImapSession, Buffer, #state{ active = true, tag = Tag, ip = Ip, buffer = FullBuffer, command = Command } = State) ->
+    NewState = case eimap_utils:is_tagged_response(Buffer, Tag) of
+        tagged ->
+            Username = extract_username(FullBuffer, Command),
+            case eimap_utils:check_response_for_failure(Buffer, Tag) of
+                ok ->
+                    lager:info("login: ~s from ~s, OK", [Username, inet:ntoa(Ip)]),
+                    State#state{ active = false, username = Username };
+                { no, Reason } ->
+                    lager:info("badlogin: ~s from ~s, NO: ~s", [Username, inet:ntoa(Ip), Reason]),
+                    State#state{ active = false, username = Username };
+                { bad, Reason } ->
+                    lager:info("badlogin: ~s from ~s, BAD: ~s", [Username, inet:ntoa(Ip), Reason]),
+                    State#state{ active = false, username = Username }
+            end;
+        untagged -> State
+    end,
+    { Buffer, NewState };
+
+% Do nothing if not active
+apply_to_server_message(_ImapSession, Buffer, State) ->
+    { Buffer, State }.
+
+%%PRIVATE
+is_triggering_command(Command, Data, #state{ trigger_commands = TriggerCommands }) ->
+    %% if the command is in the list of trigger commands and the ending is not "" (which means "send me
+    %% the root and separator" according to RFC 3501), then it is treated as a triggering event
+    lists:any(fun(T) -> (Command =:= T) andalso (binary:longest_common_suffix([Data, <<"\"\"">>]) =/= 2) end,
+              TriggerCommands).
+
+
+extract_username(FullBuffer, Command) ->
+    case Command of
+        Command when Command =:= <<"AUTHENTICATE">>; Command =:= <<"authenticate">> ->
+            Lines = binary:split(FullBuffer, <<"\r\n">>, [ global ]),
+            FirstLine = lists:nth(1, Lines),
+            FirstLineParts = binary:split(FirstLine, <<" ">>, [ global ]),
+            AuthenticateMethod = lists:last(FirstLineParts),
+            case AuthenticateMethod of
+                <<"PLAIN">> ->
+                    Decoded = base64:decode(lists:nth(2, Lines)),
+                    % In the form of \0$username\0$password
+                    Split = binary:split(Decoded, <<0>>, [ global ]),
+                    lists:nth(2, Split);
+                <<"LOGIN">> ->
+                    base64:decode(lists:nth(2, Lines));
+                _ ->
+                    %TODO SASL-IR would go here
+                    lager:info("AUTHENTICATE method not implemented ~p", [AuthenticateMethod]),
+                    <<"Not implemented">>
+            end;
+        <<"LOGIN">> ->
+            List = binary:split(FullBuffer, <<" ">>, [ global ]),
+            lists:nth(3, List)
+    end.

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/src/rules/kolab_guam_rule_audit.hrl Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/src/rules/kolab_guam_rule_filter_groupware.erl Added

@@ -0,0 +1,222 @@
+%% 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 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 General Public License for more details.
+%%
+%% You should have received a copy of the GNU General Public License
+%% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+-module(kolab_guam_rule_filter_groupware).
+-export([new/1, applies/4, imap_data/3, apply_to_client_message/4, apply_to_server_message/3]).
+-behavior(kolab_guam_rule).
+
+-include("kolab_guam_rule_filter_groupware.hrl").
+
+new(_Config) -> #state { blacklist = undefined }.
+
+applies(_ConnectionDetails, _Buffer, { _Tag, Command, Data }, State) ->
+    Applies = apply_if_id_matches(Command, Data, State),
+    %lager:debug("********** Checking ...~n    Command: ~s ~s, Result ~p", [Command, Data, Applies]),
+    { Applies, State }.
+
+apply_to_client_message(_ImapSession, Buffer, undefined, State) ->
+    { Buffer, State };
+
+apply_to_client_message(ImapSession, Buffer, { Tag, Command, Data }, State) ->
+    { Active, StateTag } =
+    case is_triggering_command(Command, Data, State) of
+        true -> fetch_metadata(ImapSession, State), { true, Tag };
+        _ -> { false, <<>> }
+    end,
+    %lager:info("Client sent: ~s ~s ~p", [Command, Data, Active]),
+    { Buffer, State#state{ active = Active, tag = StateTag }}.
+
+apply_to_server_message(_ImapSession, Buffer, #state{ active = true } = State) ->
+    filter_folders(Buffer, State);
+apply_to_server_message(_ImapSession, Buffer, State) -> { Buffer, State }.
+
+imap_data(_ResponseToken, { error, _Reason }, State) -> State;
+imap_data(_ResponseToken, Response, State) ->
+    %TODO: we don't need Foo/Bar if we already have Foo, so filter folders-of-groupwarefolders
+    Blacklist = lists:foldl(fun({ _Folder, [ { _Property, null } ]}, Acc) -> Acc;
+                               ({ _Folder, [ { _Property, <<"mail", _Rest/binary>> } ]}, Acc) -> Acc;
+                               ({ Folder, _ }, Acc) -> [{ Folder, <<Folder/binary, "/">> }|Acc] end,
+                            [], Response),
+    State#state{ blacklist = Blacklist }.
+
+%%PRIVATE
+is_triggering_command(Command, Data, #state{ trigger_commands = TriggerCommands }) ->
+    %% if the command is in the list of trigger commands and the ending is not "" (which means "send me
+    %% the root and separator" according to RFC 3501), then it is treated as a triggering event
+    lists:any(fun(T) -> (Command =:= T) andalso (binary:longest_common_suffix([Data, <<"\"\"">>]) =/= 2) end,
+              TriggerCommands).
+
+
+fetch_metadata(none, #state{ blacklist = undefined }) -> ok;
+fetch_metadata(ImapSession, #state{ blacklist = undefined }) ->
+    eimap:get_folder_metadata(ImapSession, self(), { rule_data, ?MODULE, blacklist }, "*", ["/shared/vendor/kolab/folder-type"]);
+fetch_metadata(_ImapSession, _State) -> ok.
+
+apply_if_id_matches(<<"ID">>, Data, _State) ->
+    apply_if_found_kolab(string:str(string:to_lower(binary_to_list(Data)), "/kolab"));
+apply_if_id_matches(Command, Data, State) ->
+    case is_triggering_command(Command, Data, State) of
+        true -> true;
+        _ -> notyet
+    end.
+
+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 } }.
+
+filter_folders(_State, [], Return) -> Return;
+filter_folders(_State, _Folders, { Acc, false }) -> { Acc, false };
+filter_folders(State, [Unfiltered|Folders], { Acc, _More }) -> filter_folders(State, Folders, filter_folder(State, Unfiltered, Acc)).
+
+filter_folder(_State, <<>>, Acc) -> { Acc, true };
+filter_folder(State, <<"* LIST ", Details/binary>> = Response, Acc) -> { filter_on_details(State, Response, Acc, Details), true };
+filter_folder(State, <<"* XLIST ", Details/binary>> = Response, Acc) -> { filter_on_details(State, Response, Acc, Details), true };
+filter_folder(State, <<"* LSUB ", Details/binary>> = Response, Acc) -> { filter_on_details(State, Response, Acc, Details), true };
+filter_folder(State, <<"* STATUS ", Details/binary>> = Response, Acc) -> { filter_on_details(State, Response, Acc, Details), true };
+filter_folder(#state{ tag = Tag }, Response, Acc) ->
+    HasMore =
+    case byte_size(Tag) =< byte_size(Response) of
+        true ->
+            case binary:match(Response, Tag, [{ scope, { 0, byte_size(Tag) } }]) of
+                nomatch -> true;
+                _ -> false % we have found our closing tag!
+            end;
+        false -> true
+    end,
+    { add_response(Response, Acc), HasMore }.
+
+filter_on_details(#state{ blacklist = Blacklist }, Response, Acc, Details) ->
+    %% Remove "*" and extract response command name
+    { _, Start, _ } = pop_token(Response), %% asterisk
+    { Cmd, _, _ } = pop_token(Start), %% command
+
+    %% Extract folder name
+    Suffix =
+    case Cmd =:= <<"STATUS">> of
+        true -> Details;
+        _ ->
+            { Pos, _Length } = binary:match(Details, [<<")">>], []),
+            { _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">>])),
+
+    %% Check the folder in blacklist
+    %% io:format("COMPARING ~p ??? ~p~n", [Folder, in_blacklist(Folder, Blacklist)]),
+    case in_blacklist(Folder, Blacklist) of
+        true -> Acc;
+        _ -> add_response(Response, Acc)
+    end.
+
+add_response(Response, <<>>) -> Response;
+add_response(Response, Acc) -> <<Acc/binary, "\r\n", Response/binary>>.
+
+in_blacklist(_Folder, undefined) -> false;
+in_blacklist(_Folder, []) -> false;
+in_blacklist(Folder, [{ Literal, Prefix }|List]) ->
+    case Literal =:= Folder of
+        true -> true;
+        _ -> case binary:match(Folder, Prefix) of
+                 { 0, _ } -> true;
+                 _ -> in_blacklist(Folder, List)
+             end
+    end.
+
+%% pop_token from https://github.com/MainframeHQ/switchboard/blob/master/src/imap.erl (BSD Lic.)
+%% with some small changes by Aleksander Machniak <machniak@kolabsys.com>
+pop_token(Data) ->
+    pop_token(Data, none).
+
+pop_token(<<>>, State) ->
+    {none, <<>>, State};
+
+%% Consume hanging spaces
+pop_token(<<" ", Rest/binary>>, none) ->
+    pop_token(Rest, none);
+
+%% \r\n
+pop_token(<<$\r, $\n, Rest/binary>>, none) ->
+    {crlf, Rest, none};
+
+%% NIL
+pop_token(<<"NIL", Rest/binary>>, none) ->
+    {nil, Rest, none};
+
+%% ( | ) | [ | ]
+pop_token(<<$(, Rest/binary>>, none) ->
+    {'(', Rest, none};
+pop_token(<<$), Rest/binary>>, none) ->
+    {')', Rest, none};
+
+
+%% Atom
+pop_token(<<C, _/binary>> = Data, {atom, AtomAcc}) when
+  C =:= 32; C =:= 40; C =:= 41; C =:= $(; C =:= $) ->
+    {AtomAcc, Data, none};
+pop_token(<<$\r, $\n, _/binary>> = Data, {atom, AtomAcc}) ->
+    {AtomAcc, Data, none};
+pop_token(<<C, Rest/binary>>, none) when C >= 35, C < 123 ->
+    pop_token(Rest, {atom, <<C>>});
+pop_token(<<C, Rest/binary>>, {atom, AtomAcc}) when C >= 35, C < 123 ->
+    pop_token(Rest, {atom, <<AtomAcc/binary, C>>});
+
+%% Literal Strings
+pop_token(<<${, Rest/binary>>, none) ->
+    pop_token(Rest, {literal, <<>>});
+pop_token(<<$}, $\r, $\n, Rest/binary>>, {literal, ByteAcc}) ->
+    pop_token(Rest, {literal, binary_to_integer(ByteAcc), <<>>});
+pop_token(<<D, Rest/binary>>, {literal, ByteAcc}) when D >= 48, D < 58 ->
+    pop_token(Rest, {literal, <<ByteAcc/binary, D>>});
+pop_token(Binary, {literal, Bytes, LiteralAcc}) when is_integer(Bytes) ->
+    case Binary of
+        <<Literal:Bytes/binary, Rest/binary>> ->
+            {<<LiteralAcc/binary, Literal/binary>>, Rest, none};
+        _ ->
+            %% If the binary is too short, accumulate it in the state
+            pop_token(<<>>, {literal, Bytes - size(Binary), <<LiteralAcc/binary, Binary/binary>>})
+    end;
+
+%% Quoted Strings
+pop_token(<<$", Rest/binary>>, none) ->
+    pop_token(Rest, {quoted, <<>>});
+pop_token(<<$\\, C, Rest/binary>>, {quoted, Acc}) ->
+    pop_token(Rest, {quoted, <<Acc/binary, C>>});
+pop_token(<<$", Rest/binary>>, {quoted, Acc}) ->
+    {Acc, Rest, none};
+pop_token(<<$\r, $\n, _>>, {quoted, _}) ->
+    throw({error, crlf_in_quoted});
+pop_token(<<C, Rest/binary>>, {quoted, Acc}) ->
+    pop_token(Rest, {quoted, <<Acc/binary, C>>});
+
+pop_token(Binary, _) ->
+    {none, Binary, none}.

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/kolab_guam-0.9.11/src/rules/kolab_guam_rule_filter_groupware.hrl Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1 Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/error_logger_lager_h.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager.app Added

@@ -0,0 +1,37 @@
+{application,lager,
+             [{description,"Erlang logging framework"},
+              {vsn,"3.8.1"},
+              {modules,[error_logger_lager_h,lager,lager_app,
+                        lager_backend_throttle,lager_common_test_backend,
+                        lager_config,lager_console_backend,lager_crash_log,
+                        lager_default_formatter,lager_file_backend,
+                        lager_format,lager_handler_watcher,
+                        lager_handler_watcher_sup,lager_manager_killer,
+                        lager_msg,lager_rotator_behaviour,
+                        lager_rotator_default,lager_stdlib,lager_sup,
+                        lager_transform,lager_trunc_io,lager_util]},
+              {applications,[kernel,stdlib,goldrush]},
+              {registered,[lager_sup,lager_event,lager_crash_log,
+                           lager_handler_watcher_sup]},
+              {mod,{lager_app,[]}},
+              {env,[{colored,false},
+                    {colors,[{debug,"\e[0;38m"},
+                             {info,"\e[1;37m"},
+                             {notice,"\e[1;36m"},
+                             {warning,"\e[1;33m"},
+                             {error,"\e[1;31m"},
+                             {critical,"\e[1;35m"},
+                             {alert,"\e[1;44m"},
+                             {emergency,"\e[1;41m"}]},
+                    {crash_log,"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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager_app.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager_backend_throttle.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager_common_test_backend.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager_config.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager_console_backend.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager_crash_log.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager_default_formatter.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager_file_backend.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager_format.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager_handler_watcher.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager_handler_watcher_sup.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager_manager_killer.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager_msg.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager_rotator_behaviour.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager_rotator_default.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager_stdlib.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager_sup.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager_transform.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager_trunc_io.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/ebin/lager_util.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/include Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/priv Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/src Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/src/lager.app.src Added

@@ -0,0 +1,29 @@
+{application,lager,
+             [{description,"Erlang logging framework"},
+              {vsn,"3.8.1"},
+              {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,"\e[0;38m"},
+                             {info,"\e[1;37m"},
+                             {notice,"\e[1;36m"},
+                             {warning,"\e[1;33m"},
+                             {error,"\e[1;31m"},
+                             {critical,"\e[1;35m"},
+                             {alert,"\e[1;44m"},
+                             {emergency,"\e[1;41m"}]},
+                    {crash_log,"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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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 <b>only</b> 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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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, "log/error.log"}, {level, error},
+           {size, 10485760}, {date, "$D0"}, {count, 5}]
+         },
+         {lager_file_backend,
+          [{file, "log/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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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}  ->
+            "\e[0m\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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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 < P ->
+                    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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/src/lager_rotator_behaviour.erl Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/src/lager_transform.erl Added

@@ -0,0 +1,339 @@
+%% 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,'_'}]}],
+                  [],
+                  %% trick the linter into avoiding a 'term constructed but not used' error:
+                  %% (fun() -> {error, lager_not_running} end)()
+                  [{call, Line, {'fun', Line, {clauses, [{clause, Line, [],[], [{tuple, 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,'_'}]}],
+                  [],
+                  %% same trick as above to avoid linter error
+                  [{call, Line, {'fun', Line, {clauses, [{clause, Line, [],[], [{tuple,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, Line) ->
+    list_to_atom(Prefix ++ atom_to_list(get(module)) ++ integer_to_list(Line)).
+
+%% 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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/default/rel/guam/lib/lager-3.8.1/src/lager_util.erl Added

@@ -0,0 +1,967 @@
+%% -------------------------------------------------------------------
+%%
+%% 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(RelPath) ->
+    case application:get_env(lager, log_root) of
+        {ok, LogRoot} when is_list(LogRoot) -> % Join relative path
+            %% check if the given RelPath contains LogRoot, if so, do not add
+            %% it again; see gh #304
+            case string:str(filename:dirname(RelPath), LogRoot) of
+                X when X > 0 ->
+                    RelPath;
+                _Zero ->
+                    filename:join(LogRoot, RelPath)
+            end;
+        undefined -> % No log_root given, keep relative path
+            RelPath
+    end.
+
+%% 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 = filename:absname(File1),
+    File2Abs = filename:absname(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("/foo/bar", expand_path("/foo/bar")),
+    ?assertEqual("foo/bar", expand_path("foo/bar")),
+
+    ok = application:set_env(lager, log_root, "log/dir"),
+    ?assertEqual("/foo/bar", expand_path("/foo/bar")), % Absolute path should not be changed
+    ?assertEqual("log/dir/foo/bar", expand_path("foo/bar")),
+    ?assertEqual("log/dir/foo/bar", expand_path("log/dir/foo/bar")), %% gh #304
+
+    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.11.tar.gz/_build/default/rel/guam/lib/lager_syslog-3.0.1 Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager_syslog-3.0.1/ebin Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager_syslog-3.0.1/ebin/lager_syslog.app Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager_syslog-3.0.1/ebin/lager_syslog_backend.beam Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager_syslog-3.0.1/src Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager_syslog-3.0.1/src/lager_syslog.app.src Added

guam-0.9.11.tar.gz/_build/default/rel/guam/lib/lager_syslog-3.0.1/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.11.tar.gz/_build/default/rel/guam/log Added

guam-0.9.11.tar.gz/_build/default/rel/guam/log/sasl Added

guam-0.9.11.tar.gz/_build/default/rel/guam/releases Added

guam-0.9.11.tar.gz/_build/default/rel/guam/releases/0.9.11 Added

guam-0.9.11.tar.gz/_build/default/rel/guam/releases/0.9.11/guam.boot Added

guam-0.9.11.tar.gz/_build/default/rel/guam/releases/0.9.11/guam.rel Added

guam-0.9.11.tar.gz/_build/default/rel/guam/releases/0.9.11/guam.script Added

@@ -0,0 +1,478 @@
+%% coding: utf-8
+%% script generated at {2021,8,10} {12,50,59}
+{script,
+    {"guam","0.9.11"},
+    [{preLoaded,
+         [atomics,counters,erl_init,erl_prim_loader,erl_tracer,erlang,
+          erts_code_purger,erts_dirty_process_signal_handler,erts_internal,
+          erts_literal_area_collector,init,persistent_term,prim_buffer,
+          prim_eval,prim_file,prim_inet,prim_net,prim_socket,prim_zip,
+          socket_registry,zlib]},
+     {progress,preloaded},
+     {path,
+         ["$ERTS_LIB_DIR/kernel-7.3.1.2/ebin",
+          "$ERTS_LIB_DIR/stdlib-3.14.2.1/ebin"]},
+     {primLoad,
+         [error_handler,application,application_controller,application_master,
+          code,code_server,erl_eval,erl_lint,erl_parse,error_logger,ets,file,
+          filename,file_server,file_io_server,gen,gen_event,gen_server,heart,
+          kernel,logger,logger_filters,logger_server,logger_backend,
+          logger_config,logger_simple_h,lists,proc_lib,supervisor]},
+     {kernel_load_completed},
+     {progress,kernel_load_completed},
+     {path,["$ERTS_LIB_DIR/kernel-7.3.1.2/ebin"]},
+     {primLoad,
+         [application_starter,auth,disk_log,disk_log_1,disk_log_server,
+          disk_log_sup,dist_ac,dist_util,erl_boot_server,erl_compile_server,
+          erl_ddll,erl_distribution,erl_epmd,erl_reply,erl_signal_handler,
+          erpc,erts_debug,gen_sctp,gen_tcp,gen_tcp_socket,gen_udp,global,
+          global_group,global_search,group,group_history,hipe_unified_loader,
+          inet,inet6_sctp,inet6_tcp,inet6_tcp_dist,inet6_udp,inet_config,
+          inet_db,inet_dns,inet_gethost_native,inet_hosts,inet_parse,inet_res,
+          inet_sctp,inet_tcp,inet_tcp_dist,inet_udp,kernel_config,kernel_refc,
+          local_tcp,local_udp,logger_disk_log_h,logger_formatter,
+          logger_h_common,logger_handler_watcher,logger_olp,logger_proxy,
+          logger_std_h,logger_sup,net,net_adm,net_kernel,os,pg,pg2,ram_file,
+          raw_file_io,raw_file_io_compressed,raw_file_io_deflate,
+          raw_file_io_delayed,raw_file_io_inflate,raw_file_io_list,
+          raw_file_io_raw,rpc,seq_trace,socket,standard_error,user,user_drv,
+          user_sup,wrap_log_reader]},
+     {path,["$ERTS_LIB_DIR/stdlib-3.14.2.1/ebin"]},
+     {primLoad,
+         [array,base64,beam_lib,binary,c,calendar,dets,dets_server,dets_sup,
+          dets_utils,dets_v9,dict,digraph,digraph_utils,edlin,edlin_expand,
+          epp,erl_abstract_code,erl_anno,erl_bits,erl_compile,erl_error,
+          erl_expand_records,erl_internal,erl_posix_msg,erl_pp,erl_scan,
+          erl_tar,error_logger_file_h,error_logger_tty_h,escript,eval_bits,
+          file_sorter,filelib,gb_sets,gb_trees,gen_fsm,gen_statem,io,io_lib,
+          io_lib_format,io_lib_fread,io_lib_pretty,log_mf_h,maps,math,
+          ms_transform,orddict,ordsets,otp_internal,pool,proplists,qlc,qlc_pt,
+          queue,rand,random,re,sets,shell,shell_default,shell_docs,slave,sofs,
+          string,supervisor_bridge,sys,timer,unicode,unicode_util,uri_string,
+          win32reg,zip]},
+     {path,["$ERTS_LIB_DIR/compiler-7.6.9.1/ebin"]},
+     {primLoad,
+         [beam_a,beam_asm,beam_block,beam_call_types,beam_clean,beam_dict,
+          beam_digraph,beam_disasm,beam_flatten,beam_jump,beam_kernel_to_ssa,
+          beam_listing,beam_opcodes,beam_peep,beam_ssa,beam_ssa_bool,
+          beam_ssa_bsm,beam_ssa_codegen,beam_ssa_dead,beam_ssa_funs,
+          beam_ssa_lint,beam_ssa_opt,beam_ssa_pp,beam_ssa_pre_codegen,
+          beam_ssa_recv,beam_ssa_share,beam_ssa_type,beam_trim,beam_types,
+          beam_utils,beam_validator,beam_z,cerl,cerl_clauses,cerl_inline,
+          cerl_sets,cerl_trees,compile,core_lib,core_lint,core_parse,core_pp,
+          core_scan,erl_bifs,rec_env,sys_core_alias,sys_core_bsm,
+          sys_core_fold,sys_core_fold_lists,sys_core_inline,sys_core_prepare,
+          sys_pre_attributes,v3_core,v3_kernel,v3_kernel_pp]},
+     {path,["$ERTS_LIB_DIR/syntax_tools-2.5/ebin"]},
+     {primLoad,
+         [epp_dodger,erl_comment_scan,erl_prettypr,erl_recomment,erl_syntax,
+          erl_syntax_lib,erl_tidy,igor,merl,merl_transform,prettypr]},
+     {path,["$ROOT/lib/goldrush-0.1.9/ebin"]},
+     {primLoad,
+         [glc,glc_code,glc_lib,glc_ops,glc_run,gr_app,gr_context,gr_counter,
+          gr_counter_sup,gr_manager,gr_manager_sup,gr_param,gr_param_sup,
+          gr_sup,gre]},
+     {path,["$ERTS_LIB_DIR/crypto-4.9.0.2/ebin"]},
+     {primLoad,[crypto,crypto_ec_curves]},
+     {path,["$ERTS_LIB_DIR/asn1-5.0.15/ebin"]},
+     {primLoad,[asn1rt_nif]},
+     {path,["$ERTS_LIB_DIR/public_key-1.10/ebin"]},
+     {primLoad,
+         ['OTP-PUB-KEY','PKCS-FRAME',pubkey_cert,pubkey_cert_records,
+          pubkey_crl,pubkey_ocsp,pubkey_pbe,pubkey_pem,pubkey_ssh,public_key]},
+     {path,["$ERTS_LIB_DIR/ssl-10.3.1.1/ebin"]},
+     {primLoad,
+         [dtls_connection,dtls_connection_sup,dtls_gen_connection,
+          dtls_handshake,dtls_listener_sup,dtls_packet_demux,dtls_record,
+          dtls_server_session_cache_sup,dtls_server_sup,dtls_socket,dtls_sup,
+          dtls_v1,inet6_tls_dist,inet_tls_dist,ssl,ssl_admin_sup,ssl_alert,
+          ssl_app,ssl_certificate,ssl_cipher,ssl_cipher_format,
+          ssl_client_session_cache_db,ssl_config,ssl_connection_sup,ssl_crl,
+          ssl_crl_cache,ssl_crl_cache_api,ssl_crl_hash_dir,ssl_dh_groups,
+          ssl_dist_admin_sup,ssl_dist_connection_sup,ssl_dist_sup,
+          ssl_gen_statem,ssl_handshake,ssl_listen_tracker_sup,ssl_logger,
+          ssl_manager,ssl_pem_cache,ssl_pkix_db,ssl_record,
+          ssl_server_session_cache,ssl_server_session_cache_db,
+          ssl_server_session_cache_sup,ssl_session,ssl_session_cache_api,
+          ssl_srp_primes,ssl_sup,ssl_upgrade_server_session_cache_sup,
+          tls_bloom_filter,tls_client_ticket_store,tls_connection,
+          tls_connection_1_3,tls_connection_sup,tls_dist_server_sup,
+          tls_dist_sup,tls_dtls_connection,tls_gen_connection,tls_handshake,
+          tls_handshake_1_3,tls_record,tls_record_1_3,tls_sender,
+          tls_server_session_ticket,tls_server_session_ticket_sup,
+          tls_server_sup,tls_socket,tls_sup,tls_v1]},
+     {path,["$ROOT/lib/lager-3.8.1/ebin"]},
+     {primLoad,
+         [error_logger_lager_h,lager,lager_app,lager_backend_throttle,
+          lager_common_test_backend,lager_config,lager_console_backend,
+          lager_crash_log,lager_default_formatter,lager_file_backend,
+          lager_format,lager_handler_watcher,lager_handler_watcher_sup,
+          lager_manager_killer,lager_msg,lager_rotator_behaviour,
+          lager_rotator_default,lager_stdlib,lager_sup,lager_transform,
+          lager_trunc_io,lager_util]},
+     {path,["$ROOT/lib/eimap-0.4.4/ebin"]},
+     {primLoad,
+         [eimap,eimap_command,eimap_command_annotation,
+          eimap_command_capability,eimap_command_compress,
+          eimap_command_getmetadata,eimap_command_login,eimap_command_logout,
+          eimap_command_namespace,eimap_command_noop,
+          eimap_command_peek_message,eimap_command_starttls,
+          eimap_command_status,eimap_command_switch_folder,eimap_uidset,
+          eimap_utils]},
+     {path,["$ROOT/lib/lager_syslog-3.0.1/ebin"]},
+     {primLoad,[lager_syslog_backend]},
+     {path,["$ROOT/lib/kolab_guam-0.9.11/ebin"]},
+     {primLoad,
+         [kolab_guam,kolab_guam_listener,kolab_guam_rule,
+          kolab_guam_rule_audit,kolab_guam_rule_filter_groupware,
+          kolab_guam_session,kolab_guam_sup]},
+     {progress,modules_loaded},
+     {path,
+         ["$ERTS_LIB_DIR/kernel-7.3.1.2/ebin",
+          "$ERTS_LIB_DIR/stdlib-3.14.2.1/ebin",
+          "$ERTS_LIB_DIR/compiler-7.6.9.1/ebin",
+          "$ERTS_LIB_DIR/syntax_tools-2.5/ebin",
+          "$ROOT/lib/goldrush-0.1.9/ebin","$ERTS_LIB_DIR/crypto-4.9.0.2/ebin",
+          "$ERTS_LIB_DIR/asn1-5.0.15/ebin",
+          "$ERTS_LIB_DIR/public_key-1.10/ebin",
+          "$ERTS_LIB_DIR/ssl-10.3.1.1/ebin","$ROOT/lib/lager-3.8.1/ebin",
+          "$ROOT/lib/eimap-0.4.4/ebin","$ROOT/lib/lager_syslog-3.0.1/ebin",
+          "$ROOT/lib/kolab_guam-0.9.11/ebin"]},
+     {kernelProcess,heart,{heart,start,[]}},
+     {kernelProcess,logger,{logger_server,start_link,[]}},
+     {kernelProcess,application_controller,
+         {application_controller,start,
+             [{application,kernel,
+                  [{description,"ERTS  CXC 138 10"},
+                   {vsn,"7.3.1.2"},
+                   {id,[]},
+                   {modules,
+                       [application,application_controller,application_master,
+                        application_starter,auth,code,code_server,dist_util,
+                        erl_boot_server,erl_compile_server,erl_distribution,
+                        erl_reply,erl_signal_handler,erpc,error_handler,
+                        error_logger,file,file_server,file_io_server,global,
+                        global_group,global_search,group,group_history,heart,
+                        hipe_unified_loader,inet6_tcp,inet6_tcp_dist,
+                        inet6_udp,inet6_sctp,inet_config,inet_hosts,
+                        inet_gethost_native,inet_tcp_dist,kernel,
+                        kernel_config,kernel_refc,local_tcp,local_udp,logger,
+                        logger_backend,logger_config,logger_disk_log_h,
+                        logger_filters,logger_formatter,logger_h_common,
+                        logger_handler_watcher,logger_olp,logger_proxy,
+                        logger_server,logger_simple_h,logger_std_h,logger_sup,
+                        net,net_adm,net_kernel,os,ram_file,rpc,user,user_drv,
+                        user_sup,disk_log,disk_log_1,disk_log_server,
+                        disk_log_sup,dist_ac,erl_ddll,erl_epmd,erts_debug,
+                        gen_tcp,gen_udp,gen_sctp,gen_tcp_socket,inet,inet_db,
+                        inet_dns,inet_parse,inet_res,inet_tcp,inet_udp,
+                        inet_sctp,pg,pg2,raw_file_io,raw_file_io_compressed,
+                        raw_file_io_deflate,raw_file_io_delayed,
+                        raw_file_io_inflate,raw_file_io_list,raw_file_io_raw,
+                        seq_trace,socket,standard_error,wrap_log_reader]},
+                   {registered,
+                       [application_controller,erl_reply,auth,boot_server,
+                        code_server,disk_log_server,disk_log_sup,
+                        erl_prim_loader,error_logger,file_server_2,
+                        fixtable_server,global_group,global_name_server,heart,
+                        init,kernel_config,kernel_refc,kernel_sup,logger,
+                        logger_handler_watcher,logger_sup,net_kernel,net_sup,
+                        rex,user,os_server,ddll_server,erl_epmd,inet_db,pg,
+                        pg2]},
+                   {applications,[]},
+                   {included_applications,[]},
+                   {env,
+                       [{logger_level,notice},
+                        {logger_sasl_compatible,false},
+                        {shell_docs_ansi,auto}]},
+                   {maxT,infinity},
+                   {maxP,infinity},
+                   {mod,{kernel,[]}}]}]}},
+     {progress,init_kernel_started},
+     {apply,
+         {application,load,
+             [{application,stdlib,
+                  [{description,"ERTS  CXC 138 10"},
+                   {vsn,"3.14.2.1"},
+                   {id,[]},
+                   {modules,
+                       [array,base64,beam_lib,binary,c,calendar,dets,
+                        dets_server,dets_sup,dets_utils,dets_v9,dict,digraph,
+                        digraph_utils,edlin,edlin_expand,epp,eval_bits,
+                        erl_abstract_code,erl_anno,erl_bits,erl_compile,
+                        erl_error,erl_eval,erl_expand_records,erl_internal,
+                        erl_lint,erl_parse,erl_posix_msg,erl_pp,erl_scan,
+                        erl_tar,error_logger_file_h,error_logger_tty_h,
+                        escript,ets,file_sorter,filelib,filename,gb_trees,
+                        gb_sets,gen,gen_event,gen_fsm,gen_server,gen_statem,
+                        io,io_lib,io_lib_format,io_lib_fread,io_lib_pretty,
+                        lists,log_mf_h,maps,math,ms_transform,orddict,ordsets,
+                        otp_internal,pool,proc_lib,proplists,qlc,qlc_pt,queue,
+                        rand,random,re,sets,shell,shell_default,shell_docs,
+                        slave,sofs,string,supervisor,supervisor_bridge,sys,
+                        timer,unicode,unicode_util,uri_string,win32reg,zip]},
+                   {registered,
+                       [timer_server,rsh_starter,take_over_monitor,
+                        pool_master,dets]},
+                   {applications,[kernel]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {maxT,infinity},
+                   {maxP,infinity}]}]}},
+     {apply,
+         {application,load,
+             [{application,compiler,
+                  [{description,"ERTS  CXC 138 10"},
+                   {vsn,"7.6.9.1"},
+                   {id,[]},
+                   {modules,
+                       [beam_a,beam_asm,beam_block,beam_call_types,beam_clean,
+                        beam_dict,beam_digraph,beam_disasm,beam_flatten,
+                        beam_jump,beam_kernel_to_ssa,beam_listing,
+                        beam_opcodes,beam_peep,beam_ssa,beam_ssa_bool,
+                        beam_ssa_bsm,beam_ssa_codegen,beam_ssa_dead,
+                        beam_ssa_funs,beam_ssa_lint,beam_ssa_opt,beam_ssa_pp,
+                        beam_ssa_pre_codegen,beam_ssa_recv,beam_ssa_share,
+                        beam_ssa_type,beam_trim,beam_types,beam_utils,
+                        beam_validator,beam_z,cerl,cerl_clauses,cerl_inline,
+                        cerl_sets,cerl_trees,compile,core_scan,core_lint,
+                        core_parse,core_pp,core_lib,erl_bifs,rec_env,
+                        sys_core_alias,sys_core_bsm,sys_core_fold,
+                        sys_core_fold_lists,sys_core_inline,sys_core_prepare,
+                        sys_pre_attributes,v3_core,v3_kernel,v3_kernel_pp]},
+                   {registered,[]},
+                   {applications,[kernel,stdlib]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {maxT,infinity},
+                   {maxP,infinity}]}]}},
+     {apply,
+         {application,load,
+             [{application,syntax_tools,
+                  [{description,"Syntax tools"},
+                   {vsn,"2.5"},
+                   {id,[]},
+                   {modules,
+                       [epp_dodger,erl_comment_scan,erl_prettypr,
+                        erl_recomment,erl_syntax,erl_syntax_lib,erl_tidy,igor,
+                        merl,merl_transform,prettypr]},
+                   {registered,[]},
+                   {applications,[stdlib]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {maxT,infinity},
+                   {maxP,infinity}]}]}},
+     {apply,
+         {application,load,
+             [{application,goldrush,
+                  [{description,"Erlang event stream processor"},
+                   {vsn,"0.1.9"},
+                   {id,[]},
+                   {modules,
+                       [glc,glc_code,glc_lib,glc_ops,glc_run,gr_app,
+                        gr_context,gr_counter,gr_counter_sup,gr_manager,
+                        gr_manager_sup,gr_param,gr_param_sup,gr_sup,gre]},
+                   {registered,[]},
+                   {applications,[kernel,stdlib,compiler,syntax_tools]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {maxT,infinity},
+                   {maxP,infinity},
+                   {mod,{gr_app,[]}}]}]}},
+     {apply,
+         {application,load,
+             [{application,crypto,
+                  [{description,"CRYPTO"},
+                   {vsn,"4.9.0.2"},
+                   {id,[]},
+                   {modules,[crypto,crypto_ec_curves]},
+                   {registered,[]},
+                   {applications,[kernel,stdlib]},
+                   {included_applications,[]},
+                   {env,[{fips_mode,false},{rand_cache_size,896}]},
+                   {maxT,infinity},
+                   {maxP,infinity}]}]}},
+     {apply,
+         {application,load,
+             [{application,asn1,
+                  [{description,"The Erlang ASN1 compiler version 5.0.15"},
+                   {vsn,"5.0.15"},
+                   {id,[]},
+                   {modules,[asn1rt_nif]},
+                   {registered,[asn1_ns,asn1db]},
+                   {applications,[kernel,stdlib]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {maxT,infinity},
+                   {maxP,infinity}]}]}},
+     {apply,
+         {application,load,
+             [{application,public_key,
+                  [{description,"Public key infrastructure"},
+                   {vsn,"1.10"},
+                   {id,[]},
+                   {modules,
+                       [public_key,pubkey_pem,pubkey_pbe,pubkey_ssh,
+                        pubkey_cert,pubkey_cert_records,pubkey_crl,
+                        pubkey_ocsp,'OTP-PUB-KEY','PKCS-FRAME']},
+                   {registered,[]},
+                   {applications,[kernel,stdlib,crypto,asn1]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {maxT,infinity},
+                   {maxP,infinity}]}]}},
+     {apply,
+         {application,load,
+             [{application,ssl,
+                  [{description,"Erlang/OTP SSL application"},
+                   {vsn,"10.3.1.1"},
+                   {id,[]},
+                   {modules,
+                       [tls_connection,tls_connection_1_3,tls_handshake,
+                        tls_handshake_1_3,tls_record,tls_record_1_3,
+                        tls_socket,tls_v1,tls_connection_sup,
+                        tls_gen_connection,tls_sender,tls_server_sup,
+                        tls_server_session_ticket_sup,
+                        tls_server_session_ticket,tls_sup,ssl_dh_groups,
+                        dtls_connection,dtls_handshake,dtls_record,
+                        dtls_socket,dtls_v1,dtls_connection_sup,
+                        dtls_gen_connection,dtls_packet_demux,
+                        dtls_listener_sup,dtls_sup,dtls_server_sup,
+                        dtls_server_session_cache_sup,ssl,
+                        ssl_session_cache_api,tls_dtls_connection,ssl_config,
+                        ssl_gen_statem,ssl_handshake,ssl_record,ssl_cipher,
+                        ssl_cipher_format,ssl_srp_primes,ssl_alert,
+                        ssl_listen_tracker_sup,tls_bloom_filter,
+                        tls_client_ticket_store,inet_tls_dist,inet6_tls_dist,
+                        ssl_dist_sup,ssl_dist_connection_sup,
+                        ssl_dist_admin_sup,tls_dist_sup,tls_dist_server_sup,
+                        ssl_session,ssl_client_session_cache_db,
+                        ssl_server_session_cache,ssl_server_session_cache_db,
+                        ssl_server_session_cache_sup,
+                        ssl_upgrade_server_session_cache_sup,ssl_manager,
+                        ssl_pem_cache,ssl_pkix_db,ssl_certificate,ssl_crl,
+                        ssl_crl_cache,ssl_crl_cache_api,ssl_crl_hash_dir,
+                        ssl_logger,ssl_app,ssl_sup,ssl_admin_sup,
+                        ssl_connection_sup]},
+                   {registered,[ssl_sup,ssl_manager]},
+                   {applications,[kernel,stdlib,crypto,public_key]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {maxT,infinity},
+                   {maxP,infinity},
+                   {mod,{ssl_app,[]}}]}]}},
+     {apply,
+         {application,load,
+             [{application,lager,
+                  [{description,"Erlang logging framework"},
+                   {vsn,"3.8.1"},
+                   {id,[]},
+                   {modules,
+                       [error_logger_lager_h,lager,lager_app,
+                        lager_backend_throttle,lager_common_test_backend,
+                        lager_config,lager_console_backend,lager_crash_log,
+                        lager_default_formatter,lager_file_backend,
+                        lager_format,lager_handler_watcher,
+                        lager_handler_watcher_sup,lager_manager_killer,
+                        lager_msg,lager_rotator_behaviour,
+                        lager_rotator_default,lager_stdlib,lager_sup,
+                        lager_transform,lager_trunc_io,lager_util]},
+                   {registered,
+                       [lager_sup,lager_event,lager_crash_log,
+                        lager_handler_watcher_sup]},
+                   {applications,[kernel,stdlib,goldrush]},
+                   {included_applications,[]},
+                   {env,
+                       [{colored,false},
+                        {colors,
+                            [{debug,"\e[0;38m"},
+                             {info,"\e[1;37m"},
+                             {notice,"\e[1;36m"},
+                             {warning,"\e[1;33m"},
+                             {error,"\e[1;31m"},
+                             {critical,"\e[1;35m"},
+                             {alert,"\e[1;44m"},
+                             {emergency,"\e[1;41m"}]},
+                        {crash_log,"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}]},
+                   {maxT,infinity},
+                   {maxP,infinity},
+                   {mod,{lager_app,[]}}]}]}},
+     {apply,
+         {application,load,
+             [{application,eimap,
+                  [{description,"IMAP client implementation"},
+                   {vsn,"0.4.4"},
+                   {id,[]},
+                   {modules,
+                       [eimap,eimap_command,eimap_command_annotation,
+                        eimap_command_capability,eimap_command_compress,
+                        eimap_command_getmetadata,eimap_command_login,
+                        eimap_command_logout,eimap_command_namespace,
+                        eimap_command_noop,eimap_command_peek_message,
+                        eimap_command_starttls,eimap_command_status,
+                        eimap_command_switch_folder,eimap_uidset,eimap_utils]},
+                   {registered,[]},
+                   {applications,
+                       [kernel,stdlib,compiler,syntax_tools,crypto,ssl,lager]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {maxT,infinity},
+                   {maxP,infinity}]}]}},
+     {apply,
+         {application,load,
+             [{application,lager_syslog,
+                  [{description,"Syslog backend for Lager"},
+                   {vsn,"3.0.1"},
+                   {id,[]},
+                   {modules,[lager_syslog_backend]},
+                   {registered,[]},
+                   {applications,[kernel,stdlib]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {maxT,infinity},
+                   {maxP,infinity}]}]}},
+     {apply,
+         {application,load,
+             [{application,kolab_guam,
+                  [{description,"IMAP session proxy"},
+                   {vsn,"0.9.11"},
+                   {id,[]},
+                   {modules,
+                       [kolab_guam,kolab_guam_listener,kolab_guam_rule,
+                        kolab_guam_rule_audit,
+                        kolab_guam_rule_filter_groupware,kolab_guam_session,
+                        kolab_guam_sup]},
+                   {registered,[]},
+                   {applications,
+                       [kernel,stdlib,compiler,syntax_tools,goldrush,crypto,
+                        ssl,lager,eimap,lager_syslog]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {maxT,infinity},
+                   {maxP,infinity},
+                   {mod,{kolab_guam,[]}}]}]}},
+     {progress,applications_loaded},
+     {apply,{application,start_boot,[kernel,permanent]}},
+     {apply,{application,start_boot,[stdlib,permanent]}},
+     {apply,{application,start_boot,[compiler,permanent]}},
+     {apply,{application,start_boot,[syntax_tools,permanent]}},
+     {apply,{application,start_boot,[goldrush,permanent]}},
+     {apply,{application,start_boot,[crypto,permanent]}},
+     {apply,{application,start_boot,[asn1,permanent]}},
+     {apply,{application,start_boot,[public_key,permanent]}},
+     {apply,{application,start_boot,[ssl,permanent]}},
+     {apply,{application,start_boot,[lager,permanent]}},
+     {apply,{application,start_boot,[eimap,permanent]}},
+     {apply,{application,start_boot,[lager_syslog,permanent]}},
+     {apply,{application,start_boot,[kolab_guam,permanent]}},
+     {apply,{c,erlangrc,[]}},
+     {progress,started}]}.

guam-0.9.11.tar.gz/_build/default/rel/guam/releases/0.9.11/no_dot_erlang.boot Added

guam-0.9.11.tar.gz/_build/default/rel/guam/releases/0.9.11/start_clean.boot Added

guam-0.9.11.tar.gz/_build/default/rel/guam/releases/0.9.11/sys.config Added

guam-0.9.11.tar.gz/_build/default/rel/guam/releases/0.9.11/vm.args Added

@@ -0,0 +1,30 @@
+## Name of the node
+-sname guam
+
+## Cookie for distributed erlang
+-setcookie guam
+
+## Heartbeat management; auto-restarts VM if it dies or becomes unresponsive
+## (Disabled by default..use with caution!)
+##-heart
+
+## Enable kernel poll and a few async threads
+##+K true
+##+A 5
+
+## Increase number of concurrent ports/sockets
+##-env ERL_MAX_PORTS 4096
+
+## Tweak GC to run more often
+##-env ERL_FULLSWEEP_AFTER 10
+
+# +B [c | d | i]
+# Option c makes Ctrl-C interrupt the current shell instead of invoking the emulator break
+# handler. Option d (same as specifying +B without an extra option) disables the break handler. # Option i makes the emulator ignore any break signal.
+# If option c is used with oldshell on Unix, Ctrl-C will restart the shell process rather than
+# interrupt it.
+# Disable the emulator break handler
+# it easy to accidentally type ctrl-c when trying
+# to reach for ctrl-d. ctrl-c on a live node can
+# have very undesirable results
+##+Bi

guam-0.9.11.tar.gz/_build/default/rel/guam/releases/RELEASES Added

guam-0.9.11.tar.gz/_build/default/rel/guam/releases/start_erl.data Added

guam-0.9.11.tar.gz/_build/default/rel/guam/vm.args Added

guam-0.9.11.tar.gz/_build/prod Added

guam-0.9.11.tar.gz/_build/prod/lib Added

guam-0.9.11.tar.gz/_build/prod/lib/goldrush Added

guam-0.9.11.tar.gz/_build/prod/lib/kolab_guam Added

guam-0.9.11.tar.gz/_build/prod/lib/kolab_guam/.rebar3 Added

guam-0.9.11.tar.gz/_build/prod/lib/kolab_guam/.rebar3/rebar_compiler_erl Added

guam-0.9.11.tar.gz/_build/prod/lib/kolab_guam/.rebar3/rebar_compiler_erl/source.dag Added

guam-0.9.11.tar.gz/_build/prod/lib/kolab_guam/ebin Added

guam-0.9.11.tar.gz/_build/prod/lib/kolab_guam/ebin/kolab_guam.app Added

guam-0.9.11.tar.gz/_build/prod/lib/kolab_guam/ebin/kolab_guam.beam Added

guam-0.9.11.tar.gz/_build/prod/lib/kolab_guam/ebin/kolab_guam_listener.beam Added

guam-0.9.11.tar.gz/_build/prod/lib/kolab_guam/ebin/kolab_guam_rule.beam Added

guam-0.9.11.tar.gz/_build/prod/lib/kolab_guam/ebin/kolab_guam_rule_audit.beam Added

guam-0.9.11.tar.gz/_build/prod/lib/kolab_guam/ebin/kolab_guam_rule_filter_groupware.beam Added

guam-0.9.11.tar.gz/_build/prod/lib/kolab_guam/ebin/kolab_guam_session.beam Added

guam-0.9.11.tar.gz/_build/prod/lib/kolab_guam/ebin/kolab_guam_sup.beam Added

guam-0.9.11.tar.gz/_build/prod/lib/kolab_guam/include Added

guam-0.9.11.tar.gz/_build/prod/lib/kolab_guam/priv Added

guam-0.9.11.tar.gz/_build/prod/lib/kolab_guam/src Added

guam-0.9.11.tar.gz/_build/prod/lib/lager Added

guam-0.9.11.tar.gz/_build/prod/lib/lager_syslog Added

guam-0.9.11.tar.gz/_build/prod/lib/syslog Added

guam-0.9.11.tar.gz/_build/prod/plugins Added

guam-0.9.11.tar.gz/_build/prod/plugins/pc Added

guam-0.9.11.tar.gz/_build/prod/rel Added

guam-0.9.11.tar.gz/_build/prod/rel/guam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/bin Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/bin/guam Added

@@ -0,0 +1,796 @@
+#!/bin/sh
+
+set -e
+
+# http://erlang.org/doc/man/run_erl.html
+# If defined, disables input and output flow control for the pty
+# opend by run_erl. Useful if you want to remove any risk of accidentally
+# blocking the flow control by using Ctrl-S (instead of Ctrl-D to detach),
+# which can result in blocking of the entire Beam process, and in the case
+# of running heart as supervisor even the heart process becomes blocked
+# when writing log message to terminal, leaving the heart process unable
+# to do its work.
+RUN_ERL_DISABLE_FLOWCNTRL=${RUN_ERL_DISABLE_FLOWCNTRL:-true}
+export $RUN_ERL_DISABLE_FLOWCNTRL
+
+if [ "$TERM" = "dumb" -o -z "$TERM" ]; then
+  export TERM=screen
+fi
+
+# OSX does not support readlink '-f' flag, work
+# around that
+case $OSTYPE in
+    darwin*)
+        SCRIPT=$(readlink $0 || true)
+    ;;
+    *)
+        SCRIPT=$(readlink -f $0 || true)
+    ;;
+esac
+[ -z $SCRIPT ] && SCRIPT=$0
+SCRIPT_DIR="$(cd `dirname "$SCRIPT"` && pwd -P)"
+RELEASE_ROOT_DIR="$(cd "$SCRIPT_DIR/.." && pwd -P)"
+# Make the value available to variable substitution calls below
+export REL_NAME="guam"
+REL_VSN="0.9.11"
+ERTS_VSN="11.2.2.3"
+REL_DIR="$RELEASE_ROOT_DIR/releases/$REL_VSN"
+ERL_OPTS=""
+RUNNER_LOG_DIR="${RUNNER_LOG_DIR:-$RELEASE_ROOT_DIR/log}"
+export ESCRIPT_NAME="${ESCRIPT_NAME-$SCRIPT}"
+
+# start/stop/install/upgrade pre/post hooks
+PRE_START_HOOKS=""
+POST_START_HOOKS=""
+PRE_STOP_HOOKS=""
+POST_STOP_HOOKS=""
+PRE_INSTALL_UPGRADE_HOOKS=""
+POST_INSTALL_UPGRADE_HOOKS=""
+STATUS_HOOK=""
+EXTENSIONS="undefined"
+
+relx_usage() {
+    command="$1"
+
+    case "$command" in
+        unpack)
+            echo "Usage: $REL_NAME unpack [VERSION]"
+            echo "Unpacks a release package VERSION, it assumes that this"
+            echo "release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            ;;
+        install)
+            echo "Usage: $REL_NAME install [VERSION]"
+            echo "Installs a release package VERSION, it assumes that this"
+            echo "release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            echo ""
+            echo "     --no-permanent   Install release package VERSION but"
+            echo "                      don't make it permanent"
+            ;;
+        uninstall)
+            echo "Usage: $REL_NAME uninstall [VERSION]"
+            echo "Uninstalls a release VERSION, it will only accept"
+            echo "versions that are not currently in use"
+            ;;
+        upgrade)
+            echo "Usage: $REL_NAME upgrade [VERSION]"
+            echo "Upgrades the currently running release to VERSION, it assumes"
+            echo "that a release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            echo ""
+            echo "     --no-permanent   Install release package VERSION but"
+            echo "                      don't make it permanent"
+            ;;
+        downgrade)
+            echo "Usage: $REL_NAME downgrade [VERSION]"
+            echo "Downgrades the currently running release to VERSION, it assumes"
+            echo "that a release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            echo ""
+            echo "     --no-permanent   Install release package VERSION but"
+            echo "                      don't make it permanent"
+            ;;
+        status)
+            echo "Usage: $REL_NAME status"
+            echo "Obtains node status information."
+            ;;
+        *)
+            # check for extension
+            IS_EXTENSION=$(relx_is_extension $command)
+            if [ "$IS_EXTENSION" = "1" ]; then
+                EXTENSION_SCRIPT=$(relx_get_extension_script $command)
+                relx_run_extension $EXTENSION_SCRIPT help
+            else
+                EXTENSIONS=`echo $EXTENSIONS | sed -e 's/|undefined//g'`
+                echo "Usage: $REL_NAME {start|start_boot <file>|foreground|stop|restart|reboot|pid|ping|console|console_clean|console_boot <file>|attach|remote_console|upgrade|downgrade|install|uninstall|versions|escript|rpc|rpcterms|eval|status|$EXTENSIONS}"
+            fi
+            ;;
+    esac
+}
+
+find_erts_dir() {
+    __erts_dir="$RELEASE_ROOT_DIR/erts-$ERTS_VSN"
+    if [ -d "$__erts_dir" ]; then
+        ERTS_DIR="$__erts_dir";
+        ROOTDIR="$RELEASE_ROOT_DIR"
+    else
+        __erl="$(which erl)"
+        code="io:format(\"~s\", [code:root_dir()]), halt()."
+        __erl_root="$("$__erl" -boot no_dot_erlang -sasl errlog_type error -noshell -eval "$code")"
+        ERTS_DIR="$__erl_root/erts-$ERTS_VSN"
+        ROOTDIR="$__erl_root"
+    fi
+}
+
+# Get node pid
+relx_get_pid() {
+    if output="$(relx_nodetool rpcterms os getpid)"
+    then
+        echo "$output" | sed -e 's/"//g'
+        return 0
+    else
+        echo "$output"
+        return 1
+    fi
+}
+
+relx_get_nodename() {
+    id="longname$(relx_gen_id)-${NAME}"
+    if [ -z "$COOKIE" ]; then
+        "$BINDIR/erl" -boot start_clean \
+                      -mode interactive \
+                      -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" \
+                      -eval '[_,H]=re:split(atom_to_list(node()),"@",[unicode,{return,list}]), io:format("~s~n",[H]), halt()' \
+                      ${START_EPMD} \
+                      -noshell ${NAME_TYPE} $id
+    else
+        # running with setcookie prevents a ~/.erlang.cookie from being created
+        "$BINDIR/erl" -boot start_clean \
+                      -mode interactive \
+                      -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" \
+                      -eval '[_,H]=re:split(atom_to_list(node()),"@",[unicode,{return,list}]), io:format("~s~n",[H]), halt()' \
+                      -setcookie ${COOKIE} \
+                      ${START_EPMD} \
+                      -noshell ${NAME_TYPE} $id
+    fi
+}
+
+# Connect to a remote node
+relx_rem_sh() {
+    # Generate a unique id used to allow multiple remsh to the same node
+    # transparently
+    id="remsh$(relx_gen_id)-${NAME}"
+
+    # Get the node's ticktime so that we use the same thing.
+    TICKTIME="$(relx_nodetool rpcterms net_kernel get_net_ticktime)"
+
+    # Setup remote shell command to control node
+    exec "$BINDIR/erl" "$NAME_TYPE" "$id" -remsh "$NAME" -boot start_clean -mode interactive \
+         -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" $MAYBE_DIST_ARGS \
+         -setcookie "$COOKIE" -hidden -kernel net_ticktime $TICKTIME
+}
+
+# Generate a random id
+relx_gen_id() {
+    od -t x -N 4 /dev/urandom | head -n1 | awk '{print $2}'
+}
+
+# Control a node
+relx_nodetool() {
+    command="$1"; shift
+
+    # Generate a unique id used to allow multiple nodetool calls to the
+    # same node transparently
+    nodetool_id="maint$(relx_gen_id)-${NAME}"
+
+    if [ -z "${START_EPMD}" ]; then
+        ERL_FLAGS="${ERL_FLAGS} ${MAYBE_DIST_ARGS} ${NAME_TYPE} $nodetool_id -setcookie ${COOKIE}" \
+                 "$ERTS_DIR/bin/escript" \
+                 "$ROOTDIR/bin/nodetool" \
+                 "$NAME_TYPE" "$NAME" \
+                 "$command" $@
+    else
+        ERL_FLAGS="${ERL_FLAGS} ${MAYBE_DIST_ARGS} ${NAME_TYPE} $nodetool_id -setcookie ${COOKIE}" \
+                 "$ERTS_DIR/bin/escript" \
+                 "$ROOTDIR/bin/nodetool" \
+                 $START_EPMD "$NAME_TYPE" "$NAME" "$command" $@
+    fi
+}
+
+# Run an escript in the node's environment
+relx_escript() {
+    scriptpath="$1"; shift
+    export RELEASE_ROOT_DIR
+
+    "$ERTS_DIR/bin/escript" "$ROOTDIR/$scriptpath" $@
+}
+
+make_out_file_path() {
+    # Use output directory provided in the RELX_OUT_FILE_PATH environment variable
+    # (default to the current location of vm.args and sys.config)
+    DIR=$(dirname $1)
+    [ -d "${RELX_OUT_FILE_PATH}" ] && DIR="${RELX_OUT_FILE_PATH}"
+    FILE=$(basename $1)
+    IN="${DIR}/${FILE}"
+
+    PFX=$(echo $IN   | awk '{sub(/\.[^.]+$/, "", $0)}1')
+    SFX=$(echo $FILE | awk -F . '{if (NF>1) print $NF}')
+    if [ $RELX_MULTI_NODE ]; then
+        echo "${PFX}.${NAME}.${SFX}"
+    else
+        echo "${PFX}.${SFX}"
+    fi
+}
+
+# Replace environment variables
+replace_os_vars() {
+    awk '{
+        while(match($0,"[$]{[^}]*}")) {
+            var=substr($0,RSTART+2,RLENGTH -3)
+            gsub("[$]{"var"}",ENVIRON[var])
+        }
+    }1' < "$1" > "$2"
+}
+
+add_path() {
+    # Use $CWD/$1 if exists, otherwise releases/VSN/$1
+    IN_FILE_PATH=$2
+    if [ -z "$IN_FILE_PATH" ]; then
+        if [ -f "$RELEASE_ROOT_DIR/$1" ]; then
+            IN_FILE_PATH="$RELEASE_ROOT_DIR/$1"
+        else
+            IN_FILE_PATH="$REL_DIR/$1"
+        fi
+    fi
+    echo $IN_FILE_PATH
+}
+
+check_replace_os_vars() {
+    IN_FILE_PATH=$(add_path $1 $2)
+    OUT_FILE_PATH="$IN_FILE_PATH"
+    SRC_FILE_PATH="$IN_FILE_PATH.src"
+    ORIG_FILE_PATH="$IN_FILE_PATH.orig"
+    if [ -f "$SRC_FILE_PATH" ]; then
+        OUT_FILE_PATH=$(make_out_file_path $IN_FILE_PATH)
+        replace_os_vars "$SRC_FILE_PATH" "$OUT_FILE_PATH"
+    elif [ $RELX_REPLACE_OS_VARS ]; then
+        OUT_FILE_PATH=$(make_out_file_path $IN_FILE_PATH)
+        # If vm.args.orig or sys.config.orig is present then use that
+        if [ -f "$ORIG_FILE_PATH" ]; then
+           IN_FILE_PATH="$ORIG_FILE_PATH"
+        fi
+
+        # apply the environment variable substitution to $IN_FILE_PATH
+        # the result is saved to $OUT_FILE_PATH
+        # if they are both the same, then ensure that we don't clobber
+        # the file by saving a backup with the .orig extension
+        if [ "$IN_FILE_PATH" = "$OUT_FILE_PATH" ]; then
+            cp "$IN_FILE_PATH" "$ORIG_FILE_PATH"
+            replace_os_vars "$ORIG_FILE_PATH" "$OUT_FILE_PATH"
+        else
+            replace_os_vars "$IN_FILE_PATH" "$OUT_FILE_PATH"
+        fi
+    else
+        # If vm.arg.orig or sys.config.orig is present then use that
+        if [ -f "$ORIG_FILE_PATH" ]; then
+            OUT_FILE_PATH=$(make_out_file_path $IN_FILE_PATH)
+            cp "$ORIG_FILE_PATH" "$OUT_FILE_PATH"
+        fi
+    fi
+    echo $OUT_FILE_PATH
+}
+
+relx_run_hooks() {
+    HOOKS=$1
+    for hook in $HOOKS
+    do
+        # the scripts arguments at this point are separated
+        # from each other by | , we now replace these
+        # by empty spaces and give them to the `set`
+        # command in order to be able to extract them
+        # separately
+        set `echo "$hook" | sed -e 's/|/ /g'`
+        HOOK_SCRIPT=$1; shift
+        # all hook locations are expected to be
+        # relative to the start script location
+        [ "$SCRIPT_DIR/$HOOK_SCRIPT" ] && . "$SCRIPT_DIR/$HOOK_SCRIPT" $@
+    done
+}
+
+relx_disable_hooks() {
+    PRE_START_HOOKS=""
+    POST_START_HOOKS=""
+    PRE_STOP_HOOKS=""
+    POST_STOP_HOOKS=""
+    PRE_INSTALL_UPGRADE_HOOKS=""
+    POST_INSTALL_UPGRADE_HOOKS=""
+    STATUS_HOOK=""
+}
+
+relx_is_extension() {
+    EXTENSION=$1
+    case "$EXTENSION" in
+        undefined)
+            echo "1"
+        ;;
+        *)
+            echo "0"
+        ;;
+    esac
+}
+
+relx_get_extension_script() {
+    EXTENSION=$1
+    # below are the extensions declarations
+    # of the form:
+    # foo_extension="path/to/foo_script";bar_extension="path/to/bar_script"
+    
+    # get the command extension (eg. foo) and
+    # obtain the actual script filename that it
+    # refers to (eg. "path/to/foo_script"
+    eval echo "$"${EXTENSION}_extension""
+}
+
+relx_run_extension() {
+    # drop the first argument which is the name of the
+    # extension script
+    EXTENSION_SCRIPT=$1
+    shift
+    # all extension script locations are expected to be
+    # relative to the start script location
+    [ "$SCRIPT_DIR/$EXTENSION_SCRIPT" ] && . "$SCRIPT_DIR/$EXTENSION_SCRIPT" "$@"
+}
+
+# given a list of arguments, identify the internal ones
+#   --relx-disable-hooks
+# and process them accordingly
+process_internal_args() {
+    for arg in $@
+    do
+      shift
+      case "$arg" in
+          --relx-disable-hooks)
+            relx_disable_hooks
+            ;;
+          *)
+            ;;
+      esac
+    done
+}
+
+# process internal arguments
+process_internal_args $@
+
+find_erts_dir
+export ROOTDIR="$RELEASE_ROOT_DIR"
+export BINDIR="$ERTS_DIR/bin"
+export EMU="beam"
+export PROGNAME="erl"
+export LD_LIBRARY_PATH="$ERTS_DIR/lib:$LD_LIBRARY_PATH"
+ERTS_LIB_DIR="$(dirname "$ERTS_DIR")/lib"
+
+VMARGS_PATH=$(add_path vm.args $VMARGS_PATH)
+
+VMARGS_PATH=$(check_replace_os_vars vm.args $VMARGS_PATH)
+RELX_CONFIG_PATH=$(check_replace_os_vars sys.config $RELX_CONFIG_PATH)
+
+# Check vm.args and other files referenced via -args_file parameters for:
+#    - nonexisting -args_files
+#    - circular dependencies of -args_files
+#    - relative paths in -args_file parameters
+#    - multiple/mixed occurences of -name and -sname parameters
+#    - missing -name or -sname parameters
+# If all checks pass, extract the target node name
+set +e
+TMP_NAME_ARG=$(awk 'function check_name(file)
+{
+    if (system("test -f "file)) {
+        print file" not found"
+        exit 3
+    }
+    if (system("test -r "file)) {
+        print file" not readable"
+        exit 3
+    }
+    while ((getline line<file)>0) {
+        if (line~/^-args_file +/) {
+            gsub(/^-args_file +| *$/, "", line)
+            if (!(line~/^\//)) {
+                print "relative path "line" encountered in "file
+                exit 4
+            }
+            if (line in files) {
+                print "circular reference to "line" encountered in "file
+                exit 5
+            }
+            files[line]=line
+            check_name(line)
+        }
+        else if (line~/^-s?name +/) {
+            if (name!="") {
+                print "\""line"\" parameter found in "file" but already specified as \""name"\""
+                exit 2
+            }
+            name=line
+        }
+    }
+}
+
+BEGIN {
+    split("", files)
+    name=""
+}
+
+{
+    files[FILENAME]=FILENAME
+    check_name(FILENAME)
+    if (name=="") {
+        print "need to have exactly one of either -name or -sname parameters but none found"
+        exit 1
+    }
+    print name
+    exit 0
+}' "$VMARGS_PATH")
+TMP_NAME_ARG_RC=$?
+case $TMP_NAME_ARG_RC in
+    0) NAME_ARG="$TMP_NAME_ARG";;
+    *) echo "$TMP_NAME_ARG"
+       exit $TMP_NAME_ARG_RC;;
+esac
+unset TMP_NAME_ARG
+unset TMP_NAME_ARG_RC
+set -e
+
+# Perform replacement of variables in ${NAME_ARG}
+NAME_ARG=$(eval echo "${NAME_ARG}")
+
+# Extract the name type and name from the NAME_ARG for REMSH
+NAME_TYPE="$(echo "$NAME_ARG" | awk '{print $1}')"
+NAME="$(echo "$NAME_ARG" | awk '{print $2}')"
+
+# Extract dist arguments
+MAYBE_DIST_ARGS=""
+PROTO_DIST="$(grep '^-proto_dist' "$VMARGS_PATH" || true)"
+if [ "$PROTO_DIST" ]; then
+    MAYBE_DIST_ARGS="${PROTO_DIST}"
+fi
+START_EPMD="$(grep '^-start_epmd' "$VMARGS_PATH" || true)"
+if [ "$START_EPMD" ]; then
+    MAYBE_DIST_ARGS="${MAYBE_DIST_ARGS} ${START_EPMD}"
+fi
+EPMD_MODULE="$(grep '^-epmd_module' "$VMARGS_PATH" || true)"
+if [ "$EPMD_MODULE" ]; then
+    MAYBE_DIST_ARGS="${MAYBE_DIST_ARGS} ${EPMD_MODULE}"
+fi
+
+# Extract the target cookie
+# Do this before relx_get_nodename so we can use it and not create a ~/.erlang.cookie
+COOKIE_ARG="$(grep '^-setcookie' "$VMARGS_PATH" || true)"
+DEFAULT_COOKIE_FILE="$HOME/.erlang.cookie"
+if [ -z "$COOKIE_ARG" ]; then
+    if [ -f "$DEFAULT_COOKIE_FILE" ]; then
+        COOKIE="$(cat $DEFAULT_COOKIE_FILE)"
+    else
+        echo "No cookie is set or found. This limits the scripts functionality, installing, upgrading, rpc and getting a list of versions will not work."
+    fi
+else
+    # Extract cookie name from COOKIE_ARG
+    COOKIE="$(echo "$COOKIE_ARG" | awk '{print $2}')"
+fi
+
+# User can specify an sname without @hostname
+# This will fail when creating remote shell
+# So here we check for @ and add @hostname if missing
+case "${NAME}" in
+    *@*) ;;                             # Nothing to do
+    *)   NAME=${NAME}@$(relx_get_nodename);;  # Add @hostname
+esac
+
+# Export the variable so that it's available in the 'eval' calls
+export NAME
+
+test -z "$PIPE_DIR" && PIPE_BASE_DIR='/tmp/erl_pipes/'
+PIPE_DIR="${PIPE_DIR:-/tmp/erl_pipes/$NAME/}"
+
+cd "$ROOTDIR"
+
+# Check the first argument for instructions
+case "$1" in
+    start|start_boot)
+        case "$1" in
+            start)
+                shift
+                START_OPTION="console"
+                HEART_OPTION="start"
+                ;;
+            start_boot)
+                shift
+                START_OPTION="console_boot"
+                HEART_OPTION="start_boot"
+                ;;
+        esac
+        ARGS="$(printf "'%s' " "$@")"
+
+        # Export the HEART_COMMAND
+        HEART_COMMAND="\"$RELEASE_ROOT_DIR/bin/$REL_NAME\" \"$HEART_OPTION\" $ARGS"
+        export HEART_COMMAND
+
+        test -z "$PIPE_BASE_DIR" || mkdir -m 1777 -p "$PIPE_BASE_DIR"
+        mkdir -p "$PIPE_DIR"
+        if [ ! -w "$PIPE_DIR" ]
+        then
+            echo "failed to start, user '$USER' does not have write privileges on '$PIPE_DIR', either delete it or run node as a different user"
+            exit 1
+        fi
+
+        # Make sure log directory exists
+        mkdir -p "$RUNNER_LOG_DIR"
+
+        relx_run_hooks "$PRE_START_HOOKS"
+        "$BINDIR/run_erl" -daemon "$PIPE_DIR" "$RUNNER_LOG_DIR" \
+            "exec \"$RELEASE_ROOT_DIR/bin/$REL_NAME\" \"$START_OPTION\" $ARGS --relx-disable-hooks"
+        relx_run_hooks "$POST_START_HOOKS"
+        ;;
+
+    stop)
+        relx_run_hooks "$PRE_STOP_HOOKS"
+        # Wait for the node to completely stop...
+        PID="$(relx_get_pid)"
+        if ! relx_nodetool "stop"; then
+            exit 1
+        fi
+        while $(kill -s 0 "$PID" 2>/dev/null);
+        do
+            sleep 1
+        done
+        relx_run_hooks "$POST_STOP_HOOKS"
+        ;;
+
+    restart)
+        ## Restart the VM without exiting the process
+        if ! relx_nodetool "restart"; then
+            exit 1
+        fi
+        ;;
+
+    reboot)
+        ## Restart the VM completely (uses heart to restart it)
+        if ! relx_nodetool "reboot"; then
+            exit 1
+        fi
+        ;;
+
+    pid)
+        ## Get the VM's pid
+        if ! relx_get_pid; then
+            exit 1
+        fi
+        ;;
+
+    ping)
+        ## See if the VM is alive
+        if ! relx_nodetool "ping"; then
+            exit 1
+        fi
+        ;;
+
+    escript)
+        ## Run an escript under the node's environment
+        shift
+        if ! relx_escript $@; then
+            exit 1
+        fi
+        ;;
+
+    attach)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        if [ ! -w "$PIPE_DIR" ]
+        then
+            echo "failed to attach, user '$USER' does not have sufficient privileges on '$PIPE_DIR', please run node as a different user"
+            exit 1
+        fi
+
+        shift
+        exec "$BINDIR/to_erl" "$PIPE_DIR"
+        ;;
+
+    remote_console)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        shift
+        relx_rem_sh
+        ;;
+
+    upgrade|downgrade|install|unpack|uninstall)
+        if [ -z "$2" ]; then
+            echo "Missing version argument"
+            echo "Usage: $REL_NAME $1 {version}"
+            exit 1
+        fi
+
+        COMMAND="$1"; shift
+
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        relx_run_hooks "$PRE_INSTALL_UPGRADE_HOOKS"
+
+        exec "$BINDIR/escript" "$ROOTDIR/bin/install_upgrade.escript" \
+             "$COMMAND" "{'$REL_NAME', \"$NAME_TYPE\", '$NAME', '$COOKIE'}" "$@"
+
+        relx_run_hooks "$POST_INSTALL_UPGRADE_HOOKS"
+        ;;
+
+    versions)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        COMMAND="$1"; shift
+
+        exec "$BINDIR/escript" "$ROOTDIR/bin/install_upgrade.escript" \
+             "versions" "{'$REL_NAME', \"$NAME_TYPE\", '$NAME', '$COOKIE'}" "$@"
+        ;;
+
+    console|console_clean|console_boot|foreground)
+        __code_paths=""
+        FOREGROUNDOPTIONS=""
+        # .boot file typically just $REL_NAME (ie, the app name)
+        # however, for debugging, sometimes start_clean.boot is useful.
+        # For e.g. 'setup', one may even want to name another boot script.
+        case "$1" in
+            console)
+                if [ -f "$REL_DIR/$REL_NAME.boot" ]; then
+                  BOOTFILE="$REL_DIR/$REL_NAME"
+                else
+                  BOOTFILE="$REL_DIR/start"
+                fi
+                ;;
+            foreground)
+                # start up the release in the foreground for use by runit
+                # or other supervision services
+                if [ -f "$REL_DIR/$REL_NAME.boot" ]; then
+                  BOOTFILE="$REL_DIR/$REL_NAME"
+                else
+                  BOOTFILE="$REL_DIR/start"
+                fi
+                FOREGROUNDOPTIONS="-noshell -noinput +Bd"
+                ;;
+            console_clean)
+                # if not set by user use interactive mode for console_clean
+                CODE_LOADING_MODE="${CODE_LOADING_MODE:-interactive}"
+                BOOTFILE="$ROOTDIR/bin/start_clean"
+                ;;
+            console_boot)
+                shift
+                BOOTFILE="$1"
+                shift
+                ;;
+        esac
+
+        # if not set by user or console_clean use embedded
+        CODE_LOADING_MODE="${CODE_LOADING_MODE:-embedded}"
+
+        # Setup beam-required vars
+        EMU="beam"
+        PROGNAME="${0#*/}"
+
+        export EMU
+        export PROGNAME
+
+        # Dump environment info for logging purposes
+        echo "Exec: $BINDIR/erlexec" $FOREGROUNDOPTIONS \
+            -boot "$BOOTFILE" -mode "$CODE_LOADING_MODE" \
+            -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" \
+            -config "$RELX_CONFIG_PATH" \
+            -args_file "$VMARGS_PATH" -- "$@"
+        echo "Root: $ROOTDIR"
+
+        # Log the startup
+        echo "$RELEASE_ROOT_DIR"
+        logger -t "$REL_NAME[$$]" "Starting up"
+
+        relx_run_hooks "$PRE_START_HOOKS"
+        # Start the VM
+        exec "$BINDIR/erlexec" $FOREGROUNDOPTIONS \
+            -boot "$BOOTFILE" -mode "$CODE_LOADING_MODE" \
+            -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" \
+            -config "$RELX_CONFIG_PATH" \
+            -args_file "$VMARGS_PATH" -- "$@"
+        # exec will replace the current image and nothing else gets
+        # executed from this point on, this explains the absence
+        # of the pre start hook
+        ;;
+    rpc)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        shift
+
+        relx_nodetool rpc $@
+        ;;
+    rpcterms)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        shift
+
+        relx_nodetool rpcterms $@
+        ;;
+    eval)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        shift
+        relx_nodetool "eval" $@
+        ;;
+    status)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        [ ! -z "${STATUS_HOOK}" ] && [ "$SCRIPT_DIR/$STATUS_HOOK" ] && . "$SCRIPT_DIR/$STATUS_HOOK" $@
+        ;;
+    help)
+        if [ -z "$2" ]; then
+            relx_usage
+            exit 1
+        fi
+
+        TOPIC="$2"; shift
+        relx_usage $TOPIC
+        ;;
+    *)
+        # check for extension
+        IS_EXTENSION=$(relx_is_extension $1)
+        if [ "$IS_EXTENSION" = "1" ]; then
+            EXTENSION_SCRIPT=$(relx_get_extension_script $1)
+            shift
+            relx_run_extension $EXTENSION_SCRIPT "$@"
+            # all extension scripts are expected to exit
+        else
+            relx_usage $1
+        fi
+        exit 1
+        ;;
+esac
+
+exit 0

guam-0.9.11.tar.gz/_build/prod/rel/guam/bin/guam-0.9.11 Added

@@ -0,0 +1,796 @@
+#!/bin/sh
+
+set -e
+
+# http://erlang.org/doc/man/run_erl.html
+# If defined, disables input and output flow control for the pty
+# opend by run_erl. Useful if you want to remove any risk of accidentally
+# blocking the flow control by using Ctrl-S (instead of Ctrl-D to detach),
+# which can result in blocking of the entire Beam process, and in the case
+# of running heart as supervisor even the heart process becomes blocked
+# when writing log message to terminal, leaving the heart process unable
+# to do its work.
+RUN_ERL_DISABLE_FLOWCNTRL=${RUN_ERL_DISABLE_FLOWCNTRL:-true}
+export $RUN_ERL_DISABLE_FLOWCNTRL
+
+if [ "$TERM" = "dumb" -o -z "$TERM" ]; then
+  export TERM=screen
+fi
+
+# OSX does not support readlink '-f' flag, work
+# around that
+case $OSTYPE in
+    darwin*)
+        SCRIPT=$(readlink $0 || true)
+    ;;
+    *)
+        SCRIPT=$(readlink -f $0 || true)
+    ;;
+esac
+[ -z $SCRIPT ] && SCRIPT=$0
+SCRIPT_DIR="$(cd `dirname "$SCRIPT"` && pwd -P)"
+RELEASE_ROOT_DIR="$(cd "$SCRIPT_DIR/.." && pwd -P)"
+# Make the value available to variable substitution calls below
+export REL_NAME="guam"
+REL_VSN="0.9.11"
+ERTS_VSN="11.2.2.3"
+REL_DIR="$RELEASE_ROOT_DIR/releases/$REL_VSN"
+ERL_OPTS=""
+RUNNER_LOG_DIR="${RUNNER_LOG_DIR:-$RELEASE_ROOT_DIR/log}"
+export ESCRIPT_NAME="${ESCRIPT_NAME-$SCRIPT}"
+
+# start/stop/install/upgrade pre/post hooks
+PRE_START_HOOKS=""
+POST_START_HOOKS=""
+PRE_STOP_HOOKS=""
+POST_STOP_HOOKS=""
+PRE_INSTALL_UPGRADE_HOOKS=""
+POST_INSTALL_UPGRADE_HOOKS=""
+STATUS_HOOK=""
+EXTENSIONS="undefined"
+
+relx_usage() {
+    command="$1"
+
+    case "$command" in
+        unpack)
+            echo "Usage: $REL_NAME unpack [VERSION]"
+            echo "Unpacks a release package VERSION, it assumes that this"
+            echo "release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            ;;
+        install)
+            echo "Usage: $REL_NAME install [VERSION]"
+            echo "Installs a release package VERSION, it assumes that this"
+            echo "release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            echo ""
+            echo "     --no-permanent   Install release package VERSION but"
+            echo "                      don't make it permanent"
+            ;;
+        uninstall)
+            echo "Usage: $REL_NAME uninstall [VERSION]"
+            echo "Uninstalls a release VERSION, it will only accept"
+            echo "versions that are not currently in use"
+            ;;
+        upgrade)
+            echo "Usage: $REL_NAME upgrade [VERSION]"
+            echo "Upgrades the currently running release to VERSION, it assumes"
+            echo "that a release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            echo ""
+            echo "     --no-permanent   Install release package VERSION but"
+            echo "                      don't make it permanent"
+            ;;
+        downgrade)
+            echo "Usage: $REL_NAME downgrade [VERSION]"
+            echo "Downgrades the currently running release to VERSION, it assumes"
+            echo "that a release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            echo ""
+            echo "     --no-permanent   Install release package VERSION but"
+            echo "                      don't make it permanent"
+            ;;
+        status)
+            echo "Usage: $REL_NAME status"
+            echo "Obtains node status information."
+            ;;
+        *)
+            # check for extension
+            IS_EXTENSION=$(relx_is_extension $command)
+            if [ "$IS_EXTENSION" = "1" ]; then
+                EXTENSION_SCRIPT=$(relx_get_extension_script $command)
+                relx_run_extension $EXTENSION_SCRIPT help
+            else
+                EXTENSIONS=`echo $EXTENSIONS | sed -e 's/|undefined//g'`
+                echo "Usage: $REL_NAME {start|start_boot <file>|foreground|stop|restart|reboot|pid|ping|console|console_clean|console_boot <file>|attach|remote_console|upgrade|downgrade|install|uninstall|versions|escript|rpc|rpcterms|eval|status|$EXTENSIONS}"
+            fi
+            ;;
+    esac
+}
+
+find_erts_dir() {
+    __erts_dir="$RELEASE_ROOT_DIR/erts-$ERTS_VSN"
+    if [ -d "$__erts_dir" ]; then
+        ERTS_DIR="$__erts_dir";
+        ROOTDIR="$RELEASE_ROOT_DIR"
+    else
+        __erl="$(which erl)"
+        code="io:format(\"~s\", [code:root_dir()]), halt()."
+        __erl_root="$("$__erl" -boot no_dot_erlang -sasl errlog_type error -noshell -eval "$code")"
+        ERTS_DIR="$__erl_root/erts-$ERTS_VSN"
+        ROOTDIR="$__erl_root"
+    fi
+}
+
+# Get node pid
+relx_get_pid() {
+    if output="$(relx_nodetool rpcterms os getpid)"
+    then
+        echo "$output" | sed -e 's/"//g'
+        return 0
+    else
+        echo "$output"
+        return 1
+    fi
+}
+
+relx_get_nodename() {
+    id="longname$(relx_gen_id)-${NAME}"
+    if [ -z "$COOKIE" ]; then
+        "$BINDIR/erl" -boot start_clean \
+                      -mode interactive \
+                      -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" \
+                      -eval '[_,H]=re:split(atom_to_list(node()),"@",[unicode,{return,list}]), io:format("~s~n",[H]), halt()' \
+                      ${START_EPMD} \
+                      -noshell ${NAME_TYPE} $id
+    else
+        # running with setcookie prevents a ~/.erlang.cookie from being created
+        "$BINDIR/erl" -boot start_clean \
+                      -mode interactive \
+                      -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" \
+                      -eval '[_,H]=re:split(atom_to_list(node()),"@",[unicode,{return,list}]), io:format("~s~n",[H]), halt()' \
+                      -setcookie ${COOKIE} \
+                      ${START_EPMD} \
+                      -noshell ${NAME_TYPE} $id
+    fi
+}
+
+# Connect to a remote node
+relx_rem_sh() {
+    # Generate a unique id used to allow multiple remsh to the same node
+    # transparently
+    id="remsh$(relx_gen_id)-${NAME}"
+
+    # Get the node's ticktime so that we use the same thing.
+    TICKTIME="$(relx_nodetool rpcterms net_kernel get_net_ticktime)"
+
+    # Setup remote shell command to control node
+    exec "$BINDIR/erl" "$NAME_TYPE" "$id" -remsh "$NAME" -boot start_clean -mode interactive \
+         -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" $MAYBE_DIST_ARGS \
+         -setcookie "$COOKIE" -hidden -kernel net_ticktime $TICKTIME
+}
+
+# Generate a random id
+relx_gen_id() {
+    od -t x -N 4 /dev/urandom | head -n1 | awk '{print $2}'
+}
+
+# Control a node
+relx_nodetool() {
+    command="$1"; shift
+
+    # Generate a unique id used to allow multiple nodetool calls to the
+    # same node transparently
+    nodetool_id="maint$(relx_gen_id)-${NAME}"
+
+    if [ -z "${START_EPMD}" ]; then
+        ERL_FLAGS="${ERL_FLAGS} ${MAYBE_DIST_ARGS} ${NAME_TYPE} $nodetool_id -setcookie ${COOKIE}" \
+                 "$ERTS_DIR/bin/escript" \
+                 "$ROOTDIR/bin/nodetool" \
+                 "$NAME_TYPE" "$NAME" \
+                 "$command" $@
+    else
+        ERL_FLAGS="${ERL_FLAGS} ${MAYBE_DIST_ARGS} ${NAME_TYPE} $nodetool_id -setcookie ${COOKIE}" \
+                 "$ERTS_DIR/bin/escript" \
+                 "$ROOTDIR/bin/nodetool" \
+                 $START_EPMD "$NAME_TYPE" "$NAME" "$command" $@
+    fi
+}
+
+# Run an escript in the node's environment
+relx_escript() {
+    scriptpath="$1"; shift
+    export RELEASE_ROOT_DIR
+
+    "$ERTS_DIR/bin/escript" "$ROOTDIR/$scriptpath" $@
+}
+
+make_out_file_path() {
+    # Use output directory provided in the RELX_OUT_FILE_PATH environment variable
+    # (default to the current location of vm.args and sys.config)
+    DIR=$(dirname $1)
+    [ -d "${RELX_OUT_FILE_PATH}" ] && DIR="${RELX_OUT_FILE_PATH}"
+    FILE=$(basename $1)
+    IN="${DIR}/${FILE}"
+
+    PFX=$(echo $IN   | awk '{sub(/\.[^.]+$/, "", $0)}1')
+    SFX=$(echo $FILE | awk -F . '{if (NF>1) print $NF}')
+    if [ $RELX_MULTI_NODE ]; then
+        echo "${PFX}.${NAME}.${SFX}"
+    else
+        echo "${PFX}.${SFX}"
+    fi
+}
+
+# Replace environment variables
+replace_os_vars() {
+    awk '{
+        while(match($0,"[$]{[^}]*}")) {
+            var=substr($0,RSTART+2,RLENGTH -3)
+            gsub("[$]{"var"}",ENVIRON[var])
+        }
+    }1' < "$1" > "$2"
+}
+
+add_path() {
+    # Use $CWD/$1 if exists, otherwise releases/VSN/$1
+    IN_FILE_PATH=$2
+    if [ -z "$IN_FILE_PATH" ]; then
+        if [ -f "$RELEASE_ROOT_DIR/$1" ]; then
+            IN_FILE_PATH="$RELEASE_ROOT_DIR/$1"
+        else
+            IN_FILE_PATH="$REL_DIR/$1"
+        fi
+    fi
+    echo $IN_FILE_PATH
+}
+
+check_replace_os_vars() {
+    IN_FILE_PATH=$(add_path $1 $2)
+    OUT_FILE_PATH="$IN_FILE_PATH"
+    SRC_FILE_PATH="$IN_FILE_PATH.src"
+    ORIG_FILE_PATH="$IN_FILE_PATH.orig"
+    if [ -f "$SRC_FILE_PATH" ]; then
+        OUT_FILE_PATH=$(make_out_file_path $IN_FILE_PATH)
+        replace_os_vars "$SRC_FILE_PATH" "$OUT_FILE_PATH"
+    elif [ $RELX_REPLACE_OS_VARS ]; then
+        OUT_FILE_PATH=$(make_out_file_path $IN_FILE_PATH)
+        # If vm.args.orig or sys.config.orig is present then use that
+        if [ -f "$ORIG_FILE_PATH" ]; then
+           IN_FILE_PATH="$ORIG_FILE_PATH"
+        fi
+
+        # apply the environment variable substitution to $IN_FILE_PATH
+        # the result is saved to $OUT_FILE_PATH
+        # if they are both the same, then ensure that we don't clobber
+        # the file by saving a backup with the .orig extension
+        if [ "$IN_FILE_PATH" = "$OUT_FILE_PATH" ]; then
+            cp "$IN_FILE_PATH" "$ORIG_FILE_PATH"
+            replace_os_vars "$ORIG_FILE_PATH" "$OUT_FILE_PATH"
+        else
+            replace_os_vars "$IN_FILE_PATH" "$OUT_FILE_PATH"
+        fi
+    else
+        # If vm.arg.orig or sys.config.orig is present then use that
+        if [ -f "$ORIG_FILE_PATH" ]; then
+            OUT_FILE_PATH=$(make_out_file_path $IN_FILE_PATH)
+            cp "$ORIG_FILE_PATH" "$OUT_FILE_PATH"
+        fi
+    fi
+    echo $OUT_FILE_PATH
+}
+
+relx_run_hooks() {
+    HOOKS=$1
+    for hook in $HOOKS
+    do
+        # the scripts arguments at this point are separated
+        # from each other by | , we now replace these
+        # by empty spaces and give them to the `set`
+        # command in order to be able to extract them
+        # separately
+        set `echo "$hook" | sed -e 's/|/ /g'`
+        HOOK_SCRIPT=$1; shift
+        # all hook locations are expected to be
+        # relative to the start script location
+        [ "$SCRIPT_DIR/$HOOK_SCRIPT" ] && . "$SCRIPT_DIR/$HOOK_SCRIPT" $@
+    done
+}
+
+relx_disable_hooks() {
+    PRE_START_HOOKS=""
+    POST_START_HOOKS=""
+    PRE_STOP_HOOKS=""
+    POST_STOP_HOOKS=""
+    PRE_INSTALL_UPGRADE_HOOKS=""
+    POST_INSTALL_UPGRADE_HOOKS=""
+    STATUS_HOOK=""
+}
+
+relx_is_extension() {
+    EXTENSION=$1
+    case "$EXTENSION" in
+        undefined)
+            echo "1"
+        ;;
+        *)
+            echo "0"
+        ;;
+    esac
+}
+
+relx_get_extension_script() {
+    EXTENSION=$1
+    # below are the extensions declarations
+    # of the form:
+    # foo_extension="path/to/foo_script";bar_extension="path/to/bar_script"
+    
+    # get the command extension (eg. foo) and
+    # obtain the actual script filename that it
+    # refers to (eg. "path/to/foo_script"
+    eval echo "$"${EXTENSION}_extension""
+}
+
+relx_run_extension() {
+    # drop the first argument which is the name of the
+    # extension script
+    EXTENSION_SCRIPT=$1
+    shift
+    # all extension script locations are expected to be
+    # relative to the start script location
+    [ "$SCRIPT_DIR/$EXTENSION_SCRIPT" ] && . "$SCRIPT_DIR/$EXTENSION_SCRIPT" "$@"
+}
+
+# given a list of arguments, identify the internal ones
+#   --relx-disable-hooks
+# and process them accordingly
+process_internal_args() {
+    for arg in $@
+    do
+      shift
+      case "$arg" in
+          --relx-disable-hooks)
+            relx_disable_hooks
+            ;;
+          *)
+            ;;
+      esac
+    done
+}
+
+# process internal arguments
+process_internal_args $@
+
+find_erts_dir
+export ROOTDIR="$RELEASE_ROOT_DIR"
+export BINDIR="$ERTS_DIR/bin"
+export EMU="beam"
+export PROGNAME="erl"
+export LD_LIBRARY_PATH="$ERTS_DIR/lib:$LD_LIBRARY_PATH"
+ERTS_LIB_DIR="$(dirname "$ERTS_DIR")/lib"
+
+VMARGS_PATH=$(add_path vm.args $VMARGS_PATH)
+
+VMARGS_PATH=$(check_replace_os_vars vm.args $VMARGS_PATH)
+RELX_CONFIG_PATH=$(check_replace_os_vars sys.config $RELX_CONFIG_PATH)
+
+# Check vm.args and other files referenced via -args_file parameters for:
+#    - nonexisting -args_files
+#    - circular dependencies of -args_files
+#    - relative paths in -args_file parameters
+#    - multiple/mixed occurences of -name and -sname parameters
+#    - missing -name or -sname parameters
+# If all checks pass, extract the target node name
+set +e
+TMP_NAME_ARG=$(awk 'function check_name(file)
+{
+    if (system("test -f "file)) {
+        print file" not found"
+        exit 3
+    }
+    if (system("test -r "file)) {
+        print file" not readable"
+        exit 3
+    }
+    while ((getline line<file)>0) {
+        if (line~/^-args_file +/) {
+            gsub(/^-args_file +| *$/, "", line)
+            if (!(line~/^\//)) {
+                print "relative path "line" encountered in "file
+                exit 4
+            }
+            if (line in files) {
+                print "circular reference to "line" encountered in "file
+                exit 5
+            }
+            files[line]=line
+            check_name(line)
+        }
+        else if (line~/^-s?name +/) {
+            if (name!="") {
+                print "\""line"\" parameter found in "file" but already specified as \""name"\""
+                exit 2
+            }
+            name=line
+        }
+    }
+}
+
+BEGIN {
+    split("", files)
+    name=""
+}
+
+{
+    files[FILENAME]=FILENAME
+    check_name(FILENAME)
+    if (name=="") {
+        print "need to have exactly one of either -name or -sname parameters but none found"
+        exit 1
+    }
+    print name
+    exit 0
+}' "$VMARGS_PATH")
+TMP_NAME_ARG_RC=$?
+case $TMP_NAME_ARG_RC in
+    0) NAME_ARG="$TMP_NAME_ARG";;
+    *) echo "$TMP_NAME_ARG"
+       exit $TMP_NAME_ARG_RC;;
+esac
+unset TMP_NAME_ARG
+unset TMP_NAME_ARG_RC
+set -e
+
+# Perform replacement of variables in ${NAME_ARG}
+NAME_ARG=$(eval echo "${NAME_ARG}")
+
+# Extract the name type and name from the NAME_ARG for REMSH
+NAME_TYPE="$(echo "$NAME_ARG" | awk '{print $1}')"
+NAME="$(echo "$NAME_ARG" | awk '{print $2}')"
+
+# Extract dist arguments
+MAYBE_DIST_ARGS=""
+PROTO_DIST="$(grep '^-proto_dist' "$VMARGS_PATH" || true)"
+if [ "$PROTO_DIST" ]; then
+    MAYBE_DIST_ARGS="${PROTO_DIST}"
+fi
+START_EPMD="$(grep '^-start_epmd' "$VMARGS_PATH" || true)"
+if [ "$START_EPMD" ]; then
+    MAYBE_DIST_ARGS="${MAYBE_DIST_ARGS} ${START_EPMD}"
+fi
+EPMD_MODULE="$(grep '^-epmd_module' "$VMARGS_PATH" || true)"
+if [ "$EPMD_MODULE" ]; then
+    MAYBE_DIST_ARGS="${MAYBE_DIST_ARGS} ${EPMD_MODULE}"
+fi
+
+# Extract the target cookie
+# Do this before relx_get_nodename so we can use it and not create a ~/.erlang.cookie
+COOKIE_ARG="$(grep '^-setcookie' "$VMARGS_PATH" || true)"
+DEFAULT_COOKIE_FILE="$HOME/.erlang.cookie"
+if [ -z "$COOKIE_ARG" ]; then
+    if [ -f "$DEFAULT_COOKIE_FILE" ]; then
+        COOKIE="$(cat $DEFAULT_COOKIE_FILE)"
+    else
+        echo "No cookie is set or found. This limits the scripts functionality, installing, upgrading, rpc and getting a list of versions will not work."
+    fi
+else
+    # Extract cookie name from COOKIE_ARG
+    COOKIE="$(echo "$COOKIE_ARG" | awk '{print $2}')"
+fi
+
+# User can specify an sname without @hostname
+# This will fail when creating remote shell
+# So here we check for @ and add @hostname if missing
+case "${NAME}" in
+    *@*) ;;                             # Nothing to do
+    *)   NAME=${NAME}@$(relx_get_nodename);;  # Add @hostname
+esac
+
+# Export the variable so that it's available in the 'eval' calls
+export NAME
+
+test -z "$PIPE_DIR" && PIPE_BASE_DIR='/tmp/erl_pipes/'
+PIPE_DIR="${PIPE_DIR:-/tmp/erl_pipes/$NAME/}"
+
+cd "$ROOTDIR"
+
+# Check the first argument for instructions
+case "$1" in
+    start|start_boot)
+        case "$1" in
+            start)
+                shift
+                START_OPTION="console"
+                HEART_OPTION="start"
+                ;;
+            start_boot)
+                shift
+                START_OPTION="console_boot"
+                HEART_OPTION="start_boot"
+                ;;
+        esac
+        ARGS="$(printf "'%s' " "$@")"
+
+        # Export the HEART_COMMAND
+        HEART_COMMAND="\"$RELEASE_ROOT_DIR/bin/$REL_NAME\" \"$HEART_OPTION\" $ARGS"
+        export HEART_COMMAND
+
+        test -z "$PIPE_BASE_DIR" || mkdir -m 1777 -p "$PIPE_BASE_DIR"
+        mkdir -p "$PIPE_DIR"
+        if [ ! -w "$PIPE_DIR" ]
+        then
+            echo "failed to start, user '$USER' does not have write privileges on '$PIPE_DIR', either delete it or run node as a different user"
+            exit 1
+        fi
+
+        # Make sure log directory exists
+        mkdir -p "$RUNNER_LOG_DIR"
+
+        relx_run_hooks "$PRE_START_HOOKS"
+        "$BINDIR/run_erl" -daemon "$PIPE_DIR" "$RUNNER_LOG_DIR" \
+            "exec \"$RELEASE_ROOT_DIR/bin/$REL_NAME\" \"$START_OPTION\" $ARGS --relx-disable-hooks"
+        relx_run_hooks "$POST_START_HOOKS"
+        ;;
+
+    stop)
+        relx_run_hooks "$PRE_STOP_HOOKS"
+        # Wait for the node to completely stop...
+        PID="$(relx_get_pid)"
+        if ! relx_nodetool "stop"; then
+            exit 1
+        fi
+        while $(kill -s 0 "$PID" 2>/dev/null);
+        do
+            sleep 1
+        done
+        relx_run_hooks "$POST_STOP_HOOKS"
+        ;;
+
+    restart)
+        ## Restart the VM without exiting the process
+        if ! relx_nodetool "restart"; then
+            exit 1
+        fi
+        ;;
+
+    reboot)
+        ## Restart the VM completely (uses heart to restart it)
+        if ! relx_nodetool "reboot"; then
+            exit 1
+        fi
+        ;;
+
+    pid)
+        ## Get the VM's pid
+        if ! relx_get_pid; then
+            exit 1
+        fi
+        ;;
+
+    ping)
+        ## See if the VM is alive
+        if ! relx_nodetool "ping"; then
+            exit 1
+        fi
+        ;;
+
+    escript)
+        ## Run an escript under the node's environment
+        shift
+        if ! relx_escript $@; then
+            exit 1
+        fi
+        ;;
+
+    attach)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        if [ ! -w "$PIPE_DIR" ]
+        then
+            echo "failed to attach, user '$USER' does not have sufficient privileges on '$PIPE_DIR', please run node as a different user"
+            exit 1
+        fi
+
+        shift
+        exec "$BINDIR/to_erl" "$PIPE_DIR"
+        ;;
+
+    remote_console)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        shift
+        relx_rem_sh
+        ;;
+
+    upgrade|downgrade|install|unpack|uninstall)
+        if [ -z "$2" ]; then
+            echo "Missing version argument"
+            echo "Usage: $REL_NAME $1 {version}"
+            exit 1
+        fi
+
+        COMMAND="$1"; shift
+
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        relx_run_hooks "$PRE_INSTALL_UPGRADE_HOOKS"
+
+        exec "$BINDIR/escript" "$ROOTDIR/bin/install_upgrade.escript" \
+             "$COMMAND" "{'$REL_NAME', \"$NAME_TYPE\", '$NAME', '$COOKIE'}" "$@"
+
+        relx_run_hooks "$POST_INSTALL_UPGRADE_HOOKS"
+        ;;
+
+    versions)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        COMMAND="$1"; shift
+
+        exec "$BINDIR/escript" "$ROOTDIR/bin/install_upgrade.escript" \
+             "versions" "{'$REL_NAME', \"$NAME_TYPE\", '$NAME', '$COOKIE'}" "$@"
+        ;;
+
+    console|console_clean|console_boot|foreground)
+        __code_paths=""
+        FOREGROUNDOPTIONS=""
+        # .boot file typically just $REL_NAME (ie, the app name)
+        # however, for debugging, sometimes start_clean.boot is useful.
+        # For e.g. 'setup', one may even want to name another boot script.
+        case "$1" in
+            console)
+                if [ -f "$REL_DIR/$REL_NAME.boot" ]; then
+                  BOOTFILE="$REL_DIR/$REL_NAME"
+                else
+                  BOOTFILE="$REL_DIR/start"
+                fi
+                ;;
+            foreground)
+                # start up the release in the foreground for use by runit
+                # or other supervision services
+                if [ -f "$REL_DIR/$REL_NAME.boot" ]; then
+                  BOOTFILE="$REL_DIR/$REL_NAME"
+                else
+                  BOOTFILE="$REL_DIR/start"
+                fi
+                FOREGROUNDOPTIONS="-noshell -noinput +Bd"
+                ;;
+            console_clean)
+                # if not set by user use interactive mode for console_clean
+                CODE_LOADING_MODE="${CODE_LOADING_MODE:-interactive}"
+                BOOTFILE="$ROOTDIR/bin/start_clean"
+                ;;
+            console_boot)
+                shift
+                BOOTFILE="$1"
+                shift
+                ;;
+        esac
+
+        # if not set by user or console_clean use embedded
+        CODE_LOADING_MODE="${CODE_LOADING_MODE:-embedded}"
+
+        # Setup beam-required vars
+        EMU="beam"
+        PROGNAME="${0#*/}"
+
+        export EMU
+        export PROGNAME
+
+        # Dump environment info for logging purposes
+        echo "Exec: $BINDIR/erlexec" $FOREGROUNDOPTIONS \
+            -boot "$BOOTFILE" -mode "$CODE_LOADING_MODE" \
+            -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" \
+            -config "$RELX_CONFIG_PATH" \
+            -args_file "$VMARGS_PATH" -- "$@"
+        echo "Root: $ROOTDIR"
+
+        # Log the startup
+        echo "$RELEASE_ROOT_DIR"
+        logger -t "$REL_NAME[$$]" "Starting up"
+
+        relx_run_hooks "$PRE_START_HOOKS"
+        # Start the VM
+        exec "$BINDIR/erlexec" $FOREGROUNDOPTIONS \
+            -boot "$BOOTFILE" -mode "$CODE_LOADING_MODE" \
+            -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" \
+            -config "$RELX_CONFIG_PATH" \
+            -args_file "$VMARGS_PATH" -- "$@"
+        # exec will replace the current image and nothing else gets
+        # executed from this point on, this explains the absence
+        # of the pre start hook
+        ;;
+    rpc)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        shift
+
+        relx_nodetool rpc $@
+        ;;
+    rpcterms)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        shift
+
+        relx_nodetool rpcterms $@
+        ;;
+    eval)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        shift
+        relx_nodetool "eval" $@
+        ;;
+    status)
+        # Make sure a node IS running
+        if ! relx_nodetool "ping" > /dev/null; then
+            echo "Node is not running!"
+            exit 1
+        fi
+
+        [ ! -z "${STATUS_HOOK}" ] && [ "$SCRIPT_DIR/$STATUS_HOOK" ] && . "$SCRIPT_DIR/$STATUS_HOOK" $@
+        ;;
+    help)
+        if [ -z "$2" ]; then
+            relx_usage
+            exit 1
+        fi
+
+        TOPIC="$2"; shift
+        relx_usage $TOPIC
+        ;;
+    *)
+        # check for extension
+        IS_EXTENSION=$(relx_is_extension $1)
+        if [ "$IS_EXTENSION" = "1" ]; then
+            EXTENSION_SCRIPT=$(relx_get_extension_script $1)
+            shift
+            relx_run_extension $EXTENSION_SCRIPT "$@"
+            # all extension scripts are expected to exit
+        else
+            relx_usage $1
+        fi
+        exit 1
+        ;;
+esac
+
+exit 0

guam-0.9.11.tar.gz/_build/prod/rel/guam/bin/install_upgrade.escript Added

@@ -0,0 +1,337 @@
+#!/usr/bin/env escript
+%%! -noshell -noinput
+%% -*- mode: erlang;erlang-indent-level: 4;indent-tabs-mode: nil -*-
+%% ex: ft=erlang ts=4 sw=4 et
+
+-define(TIMEOUT, 300000).
+-define(INFO(Fmt,Args), io:format(Fmt,Args)).
+
+main([Command0, DistInfoStr | CommandArgs]) ->
+    %% convert the distribution info arguments string to an erlang term
+    {ok, Tokens, _} = erl_scan:string(DistInfoStr ++ "."),
+    {ok, DistInfo} = erl_parse:parse_term(Tokens),
+    %% convert arguments into a proplist
+    Opts = parse_arguments(CommandArgs),
+    %% invoke the command passed as argument
+    F = case Command0 of
+        "install" -> fun(A, B) -> install(A, B) end;
+        "unpack" -> fun(A, B) -> unpack(A, B) end;
+        "upgrade" -> fun(A, B) -> upgrade(A, B) end;
+        "downgrade" -> fun(A, B) -> downgrade(A, B) end;
+        "uninstall" -> fun(A, B) -> uninstall(A, B) end;
+        "versions" -> fun(A, B) -> versions(A, B) end
+    end,
+    F(DistInfo, Opts);
+main(Args) ->
+    ?INFO("unknown args: ~p\n", [Args]),
+    erlang:halt(1).
+
+unpack({RelName, NameTypeArg, NodeName, Cookie}, Opts) ->
+    TargetNode = start_distribution(NodeName, NameTypeArg, Cookie),
+    Version = proplists:get_value(version, Opts),
+    case unpack_release(RelName, TargetNode, Version) of
+        {ok, Vsn} ->
+            ?INFO("Unpacked successfully: ~p~n", [Vsn]);
+        old ->
+            %% no need to unpack, has been installed previously
+            ?INFO("Release ~s is marked old.~n",[Version]);
+        unpacked ->
+            ?INFO("Release ~s is already unpacked.~n",[Version]);
+        current ->
+            ?INFO("Release ~s is already installed and current.~n",[Version]);
+        permanent ->
+            ?INFO("Release ~s is already installed and set permanent.~n",[Version]);
+        {error, Reason} ->
+            ?INFO("Unpack failed: ~p~n",[Reason]),
+            print_existing_versions(TargetNode),
+            erlang:halt(2)
+    end;
+unpack(_, Args) ->
+    ?INFO("unpack: unknown args ~p\n", [Args]).
+
+install({RelName, NameTypeArg, NodeName, Cookie}, Opts) ->
+    TargetNode = start_distribution(NodeName, NameTypeArg, Cookie),
+    Version = proplists:get_value(version, Opts),
+    case unpack_release(RelName, TargetNode, Version) of
+        {ok, Vsn} ->
+            ?INFO("Unpacked successfully: ~p~n", [Vsn]),
+            check_and_install(TargetNode, Vsn),
+            maybe_permafy(TargetNode, RelName, Vsn, Opts);
+        old ->
+            %% no need to unpack, has been installed previously
+            ?INFO("Release ~s is marked old, switching to it.~n",[Version]),
+            check_and_install(TargetNode, Version),
+            maybe_permafy(TargetNode, RelName, Version, Opts);
+        unpacked ->
+            ?INFO("Release ~s is already unpacked, now installing.~n",[Version]),
+            check_and_install(TargetNode, Version),
+            maybe_permafy(TargetNode, RelName, Version, Opts);
+        current ->
+            case proplists:get_value(permanent, Opts, true) of
+                true ->
+                    ?INFO("Release ~s is already installed and current, making permanent.~n",
+                        [Version]),
+                    permafy(TargetNode, RelName, Version);
+                false ->
+                    ?INFO("Release ~s is already installed and current.~n",
+                        [Version])
+            end;
+        permanent ->
+            %% this release is marked permanent, however it might not the
+            %% one currently running
+            case current_release_version(TargetNode) of
+                Version ->
+                    ?INFO("Release ~s is already installed, running and set permanent.~n",
+                        [Version]);
+                CurrentVersion ->
+                    ?INFO("Release ~s is the currently running version.~n",
+                        [CurrentVersion]),
+                    check_and_install(TargetNode, Version),
+                    maybe_permafy(TargetNode, RelName, Version, Opts)
+            end;
+        {error, Reason} ->
+            ?INFO("Unpack failed: ~p~n",[Reason]),
+            print_existing_versions(TargetNode),
+            erlang:halt(2)
+    end;
+install(_, Args) ->
+    ?INFO("install: unknown args ~p\n", [Args]).
+
+upgrade(DistInfo, Args) ->
+    install(DistInfo, Args).
+
+downgrade(DistInfo, Args) ->
+    install(DistInfo, Args).
+
+uninstall({_RelName, NameTypeArg, NodeName, Cookie}, Opts) ->
+    TargetNode = start_distribution(NodeName, NameTypeArg, Cookie),
+    WhichReleases = which_releases(TargetNode),
+    Version = proplists:get_value(version, Opts),
+    case proplists:get_value(Version, WhichReleases) of
+        undefined ->
+            ?INFO("Release ~s is already uninstalled.~n", [Version]);
+        old ->
+            ?INFO("Release ~s is marked old, uninstalling it.~n", [Version]),
+            remove_release(TargetNode, Version);
+        unpacked ->
+            ?INFO("Release ~s is marked unpacked, uninstalling it~n",
+                [Version]),
+            remove_release(TargetNode, Version);
+        current ->
+            ?INFO("Uninstall failed: Release ~s is marked current.~n", [Version]),
+            erlang:halt(2);
+        permanent ->
+            ?INFO("Uninstall failed: Release ~s is running.~n", [Version]),
+            erlang:halt(2)
+    end;
+uninstall(_, Args) ->
+    ?INFO("uninstall: unknown args ~p\n", [Args]).
+
+versions({_RelName, NameTypeArg, NodeName, Cookie}, []) ->
+    TargetNode = start_distribution(NodeName, NameTypeArg, Cookie),
+    print_existing_versions(TargetNode).
+
+parse_arguments(Args) ->
+    parse_arguments(Args, []).
+
+parse_arguments([], Acc) -> Acc;
+parse_arguments(["--no-permanent"|Rest], Acc) ->
+    parse_arguments(Rest, [{permanent, false}] ++ Acc);
+parse_arguments([VersionStr|Rest], Acc) ->
+    Version = parse_version(VersionStr),
+    parse_arguments(Rest, [{version, Version}] ++ Acc).
+
+unpack_release(RelName, TargetNode, Version) ->
+    WhichReleases = which_releases(TargetNode),
+    case proplists:get_value(Version, WhichReleases) of
+        undefined ->
+            %% not installed, so unpack tarball:
+            %% look for a release package with the intended version in the following order:
+            %%      releases/<relname>-<version>.tar.gz
+            %%      releases/<version>/<relname>-<version>.tar.gz
+            %%      releases/<version>/<relname>.tar.gz
+            case find_and_link_release_package(Version, RelName) of
+                {_, undefined} ->
+                    {error, release_package_not_found};
+                {ReleasePackage, ReleasePackageLink} ->
+                    ?INFO("Release ~s not found, attempting to unpack ~s~n",
+                        [Version, ReleasePackage]),
+                    case rpc:call(TargetNode, release_handler, unpack_release,
+                                  [ReleasePackageLink], ?TIMEOUT) of
+                        {ok, Vsn} -> {ok, Vsn};
+                        {error, _} = Error -> Error
+                    end
+            end;
+        Other -> Other
+    end.
+
+%% 1. look for a release package tarball with the provided version in the following order:
+%%      releases/<relname>-<version>.tar.gz
+%%      releases/<version>/<relname>-<version>.tar.gz
+%%      releases/<version>/<relname>.tar.gz
+%% 2. create a symlink from a fixed location (ie. releases/<version>/<relname>.tar.gz)
+%%    to the release package tarball found in 1.
+%% 3. return a tuple with the paths to the release package and
+%%    to the symlink that is to be provided to release handler
+find_and_link_release_package(Version, RelName) ->
+    RelNameStr = atom_to_list(RelName),
+    %% regardless of the location of the release package, we'll
+    %% always give release handler the same path which is the symlink
+    %% the path to the package link is relative to "releases/" because
+    %% that's what release handler is expecting
+    ReleaseHandlerPackageLink = filename:join(Version, RelNameStr),
+    %% this is the symlink name we'll create once
+    %% we've found where the actual release package is located
+    ReleaseLink = filename:join(["releases", Version,
+                                 RelNameStr ++ ".tar.gz"]),
+    case first_value(fun filelib:is_file/1,
+                     [filename:join(["releases",
+                                     RelNameStr ++ "-" ++ Version ++ ".tar.gz"]),
+                      filename:join(["releases", Version,
+                                     RelNameStr ++ "-" ++ Version ++ ".tar.gz"]),
+                      filename:join(["releases", Version,
+                                     RelNameStr ++ ".tar.gz"])]) of
+        no_value ->
+            {undefined, undefined};
+        %% no need to create the link since the release package we
+        %% found is located in the same place as the link would be
+        {ok, Filename} when is_list(Filename) andalso
+                            Filename =:= ReleaseLink ->
+            {Filename, ReleaseHandlerPackageLink};
+        {ok, Filename} when is_list(Filename) ->
+            %% we now have the location of the release package, however
+            %% release handler expects a fixed nomenclature (<relname>.tar.gz)
+            %% so give it just that by creating a symlink to the tarball
+            %% we found.
+            %% make sure that the dir where we're creating the link in exists
+            ok = filelib:ensure_dir(filename:join([filename:dirname(ReleaseLink), "dummy"])),
+            %% create the symlink pointing to the full path name of the
+            %% release package we found
+            case file:make_symlink(filename:absname(Filename), ReleaseLink) of
+                ok ->
+                    ok;
+                {error, eperm} -> % windows!
+                    {ok,_} = file:copy(filename:absname(Filename), ReleaseLink)
+            end,
+            {Filename, ReleaseHandlerPackageLink}
+    end.
+
+first_value(_Fun, []) -> no_value;
+first_value(Fun, [Value | Rest]) ->
+    case Fun(Value) of
+        false ->
+            first_value(Fun, Rest);
+        true ->
+            {ok, Value}
+    end.
+
+parse_version(V) when is_list(V) ->
+    hd(string:tokens(V,"/")).
+
+check_and_install(TargetNode, Vsn) ->
+    case rpc:call(TargetNode, release_handler,
+                  check_install_release, [Vsn], ?TIMEOUT) of
+        {ok, _OtherVsn, _Desc} ->
+            ok;
+        {error, Reason} ->
+            ?INFO("ERROR: release_handler:check_install_release failed: ~p~n",[Reason]),
+            erlang:halt(3)
+    end,
+    case rpc:call(TargetNode, release_handler, install_release,
+                  [Vsn, [{update_paths, true}]], ?TIMEOUT) of
+        {ok, _, _} ->
+            ?INFO("Installed Release: ~s~n", [Vsn]),
+            ok;
+        {error, {no_such_release, Vsn}} ->
+            VerList =
+                iolist_to_binary(
+                    [io_lib:format("* ~s\t~s~n",[V,S]) ||  {V,S} <- which_releases(TargetNode)]),
+            ?INFO("Installed versions:~n~s", [VerList]),
+            ?INFO("ERROR: Unable to revert to '~s' - not installed.~n", [Vsn]),
+            erlang:halt(2);
+        %% as described in http://erlang.org/doc/man/appup.html, when performing a relup
+        %% with soft purge:
+        %%      If the value is soft_purge, release_handler:install_release/1
+        %%      returns {error,{old_processes,Mod}}
+        {error, {old_processes, Mod}} ->
+            ?INFO("ERROR: unable to install '~s' - old processes still running code from module ~p~n",
+                [Vsn, Mod]),
+            erlang:halt(3);
+        {error, Reason1} ->
+            ?INFO("ERROR: release_handler:install_release failed: ~p~n",[Reason1]),
+            erlang:halt(4)
+    end.
+
+maybe_permafy(TargetNode, RelName, Vsn, Opts) ->
+    case proplists:get_value(permanent, Opts, true) of
+        true ->
+            permafy(TargetNode, RelName, Vsn);
+        false -> ok
+    end.
+
+permafy(TargetNode, RelName, Vsn) ->
+    ok = rpc:call(TargetNode, release_handler,
+                  make_permanent, [Vsn], ?TIMEOUT),
+    file:copy(filename:join(["bin", atom_to_list(RelName)++"-"++Vsn]),
+              filename:join(["bin", atom_to_list(RelName)])),
+    ?INFO("Made release permanent: ~p~n", [Vsn]),
+    ok.
+
+remove_release(TargetNode, Vsn) ->
+    case rpc:call(TargetNode, release_handler, remove_release, [Vsn], ?TIMEOUT) of
+        ok ->
+            ?INFO("Uninstalled Release: ~s~n", [Vsn]),
+            ok;
+        {error, Reason} ->
+            ?INFO("ERROR: release_handler:remove_release failed: ~p~n", [Reason]),
+            erlang:halt(3)
+    end.
+
+which_releases(TargetNode) ->
+    R = rpc:call(TargetNode, release_handler, which_releases, [], ?TIMEOUT),
+    [ {V, S} ||  {_,V,_, S} <- R ].
+
+%% the running release version is either the only one marked `current´
+%% or, if none exists, the one marked `permanent`
+current_release_version(TargetNode) ->
+    R = rpc:call(TargetNode, release_handler, which_releases,
+                [], ?TIMEOUT),
+    Versions = [ {S, V} ||  {_,V,_, S} <- R ],
+    %% current version takes priority over the permanent
+    proplists:get_value(current, Versions,
+        proplists:get_value(permanent, Versions)).
+
+print_existing_versions(TargetNode) ->
+    VerList = iolist_to_binary([
+            io_lib:format("* ~s\t~s~n",[V,S])
+            ||  {V,S} <- which_releases(TargetNode) ]),
+    ?INFO("Installed versions:~n~s", [VerList]).
+
+start_distribution(TargetNode, NameTypeArg, Cookie) ->
+    MyNode = make_script_node(TargetNode),
+    {ok, _Pid} = net_kernel:start([MyNode, get_name_type(NameTypeArg)]),
+    erlang:set_cookie(node(), Cookie),
+    case {net_kernel:connect_node(TargetNode),
+          net_adm:ping(TargetNode)} of
+        {true, pong} ->
+            ok;
+        {_, pang} ->
+            ?INFO("Node ~p not responding to pings.\n", [TargetNode]),
+            erlang:halt(1)
+    end,
+    {ok, Cwd} = file:get_cwd(),
+    ok = rpc:call(TargetNode, file, set_cwd, [Cwd], ?TIMEOUT),
+    TargetNode.
+
+make_script_node(Node) ->
+    [Name, Host] = string:tokens(atom_to_list(Node), "@"),
+    list_to_atom(lists:concat([Name, "_upgrader_", os:getpid(), "@", Host])).
+
+%% get name type from arg
+get_name_type(NameTypeArg) ->
+	case NameTypeArg of
+		"-sname" ->
+			shortnames;
+		_ ->
+			longnames
+	end.

guam-0.9.11.tar.gz/_build/prod/rel/guam/bin/no_dot_erlang.boot Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/bin/nodetool Added

@@ -0,0 +1,200 @@
+#!/usr/bin/env escript
+%% -*- mode: erlang;erlang-indent-level: 4;indent-tabs-mode: nil -*-
+%% ex: ft=erlang ts=4 sw=4 et
+%% -------------------------------------------------------------------
+%%
+%% nodetool: Helper Script for interacting with live nodes
+%%
+%% -------------------------------------------------------------------
+
+main(Args) ->
+    %% Extract the args
+    {RestArgs, TargetNode, StartEpmd} = process_args(Args, [], undefined, true),
+
+    ok = start_epmd(StartEpmd),
+
+    %% See if the node is currently running  -- if it's not, we'll bail
+    case {net_kernel:hidden_connect_node(TargetNode), net_adm:ping(TargetNode)} of
+        {true, pong} ->
+            ok;
+        {_, pang} ->
+            io:format("Node ~p not responding to pings.\n", [TargetNode]),
+            halt(1)
+    end,
+
+    Timeout =
+        case os:getenv("NODETOOL_TIMEOUT") of
+            false ->
+                60000;
+            StrVal ->
+                try
+                    list_to_integer(StrVal)
+                catch _:_ ->
+                        60000
+                end
+        end,
+
+    case RestArgs of
+        ["ping"] ->
+            %% If we got this far, the node already responsed to a ping, so just dump
+            %% a "pong"
+            io:format("pong\n");
+        ["stop"] ->
+            io:format("~p\n", [rpc:call(TargetNode, init, stop, [], Timeout)]);
+        ["restart"] ->
+            io:format("~p\n", [rpc:call(TargetNode, init, restart, [], Timeout)]);
+        ["reboot"] ->
+            io:format("~p\n", [rpc:call(TargetNode, init, reboot, [], Timeout)]);
+        ["rpc", Module, Function | RpcArgs] ->
+            case rpc:call(TargetNode, list_to_atom(Module), list_to_atom(Function),
+                          [RpcArgs], Timeout) of
+                ok ->
+                    ok;
+                {badrpc, Reason} ->
+                    io:format("RPC to ~p failed: ~p\n", [TargetNode, Reason]),
+                    halt(1);
+                _ ->
+                    halt(1)
+            end;
+        ["rpcterms", Module, Function | ArgsAsString] ->
+            case rpc:call(TargetNode, list_to_atom(Module), list_to_atom(Function),
+                          consult(lists:flatten(ArgsAsString)), Timeout) of
+                {badrpc, Reason} ->
+                    io:format("RPC to ~p failed: ~p\n", [TargetNode, Reason]),
+                    halt(1);
+                Other ->
+                    io:format("~p\n", [Other])
+            end;
+        ["eval" | ListOfArgs] ->
+            % shells may process args into more than one, and end up stripping
+            % spaces, so this converts all of that to a single string to parse
+            String = binary_to_list(
+                      list_to_binary(
+                        join(ListOfArgs," ")
+                      )
+                    ),
+
+            % then just as a convenience to users, if they forgot a trailing
+            % '.' add it for them.
+            Normalized =
+              case lists:reverse(String) of
+                [$. | _] -> String;
+                R -> lists:reverse([$. | R])
+              end,
+
+            % then scan and parse the string
+            {ok, Scanned, _} = erl_scan:string(Normalized),
+            {ok, Parsed } = erl_parse:parse_exprs(Scanned),
+
+            % and evaluate it on the remote node
+            case rpc:call(TargetNode, erl_eval, exprs, [Parsed, [] ]) of
+                {value, Value, _} ->
+                    io:format ("~p\n",[Value]);
+                {badrpc, Reason} ->
+                    io:format("RPC to ~p failed: ~p\n", [TargetNode, Reason]),
+                    halt(1)
+            end;
+        Other ->
+            io:format("Other: ~p\n", [Other]),
+            io:format("Usage: nodetool {ping|stop|restart|reboot|rpc|rpcterms|eval [Terms]} [RPC]\n")
+    end,
+    net_kernel:stop().
+
+process_args([], Acc, TargetNode, StartEpmd) ->
+    {lists:reverse(Acc), TargetNode, StartEpmd};
+process_args(["-setcookie", Cookie | Rest], Acc, TargetNode, StartEpmd) ->
+    erlang:set_cookie(node(), list_to_atom(Cookie)),
+    process_args(Rest, Acc, TargetNode, StartEpmd);
+process_args(["-start_epmd", StartEpmd | Rest], Acc, TargetNode, _StartEpmd) ->
+    process_args(Rest, Acc, TargetNode, list_to_atom(StartEpmd));
+process_args(["-name", TargetName | Rest], Acc, _, StartEpmd) ->
+    maybe_start_node(TargetName, longnames),
+    process_args(Rest, Acc, nodename(TargetName), StartEpmd);
+process_args(["-sname", TargetName | Rest], Acc, _, StartEpmd) ->
+    maybe_start_node(TargetName, shortnames),
+    process_args(Rest, Acc, nodename(TargetName), StartEpmd);
+process_args([Arg | Rest], Acc, Opts, StartEpmd) ->
+    process_args(Rest, [Arg | Acc], Opts, StartEpmd).
+
+maybe_start_node(TargetName, Names) ->
+    case erlang:node() of
+        'nonode@nohost' ->
+            ThisNode = append_node_suffix(TargetName, "_maint_"),
+            {ok, _} = net_kernel:start([ThisNode, Names]);
+        _ ->
+            ok
+    end.
+
+start_epmd(true) ->
+    [] = os:cmd("\"" ++ epmd_path() ++ "\" -daemon"),
+    ok;
+start_epmd(_) ->
+    ok.
+
+epmd_path() ->
+    ErtsBinDir = filename:dirname(escript:script_name()),
+    Name = "epmd",
+    case os:find_executable(Name, ErtsBinDir) of
+        false ->
+            case os:find_executable(Name) of
+                false ->
+                    io:format("Could not find epmd.~n"),
+                    halt(1);
+                GlobalEpmd ->
+                    GlobalEpmd
+            end;
+        Epmd ->
+            Epmd
+    end.
+
+
+nodename(Name) ->
+    case re:split(Name, "@", [{return, list}, unicode]) of
+        [_Node, _Host] ->
+            list_to_atom(Name);
+        [Node] ->
+            [_, Host] = re:split(atom_to_list(node()), "@", [{return, list}, unicode]),
+            list_to_atom(lists:concat([Node, "@", Host]))
+    end.
+
+append_node_suffix(Name, Suffix) ->
+    case re:split(Name, "@", [{return, list}, unicode]) of
+        [Node, Host] ->
+            list_to_atom(lists:concat([Node, Suffix, os:getpid(), "@", Host]));
+        [Node] ->
+            list_to_atom(lists:concat([Node, Suffix, os:getpid()]))
+    end.
+
+%%
+%% Given a string or binary, parse it into a list of terms, ala file:consult/0
+%%
+consult(Str) when is_list(Str) ->
+    consult([], Str, []);
+consult(Bin) when is_binary(Bin)->
+    consult([], binary_to_list(Bin), []).
+
+consult(Cont, Str, Acc) ->
+    case erl_scan:tokens(Cont, Str, 0) of
+        {done, Result, Remaining} ->
+            case Result of
+                {ok, Tokens, _} ->
+                    {ok, Term} = erl_parse:parse_term(Tokens),
+                    consult([], Remaining, [Term | Acc]);
+                {eof, _Other} ->
+                    lists:reverse(Acc);
+                {error, Info, _} ->
+                    {error, Info}
+            end;
+        {more, Cont1} ->
+            consult(Cont1, eof, Acc)
+    end.
+
+%% string:join/2 copy; string:join/2 is getting obsoleted
+%% and replaced by lists:join/2, but lists:join/2 is too new
+%% for version support (only appeared in 19.0) so it cannot be
+%% used. Instead we just adopt join/2 locally and hope it works
+%% for most unicode use cases anyway.
+join([], Sep) when is_list(Sep) ->
+    [];
+join([H|T], Sep) ->
+    H ++ lists:append([Sep ++ X || X <- T]).

guam-0.9.11.tar.gz/_build/prod/rel/guam/bin/start_clean.boot Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/etc Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/etc/sys.config Added

@@ -0,0 +1,89 @@
+%% Example configuration for Guam.
+[
+    {
+        kolab_guam, [
+            {
+                imap_servers, [
+                    {
+                        imap, [
+                            { host, "127.0.0.1" },
+                            { port, 143 },
+                            { tls, starttls }
+                        ]
+                    },
+                    {
+                        imaps, [
+                            { host, "127.0.0.1" },
+                            { port, 993 },
+                            { tls, true }
+                        ]
+                    }
+                ]
+            },
+            {
+                listeners, [
+                    {
+                        imap, [
+                            { port, 9143 },
+                            { imap_server, imap },
+                            {
+                                rules, [
+                                    { filter_groupware, [] }
+                                ]
+                            },
+                            {
+                                tls_config, [
+                                    { certfile, "/etc/pki/tls/private/localhost.pem" },
+                                    { cacertfile, "/etc/pki/tls/private/localhost.ca.pem" },
+                                    { keyfile, "/etc/pki/tls/private/localhost.key" }
+                                ]
+                            }
+                        ]
+                    },
+                    {
+                        imaps, [
+                            { port, 9993 },
+                            { implicit_tls, true },
+                            { imap_server, imaps },
+                            {
+                                rules, [
+                                    { filter_groupware, [] }
+                                ]
+                            },
+                            {
+                                tls_config, [
+                                    { certfile, "/etc/pki/tls/private/localhost.pem" },
+                                    { cacertfile, "/etc/pki/tls/private/localhost.ca.pem" },
+                                    { keyfile, "/etc/pki/tls/private/localhost.key" }
+                                ]
+                            }
+                        ]
+                    }
+                ]
+            }
+        ]
+    },
+
+    {
+        lager, [
+            {
+                handlers, [
+                    { lager_console_backend, debug },
+                    { lager_file_backend, [ { file, "log/error.log"}, { level, error } ] },
+                    { lager_file_backend, [ { file, "log/console.log"}, { level, info } ] }
+                ]
+            }
+        ]
+    },
+
+    %% SASL config
+    {
+        sasl, [
+            { sasl_error_logger, { file, "log/sasl-error.log" } },
+            { errlog_type, error },
+            { error_logger_mf_dir, "log/sasl" },      % Log directory
+            { error_logger_mf_maxbytes, 10485760 },   % 10 MB max file size
+            { error_logger_mf_maxfiles, 5 }           % 5 files max
+        ]
+    }
+].

guam-0.9.11.tar.gz/_build/prod/rel/guam/guam-0.9.11.tar.gz Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3 Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/ebin Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/ebin/eimap.app Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/ebin/eimap.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/ebin/eimap_command.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/ebin/eimap_command_annotation.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/ebin/eimap_command_capability.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/ebin/eimap_command_compress.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/ebin/eimap_command_getmetadata.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/ebin/eimap_command_login.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/ebin/eimap_command_logout.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/ebin/eimap_command_namespace.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/ebin/eimap_command_noop.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/ebin/eimap_command_peek_message.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/ebin/eimap_command_starttls.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/ebin/eimap_command_status.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/ebin/eimap_command_switch_folder.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/ebin/eimap_uidset.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/ebin/eimap_utils.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/src Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/src/commands Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/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.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/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.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/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.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/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.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/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.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/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.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/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.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/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.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/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.PEEK[HEADER] BODY.PEEK[TEXT])">>, 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(<<"BODY[HEADER] {", Data/binary>>, Parts) ->
+    parse_header(Data, Parts);
+parse_next_component(<<"BODY[TEXT] {", 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.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/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.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/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.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/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.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/src/eimap.app.src Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/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.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/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 } = eimap_utils:num_literal_continuation_bytes(Line),
+    process_line(ContinuationBytes, ParseTaggedLine, eimap_utils:is_tagged_response(FirstLine, Tag), Tag, LastPartialLine, FirstLine, MoreLines, Acc, Module).
+
+
+process_line(ContinuationBytes, ParseTaggedLine, IsTagged, Tag, LastPartialLine, Line, [<<>>|MoreLines], Acc, Module) ->
+    %% skip empty lines
+    process_line(ContinuationBytes, ParseTaggedLine, IsTagged, Tag, LastPartialLine, Line, MoreLines, Acc, Module);
+process_line(0, 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));
+process_line(0, ParseTaggedLine, untagged, Tag, LastPartialLine, Line, MoreLines, Acc, Module) ->
+    %io:format("Calling it here with ~p~n~n...", [Line]),
+    process_lines(ParseTaggedLine, Tag, LastPartialLine, MoreLines, Module:process_line(Line, Acc), Module);
+process_line(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(_ContinuationBytes, ParseTaggedLine, IsTagged, Tag, LastPartialLine, Line, [NextLine|MoreLines], Acc, Module) ->
+    { StrippedNextLine, NextContinuationBytes } = 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(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.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/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.11.tar.gz/_build/prod/rel/guam/lib/eimap-0.4.3/src/eimap_utils.erl Added

@@ -0,0 +1,258 @@
+%% 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
+        ]).
+
+%% 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() }.
+num_literal_continuation_bytes(Buffer) when size(Buffer) < 4 ->
+    { Buffer, 0 };
+num_literal_continuation_bytes(Buffer) ->
+    case binary:last(Buffer) =:= $} of
+        true -> number_of_bytes_in_continuation(Buffer);
+        false -> { Buffer, 0 }
+    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 };
+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 }
+    catch
+        _:_ -> { Buffer, 0 }
+    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) -> <<>>.
+
+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.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9 Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/ebin Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/ebin/glc.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/ebin/glc_code.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/ebin/glc_lib.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/ebin/glc_ops.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/ebin/glc_run.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/ebin/goldrush.app Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/ebin/gr_app.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/ebin/gr_context.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/ebin/gr_counter.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/ebin/gr_counter_sup.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/ebin/gr_manager.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/ebin/gr_manager_sup.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/ebin/gr_param.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/ebin/gr_param_sup.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/ebin/gr_sup.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/ebin/gre.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/priv Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/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.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/src Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/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.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/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.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/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.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/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.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/src/glc_run.erl Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/src/goldrush.app.src Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/src/gr_app.erl Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/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.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/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.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/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.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/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. <em>Counter</em>} and
+%% {@link gr_param:start_link/0. <em>Param</em>} 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.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/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. 
+%% <em>Manager</em>} processes, which serve as heir of the 
+%% {@link gr_counter:start_link/0. <em>Counter</em>} and
+%% {@link gr_param:start_link/0. <em>Param</em>} 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.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/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.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/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. 
+%% <em>Param</em>}, process table responsible for params
+%% {@link gr_param:start_link/0. <em>Counter</em>} and
+%% their {@link gr_counter:start_link/0. <em>Manager</em>} 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.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/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. 
+%% <em>Counter</em>}, {@link gr_param_sup:start_link/0. <em>Param</em>} and
+%% their {@link gr_manager_sup:start_link/0. <em>Manager</em>} 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.11.tar.gz/_build/prod/rel/guam/lib/goldrush-0.1.9/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.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11 Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/ebin Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/ebin/kolab_guam.app Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/ebin/kolab_guam.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/ebin/kolab_guam_listener.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/ebin/kolab_guam_rule.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/ebin/kolab_guam_rule_audit.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/ebin/kolab_guam_rule_filter_groupware.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/ebin/kolab_guam_session.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/ebin/kolab_guam_sup.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/src Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/src/kolab_guam.app.src Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/src/kolab_guam.erl Added

@@ -0,0 +1,38 @@
+%% 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 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 General Public License for more details.
+%%
+%% You should have received a copy of the GNU General Public License
+%% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+-module(kolab_guam).
+
+-behaviour(application).
+
+%% Application callbacks
+-export([start/0, start/2, stop/0, stop/1]).
+
+start() -> ssl:start(), application:start(kolab_guam).
+stop() -> application:stop(kolab_guam).
+
+%% ===================================================================
+%% Application callbacks
+%% ===================================================================
+
+start(_StartType, _StartArgs) ->
+    lager:info("Starting Kolab Guam IMAP session proxy ..."),
+    lager:info("    Starting the main supervisor ..."),
+    kolab_guam_sup:start_link().
+
+stop(_State) ->
+    ok.

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/src/kolab_guam_listener.erl Added

@@ -0,0 +1,96 @@
+%% 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 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 General Public License for more details.
+%%
+%% You should have received a copy of the GNU General Public License
+%% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+-module(kolab_guam_listener).
+
+-behaviour(supervisor).
+-define(DEFAULT_IMAP_PORT, 143).
+-define(DEFAULT_LISTENER_POOL_SIZE, 10).
+
+%% API
+-export([start_link/2, create_initial_listeners/2, cleanup/1]).
+
+%% gen_supervisor callbacks
+-export([init/1]).
+
+%% state record definition
+%%TODO: support reconfiguration requests
+
+%% public API
+start_link(Name, Config) -> supervisor:start_link(?MODULE, [Name, Config]).
+
+%% gen_server API
+init([Name, Config]) ->
+    Host = proplists:get_value(host, Config, none),
+    NetIface = proplists:get_value(net_iface, Config, none),
+    Port = proplists:get_value(port, Config, ?DEFAULT_IMAP_PORT),
+    ImplicitTLS = proplists:get_value(implicit_tls, Config, false),
+    TLSConfig = proplists:get_value(tls_config, Config, []),
+    Rules = proplists:get_value(rules, Config, []),
+    Options = listen_options(NetIface, Host),
+    lager:info("Starting listener \"~p\" on port ~B (~p) with ~B rules", [Name, Port, Options, length(Rules)]),
+    { ok, ListenSocket } = listen(ImplicitTLS, Port, Options),
+    spawn_link(?MODULE, cleanup, [ListenSocket]),
+    %% setting up the initial listeners must be done async to allow the init to be done and the supervisor to be setup
+    ListenerPoolSize = proplists:get_value(listener_pool_size, Config, ?DEFAULT_LISTENER_POOL_SIZE),
+    spawn_link(kolab_guam_listener, create_initial_listeners, [ListenerPoolSize, self()]),
+    ImapConfig = imap_config(proplists:get_value(imap_server, Config, none)),
+    lager:debug("ImapConfig is ~p", [ImapConfig]),
+    {ok, { { simple_one_for_one, 60, 3600 },
+         [ { session, { kolab_guam_session, start_link, [self(), ListenSocket, ImapConfig, ImplicitTLS, TLSConfig, Rules] }, temporary, 1000, worker, [kolab_guam_session] } ]
+         }
+    }.
+
+imap_config(none) -> kolab_guam_sup:default_imap_server_config();
+imap_config(Backend) -> kolab_guam_sup:imap_server_config(Backend).
+
+-spec listen_options(Iface :: string(), Hostname :: string()) -> list().
+listen_options(none, none) -> default_listen_options();
+listen_options(none, Hostname) ->
+    case inet:gethostbyname(Hostname) of
+        { ok, { hostent, _HostName, _Unused, inet, _Ver, [IP] } } ->
+            [ { ip, IP } | default_listen_options() ];
+        _ ->
+            listen_options(none, none)
+    end;
+listen_options(Iface, Hostname) ->
+    { ok, Ifaces } = inet:getifaddrs(),
+    case proplists:get_value(Iface, Ifaces) of
+        undefined -> listen_options(none, Hostname);
+        Info -> Addr = proplists:get_value(addr, Info, none),
+                listen_options(none, Addr)
+    end.
+
+default_listen_options() -> [ { keepalive, true }, { reuseaddr, true }, {active, false}, inet6 ].
+
+create_initial_listeners(ListenerPoolSize, PID) when is_pid(PID) ->
+    lager:debug("Creating session pool of size ~p for listener ~p", [ListenerPoolSize, PID]),
+    [ supervisor:start_child(PID, []) || _ <- lists:seq(1, ListenerPoolSize) ].
+
+cleanup(Socket) ->
+    process_flag(trap_exit, true),
+    receive
+        { 'EXIT', _PID, _  } -> ok;
+        _ -> cleanup(Socket)
+    end,
+    gen_tcp:close(Socket).
+
+listen(true, Port, Options) -> gen_tcp:listen(Port, Options);
+listen(_ImplicitTLS, Port, Options) -> gen_tcp:listen(Port, Options).
+
+%% private API
+

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/src/kolab_guam_rule.erl Added

@@ -0,0 +1,39 @@
+%% 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 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 General Public License for more details.
+%%
+%% You should have received a copy of the GNU General Public License
+%% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+-module(kolab_guam_rule).
+
+-callback new(Args :: any()) ->
+    State :: any().
+
+%% Used to decied if a rule applies to a session (is active). No longer called once the rule is decided (true/false).
+-callback applies(ConnectionDetails :: list(), Buffer :: binary(), SplitBinary :: { Tag :: binary(), Command :: binary(), Data :: binary() }, State :: any()) ->
+    { true, State :: any() } |
+    { false, State :: any() } |
+    { notyet, State :: any() }.
+
+%% Called for rules in the active set.
+-callback apply_to_client_message(ImapSession :: pid(), Command :: binary(), SplitBinary :: { Tag :: binary(), Command :: binary(), Data :: binary() }, State :: any()) ->
+    { ProcessedCommand :: binary(), State :: any() }.
+
+%% Called for rules in the active set.
+-callback apply_to_server_message(ImapSession :: pid(), Command :: binary(), State :: any()) ->
+    { ProcessedCommand :: binary(), State :: any() }.
+
+%% Callback for rules that request extra data from the server
+-callback imap_data(ResponseToken :: any(), Response :: any(), State :: any()) ->
+    State :: any().

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/src/kolab_guam_session.erl Added

@@ -0,0 +1,505 @@
+%% 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 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 General Public License for more details.
+%%
+%% You should have received a copy of the GNU General Public License
+%% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+-module(kolab_guam_session).
+
+-behaviour(gen_server).
+
+%% API
+-export([ start_link/6 ]).
+
+%% gen_server callbacks
+-export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]).
+
+%% tests
+-export([ process_client_data/3 ]).
+
+-include("kolab_guam_session.hrl").
+
+%% public API
+start_link(SupervisorPID, ListenSocket, ImapConfig, ImplicitTLS, TLSConfig, Rules) -> gen_server:start_link(?MODULE, [SupervisorPID, ListenSocket, ImapConfig, ImplicitTLS, TLSConfig, Rules], []).
+
+%% gen_server API
+init([SupervisorPID, ListenSocket, ServerConfig, ImplicitTLS, TLSConfig, Rules]) ->
+    %% accepting a connection is blocking .. so do it async
+    %% lager:debug("Starting a session handler on socket ~p for listener ~p", [ListenSocket, SupervisorPID]),
+    process_flag(trap_exit, true),
+    ActiveRules = init_rules(Rules),
+    gen_server:cast(self(), accept),
+    %% lager:debug("Rules are ~p from ~p", [ActiveRules, Rules]),
+    { ok, #state{ listen_socket = ListenSocket, super_pid = SupervisorPID, client_implicit_tls = ImplicitTLS, tls_config = TLSConfig, server_config = ServerConfig, rules_deciding = ActiveRules } }.
+
+handle_call(_Request, _From, State) ->
+    { reply, ok, State }.
+
+handle_cast(accept, State = #state{ server_config = ServerConfig } = State) ->
+    %% try to rate limit our responses a bit here so that hammering the socket with connections is survivable
+    timer:sleep(3),
+    { ok, AcceptSocket, TLSActive } = accept_client(State),
+    { ok, ImapSession } = eimap:start_link(ServerConfig),
+    eimap:connect(ImapSession, self(), server_hello),
+    { noreply, State#state{ listen_socket = undefined, socket = AcceptSocket, imap_session = ImapSession, client_tls_active = TLSActive } };
+handle_cast(_Msg, State) ->
+    { noreply, State }.
+
+handle_info({ tcp_closed, _Socket }, State) ->
+    %lager:debug("Client closed socket"),
+    { stop, normal, State };
+handle_info({ tcp_error, _Socket, _Error }, State) ->
+    %lager:debug("Socket error"),
+    { stop, normal, State };
+handle_info({ ssl_closed, _Socket }, State) ->
+    %lager:debug("Client closed socket"),
+    { stop, normal, State };
+handle_info({ ssl_error, _Socket, _Error }, State) ->
+    %lager:debug("Socket error"),
+    { stop, normal, State };
+handle_info({ tcp, Socket, Data }, #state{ client_tls_active = false } = State) ->
+    % lager:debug("Data coming in from client over TCP ~s", [Data]),
+    {Acc, NewState} = process_client_data(Socket, Data, State),
+    forward_literal_data(Acc, NewState),
+    %Required because of socket upgrade, in which case we will end up with the ssl variant here.
+    set_socket_active(NewState),
+    { noreply, NewState };
+
+handle_info({ ssl, Socket, Data }, State) ->
+    % lager:debug("Data coming in from client over SSL, ~p", [Data]),
+    {Acc, NewState} = process_client_data(Socket, Data, State),
+    forward_literal_data(Acc, NewState),
+    ssl:setopts(Socket, [{ active, once }]),
+    { noreply, NewState };
+
+handle_info({ server_hello, ServerHello }, #state{ imap_session = ImapSession, tls_config = TLSConfig, socket = Socket, client_implicit_tls = ImplicitTLS, client_tls_active = TLSActive, deflator = Deflator } = State) ->
+    CorrectedHello = correct_hello(TLSActive, ImplicitTLS, TLSConfig, ServerHello),
+    ServerIdent = proplists:get_value(server_id, ServerHello, <<>>),
+    FullGreeting = <<"* OK [CAPABILITY ", CorrectedHello/binary, "] ", ServerIdent/binary, "\r\n">>,
+    eimap:start_passthrough(ImapSession, self()),
+    relay_response(Socket, postprocess_server_data(Deflator, FullGreeting), TLSActive),
+    { noreply, State };
+handle_info({ { rule_data, Module, ResponseToken }, Data }, #state{ rules_active = ActiveRules } = State) ->
+    %lager:debug("Got back data requested by rule ~p: ~p", [Module, Data]),
+    NewActiveRules =
+    case proplists:get_value(Module, ActiveRules) of
+        undefined -> ActiveRules;
+        ModuleState ->
+            NewModuleState = Module:imap_data(ResponseToken, Data, ModuleState),
+            lists:reverse(lists:foldl(fun({ Rule, RuleState }, Acc) ->
+                                              case Rule =:= Module of
+                                                  true -> [{ Rule, NewModuleState }|Acc];
+                                                  _ -> [{ Rule, RuleState }|Acc]
+                                              end
+                                      end,
+                          [], ActiveRules))
+    end,
+    %TODO: should we also support non-active rules doing imapy things here?
+    { noreply, State#state{ rules_active = NewActiveRules } };
+handle_info({ imap_server_response, Data }, #state{ socket = Socket, imap_session = ImapSession, client_tls_active = TLS, deflator = Deflator, rules_active = ActiveRules } = State) ->
+    lager:debug("FROM SERVER: ~p", [Data]),
+    { ModifiedData, CurrentlyActiveRules } = apply_ruleset_serverside(ImapSession, Data, ActiveRules),
+    relay_response(Socket, postprocess_server_data(Deflator, ModifiedData), TLS),
+    NewSplitCommand = update_split_command_state(ModifiedData, State),
+    { noreply, State#state{ rules_active = CurrentlyActiveRules, current_command_split = NewSplitCommand } };
+handle_info({ 'EXIT', PID, _Reason }, #state { imap_session = PID } = State) ->
+    { stop, normal, State#state{ imap_session = undefined } };
+handle_info(Info, State) ->
+    lager:debug("Received unexpected info... ~p", [Info]),
+    { noreply, State }.
+
+terminate(_Reason, #state{ inflator = Inflator, imap_session = ImapSession, deflator = Deflator, socket = Socket, client_implicit_tls = ImplicitTLS, client_tls_active = TLS }) ->
+    close_zlib_handle(Inflator),
+    close_zlib_handle(Deflator),
+    close_socket(ImplicitTLS, TLS, Socket),
+    case ImapSession of
+        undefined -> ok;
+        _ -> exit(ImapSession, kill)
+    end,
+    ok.
+
+code_change(_OldVsn, State, _Extra) ->
+    { ok, State }.
+
+%% private API
+
+%% update_split_command_state updates the split_command being held on to when we get a server response
+%% in the case of "transactional" messages (such as authentication) where the client and server enter a bidirectional conversation
+%% that is goverened by rules outside the the usual IMAP call/response pattern, we need to wait for the end of the server response
+%% since this is relatively expensive due to having to scan the data for the tagged server response, and is not necessary for all other
+%% IMAP commands, we shortcircuit when the command does not trigger a "transactional" interaction between client and server, and instead
+%% just always reset the split data state at that point
+update_split_command_state(Data, #state{ command_split_reset_trigger = reset_on_server_response, current_command_split = CurrentCommandSplit }) ->
+    case CurrentCommandSplit of
+        undefined -> undefined;
+        { Tag, _Command, _Data } ->
+            case binary:match(Data, <<Tag/binary, " ">>) of
+                nomatch -> CurrentCommandSplit;
+                { 0, _ } -> undefined;
+                { Start, _ } ->
+                    case binary:at(Data, Start - 1) of
+                        $\n -> undefined;
+                        _ -> CurrentCommandSplit
+                    end
+            end
+    end;
+update_split_command_state(_Data, _State) ->
+    undefined.
+
+update_split_command_state_client(ClientDataComponents, #state{ command_split_reset_trigger = reset_for_next_client_command, current_command_split = CurrentCommandSplit }) ->
+    %If we have a currently active command (CurrentCommandSplit), then we reset only if we find a new command (and not just on any new line).
+    %This is relevant for multi-line commands such as APPEND, which follow up with a continuation which we want to avoid buffering.
+    case CurrentCommandSplit of
+        undefined -> undefined;
+        _ ->
+            case ClientDataComponents of
+                { <<>>, <<>>, <<>> } -> CurrentCommandSplit;
+                { _Tag, <<>>, <<>> } -> CurrentCommandSplit;
+                { <<>>, _Command, <<>> } -> CurrentCommandSplit;
+                { _Tag, _Command, _Data } -> undefined
+            end
+    end;
+update_split_command_state_client(_ClientDataComponents, _State) ->
+    undefined.
+
+set_socket_active(#state{ client_tls_active = true, socket = Socket}) -> ssl:setopts(Socket, [{ active, once }]);
+set_socket_active(#state{ client_tls_active = false, socket = Socket}) -> inet:setopts(Socket, [{ active, once }]).
+
+accept_client(#state{ client_implicit_tls = true, tls_config = TLSConfig, listen_socket = ListenSocket, super_pid = SupervisorPID }) ->
+    AcceptSocket = accept_socket(ListenSocket, SupervisorPID),
+
+    { ok, SSLSocket } =
+    case ssl:ssl_accept(AcceptSocket, TLSConfig) of
+        { ok, Socket } ->
+            { ok, Socket };
+        {error, {tls_alert, Reason}} ->
+            lager:warning("TLS handshake failed with a tls_alert: ~p", [Reason]),
+            ok = gen_tcp:close(AcceptSocket),
+            exit(normal);
+        {error, Reason} when Reason =:= timeout; Reason =:= closed ->
+            lager:info("Socket closed or timed out during TLS handshake: ~p", [Reason]),
+            ok = gen_tcp:close(AcceptSocket),
+            exit(normal)
+    end,
+
+    %% prep for the next listen
+    ok = ssl:setopts(SSLSocket, [{ active, once }, { mode, binary }]),
+    % lager:info("~p All done!", [self()]),
+    { ok, SSLSocket, true };
+accept_client(#state{ listen_socket = ListenSocket, super_pid = SupervisorPID }) ->
+    AcceptSocket = accept_socket(ListenSocket, SupervisorPID),
+    ok = inet:setopts(AcceptSocket, [{ active, once }, { mode, binary }]),
+    { ok, AcceptSocket, false }.
+
+accept_socket(ListenSocket, SupervisorPID) ->
+    AcceptResult = gen_tcp:accept(ListenSocket),
+    %% start a new accepting process to replace this one, which is now in use
+    supervisor:start_child(SupervisorPID, []),
+    %% assert that the accept worked
+    { ok, AcceptSocket } =
+    case AcceptResult of
+        { ok, Socket } ->
+            { ok, Socket };
+        {error, emfile} ->
+            lager:error("Too many files open, you may be running into a file descriptor limitation."),
+            exit(emfile)
+    end,
+    AcceptSocket.
+
+close_zlib_handle(undefined) -> ok;
+close_zlib_handle(Z) -> zlib:close(Z).
+
+close_socket(_ImplicitTLS, _TLS, undefined) -> ok;
+close_socket(_ImplicitTLS, true, Socket) -> ssl:close(Socket);
+close_socket(true, _TLS, Socket) -> ssl:close(Socket);
+close_socket(_ImplicitTLS, _TLS, Socket) -> gen_tcp:close(Socket).
+
+
+forward_literal_data(<<>>, _State) ->
+    {};
+forward_literal_data(Data, #state{imap_session = ImapSession} = _State) ->
+    eimap:passthrough_data(ImapSession, Data).
+
+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)),
+    {NewAcc, NewState} = process_client_line(Line, Socket, State, Acc),
+    process_lines(Socket, NewState, MoreLines, NextContinuationBytes, NewAcc);
+process_lines(Socket, State, [Line|MoreLines], ContinuationBytes, Acc) ->
+    {LiteralPartOfLine, Remainder} = split_binary(Line, min(ContinuationBytes, size(Line))),
+    Lines =
+    case Remainder of
+       <<>> -> MoreLines;
+        _ -> [Remainder|MoreLines]
+    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) ->
+    % TODO: refactor so starttls and compress commands can be made into rules
+    PreprocessData = preprocess_client_data(Inflator, Data, State),
+    lager:debug("FROM CLIENT: ~p", [PreprocessData]),
+
+    {Lines, NewLastPartialLine} = split_lines(PreprocessData),
+    {Acc, NewState} = process_lines(Socket, State#state{ buffered_client_data = <<>> }, Lines, ContinuationBytes, <<>>),
+    #state{ buffered_client_data = DataToBuffer, continuation_bytes = NewContinuationBytes} = NewState,
+
+    NewBuffer = <<DataToBuffer/binary, NewLastPartialLine/binary>>,
+    %If we are inside a continuation, forward up to NewContinuationBytes
+    {LiteralPartOfBuffer, NonLiteralPart} = split_binary(NewBuffer, min(NewContinuationBytes, size(NewBuffer))),
+
+    {<<Acc/binary, LiteralPartOfBuffer/binary>>, NewState#state{ buffered_client_data = NonLiteralPart, continuation_bytes = NewContinuationBytes - size(LiteralPartOfBuffer)}}.
+
+
+process_client_line(Data, Socket, #state{ rules_deciding = UndecidedRules, tls_config = TLSConfig, client_tls_active = TLS, rules_active = ActiveRules, socket = Socket, imap_session = ImapSession, deflator = Deflator, server_config = ServerConfig} = State, Acc) ->
+    ClientDataComponents = eimap_utils:split_command_into_components(Data),
+    case check_for_transmission_change_commands(TLS, TLSConfig, ClientDataComponents, Deflator, Socket) of
+        { socket_upgraded, SSLSocket } ->
+            %% if we have upgraded our socket, then do so to the backend if that hasn't happened auomatically
+            case proplists:get_value(implicit_tls, ServerConfig, false) of
+                false -> eimap:starttls(ImapSession, undefined, undefined);
+                _ -> ok
+            end,
+            { Acc, State#state{ client_tls_active = true, socket = SSLSocket, buffered_client_data = <<>>, current_command_split = undefined, command_split_reset_trigger = undefined } };
+        { compression, NewInflator, NewDeflator } ->
+            eimap:compress(ImapSession), % TODO: make optional
+            { Acc, State#state{ inflator = NewInflator, deflator = NewDeflator, buffered_client_data = <<>>, current_command_split = undefined, command_split_reset_trigger = undefined } };
+        nochange ->
+            %We  first check if we have to reset the split command before we process the new command in apply_ruleset_clientside
+            NewSplit = update_split_command_state_client(ClientDataComponents, State),
+            { ModifiedData, NewSplitCommand, NewSplitResetTrigger, NewUndecidedRules, NewActiveRules, PostAction } = apply_ruleset_clientside(ImapSession, Socket, Data, ClientDataComponents, NewSplit, UndecidedRules, ActiveRules),
+            { SendThisData, BufferThisData } =
+            case PostAction of
+                perform_passthrough ->
+                    {ModifiedData, <<>>};
+                buffer_data ->
+                    {<<>>, Data}
+            end,
+            { <<Acc/binary, SendThisData/binary>>, State#state{ rules_deciding = NewUndecidedRules, rules_active = NewActiveRules, buffered_client_data = BufferThisData, current_command_split = NewSplitCommand, command_split_reset_trigger = NewSplitResetTrigger } }
+    end.
+
+preprocess_client_data(undefined, Data, #state{ buffered_client_data = Buffered }) ->
+    <<Buffered/binary, Data/binary>>;
+preprocess_client_data(Z, Data, #state{ buffered_client_data = Buffered }) ->
+    Inflated = iolist_to_binary(zlib:inflate(Z, Data)),
+    <<Buffered/binary, Inflated/binary>>.
+
+postprocess_server_data(undefined, Data) ->
+    %% we aren't compressing so there is nothing to do
+    Data;
+postprocess_server_data(Z, Data) ->
+    iolist_to_binary(zlib:deflate(Z, Data, sync)).
+
+init_rules(RuleConfig) -> init_rule(RuleConfig, []).
+init_rule([], Acc) -> Acc;
+init_rule([{ RuleName, Config }|RuleConfig], Acc) ->
+    Module = full_rule_name(RuleName),
+    %% we try to new the module, but if something goes wrong, e.g. it does not exist,
+    %% then we skip this config block because it is BROKEN
+    try Module:new(Config) of
+        ModuleState -> init_rule(RuleConfig, [{ Module, ModuleState }|Acc])
+    catch
+        Type:Error ->
+            lager:warning("Could not create rule for ~p due to failure: ~p ~p", [RuleName, Type, Error]),
+            init_rule(RuleConfig, Acc)
+    end;
+init_rule([_|RuleConfig], Acc) ->
+    init_rule(RuleConfig, Acc).
+
+full_rule_name(Module) when is_atom(Module) -> list_to_atom("kolab_guam_rule_" ++ atom_to_list(Module)).
+
+apply_ruleset_serverside(ImapSession, ServerData, CurrentlyActiveRules) ->
+    %TODO: allow undecided rules to opt-in here as well
+    apply_next_rule_serverside(ImapSession, ServerData, [], CurrentlyActiveRules).
+
+apply_next_rule_serverside(_ImapSession, ServerData, ActiveRulesAcc, []) -> { ServerData, lists:reverse(ActiveRulesAcc) };
+apply_next_rule_serverside(ImapSession, ServerData, ActiveRulesAcc, [{ Module, RuleState } | ActiveRules]) ->
+    %TODO: allow rules to remove themselves from the action during serverside processing?
+    { ModifiedData, ModifiedRuleState } = Module:apply_to_server_message(ImapSession, ServerData, RuleState),
+    apply_next_rule_serverside(ImapSession, ModifiedData, [{ Module, ModifiedRuleState } | ActiveRulesAcc], ActiveRules).
+
+apply_ruleset_clientside(_ImapSession, _Socket, ClientData, _ClientDataComponents, _CurrentCommandSplit, [], []) ->
+    { ClientData, undefined, [], [], [], perform_passthrough };
+apply_ruleset_clientside(ImapSession, Socket, ClientData, ClientDataComponents, CurrentCommandSplit, UndecidedRules, CurrentlyActiveRules) ->
+    { PostAction, SplitCommand, SplitResetTrigger } =
+        case CurrentCommandSplit of
+            undefined ->
+                case ClientDataComponents of
+                    % In case of an empty line ("\r\n") the line is complete (doesn't need to be buffered), but there is also no command or tag.
+                    { <<>>, <<>>, <<>> } -> { perform_passthrough, CurrentCommandSplit, reset_for_next_client_command };
+                    { _Tag, <<>>, <<>> } -> { buffer_data, undefined, reset_for_next_client_command };
+                    { _Tag, Command, _Data } = Split -> { perform_passthrough, Split, when_to_reset_split(Command) }
+                end;
+            _ ->  { perform_passthrough, CurrentCommandSplit, reset_for_next_client_command }
+        end,
+    { StillUndecided, NewlyActive } = check_undecided(Socket, ClientData, SplitCommand, UndecidedRules),
+    ActiveRules = CurrentlyActiveRules ++ NewlyActive,
+    %lager:info("Active Rules: ~p", [ActiveRules]),
+    { ModifiedData, ActiveRulesRun } = apply_next_rule_clientside(ImapSession, ClientData, SplitCommand, [], ActiveRules),
+    { ModifiedData, SplitCommand, SplitResetTrigger, StillUndecided, ActiveRulesRun, PostAction }.
+
+when_to_reset_split(<<"AUTHENTICATE">>) -> reset_on_server_response;
+when_to_reset_split(<<"authenticate">>) -> reset_on_server_response;
+when_to_reset_split(_) -> reset_for_next_client_command.
+
+check_undecided(_Socket, _ClientData, undefined, Rules) ->
+    %% if we do not have a properly split command ... do nothing!
+    { Rules, [] };
+check_undecided(Socket, ClientData, SplitCommand, Rules) -> check_next_undecided_rule(Socket, ClientData, SplitCommand, Rules, { [], [] }).
+check_next_undecided_rule(_Socket, _ClientData, _SplitCommand, [], Accs) -> Accs;
+check_next_undecided_rule(Socket, ClientData, SplitCommand, [Rule|Rules], { UndecidedAcc, NewActiveAcc }) ->
+    { Module, RuleState } = Rule,
+    %%lager:debug("Does ~p apply with state ~p? let's find out!", [Module, RuleState]),
+    Application = Module:applies(Socket, ClientData, SplitCommand, RuleState),
+    check_next_undecided_rule(Socket, ClientData, SplitCommand, Rules, applies(Module, Application, UndecidedAcc, NewActiveAcc)).
+
+applies(Module, { true, RuleState }, UndecidedAcc, NewActiveAcc) -> { UndecidedAcc, [{ Module, RuleState }|NewActiveAcc] };
+applies(_Module, { false, _RuleState }, UndecidedAcc, NewActiveAcc) -> { UndecidedAcc, NewActiveAcc };
+applies(Module, { notyet, RuleState }, UndecidedAcc, NewActiveAcc) -> { [{ Module, RuleState }|UndecidedAcc], NewActiveAcc }.
+
+apply_next_rule_clientside(_ImapSession, ClientData, _SplitCommand, ActiveRulesAcc, []) -> { ClientData, lists:reverse(ActiveRulesAcc) };
+apply_next_rule_clientside(ImapSession, ClientData, SplitCommand, ActiveRulesAcc, [{ Module, RuleState }|Rules]) ->
+    { Data, NewState } = Module:apply_to_client_message(ImapSession, ClientData, SplitCommand, RuleState),
+    apply_next_rule_clientside(ImapSession, Data, SplitCommand, [{ Module, NewState } | ActiveRulesAcc], Rules).
+
+relay_response(Socket, Data, false) ->
+    %lager:debug("Sending over non-secure socket ..."),
+    gen_tcp:send(Socket, Data);
+relay_response(Socket, Data, _TLS) ->
+    %lager:debug("Sending over TLS!"),
+    ssl:send(Socket, Data).
+
+check_for_transmission_change_commands(TLS, TLSConfig, ClientDataComponents, Deflator, Socket) ->
+    {Tag, Command, _Data } = ClientDataComponents,
+    case check_tls_state(TLS, TLSConfig, Command, Deflator, Socket, Tag) of
+        nochange -> check_compress_request(Deflator, Command, Socket, TLS, Tag);
+        Response -> Response
+    end.
+
+check_tls_state(false, TLSConfig, <<"STARTTLS">>, Deflator, Socket, Tag) -> start_client_tls(TLSConfig, Deflator, Socket, Tag);
+check_tls_state(false, TLSConfig, <<"starttls">>, Deflator, Socket, Tag) -> start_client_tls(TLSConfig, Deflator, Socket, Tag);
+check_tls_state(_TLS, _TLSConfig, _Buffer, _Deflator, _Socket, _Tag) -> nochange.
+
+start_client_tls(TLSConfig, Deflator, Socket, Tag) ->
+    Response = <<Tag/binary, " OK Begin TLS negotiation now\r\n">>,
+    relay_response(Socket, postprocess_server_data(Deflator, Response), false),
+    inet:setopts(Socket, [{ active, false }]), %% must be set to active false, otherwise can fail depending on timing
+    { ok, SSLSocket } = ssl:ssl_accept(Socket, TLSConfig),
+    { socket_upgraded, SSLSocket }.
+
+check_compress_request(undefined, <<"COMPRESS">>, Socket, TLS, Tag) -> start_client_compression(Socket, TLS, Tag);
+check_compress_request(undefined, <<"compress">>, Socket, TLS, Tag) -> start_client_compression(Socket, TLS, Tag);
+check_compress_request(_Deflator, _Command, _Socket, _TLS, _Tag) -> nochange.
+
+start_client_compression(Socket, TLS, Tag) ->
+    Response = <<Tag/binary, " OK DEFLATE active\r\n">>,
+    relay_response(Socket, postprocess_server_data(undefined, Response), TLS),
+    %% create an inflate/deflate pair for use with the client
+    Inflator = zlib:open(),
+    ok = zlib:inflateInit(Inflator, -15),
+    Deflator = zlib:open(),
+    ok = zlib:deflateInit(Deflator, 1, deflated, -15, 8, default),
+    { compression, Inflator, Deflator }.
+
+
+-spec correct_hello(TLSActive :: true | false, ImplicitTLS :: true | false, TlSConfig :: [] | list(), ServerHello :: binary()) -> CorrectedHello :: binary().
+correct_hello(true, true, _TLSConfig, ServerResponse) ->
+    % the connection is already secured, so don't advertise starttls to the client
+    ensure_hello_does_not_have_starttls(ServerResponse);
+correct_hello(true, _ImplicitTLS, _TLSConfig, ServerResponse) ->
+    % the connection is already secured, so don't advertise starttls to the client
+    ensure_hello_does_not_have_starttls(ServerResponse);
+correct_hello(_TLSActive, _ImplicitTLS, [], ServerResponse) ->
+    % guam does not have a TLS config and so can not provide TLS to the client
+    ensure_hello_does_not_have_starttls(ServerResponse);
+correct_hello(_TLSActive, _ImplicitTLS, _TLSConfig, ServerResponse) ->
+    % guam has a TLS config, and it is not currently active, so make sure to include
+    % STARTTLS in our response regardless of what the backend says
+    ensure_hello_has_starttls(ServerResponse).
+
+ensure_hello_has_starttls(ServerResponse) ->
+    ServerHello = proplists:get_value(capabilities, ServerResponse, <<>>),
+    case binary:match(ServerHello, <<"STARTTLS">>) of
+        nomatch -> add_starttls_to_capabilities(ServerHello);
+        _ -> ServerHello
+    end.
+
+add_starttls_to_capabilities(ServerHello) ->
+    case binary:match(ServerHello, <<"CAPABILITY ">>) of
+        nomatch -> add_starttls_after_imap4_atom(ServerHello);
+        { Start, End } ->
+            Prefix = binary:part(ServerHello, 0, Start + End),
+            Suffix = binary:part(ServerHello, Start + End, size(ServerHello) - Start - End),
+            CorrectHello = <<Prefix/binary, "STARTTLS ", Suffix/binary>>,
+            remove_auth_offers(CorrectHello)
+    end.
+
+add_starttls_after_imap4_atom(ServerHello) ->
+    case binary:match(ServerHello, <<"IMAP4rev1 ">>) of
+        nomatch -> <<"STARTTLS ", ServerHello/binary>>;
+        { Start, End } ->
+            Prefix = binary:part(ServerHello, 0, Start + End),
+            Suffix = binary:part(ServerHello, Start + End, size(ServerHello) - Start - End),
+            CorrectHello = <<Prefix/binary, "STARTTLS ", Suffix/binary>>,
+            remove_auth_offers(CorrectHello)
+    end.
+
+ensure_hello_does_not_have_starttls(ServerResponse) ->
+    ServerHello = proplists:get_value(capabilities, ServerResponse, <<>>),
+    case binary:match(ServerHello, <<"STARTTLS">>) of
+        nomatch -> ServerHello;
+        { Start, End } ->
+            Prefix = binary:part(ServerHello, 0, Start),
+            Suffix = binary:part(ServerHello, Start + End, size(ServerHello) - Start - End),
+            <<Prefix/binary, Suffix/binary>>
+    end.
+
+remove_auth_offers(ServerHello) ->
+    case binary:match(ServerHello, <<"AUTH=">>) of
+        nomatch -> ensure_advertise_login_disabled(ServerHello);
+        { Start, _End } ->
+            Prefix = binary:part(ServerHello, 0, Start),
+            Suffix =
+            case binary:match(ServerHello, <<" ">>, [{ scope, { Start, size(ServerHello) - Start } }]) of
+                nomatch ->
+                    %% end of the line, so no suffix
+                    <<>>;
+                { SpaceStart, SpaceEnd } ->
+                    binary:part(ServerHello, SpaceStart + SpaceEnd, size(ServerHello) - SpaceStart - SpaceEnd)
+            end,
+            remove_auth_offers(<<Prefix/binary, Suffix/binary>>)
+    end.
+
+ensure_advertise_login_disabled(ServerHello) ->
+    case binary:match(ServerHello, <<"LOGINDISABLED">>) of
+        nomatch -> <<ServerHello/binary, " LOGINDISABLED">>;
+        _ -> ServerHello
+    end.
+

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/src/kolab_guam_session.hrl Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/src/kolab_guam_sup.erl Added

@@ -0,0 +1,54 @@
+%% 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 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 General Public License for more details.
+%%
+%% You should have received a copy of the GNU General Public License
+%% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+-module(kolab_guam_sup).
+
+-behaviour(supervisor).
+
+%% API
+-export([start_link/0, default_imap_server_config/0, imap_server_config/1]).
+
+%% Supervisor callbacks
+-export([init/1]).
+
+%% ===================================================================
+%% API functions
+%% ===================================================================
+
+start_link() ->
+    supervisor:start_link({local, ?MODULE}, ?MODULE, []).
+
+default_imap_server_config() -> imap_server_config(default).
+
+imap_server_config(DefinitionName) when is_atom(DefinitionName) ->
+    ServerDefinitions = application:get_env(kolab_guam, imap_servers, []),
+    proplists:get_value(DefinitionName, ServerDefinitions, []).
+
+%% ===================================================================
+%% Supervisor callbacks
+%% ===================================================================
+
+init([]) ->
+    lager:debug("Creating listeners ..."),
+    ListenersConfig = application:get_env(kolab_guam, listeners, []),
+    Children = [ create_child(Name, ListenerConfig) || { Name, ListenerConfig } <- ListenersConfig ],
+    lager:debug("We have ~p~n", [Children]),
+    { ok, { { one_for_one, 5, 10}, Children } }.
+
+create_child(Name, ListenerConfig) ->
+    lager:debug("Making listener \"~p\" with ~p", [Name, ListenerConfig]),
+    { Name, { kolab_guam_listener, start_link, [Name, ListenerConfig] }, permanent, 5000, supervisor, [Name] }.

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/src/rules Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/src/rules/kolab_guam_rule_audit.erl Added

@@ -0,0 +1,109 @@
+%% Copyright 2021 Apheleia IT AG (http://www.apheleia.ch)
+%%
+%% Aaron Seigo (Kolab Systems) <seigo a kolabsys.com>
+%% Christian Mollekopf (Apheleia IT) <mollekopf a apheleia.ch>
+%%
+%% This program is free software: you can redistribute it and/or modify
+%% it under the terms of the GNU 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 General Public License for more details.
+%%
+%% You should have received a copy of the GNU General Public License
+%% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+-module(kolab_guam_rule_audit).
+-export([new/1, applies/4, imap_data/3, apply_to_client_message/4, apply_to_server_message/3]).
+-behavior(kolab_guam_rule).
+
+-include("kolab_guam_rule_audit.hrl").
+
+new(_Config) -> #state { }.
+
+peername({sslsocket, _, _} = Socket) -> ssl:peername(Socket);
+peername(Socket) -> inet:peername(Socket).
+
+applies(Socket, _Buffer, { _Tag, _Command, _Data }, State) ->
+    {ok, {Ip, _Port}} = peername(Socket),
+    % This command is always immediately active as we expect the LOGIN command at the beginning
+    { true, State#state{ ip = Ip }}.
+
+
+% Unused
+imap_data(_ResponseToken, _Response, State) -> State.
+
+
+apply_to_client_message(_ImapSession, Buffer, undefined, State) ->
+    { Buffer, State };
+
+% We just buffer the entire command once activated
+apply_to_client_message(_ImapSession, Buffer, { _Tag, _Command, _Data }, #state{ buffer = LeftOvers, active = true } = State) ->
+    { Buffer, State#state{ buffer = <<LeftOvers/binary, Buffer/binary>> }};
+
+% Monitor for the trigger command, otherwise do nothing
+apply_to_client_message(ImapSession, Buffer, { Tag, Command, Data }, State) ->
+    case is_triggering_command(Command, Data, State) of
+        true -> apply_to_client_message(ImapSession, Buffer, { Tag, Command, Data }, State#state{ active = true, tag = Tag, command = Command });
+        _ -> { Buffer, State }
+    end.
+
+
+apply_to_server_message(_ImapSession, Buffer, #state{ active = true, tag = Tag, ip = Ip, buffer = FullBuffer, command = Command } = State) ->
+    NewState = case eimap_utils:is_tagged_response(Buffer, Tag) of
+        tagged ->
+            Username = extract_username(FullBuffer, Command),
+            case eimap_utils:check_response_for_failure(Buffer, Tag) of
+                ok ->
+                    lager:info("login: ~s from ~s, OK", [Username, inet:ntoa(Ip)]),
+                    State#state{ active = false, username = Username };
+                { no, Reason } ->
+                    lager:info("badlogin: ~s from ~s, NO: ~s", [Username, inet:ntoa(Ip), Reason]),
+                    State#state{ active = false, username = Username };
+                { bad, Reason } ->
+                    lager:info("badlogin: ~s from ~s, BAD: ~s", [Username, inet:ntoa(Ip), Reason]),
+                    State#state{ active = false, username = Username }
+            end;
+        untagged -> State
+    end,
+    { Buffer, NewState };
+
+% Do nothing if not active
+apply_to_server_message(_ImapSession, Buffer, State) ->
+    { Buffer, State }.
+
+%%PRIVATE
+is_triggering_command(Command, Data, #state{ trigger_commands = TriggerCommands }) ->
+    %% if the command is in the list of trigger commands and the ending is not "" (which means "send me
+    %% the root and separator" according to RFC 3501), then it is treated as a triggering event
+    lists:any(fun(T) -> (Command =:= T) andalso (binary:longest_common_suffix([Data, <<"\"\"">>]) =/= 2) end,
+              TriggerCommands).
+
+
+extract_username(FullBuffer, Command) ->
+    case Command of
+        Command when Command =:= <<"AUTHENTICATE">>; Command =:= <<"authenticate">> ->
+            Lines = binary:split(FullBuffer, <<"\r\n">>, [ global ]),
+            FirstLine = lists:nth(1, Lines),
+            FirstLineParts = binary:split(FirstLine, <<" ">>, [ global ]),
+            AuthenticateMethod = lists:last(FirstLineParts),
+            case AuthenticateMethod of
+                <<"PLAIN">> ->
+                    Decoded = base64:decode(lists:nth(2, Lines)),
+                    % In the form of \0$username\0$password
+                    Split = binary:split(Decoded, <<0>>, [ global ]),
+                    lists:nth(2, Split);
+                <<"LOGIN">> ->
+                    base64:decode(lists:nth(2, Lines));
+                _ ->
+                    %TODO SASL-IR would go here
+                    lager:info("AUTHENTICATE method not implemented ~p", [AuthenticateMethod]),
+                    <<"Not implemented">>
+            end;
+        <<"LOGIN">> ->
+            List = binary:split(FullBuffer, <<" ">>, [ global ]),
+            lists:nth(3, List)
+    end.

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/src/rules/kolab_guam_rule_audit.hrl Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/src/rules/kolab_guam_rule_filter_groupware.erl Added

@@ -0,0 +1,222 @@
+%% 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 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 General Public License for more details.
+%%
+%% You should have received a copy of the GNU General Public License
+%% along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+-module(kolab_guam_rule_filter_groupware).
+-export([new/1, applies/4, imap_data/3, apply_to_client_message/4, apply_to_server_message/3]).
+-behavior(kolab_guam_rule).
+
+-include("kolab_guam_rule_filter_groupware.hrl").
+
+new(_Config) -> #state { blacklist = undefined }.
+
+applies(_ConnectionDetails, _Buffer, { _Tag, Command, Data }, State) ->
+    Applies = apply_if_id_matches(Command, Data, State),
+    %lager:debug("********** Checking ...~n    Command: ~s ~s, Result ~p", [Command, Data, Applies]),
+    { Applies, State }.
+
+apply_to_client_message(_ImapSession, Buffer, undefined, State) ->
+    { Buffer, State };
+
+apply_to_client_message(ImapSession, Buffer, { Tag, Command, Data }, State) ->
+    { Active, StateTag } =
+    case is_triggering_command(Command, Data, State) of
+        true -> fetch_metadata(ImapSession, State), { true, Tag };
+        _ -> { false, <<>> }
+    end,
+    %lager:info("Client sent: ~s ~s ~p", [Command, Data, Active]),
+    { Buffer, State#state{ active = Active, tag = StateTag }}.
+
+apply_to_server_message(_ImapSession, Buffer, #state{ active = true } = State) ->
+    filter_folders(Buffer, State);
+apply_to_server_message(_ImapSession, Buffer, State) -> { Buffer, State }.
+
+imap_data(_ResponseToken, { error, _Reason }, State) -> State;
+imap_data(_ResponseToken, Response, State) ->
+    %TODO: we don't need Foo/Bar if we already have Foo, so filter folders-of-groupwarefolders
+    Blacklist = lists:foldl(fun({ _Folder, [ { _Property, null } ]}, Acc) -> Acc;
+                               ({ _Folder, [ { _Property, <<"mail", _Rest/binary>> } ]}, Acc) -> Acc;
+                               ({ Folder, _ }, Acc) -> [{ Folder, <<Folder/binary, "/">> }|Acc] end,
+                            [], Response),
+    State#state{ blacklist = Blacklist }.
+
+%%PRIVATE
+is_triggering_command(Command, Data, #state{ trigger_commands = TriggerCommands }) ->
+    %% if the command is in the list of trigger commands and the ending is not "" (which means "send me
+    %% the root and separator" according to RFC 3501), then it is treated as a triggering event
+    lists:any(fun(T) -> (Command =:= T) andalso (binary:longest_common_suffix([Data, <<"\"\"">>]) =/= 2) end,
+              TriggerCommands).
+
+
+fetch_metadata(none, #state{ blacklist = undefined }) -> ok;
+fetch_metadata(ImapSession, #state{ blacklist = undefined }) ->
+    eimap:get_folder_metadata(ImapSession, self(), { rule_data, ?MODULE, blacklist }, "*", ["/shared/vendor/kolab/folder-type"]);
+fetch_metadata(_ImapSession, _State) -> ok.
+
+apply_if_id_matches(<<"ID">>, Data, _State) ->
+    apply_if_found_kolab(string:str(string:to_lower(binary_to_list(Data)), "/kolab"));
+apply_if_id_matches(Command, Data, State) ->
+    case is_triggering_command(Command, Data, State) of
+        true -> true;
+        _ -> notyet
+    end.
+
+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 } }.
+
+filter_folders(_State, [], Return) -> Return;
+filter_folders(_State, _Folders, { Acc, false }) -> { Acc, false };
+filter_folders(State, [Unfiltered|Folders], { Acc, _More }) -> filter_folders(State, Folders, filter_folder(State, Unfiltered, Acc)).
+
+filter_folder(_State, <<>>, Acc) -> { Acc, true };
+filter_folder(State, <<"* LIST ", Details/binary>> = Response, Acc) -> { filter_on_details(State, Response, Acc, Details), true };
+filter_folder(State, <<"* XLIST ", Details/binary>> = Response, Acc) -> { filter_on_details(State, Response, Acc, Details), true };
+filter_folder(State, <<"* LSUB ", Details/binary>> = Response, Acc) -> { filter_on_details(State, Response, Acc, Details), true };
+filter_folder(State, <<"* STATUS ", Details/binary>> = Response, Acc) -> { filter_on_details(State, Response, Acc, Details), true };
+filter_folder(#state{ tag = Tag }, Response, Acc) ->
+    HasMore =
+    case byte_size(Tag) =< byte_size(Response) of
+        true ->
+            case binary:match(Response, Tag, [{ scope, { 0, byte_size(Tag) } }]) of
+                nomatch -> true;
+                _ -> false % we have found our closing tag!
+            end;
+        false -> true
+    end,
+    { add_response(Response, Acc), HasMore }.
+
+filter_on_details(#state{ blacklist = Blacklist }, Response, Acc, Details) ->
+    %% Remove "*" and extract response command name
+    { _, Start, _ } = pop_token(Response), %% asterisk
+    { Cmd, _, _ } = pop_token(Start), %% command
+
+    %% Extract folder name
+    Suffix =
+    case Cmd =:= <<"STATUS">> of
+        true -> Details;
+        _ ->
+            { Pos, _Length } = binary:match(Details, [<<")">>], []),
+            { _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">>])),
+
+    %% Check the folder in blacklist
+    %% io:format("COMPARING ~p ??? ~p~n", [Folder, in_blacklist(Folder, Blacklist)]),
+    case in_blacklist(Folder, Blacklist) of
+        true -> Acc;
+        _ -> add_response(Response, Acc)
+    end.
+
+add_response(Response, <<>>) -> Response;
+add_response(Response, Acc) -> <<Acc/binary, "\r\n", Response/binary>>.
+
+in_blacklist(_Folder, undefined) -> false;
+in_blacklist(_Folder, []) -> false;
+in_blacklist(Folder, [{ Literal, Prefix }|List]) ->
+    case Literal =:= Folder of
+        true -> true;
+        _ -> case binary:match(Folder, Prefix) of
+                 { 0, _ } -> true;
+                 _ -> in_blacklist(Folder, List)
+             end
+    end.
+
+%% pop_token from https://github.com/MainframeHQ/switchboard/blob/master/src/imap.erl (BSD Lic.)
+%% with some small changes by Aleksander Machniak <machniak@kolabsys.com>
+pop_token(Data) ->
+    pop_token(Data, none).
+
+pop_token(<<>>, State) ->
+    {none, <<>>, State};
+
+%% Consume hanging spaces
+pop_token(<<" ", Rest/binary>>, none) ->
+    pop_token(Rest, none);
+
+%% \r\n
+pop_token(<<$\r, $\n, Rest/binary>>, none) ->
+    {crlf, Rest, none};
+
+%% NIL
+pop_token(<<"NIL", Rest/binary>>, none) ->
+    {nil, Rest, none};
+
+%% ( | ) | [ | ]
+pop_token(<<$(, Rest/binary>>, none) ->
+    {'(', Rest, none};
+pop_token(<<$), Rest/binary>>, none) ->
+    {')', Rest, none};
+
+
+%% Atom
+pop_token(<<C, _/binary>> = Data, {atom, AtomAcc}) when
+  C =:= 32; C =:= 40; C =:= 41; C =:= $(; C =:= $) ->
+    {AtomAcc, Data, none};
+pop_token(<<$\r, $\n, _/binary>> = Data, {atom, AtomAcc}) ->
+    {AtomAcc, Data, none};
+pop_token(<<C, Rest/binary>>, none) when C >= 35, C < 123 ->
+    pop_token(Rest, {atom, <<C>>});
+pop_token(<<C, Rest/binary>>, {atom, AtomAcc}) when C >= 35, C < 123 ->
+    pop_token(Rest, {atom, <<AtomAcc/binary, C>>});
+
+%% Literal Strings
+pop_token(<<${, Rest/binary>>, none) ->
+    pop_token(Rest, {literal, <<>>});
+pop_token(<<$}, $\r, $\n, Rest/binary>>, {literal, ByteAcc}) ->
+    pop_token(Rest, {literal, binary_to_integer(ByteAcc), <<>>});
+pop_token(<<D, Rest/binary>>, {literal, ByteAcc}) when D >= 48, D < 58 ->
+    pop_token(Rest, {literal, <<ByteAcc/binary, D>>});
+pop_token(Binary, {literal, Bytes, LiteralAcc}) when is_integer(Bytes) ->
+    case Binary of
+        <<Literal:Bytes/binary, Rest/binary>> ->
+            {<<LiteralAcc/binary, Literal/binary>>, Rest, none};
+        _ ->
+            %% If the binary is too short, accumulate it in the state
+            pop_token(<<>>, {literal, Bytes - size(Binary), <<LiteralAcc/binary, Binary/binary>>})
+    end;
+
+%% Quoted Strings
+pop_token(<<$", Rest/binary>>, none) ->
+    pop_token(Rest, {quoted, <<>>});
+pop_token(<<$\\, C, Rest/binary>>, {quoted, Acc}) ->
+    pop_token(Rest, {quoted, <<Acc/binary, C>>});
+pop_token(<<$", Rest/binary>>, {quoted, Acc}) ->
+    {Acc, Rest, none};
+pop_token(<<$\r, $\n, _>>, {quoted, _}) ->
+    throw({error, crlf_in_quoted});
+pop_token(<<C, Rest/binary>>, {quoted, Acc}) ->
+    pop_token(Rest, {quoted, <<Acc/binary, C>>});
+
+pop_token(Binary, _) ->
+    {none, Binary, none}.

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/kolab_guam-0.9.11/src/rules/kolab_guam_rule_filter_groupware.hrl Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1 Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/error_logger_lager_h.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager.app Added

@@ -0,0 +1,37 @@
+{application,lager,
+             [{description,"Erlang logging framework"},
+              {vsn,"3.8.1"},
+              {modules,[error_logger_lager_h,lager,lager_app,
+                        lager_backend_throttle,lager_common_test_backend,
+                        lager_config,lager_console_backend,lager_crash_log,
+                        lager_default_formatter,lager_file_backend,
+                        lager_format,lager_handler_watcher,
+                        lager_handler_watcher_sup,lager_manager_killer,
+                        lager_msg,lager_rotator_behaviour,
+                        lager_rotator_default,lager_stdlib,lager_sup,
+                        lager_transform,lager_trunc_io,lager_util]},
+              {applications,[kernel,stdlib,goldrush]},
+              {registered,[lager_sup,lager_event,lager_crash_log,
+                           lager_handler_watcher_sup]},
+              {mod,{lager_app,[]}},
+              {env,[{colored,false},
+                    {colors,[{debug,"\e[0;38m"},
+                             {info,"\e[1;37m"},
+                             {notice,"\e[1;36m"},
+                             {warning,"\e[1;33m"},
+                             {error,"\e[1;31m"},
+                             {critical,"\e[1;35m"},
+                             {alert,"\e[1;44m"},
+                             {emergency,"\e[1;41m"}]},
+                    {crash_log,"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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager_app.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager_backend_throttle.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager_common_test_backend.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager_config.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager_console_backend.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager_crash_log.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager_default_formatter.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager_file_backend.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager_format.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager_handler_watcher.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager_handler_watcher_sup.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager_manager_killer.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager_msg.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager_rotator_behaviour.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager_rotator_default.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager_stdlib.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager_sup.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager_transform.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager_trunc_io.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/ebin/lager_util.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/include Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/priv Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/src Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/src/lager.app.src Added

@@ -0,0 +1,29 @@
+{application,lager,
+             [{description,"Erlang logging framework"},
+              {vsn,"3.8.1"},
+              {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,"\e[0;38m"},
+                             {info,"\e[1;37m"},
+                             {notice,"\e[1;36m"},
+                             {warning,"\e[1;33m"},
+                             {error,"\e[1;31m"},
+                             {critical,"\e[1;35m"},
+                             {alert,"\e[1;44m"},
+                             {emergency,"\e[1;41m"}]},
+                    {crash_log,"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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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 <b>only</b> 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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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, "log/error.log"}, {level, error},
+           {size, 10485760}, {date, "$D0"}, {count, 5}]
+         },
+         {lager_file_backend,
+          [{file, "log/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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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}  ->
+            "\e[0m\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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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 < P ->
+                    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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/src/lager_rotator_behaviour.erl Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/src/lager_transform.erl Added

@@ -0,0 +1,339 @@
+%% 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,'_'}]}],
+                  [],
+                  %% trick the linter into avoiding a 'term constructed but not used' error:
+                  %% (fun() -> {error, lager_not_running} end)()
+                  [{call, Line, {'fun', Line, {clauses, [{clause, Line, [],[], [{tuple, 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,'_'}]}],
+                  [],
+                  %% same trick as above to avoid linter error
+                  [{call, Line, {'fun', Line, {clauses, [{clause, Line, [],[], [{tuple,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, Line) ->
+    list_to_atom(Prefix ++ atom_to_list(get(module)) ++ integer_to_list(Line)).
+
+%% 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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/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.11.tar.gz/_build/prod/rel/guam/lib/lager-3.8.1/src/lager_util.erl Added

@@ -0,0 +1,967 @@
+%% -------------------------------------------------------------------
+%%
+%% 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(RelPath) ->
+    case application:get_env(lager, log_root) of
+        {ok, LogRoot} when is_list(LogRoot) -> % Join relative path
+            %% check if the given RelPath contains LogRoot, if so, do not add
+            %% it again; see gh #304
+            case string:str(filename:dirname(RelPath), LogRoot) of
+                X when X > 0 ->
+                    RelPath;
+                _Zero ->
+                    filename:join(LogRoot, RelPath)
+            end;
+        undefined -> % No log_root given, keep relative path
+            RelPath
+    end.
+
+%% 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 = filename:absname(File1),
+    File2Abs = filename:absname(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("/foo/bar", expand_path("/foo/bar")),
+    ?assertEqual("foo/bar", expand_path("foo/bar")),
+
+    ok = application:set_env(lager, log_root, "log/dir"),
+    ?assertEqual("/foo/bar", expand_path("/foo/bar")), % Absolute path should not be changed
+    ?assertEqual("log/dir/foo/bar", expand_path("foo/bar")),
+    ?assertEqual("log/dir/foo/bar", expand_path("log/dir/foo/bar")), %% gh #304
+
+    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.11.tar.gz/_build/prod/rel/guam/lib/lager_syslog-3.0.1 Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager_syslog-3.0.1/ebin Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager_syslog-3.0.1/ebin/lager_syslog.app Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager_syslog-3.0.1/ebin/lager_syslog_backend.beam Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager_syslog-3.0.1/src Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager_syslog-3.0.1/src/lager_syslog.app.src Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/lib/lager_syslog-3.0.1/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.11.tar.gz/_build/prod/rel/guam/log Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/log/sasl Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/releases Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/releases/0.9.11 Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/releases/0.9.11/guam.boot Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/releases/0.9.11/guam.rel Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/releases/0.9.11/guam.script Added

@@ -0,0 +1,478 @@
+%% coding: utf-8
+%% script generated at {2021,8,9} {10,34,43}
+{script,
+    {"guam","0.9.11"},
+    [{preLoaded,
+         [atomics,counters,erl_init,erl_prim_loader,erl_tracer,erlang,
+          erts_code_purger,erts_dirty_process_signal_handler,erts_internal,
+          erts_literal_area_collector,init,persistent_term,prim_buffer,
+          prim_eval,prim_file,prim_inet,prim_net,prim_socket,prim_zip,
+          socket_registry,zlib]},
+     {progress,preloaded},
+     {path,
+         ["$ERTS_LIB_DIR/kernel-7.3.1.2/ebin",
+          "$ERTS_LIB_DIR/stdlib-3.14.2.1/ebin"]},
+     {primLoad,
+         [error_handler,application,application_controller,application_master,
+          code,code_server,erl_eval,erl_lint,erl_parse,error_logger,ets,file,
+          filename,file_server,file_io_server,gen,gen_event,gen_server,heart,
+          kernel,logger,logger_filters,logger_server,logger_backend,
+          logger_config,logger_simple_h,lists,proc_lib,supervisor]},
+     {kernel_load_completed},
+     {progress,kernel_load_completed},
+     {path,["$ERTS_LIB_DIR/kernel-7.3.1.2/ebin"]},
+     {primLoad,
+         [application_starter,auth,disk_log,disk_log_1,disk_log_server,
+          disk_log_sup,dist_ac,dist_util,erl_boot_server,erl_compile_server,
+          erl_ddll,erl_distribution,erl_epmd,erl_reply,erl_signal_handler,
+          erpc,erts_debug,gen_sctp,gen_tcp,gen_tcp_socket,gen_udp,global,
+          global_group,global_search,group,group_history,hipe_unified_loader,
+          inet,inet6_sctp,inet6_tcp,inet6_tcp_dist,inet6_udp,inet_config,
+          inet_db,inet_dns,inet_gethost_native,inet_hosts,inet_parse,inet_res,
+          inet_sctp,inet_tcp,inet_tcp_dist,inet_udp,kernel_config,kernel_refc,
+          local_tcp,local_udp,logger_disk_log_h,logger_formatter,
+          logger_h_common,logger_handler_watcher,logger_olp,logger_proxy,
+          logger_std_h,logger_sup,net,net_adm,net_kernel,os,pg,pg2,ram_file,
+          raw_file_io,raw_file_io_compressed,raw_file_io_deflate,
+          raw_file_io_delayed,raw_file_io_inflate,raw_file_io_list,
+          raw_file_io_raw,rpc,seq_trace,socket,standard_error,user,user_drv,
+          user_sup,wrap_log_reader]},
+     {path,["$ERTS_LIB_DIR/stdlib-3.14.2.1/ebin"]},
+     {primLoad,
+         [array,base64,beam_lib,binary,c,calendar,dets,dets_server,dets_sup,
+          dets_utils,dets_v9,dict,digraph,digraph_utils,edlin,edlin_expand,
+          epp,erl_abstract_code,erl_anno,erl_bits,erl_compile,erl_error,
+          erl_expand_records,erl_internal,erl_posix_msg,erl_pp,erl_scan,
+          erl_tar,error_logger_file_h,error_logger_tty_h,escript,eval_bits,
+          file_sorter,filelib,gb_sets,gb_trees,gen_fsm,gen_statem,io,io_lib,
+          io_lib_format,io_lib_fread,io_lib_pretty,log_mf_h,maps,math,
+          ms_transform,orddict,ordsets,otp_internal,pool,proplists,qlc,qlc_pt,
+          queue,rand,random,re,sets,shell,shell_default,shell_docs,slave,sofs,
+          string,supervisor_bridge,sys,timer,unicode,unicode_util,uri_string,
+          win32reg,zip]},
+     {path,["$ERTS_LIB_DIR/compiler-7.6.9.1/ebin"]},
+     {primLoad,
+         [beam_a,beam_asm,beam_block,beam_call_types,beam_clean,beam_dict,
+          beam_digraph,beam_disasm,beam_flatten,beam_jump,beam_kernel_to_ssa,
+          beam_listing,beam_opcodes,beam_peep,beam_ssa,beam_ssa_bool,
+          beam_ssa_bsm,beam_ssa_codegen,beam_ssa_dead,beam_ssa_funs,
+          beam_ssa_lint,beam_ssa_opt,beam_ssa_pp,beam_ssa_pre_codegen,
+          beam_ssa_recv,beam_ssa_share,beam_ssa_type,beam_trim,beam_types,
+          beam_utils,beam_validator,beam_z,cerl,cerl_clauses,cerl_inline,
+          cerl_sets,cerl_trees,compile,core_lib,core_lint,core_parse,core_pp,
+          core_scan,erl_bifs,rec_env,sys_core_alias,sys_core_bsm,
+          sys_core_fold,sys_core_fold_lists,sys_core_inline,sys_core_prepare,
+          sys_pre_attributes,v3_core,v3_kernel,v3_kernel_pp]},
+     {path,["$ERTS_LIB_DIR/syntax_tools-2.5/ebin"]},
+     {primLoad,
+         [epp_dodger,erl_comment_scan,erl_prettypr,erl_recomment,erl_syntax,
+          erl_syntax_lib,erl_tidy,igor,merl,merl_transform,prettypr]},
+     {path,["$ROOT/lib/goldrush-0.1.9/ebin"]},
+     {primLoad,
+         [glc,glc_code,glc_lib,glc_ops,glc_run,gr_app,gr_context,gr_counter,
+          gr_counter_sup,gr_manager,gr_manager_sup,gr_param,gr_param_sup,
+          gr_sup,gre]},
+     {path,["$ERTS_LIB_DIR/crypto-4.9.0.2/ebin"]},
+     {primLoad,[crypto,crypto_ec_curves]},
+     {path,["$ERTS_LIB_DIR/asn1-5.0.15/ebin"]},
+     {primLoad,[asn1rt_nif]},
+     {path,["$ERTS_LIB_DIR/public_key-1.10/ebin"]},
+     {primLoad,
+         ['OTP-PUB-KEY','PKCS-FRAME',pubkey_cert,pubkey_cert_records,
+          pubkey_crl,pubkey_ocsp,pubkey_pbe,pubkey_pem,pubkey_ssh,public_key]},
+     {path,["$ERTS_LIB_DIR/ssl-10.3.1.1/ebin"]},
+     {primLoad,
+         [dtls_connection,dtls_connection_sup,dtls_gen_connection,
+          dtls_handshake,dtls_listener_sup,dtls_packet_demux,dtls_record,
+          dtls_server_session_cache_sup,dtls_server_sup,dtls_socket,dtls_sup,
+          dtls_v1,inet6_tls_dist,inet_tls_dist,ssl,ssl_admin_sup,ssl_alert,
+          ssl_app,ssl_certificate,ssl_cipher,ssl_cipher_format,
+          ssl_client_session_cache_db,ssl_config,ssl_connection_sup,ssl_crl,
+          ssl_crl_cache,ssl_crl_cache_api,ssl_crl_hash_dir,ssl_dh_groups,
+          ssl_dist_admin_sup,ssl_dist_connection_sup,ssl_dist_sup,
+          ssl_gen_statem,ssl_handshake,ssl_listen_tracker_sup,ssl_logger,
+          ssl_manager,ssl_pem_cache,ssl_pkix_db,ssl_record,
+          ssl_server_session_cache,ssl_server_session_cache_db,
+          ssl_server_session_cache_sup,ssl_session,ssl_session_cache_api,
+          ssl_srp_primes,ssl_sup,ssl_upgrade_server_session_cache_sup,
+          tls_bloom_filter,tls_client_ticket_store,tls_connection,
+          tls_connection_1_3,tls_connection_sup,tls_dist_server_sup,
+          tls_dist_sup,tls_dtls_connection,tls_gen_connection,tls_handshake,
+          tls_handshake_1_3,tls_record,tls_record_1_3,tls_sender,
+          tls_server_session_ticket,tls_server_session_ticket_sup,
+          tls_server_sup,tls_socket,tls_sup,tls_v1]},
+     {path,["$ROOT/lib/lager-3.8.1/ebin"]},
+     {primLoad,
+         [error_logger_lager_h,lager,lager_app,lager_backend_throttle,
+          lager_common_test_backend,lager_config,lager_console_backend,
+          lager_crash_log,lager_default_formatter,lager_file_backend,
+          lager_format,lager_handler_watcher,lager_handler_watcher_sup,
+          lager_manager_killer,lager_msg,lager_rotator_behaviour,
+          lager_rotator_default,lager_stdlib,lager_sup,lager_transform,
+          lager_trunc_io,lager_util]},
+     {path,["$ROOT/lib/eimap-0.4.3/ebin"]},
+     {primLoad,
+         [eimap,eimap_command,eimap_command_annotation,
+          eimap_command_capability,eimap_command_compress,
+          eimap_command_getmetadata,eimap_command_login,eimap_command_logout,
+          eimap_command_namespace,eimap_command_noop,
+          eimap_command_peek_message,eimap_command_starttls,
+          eimap_command_status,eimap_command_switch_folder,eimap_uidset,
+          eimap_utils]},
+     {path,["$ROOT/lib/lager_syslog-3.0.1/ebin"]},
+     {primLoad,[lager_syslog_backend]},
+     {path,["$ROOT/lib/kolab_guam-0.9.11/ebin"]},
+     {primLoad,
+         [kolab_guam,kolab_guam_listener,kolab_guam_rule,
+          kolab_guam_rule_audit,kolab_guam_rule_filter_groupware,
+          kolab_guam_session,kolab_guam_sup]},
+     {progress,modules_loaded},
+     {path,
+         ["$ERTS_LIB_DIR/kernel-7.3.1.2/ebin",
+          "$ERTS_LIB_DIR/stdlib-3.14.2.1/ebin",
+          "$ERTS_LIB_DIR/compiler-7.6.9.1/ebin",
+          "$ERTS_LIB_DIR/syntax_tools-2.5/ebin",
+          "$ROOT/lib/goldrush-0.1.9/ebin","$ERTS_LIB_DIR/crypto-4.9.0.2/ebin",
+          "$ERTS_LIB_DIR/asn1-5.0.15/ebin",
+          "$ERTS_LIB_DIR/public_key-1.10/ebin",
+          "$ERTS_LIB_DIR/ssl-10.3.1.1/ebin","$ROOT/lib/lager-3.8.1/ebin",
+          "$ROOT/lib/eimap-0.4.3/ebin","$ROOT/lib/lager_syslog-3.0.1/ebin",
+          "$ROOT/lib/kolab_guam-0.9.11/ebin"]},
+     {kernelProcess,heart,{heart,start,[]}},
+     {kernelProcess,logger,{logger_server,start_link,[]}},
+     {kernelProcess,application_controller,
+         {application_controller,start,
+             [{application,kernel,
+                  [{description,"ERTS  CXC 138 10"},
+                   {vsn,"7.3.1.2"},
+                   {id,[]},
+                   {modules,
+                       [application,application_controller,application_master,
+                        application_starter,auth,code,code_server,dist_util,
+                        erl_boot_server,erl_compile_server,erl_distribution,
+                        erl_reply,erl_signal_handler,erpc,error_handler,
+                        error_logger,file,file_server,file_io_server,global,
+                        global_group,global_search,group,group_history,heart,
+                        hipe_unified_loader,inet6_tcp,inet6_tcp_dist,
+                        inet6_udp,inet6_sctp,inet_config,inet_hosts,
+                        inet_gethost_native,inet_tcp_dist,kernel,
+                        kernel_config,kernel_refc,local_tcp,local_udp,logger,
+                        logger_backend,logger_config,logger_disk_log_h,
+                        logger_filters,logger_formatter,logger_h_common,
+                        logger_handler_watcher,logger_olp,logger_proxy,
+                        logger_server,logger_simple_h,logger_std_h,logger_sup,
+                        net,net_adm,net_kernel,os,ram_file,rpc,user,user_drv,
+                        user_sup,disk_log,disk_log_1,disk_log_server,
+                        disk_log_sup,dist_ac,erl_ddll,erl_epmd,erts_debug,
+                        gen_tcp,gen_udp,gen_sctp,gen_tcp_socket,inet,inet_db,
+                        inet_dns,inet_parse,inet_res,inet_tcp,inet_udp,
+                        inet_sctp,pg,pg2,raw_file_io,raw_file_io_compressed,
+                        raw_file_io_deflate,raw_file_io_delayed,
+                        raw_file_io_inflate,raw_file_io_list,raw_file_io_raw,
+                        seq_trace,socket,standard_error,wrap_log_reader]},
+                   {registered,
+                       [application_controller,erl_reply,auth,boot_server,
+                        code_server,disk_log_server,disk_log_sup,
+                        erl_prim_loader,error_logger,file_server_2,
+                        fixtable_server,global_group,global_name_server,heart,
+                        init,kernel_config,kernel_refc,kernel_sup,logger,
+                        logger_handler_watcher,logger_sup,net_kernel,net_sup,
+                        rex,user,os_server,ddll_server,erl_epmd,inet_db,pg,
+                        pg2]},
+                   {applications,[]},
+                   {included_applications,[]},
+                   {env,
+                       [{logger_level,notice},
+                        {logger_sasl_compatible,false},
+                        {shell_docs_ansi,auto}]},
+                   {maxT,infinity},
+                   {maxP,infinity},
+                   {mod,{kernel,[]}}]}]}},
+     {progress,init_kernel_started},
+     {apply,
+         {application,load,
+             [{application,stdlib,
+                  [{description,"ERTS  CXC 138 10"},
+                   {vsn,"3.14.2.1"},
+                   {id,[]},
+                   {modules,
+                       [array,base64,beam_lib,binary,c,calendar,dets,
+                        dets_server,dets_sup,dets_utils,dets_v9,dict,digraph,
+                        digraph_utils,edlin,edlin_expand,epp,eval_bits,
+                        erl_abstract_code,erl_anno,erl_bits,erl_compile,
+                        erl_error,erl_eval,erl_expand_records,erl_internal,
+                        erl_lint,erl_parse,erl_posix_msg,erl_pp,erl_scan,
+                        erl_tar,error_logger_file_h,error_logger_tty_h,
+                        escript,ets,file_sorter,filelib,filename,gb_trees,
+                        gb_sets,gen,gen_event,gen_fsm,gen_server,gen_statem,
+                        io,io_lib,io_lib_format,io_lib_fread,io_lib_pretty,
+                        lists,log_mf_h,maps,math,ms_transform,orddict,ordsets,
+                        otp_internal,pool,proc_lib,proplists,qlc,qlc_pt,queue,
+                        rand,random,re,sets,shell,shell_default,shell_docs,
+                        slave,sofs,string,supervisor,supervisor_bridge,sys,
+                        timer,unicode,unicode_util,uri_string,win32reg,zip]},
+                   {registered,
+                       [timer_server,rsh_starter,take_over_monitor,
+                        pool_master,dets]},
+                   {applications,[kernel]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {maxT,infinity},
+                   {maxP,infinity}]}]}},
+     {apply,
+         {application,load,
+             [{application,compiler,
+                  [{description,"ERTS  CXC 138 10"},
+                   {vsn,"7.6.9.1"},
+                   {id,[]},
+                   {modules,
+                       [beam_a,beam_asm,beam_block,beam_call_types,beam_clean,
+                        beam_dict,beam_digraph,beam_disasm,beam_flatten,
+                        beam_jump,beam_kernel_to_ssa,beam_listing,
+                        beam_opcodes,beam_peep,beam_ssa,beam_ssa_bool,
+                        beam_ssa_bsm,beam_ssa_codegen,beam_ssa_dead,
+                        beam_ssa_funs,beam_ssa_lint,beam_ssa_opt,beam_ssa_pp,
+                        beam_ssa_pre_codegen,beam_ssa_recv,beam_ssa_share,
+                        beam_ssa_type,beam_trim,beam_types,beam_utils,
+                        beam_validator,beam_z,cerl,cerl_clauses,cerl_inline,
+                        cerl_sets,cerl_trees,compile,core_scan,core_lint,
+                        core_parse,core_pp,core_lib,erl_bifs,rec_env,
+                        sys_core_alias,sys_core_bsm,sys_core_fold,
+                        sys_core_fold_lists,sys_core_inline,sys_core_prepare,
+                        sys_pre_attributes,v3_core,v3_kernel,v3_kernel_pp]},
+                   {registered,[]},
+                   {applications,[kernel,stdlib]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {maxT,infinity},
+                   {maxP,infinity}]}]}},
+     {apply,
+         {application,load,
+             [{application,syntax_tools,
+                  [{description,"Syntax tools"},
+                   {vsn,"2.5"},
+                   {id,[]},
+                   {modules,
+                       [epp_dodger,erl_comment_scan,erl_prettypr,
+                        erl_recomment,erl_syntax,erl_syntax_lib,erl_tidy,igor,
+                        merl,merl_transform,prettypr]},
+                   {registered,[]},
+                   {applications,[stdlib]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {maxT,infinity},
+                   {maxP,infinity}]}]}},
+     {apply,
+         {application,load,
+             [{application,goldrush,
+                  [{description,"Erlang event stream processor"},
+                   {vsn,"0.1.9"},
+                   {id,[]},
+                   {modules,
+                       [glc,glc_code,glc_lib,glc_ops,glc_run,gr_app,
+                        gr_context,gr_counter,gr_counter_sup,gr_manager,
+                        gr_manager_sup,gr_param,gr_param_sup,gr_sup,gre]},
+                   {registered,[]},
+                   {applications,[kernel,stdlib,compiler,syntax_tools]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {maxT,infinity},
+                   {maxP,infinity},
+                   {mod,{gr_app,[]}}]}]}},
+     {apply,
+         {application,load,
+             [{application,crypto,
+                  [{description,"CRYPTO"},
+                   {vsn,"4.9.0.2"},
+                   {id,[]},
+                   {modules,[crypto,crypto_ec_curves]},
+                   {registered,[]},
+                   {applications,[kernel,stdlib]},
+                   {included_applications,[]},
+                   {env,[{fips_mode,false},{rand_cache_size,896}]},
+                   {maxT,infinity},
+                   {maxP,infinity}]}]}},
+     {apply,
+         {application,load,
+             [{application,asn1,
+                  [{description,"The Erlang ASN1 compiler version 5.0.15"},
+                   {vsn,"5.0.15"},
+                   {id,[]},
+                   {modules,[asn1rt_nif]},
+                   {registered,[asn1_ns,asn1db]},
+                   {applications,[kernel,stdlib]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {maxT,infinity},
+                   {maxP,infinity}]}]}},
+     {apply,
+         {application,load,
+             [{application,public_key,
+                  [{description,"Public key infrastructure"},
+                   {vsn,"1.10"},
+                   {id,[]},
+                   {modules,
+                       [public_key,pubkey_pem,pubkey_pbe,pubkey_ssh,
+                        pubkey_cert,pubkey_cert_records,pubkey_crl,
+                        pubkey_ocsp,'OTP-PUB-KEY','PKCS-FRAME']},
+                   {registered,[]},
+                   {applications,[kernel,stdlib,crypto,asn1]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {maxT,infinity},
+                   {maxP,infinity}]}]}},
+     {apply,
+         {application,load,
+             [{application,ssl,
+                  [{description,"Erlang/OTP SSL application"},
+                   {vsn,"10.3.1.1"},
+                   {id,[]},
+                   {modules,
+                       [tls_connection,tls_connection_1_3,tls_handshake,
+                        tls_handshake_1_3,tls_record,tls_record_1_3,
+                        tls_socket,tls_v1,tls_connection_sup,
+                        tls_gen_connection,tls_sender,tls_server_sup,
+                        tls_server_session_ticket_sup,
+                        tls_server_session_ticket,tls_sup,ssl_dh_groups,
+                        dtls_connection,dtls_handshake,dtls_record,
+                        dtls_socket,dtls_v1,dtls_connection_sup,
+                        dtls_gen_connection,dtls_packet_demux,
+                        dtls_listener_sup,dtls_sup,dtls_server_sup,
+                        dtls_server_session_cache_sup,ssl,
+                        ssl_session_cache_api,tls_dtls_connection,ssl_config,
+                        ssl_gen_statem,ssl_handshake,ssl_record,ssl_cipher,
+                        ssl_cipher_format,ssl_srp_primes,ssl_alert,
+                        ssl_listen_tracker_sup,tls_bloom_filter,
+                        tls_client_ticket_store,inet_tls_dist,inet6_tls_dist,
+                        ssl_dist_sup,ssl_dist_connection_sup,
+                        ssl_dist_admin_sup,tls_dist_sup,tls_dist_server_sup,
+                        ssl_session,ssl_client_session_cache_db,
+                        ssl_server_session_cache,ssl_server_session_cache_db,
+                        ssl_server_session_cache_sup,
+                        ssl_upgrade_server_session_cache_sup,ssl_manager,
+                        ssl_pem_cache,ssl_pkix_db,ssl_certificate,ssl_crl,
+                        ssl_crl_cache,ssl_crl_cache_api,ssl_crl_hash_dir,
+                        ssl_logger,ssl_app,ssl_sup,ssl_admin_sup,
+                        ssl_connection_sup]},
+                   {registered,[ssl_sup,ssl_manager]},
+                   {applications,[kernel,stdlib,crypto,public_key]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {maxT,infinity},
+                   {maxP,infinity},
+                   {mod,{ssl_app,[]}}]}]}},
+     {apply,
+         {application,load,
+             [{application,lager,
+                  [{description,"Erlang logging framework"},
+                   {vsn,"3.8.1"},
+                   {id,[]},
+                   {modules,
+                       [error_logger_lager_h,lager,lager_app,
+                        lager_backend_throttle,lager_common_test_backend,
+                        lager_config,lager_console_backend,lager_crash_log,
+                        lager_default_formatter,lager_file_backend,
+                        lager_format,lager_handler_watcher,
+                        lager_handler_watcher_sup,lager_manager_killer,
+                        lager_msg,lager_rotator_behaviour,
+                        lager_rotator_default,lager_stdlib,lager_sup,
+                        lager_transform,lager_trunc_io,lager_util]},
+                   {registered,
+                       [lager_sup,lager_event,lager_crash_log,
+                        lager_handler_watcher_sup]},
+                   {applications,[kernel,stdlib,goldrush]},
+                   {included_applications,[]},
+                   {env,
+                       [{colored,false},
+                        {colors,
+                            [{debug,"\e[0;38m"},
+                             {info,"\e[1;37m"},
+                             {notice,"\e[1;36m"},
+                             {warning,"\e[1;33m"},
+                             {error,"\e[1;31m"},
+                             {critical,"\e[1;35m"},
+                             {alert,"\e[1;44m"},
+                             {emergency,"\e[1;41m"}]},
+                        {crash_log,"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}]},
+                   {maxT,infinity},
+                   {maxP,infinity},
+                   {mod,{lager_app,[]}}]}]}},
+     {apply,
+         {application,load,
+             [{application,eimap,
+                  [{description,"IMAP client implementation"},
+                   {vsn,"0.4.3"},
+                   {id,[]},
+                   {modules,
+                       [eimap,eimap_command,eimap_command_annotation,
+                        eimap_command_capability,eimap_command_compress,
+                        eimap_command_getmetadata,eimap_command_login,
+                        eimap_command_logout,eimap_command_namespace,
+                        eimap_command_noop,eimap_command_peek_message,
+                        eimap_command_starttls,eimap_command_status,
+                        eimap_command_switch_folder,eimap_uidset,eimap_utils]},
+                   {registered,[]},
+                   {applications,
+                       [kernel,stdlib,compiler,syntax_tools,crypto,ssl,lager]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {maxT,infinity},
+                   {maxP,infinity}]}]}},
+     {apply,
+         {application,load,
+             [{application,lager_syslog,
+                  [{description,"Syslog backend for Lager"},
+                   {vsn,"3.0.1"},
+                   {id,[]},
+                   {modules,[lager_syslog_backend]},
+                   {registered,[]},
+                   {applications,[kernel,stdlib]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {maxT,infinity},
+                   {maxP,infinity}]}]}},
+     {apply,
+         {application,load,
+             [{application,kolab_guam,
+                  [{description,"IMAP session proxy"},
+                   {vsn,"0.9.11"},
+                   {id,[]},
+                   {modules,
+                       [kolab_guam,kolab_guam_listener,kolab_guam_rule,
+                        kolab_guam_rule_audit,
+                        kolab_guam_rule_filter_groupware,kolab_guam_session,
+                        kolab_guam_sup]},
+                   {registered,[]},
+                   {applications,
+                       [kernel,stdlib,compiler,syntax_tools,goldrush,crypto,
+                        ssl,lager,eimap,lager_syslog]},
+                   {included_applications,[]},
+                   {env,[]},
+                   {maxT,infinity},
+                   {maxP,infinity},
+                   {mod,{kolab_guam,[]}}]}]}},
+     {progress,applications_loaded},
+     {apply,{application,start_boot,[kernel,permanent]}},
+     {apply,{application,start_boot,[stdlib,permanent]}},
+     {apply,{application,start_boot,[compiler,permanent]}},
+     {apply,{application,start_boot,[syntax_tools,permanent]}},
+     {apply,{application,start_boot,[goldrush,permanent]}},
+     {apply,{application,start_boot,[crypto,permanent]}},
+     {apply,{application,start_boot,[asn1,permanent]}},
+     {apply,{application,start_boot,[public_key,permanent]}},
+     {apply,{application,start_boot,[ssl,permanent]}},
+     {apply,{application,start_boot,[lager,permanent]}},
+     {apply,{application,start_boot,[eimap,permanent]}},
+     {apply,{application,start_boot,[lager_syslog,permanent]}},
+     {apply,{application,start_boot,[kolab_guam,permanent]}},
+     {apply,{c,erlangrc,[]}},
+     {progress,started}]}.

guam-0.9.11.tar.gz/_build/prod/rel/guam/releases/0.9.11/no_dot_erlang.boot Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/releases/0.9.11/start_clean.boot Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/releases/0.9.11/sys.config Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/releases/0.9.11/vm.args Added

@@ -0,0 +1,30 @@
+## Name of the node
+-sname guam
+
+## Cookie for distributed erlang
+-setcookie guam
+
+## Heartbeat management; auto-restarts VM if it dies or becomes unresponsive
+## (Disabled by default..use with caution!)
+##-heart
+
+## Enable kernel poll and a few async threads
+##+K true
+##+A 5
+
+## Increase number of concurrent ports/sockets
+##-env ERL_MAX_PORTS 4096
+
+## Tweak GC to run more often
+##-env ERL_FULLSWEEP_AFTER 10
+
+# +B [c | d | i]
+# Option c makes Ctrl-C interrupt the current shell instead of invoking the emulator break
+# handler. Option d (same as specifying +B without an extra option) disables the break handler. # Option i makes the emulator ignore any break signal.
+# If option c is used with oldshell on Unix, Ctrl-C will restart the shell process rather than
+# interrupt it.
+# Disable the emulator break handler
+# it easy to accidentally type ctrl-c when trying
+# to reach for ctrl-d. ctrl-c on a live node can
+# have very undesirable results
+##+Bi

guam-0.9.11.tar.gz/_build/prod/rel/guam/releases/RELEASES Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/releases/start_erl.data Added

guam-0.9.11.tar.gz/_build/prod/rel/guam/vm.args Added

guam-0.9.11.tar.gz/_checkouts Added

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

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

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

guam-0.9.11.tar.gz/_checkouts/eimap/.git Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/COMMIT_EDITMSG Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/FETCH_HEAD Added

@@ -0,0 +1,10 @@
+b054d20e32394a316b29063cb8c18cfcabdec05e		branch 'develop' of https://git.kolab.org/diffusion/EI/eimap
+1c17e71d083119d5d3bcf218ab4e4ecf4c2ab8da	not-for-merge	branch 'eimap-0.1' of https://git.kolab.org/diffusion/EI/eimap
+1cc2eda60d0cc190fdbd3d7cee112105ac72d5fb	not-for-merge	branch 'feature/T932_literal_continuations' of https://git.kolab.org/diffusion/EI/eimap
+cfcd0438a08d5d4cba5c85ad20f468e2a126fb0a	not-for-merge	branch 'feature/command_scaffolding' of https://git.kolab.org/diffusion/EI/eimap
+c4128593500ffa51433f652defef195657caec9f	not-for-merge	branch 'feature/egara_debug' of https://git.kolab.org/diffusion/EI/eimap
+8fc55d37e444fd26c0e39d5cf175af31e8a8b2ea	not-for-merge	branch 'feature/passthrough_capabilities_untouched' of https://git.kolab.org/diffusion/EI/eimap
+b054d20e32394a316b29063cb8c18cfcabdec05e	not-for-merge	branch 'master' of https://git.kolab.org/diffusion/EI/eimap
+ae27358bad821d2018ec5fdc7295484def0bf7c3	not-for-merge	branch 'release/0.2.2' of https://git.kolab.org/diffusion/EI/eimap
+313185afecfeebf40c7372a560ca25c57484a395	not-for-merge	branch 'release/0.2.4' of https://git.kolab.org/diffusion/EI/eimap
+88fafcae572c6cb5021a182c0dcd46bfb7ff5e84	not-for-merge	tag '0.4.4' of https://git.kolab.org/diffusion/EI/eimap

guam-0.9.11.tar.gz/_checkouts/eimap/.git/HEAD Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/ORIG_HEAD Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/branches Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/config Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/description Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/hooks Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/hooks/applypatch-msg.sample Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/hooks/commit-msg.sample Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/hooks/fsmonitor-watchman.sample Added

@@ -0,0 +1,173 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use IPC::Open2;
+
+# An example hook script to integrate Watchman
+# (https://facebook.github.io/watchman/) with git to speed up detecting
+# new and modified files.
+#
+# The hook is passed a version (currently 2) and last update token
+# formatted as a string and outputs to stdout a new update token and
+# all files that have been modified since the update token. Paths must
+# be relative to the root of the working tree and separated by a single NUL.
+#
+# To enable this hook, rename this file to "query-watchman" and set
+# 'git config core.fsmonitor .git/hooks/query-watchman'
+#
+my ($version, $last_update_token) = @ARGV;
+
+# Uncomment for debugging
+# print STDERR "$0 $version $last_update_token\n";
+
+# Check the hook interface version
+if ($version ne 2) {
+	die "Unsupported query-fsmonitor hook version '$version'.\n" .
+	    "Falling back to scanning...\n";
+}
+
+my $git_work_tree = get_working_dir();
+
+my $retry = 1;
+
+my $json_pkg;
+eval {
+	require JSON::XS;
+	$json_pkg = "JSON::XS";
+	1;
+} or do {
+	require JSON::PP;
+	$json_pkg = "JSON::PP";
+};
+
+launch_watchman();
+
+sub launch_watchman {
+	my $o = watchman_query();
+	if (is_work_tree_watched($o)) {
+		output_result($o->{clock}, @{$o->{files}});
+	}
+}
+
+sub output_result {
+	my ($clockid, @files) = @_;
+
+	# Uncomment for debugging watchman output
+	# open (my $fh, ">", ".git/watchman-output.out");
+	# binmode $fh, ":utf8";
+	# print $fh "$clockid\n@files\n";
+	# close $fh;
+
+	binmode STDOUT, ":utf8";
+	print $clockid;
+	print "\0";
+	local $, = "\0";
+	print @files;
+}
+
+sub watchman_clock {
+	my $response = qx/watchman clock "$git_work_tree"/;
+	die "Failed to get clock id on '$git_work_tree'.\n" .
+		"Falling back to scanning...\n" if $? != 0;
+
+	return $json_pkg->new->utf8->decode($response);
+}
+
+sub watchman_query {
+	my $pid = open2(\*CHLD_OUT, \*CHLD_IN, 'watchman -j --no-pretty')
+	or die "open2() failed: $!\n" .
+	"Falling back to scanning...\n";
+
+	# In the query expression below we're asking for names of files that
+	# changed since $last_update_token but not from the .git folder.
+	#
+	# To accomplish this, we're using the "since" generator to use the
+	# recency index to select candidate nodes and "fields" to limit the
+	# output to file names only. Then we're using the "expression" term to
+	# further constrain the results.
+	if (substr($last_update_token, 0, 1) eq "c") {
+		$last_update_token = "\"$last_update_token\"";
+	}
+	my $query = <<"	END";
+		["query", "$git_work_tree", {
+			"since": $last_update_token,
+			"fields": ["name"],
+			"expression": ["not", ["dirname", ".git"]]
+		}]
+	END
+
+	# Uncomment for debugging the watchman query
+	# open (my $fh, ">", ".git/watchman-query.json");
+	# print $fh $query;
+	# close $fh;
+
+	print CHLD_IN $query;
+	close CHLD_IN;
+	my $response = do {local $/; <CHLD_OUT>};
+
+	# Uncomment for debugging the watch response
+	# open ($fh, ">", ".git/watchman-response.json");
+	# print $fh $response;
+	# close $fh;
+
+	die "Watchman: command returned no output.\n" .
+	"Falling back to scanning...\n" if $response eq "";
+	die "Watchman: command returned invalid output: $response\n" .
+	"Falling back to scanning...\n" unless $response =~ /^\{/;
+
+	return $json_pkg->new->utf8->decode($response);
+}
+
+sub is_work_tree_watched {
+	my ($output) = @_;
+	my $error = $output->{error};
+	if ($retry > 0 and $error and $error =~ m/unable to resolve root .* directory (.*) is not watched/) {
+		$retry--;
+		my $response = qx/watchman watch "$git_work_tree"/;
+		die "Failed to make watchman watch '$git_work_tree'.\n" .
+		    "Falling back to scanning...\n" if $? != 0;
+		$output = $json_pkg->new->utf8->decode($response);
+		$error = $output->{error};
+		die "Watchman: $error.\n" .
+		"Falling back to scanning...\n" if $error;
+
+		# Uncomment for debugging watchman output
+		# open (my $fh, ">", ".git/watchman-output.out");
+		# close $fh;
+
+		# Watchman will always return all files on the first query so
+		# return the fast "everything is dirty" flag to git and do the
+		# Watchman query just to get it over with now so we won't pay
+		# the cost in git to look up each individual file.
+		my $o = watchman_clock();
+		$error = $output->{error};
+
+		die "Watchman: $error.\n" .
+		"Falling back to scanning...\n" if $error;
+
+		output_result($o->{clock}, ("/"));
+		$last_update_token = $o->{clock};
+
+		eval { launch_watchman() };
+		return 0;
+	}
+
+	die "Watchman: $error.\n" .
+	"Falling back to scanning...\n" if $error;
+
+	return 1;
+}
+
+sub get_working_dir {
+	my $working_dir;
+	if ($^O =~ 'msys' || $^O =~ 'cygwin') {
+		$working_dir = Win32::GetCwd();
+		$working_dir =~ tr/\\/\//;
+	} else {
+		require Cwd;
+		$working_dir = Cwd::cwd();
+	}
+
+	return $working_dir;
+}

guam-0.9.11.tar.gz/_checkouts/eimap/.git/hooks/post-update.sample Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/hooks/pre-applypatch.sample Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/hooks/pre-commit.sample Added

@@ -0,0 +1,49 @@
+#!/usr/bin/sh
+#
+# An example hook script to verify what is about to be committed.
+# Called by "git commit" with no arguments.  The hook should
+# exit with non-zero status after issuing an appropriate message if
+# it wants to stop the commit.
+#
+# To enable this hook, rename this file to "pre-commit".
+
+if git rev-parse --verify HEAD >/dev/null 2>&1
+then
+	against=HEAD
+else
+	# Initial commit: diff against an empty tree object
+	against=$(git hash-object -t tree /dev/null)
+fi
+
+# If you want to allow non-ASCII filenames set this variable to true.
+allownonascii=$(git config --type=bool hooks.allownonascii)
+
+# Redirect output to stderr.
+exec 1>&2
+
+# Cross platform projects tend to avoid non-ASCII filenames; prevent
+# them from being added to the repository. We exploit the fact that the
+# printable range starts at the space character and ends with tilde.
+if [ "$allownonascii" != "true" ] &&
+	# Note that the use of brackets around a tr range is ok here, (it's
+	# even required, for portability to Solaris 10's /usr/bin/tr), since
+	# the square bracket bytes happen to fall in the designated range.
+	test $(git diff --cached --name-only --diff-filter=A -z $against |
+	  LC_ALL=C tr -d '[ -~]\0' | wc -c) != 0
+then
+	cat <<\EOF
+Error: Attempt to add a non-ASCII file name.
+
+This can cause problems if you want to work with people on other platforms.
+
+To be portable it is advisable to rename the file.
+
+If you know what you are doing you can disable this check using:
+
+  git config hooks.allownonascii true
+EOF
+	exit 1
+fi
+
+# If there are whitespace errors, print the offending file names and fail.
+exec git diff-index --check --cached $against --

guam-0.9.11.tar.gz/_checkouts/eimap/.git/hooks/pre-merge-commit.sample Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/hooks/pre-push.sample Added

@@ -0,0 +1,53 @@
+#!/usr/bin/sh
+
+# An example hook script to verify what is about to be pushed.  Called by "git
+# push" after it has checked the remote status, but before anything has been
+# pushed.  If this script exits with a non-zero status nothing will be pushed.
+#
+# This hook is called with the following parameters:
+#
+# $1 -- Name of the remote to which the push is being done
+# $2 -- URL to which the push is being done
+#
+# If pushing without using a named remote those arguments will be equal.
+#
+# Information about the commits which are being pushed is supplied as lines to
+# the standard input in the form:
+#
+#   <local ref> <local sha1> <remote ref> <remote sha1>
+#
+# This sample shows how to prevent push of commits where the log message starts
+# with "WIP" (work in progress).
+
+remote="$1"
+url="$2"
+
+z40=0000000000000000000000000000000000000000
+
+while read local_ref local_sha remote_ref remote_sha
+do
+	if [ "$local_sha" = $z40 ]
+	then
+		# Handle delete
+		:
+	else
+		if [ "$remote_sha" = $z40 ]
+		then
+			# New branch, examine all commits
+			range="$local_sha"
+		else
+			# Update to existing branch, examine new commits
+			range="$remote_sha..$local_sha"
+		fi
+
+		# Check for WIP commit
+		commit=`git rev-list -n 1 --grep '^WIP' "$range"`
+		if [ -n "$commit" ]
+		then
+			echo >&2 "Found WIP commit in $local_ref, not pushing"
+			exit 1
+		fi
+	fi
+done
+
+exit 0

guam-0.9.11.tar.gz/_checkouts/eimap/.git/hooks/pre-rebase.sample Added

@@ -0,0 +1,169 @@
+#!/usr/bin/sh
+#
+# Copyright (c) 2006, 2008 Junio C Hamano
+#
+# The "pre-rebase" hook is run just before "git rebase" starts doing
+# its job, and can prevent the command from running by exiting with
+# non-zero status.
+#
+# The hook is called with the following parameters:
+#
+# $1 -- the upstream the series was forked from.
+# $2 -- the branch being rebased (or empty when rebasing the current branch).
+#
+# This sample shows how to prevent topic branches that are already
+# merged to 'next' branch from getting rebased, because allowing it
+# would result in rebasing already published history.
+
+publish=next
+basebranch="$1"
+if test "$#" = 2
+then
+	topic="refs/heads/$2"
+else
+	topic=`git symbolic-ref HEAD` ||
+	exit 0 ;# we do not interrupt rebasing detached HEAD
+fi
+
+case "$topic" in
+refs/heads/??/*)
+	;;
+*)
+	exit 0 ;# we do not interrupt others.
+	;;
+esac
+
+# Now we are dealing with a topic branch being rebased
+# on top of master.  Is it OK to rebase it?
+
+# Does the topic really exist?
+git show-ref -q "$topic" || {
+	echo >&2 "No such branch $topic"
+	exit 1
+}
+
+# Is topic fully merged to master?
+not_in_master=`git rev-list --pretty=oneline ^master "$topic"`
+if test -z "$not_in_master"
+then
+	echo >&2 "$topic is fully merged to master; better remove it."
+	exit 1 ;# we could allow it, but there is no point.
+fi
+
+# Is topic ever merged to next?  If so you should not be rebasing it.
+only_next_1=`git rev-list ^master "^$topic" ${publish} | sort`
+only_next_2=`git rev-list ^master           ${publish} | sort`
+if test "$only_next_1" = "$only_next_2"
+then
+	not_in_topic=`git rev-list "^$topic" master`
+	if test -z "$not_in_topic"
+	then
+		echo >&2 "$topic is already up to date with master"
+		exit 1 ;# we could allow it, but there is no point.
+	else
+		exit 0
+	fi
+else
+	not_in_next=`git rev-list --pretty=oneline ^${publish} "$topic"`
+	/usr/bin/perl -e '
+		my $topic = $ARGV[0];
+		my $msg = "* $topic has commits already merged to public branch:\n";
+		my (%not_in_next) = map {
+			/^([0-9a-f]+) /;
+			($1 => 1);
+		} split(/\n/, $ARGV[1]);
+		for my $elem (map {
+				/^([0-9a-f]+) (.*)$/;
+				[$1 => $2];
+			} split(/\n/, $ARGV[2])) {
+			if (!exists $not_in_next{$elem->[0]}) {
+				if ($msg) {
+					print STDERR $msg;
+					undef $msg;
+				}
+				print STDERR " $elem->[1]\n";
+			}
+		}
+	' "$topic" "$not_in_next" "$not_in_master"
+	exit 1
+fi
+
+<<\DOC_END
+
+This sample hook safeguards topic branches that have been
+published from being rewound.
+
+The workflow assumed here is:
+
+ * Once a topic branch forks from "master", "master" is never
+   merged into it again (either directly or indirectly).
+
+ * Once a topic branch is fully cooked and merged into "master",
+   it is deleted.  If you need to build on top of it to correct
+   earlier mistakes, a new topic branch is created by forking at
+   the tip of the "master".  This is not strictly necessary, but
+   it makes it easier to keep your history simple.
+
+ * Whenever you need to test or publish your changes to topic
+   branches, merge them into "next" branch.
+
+The script, being an example, hardcodes the publish branch name
+to be "next", but it is trivial to make it configurable via
+$GIT_DIR/config mechanism.
+
+With this workflow, you would want to know:
+
+(1) ... if a topic branch has ever been merged to "next".  Young
+    topic branches can have stupid mistakes you would rather
+    clean up before publishing, and things that have not been
+    merged into other branches can be easily rebased without
+    affecting other people.  But once it is published, you would
+    not want to rewind it.
+
+(2) ... if a topic branch has been fully merged to "master".
+    Then you can delete it.  More importantly, you should not
+    build on top of it -- other people may already want to
+    change things related to the topic as patches against your
+    "master", so if you need further changes, it is better to
+    fork the topic (perhaps with the same name) afresh from the
+    tip of "master".
+
+Let's look at this example:
+
+		   o---o---o---o---o---o---o---o---o---o "next"
+		  /       /           /           /
+		 /   a---a---b A     /           /
+		/   /               /           /
+	       /   /   c---c---c---c B         /
+	      /   /   /             \         /
+	     /   /   /   b---b C     \       /
+	    /   /   /   /             \     /
+    ---o---o---o---o---o---o---o---o---o---o---o "master"
+
+
+A, B and C are topic branches.
+
+ * A has one fix since it was merged up to "next".
+
+ * B has finished.  It has been fully merged up to "master" and "next",
+   and is ready to be deleted.
+
+ * C has not merged to "next" at all.
+
+We would want to allow C to be rebased, refuse A, and encourage
+B to be deleted.
+
+To compute (1):
+
+	git rev-list ^master ^topic next
+	git rev-list ^master        next
+
+	if these match, topic has not merged in next at all.
+
+To compute (2):
+
+	git rev-list master..topic
+
+	if this is empty, it is fully merged to "master".
+
+DOC_END

guam-0.9.11.tar.gz/_checkouts/eimap/.git/hooks/pre-receive.sample Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/hooks/prepare-commit-msg.sample Added

@@ -0,0 +1,42 @@
+#!/usr/bin/sh
+#
+# An example hook script to prepare the commit log message.
+# Called by "git commit" with the name of the file that has the
+# commit message, followed by the description of the commit
+# message's source.  The hook's purpose is to edit the commit
+# message file.  If the hook fails with a non-zero status,
+# the commit is aborted.
+#
+# To enable this hook, rename this file to "prepare-commit-msg".
+
+# This hook includes three examples. The first one removes the
+# "# Please enter the commit message..." help message.
+#
+# The second includes the output of "git diff --name-status -r"
+# into the message, just before the "git status" output.  It is
+# commented because it doesn't cope with --amend or with squashed
+# commits.
+#
+# The third example adds a Signed-off-by line to the message, that can
+# still be edited.  This is rarely a good idea.
+
+COMMIT_MSG_FILE=$1
+COMMIT_SOURCE=$2
+SHA1=$3
+
+/usr/bin/perl -i.bak -ne 'print unless(m/^. Please enter the commit message/..m/^#$/)' "$COMMIT_MSG_FILE"
+
+# case "$COMMIT_SOURCE,$SHA1" in
+#  ,|template,)
+#    /usr/bin/perl -i.bak -pe '
+#       print "\n" . `git diff --cached --name-status -r`
+# 	 if /^#/ && $first++ == 0' "$COMMIT_MSG_FILE" ;;
+#  *) ;;
+# esac
+
+# SOB=$(git var GIT_COMMITTER_IDENT | sed -n 's/^$.*>$.*$/Signed-off-by: \1/p')
+# git interpret-trailers --in-place --trailer "$SOB" "$COMMIT_MSG_FILE"
+# if test -z "$COMMIT_SOURCE"
+# then
+#   /usr/bin/perl -i.bak -pe 'print "\n" if !$first_line++' "$COMMIT_MSG_FILE"
+# fi

guam-0.9.11.tar.gz/_checkouts/eimap/.git/hooks/update.sample Added

@@ -0,0 +1,128 @@
+#!/usr/bin/sh
+#
+# An example hook script to block unannotated tags from entering.
+# Called by "git receive-pack" with arguments: refname sha1-old sha1-new
+#
+# To enable this hook, rename this file to "update".
+#
+# Config
+# ------
+# hooks.allowunannotated
+#   This boolean sets whether unannotated tags will be allowed into the
+#   repository.  By default they won't be.
+# hooks.allowdeletetag
+#   This boolean sets whether deleting tags will be allowed in the
+#   repository.  By default they won't be.
+# hooks.allowmodifytag
+#   This boolean sets whether a tag may be modified after creation. By default
+#   it won't be.
+# hooks.allowdeletebranch
+#   This boolean sets whether deleting branches will be allowed in the
+#   repository.  By default they won't be.
+# hooks.denycreatebranch
+#   This boolean sets whether remotely creating branches will be denied
+#   in the repository.  By default this is allowed.
+#
+
+# --- Command line
+refname="$1"
+oldrev="$2"
+newrev="$3"
+
+# --- Safety check
+if [ -z "$GIT_DIR" ]; then
+	echo "Don't run this script from the command line." >&2
+	echo " (if you want, you could supply GIT_DIR then run" >&2
+	echo "  $0 <ref> <oldrev> <newrev>)" >&2
+	exit 1
+fi
+
+if [ -z "$refname" -o -z "$oldrev" -o -z "$newrev" ]; then
+	echo "usage: $0 <ref> <oldrev> <newrev>" >&2
+	exit 1
+fi
+
+# --- Config
+allowunannotated=$(git config --type=bool hooks.allowunannotated)
+allowdeletebranch=$(git config --type=bool hooks.allowdeletebranch)
+denycreatebranch=$(git config --type=bool hooks.denycreatebranch)
+allowdeletetag=$(git config --type=bool hooks.allowdeletetag)
+allowmodifytag=$(git config --type=bool hooks.allowmodifytag)
+
+# check for no description
+projectdesc=$(sed -e '1q' "$GIT_DIR/description")
+case "$projectdesc" in
+"Unnamed repository"* | "")
+	echo "*** Project description file hasn't been set" >&2
+	exit 1
+	;;
+esac
+
+# --- Check types
+# if $newrev is 0000...0000, it's a commit to delete a ref.
+zero="0000000000000000000000000000000000000000"
+if [ "$newrev" = "$zero" ]; then
+	newrev_type=delete
+else
+	newrev_type=$(git cat-file -t $newrev)
+fi
+
+case "$refname","$newrev_type" in
+	refs/tags/*,commit)
+		# un-annotated tag
+		short_refname=${refname##refs/tags/}
+		if [ "$allowunannotated" != "true" ]; then
+			echo "*** The un-annotated tag, $short_refname, is not allowed in this repository" >&2
+			echo "*** Use 'git tag [ -a | -s ]' for tags you want to propagate." >&2
+			exit 1
+		fi
+		;;
+	refs/tags/*,delete)
+		# delete tag
+		if [ "$allowdeletetag" != "true" ]; then
+			echo "*** Deleting a tag is not allowed in this repository" >&2
+			exit 1
+		fi
+		;;
+	refs/tags/*,tag)
+		# annotated tag
+		if [ "$allowmodifytag" != "true" ] && git rev-parse $refname > /dev/null 2>&1
+		then
+			echo "*** Tag '$refname' already exists." >&2
+			echo "*** Modifying a tag is not allowed in this repository." >&2
+			exit 1
+		fi
+		;;
+	refs/heads/*,commit)
+		# branch
+		if [ "$oldrev" = "$zero" -a "$denycreatebranch" = "true" ]; then
+			echo "*** Creating a branch is not allowed in this repository" >&2
+			exit 1
+		fi
+		;;
+	refs/heads/*,delete)
+		# delete branch
+		if [ "$allowdeletebranch" != "true" ]; then
+			echo "*** Deleting a branch is not allowed in this repository" >&2
+			exit 1
+		fi
+		;;
+	refs/remotes/*,commit)
+		# tracking branch
+		;;
+	refs/remotes/*,delete)
+		# delete tracking branch
+		if [ "$allowdeletebranch" != "true" ]; then
+			echo "*** Deleting a tracking branch is not allowed in this repository" >&2
+			exit 1
+		fi
+		;;
+	*)
+		# Anything else (is there anything else?)
+		echo "*** Update hook: unknown type of update to ref $refname of type $newrev_type" >&2
+		exit 1
+		;;
+esac
+
+# --- Finished
+exit 0

guam-0.9.11.tar.gz/_checkouts/eimap/.git/index Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/info Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/info/exclude Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/logs Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/logs/HEAD Added

@@ -0,0 +1,6 @@
+0000000000000000000000000000000000000000 934b6a474d54a0409cafbde6a4dbef871b7b3b44 Christian Mollekopf <mollekopf@kolabsys.com> 1603138842 +0200	clone: from kolab:EI/eimap
+934b6a474d54a0409cafbde6a4dbef871b7b3b44 934b6a474d54a0409cafbde6a4dbef871b7b3b44 Christian Mollekopf <mollekopf@kolabsys.com> 1603138847 +0200	checkout: moving from master to develop
+934b6a474d54a0409cafbde6a4dbef871b7b3b44 db3c8462310d5e8f05d1e73672ecac5a84e5f210 Christian Mollekopf <mollekopf@kolabsys.com> 1607952281 +0100	pull: Fast-forward
+db3c8462310d5e8f05d1e73672ecac5a84e5f210 718cce79ce608debe554ddb2d6a3e4104cdc0fb8 Christian Mollekopf <mollekopf@kolabsys.com> 1621255344 +0200	commit: LITERAL+ support in literal size parsing
+718cce79ce608debe554ddb2d6a3e4104cdc0fb8 eb43d69f2af8b02effdf04181cb8a27e00db533d Christian Mollekopf <mollekopf@kolabsys.com> 1621255456 +0200	commit (amend): LITERAL+ support in literal size parsing
+eb43d69f2af8b02effdf04181cb8a27e00db533d b054d20e32394a316b29063cb8c18cfcabdec05e Christian Mollekopf <mollekopf@kolabsys.com> 1628592449 +0200	pull: Fast-forward

guam-0.9.11.tar.gz/_checkouts/eimap/.git/logs/refs Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/logs/refs/heads Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/logs/refs/heads/develop Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/logs/refs/heads/master Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/logs/refs/remotes Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/logs/refs/remotes/origin Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/logs/refs/remotes/origin/HEAD Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/logs/refs/remotes/origin/develop Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/logs/refs/remotes/origin/master Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/06 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/06/14940656cc95339c4ab21306f60bf2fc42da60 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/0a Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/0a/e7454ceb57c2b2d2b9e8c57ef269b9a6243c33 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/0c Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/0c/7e899c3562b7f4bebe2f05756c98bde5af1d9b Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/14 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/14/847eba40ca2a8958914e7aa5e93da2d5b180d1 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/16 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/16/7c0a5e4879324f365734387d65ccbed6313463 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/2c Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/2c/e1a78861e5931d6b18b6ea679138a71a8f5cc2 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/31 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/31/0de619358c3957881c084b6b5d507f64b235c6 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/3e Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/3e/3505011aad91dca4907e40592804719122e17e Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/42 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/42/a78ff69fcc051aa891bb69f88be365a613bb4e Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/46 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/46/1c9b80a1105ad59cf09a133e14a31837ecf817 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/48 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/48/5ad0027b9401a917de35d9e84e14b4fa423974 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/53 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/53/65b60249a26821dbcff98549612f91d8f2a274 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/71 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/71/8cce79ce608debe554ddb2d6a3e4104cdc0fb8 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/84 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/84/891acce35e703be79c3d857ebefd4072f70fb4 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/88 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/88/fafcae572c6cb5021a182c0dcd46bfb7ff5e84 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/ae Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/ae/026a9404cc9f142fdac8106beb5a4d05e44ca3 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/b0 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/b0/54d20e32394a316b29063cb8c18cfcabdec05e Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/b7 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/b7/f7d8a970bbb4d551cc19cf970c121afd3aeeaa Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/b8 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/b8/1628674697bf8d5f652843210f49764c8660dd Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/cc Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/cc/40613088321edd17e92bf34e449ae3a1197dcf Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/db Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/db/3c8462310d5e8f05d1e73672ecac5a84e5f210 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/e2 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/e2/e6eba6c121469b8881ade6f3fdbd06cc25179d Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/e6 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/e6/9e3d81a93a0ffd9bf07c72c1aeb15dd42b7df1 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/e6/cc7d85dacd74339d1426ff5651d3431d726984 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/eb Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/eb/43d69f2af8b02effdf04181cb8a27e00db533d Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/f1 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/f1/ea4ebfabdb39c9fab4ebd30c70d6da6adb24db Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/f4 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/f4/5092acbea0ace9f3349f8d3a14f1f63a49eba2 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/f9 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/f9/53959058b2e3945442ec2c1ff28c8f5ee08b6c Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/info Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/pack Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/pack/pack-ab1d84c50b5bf98322eacee68c11b53380634bc4.idx Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/objects/pack/pack-ab1d84c50b5bf98322eacee68c11b53380634bc4.pack Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/packed-refs Added

@@ -0,0 +1,41 @@
+# pack-refs with: peeled fully-peeled sorted 
+934b6a474d54a0409cafbde6a4dbef871b7b3b44 refs/remotes/origin/develop
+1c17e71d083119d5d3bcf218ab4e4ecf4c2ab8da refs/remotes/origin/eimap-0.1
+1cc2eda60d0cc190fdbd3d7cee112105ac72d5fb refs/remotes/origin/feature/T932_literal_continuations
+cfcd0438a08d5d4cba5c85ad20f468e2a126fb0a refs/remotes/origin/feature/command_scaffolding
+c4128593500ffa51433f652defef195657caec9f refs/remotes/origin/feature/egara_debug
+8fc55d37e444fd26c0e39d5cf175af31e8a8b2ea refs/remotes/origin/feature/passthrough_capabilities_untouched
+934b6a474d54a0409cafbde6a4dbef871b7b3b44 refs/remotes/origin/master
+ae27358bad821d2018ec5fdc7295484def0bf7c3 refs/remotes/origin/release/0.2.2
+313185afecfeebf40c7372a560ca25c57484a395 refs/remotes/origin/release/0.2.4
+a8fe23eb2f189a64da50e1e6970e812eba0d5377 refs/tags/0.1
+^c50001375e81662cae40914dcae9745273765f7b
+8d5b9b992858373e233f87fa56000add04dbead6 refs/tags/0.1.1
+e5b80ed37cde03816ce28ff5b17898d44555d10c refs/tags/0.1.2
+3004d866d56f6fc32c38fd0f3af278c2bf865367 refs/tags/0.1.3
+81051e5fc2bfc71e50588d4b0ef9d4304fa8c64f refs/tags/0.1.4
+44f94c9be7d08f14483a30836ba45ad6895d2ea9 refs/tags/0.2
+^4bfd1abdbe48dcef2bb5828e8c451bf0a1437cd2
+88a61d73ab8d0e9ea8dbe3b8e830aefa223651c8 refs/tags/0.2.1
+^0327d7eebe90bee56885022dc2051a9f97b646e7
+8a23643775bb2d4b980dc197e648a03b865ed1e2 refs/tags/0.2.2
+^cec24e9a0b5ac71e18dd8d543a3a70a55a0ee01e
+a9d00ff6af816738b8a4087c064fa3f25ea3ec66 refs/tags/0.2.3
+^55c42cc0cd21bd9f4dc6ffcf36f3357254e7bc01
+480210cef7728c24b13a9b8d38e9b44dad16e021 refs/tags/0.2.4
+^f115f8d4d157cc939b9868c663ec691bb4d53ed2
+9e66d2a3de5308d83f018ebf21b0c329627c1079 refs/tags/0.2.5
+e4e797cc46291539ce0239d87453997aed27411f refs/tags/0.3.0
+^4fe1c5f4637738773f320f28ae3317953e3b76b8
+5c9183728888b281e784d44200e012a9c2376615 refs/tags/0.4.0
+^47ebeb19242cb8fc3f261559749e360f9136658f
+a1b3c443a2ef9982465adbe64868688bff44a034 refs/tags/0.4.1
+^c5abc01db1fd02c4247413ed35e26aa9b6e07d4d
+36d20a056832011940c2dc010aee65c827d8753b refs/tags/0.4.2
+^934b6a474d54a0409cafbde6a4dbef871b7b3b44
+2152e9dd5adf11953e62dadd395482dca75fe56c refs/tags/eimap-0.1.2
+^9b3cfa674b3de2cfd04e280259cfc5ed1f1a3085
+65c1f1fcab3ddc5073e12b318ecc4cd5947d2d58 refs/tags/eimap-0.1.3
+^3004d866d56f6fc32c38fd0f3af278c2bf865367
+5c1f5586c250f8ecb19bda24d2a53c9964c04e1f refs/tags/eimap-0.1.5
+^1c17e71d083119d5d3bcf218ab4e4ecf4c2ab8da

guam-0.9.11.tar.gz/_checkouts/eimap/.git/refs Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/refs/heads Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/refs/heads/develop Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/refs/heads/master Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/refs/remotes Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/refs/remotes/origin Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/refs/remotes/origin/HEAD Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/refs/remotes/origin/develop Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/refs/remotes/origin/master Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/refs/tags Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/refs/tags/0.4.3 Added

guam-0.9.11.tar.gz/_checkouts/eimap/.git/refs/tags/0.4.4 Added

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

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

guam-0.9.11.tar.gz/_checkouts/eimap/.rebar3/rebar_compiler_erl Added

guam-0.9.11.tar.gz/_checkouts/eimap/.rebar3/rebar_compiler_erl/source.dag Added

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

@@ -0,0 +1,70 @@
+# 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.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.11.tar.gz/_checkouts/eimap/LICENSE Added

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

guam-0.9.11.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.11.tar.gz/_checkouts/eimap/_build Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/.rebar3 Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/.rebar3/rebar_compiler_erl Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/.rebar3/rebar_compiler_erl/source.dag Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/LICENSE Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/ebin Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/ebin/glc.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/ebin/glc_code.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/ebin/glc_lib.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/ebin/glc_ops.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/ebin/glc_run.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/ebin/goldrush.app Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/ebin/gr_app.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/ebin/gr_context.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/ebin/gr_counter.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/ebin/gr_counter_sup.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/ebin/gr_manager.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/ebin/gr_manager_sup.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/ebin/gr_param.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/ebin/gr_param_sup.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/ebin/gr_sup.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/ebin/gre.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/hex_metadata.config Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/priv Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/rebar.config Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/rebar.lock Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/src Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/src/glc_run.erl Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/src/goldrush.app.src Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/goldrush/src/gr_app.erl Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/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. <em>Counter</em>} and
+%% {@link gr_param:start_link/0. <em>Param</em>} 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.11.tar.gz/_checkouts/eimap/_build/default/lib/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. 
+%% <em>Manager</em>} processes, which serve as heir of the 
+%% {@link gr_counter:start_link/0. <em>Counter</em>} and
+%% {@link gr_param:start_link/0. <em>Param</em>} 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.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/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. 
+%% <em>Param</em>}, process table responsible for params
+%% {@link gr_param:start_link/0. <em>Counter</em>} and
+%% their {@link gr_counter:start_link/0. <em>Manager</em>} 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.11.tar.gz/_checkouts/eimap/_build/default/lib/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. 
+%% <em>Counter</em>}, {@link gr_param_sup:start_link/0. <em>Param</em>} and
+%% their {@link gr_manager_sup:start_link/0. <em>Manager</em>} 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.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/lager Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/.rebar3 Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/.rebar3/rebar_compiler_erl Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/.rebar3/rebar_compiler_erl/source.dag Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/README.md Added

@@ -0,0 +1,1379 @@
+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.
+
+[Travis-CI](http://travis-ci.org/erlang-lager/lager) :: [![Build Status](https://travis-ci.org/erlang-lager/lager.svg?branch=master)]
+[![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], [Ww[Dhh]] and [Mdd[Dhh]],
+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, "\e[0m\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.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.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/error_logger_lager_h.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager.app Added

@@ -0,0 +1,37 @@
+{application,lager,
+             [{description,"Erlang logging framework"},
+              {vsn,"3.8.1"},
+              {modules,[error_logger_lager_h,lager,lager_app,
+                        lager_backend_throttle,lager_common_test_backend,
+                        lager_config,lager_console_backend,lager_crash_log,
+                        lager_default_formatter,lager_file_backend,
+                        lager_format,lager_handler_watcher,
+                        lager_handler_watcher_sup,lager_manager_killer,
+                        lager_msg,lager_rotator_behaviour,
+                        lager_rotator_default,lager_stdlib,lager_sup,
+                        lager_transform,lager_trunc_io,lager_util]},
+              {applications,[kernel,stdlib,goldrush]},
+              {registered,[lager_sup,lager_event,lager_crash_log,
+                           lager_handler_watcher_sup]},
+              {mod,{lager_app,[]}},
+              {env,[{colored,false},
+                    {colors,[{debug,"\e[0;38m"},
+                             {info,"\e[1;37m"},
+                             {notice,"\e[1;36m"},
+                             {warning,"\e[1;33m"},
+                             {error,"\e[1;31m"},
+                             {critical,"\e[1;35m"},
+                             {alert,"\e[1;44m"},
+                             {emergency,"\e[1;41m"}]},
+                    {crash_log,"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.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager_app.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager_backend_throttle.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager_common_test_backend.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager_config.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager_console_backend.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager_crash_log.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager_default_formatter.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager_file_backend.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager_format.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager_handler_watcher.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager_handler_watcher_sup.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager_manager_killer.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager_msg.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager_rotator_behaviour.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager_rotator_default.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager_stdlib.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager_sup.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager_transform.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager_trunc_io.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/ebin/lager_util.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/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.8.1">>}.

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/include Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/priv Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/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.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/rebar.config Added

@@ -0,0 +1,60 @@
+%% -*- 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, "^(19|20|21|22)", test_statem},
+    {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.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/rebar.config.script Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/rebar.lock Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/src Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/src/lager.app.src Added

@@ -0,0 +1,29 @@
+{application,lager,
+             [{description,"Erlang logging framework"},
+              {vsn,"3.8.1"},
+              {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,"\e[0;38m"},
+                             {info,"\e[1;37m"},
+                             {notice,"\e[1;36m"},
+                             {warning,"\e[1;33m"},
+                             {error,"\e[1;31m"},
+                             {critical,"\e[1;35m"},
+                             {alert,"\e[1;44m"},
+                             {emergency,"\e[1;41m"}]},
+                    {crash_log,"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.11.tar.gz/_checkouts/eimap/_build/default/lib/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 <b>only</b> 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.11.tar.gz/_checkouts/eimap/_build/default/lib/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, "log/error.log"}, {level, error},
+           {size, 10485760}, {date, "$D0"}, {count, 5}]
+         },
+         {lager_file_backend,
+          [{file, "log/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.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/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}  ->
+            "\e[0m\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.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/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 < P ->
+                    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.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/src/lager_rotator_behaviour.erl Added

guam-0.9.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/src/lager_transform.erl Added

@@ -0,0 +1,339 @@
+%% 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,'_'}]}],
+                  [],
+                  %% trick the linter into avoiding a 'term constructed but not used' error:
+                  %% (fun() -> {error, lager_not_running} end)()
+                  [{call, Line, {'fun', Line, {clauses, [{clause, Line, [],[], [{tuple, 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,'_'}]}],
+                  [],
+                  %% same trick as above to avoid linter error
+                  [{call, Line, {'fun', Line, {clauses, [{clause, Line, [],[], [{tuple,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, Line) ->
+    list_to_atom(Prefix ++ atom_to_list(get(module)) ++ integer_to_list(Line)).
+
+%% 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.11.tar.gz/_checkouts/eimap/_build/default/lib/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.11.tar.gz/_checkouts/eimap/_build/default/lib/lager/src/lager_util.erl Added

@@ -0,0 +1,967 @@
+%% -------------------------------------------------------------------
+%%
+%% 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(RelPath) ->
+    case application:get_env(lager, log_root) of
+        {ok, LogRoot} when is_list(LogRoot) -> % Join relative path
+            %% check if the given RelPath contains LogRoot, if so, do not add
+            %% it again; see gh #304
+            case string:str(filename:dirname(RelPath), LogRoot) of
+                X when X > 0 ->
+                    RelPath;
+                _Zero ->
+                    filename:join(LogRoot, RelPath)
+            end;
+        undefined -> % No log_root given, keep relative path
+            RelPath
+    end.
+
+%% 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 = filename:absname(File1),
+    File2Abs = filename:absname(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("/foo/bar", expand_path("/foo/bar")),
+    ?assertEqual("foo/bar", expand_path("foo/bar")),
+
+    ok = application:set_env(lager, log_root, "log/dir"),
+    ?assertEqual("/foo/bar", expand_path("/foo/bar")), % Absolute path should not be changed
+    ?assertEqual("log/dir/foo/bar", expand_path("foo/bar")),
+    ?assertEqual("log/dir/foo/bar", expand_path("log/dir/foo/bar")), %% gh #304
+
+    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.11.tar.gz/_checkouts/eimap/ebin Added

guam-0.9.11.tar.gz/_checkouts/eimap/ebin/eimap.app Added

guam-0.9.11.tar.gz/_checkouts/eimap/ebin/eimap.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/ebin/eimap_command.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/ebin/eimap_command_annotation.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/ebin/eimap_command_capability.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/ebin/eimap_command_compress.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/ebin/eimap_command_getmetadata.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/ebin/eimap_command_login.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/ebin/eimap_command_logout.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/ebin/eimap_command_namespace.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/ebin/eimap_command_noop.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/ebin/eimap_command_peek_message.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/ebin/eimap_command_starttls.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/ebin/eimap_command_status.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/ebin/eimap_command_switch_folder.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/ebin/eimap_uidset.beam Added

guam-0.9.11.tar.gz/_checkouts/eimap/ebin/eimap_utils.beam Added

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

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

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

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

guam-0.9.11.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.11.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.11.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.11.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.11.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.11.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.11.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.11.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.11.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.PEEK[HEADER] BODY.PEEK[TEXT])">>, 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(<<"BODY[HEADER] {", Data/binary>>, Parts) ->
+    parse_header(Data, Parts);
+parse_next_component(<<"BODY[TEXT] {", 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.11.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.11.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.11.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.11.tar.gz/_checkouts/eimap/src/eimap.app.src Added

guam-0.9.11.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.11.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 } = eimap_utils:num_literal_continuation_bytes(Line),
+    process_line(ContinuationBytes, ParseTaggedLine, eimap_utils:is_tagged_response(FirstLine, Tag), Tag, LastPartialLine, FirstLine, MoreLines, Acc, Module).
+
+
+process_line(ContinuationBytes, ParseTaggedLine, IsTagged, Tag, LastPartialLine, Line, [<<>>|MoreLines], Acc, Module) ->
+    %% skip empty lines
+    process_line(ContinuationBytes, ParseTaggedLine, IsTagged, Tag, LastPartialLine, Line, MoreLines, Acc, Module);
+process_line(0, 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));
+process_line(0, ParseTaggedLine, untagged, Tag, LastPartialLine, Line, MoreLines, Acc, Module) ->
+    %io:format("Calling it here with ~p~n~n...", [Line]),
+    process_lines(ParseTaggedLine, Tag, LastPartialLine, MoreLines, Module:process_line(Line, Acc), Module);
+process_line(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(_ContinuationBytes, ParseTaggedLine, IsTagged, Tag, LastPartialLine, Line, [NextLine|MoreLines], Acc, Module) ->
+    { StrippedNextLine, NextContinuationBytes } = 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(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.11.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.11.tar.gz/_checkouts/eimap/src/eimap_utils.erl Added

@@ -0,0 +1,258 @@
+%% 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
+        ]).
+
+%% 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() }.
+num_literal_continuation_bytes(Buffer) when size(Buffer) < 4 ->
+    { Buffer, 0 };
+num_literal_continuation_bytes(Buffer) ->
+    case binary:last(Buffer) =:= $} of
+        true -> number_of_bytes_in_continuation(Buffer);
+        false -> { Buffer, 0 }
+    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 };
+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 }
+    catch
+        _:_ -> { Buffer, 0 }
+    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) -> <<>>.
+
+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.11.tar.gz/_checkouts/eimap/test Added

guam-0.9.11.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.11.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.11.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.11.tar.gz/_checkouts/eimap/test/eimap_command_getmetadata_tests.erl Added

@@ -0,0 +1,83 @@
+%% 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\"">> } ] }
+                  ]
+          }
+        },
+        {
+          <<"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.11.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.11.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.11.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.11.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.11.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.11.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.11.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.11.tar.gz/_checkouts/eimap/test/eimap_command_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_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 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.11.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.11.tar.gz/_checkouts/eimap/test/eimap_utils_tests.erl Added

@@ -0,0 +1,200 @@
+%% 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 } },
+        { <<"abcd{5}">>, { <<"abcd">>, 5 } },
+        { <<"abcd{100}">>, { <<"abcd">>, 100 } },
+        { <<"123abcd{100}">>, { <<"123abcd">>, 100  } },
+        { <<"ab{123abcd{100}">>, { <<"ab{123abcd">>, 100  } },
+        { <<"ab{123abcd{1{00}">>, { <<"ab{123abcd{1">>, 0 } },
+        { <<"abcd{aa0}">>, { <<"abcd{aa0}">>, 0 } },
+        { <<"abcd{10aa0}">>, { <<"abcd{10aa0}">>, 0 } },
+        { <<"abcd100}">>, { <<"abcd100}">>, 0 } },
+        { <<"abcd100}">>, { <<"abcd100}">>, 0 } },
+        { <<"abcd{5+}">>, { <<"abcd">>, 5 } }
+    ],
+    lists:foldl(fun({ Input, Output}, Acc) -> [?_assertEqual(Output, eimap_utils:num_literal_continuation_bytes(Input)) | Acc] end, [], Data).
+
+

guam-0.9.11.tar.gz/cache Added

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

guam-0.9.11.tar.gz/cache/rebar3/bin Added

guam-0.9.11.tar.gz/cache/rebar3/bin/rebar3 Added

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

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

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

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

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

guam-0.9.11.tar.gz/cache/rebar3/hex/hexpm/packages/lager-3.8.1.etag Added

guam-0.9.11.tar.gz/cache/rebar3/hex/hexpm/packages/lager-3.8.1.tar Added

guam-0.9.11.tar.gz/cache/rebar3/hex/hexpm/packages/pc-1.11.0.etag Added

guam-0.9.11.tar.gz/cache/rebar3/hex/hexpm/packages/pc-1.11.0.tar Added

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

guam-0.9.11.tar.gz/cache/rebar3/lib Added

guam-0.9.11.tar.gz/cache/rebar3/lib/bbmustache Added

guam-0.9.11.tar.gz/cache/rebar3/lib/bbmustache/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/lib/bbmustache/ebin/bbmustache.app Added

guam-0.9.11.tar.gz/cache/rebar3/lib/bbmustache/ebin/bbmustache.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/certifi Added

guam-0.9.11.tar.gz/cache/rebar3/lib/certifi/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/lib/certifi/ebin/certifi.app Added

guam-0.9.11.tar.gz/cache/rebar3/lib/certifi/ebin/certifi.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/certifi/ebin/certifi_pt.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/cf Added

guam-0.9.11.tar.gz/cache/rebar3/lib/cf/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/lib/cf/ebin/cf.app Added

guam-0.9.11.tar.gz/cache/rebar3/lib/cf/ebin/cf.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/cf/ebin/cf_term.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/cth_readable Added

guam-0.9.11.tar.gz/cache/rebar3/lib/cth_readable/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/lib/cth_readable/ebin/cth_readable.app Added

guam-0.9.11.tar.gz/cache/rebar3/lib/cth_readable/ebin/cth_readable_compact_shell.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/cth_readable/ebin/cth_readable_failonly.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/cth_readable/ebin/cth_readable_helpers.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/cth_readable/ebin/cth_readable_lager_backend.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/cth_readable/ebin/cth_readable_nosasl.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/cth_readable/ebin/cth_readable_shell.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/cth_readable/ebin/cth_readable_transform.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/cth_readable/ebin/cthr.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons/ebin/ec_assoc_list.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons/ebin/ec_cmd_log.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons/ebin/ec_cnv.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons/ebin/ec_compile.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons/ebin/ec_date.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons/ebin/ec_dict.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons/ebin/ec_dictionary.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons/ebin/ec_file.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons/ebin/ec_gb_trees.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons/ebin/ec_git_vsn.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons/ebin/ec_lists.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons/ebin/ec_orddict.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons/ebin/ec_plists.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons/ebin/ec_rbdict.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons/ebin/ec_semver.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons/ebin/ec_semver_parser.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons/ebin/ec_talk.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons/ebin/ec_vsn.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/erlware_commons/ebin/erlware_commons.app Added

guam-0.9.11.tar.gz/cache/rebar3/lib/eunit_formatters Added

guam-0.9.11.tar.gz/cache/rebar3/lib/eunit_formatters/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/lib/eunit_formatters/ebin/binomial_heap.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/eunit_formatters/ebin/eunit_formatters.app Added

guam-0.9.11.tar.gz/cache/rebar3/lib/eunit_formatters/ebin/eunit_progress.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/getopt Added

guam-0.9.11.tar.gz/cache/rebar3/lib/getopt/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/lib/getopt/ebin/getopt.app Added

guam-0.9.11.tar.gz/cache/rebar3/lib/getopt/ebin/getopt.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/providers Added

guam-0.9.11.tar.gz/cache/rebar3/lib/providers/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/lib/providers/ebin/provider.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/providers/ebin/providers.app Added

guam-0.9.11.tar.gz/cache/rebar3/lib/providers/ebin/providers.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/providers/ebin/providers_topo.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/cth_fail_fast.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/cth_retry.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/r3.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/r3_hex_api.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/r3_hex_api_key.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/r3_hex_api_package.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/r3_hex_api_package_owner.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/r3_hex_api_release.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/r3_hex_api_user.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/r3_hex_core.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/r3_hex_erl_tar.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/r3_hex_filename.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/r3_hex_http.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/r3_hex_http_httpc.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/r3_hex_pb_names.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/r3_hex_pb_package.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/r3_hex_pb_signed.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/r3_hex_pb_versions.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/r3_hex_registry.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/r3_hex_repo.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/r3_hex_tarball.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/r3_safe_erl_term.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar.app Added

@@ -0,0 +1,74 @@
+{application,rebar,
+             [{description,"Rebar: Erlang Build Tool"},
+              {vsn,"3.16.1"},
+              {modules,[cth_fail_fast,cth_retry,r3,r3_hex_api,r3_hex_api_key,
+                        r3_hex_api_package,r3_hex_api_package_owner,
+                        r3_hex_api_release,r3_hex_api_user,r3_hex_core,
+                        r3_hex_erl_tar,r3_hex_filename,r3_hex_http,
+                        r3_hex_http_httpc,r3_hex_pb_names,r3_hex_pb_package,
+                        r3_hex_pb_signed,r3_hex_pb_versions,r3_hex_registry,
+                        r3_hex_repo,r3_hex_tarball,r3_safe_erl_term,rebar3,
+                        rebar_agent,rebar_api,rebar_app_discover,
+                        rebar_app_info,rebar_app_utils,rebar_base_compiler,
+                        rebar_compiler,rebar_compiler_dag,rebar_compiler_epp,
+                        rebar_compiler_erl,rebar_compiler_mib,
+                        rebar_compiler_xrl,rebar_compiler_yrl,rebar_config,
+                        rebar_core,rebar_dialyzer_format,rebar_digraph,
+                        rebar_dir,rebar_dist_utils,rebar_env,
+                        rebar_erlc_compiler,rebar_fetch,rebar_file_utils,
+                        rebar_git_resource,rebar_git_subdir_resource,
+                        rebar_hex_repos,rebar_hg_resource,rebar_hooks,
+                        rebar_httpc_adapter,rebar_log,rebar_opts,
+                        rebar_otp_app,rebar_packages,rebar_parallel,
+                        rebar_paths,rebar_pkg_resource,rebar_plugins,
+                        rebar_prv_alias,rebar_prv_app_discovery,rebar_prv_as,
+                        rebar_prv_bare_compile,rebar_prv_clean,
+                        rebar_prv_common_test,rebar_prv_compile,
+                        rebar_prv_cover,rebar_prv_deps,rebar_prv_deps_tree,
+                        rebar_prv_dialyzer,rebar_prv_do,rebar_prv_edoc,
+                        rebar_prv_escriptize,rebar_prv_eunit,
+                        rebar_prv_get_deps,rebar_prv_help,
+                        rebar_prv_install_deps,rebar_prv_local_install,
+                        rebar_prv_local_upgrade,rebar_prv_lock,rebar_prv_new,
+                        rebar_prv_packages,rebar_prv_path,rebar_prv_plugins,
+                        rebar_prv_plugins_upgrade,rebar_prv_release,
+                        rebar_prv_relup,rebar_prv_report,rebar_prv_repos,
+                        rebar_prv_shell,rebar_prv_state,rebar_prv_tar,
+                        rebar_prv_unlock,rebar_prv_update,rebar_prv_upgrade,
+                        rebar_prv_version,rebar_prv_xref,rebar_relx,
+                        rebar_resource,rebar_resource_v2,rebar_state,
+                        rebar_string,rebar_templater,rebar_uri,rebar_user,
+                        rebar_utils]},
+              {registered,[]},
+              {applications,[kernel,stdlib,sasl,compiler,crypto,syntax_tools,
+                             tools,eunit,common_test,dialyzer,public_key,edoc,
+                             snmp,getopt,erlware_commons,providers,bbmustache,
+                             ssl_verify_fun,certifi,cth_readable,relx,cf,
+                             inets,eunit_formatters,hipe]},
+              {env,[{log_level,warn},
+                    {resources,[{git,rebar_git_resource},
+                                {git_subdir,rebar_git_subdir_resource},
+                                {pkg,rebar_pkg_resource},
+                                {hg,rebar_hg_resource}]},
+                    {compilers,[rebar_compiler_xrl,rebar_compiler_yrl,
+                                rebar_compiler_mib,rebar_compiler_erl]},
+                    {providers,[rebar_prv_app_discovery,rebar_prv_as,
+                                rebar_prv_bare_compile,rebar_prv_clean,
+                                rebar_prv_common_test,rebar_prv_compile,
+                                rebar_prv_cover,rebar_prv_deps,
+                                rebar_prv_deps_tree,rebar_prv_dialyzer,
+                                rebar_prv_do,rebar_prv_edoc,
+                                rebar_prv_escriptize,rebar_prv_eunit,
+                                rebar_prv_get_deps,rebar_prv_help,
+                                rebar_prv_install_deps,
+                                rebar_prv_local_install,
+                                rebar_prv_local_upgrade,rebar_prv_lock,
+                                rebar_prv_new,rebar_prv_packages,
+                                rebar_prv_path,rebar_prv_plugins,
+                                rebar_prv_plugins_upgrade,rebar_prv_release,
+                                rebar_prv_relup,rebar_prv_report,
+                                rebar_prv_repos,rebar_prv_shell,
+                                rebar_prv_state,rebar_prv_tar,
+                                rebar_prv_unlock,rebar_prv_update,
+                                rebar_prv_upgrade,rebar_prv_version,
+                                rebar_prv_xref,rebar_prv_alias]}]}]}.

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar3.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_agent.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_api.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_app_discover.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_app_info.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_app_utils.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_base_compiler.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_compiler.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_compiler_dag.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_compiler_epp.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_compiler_erl.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_compiler_mib.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_compiler_xrl.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_compiler_yrl.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_config.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_core.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_dialyzer_format.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_digraph.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_dir.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_dist_utils.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_env.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_erlc_compiler.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_fetch.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_file_utils.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_git_resource.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_git_subdir_resource.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_hex_repos.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_hg_resource.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_hooks.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_httpc_adapter.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_log.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_opts.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_otp_app.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_packages.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_parallel.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_paths.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_pkg_resource.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_plugins.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_alias.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_app_discovery.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_as.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_bare_compile.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_clean.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_common_test.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_compile.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_cover.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_deps.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_deps_tree.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_dialyzer.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_do.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_edoc.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_escriptize.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_eunit.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_get_deps.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_help.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_install_deps.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_local_install.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_local_upgrade.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_lock.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_new.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_packages.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_path.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_plugins.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_plugins_upgrade.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_release.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_relup.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_report.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_repos.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_shell.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_state.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_tar.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_unlock.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_update.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_upgrade.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_version.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_prv_xref.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_relx.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_resource.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_resource_v2.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_state.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_string.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_templater.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_uri.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_user.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/ebin/rebar_utils.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/LICENSE Added

@@ -0,0 +1,191 @@
+                                 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
+
+   Copyright {{copyright_year}}, {{author_name}} <{{author_email}}>.
+
+   Licensed 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.
+

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/Makefile Added

@@ -0,0 +1,74 @@
+# Based on c_src.mk from erlang.mk by Loic Hoguin <essen@ninenines.eu>
+
+CURDIR := $(shell pwd)
+BASEDIR := $(abspath $(CURDIR)/..)
+
+PROJECT ?= $(notdir $(BASEDIR))
+PROJECT := $(strip $(PROJECT))
+
+ERTS_INCLUDE_DIR ?= $(shell erl -noshell -eval "io:format(\"~ts/erts-~ts/include/\", [code:root_dir(), erlang:system_info(version)])." -s init stop)
+ERL_INTERFACE_INCLUDE_DIR ?= $(shell erl -noshell -eval "io:format(\"~ts\", [code:lib_dir(erl_interface, include)])." -s init stop)
+ERL_INTERFACE_LIB_DIR ?= $(shell erl -noshell -eval "io:format(\"~ts\", [code:lib_dir(erl_interface, lib)])." -s init stop)
+
+C_SRC_DIR = $(CURDIR)
+C_SRC_OUTPUT ?= $(CURDIR)/../priv/$(PROJECT).so
+
+# System type and C compiler/flags.
+
+UNAME_SYS := $(shell uname -s)
+ifeq ($(UNAME_SYS), Darwin)
+	CC ?= cc
+	CFLAGS ?= -O3 -std=c99 -arch x86_64 -finline-functions -Wall -Wmissing-prototypes
+	CXXFLAGS ?= -O3 -arch x86_64 -finline-functions -Wall
+	LDFLAGS ?= -arch x86_64 -flat_namespace -undefined suppress
+else ifeq ($(UNAME_SYS), FreeBSD)
+	CC ?= cc
+	CFLAGS ?= -O3 -std=c99 -finline-functions -Wall -Wmissing-prototypes
+	CXXFLAGS ?= -O3 -finline-functions -Wall
+else ifeq ($(UNAME_SYS), Linux)
+	CC ?= gcc
+	CFLAGS ?= -O3 -std=c99 -finline-functions -Wall -Wmissing-prototypes
+	CXXFLAGS ?= -O3 -finline-functions -Wall
+endif
+
+CFLAGS += -fPIC -I $(ERTS_INCLUDE_DIR) -I $(ERL_INTERFACE_INCLUDE_DIR)
+CXXFLAGS += -fPIC -I $(ERTS_INCLUDE_DIR) -I $(ERL_INTERFACE_INCLUDE_DIR)
+
+LDLIBS += -L $(ERL_INTERFACE_LIB_DIR) -lei
+LDFLAGS += -shared
+
+# Verbosity.
+
+c_verbose_0 = @echo " C     " $(?F);
+c_verbose = $(c_verbose_$(V))
+
+cpp_verbose_0 = @echo " CPP   " $(?F);
+cpp_verbose = $(cpp_verbose_$(V))
+
+link_verbose_0 = @echo " LD    " $(@F);
+link_verbose = $(link_verbose_$(V))
+
+SOURCES := $(shell find $(C_SRC_DIR) -type f $ -name "*.c" -o -name "*.C" -o -name "*.cc" -o -name "*.cpp" $)
+OBJECTS = $(addsuffix .o, $(basename $(SOURCES)))
+
+COMPILE_C = $(c_verbose) $(CC) $(CFLAGS) $(CPPFLAGS) -c
+COMPILE_CPP = $(cpp_verbose) $(CXX) $(CXXFLAGS) $(CPPFLAGS) -c
+
+$(C_SRC_OUTPUT): $(OBJECTS)
+	@mkdir -p $(BASEDIR)/priv/
+	$(link_verbose) $(CC) $(OBJECTS) $(LDFLAGS) $(LDLIBS) -o $(C_SRC_OUTPUT)
+
+%.o: %.c
+	$(COMPILE_C) $(OUTPUT_OPTION) $<
+
+%.o: %.cc
+	$(COMPILE_CPP) $(OUTPUT_OPTION) $<
+
+%.o: %.C
+	$(COMPILE_CPP) $(OUTPUT_OPTION) $<
+
+%.o: %.cpp
+	$(COMPILE_CPP) $(OUTPUT_OPTION) $<
+
+clean:
+	@rm -f $(C_SRC_OUTPUT) $(OBJECTS)

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/README.md Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/app.erl Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/app.template Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/app_rebar.config Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/cmake.template Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/escript.template Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/escript_README.md Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/escript_mod.erl Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/escript_rebar.config Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/gitignore Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/lib.template Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/mod.erl Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/otp_app.app.src Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/otp_lib.app.src Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/plugin.erl Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/plugin.template Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/plugin_README.md Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/provider.erl Added

@@ -0,0 +1,32 @@
+-module({{name}}_prv).
+
+-export([init/1, do/1, format_error/1]).
+
+-define(PROVIDER, {{name}}).
+-define(DEPS, [app_discovery]).
+
+%% ===================================================================
+%% Public 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, "rebar3 {{name}}"}, % How to use the plugin
+            {opts, []},                   % list of options understood by the plugin
+            {short_desc, "{{desc}}"},
+            {desc, "{{desc}}"}
+    ]),
+    {ok, rebar_state:add_provider(State, Provider)}.
+
+
+-spec do(rebar_state:t()) -> {ok, rebar_state:t()} | {error, string()}.
+do(State) ->
+    {ok, State}.
+
+-spec format_error(any()) ->  iolist().
+format_error(Reason) ->
+    io_lib:format("~p", [Reason]).

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/rebar.config Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/release.template Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/relx_rebar.config Added

@@ -0,0 +1,33 @@
+{{=@@ @@=}}
+{erl_opts, [debug_info]}.
+{deps, []}.
+
+{relx, [{release, {@@name@@, "0.1.0"},
+         [@@name@@,
+          sasl]},
+
+        {mode, dev},
+
+        %% automatically picked up if the files
+        %% exist but can be set manually, which
+        %% is required if the names aren't exactly
+        %% sys.config and vm.args
+        {sys_config, "./config/sys.config"},
+        {vm_args, "./config/vm.args"}
+
+        %% the .src form of the configuration files do
+        %% not require setting RELX_REPLACE_OS_VARS
+        %% {sys_config_src, "./config/sys.config.src"},
+        %% {vm_args_src, "./config/vm.args.src"}
+]}.
+
+{profiles, [{prod, [{relx,
+                     [%% prod is the default mode when prod
+                      %% profile is used, so does not have
+                      %% to be explicitly included like this
+                      {mode, prod}
+
+                      %% use minimal mode to exclude ERTS
+                      %% {mode, minimal}
+                     ]
+            }]}]}.

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/sup.erl Added

@@ -0,0 +1,36 @@
+{{=@@ @@=}}
+%%%-------------------------------------------------------------------
+%% @doc @@name@@ top level supervisor.
+%% @end
+%%%-------------------------------------------------------------------
+
+-module(@@name@@_sup).
+
+-behaviour(supervisor).
+
+-export([start_link/0]).
+
+-export([init/1]).
+
+-define(SERVER, ?MODULE).
+
+start_link() ->
+    supervisor:start_link({local, ?SERVER}, ?MODULE, []).
+
+%% sup_flags() = #{strategy => strategy(),         % optional
+%%                 intensity => non_neg_integer(), % optional
+%%                 period => pos_integer()}        % optional
+%% child_spec() = #{id => child_id(),       % mandatory
+%%                  start => mfargs(),      % mandatory
+%%                  restart => restart(),   % optional
+%%                  shutdown => shutdown(), % optional
+%%                  type => worker(),       % optional
+%%                  modules => modules()}   % optional
+init([]) ->
+    SupFlags = #{strategy => one_for_all,
+                 intensity => 0,
+                 period => 1},
+    ChildSpecs = [],
+    {ok, {SupFlags, ChildSpecs}}.
+
+%% internal functions

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/sys.config Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/umbrella.template Added

guam-0.9.11.tar.gz/cache/rebar3/lib/rebar/priv/templates/vm.args Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/ebin/relx.app Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/ebin/relx.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/ebin/rlx_app_info.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/ebin/rlx_assemble.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/ebin/rlx_config.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/ebin/rlx_file_utils.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/ebin/rlx_log.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/ebin/rlx_overlay.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/ebin/rlx_release.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/ebin/rlx_relup.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/ebin/rlx_resolve.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/ebin/rlx_state.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/ebin/rlx_string.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/ebin/rlx_tar.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/ebin/rlx_util.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/priv Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/priv/templates Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/priv/templates/bin Added

@@ -0,0 +1,82 @@
+#!/bin/sh
+
+set -e
+
+SCRIPT=$(readlink "$0" || true)
+if [ -z "$SCRIPT" ]; then
+    SCRIPT=$0
+fi;
+SCRIPT_DIR="$(cd "$(dirname "$SCRIPT")" && pwd -P)"
+RELEASE_ROOT_DIR="$(cd "$SCRIPT_DIR/.." && pwd -P)"
+export REL_NAME="{{ rel_name }}"
+REL_VSN="{{ rel_vsn }}"
+
+# export these to match mix release environment variables
+export RELEASE_NAME="{{ rel_name }}"
+export RELEASE_VSN="{{ rel_vsn }}"
+export RELEASE_PROG="${SCRIPT}"
+
+ERTS_VSN="{{ erts_vsn }}"
+REL_DIR="$RELEASE_ROOT_DIR/releases/$REL_VSN"
+ERL_OPTS="{{ erl_opts }}"
+export ESCRIPT_NAME="${ESCRIPT_NAME-$SCRIPT}"
+
+find_erts_dir() {
+    __erts_dir="$RELEASE_ROOT_DIR/erts-$ERTS_VSN"
+    if [ -d "$__erts_dir" ]; then
+        ERTS_DIR="$__erts_dir";
+    else
+        __erl="$(command -v erl)"
+        code="io:format(\"~s\", [code:root_dir()]), halt()."
+        __erl_root="$("$__erl" -boot no_dot_erlang -noshell -eval "$code")"
+        ERTS_DIR="$__erl_root/erts-$ERTS_VSN"
+    fi
+}
+
+find_sys_config() {
+    __possible_sys="$REL_DIR/sys.config"
+    if [ -f "$__possible_sys" ]; then
+        SYS_CONFIG="$__possible_sys"
+    else 
+       if [ -L "$__possible_sys".orig ]; then
+          mv "$__possible_sys".orig "$__possible_sys"  
+          SYS_CONFIG="$__possible_sys"
+       fi
+    fi
+}
+
+find_vm_args() {
+    __possible_vm_args="$REL_DIR/vm.args"
+    if [ -f "$__possible_vm_args" ]; then
+        VM_ARGS="$__possible_vm_args"
+    else 
+       if [ -L "$__possible_vm_args".orig ]; then
+          mv "$__possible_vm_args".orig "$__possible_vm_args"  
+          VM_ARGS="$__possible_vm_args"
+       fi
+    fi
+}
+
+find_erts_dir
+find_sys_config
+find_vm_args
+export ROOTDIR="$RELEASE_ROOT_DIR"
+export BINDIR="$ERTS_DIR/bin"
+export EMU="beam"
+export PROGNAME="erl"
+export LD_LIBRARY_PATH="$ERTS_DIR/lib:$LD_LIBRARY_PATH"
+ERTS_LIB_DIR="$ERTS_DIR/../lib"
+[ -f "$REL_DIR/$REL_NAME.boot" ] && BOOTFILE="$REL_NAME" || BOOTFILE=start
+cd "$ROOTDIR"
+
+# Save extra arguments
+ARGS=$*
+
+# Build arguments for erlexec
+set -- "$ERL_OPTS"
+[ "$SYS_CONFIG" ] && set -- "$@" -config "$SYS_CONFIG"
+[ "$VM_ARGS" ] && set -- "$@" -args_file "$VM_ARGS"
+set -- "$@" -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" -boot "$REL_DIR/$BOOTFILE" "$ARGS"
+
+# Boot the release
+exec "$BINDIR/erlexec" "$@"

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/priv/templates/bin_windows Added

@@ -0,0 +1,108 @@
+@echo off
+:: This is a simple start batch file that runs the release in an Erlang shell
+
+:: Set variables that describe the release
+set rel_name={{ rel_name }}
+set rel_vsn={{ rel_vsn }}
+set erts_vsn={{ erts_vsn }}
+set erl_opts={{ erl_opts }}
+
+:: export these to match mix release environment variables
+set RELEASE_NAME={{ rel_name }}
+set RELEASE_VSN={{ rel_vsn }}
+set RELEASE_PROG=%~nx0
+
+:: Set the root release directory based on the location of this batch file
+set script_dir=%~dp0
+for %%A in ("%script_dir%\..") do (
+  set "release_root_dir=%%~fA"
+)
+set "rel_dir=%release_root_dir%\releases\%rel_vsn%"
+
+call :find_erts_dir
+call :find_sys_config
+call :set_boot_script_var
+
+set "rootdir=%release_root_dir%"
+set "bindir=%erts_dir%\bin"
+set progname=erl
+set erl=%bindir%\erl
+
+cd %rootdir%
+
+:: Write the erl.ini file
+set erl_ini=%erts_dir%\bin\erl.ini
+set converted_bindir=%bindir:\=\\%
+set converted_rootdir=%rootdir:\=\\%
+echo [erlang] > "%erl_ini%"
+echo Bindir=%converted_bindir% >> "%erl_ini%"
+echo Progname=%progname% >> "%erl_ini%"
+echo Rootdir=%converted_rootdir% >> "%erl_ini%"
+
+:: Start the release in an `erl` shell
+set boot=-boot "%boot_script%" -boot_var RELEASE_DIR "%release_root_dir%"
+"%erl%" %erl_opts% %sys_config% %boot% %*
+
+goto :eof
+
+:: Find the ERTS dir
+:find_erts_dir
+set "erts_dir=%release_root_dir%\erts-%erts_vsn%"
+if exist %erts_dir% (
+  goto :set_erts_dir_from_default
+) else (
+  goto :set_erts_dir_from_erl
+)
+goto :eof
+
+:: Set the ERTS dir from the passed in erts_vsn
+:set_erts_dir_from_default
+set erts_dir=%erts_dir%
+set root_dir=%release_root_dir%
+goto :eof
+
+:: Set the ERTS dir from erl
+:set_erts_dir_from_erl
+for /f "delims=" %%i in ('where erl') do (
+  set erl=%%i
+)
+for /f "delims=" %%i in ('call "%erl%" -boot no_dot_erlang -boot_var RELEASE_DIR "%release_root_dir%" -noshell -eval "io:format(\"~s\", [filename:nativename(code:root_dir())])." -s init stop') do (
+  set erl_root=%%i
+)
+set "erts_dir=%erl_root%\erts-%erts_vsn%"
+set rootdir=%erl_root%
+goto :eof
+
+:: Find the sys.config file
+:find_sys_config
+set "possible_sys=%rel_dir%\sys.config"
+if exist "%possible_sys%" (
+  set sys_config=-config "%possible_sys%"
+) else (
+  if exist "%possible_sys%.orig" (
+    ren "%possible_sys%.orig" sys.config
+    set sys_config=-config "%possible_sys%"
+  )
+)
+
+:: Find the vm.args file
+:find_vm_args
+set "possible_vm_args=%rel_dir%\vm.args"
+if exist "%possible_vm_args%" (
+  set vm_args="%possible_vm_args%"
+) else (
+  if exist "%possible_vm_args%.orig" (
+    ren "%possible_vm_args%.orig" vm.args
+    set vm_args="%possible_vm_args%"
+  )
+)
+goto :eof
+
+:: set boot_script variable
+:set_boot_script_var
+if exist "%rel_dir%\%rel_name%.boot" (
+  set "boot_script=%rel_dir%\%rel_name%"
+) else (
+  set "boot_script=%rel_dir%\start"
+)
+goto :eof

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/priv/templates/bin_windows_ps Added

@@ -0,0 +1,48 @@
+#! /usr/bin/pwsh
+# This is a simple start script file that runs the release in an Erlang shell
+
+# Terminate on error
+$ErrorActionPreference = "Stop"
+
+# Set variables that describe the release
+$rel_name = '{{ rel_name }}'
+$rel_vsn = '{{ rel_vsn }}'
+$erts_vsn = '{{ erts_vsn }}'
+$erl_opts = '{{ erl_opts }}'
+
+# export these to match mix release environment variables
+$RELEASE_NAME = '{{ rel_name }}'
+$RELEASE_VERSION = '{{ rel_vsn }}'
+$RELEASE_PROG = $MyInvocation.MyCommand.Name
+
+# Ensure we have PSScriptRoot
+if (!(Test-Path variable:global:PSScriptRoot)) {
+    # Support for powershell 2.0
+    $PSScriptRoot = Split-Path -Parent -Path $MyInvocation.MyCommand.Definition
+}
+
+# Import psutil helper functions
+. $PSScriptRoot\psutil.ps1
+
+# Set the root release directory based on the location of this script
+$rootdir = Split-Path -Parent -Path $PSScriptRoot
+$rel_dir = "$rootdir\releases\$rel_vsn"
+
+$erts_root, $erts_dir = Find-ERTS -RelRoot $rootdir -Vsn $erts_vsn
+$sys_config = Find-FormatConfig -RelDir $rel_dir -File 'sys.config'
+$vm_args = Find-FormatConfig -RelDir $rel_dir -File 'vm.args'
+$boot_script = Find-BootScript -RelDir $rel_dir -RelName $rel_name
+$werl = "$erts_dir\bin\werl.exe"
+
+# Set the ERL_LIBS environment variable
+$env:ERL_LIBS = "$rootdir\lib"
+
+# Start the release in an `erl` shell
+$params = @($erl_opts, '-boot', $boot_script)
+if (![string]::IsNullOrEmpty($sys_config)) { $params += '-config', $sys_config }
+if (![string]::IsNullOrEmpty($vm_args))    { $params += '-args_file', $vm_args }
+$params += $args
+& $werl $params
+
+# Cleanup
+$env:ERL_LIBS = ''

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/priv/templates/builtin_hook_pid Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/priv/templates/builtin_hook_status Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/priv/templates/builtin_hook_wait_for_process Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/priv/templates/builtin_hook_wait_for_vm_start Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/priv/templates/erl_ini Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/priv/templates/erl_script Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/priv/templates/extended_bin Added

@@ -0,0 +1,1008 @@
+#!/bin/sh
+
+set -e
+
+# http://erlang.org/doc/man/run_erl.html
+# If defined, disables input and output flow control for the pty
+# opend by run_erl. Useful if you want to remove any risk of accidentally
+# blocking the flow control by using Ctrl-S (instead of Ctrl-D to detach),
+# which can result in blocking of the entire Beam process, and in the case
+# of running heart as supervisor even the heart process becomes blocked
+# when writing log message to terminal, leaving the heart process unable
+# to do its work.
+RUN_ERL_DISABLE_FLOWCNTRL=${RUN_ERL_DISABLE_FLOWCNTRL:-true}
+export RUN_ERL_DISABLE_FLOWCNTRL
+
+if [ "$TERM" = "dumb" ] || [ -z "$TERM" ]; then
+  export TERM=screen
+fi
+
+# OSX does not support readlink '-f' flag, work
+# around that
+# shellcheck disable=SC2039
+case $OSTYPE in
+    darwin*)
+        SCRIPT=$(readlink "$0" || true)
+    ;;
+    *)
+        SCRIPT=$(readlink -f "$0" || true)
+    ;;
+esac
+[ -z "$SCRIPT" ] && SCRIPT=$0
+SCRIPT_DIR="$(cd "$(dirname "$SCRIPT")" && pwd -P)"
+RELEASE_ROOT_DIR="$(cd "$SCRIPT_DIR/.." && pwd -P)"
+# Make the value available to variable substitution calls below
+export REL_NAME="{{ rel_name }}"
+REL_VSN="{{ rel_vsn }}"
+
+# export these to match mix release environment variables
+export RELEASE_NAME="{{ rel_name }}"
+export RELEASE_VSN="{{ rel_vsn }}"
+export RELEASE_PROG="${SCRIPT}"
+
+ERTS_VSN="{{ erts_vsn }}"
+REL_DIR="$RELEASE_ROOT_DIR/releases/$REL_VSN"
+RUNNER_LOG_DIR="${RUNNER_LOG_DIR:-$RELEASE_ROOT_DIR/log}"
+export ESCRIPT_NAME="${ESCRIPT_NAME-$SCRIPT}"
+
+
+# if RELX_RPC_TIMEOUT is set then use that
+# otherwise check for NODETOOL_TIMEOUT and convert to seconds
+if [ -z "$RELX_RPC_TIMEOUT" ]; then
+    # if NODETOOL_TIMEOUT exists then turn the old nodetool timeout into the rpc timeout
+    if [ -n "$NODETOOL_TIMEOUT" ]; then
+        # will exit the script if NODETOOL_TIMEOUT isn't a number
+        RELX_RPC_TIMEOUT=$((NODETOOL_TIMEOUT / 1000))
+    else
+        RELX_RPC_TIMEOUT=60
+    fi
+fi
+
+export RELX_RPC_TIMEOUT
+
+# start/stop/install/upgrade pre/post hooks
+PRE_START_HOOKS="{{{ pre_start_hooks }}}"
+POST_START_HOOKS="{{{ post_start_hooks }}}"
+PRE_STOP_HOOKS="{{{ pre_stop_hooks }}}"
+POST_STOP_HOOKS="{{{ post_stop_hooks }}}"
+PRE_INSTALL_UPGRADE_HOOKS="{{{ pre_install_upgrade_hooks }}}"
+POST_INSTALL_UPGRADE_HOOKS="{{{ post_install_upgrade_hooks }}}"
+STATUS_HOOK="{{{ status_hook }}}"
+EXTENSIONS="{{{ extensions }}}"
+
+relx_usage() {
+    command="$1"
+
+    case "$command" in
+        rpc)
+            echo "Usage: $REL_NAME rpc [Mod [Fun [Args]]]]"
+            echo "Applies the specified function and returns the result."
+            echo "Mod must be specified. However, start and [] are assumed"
+            echo "for unspecified Fun and Args, respectively. Args is to "
+            echo "be in the same format as for erlang:apply/3 in ERTS."
+            ;;
+        "eval")
+            echo "Usage: $REL_NAME eval [Exprs]"
+            echo "Executes a sequence of Erlang expressions, separated by"
+            echo "comma (,) and ended with a full stop (.)"
+            ;;
+        foreground)
+            echo "Usage: $REL_NAME foreground"
+            echo "Starts the release in the foreground, meaning all output"
+            echo "going to stdout but without an interactive shell."
+            ;;
+        console)
+            echo "Usage: $REL_NAME console"
+            echo "Starts the release in the with an interactive shell."
+            ;;
+        remote_console|remote|remsh)
+            echo "Usage: $REL_NAME remote"
+            echo "Attach a remote shell to an already running Erlang node for this release."
+            ;;
+        unpack)
+            echo "Usage: $REL_NAME unpack [VERSION]"
+            echo "Unpacks a release package VERSION, it assumes that this"
+            echo "release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            ;;
+        install)
+            echo "Usage: $REL_NAME install [VERSION]"
+            echo "Installs a release package VERSION, it assumes that this"
+            echo "release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            echo ""
+            echo "     --no-permanent   Install release package VERSION but"
+            echo "                      don't make it permanent"
+            ;;
+        uninstall)
+            echo "Usage: $REL_NAME uninstall [VERSION]"
+            echo "Uninstalls a release VERSION, it will only accept"
+            echo "versions that are not currently in use"
+            ;;
+        upgrade)
+            echo "Usage: $REL_NAME upgrade [VERSION]"
+            echo "Upgrades the currently running release to VERSION, it assumes"
+            echo "that a release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            echo ""
+            echo "     --no-permanent   Install release package VERSION but"
+            echo "                      don't make it permanent"
+            ;;
+        downgrade)
+            echo "Usage: $REL_NAME downgrade [VERSION]"
+            echo "Downgrades the currently running release to VERSION, it assumes"
+            echo "that a release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            echo ""
+            echo "     --no-permanent   Install release package VERSION but"
+            echo "                      don't make it permanent"
+            ;;
+        status)
+            echo "Usage: $REL_NAME status"
+            echo "Obtains node status information through optionally defined hooks."
+            ;;
+        *)
+            # check for extension
+            IS_EXTENSION=$(relx_is_extension "$command")
+            if [ "$IS_EXTENSION" = "1" ]; then
+                EXTENSION_SCRIPT=$(relx_get_extension_script "$command")
+                relx_run_extension "$EXTENSION_SCRIPT" help
+            else
+                EXTENSIONS=$(echo $EXTENSIONS | sed -e 's/|undefined//g')
+                echo "Usage: ${REL_NAME} [COMMAND] [ARGS]
+
+Commands:
+
+  foreground              Start release with output to stdout
+  remote_console          Connect remote shell to running node
+  rpc [Mod [Fun [Args]]]] Run apply(Mod, Fun, Args) on running node
+  eval [Exprs]            Run expressions on running node
+  stop                    Stop the running node
+  restart                 Restart the applications but not the VM
+  reboot                  Reboot the entire VM
+  pid                     Print the PID of the OS process
+  ping                    Print pong if the node is alive
+  console                 Start the release with an interactive shell
+  console_clean           Start an interactive shell without the release's applications
+  console_boot [File]     Start an interactive shell for boot script [File]
+  daemon                  Start release in the background with run_erl (named pipes)
+  daemon_boot [File]      Start boot script [File] in the background with run_erl (named pipes)
+  daemon_attach           Connect to node started as daemon with to_erl (named pipes)
+  upgrade [Version]       Upgrade the running release to a new version
+  downgrade [Version]     Downgrade the running release to a new version
+  install [Version]       Install a release
+  uninstall [Version]     Uninstall a release
+  unpack [Version]        Unpack a release tarball
+  versions                Print versions of the release available
+  escript                 Run an escript in the same environment as the release
+  status                  Verify node is running and then run status hook scripts
+  $EXTENSIONS"
+            fi
+            ;;
+    esac
+}
+
+find_erts_dir() {
+    __erts_dir="$RELEASE_ROOT_DIR/erts-$ERTS_VSN"
+    if [ -d "$__erts_dir" ]; then
+        ERTS_DIR="$__erts_dir";
+    else
+        __erl="$(command -v erl)"
+        code="io:format(\"~s\", [code:root_dir()]), halt()."
+        __erl_root="$("$__erl" -boot no_dot_erlang -sasl errlog_type error -noshell -eval "$code")"
+        ERTS_DIR="$__erl_root/erts-$ERTS_VSN"
+        if [ ! -d "$ERTS_DIR" ]; then
+            erts_version_code="io:format(\"~s\", [erlang:system_info(version)]), halt()."
+            __erts_version="$("$__erl" -boot no_dot_erlang -sasl errlog_type error -noshell -eval "$erts_version_code")"
+            ERTS_DIR="${__erl_root}/erts-${__erts_version}"
+            if [ -d "$ERTS_DIR" ]; then
+                ERTS_VSN=${__erts_version}
+                echo "Exact ERTS version (${ERTS_VSN}) match not found, instead using ${__erts_version}. The release may fail to run." 1>&2
+            else
+                echo "Can not run the release. There is no ERTS bundled with the release or found on the system."
+                exit 1
+            fi
+        fi
+    fi
+}
+
+find_erl_call() {
+    # users who depend on stdout when running rpc calls must still use nodetool
+    # so we have an overload option to force use of nodetool instead of erl_call
+    if [ "$USE_NODETOOL" ]; then
+        ERL_RPC=relx_nodetool
+    else
+        # only OTP-23 and above have erl_call in the erts bin directory
+        # and only those versions have the features and bug fixes needed
+        # to work properly with this script
+        __erl_call="$ERTS_DIR/bin/erl_call"
+        if [ -f "$__erl_call" ]; then
+            ERL_RPC="$__erl_call";
+        else
+            ERL_RPC=relx_nodetool
+        fi
+    fi
+}
+
+# Get node pid
+relx_get_pid() {
+    if output="$(erl_rpc os getpid 2>/dev/null)"
+    then
+        echo "$output" | sed -e 's/"//g'
+        return 0
+    else
+        echo "$output"
+        return 1
+    fi
+}
+
+ping_or_exit() {
+    if ! erl_rpc erlang is_alive > /dev/null 2>&1; then
+        echo "Node is not running!"
+        exit 1
+    fi
+}
+
+relx_get_nodename() {
+    id="longname$(relx_gen_id)-${NAME}"
+    if [ -z "$COOKIE" ]; then
+        # shellcheck disable=SC2086
+        "$BINDIR/erl" -boot "$REL_DIR"/start_clean \
+                      -mode interactive \
+                      -boot_var SYSTEM_LIB_DIR "$SYSTEM_LIB_DIR" \
+                      -eval '[_,H]=re:split(atom_to_list(node()),"@",[unicode,{return,list}]), io:format("~s~n",[H]), halt()' \
+                      -dist_listen false \
+                      ${START_EPMD} \
+                      -noshell "${NAME_TYPE}" "$id"
+    else
+        # running with setcookie prevents a ~/.erlang.cookie from being created
+        # shellcheck disable=SC2086
+        "$BINDIR/erl" -boot "$REL_DIR"/start_clean \
+                      -mode interactive \
+                      -boot_var SYSTEM_LIB_DIR "$SYSTEM_LIB_DIR" \
+                      -eval '[_,H]=re:split(atom_to_list(node()),"@",[unicode,{return,list}]), io:format("~s~n",[H]), halt()' \
+                      -setcookie "${COOKIE}" \
+                      -dist_listen false \
+                      ${START_EPMD} \
+                      -noshell "${NAME_TYPE}" "$id"
+    fi
+}
+
+# Connect to a remote node
+relx_rem_sh() {
+    # Remove remote_nodename when OTP-23 is the oldest version supported by rebar3/relx.
+    # sort the used erts version against 11.0 to see if it is less than 11.0 (OTP-23)
+    # if it is then we must generate a node name to use for the remote node.
+    # But this feature is only for short names in 23.0 (erts 11.0). It can be used
+    # for long names with 23.1 (erts 11.1) and above.
+    if [ "${NAME_TYPE}" = "-sname" ] && [  "11.0" = "$(printf "%s\n11.0" "${ERTS_VSN}" | sort -V | head -n1)" ] ; then
+
+        remote_nodename="${NAME_TYPE} undefined@${RELX_HOSTNAME}"
+    # if the name type is longnames then make sure this is erts 11.1+
+    elif [ "${NAME_TYPE}" = "-name" ] && [  "11.1" = "$(printf "%s\n11.1" "${ERTS_VSN}" | sort -V | head -n1)" ] ; then
+        remote_nodename="${NAME_TYPE} undefined@${RELX_HOSTNAME}"
+    else
+        # Generate a unique id used to allow multiple remsh to the same node transparently
+        remote_nodename="${NAME_TYPE} remsh$(relx_gen_id)-${NAME}"
+    fi
+
+    # Get the node's ticktime so that we use the same one
+    TICKTIME="$(erl_rpc net_kernel get_net_ticktime)"
+
+    # Setup remote shell command to control node
+    # -dist_listen is new in OTP-23. It keeps the remote node from binding to a listen port
+    # and implies the option -hidden
+    # shellcheck disable=SC2086
+    exec "$BINDIR/erl" ${remote_nodename} -remsh "$NAME" -boot "$REL_DIR"/start_clean -mode interactive \
+         -boot_var SYSTEM_LIB_DIR "$SYSTEM_LIB_DIR" \
+         -setcookie "$COOKIE" -hidden -kernel net_ticktime "$TICKTIME" \
+         -dist_listen false \
+         $DIST_ARGS \
+         $EXTRA_DIST_ARGS
+}
+
+erl_rpc() {
+    case "$ERL_RPC" in
+        "relx_nodetool")
+            relx_nodetool rpc "$@"
+            ;;
+        *)
+            command=$*
+
+            # erl_call -R is recommended for generating dynamic node name but is only available in 23.0+
+            if [  "11.0" = "$(printf "%s\n11.0" "${ERTS_VSN}" | sort -V | head -n1)" ] ; then
+                DYNAMIC_NAME="-R"
+            else
+                DYNAMIC_NAME="-r"
+            fi
+
+            if [ "$ERL_DIST_PORT" ]; then
+                result=$("$ERL_RPC" "${DYNAMIC_NAME}" -c "${COOKIE}" -address "${ERL_DIST_PORT}"  -timeout "${RELX_RPC_TIMEOUT}" -a "${command}")
+            else
+                result=$("$ERL_RPC" "$NAME_TYPE" "$NAME" "${DYNAMIC_NAME}" -c "${COOKIE}" -timeout "${RELX_RPC_TIMEOUT}" -a "${command}")
+            fi
+            code=$?
+            if [ $code -eq 0 ]; then
+                echo "$result"
+            else
+                return $code
+            fi
+            ;;
+    esac
+}
+
+erl_eval() {
+    case "$ERL_RPC" in
+        "relx_nodetool")
+            relx_nodetool eval "$@"
+            ;;
+        *)
+            command=$*
+
+            result=$(echo "${command}" | "$ERL_RPC" "$NAME_TYPE" "$NAME" -R -timeout "${RELX_RPC_TIMEOUT}" -c "${COOKIE}" -e)
+            code=$?
+            if [ $code -eq 0 ]; then
+                echo "$result" | sed 's/^{ok, $.*$}$/\1/'
+            else
+                return $code
+            fi
+            ;;
+    esac
+}
+
+
+# Generate a random id
+relx_gen_id() {
+    dd count=1 bs=4 if=/dev/urandom 2> /dev/null | od -x  | head -n1 | awk '{print $2$3}'
+}
+
+# Control a node with nodetool if erl_call isn't from OTP-23+
+relx_nodetool() {
+    command="$1"; shift
+
+    # Generate a unique id used to allow multiple nodetool calls to the
+    # same node transparently
+    nodetool_id="maint$(relx_gen_id)-${NAME}"
+
+    if [ -z "${START_EPMD}" ]; then
+        ERL_FLAGS="${ERL_FLAGS} ${DIST_ARGS} ${EXTRA_DIST_ARGS} ${NAME_TYPE} $nodetool_id -setcookie ${COOKIE}" \
+                 "$ERTS_DIR/bin/escript" \
+                 "$ROOTDIR/bin/nodetool" \
+                 "$NAME_TYPE" "$NAME" \
+                 "$command" "$@"
+    else
+        # shellcheck disable=SC2086
+        ERL_FLAGS="${ERL_FLAGS} ${DIST_ARGS} ${EXTRA_DIST_ARGS} ${NAME_TYPE} $nodetool_id -setcookie ${COOKIE}" \
+                 "$ERTS_DIR/bin/escript" \
+                 "$ROOTDIR/bin/nodetool" \
+                 $START_EPMD "$NAME_TYPE" "$NAME" "$command" "$@"
+    fi
+}
+
+# Run an escript in the node's environment
+relx_escript() {
+    scriptpath="$1"; shift
+    export RELEASE_ROOT_DIR
+
+    "$ERTS_DIR/bin/escript" "$ROOTDIR/$scriptpath" "$@"
+}
+
+make_out_file_path() {
+    # Use output directory provided in the RELX_OUT_FILE_PATH environment variable
+    # (default to the current location of vm.args and sys.config)
+    DIR=$(dirname "$1")
+    [ -d "${RELX_OUT_FILE_PATH}" ] && DIR="${RELX_OUT_FILE_PATH}"
+    FILE=$(basename "$1")
+    IN="${DIR}/${FILE}"
+
+    PFX=$(echo "$IN"   | awk '{sub(/\.[^.]+$/, "", $0)}1')
+    SFX=$(echo "$FILE" | awk -F . '{if (NF>1) print $NF}')
+    if [ "$RELX_MULTI_NODE" ]; then
+        echo "${PFX}.${NAME}.${SFX}"
+    else
+        echo "${PFX}.${SFX}"
+    fi
+}
+
+# Replace environment variables
+replace_os_vars() {
+    awk '{
+        while(match($0,"[$]{[^}]*}")) {
+            var=substr($0,RSTART+2,RLENGTH -3)
+            slen=split(var,arr,":-")
+            v=arr[1]
+            e=ENVIRON[v]
+            if(slen > 1 && e=="") {
+                i=index(var, ":-"arr[2])
+                def=substr(var,i+2)
+                gsub("[$]{"var"}",def)
+            } else {
+                gsub("[$]{"var"}",e)
+            }
+        }
+    }1' < "$1" > "$2"
+}
+
+add_path() {
+    # Use $CWD/$1 if exists, otherwise releases/VSN/$1
+    IN_FILE_PATH=$2
+    if [ -z "$IN_FILE_PATH" ]; then
+        if [ -f "$RELEASE_ROOT_DIR/$1" ]; then
+            IN_FILE_PATH="$RELEASE_ROOT_DIR/$1"
+        else
+            IN_FILE_PATH="$REL_DIR/$1"
+        fi
+    fi
+    echo "$IN_FILE_PATH"
+}
+
+check_replace_os_vars() {
+    IN_FILE_PATH=$(add_path "$1" "$2")
+    OUT_FILE_PATH="$IN_FILE_PATH"
+    SRC_FILE_PATH="$IN_FILE_PATH.src"
+    ORIG_FILE_PATH="$IN_FILE_PATH.orig"
+    if [ -f "$SRC_FILE_PATH" ]; then
+        OUT_FILE_PATH=$(make_out_file_path "$IN_FILE_PATH")
+        replace_os_vars "$SRC_FILE_PATH" "$OUT_FILE_PATH"
+    elif [ "$RELX_REPLACE_OS_VARS" ]; then
+        OUT_FILE_PATH=$(make_out_file_path "$IN_FILE_PATH")
+        # If vm.args.orig or sys.config.orig is present then use that
+        if [ -f "$ORIG_FILE_PATH" ]; then
+           IN_FILE_PATH="$ORIG_FILE_PATH"
+        fi
+
+        # apply the environment variable substitution to $IN_FILE_PATH
+        # the result is saved to $OUT_FILE_PATH
+        # if they are both the same, then ensure that we don't clobber
+        # the file by saving a backup with the .orig extension
+        if [ "$IN_FILE_PATH" = "$OUT_FILE_PATH" ]; then
+            cp "$IN_FILE_PATH" "$ORIG_FILE_PATH"
+            replace_os_vars "$ORIG_FILE_PATH" "$OUT_FILE_PATH"
+        else
+            replace_os_vars "$IN_FILE_PATH" "$OUT_FILE_PATH"
+        fi
+    else
+        # If vm.arg.orig or sys.config.orig is present then use that
+        if [ -f "$ORIG_FILE_PATH" ]; then
+            OUT_FILE_PATH=$(make_out_file_path "$IN_FILE_PATH")
+            cp "$ORIG_FILE_PATH" "$OUT_FILE_PATH"
+        fi
+    fi
+    echo "$OUT_FILE_PATH"
+}
+
+relx_run_hooks() {
+    HOOKS=$1
+    for hook in $HOOKS
+    do
+        # the scripts arguments at this point are separated
+        # from each other by | , we now replace these
+        # by empty spaces and give them to the `set`
+        # command in order to be able to extract them
+        # separately
+        # shellcheck disable=SC2046
+        set $(echo "$hook" | sed -e 's/|/ /g')
+        HOOK_SCRIPT=$1; shift
+        # all hook locations are expected to be
+        # relative to the start script location
+        # shellcheck disable=SC1090,SC2240
+        [ -f "$SCRIPT_DIR/$HOOK_SCRIPT" ] && . "$SCRIPT_DIR/$HOOK_SCRIPT" "$@"
+    done
+}
+
+relx_disable_hooks() {
+    PRE_START_HOOKS=""
+    POST_START_HOOKS=""
+    PRE_STOP_HOOKS=""
+    POST_STOP_HOOKS=""
+    PRE_INSTALL_UPGRADE_HOOKS=""
+    POST_INSTALL_UPGRADE_HOOKS=""
+    STATUS_HOOK=""
+}
+
+relx_is_extension() {
+    EXTENSION=$1
+    case "$EXTENSION" in
+        {{{ extensions }}})
+            echo "1"
+        ;;
+        *)
+            echo "0"
+        ;;
+    esac
+}
+
+relx_get_extension_script() {
+    EXTENSION=$1
+    # below are the extensions declarations
+    # of the form:
+    # foo_extension="path/to/foo_script";bar_extension="path/to/bar_script"
+    {{{extension_declarations}}}
+    # get the command extension (eg. foo) and
+    # obtain the actual script filename that it
+    # refers to (eg. "path/to/foo_script"
+    eval echo "$""${EXTENSION}_extension"
+}
+
+relx_run_extension() {
+    # drop the first argument which is the name of the
+    # extension script
+    EXTENSION_SCRIPT=$1
+    shift
+    # all extension script locations are expected to be
+    # relative to the start script location
+    # shellcheck disable=SC1090,SC2240
+    [ -f "$SCRIPT_DIR/$EXTENSION_SCRIPT" ] && . "$SCRIPT_DIR/$EXTENSION_SCRIPT" "$@"
+}
+
+# given a list of arguments, identify the internal ones
+#   --relx-disable-hooks
+# and process them accordingly
+process_internal_args() {
+    for arg in "$@"
+    do
+      shift
+      case "$arg" in
+          --relx-disable-hooks)
+            relx_disable_hooks
+            ;;
+          *)
+            ;;
+      esac
+    done
+}
+
+# process internal arguments
+process_internal_args "$@"
+
+find_erts_dir
+find_erl_call
+export ROOTDIR="$RELEASE_ROOT_DIR"
+export BINDIR="$ERTS_DIR/bin"
+export EMU="beam"
+export PROGNAME="erl"
+export LD_LIBRARY_PATH="$ERTS_DIR/lib:$LD_LIBRARY_PATH"
+SYSTEM_LIB_DIR="$(dirname "$ERTS_DIR")/lib"
+
+VMARGS_PATH=$(add_path vm.args "$VMARGS_PATH")
+
+VMARGS_PATH=$(check_replace_os_vars vm.args "$VMARGS_PATH")
+RELX_CONFIG_PATH=$(check_replace_os_vars sys.config "$RELX_CONFIG_PATH")
+
+# Check vm.args and other files referenced via -args_file parameters for:
+#    - nonexisting -args_files
+#    - circular dependencies of -args_files
+#    - relative paths in -args_file parameters
+#    - multiple/mixed occurences of -name and -sname parameters
+#    - missing -name or -sname parameters
+# If all checks pass, extract the target node name
+set +e
+TMP_NAME_ARG=$(awk 'function check_name(file)
+{
+    # if file exists, then it should be readable
+    if (system("test -f "file) == 0 && system("test -r "file) != 0) {
+        print file" not readable"
+        exit 3
+    }
+    while ((getline line<file)>0) {
+        if (line~/^-args_file +/) {
+            gsub(/^-args_file +| *$/, "", line)
+            if (line in files) {
+                print "circular reference to "line" encountered in "file
+                exit 5
+            }
+            files[line]=line
+            check_name(line)
+        }
+        else if (line~/^-s?name +/) {
+            if (name!="") {
+                print "\""line"\" parameter found in "file" but already specified as \""name"\""
+                exit 2
+            }
+            name=line
+        }
+    }
+}
+
+BEGIN {
+    split("", files)
+    name=""
+}
+
+{
+    files[FILENAME]=FILENAME
+    check_name(FILENAME)
+    if (name=="") {
+        print "need to have exactly one of either -name or -sname parameters but none found"
+        exit 1
+    }
+    print name
+    exit 0
+}' "$VMARGS_PATH")
+TMP_NAME_ARG_RC=$?
+case $TMP_NAME_ARG_RC in
+    0) NAME_ARG="$TMP_NAME_ARG";;
+    *) echo "$TMP_NAME_ARG"
+       exit $TMP_NAME_ARG_RC;;
+esac
+unset TMP_NAME_ARG
+unset TMP_NAME_ARG_RC
+set -e
+
+# Perform replacement of variables in ${NAME_ARG}
+NAME_ARG=$(eval echo "${NAME_ARG}")
+
+# Extract the name type and name from the NAME_ARG for REMSH
+NAME_TYPE="$(echo "$NAME_ARG" | awk '{print $1}')"
+NAME="$(echo "$NAME_ARG" | awk '{print $2}')"
+
+# Extract dist arguments
+DIST_ARGS=""
+PROTO_DIST="$(grep '^-proto_dist' "$VMARGS_PATH" || true)"
+if [ "$PROTO_DIST" ]; then
+    DIST_ARGS="${PROTO_DIST}"
+fi
+START_EPMD="$(grep '^-start_epmd' "$VMARGS_PATH" || true)"
+if [ "$START_EPMD" ]; then
+    DIST_ARGS="${DIST_ARGS} ${START_EPMD}"
+fi
+EPMD_MODULE="$(grep '^-epmd_module' "$VMARGS_PATH" || true)"
+if [ "$EPMD_MODULE" ]; then
+    DIST_ARGS="${DIST_ARGS} ${EPMD_MODULE}"
+fi
+
+if [ "$ERL_DIST_PORT" ]; then
+    if [  "11.1" = "$(printf "%s\n11.1" "${ERTS_VSN}" | sort -V | head -n1)" ] ; then
+        # unless set by the user, set start_epmd to false when ERL_DIST_PORT is used
+        if [ ! "$START_EPMD" ]; then
+            EXTRA_DIST_ARGS="-erl_epmd_port ${ERL_DIST_PORT} -start_epmd false"
+        else
+            EXTRA_DIST_ARGS="-erl_epmd_port ${ERL_DIST_PORT}"
+        fi
+    else
+        EXTRA_DIST_ARGS="-kernel inet_dist_listen_min ${ERL_DIST_PORT} -kernel inet_dist_listen_max ${ERL_DIST_PORT}"
+    fi
+fi
+
+# Extract the target cookie
+# Do this before relx_get_nodename so we can use it and not create a ~/.erlang.cookie
+if [ -n "$RELX_COOKIE" ]; then
+    COOKIE="$RELX_COOKIE"
+else
+    COOKIE_ARG="$(grep '^-setcookie' "$VMARGS_PATH" || true)"
+    DEFAULT_COOKIE_FILE="$HOME/.erlang.cookie"
+    if [ -z "$COOKIE_ARG" ]; then
+        if [ -f "$DEFAULT_COOKIE_FILE" ]; then
+            COOKIE="$(cat "$DEFAULT_COOKIE_FILE")"
+        else
+            echo "No cookie is set or found. This limits the scripts functionality, installing, upgrading, rpc and getting a list of versions will not work."
+        fi
+    else
+        # Extract cookie name from COOKIE_ARG
+        COOKIE="$(echo "$COOKIE_ARG" | awk '{print $2}')"
+    fi
+fi
+
+# User can specify an sname without @hostname
+# This will fail when creating remote shell
+# So here we check for @ and add @hostname if missing
+case "${NAME}" in
+    *@*) ;;                             # Nothing to do
+    *)   NAME=${NAME}@$(relx_get_nodename);;  # Add @hostname
+esac
+
+# Export the variable so that it's available in the 'eval' calls
+export NAME
+
+# create a variable of just the hostname part of the nodename
+RELX_HOSTNAME=$(echo "${NAME}" | cut -d'@' -f2)
+
+test -z "$PIPE_DIR" && PIPE_BASE_DIR='/tmp/erl_pipes/'
+PIPE_DIR="${PIPE_DIR:-/tmp/erl_pipes/$NAME/}"
+
+cd "$ROOTDIR"
+
+# Check the first argument for instructions
+case "$1" in
+    start|daemon|daemon_boot)
+        case "$1" in
+            daemon)
+                shift
+                START_OPTION="console"
+                HEART_OPTION="daemon"
+                ;;
+            daemon_boot)
+                shift
+                START_OPTION="console_boot"
+                HEART_OPTION="daemon_boot"
+                ;;
+            start)
+                # TODO, add here the right annoying message asking users to consider
+                # instead using systemd or some such other init system
+                echo "'start' has been deprecated, replaced by 'daemon' and will be removed in the short-term, please consult rebar3.org on why you should be"\
+                     "using 'foreground' and an init tool such as 'systemd'"
+                shift
+                START_OPTION="console"
+                HEART_OPTION="daemon"
+                ;;
+        esac
+
+        ARGS="$(printf "'%s' " "$@")"
+
+        export HEART_COMMAND="\"${RELEASE_ROOT_DIR}/bin/${REL_NAME}\" \"${HEART_OPTION}\" ${ARGS}"
+
+        # shellcheck disable=SC2174
+        test -z "$PIPE_BASE_DIR" || mkdir -m 1777 -p "$PIPE_BASE_DIR"
+        mkdir -p "$PIPE_DIR"
+        if [ ! -w "$PIPE_DIR" ]
+        then
+            echo "failed to start, user '$USER' does not have write privileges on '$PIPE_DIR', either delete it or run node as a different user"
+            exit 1
+        fi
+
+        # Make sure log directory exists
+        mkdir -p "$RUNNER_LOG_DIR"
+
+        relx_run_hooks "$PRE_START_HOOKS"
+        "$BINDIR/run_erl" -daemon "$PIPE_DIR" "$RUNNER_LOG_DIR" \
+                          "exec \"$RELEASE_ROOT_DIR/bin/$REL_NAME\" \"$START_OPTION\" $ARGS --relx-disable-hooks"
+
+        # wait for node to be up before running hooks
+        while ! erl_rpc erlang is_alive > /dev/null 2>&1
+        do
+            sleep 1
+        done
+
+        relx_run_hooks "$POST_START_HOOKS"
+        ;;
+
+    stop)
+        relx_run_hooks "$PRE_STOP_HOOKS"
+        # Wait for the node to completely stop...
+        PID="$(relx_get_pid)"
+        if ! erl_rpc init stop > /dev/null 2>&1; then
+            exit 1
+        fi
+        while kill -s 0 "$PID" 2>/dev/null;
+        do
+            sleep 1
+        done
+
+        # wait for node to be down before running hooks
+        while erl_rpc erlang is_alive > /dev/null 2>&1
+        do
+            sleep 1
+        done
+
+        relx_run_hooks "$POST_STOP_HOOKS"
+        ;;
+
+    restart)
+        ## Restart the VM without exiting the process
+        if ! erl_rpc init restart > /dev/null; then
+            exit 1
+        fi
+        ;;
+
+    reboot)
+        ## Restart the VM completely (uses heart to restart it)
+        if ! erl_rpc init reboot > /dev/null; then
+            exit 1
+        fi
+        ;;
+
+    pid)
+        ## Get the VM's pid
+        if ! relx_get_pid; then
+            exit 1
+        fi
+        ;;
+
+    ping)
+        ## See if the VM is alive
+        ping_or_exit
+
+        echo "pong"
+        ;;
+
+    escript)
+        ## Run an escript under the node's environment
+        shift
+        if ! relx_escript "$@"; then
+            exit 1
+        fi
+        ;;
+
+    daemon_attach|attach)
+        case "$1" in
+            attach)
+                # TODO, add here the right annoying message asking users to consider
+                # instead using systemd or some such other init system
+                echo "'attach' has been deprecated, replaced by 'daemon_attach' and will be removed in the short-term, please consult rebar3.org on why you should be"\
+                     "using 'foreground' and an init tool such as 'systemd'"
+                ;;
+        esac
+        # Make sure a node IS running
+        ping_or_exit
+
+        if [ ! -w "$PIPE_DIR" ]
+        then
+            echo "failed to attach, user '$USER' does not have sufficient privileges on '$PIPE_DIR', please run node as a different user"
+            exit 1
+        fi
+
+        shift
+        exec "$BINDIR/to_erl" "$PIPE_DIR"
+        ;;
+
+    remote_console|remote|remsh)
+        # Make sure a node IS running
+        ping_or_exit
+
+        shift
+        relx_rem_sh
+        ;;
+
+    upgrade|downgrade|install|unpack|uninstall)
+        if [ -z "$2" ]; then
+            echo "Missing version argument"
+            echo "Usage: $REL_NAME $1 {version}"
+            exit 1
+        fi
+
+        COMMAND="$1"; shift
+
+        # Make sure a node IS running
+        ping_or_exit
+
+        relx_run_hooks "$PRE_INSTALL_UPGRADE_HOOKS"
+
+        exec "$BINDIR/escript" "$ROOTDIR/bin/install_upgrade.escript" \
+             "$COMMAND" "{'$REL_NAME', \"$NAME_TYPE\", '$NAME', '$COOKIE'}" "$@"
+
+        relx_run_hooks "$POST_INSTALL_UPGRADE_HOOKS"
+        ;;
+
+    versions)
+        # Make sure a node IS running
+        ping_or_exit
+
+        COMMAND="$1"; shift
+
+        exec "$BINDIR/escript" "$ROOTDIR/bin/install_upgrade.escript" \
+             "versions" "{'$REL_NAME', \"$NAME_TYPE\", '$NAME', '$COOKIE'}" "$@"
+        ;;
+
+    console|console_clean|console_boot|foreground)
+        FOREGROUNDOPTIONS=""
+        # .boot file typically just $REL_NAME (ie, the app name)
+        # however, for debugging, sometimes start_clean.boot is useful.
+        # For e.g. 'setup', one may even want to name another boot script.
+        case "$1" in
+            console)
+                if [ -f "$REL_DIR/$REL_NAME.boot" ]; then
+                  BOOTFILE="$REL_DIR/$REL_NAME"
+                else
+                  BOOTFILE="$REL_DIR/start"
+                fi
+                ;;
+            foreground)
+                # start up the release in the foreground for use by runit
+                # or other supervision services
+                if [ -f "$REL_DIR/$REL_NAME.boot" ]; then
+                  BOOTFILE="$REL_DIR/$REL_NAME"
+                else
+                  BOOTFILE="$REL_DIR/start"
+                fi
+                FOREGROUNDOPTIONS="-noinput +Bd"
+                ;;
+            console_clean)
+                # if not set by user use interactive mode for console_clean
+                CODE_LOADING_MODE="${CODE_LOADING_MODE:-interactive}"
+                BOOTFILE="$REL_DIR/start_clean"
+                ;;
+            console_boot)
+                shift
+                BOOTFILE="$1"
+                shift
+                ;;
+        esac
+
+        # if not set by user or console_clean use embedded
+        CODE_LOADING_MODE="${CODE_LOADING_MODE:-embedded}"
+
+        # Setup beam-required vars
+        EMU="beam"
+        PROGNAME="${0#*/}"
+
+        export EMU
+        export PROGNAME
+
+        # Dump environment info for logging purposes
+        # shellcheck disable=SC2086
+        echo "Exec: $BINDIR/erlexec" $FOREGROUNDOPTIONS \
+            -boot "$BOOTFILE" -mode "$CODE_LOADING_MODE" \
+            -boot_var SYSTEM_LIB_DIR "$SYSTEM_LIB_DIR" \
+            -config "$RELX_CONFIG_PATH" \
+            -args_file "$VMARGS_PATH" \
+            $EXTRA_DIST_ARGS -- "$@"
+        echo "Root: $ROOTDIR"
+
+        # Log the startup
+        echo "$RELEASE_ROOT_DIR"
+        logger -t "${REL_NAME}[$$]" "Starting up"
+
+        relx_run_hooks "$PRE_START_HOOKS"
+        # Start the VM
+        # The variabre FOREGROUNDOPTIONS must NOT be quoted.
+        # shellcheck disable=SC2086
+        exec "$BINDIR/erlexec" $FOREGROUNDOPTIONS \
+            -boot "$BOOTFILE" -mode "$CODE_LOADING_MODE" \
+            -boot_var SYSTEM_LIB_DIR "$SYSTEM_LIB_DIR" \
+            -config "$RELX_CONFIG_PATH" \
+            -args_file "$VMARGS_PATH" \
+            $EXTRA_DIST_ARGS -- "$@"
+        # exec will replace the current image and nothing else gets
+        # executed from this point on, this explains the absence
+        # of the pre start hook
+        ;;
+    rpc)
+        # Make sure a node IS running
+        ping_or_exit
+
+        shift
+
+        erl_rpc "$@"
+        ;;
+    eval)
+        # Make sure a node IS running
+        ping_or_exit
+
+        shift
+
+        erl_eval "$@"
+        ;;
+    status)
+        # Make sure a node IS running
+        ping_or_exit
+
+        # shellcheck disable=SC1090,SC2240
+        [ -n "${STATUS_HOOK}" ] && [ -f "$SCRIPT_DIR/$STATUS_HOOK" ] && . "$SCRIPT_DIR/$STATUS_HOOK" "$@"
+        ;;
+    help)
+        if [ -z "$2" ]; then
+            relx_usage
+            exit 1
+        fi
+
+        TOPIC="$2"; shift
+        relx_usage "$TOPIC"
+        ;;
+    *)
+        # check for extension
+        IS_EXTENSION=$(relx_is_extension "$1")
+        if [ "$IS_EXTENSION" = "1" ]; then
+            EXTENSION_SCRIPT=$(relx_get_extension_script "$1")
+            shift
+            relx_run_extension "$EXTENSION_SCRIPT" "$@"
+            # all extension scripts are expected to exit
+        else
+            relx_usage "$1"
+        fi
+        exit 1
+        ;;
+esac
+
+exit 0

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/priv/templates/extended_bin_windows Added

@@ -0,0 +1,373 @@
+@echo off
+:: This batch file handles managing an Erlang node as a Windows service.
+::
+:: Commands provided:
+::
+:: * install - install the release as a Windows service
+:: * start - start the service and Erlang node
+:: * stop - stop the service and Erlang node
+:: * restart - run the stop command and start command
+:: * uninstall - uninstall the service and kill a running node
+:: * ping - check if the node is running
+:: * console - start the Erlang release in a `werl` Windows shell
+:: * attach - connect to a running node and open an interactive console
+:: * remote_console - alias for attach
+:: * list - display a listing of installed Erlang services
+:: * usage - display available commands
+
+:: Set variables that describe the release
+set rel_name={{ rel_name }}
+set rel_vsn={{ rel_vsn }}
+set erts_vsn={{ erts_vsn }}
+set erl_opts={{ erl_opts }}
+
+:: export these to match mix release environment variables
+set RELEASE_NAME={{ rel_name }}
+set RELEASE_VSN={{ rel_vsn }}
+set RELEASE_PROG=%~nx0
+
+:: Make sure `findstr` is accessible
+set PATH=%PATH%;%SystemRoot%\System32
+
+:: Discover the release root directory from the directory
+:: of this script
+set script_dir=%~dp0
+for %%A in ("%script_dir%\..") do (
+  set release_root_dir=%%~fA
+)
+set "rel_dir=%release_root_dir%\releases\%rel_vsn%"
+
+call :find_erts_dir
+call :find_sys_config
+call :set_boot_script_var
+
+set service_name=%rel_name%_%rel_vsn%
+set bindir=%erts_dir%\bin
+set vm_args=%rel_dir%\vm.args
+set progname=erl.exe
+set clean_boot_script=%rel_dir%\start_clean
+set erlsrv="%bindir%\erlsrv.exe"
+set epmd="%bindir%\epmd.exe"
+set escript="%bindir%\escript.exe"
+set werl="%bindir%\werl.exe"
+set erl="%bindir%\erl.exe"
+set nodetool="%release_root_dir%\bin\nodetool"
+set "extensions0={{ extensions }}"
+set "extensions1=%extensions0:|= %"
+set "extensions=%extensions1: undefined=%"
+
+:: Extract node type and name from vm.args
+for /f "usebackq tokens=1-2" %%I in (`findstr /b "\-name \-sname" "%vm_args%"`) do (
+  set node_type=%%I
+  set node_name=%%J
+)
+
+for /f "delims=@ tokens=1-2" %%I in ("%node_name%") do (
+    set node_name=%%I
+    set hostname=%%J
+)
+
+:: if no hostname is set, attempt to pick one from the env
+if "" == "%hostname%" (
+    if "-sname" == "%node_type%" (
+        if not "" == "%COMPUTERNAME%" (
+            set "hostname=%COMPUTERNAME%"
+        )
+    ) else (
+        if not "" == "%COMPUTERNAME%" (
+            if not "" == "%USERDNSDOMAIN%" (
+                set "hostname=%COMPUTERNAME%.%USERDNSDOMAIN%"
+            )
+        )
+    )
+)
+:: Add @ to hostname if not empty so that we can just concatenate values safely
+if not "" == "%hostname%" (
+    set "hostname=@%hostname%"
+)
+
+:: Extract the target cookie
+:: Do this before relx_get_nodename so we can use it and not create a ~/.erlang.cookie
+for /f "usebackq tokens=1-2" %%I in (`findstr /b \-setcookie "%vm_args%"`) do (
+  set "cookie=%%J"
+)
+set "default_cookie_file=%USERPROFILE%\.erlang.cookie"
+if "%cookie%" == "" (
+        if exist "%default_cookie_file%" (
+                set /p cookie=<%default_cookie_file%
+        ) else (
+                echo No cookie is set or found. This limits the scripts functionality, installing, upgrading, rpc and getting a list of versions will not work.
+        )
+)
+
+:: Write the erl.ini file to set up paths relative to this script
+call :write_ini
+
+:: Collect any additional VM args into erl_opts
+setlocal EnableDelayedExpansion
+for /f "usebackq tokens=1,*" %%I in (`findstr /r "^[^#]" "%vm_args%"`) do (
+  if not "%%I" == "-name" (
+    if not "%%I" == "-sname" (
+      if not "%%I" == "-setcookie" (
+        set erl_opts=!erl_opts! %%I %%J
+      )
+    )
+  )
+)
+endlocal && set erl_opts=%erl_opts%
+
+:: If a start.boot file is not present, copy one from the named .boot file
+if not exist "%rel_dir%\start.boot" (
+  copy "%rel_dir%\%rel_name%.boot" "%rel_dir%\start.boot" >nul
+)
+
+if "%1"=="help" goto usage
+if "%1"=="install" goto install
+if "%1"=="uninstall" goto uninstall
+if "%1"=="start" goto start
+if "%1"=="stop" goto stop
+if "%1"=="restart" call :stop && goto start
+if "%1"=="upgrade" goto relup
+if "%1"=="downgrade" goto relup
+if "%1"=="console" goto console
+if "%1"=="ping" goto ping
+if "%1"=="list" goto list
+if "%1"=="attach" goto attach
+if "%1"=="remote_console" goto attach
+if "%1"=="" goto usage
+
+call :is_extension "%1"
+if "%ERRORLEVEL%"=="0" goto run_extension
+
+echo Unknown command: "%1"
+
+goto :eof
+
+:: Find the ERTS dir
+:find_erts_dir
+set "possible_erts_dir=%release_root_dir%\erts-%erts_vsn%"
+if exist "%possible_erts_dir%" (
+  call :set_erts_dir_from_default
+) else (
+  call :set_erts_dir_from_erl
+)
+goto :eof
+
+:: Set the ERTS dir from the passed in erts_vsn
+:set_erts_dir_from_default
+set "erts_dir=%possible_erts_dir%"
+set "rootdir=%release_root_dir%"
+goto :eof
+
+:: Set the ERTS dir from erl
+:set_erts_dir_from_erl
+for /f "delims=" %%i in ('where erl') do (
+  set "erl=%%i"
+)
+for /f "delims=" %%i in ('call "%erl%" -boot no_dot_erlang -boot_var RELEASE_DIR "%release_root_dir%" -noshell -eval "io:format(\"~s\", [filename:nativename(code:root_dir())])." -s init stop') do (
+  set "erl_root=%%i"
+)
+set "erts_dir=%erl_root%\erts-%erts_vsn%"
+set "rootdir=%erl_root%"
+goto :eof
+
+:: Find the sys.config file
+:find_sys_config
+set "possible_sys=%rel_dir%\sys.config"
+if exist "%possible_sys%" (
+  set sys_config=-config "%possible_sys%"
+) else (
+  if exist "%possible_sys%.orig" (
+    ren "%possible_sys%.orig" sys.config
+    set sys_config=-config "%possible_sys%"
+  )
+)
+goto :eof
+
+:: Find the vm.args file
+:find_vm_args
+if not exist "%vm_args%" (
+  if exist "%vm_args%.orig" (
+    ren "%vm_args%.orig" vm.args
+  )
+)
+goto :eof
+
+:: set boot_script variable
+:set_boot_script_var
+if exist "%rel_dir%\%rel_name%.boot" (
+  set "boot_script=%rel_dir%\%rel_name%"
+) else (
+  set "boot_script=%rel_dir%\start"
+)
+goto :eof
+
+:: Write the erl.ini file
+:write_ini
+set erl_ini=%erts_dir%\bin\erl.ini
+set converted_bindir=%bindir:\=\\%
+set converted_rootdir=%rootdir:\=\\%
+echo [erlang] > "%erl_ini%"
+echo Bindir=%converted_bindir% >> "%erl_ini%"
+echo Progname=%progname% >> "%erl_ini%"
+echo Rootdir=%converted_rootdir% >> "%erl_ini%"
+goto :eof
+
+:: Display usage information
+:usage
+if "%2"=="install" (
+  echo "Usage: %rel_name% install [VERSION]"
+  echo "Installs a release package VERSION, it assumes that this"
+  echo "release package tarball has already been deployed at one"
+  echo "of the following locations:"
+  echo "      releases/<relname>-<version>.tar.gz"
+  echo "      releases/<version>/<relname>-<version>.tar.gz"
+  echo "      releases/<version>/<relname>.tar.gz"
+  echo ""
+  echo "     --no-permanent   Install release package VERSION but"
+  echo "                      don't make it permanent"
+  goto :eof
+)
+if "%2"=="uninstall" (
+  echo "Usage: %rel_name% uninstall [VERSION]"
+  echo "Uninstalls a release VERSION, it will only accept"
+  echo "versions that are not currently in use"
+  goto :eof
+)
+if "%2"=="upgrade" (
+  echo "Usage: %rel_name% upgrade [VERSION]"
+  echo "Upgrades the currently running release to VERSION, it assumes"
+  echo "that a release package tarball has already been deployed at one"
+  echo "of the following locations:"
+  echo "      releases/<relname>-<version>.tar.gz"
+  echo "      releases/<version>/<relname>-<version>.tar.gz"
+  echo "      releases/<version>/<relname>.tar.gz"
+  echo ""
+  echo "     --no-permanent   Install release package VERSION but"
+  echo "                      don't make it permanent"
+  goto :eof
+)
+if "%2"=="downgrade" (
+  echo "Usage: %rel_name% downgrade [VERSION]"
+  echo "Downgrades the currently running release to VERSION, it assumes"
+  echo "that a release package tarball has already been deployed at one"
+  echo "of the following locations:"
+  echo "      releases/<relname>-<version>.tar.gz"
+  echo "      releases/<version>/<relname>-<version>.tar.gz"
+  echo "      releases/<version>/<relname>.tar.gz"
+  echo ""
+  echo "     --no-permanent   Install release package VERSION but"
+  echo "                      don't make it permanent"
+  goto :eof
+)
+call :is_extension "%2"
+if "%ERRORLEVEL%"=="0" (
+  if exist "%script_dir%\extensions\%2.cmd" (
+    call "%script_dir%\extensions\%2.cmd" help
+    goto :eof
+  )
+)
+set commands=install uninstall start stop restart upgrade downgrade console ping list attach remote_console
+if not "%extensions%"=="" (
+  set "commands=%commands% %extensions%"
+)
+echo Usage: %~n0 ^(%commands: =^|%^)
+goto :eof
+
+:: Install the release as a Windows service
+:: or install the specified version passed as argument
+:install
+set args=%erl_opts% -setcookie %cookie% ++ -rootdir \"%rootdir%\"
+set start_erl=%erts_dir%\bin\start_erl.exe
+set description=Erlang node %node_name%%hostname% in %rootdir%
+if "" == "%2" (
+  :: Install the service
+  %erlsrv% add %service_name% %node_type% "%node_name%%hostname%" -c "%description%" -w "%rootdir%" -m "%start_erl%" -args "%args%" -stopaction "init:stop()."
+) else (
+  :: relup and reldown
+  goto relup
+)
+goto :eof
+
+:: Uninstall the Windows service
+:uninstall
+%erlsrv% remove %service_name%
+%epmd% -kill
+goto :eof
+
+:: Start the Windows service
+:start
+%erlsrv% start %service_name%
+goto :eof
+
+:: Stop the Windows service
+:stop
+%erlsrv% stop %service_name%
+goto :eof
+
+:: Relup and reldown
+:relup
+if "" == "%2" (
+  echo Missing version argument
+  echo Usage: %rel_name% %1 {version}
+  set ERRORLEVEL=1
+  exit /b %ERRORLEVEL%
+)
+%escript% "%rootdir%/bin/install_upgrade.escript" "install" "{'%rel_name%', \"%node_type%\", '%node_name%%hostname%', '%cookie%'}" "%2" "%3"
+goto :eof
+
+:: Start a console
+:console
+set boot=-boot "%boot_script%" -boot_var RELEASE_DIR "%release_root_dir%"
+start "%rel_name% console" %werl% %boot% %sys_config%  ^
+       -args_file "%vm_args%"
+goto :eof
+
+:: Ping the running node
+:ping
+%escript% %nodetool% ping %node_type% %node_name%%hostname% -setcookie %cookie%
+goto :eof
+
+:: List installed Erlang services
+:list
+%erlsrv% list %service_name%
+goto :eof
+
+:: Attach to a running node
+:attach
+set boot=-boot "%clean_boot_script%" -boot_var RELEASE_DIR "%release_root_dir%"
+start "%node_name% attach" %werl% %boot% ^
+       -remsh %node_name%%hostname% %node_type% console_%node_name%_%random% -setcookie %cookie%
+goto :eof
+
+:: Run extension script
+:run_extension
+if exist "%script_dir%\extensions\%1.cmd" (
+  set _extension_params=%*
+  call set _extension_params=%%_extension_params:*%1=%%
+  call "%script_dir%\extensions\%1.cmd" %%_extension_params%%
+)
+
+goto :eof
+
+:: Local Functions
+
+:is_extension
+
+set "ext=%~1"
+
+:: Check for entries in the list, not at the ends
+call set "ext_test_1=x%%extensions: %ext% =%%"
+
+:: Check for entry at the start of the list
+call set "ext_test_2=x%%extensions:%ext% =%%"
+
+:: Check for entry at the end of the list
+call set "ext_test_3=x%%extensions: %ext%=%%"
+
+if not "%ext_test_1%"=="x%extensions%" exit /b 0
+if not "%ext_test_2%"=="x%extensions%" exit /b 0
+if not "%ext_test_3%"=="x%extensions%" exit /b 0
+
+exit /b 1
+

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/priv/templates/extended_bin_windows_ps Added

@@ -0,0 +1,467 @@
+#! /usr/bin/pwsh
+# This script handles managing an Erlang node as a Windows service.
+#
+# Commands provided:
+#
+# * install - install the release as a Windows service
+# * start - start the service and Erlang node
+# * stop - stop the service and Erlang node
+# * restart - run the stop command and start command
+# * uninstall - uninstall the service and kill a running node
+# * ping - check if the node is running
+# * console - start the Erlang release in a `werl` Windows shell
+# * attach - connect to a running node and open an interactive console
+# * remote_console - alias for attach
+# * list - display a listing of installed Erlang services
+# * usage - display available commands
+param (
+    [string] $Command
+)
+
+# Terminate on error
+$ErrorActionPreference = "Stop"
+
+# Set variables that describe the release
+$rel_name = '{{ rel_name }}'
+$rel_vsn = '{{ rel_vsn }}'
+$erts_vsn = '{{ erts_vsn }}'
+$erl_opts = '{{ erl_opts }}'
+
+# export these to match mix release environment variables
+$RELEASE_NAME = '{{ rel_name }}'
+$RELEASE_VERSION = '{{ rel_vsn }}'
+$RELEASE_PROG = $MyInvocation.MyCommand.Name
+
+# Ensure we have PSScriptRoot
+if (!(Test-Path variable:global:PSScriptRoot)) {
+    # Support powershell 2.0
+    $PSScriptRoot = Split-Path -Parent -Path $MyInvocation.MyCommand.Definition
+}
+
+# Ensure we have PSCommandPath
+if (!(Test-Path variable:global:PSCommandPath)) {
+    # Support powershell 2.0
+    $PSCommandPath = $MyInvocation.PSCommandPath
+}
+
+$PSCriptName = Split-Path -Leaf -Path $PSCommandPath
+
+# Import psutil helper functions
+. $PSScriptRoot\psutil.ps1
+
+# Set the root release directory based on the location of this batch file
+$rootdir = Split-Path -Parent -Path $PSScriptRoot
+$rel_dir = "$rootdir\releases\$rel_vsn"
+
+$erts_root, $erts_dir = Find-ERTS -RelRoot $rootdir -Vsn $erts_vsn
+$sys_config = Find-FormatConfig -RelDir $rel_dir -File 'sys.config'
+$vm_args = Find-FormatConfig -RelDir $rel_dir -File 'vm.args'
+$boot_script = Find-BootScript -RelDir $rel_dir -RelName $rel_name
+
+$service_name = "${rel_name}_${rel_vsn}"
+$nodetool = "$rootdir\bin\nodetool"
+
+$bindir = "$erts_dir\bin"
+$werl = "$bindir\werl.exe"
+$erl = "$bindir\erl.exe"
+$erlsrv = "$bindir\erlsrv.exe"
+$epmd = "$bindir\epmd.exe"
+$escript = "$bindir\escript.exe"
+
+# Added in OTP-23
+$erl_call = "$bindir\erl_call.exe"
+
+# if RELX_RPC_TIMEOUT is set then use that
+# otherwise check for NODETOOL_TIMEOUT and convert to seconds
+if (Test-Path env:RELX_RPC_TIMEOUT) {
+    $relx_rpc_timeout = $env:RELX_RPC_TIMEOUT
+}
+elseif (Test-Path env:NODETOOL_TIMEOUT) {
+    # will exit the script if NODETOOL_TIMEOUT isn't a number
+    $relx_rpc_timeout = $env:NODETOOL_TIMEOUT / 1000
+}
+else {
+    $relx_rpc_timeout = 60
+}
+
+$extensions = @("{{ extensions }}" -split '[|]' | Where-Object { $_ -ne 'undefined' })
+
+# Run extension script
+function RunExtension() {
+    param(
+        [string]$Name
+    )
+    # Manifest xxx_extension as local variable
+    "{{ extension_declarations }}" -split ";" | ForEach-Object { Invoke-Expression "`$$_" }
+    # Manifest value of xxx_extension as $script
+    $script = Invoke-Expression "`$${Name}_extension"
+    # Execute
+    & "$PSScriptRoot\$script" @args
+}
+
+# Extract node type and name from vm.args
+$node_type, $node_name, $hostname = Get-NodeAndHost $vm_args
+
+# Extract the target cookie
+# Do this before relx_get_nodename so we can use it and not create a ~/.erlang.cookie
+$cookie = Get-Cookie $vm_args
+
+# Collect additional (allowed) VM args into erl_opts for erlsrv/start_erl
+$opts = Get-Content $vm_args `
+    | Select-String '^(#|-name|-sname|-setcookie|-noinput|-noshell)' -NotMatch `
+    | ForEach-Object { $_.line } `
+    | Where-Object { $_.length -gt 0 }
+$erl_opts += "$opts"
+
+# If a start.boot file is not present, copy one from the named .boot file
+if (!(Test-Path "$rel_dir\start.boot")) {
+    Copy-Item "$rel_dir\$rel_name.boot" "$rel_dir\start.boot" | Out-Null
+}
+
+# List of supported commands, help, etc
+$commands = @{
+    'help' = @{
+        'ShortHelp' = 'Show help';
+        'LongHelp' = 'Shows help for <command>';
+        'Usage' = '<command>';
+        'Invoke' = 'Usage';
+        'PassArgs' = $true
+`    };
+    'install' = @{
+        'ShortHelp' = 'Install the service';
+        'LongHelp' = 'Installs release <version> as a windows service';
+        'Usage' = '<version>';
+        'Invoke' = 'Install';
+        'PassArgs' = $true
+`    };
+    'uninstall' = @{
+        'ShortHelp' = 'Uninstall the service';
+        'LongHelp' = 'Uninstalls release <version> as a windows service';
+        'Usage' = '<version>';
+        'Invoke' = 'Uninstall';
+        'PassArgs' = $true
+    };
+    'start' = @{
+        'ShortHelp' = 'Start the service';
+        'LongHelp' = 'Starts the installed windows service';
+        'Usage' = '';
+        'Invoke' = 'Start-SVC';
+        'Aliases' = @('daemon')
+    };
+    'stop' = @{
+        'ShortHelp' = 'Stop the service';
+        'LongHelp' = 'Stops the installed windows service';
+        'Usage' = '';
+        'Invoke' = 'Stop-SVC'
+    };
+    'restart' = @{
+        'ShortHelp' = 'Restart the service';
+        'LongHelp' = 'Restarts the installed windows service';
+        'Usage' = '';
+        'Invoke' = @('Stop-SVC','Start-SVC')
+    };
+    'upgrade' = @{
+        'ShortHelp' = 'Upgrade the running service';
+        'LongHelp' = 'Upgrades the service to release <version>';
+        'Usage' = '<version> [--no-permanent]';
+        'Invoke' = 'Relup';
+        'PassArgs' = $true
+    };
+    'downgrade' = @{
+        'ShortHelp' = 'Downgrade the running service';
+        'LongHelp' = 'Downgrades the service to release <version>';
+        'Usage' = '<version>';
+        'Invoke' = 'Relup';
+        'PassArgs' = $true
+    };
+    'console' = @{
+        'ShortHelp' = 'Start the release with an interactive shell';
+        'LongHelp' = 'Starts release VERSION with an interactive shell';
+        'Usage' = '';
+        'Invoke' = 'Console'
+    };
+    'foreground' = @{
+        'ShortHelp' = 'Start the release with a non-interactive shell';
+        'LongHelp' = 'Starts the release with a non-interactive shell';
+        'Usage' = '';
+        'Invoke' = 'Foreground'
+    };
+    'ping' = @{
+        'ShortHelp' = 'Print pong if the node is alive';
+        'LongHelp' = 'Checks if the service (or console) is running';
+        'Usage' = '';
+        'Invoke' = 'Ping'
+    };
+    'list' = @{
+        'ShortHelp' = 'List installed Erlang services';
+        'LongHelp' = 'Lists all Erlang services installed on this machine';
+        'Usage' = '';
+        'Invoke' = 'List'
+    };
+    'attach' = @{
+        'ShortHelp' = 'Connect remote shell to running node';
+        'LongHelp' = 'Connects to running service or console shell';
+        'Usage' = '';
+        'Invoke' = 'Attach';
+        'Aliases' = @('remote_console', 'remote', 'remsh', 'daemon_attach')
+    };
+    'rpc' = @{
+        'ShortHelp' = 'Applies the specified function and returns the result';
+        'LongHelp' = "Applies the specified function and returns the result.`n" `
+                   + "Mod must be specified. However, start and [] are assumed`n" `
+                   + "for unspecified Fun and Args, respectively. Args is to`n" `
+                   + "be in the same format as for erlang:apply/3 in ERTS."
+        'Usage' = '<mod> [<func> [<args>]]';
+        'Invoke' = @('PingOrExit', 'Rpc');
+        'PassArgs' = $true
+    };
+    'eval' = @{
+        'ShortHelp' = 'Executes a sequence of Erlang expressions';
+        'LongHelp' = 'Executes a sequence of Erlang expressions, separated by`n' `
+                   + 'comma (,) and ended with a full stop (.)'
+        'Usage' = '[<exprs>]';
+        'Invoke' = @('PingOrExit', 'Eval');
+        'PassArgs' = $true
+    };
+    'versions' = @{
+        'ShortHelp' = 'Print versions of the release available';
+        'LongHelp' = 'Print versions of the release available'
+        'Usage' = '';
+        'Invoke' = 'Versions'
+    }
+}
+
+# Build easy aliases
+$aliases = @{}
+$commands.GetEnumerator() | 
+    Where-Object { $_.Value.ContainsKey('Aliases') } | 
+    ForEach-Object { $target = $_.Key; $_.Value.Aliases | Foreach-Object { $aliases += @{ $_ = $target } }; }
+
+# Output usage
+function Usage() {
+    param(
+        [string]$Command
+    )
+    switch ($Command) {
+        {$commands.ContainsKey($Command)} {
+            $cmd = $commands.item($_)
+            "Usage: $PSCriptName $Command $($cmd.Usage)"
+            ""
+            "$($cmd.LongHelp)"
+            ""
+        }
+        {$aliases.ContainsKey($Command)} {
+            $cmd = $commands.item($aliases.item($_))
+            "Usage: $PSCriptName $Command $($cmd.Usage)"
+            ""
+            "$($cmd.LongHelp)"
+            ""
+        }
+        {$extensions -contains $_} { RunExtension $_ help }
+        Default {
+            "Usage: $($MyInvocation.MyCommand.Name) <command> <args>"
+            "Commands:"
+            $commands.keys | Sort-Object | ForEach-Object {
+                @{"$_" = $commands.item($_).ShortHelp }
+            } | Format-Table -HideTableHeaders
+        }
+    }
+}
+
+# Install the service
+function Install() {
+    param(
+        [string]$Version
+    )
+    if (![string]::IsNullOrWhiteSpace($Version)) {
+        # relup and reldown
+        Relup $Version
+        return
+    }
+    # Install the service
+    $args = "$erl_opts -setcookie $cookie ++ -rootdir `"`"$erts_root`"`" -reldir `"`"$rootdir\releases`"`""
+    $start_erl = "$erts_dir\bin\start_erl.exe"
+    $description = "Erlang node ${node_name}${hostname} in $rootdir"
+    $params = @('add', $service_name, $node_type, "${node_name}${hostname}", `
+        '-c', $description, `
+        '-w', $rootdir, `
+        '-m', $start_erl, `
+        #'-d', 'reuse', ` # Add this to debug startup
+        '-e', "ERL_LIBS=$rootdir\lib", `
+        '-stopaction', 'init:stop().', `
+        '-args', $args)
+    & $erlsrv $params
+}
+
+# Uninstall the Windows service
+function Uninstall() {
+    param(
+        [string]$Version
+    )
+    if (![string]::IsNullOrWhiteSpace($Version)) {
+        # relup and reldown
+        Relup $Version
+        return
+    }
+    # Uninstall the Windows service
+    & $erlsrv remove $service_name
+    & $epmd -kill
+}
+
+# Start the Windows service
+function Start-SVC() {
+    & $erlsrv start $service_name
+}
+
+# Stop the Windows service
+function Stop-SVC() {
+    & $erlsrv stop $service_name
+}
+
+# Relup and reldown
+function Relup() {
+    param(
+        [string]$Version
+    )
+    PingOrExit
+    $params = @("$rootdir/bin/install_upgrade.escript", 'install', "{'$rel_name', `"$node_type`", '${node_name}${hostname}', '$cookie'}", $Version)
+    & $escript $params @args
+}
+
+# Start a console
+function Console() {
+    # Set the ERL_LIBS environment variable
+    $env:ERL_LIBS = "$rootdir\lib"
+
+    # Start the release in an `erl` shell
+    $params = @($erl_opts, '-boot', $boot_script)
+    if (![string]::IsNullOrEmpty($sys_config)) { $params += '-config', $sys_config }
+    if (![string]::IsNullOrEmpty($vm_args))    { $params += '-args_file', $vm_args }
+    & $werl $params
+}
+
+# Start a non-interactive console
+function Foreground() {
+    # Set the ERL_LIBS environment variable
+    $env:ERL_LIBS = "$rootdir\lib"
+
+    # Start the release in an `erl` shell
+    $params = @($erl_opts, '-boot', $boot_script, '-noinput', '+Bd')
+    if (![string]::IsNullOrEmpty($sys_config)) { $params += '-config', $sys_config }
+    if (![string]::IsNullOrEmpty($vm_args))    { $params += '-args_file', $vm_args }
+    & $erl $params
+}
+
+# Execute erl_call.exe
+function ErlCall()
+{
+    param(
+        [string]$Type
+    )
+    $params = @($node_type, $node_name, '-R', '-c', $cookie, '-timeout', $relx_rpc_timeout)
+    switch($Type) {
+        '-a' { & $erl_call $params '-a' "`"$args`"" }
+        '-e' { "$args" | & $erl_call $params '-e' }
+        Default {
+            Write-Error "Unsupported erlcall ($_)"
+        }
+    }
+}
+
+# Execute escript.exe nodetool
+function Nodetool()
+{
+    $params = @($node_type, $node_name, '-setcookie', $cookie)
+    & $escript $nodetool $params @args
+}
+
+# Execute an RPC call
+function Rpc()
+{
+    if (Test-Path $erl_call) {
+        ErlCall '-a' @args
+    }
+    else {
+        Nodetool rpc @args
+    }
+}
+
+function Eval()
+{
+    if (Test-Path $erl_call) {
+        ErlCall '-e' @args
+    }
+    else {
+        Nodetool eval @args
+    }
+}
+
+# Ping node and error (exit) if not running
+function PingOrExit() {
+    $result = (Rpc erlang is_alive)
+    if ($result -ne "true") {
+        Write-Error "Node is not running! ($result)"
+    }
+}
+
+# Ping the running node
+function Ping() {
+    PingOrExit
+    "pong"
+}
+
+# List installed Erlang services
+function List() {
+    & $erlsrv 'list' $service_name
+}
+
+# Attach to a running node
+function Attach() {
+    PingOrExit
+    $params = @('-boot', "$rel_dir\start_clean", `
+        '-remsh', "${node_name}${hostname}", `
+        $node_type, "console_${node_name}_$(Get-Random -maximum 99999)", `
+        '-setcookie', $cookie)
+    & $werl $params
+}
+
+# Print versions of the release available
+function Versions()
+{
+    PingOrExit
+    $params = @("$rootdir\bin\install_upgrade.escript", 'versions', "{'$rel_name', `"$node_type`", '${node_name}${hostname}', '$cookie'}")
+    & $escript $params @args
+}
+
+
+# Run a command
+function RunCommand()
+{
+    param(
+        [string]$Name
+    )
+    $cmd = $commands.item($Name)
+    if ($cmd.PassArgs) { $pass_args = $args }
+    $cmd.Invoke | ForEach-Object {
+        & $_ @pass_args
+    }
+}
+
+# Finally, here is where we run the command
+switch ($Command)
+{
+    "" { Usage }
+    {$commands.ContainsKey($_)} {
+        RunCommand $_ @args
+    }
+    {$aliases.ContainsKey($Command)} {
+        RunCommand $aliases.item($_) @args
+    }
+    {$extensions -contains $_} {
+        RunExtension $_ @args
+    }
+    Default {
+        Write-Warning "Unknown command: `"$_`""
+        Usage
+    }
+}

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/priv/templates/install_upgrade_escript Added

@@ -0,0 +1,337 @@
+#!/usr/bin/env escript
+%%! -noinput
+%% -*- mode: erlang;erlang-indent-level: 4;indent-tabs-mode: nil -*-
+%% ex: ft=erlang ts=4 sw=4 et
+
+-define(TIMEOUT, 300000).
+-define(INFO(Fmt,Args), io:format(Fmt,Args)).
+
+main([Command0, DistInfoStr | CommandArgs]) ->
+    %% convert the distribution info arguments string to an erlang term
+    {ok, Tokens, _} = erl_scan:string(DistInfoStr ++ "."),
+    {ok, DistInfo} = erl_parse:parse_term(Tokens),
+    %% convert arguments into a proplist
+    Opts = parse_arguments(CommandArgs),
+    %% invoke the command passed as argument
+    F = case Command0 of
+        "install" -> fun(A, B) -> install(A, B) end;
+        "unpack" -> fun(A, B) -> unpack(A, B) end;
+        "upgrade" -> fun(A, B) -> upgrade(A, B) end;
+        "downgrade" -> fun(A, B) -> downgrade(A, B) end;
+        "uninstall" -> fun(A, B) -> uninstall(A, B) end;
+        "versions" -> fun(A, B) -> versions(A, B) end
+    end,
+    F(DistInfo, Opts);
+main(Args) ->
+    ?INFO("unknown args: ~p\n", [Args]),
+    erlang:halt(1).
+
+unpack({RelName, NameTypeArg, NodeName, Cookie}, Opts) ->
+    TargetNode = start_distribution(NodeName, NameTypeArg, Cookie),
+    Version = proplists:get_value(version, Opts),
+    case unpack_release(RelName, TargetNode, Version) of
+        {ok, Vsn} ->
+            ?INFO("Unpacked successfully: ~p~n", [Vsn]);
+        old ->
+            %% no need to unpack, has been installed previously
+            ?INFO("Release ~s is marked old.~n",[Version]);
+        unpacked ->
+            ?INFO("Release ~s is already unpacked.~n",[Version]);
+        current ->
+            ?INFO("Release ~s is already installed and current.~n",[Version]);
+        permanent ->
+            ?INFO("Release ~s is already installed and set permanent.~n",[Version]);
+        {error, Reason} ->
+            ?INFO("Unpack failed: ~p~n",[Reason]),
+            print_existing_versions(TargetNode),
+            erlang:halt(2)
+    end;
+unpack(_, Args) ->
+    ?INFO("unpack: unknown args ~p\n", [Args]).
+
+install({RelName, NameTypeArg, NodeName, Cookie}, Opts) ->
+    TargetNode = start_distribution(NodeName, NameTypeArg, Cookie),
+    Version = proplists:get_value(version, Opts),
+    case unpack_release(RelName, TargetNode, Version) of
+        {ok, Vsn} ->
+            ?INFO("Unpacked successfully: ~p~n", [Vsn]),
+            check_and_install(TargetNode, Vsn),
+            maybe_permafy(TargetNode, RelName, Vsn, Opts);
+        old ->
+            %% no need to unpack, has been installed previously
+            ?INFO("Release ~s is marked old, switching to it.~n",[Version]),
+            check_and_install(TargetNode, Version),
+            maybe_permafy(TargetNode, RelName, Version, Opts);
+        unpacked ->
+            ?INFO("Release ~s is already unpacked, now installing.~n",[Version]),
+            check_and_install(TargetNode, Version),
+            maybe_permafy(TargetNode, RelName, Version, Opts);
+        current ->
+            case proplists:get_value(permanent, Opts, true) of
+                true ->
+                    ?INFO("Release ~s is already installed and current, making permanent.~n",
+                        [Version]),
+                    permafy(TargetNode, RelName, Version);
+                false ->
+                    ?INFO("Release ~s is already installed and current.~n",
+                        [Version])
+            end;
+        permanent ->
+            %% this release is marked permanent, however it might not the
+            %% one currently running
+            case current_release_version(TargetNode) of
+                Version ->
+                    ?INFO("Release ~s is already installed, running and set permanent.~n",
+                        [Version]);
+                CurrentVersion ->
+                    ?INFO("Release ~s is the currently running version.~n",
+                        [CurrentVersion]),
+                    check_and_install(TargetNode, Version),
+                    maybe_permafy(TargetNode, RelName, Version, Opts)
+            end;
+        {error, Reason} ->
+            ?INFO("Unpack failed: ~p~n",[Reason]),
+            print_existing_versions(TargetNode),
+            erlang:halt(2)
+    end;
+install(_, Args) ->
+    ?INFO("install: unknown args ~p\n", [Args]).
+
+upgrade(DistInfo, Args) ->
+    install(DistInfo, Args).
+
+downgrade(DistInfo, Args) ->
+    install(DistInfo, Args).
+
+uninstall({_RelName, NameTypeArg, NodeName, Cookie}, Opts) ->
+    TargetNode = start_distribution(NodeName, NameTypeArg, Cookie),
+    WhichReleases = which_releases(TargetNode),
+    Version = proplists:get_value(version, Opts),
+    case proplists:get_value(Version, WhichReleases) of
+        undefined ->
+            ?INFO("Release ~s is already uninstalled.~n", [Version]);
+        old ->
+            ?INFO("Release ~s is marked old, uninstalling it.~n", [Version]),
+            remove_release(TargetNode, Version);
+        unpacked ->
+            ?INFO("Release ~s is marked unpacked, uninstalling it~n",
+                [Version]),
+            remove_release(TargetNode, Version);
+        current ->
+            ?INFO("Uninstall failed: Release ~s is marked current.~n", [Version]),
+            erlang:halt(2);
+        permanent ->
+            ?INFO("Uninstall failed: Release ~s is running.~n", [Version]),
+            erlang:halt(2)
+    end;
+uninstall(_, Args) ->
+    ?INFO("uninstall: unknown args ~p\n", [Args]).
+
+versions({_RelName, NameTypeArg, NodeName, Cookie}, []) ->
+    TargetNode = start_distribution(NodeName, NameTypeArg, Cookie),
+    print_existing_versions(TargetNode).
+
+parse_arguments(Args) ->
+    parse_arguments(Args, []).
+
+parse_arguments([], Acc) -> Acc;
+parse_arguments(["--no-permanent"|Rest], Acc) ->
+    parse_arguments(Rest, [{permanent, false}] ++ Acc);
+parse_arguments([VersionStr|Rest], Acc) ->
+    Version = parse_version(VersionStr),
+    parse_arguments(Rest, [{version, Version}] ++ Acc).
+
+unpack_release(RelName, TargetNode, Version) ->
+    WhichReleases = which_releases(TargetNode),
+    case proplists:get_value(Version, WhichReleases) of
+        undefined ->
+            %% not installed, so unpack tarball:
+            %% look for a release package with the intended version in the following order:
+            %%      releases/<relname>-<version>.tar.gz
+            %%      releases/<version>/<relname>-<version>.tar.gz
+            %%      releases/<version>/<relname>.tar.gz
+            case find_and_link_release_package(Version, RelName) of
+                {_, undefined} ->
+                    {error, release_package_not_found};
+                {ReleasePackage, ReleasePackageLink} ->
+                    ?INFO("Release ~s not found, attempting to unpack ~s~n",
+                        [Version, ReleasePackage]),
+                    case rpc:call(TargetNode, release_handler, unpack_release,
+                                  [ReleasePackageLink], ?TIMEOUT) of
+                        {ok, Vsn} -> {ok, Vsn};
+                        {error, _} = Error -> Error
+                    end
+            end;
+        Other -> Other
+    end.
+
+%% 1. look for a release package tarball with the provided version in the following order:
+%%      releases/<relname>-<version>.tar.gz
+%%      releases/<version>/<relname>-<version>.tar.gz
+%%      releases/<version>/<relname>.tar.gz
+%% 2. create a symlink from a fixed location (ie. releases/<version>/<relname>.tar.gz)
+%%    to the release package tarball found in 1.
+%% 3. return a tuple with the paths to the release package and
+%%    to the symlink that is to be provided to release handler
+find_and_link_release_package(Version, RelName) ->
+    RelNameStr = atom_to_list(RelName),
+    %% regardless of the location of the release package, we'll
+    %% always give release handler the same path which is the symlink
+    %% the path to the package link is relative to "releases/" because
+    %% that's what release handler is expecting
+    ReleaseHandlerPackageLink = filename:join(Version, RelNameStr),
+    %% this is the symlink name we'll create once
+    %% we've found where the actual release package is located
+    ReleaseLink = filename:join(["releases", Version,
+                                 RelNameStr ++ ".tar.gz"]),
+    case first_value(fun filelib:is_file/1,
+                     [filename:join(["releases",
+                                     RelNameStr ++ "-" ++ Version ++ ".tar.gz"]),
+                      filename:join(["releases", Version,
+                                     RelNameStr ++ "-" ++ Version ++ ".tar.gz"]),
+                      filename:join(["releases", Version,
+                                     RelNameStr ++ ".tar.gz"])]) of
+        no_value ->
+            {undefined, undefined};
+        %% no need to create the link since the release package we
+        %% found is located in the same place as the link would be
+        {ok, Filename} when is_list(Filename) andalso
+                            Filename =:= ReleaseLink ->
+            {Filename, ReleaseHandlerPackageLink};
+        {ok, Filename} when is_list(Filename) ->
+            %% we now have the location of the release package, however
+            %% release handler expects a fixed nomenclature (<relname>.tar.gz)
+            %% so give it just that by creating a symlink to the tarball
+            %% we found.
+            %% make sure that the dir where we're creating the link in exists
+            ok = filelib:ensure_dir(filename:join([filename:dirname(ReleaseLink), "dummy"])),
+            %% create the symlink pointing to the full path name of the
+            %% release package we found
+            case file:make_symlink(filename:absname(Filename), ReleaseLink) of
+                ok ->
+                    ok;
+                {error, eperm} -> % windows!
+                    {ok,_} = file:copy(filename:absname(Filename), ReleaseLink)
+            end,
+            {Filename, ReleaseHandlerPackageLink}
+    end.
+
+first_value(_Fun, []) -> no_value;
+first_value(Fun, [Value | Rest]) ->
+    case Fun(Value) of
+        false ->
+            first_value(Fun, Rest);
+        true ->
+            {ok, Value}
+    end.
+
+parse_version(V) when is_list(V) ->
+    hd(string:tokens(V,"/")).
+
+check_and_install(TargetNode, Vsn) ->
+    case rpc:call(TargetNode, release_handler,
+                  check_install_release, [Vsn], ?TIMEOUT) of
+        {ok, _OtherVsn, _Desc} ->
+            ok;
+        {error, Reason} ->
+            ?INFO("ERROR: release_handler:check_install_release failed: ~p~n",[Reason]),
+            erlang:halt(3)
+    end,
+    case rpc:call(TargetNode, release_handler, install_release,
+                  [Vsn, [{update_paths, true}]], ?TIMEOUT) of
+        {ok, _, _} ->
+            ?INFO("Installed Release: ~s~n", [Vsn]),
+            ok;
+        {error, {no_such_release, Vsn}} ->
+            VerList =
+                iolist_to_binary(
+                    [io_lib:format("* ~s\t~s~n",[V,S]) ||  {V,S} <- which_releases(TargetNode)]),
+            ?INFO("Installed versions:~n~s", [VerList]),
+            ?INFO("ERROR: Unable to revert to '~s' - not installed.~n", [Vsn]),
+            erlang:halt(2);
+        %% as described in http://erlang.org/doc/man/appup.html, when performing a relup
+        %% with soft purge:
+        %%      If the value is soft_purge, release_handler:install_release/1
+        %%      returns {error,{old_processes,Mod}}
+        {error, {old_processes, Mod}} ->
+            ?INFO("ERROR: unable to install '~s' - old processes still running code from module ~p~n",
+                [Vsn, Mod]),
+            erlang:halt(3);
+        {error, Reason1} ->
+            ?INFO("ERROR: release_handler:install_release failed: ~p~n",[Reason1]),
+            erlang:halt(4)
+    end.
+
+maybe_permafy(TargetNode, RelName, Vsn, Opts) ->
+    case proplists:get_value(permanent, Opts, true) of
+        true ->
+            permafy(TargetNode, RelName, Vsn);
+        false -> ok
+    end.
+
+permafy(TargetNode, RelName, Vsn) ->
+    ok = rpc:call(TargetNode, release_handler,
+                  make_permanent, [Vsn], ?TIMEOUT),
+    file:copy(filename:join(["bin", atom_to_list(RelName)++"-"++Vsn]),
+              filename:join(["bin", atom_to_list(RelName)])),
+    ?INFO("Made release permanent: ~p~n", [Vsn]),
+    ok.
+
+remove_release(TargetNode, Vsn) ->
+    case rpc:call(TargetNode, release_handler, remove_release, [Vsn], ?TIMEOUT) of
+        ok ->
+            ?INFO("Uninstalled Release: ~s~n", [Vsn]),
+            ok;
+        {error, Reason} ->
+            ?INFO("ERROR: release_handler:remove_release failed: ~p~n", [Reason]),
+            erlang:halt(3)
+    end.
+
+which_releases(TargetNode) ->
+    R = rpc:call(TargetNode, release_handler, which_releases, [], ?TIMEOUT),
+    [ {V, S} ||  {_,V,_, S} <- R ].
+
+%% the running release version is either the only one marked `current´
+%% or, if none exists, the one marked `permanent`
+current_release_version(TargetNode) ->
+    R = rpc:call(TargetNode, release_handler, which_releases,
+                [], ?TIMEOUT),
+    Versions = [ {S, V} ||  {_,V,_, S} <- R ],
+    %% current version takes priority over the permanent
+    proplists:get_value(current, Versions,
+        proplists:get_value(permanent, Versions)).
+
+print_existing_versions(TargetNode) ->
+    VerList = iolist_to_binary([
+            io_lib:format("* ~s\t~s~n",[V,S])
+            ||  {V,S} <- which_releases(TargetNode) ]),
+    ?INFO("Installed versions:~n~s", [VerList]).
+
+start_distribution(TargetNode, NameTypeArg, Cookie) ->
+    MyNode = make_script_node(TargetNode),
+    {ok, _Pid} = net_kernel:start([MyNode, get_name_type(NameTypeArg)]),
+    erlang:set_cookie(node(), Cookie),
+    case {net_kernel:connect_node(TargetNode),
+          net_adm:ping(TargetNode)} of
+        {true, pong} ->
+            ok;
+        {_, pang} ->
+            ?INFO("Node ~p not responding to pings.\n", [TargetNode]),
+            erlang:halt(1)
+    end,
+    {ok, Cwd} = file:get_cwd(),
+    ok = rpc:call(TargetNode, file, set_cwd, [Cwd], ?TIMEOUT),
+    TargetNode.
+
+make_script_node(Node) ->
+    [Name, Host] = string:tokens(atom_to_list(Node), "@"),
+    list_to_atom(lists:concat([Name, "_upgrader_", os:getpid(), "@", Host])).
+
+%% get name type from arg
+get_name_type(NameTypeArg) ->
+	case NameTypeArg of
+		"-sname" ->
+			shortnames;
+		_ ->
+			longnames
+	end.

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/priv/templates/nodetool Added

@@ -0,0 +1,196 @@
+#!/usr/bin/env escript
+%% -*- mode: erlang;erlang-indent-level: 4;indent-tabs-mode: nil -*-
+%% ex: ft=erlang ts=4 sw=4 et
+%% -------------------------------------------------------------------
+%%
+%% nodetool: Helper Script for interacting with live nodes
+%%
+%% On releases running with OTP-23+ this escript is not used. Instead,
+%% the `erl_call' command is used. This escript will be removed from
+%% relx when OTP-23 becomes the earliest support version of OTP.
+%%
+%% -------------------------------------------------------------------
+
+main(Args) ->
+    %% Extract the args
+    {RestArgs, TargetNode, StartEpmd} = process_args(Args, [], undefined, true),
+
+    ok = start_epmd(StartEpmd),
+
+    %% See if the node is currently running  -- if it's not, we'll bail
+    case {net_kernel:hidden_connect_node(TargetNode), net_adm:ping(TargetNode)} of
+        {true, pong} ->
+            ok;
+        {_, pang} ->
+            io:format("Node ~p not responding to pings.~n", [TargetNode]),
+            halt(1)
+    end,
+
+    Timeout =
+        case os:getenv("RELX_RPC_TIMEOUT") of
+            false ->
+                60000;
+            StrVal ->
+                try
+                    %% RELX_RPC_TIMEOUT is in seconds
+                    list_to_integer(StrVal) * 1000
+                catch _:_ ->
+                        60000
+                end
+        end,
+
+    case RestArgs of
+        ["rpc", Module, Function | ArgsAsString] ->
+            case consult(lists:flatten(ArgsAsString)) of
+                {error, Reason} ->
+                    io:format("Error parsing arguments `~s`, failed with reason: ~s~n", [ArgsAsString, Reason]);
+                {ok, ParsedArgs} when is_list(ParsedArgs) ->
+                    case rpc:call(TargetNode, list_to_atom(Module),
+                                  list_to_atom(Function), ParsedArgs, Timeout) of
+                        {badrpc, Reason} ->
+                            io:format("RPC to ~p failed: ~p~n", [TargetNode, Reason]),
+                            halt(1);
+                        rpc_ok ->
+                            %% code doesn't want any output
+                            ok;
+                        {rpc_error, Code} when is_integer(Code) ->
+                            %% code failed, halt with a supplied code
+                            halt(Code);
+                        {rpc_error, Code, Output} when is_integer(Code) ->
+                            %% code failed, halt with a supplied code
+                            %% and log output to stderr
+                            io:format(standard_error, "~p~n", [Output]),
+                            halt(Code);
+                        Other ->
+                            io:format("~p~n", [Other])
+                    end;
+                {ok, ParsedArgs} ->
+                    io:format("Error: args `~p` not a list.~n"
+                              "Example to call `foo:bar(1,2,3)` pass `foo bar \"[1, 2, 3].\"`~n", [ParsedArgs])
+            end;
+        ["eval" | ListOfArgs] ->
+            % shells may process args into more than one, and end up stripping
+            % spaces, so this converts all of that to a single string to parse
+            String = binary_to_list(
+                      list_to_binary(
+                        join(ListOfArgs," ")
+                      )
+                    ),
+
+            % then scan and parse the string
+            {ok, Scanned, _} = erl_scan:string(String),
+            {ok, Parsed } = erl_parse:parse_exprs(Scanned),
+
+            % and evaluate it on the remote node
+            case rpc:call(TargetNode, erl_eval, exprs, [Parsed, [] ]) of
+                {value, Value, _} ->
+                    io:format ("~p~n",[Value]);
+                {badrpc, Reason} ->
+                    io:format("RPC to ~p failed: ~p~n", [TargetNode, Reason]),
+                    halt(1)
+            end;
+        Other ->
+            io:format("Other: ~p~n", [Other]),
+            io:format("Usage: nodetool {ping|stop|restart|reboot|rpc|rpcterms|eval [Terms]} [RPC]~n")
+    end,
+    net_kernel:stop().
+
+process_args([], Acc, TargetNode, StartEpmd) ->
+    {lists:reverse(Acc), TargetNode, StartEpmd};
+process_args(["-setcookie", Cookie | Rest], Acc, TargetNode, StartEpmd) ->
+    erlang:set_cookie(node(), list_to_atom(Cookie)),
+    process_args(Rest, Acc, TargetNode, StartEpmd);
+process_args(["-start_epmd", StartEpmd | Rest], Acc, TargetNode, _StartEpmd) ->
+    process_args(Rest, Acc, TargetNode, list_to_atom(StartEpmd));
+process_args(["-name", TargetName | Rest], Acc, _, StartEpmd) ->
+    maybe_start_node(TargetName, longnames),
+    process_args(Rest, Acc, nodename(TargetName), StartEpmd);
+process_args(["-sname", TargetName | Rest], Acc, _, StartEpmd) ->
+    maybe_start_node(TargetName, shortnames),
+    process_args(Rest, Acc, nodename(TargetName), StartEpmd);
+process_args([Arg | Rest], Acc, Opts, StartEpmd) ->
+    process_args(Rest, [Arg | Acc], Opts, StartEpmd).
+
+maybe_start_node(TargetName, Names) ->
+    case erlang:node() of
+        'nonode@nohost' ->
+            ThisNode = append_node_suffix(TargetName, "_maint_"),
+            {ok, _} = net_kernel:start([ThisNode, Names]);
+        _ ->
+            ok
+    end.
+
+start_epmd(true) ->
+    [] = os:cmd("\"" ++ epmd_path() ++ "\" -daemon"),
+    ok;
+start_epmd(_) ->
+    ok.
+
+epmd_path() ->
+    ErtsBinDir = filename:dirname(escript:script_name()),
+    Name = "epmd",
+    case os:find_executable(Name, ErtsBinDir) of
+        false ->
+            case os:find_executable(Name) of
+                false ->
+                    io:format("Could not find epmd.~n"),
+                    halt(1);
+                GlobalEpmd ->
+                    GlobalEpmd
+            end;
+        Epmd ->
+            Epmd
+    end.
+
+
+nodename(Name) ->
+    case re:split(Name, "@", [{return, list}, unicode]) of
+        [_Node, _Host] ->
+            list_to_atom(Name);
+        [Node] ->
+            [_, Host] = re:split(atom_to_list(node()), "@", [{return, list}, unicode]),
+            list_to_atom(lists:concat([Node, "@", Host]))
+    end.
+
+append_node_suffix(Name, Suffix) ->
+    case re:split(Name, "@", [{return, list}, unicode]) of
+        [Node, Host] ->
+            list_to_atom(lists:concat([Node, Suffix, os:getpid(), "@", Host]));
+        [Node] ->
+            list_to_atom(lists:concat([Node, Suffix, os:getpid()]))
+    end.
+
+%% convert string to erlang term
+consult([]) ->
+    {ok, []};
+consult(Bin) when is_binary(Bin)->
+    consult(binary_to_list(Bin));
+consult(Str) when is_list(Str) ->
+    %% add '.' if the string doesn't end in one
+    Normalized =
+        case lists:reverse(Str) of
+            [$. | _] -> Str;
+            R -> lists:reverse([$. | R])
+        end,
+
+    case erl_scan:string(Normalized) of
+        {ok, Tokens, _} ->
+            case erl_parse:parse_term(Tokens) of
+                {ok, Args} ->
+                    {ok, Args};
+                {error, {_, _, ErrorDescriptor}} ->
+                    {error, erl_parse:format_error(ErrorDescriptor)}
+            end;
+        {error, {_, _, ErrorDescriptor}} ->
+            {error, erl_scan:format_error(ErrorDescriptor)}
+    end.
+
+%% string:join/2 copy; string:join/2 is getting obsoleted
+%% and replaced by lists:join/2, but lists:join/2 is too new
+%% for version support (only appeared in 19.0) so it cannot be
+%% used. Instead we just adopt join/2 locally and hope it works
+%% for most unicode use cases anyway.
+join([], Sep) when is_list(Sep) ->
+    [];
+join([H|T], Sep) ->
+    H ++ lists:append([Sep ++ X || X <- T]).

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/priv/templates/psutil Added

@@ -0,0 +1,175 @@
+#! /usr/bin/pwsh
+# Utility functions for powershell script files
+
+function Find-ERTS()
+{
+    param (
+        [Parameter(Mandatory=$true, Position=0)]
+        [string] $RelRoot,
+        [Parameter(Mandatory=$true, Position=1)]
+        [string] $Vsn
+    )
+
+    if (Test-Path "$RelRoot\erts-$Vsn") {
+        # Set the ERTS dir from the passed in erts_vsn
+        return @($RelRoot, "$RelRoot\erts-$Vsn")
+    }
+
+    # Get the ERTS dir from erl
+    $erl = (Get-Command erl).source
+    $erl_root = & $erl -boot no_dot_erlang -noshell -eval 'io:format(\"~s\", [filename:nativename(code:root_dir())]), halt().'
+    if (Test-Path "$erl_root\erts-$Vsn") {
+        return @($erl_root, "$erl_root\erts-$Vsn")
+    }
+
+    # Expected $vsn but not found, get ERTS version installed
+    $erts_vsn = & $erl -boot no_dot_erlang -noshell -eval 'io:format(\"~s\", [erlang:system_info(version)]), halt().'
+    if (!(Test-Path "$erl_root\erts-$erts_vsn")) {
+        Write-Error "Can not run the release. There is no ERTS bundled with the release or found on the system."
+        # Terminates here due to $ErrorActionPreference = "Stop"
+    }
+
+    Write-Warning "Exact ERTS version ($Vsn) match not found, instead using $erts_vsn}. The release may fail to run."
+    return @($erl_root, "$erl_root\erts-$erts_vsn")
+}
+
+function Find-BootScript()
+{
+    param (
+        [Parameter(Mandatory=$true, Position=0)]
+        [string] $RelDir,
+        [Parameter(Mandatory=$true, Position=1)]
+        [string] $RelName
+    )
+
+    if (Test-Path "$RelDir\$RelName.boot") {
+        return "$RelDir\$RelName"
+    }
+
+    if (Test-Path "$RelDir\start.boot") {
+        return "$RelDir\start"
+    }
+
+    Write-Error "No boot script found in $RelDir"
+}
+
+function Find-FormatConfig()
+{
+    param (
+        [Parameter(Mandatory=$true, Position=0)]
+        [string] $RelDir,
+        [Parameter(Mandatory=$true, Position=1)]
+        [string] $File
+    )
+
+    $in = $out = "$RelDir\$File"
+    if (Test-Path "$in.src") {
+        # apply the environment variable substitution
+        Format-OSVars "$in.src" $out
+    }
+    elseif (Test-Path env:RELX_REPLACE_OS_VARS) {
+        # If vm.args.orig or sys.config.orig is present then use that
+        if (Test-Path "$in.orig") {
+            $in = "$in.orig"
+        }
+        # if they are both the same, then ensure that we don't clobber
+        # the file by saving a backup with the .orig extension
+        if ($in -eq $out) {
+            Copy-Item $in "$in.orig"
+        }
+        # apply the environment variable substitution
+        Format-OSVars $in $out
+    }
+    else {
+        # If vm.arg.orig or sys.config.orig is present then use that
+        if (Test-Path "$in.orig") {
+            $in = "$in.orig"
+        }
+        if ($in -ne $out) {
+            Copy-Item $in $out
+        }
+    }
+
+    return $out
+}
+
+function Format-OSVars()
+{
+    param(
+        [Parameter(Mandatory=$true, Position=0)]
+        [string] $In,
+        [Parameter(Mandatory=$true, Position=1)]
+        [string] $Out
+    )
+
+    $content = Get-Content $In
+    $matches = ([regex]'[$]{(?<var>[^}]*)}').Matches($content)
+    foreach ($match in $matches) {
+        $var = $match.groups['var'].value
+        $val = Invoke-Expression "`$env:${var}"
+        $content = $content.replace("`${$var}", $val)
+    }
+    Set-Content -Path $Out -Value $content -Encoding ASCII
+}
+
+function Get-NodeAndHost()
+{
+    param(
+        [string]$vmargs
+    )
+
+    $node_type, $node_name = Get-Content $vmargs `
+        | Select-String '(-s{0,1}name)\s+([^\s]+)' `
+        | ForEach-Object { `
+            @($_.matches[0].groups[1].value, `
+            $_.matches[0].groups[2].value) `
+        }
+
+    if ($node_name -match '@') {
+        $node_name, $hostname = $node_name -split '@' 
+    }
+
+    # if no hostname is set, attempt to pick one from the env
+    if ([string]::IsNullOrEmpty($hostname) -and (Test-Path env:COMPUTERNAME)) {
+        if ($node_type -eq '-sname') {
+            $hostname = $env:COMPUTERNAME
+        }
+        elseif (Test-Path env:USERDNSDOMAIN) {
+            $hostname = "$env:COMPUTERNAME.$env:USERDNSDOMAIN"
+        }
+    }
+
+    # Add @ to hostname if not empty so that we can just concatenate values safely
+    if (![string]::IsNullOrEmpty($hostname)) {
+        $hostname = "@$hostname"
+    }
+
+    # Return to caller
+    @($node_type, $node_name, $hostname)
+}
+
+function Get-Cookie()
+{
+    param(
+        [string]$vmargs
+    )
+
+    $cookie = Get-Content $vmargs `
+        | Select-String '-setcookie\s+([^\s]+)' `
+        | ForEach-Object { `
+            @($_.matches[0].groups[1].value) `
+        }
+
+    if ([string]::IsNullOrEmpty($cookie)) {
+        $default_cookie_file = "$env:USERPROFILE\.erlang.cookie"
+        if (Test-Path $default_cookie_file) {
+            $cookie = Get-Content $default_cookie_file | Select-Object -First 1
+        }
+        else {
+            Write-Warning "No cookie is set or found. This limits the scripts functionality, installing, upgrading, rpc and getting a list of versions will not work."
+            return $null
+        }
+    }
+
+    return $cookie
+}
\ No newline at end of file

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/priv/templates/sys_config Added

guam-0.9.11.tar.gz/cache/rebar3/lib/relx/priv/templates/vm_args Added

@@ -0,0 +1,30 @@
+## Name of the node
+-sname {{ rel_name }}
+
+## Cookie for distributed erlang
+-setcookie {{ rel_name }}
+
+## Heartbeat management; auto-restarts VM if it dies or becomes unresponsive
+## (Disabled by default..use with caution!)
+##-heart
+
+## Enable kernel poll and a few async threads
+##+K true
+##+A 5
+
+## Increase number of concurrent ports/sockets
+##-env ERL_MAX_PORTS 4096
+
+## Tweak GC to run more often
+##-env ERL_FULLSWEEP_AFTER 10
+
+# +B [c | d | i]
+# Option c makes Ctrl-C interrupt the current shell instead of invoking the emulator break
+# handler. Option d (same as specifying +B without an extra option) disables the break handler. # Option i makes the emulator ignore any break signal.
+# If option c is used with oldshell on Unix, Ctrl-C will restart the shell process rather than
+# interrupt it.
+# Disable the emulator break handler
+# it easy to accidentally type ctrl-c when trying
+# to reach for ctrl-d. ctrl-c on a live node can
+# have very undesirable results
+##+Bi

guam-0.9.11.tar.gz/cache/rebar3/lib/ssl_verify_fun Added

guam-0.9.11.tar.gz/cache/rebar3/lib/ssl_verify_fun/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/lib/ssl_verify_fun/ebin/ssl_verify_fingerprint.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/ssl_verify_fun/ebin/ssl_verify_fun.app Added

guam-0.9.11.tar.gz/cache/rebar3/lib/ssl_verify_fun/ebin/ssl_verify_fun_cert_helpers.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/ssl_verify_fun/ebin/ssl_verify_fun_encodings.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/ssl_verify_fun/ebin/ssl_verify_hostname.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/ssl_verify_fun/ebin/ssl_verify_pk.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/ssl_verify_fun/ebin/ssl_verify_string.beam Added

guam-0.9.11.tar.gz/cache/rebar3/lib/ssl_verify_fun/ebin/ssl_verify_util.beam Added

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

guam-0.9.11.tar.gz/cache/rebar3/rebar3/bin Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/bin/rebar3 Added

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

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

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

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

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

guam-0.9.11.tar.gz/cache/rebar3/rebar3/hex/hexpm/packages/lager-3.8.1.etag Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/hex/hexpm/packages/lager-3.8.1.tar Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/hex/hexpm/packages/pc-1.11.0.etag Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/hex/hexpm/packages/pc-1.11.0.tar Added

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

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/bbmustache Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/bbmustache/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/bbmustache/ebin/bbmustache.app Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/bbmustache/ebin/bbmustache.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/certifi Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/certifi/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/certifi/ebin/certifi.app Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/certifi/ebin/certifi.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/certifi/ebin/certifi_pt.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/cf Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/cf/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/cf/ebin/cf.app Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/cf/ebin/cf.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/cf/ebin/cf_term.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/cth_readable Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/cth_readable/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/cth_readable/ebin/cth_readable.app Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/cth_readable/ebin/cth_readable_compact_shell.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/cth_readable/ebin/cth_readable_failonly.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/cth_readable/ebin/cth_readable_helpers.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/cth_readable/ebin/cth_readable_lager_backend.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/cth_readable/ebin/cth_readable_nosasl.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/cth_readable/ebin/cth_readable_shell.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/cth_readable/ebin/cth_readable_transform.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/cth_readable/ebin/cthr.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons/ebin/ec_assoc_list.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons/ebin/ec_cmd_log.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons/ebin/ec_cnv.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons/ebin/ec_compile.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons/ebin/ec_date.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons/ebin/ec_dict.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons/ebin/ec_dictionary.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons/ebin/ec_file.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons/ebin/ec_gb_trees.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons/ebin/ec_git_vsn.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons/ebin/ec_lists.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons/ebin/ec_orddict.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons/ebin/ec_plists.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons/ebin/ec_rbdict.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons/ebin/ec_semver.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons/ebin/ec_semver_parser.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons/ebin/ec_talk.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons/ebin/ec_vsn.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/erlware_commons/ebin/erlware_commons.app Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/eunit_formatters Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/eunit_formatters/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/eunit_formatters/ebin/binomial_heap.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/eunit_formatters/ebin/eunit_formatters.app Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/eunit_formatters/ebin/eunit_progress.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/getopt Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/getopt/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/getopt/ebin/getopt.app Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/getopt/ebin/getopt.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/providers Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/providers/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/providers/ebin/provider.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/providers/ebin/providers.app Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/providers/ebin/providers.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/providers/ebin/providers_topo.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/cth_fail_fast.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/cth_retry.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/r3.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/r3_hex_api.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/r3_hex_api_key.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/r3_hex_api_package.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/r3_hex_api_package_owner.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/r3_hex_api_release.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/r3_hex_api_user.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/r3_hex_core.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/r3_hex_erl_tar.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/r3_hex_filename.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/r3_hex_http.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/r3_hex_http_httpc.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/r3_hex_pb_names.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/r3_hex_pb_package.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/r3_hex_pb_signed.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/r3_hex_pb_versions.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/r3_hex_registry.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/r3_hex_repo.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/r3_hex_tarball.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/r3_safe_erl_term.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar.app Added

@@ -0,0 +1,74 @@
+{application,rebar,
+             [{description,"Rebar: Erlang Build Tool"},
+              {vsn,"3.16.1"},
+              {modules,[cth_fail_fast,cth_retry,r3,r3_hex_api,r3_hex_api_key,
+                        r3_hex_api_package,r3_hex_api_package_owner,
+                        r3_hex_api_release,r3_hex_api_user,r3_hex_core,
+                        r3_hex_erl_tar,r3_hex_filename,r3_hex_http,
+                        r3_hex_http_httpc,r3_hex_pb_names,r3_hex_pb_package,
+                        r3_hex_pb_signed,r3_hex_pb_versions,r3_hex_registry,
+                        r3_hex_repo,r3_hex_tarball,r3_safe_erl_term,rebar3,
+                        rebar_agent,rebar_api,rebar_app_discover,
+                        rebar_app_info,rebar_app_utils,rebar_base_compiler,
+                        rebar_compiler,rebar_compiler_dag,rebar_compiler_epp,
+                        rebar_compiler_erl,rebar_compiler_mib,
+                        rebar_compiler_xrl,rebar_compiler_yrl,rebar_config,
+                        rebar_core,rebar_dialyzer_format,rebar_digraph,
+                        rebar_dir,rebar_dist_utils,rebar_env,
+                        rebar_erlc_compiler,rebar_fetch,rebar_file_utils,
+                        rebar_git_resource,rebar_git_subdir_resource,
+                        rebar_hex_repos,rebar_hg_resource,rebar_hooks,
+                        rebar_httpc_adapter,rebar_log,rebar_opts,
+                        rebar_otp_app,rebar_packages,rebar_parallel,
+                        rebar_paths,rebar_pkg_resource,rebar_plugins,
+                        rebar_prv_alias,rebar_prv_app_discovery,rebar_prv_as,
+                        rebar_prv_bare_compile,rebar_prv_clean,
+                        rebar_prv_common_test,rebar_prv_compile,
+                        rebar_prv_cover,rebar_prv_deps,rebar_prv_deps_tree,
+                        rebar_prv_dialyzer,rebar_prv_do,rebar_prv_edoc,
+                        rebar_prv_escriptize,rebar_prv_eunit,
+                        rebar_prv_get_deps,rebar_prv_help,
+                        rebar_prv_install_deps,rebar_prv_local_install,
+                        rebar_prv_local_upgrade,rebar_prv_lock,rebar_prv_new,
+                        rebar_prv_packages,rebar_prv_path,rebar_prv_plugins,
+                        rebar_prv_plugins_upgrade,rebar_prv_release,
+                        rebar_prv_relup,rebar_prv_report,rebar_prv_repos,
+                        rebar_prv_shell,rebar_prv_state,rebar_prv_tar,
+                        rebar_prv_unlock,rebar_prv_update,rebar_prv_upgrade,
+                        rebar_prv_version,rebar_prv_xref,rebar_relx,
+                        rebar_resource,rebar_resource_v2,rebar_state,
+                        rebar_string,rebar_templater,rebar_uri,rebar_user,
+                        rebar_utils]},
+              {registered,[]},
+              {applications,[kernel,stdlib,sasl,compiler,crypto,syntax_tools,
+                             tools,eunit,common_test,dialyzer,public_key,edoc,
+                             snmp,getopt,erlware_commons,providers,bbmustache,
+                             ssl_verify_fun,certifi,cth_readable,relx,cf,
+                             inets,eunit_formatters,hipe]},
+              {env,[{log_level,warn},
+                    {resources,[{git,rebar_git_resource},
+                                {git_subdir,rebar_git_subdir_resource},
+                                {pkg,rebar_pkg_resource},
+                                {hg,rebar_hg_resource}]},
+                    {compilers,[rebar_compiler_xrl,rebar_compiler_yrl,
+                                rebar_compiler_mib,rebar_compiler_erl]},
+                    {providers,[rebar_prv_app_discovery,rebar_prv_as,
+                                rebar_prv_bare_compile,rebar_prv_clean,
+                                rebar_prv_common_test,rebar_prv_compile,
+                                rebar_prv_cover,rebar_prv_deps,
+                                rebar_prv_deps_tree,rebar_prv_dialyzer,
+                                rebar_prv_do,rebar_prv_edoc,
+                                rebar_prv_escriptize,rebar_prv_eunit,
+                                rebar_prv_get_deps,rebar_prv_help,
+                                rebar_prv_install_deps,
+                                rebar_prv_local_install,
+                                rebar_prv_local_upgrade,rebar_prv_lock,
+                                rebar_prv_new,rebar_prv_packages,
+                                rebar_prv_path,rebar_prv_plugins,
+                                rebar_prv_plugins_upgrade,rebar_prv_release,
+                                rebar_prv_relup,rebar_prv_report,
+                                rebar_prv_repos,rebar_prv_shell,
+                                rebar_prv_state,rebar_prv_tar,
+                                rebar_prv_unlock,rebar_prv_update,
+                                rebar_prv_upgrade,rebar_prv_version,
+                                rebar_prv_xref,rebar_prv_alias]}]}]}.

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar3.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_agent.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_api.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_app_discover.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_app_info.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_app_utils.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_base_compiler.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_compiler.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_compiler_dag.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_compiler_epp.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_compiler_erl.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_compiler_mib.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_compiler_xrl.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_compiler_yrl.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_config.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_core.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_dialyzer_format.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_digraph.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_dir.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_dist_utils.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_env.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_erlc_compiler.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_fetch.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_file_utils.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_git_resource.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_git_subdir_resource.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_hex_repos.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_hg_resource.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_hooks.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_httpc_adapter.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_log.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_opts.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_otp_app.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_packages.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_parallel.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_paths.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_pkg_resource.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_plugins.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_alias.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_app_discovery.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_as.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_bare_compile.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_clean.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_common_test.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_compile.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_cover.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_deps.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_deps_tree.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_dialyzer.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_do.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_edoc.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_escriptize.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_eunit.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_get_deps.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_help.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_install_deps.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_local_install.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_local_upgrade.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_lock.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_new.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_packages.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_path.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_plugins.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_plugins_upgrade.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_release.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_relup.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_report.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_repos.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_shell.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_state.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_tar.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_unlock.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_update.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_upgrade.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_version.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_prv_xref.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_relx.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_resource.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_resource_v2.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_state.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_string.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_templater.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_uri.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_user.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/ebin/rebar_utils.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/LICENSE Added

@@ -0,0 +1,191 @@
+                                 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
+
+   Copyright {{copyright_year}}, {{author_name}} <{{author_email}}>.
+
+   Licensed 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.
+

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/Makefile Added

@@ -0,0 +1,74 @@
+# Based on c_src.mk from erlang.mk by Loic Hoguin <essen@ninenines.eu>
+
+CURDIR := $(shell pwd)
+BASEDIR := $(abspath $(CURDIR)/..)
+
+PROJECT ?= $(notdir $(BASEDIR))
+PROJECT := $(strip $(PROJECT))
+
+ERTS_INCLUDE_DIR ?= $(shell erl -noshell -eval "io:format(\"~ts/erts-~ts/include/\", [code:root_dir(), erlang:system_info(version)])." -s init stop)
+ERL_INTERFACE_INCLUDE_DIR ?= $(shell erl -noshell -eval "io:format(\"~ts\", [code:lib_dir(erl_interface, include)])." -s init stop)
+ERL_INTERFACE_LIB_DIR ?= $(shell erl -noshell -eval "io:format(\"~ts\", [code:lib_dir(erl_interface, lib)])." -s init stop)
+
+C_SRC_DIR = $(CURDIR)
+C_SRC_OUTPUT ?= $(CURDIR)/../priv/$(PROJECT).so
+
+# System type and C compiler/flags.
+
+UNAME_SYS := $(shell uname -s)
+ifeq ($(UNAME_SYS), Darwin)
+	CC ?= cc
+	CFLAGS ?= -O3 -std=c99 -arch x86_64 -finline-functions -Wall -Wmissing-prototypes
+	CXXFLAGS ?= -O3 -arch x86_64 -finline-functions -Wall
+	LDFLAGS ?= -arch x86_64 -flat_namespace -undefined suppress
+else ifeq ($(UNAME_SYS), FreeBSD)
+	CC ?= cc
+	CFLAGS ?= -O3 -std=c99 -finline-functions -Wall -Wmissing-prototypes
+	CXXFLAGS ?= -O3 -finline-functions -Wall
+else ifeq ($(UNAME_SYS), Linux)
+	CC ?= gcc
+	CFLAGS ?= -O3 -std=c99 -finline-functions -Wall -Wmissing-prototypes
+	CXXFLAGS ?= -O3 -finline-functions -Wall
+endif
+
+CFLAGS += -fPIC -I $(ERTS_INCLUDE_DIR) -I $(ERL_INTERFACE_INCLUDE_DIR)
+CXXFLAGS += -fPIC -I $(ERTS_INCLUDE_DIR) -I $(ERL_INTERFACE_INCLUDE_DIR)
+
+LDLIBS += -L $(ERL_INTERFACE_LIB_DIR) -lei
+LDFLAGS += -shared
+
+# Verbosity.
+
+c_verbose_0 = @echo " C     " $(?F);
+c_verbose = $(c_verbose_$(V))
+
+cpp_verbose_0 = @echo " CPP   " $(?F);
+cpp_verbose = $(cpp_verbose_$(V))
+
+link_verbose_0 = @echo " LD    " $(@F);
+link_verbose = $(link_verbose_$(V))
+
+SOURCES := $(shell find $(C_SRC_DIR) -type f $ -name "*.c" -o -name "*.C" -o -name "*.cc" -o -name "*.cpp" $)
+OBJECTS = $(addsuffix .o, $(basename $(SOURCES)))
+
+COMPILE_C = $(c_verbose) $(CC) $(CFLAGS) $(CPPFLAGS) -c
+COMPILE_CPP = $(cpp_verbose) $(CXX) $(CXXFLAGS) $(CPPFLAGS) -c
+
+$(C_SRC_OUTPUT): $(OBJECTS)
+	@mkdir -p $(BASEDIR)/priv/
+	$(link_verbose) $(CC) $(OBJECTS) $(LDFLAGS) $(LDLIBS) -o $(C_SRC_OUTPUT)
+
+%.o: %.c
+	$(COMPILE_C) $(OUTPUT_OPTION) $<
+
+%.o: %.cc
+	$(COMPILE_CPP) $(OUTPUT_OPTION) $<
+
+%.o: %.C
+	$(COMPILE_CPP) $(OUTPUT_OPTION) $<
+
+%.o: %.cpp
+	$(COMPILE_CPP) $(OUTPUT_OPTION) $<
+
+clean:
+	@rm -f $(C_SRC_OUTPUT) $(OBJECTS)

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/README.md Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/app.erl Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/app.template Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/app_rebar.config Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/cmake.template Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/escript.template Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/escript_README.md Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/escript_mod.erl Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/escript_rebar.config Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/gitignore Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/lib.template Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/mod.erl Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/otp_app.app.src Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/otp_lib.app.src Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/plugin.erl Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/plugin.template Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/plugin_README.md Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/provider.erl Added

@@ -0,0 +1,32 @@
+-module({{name}}_prv).
+
+-export([init/1, do/1, format_error/1]).
+
+-define(PROVIDER, {{name}}).
+-define(DEPS, [app_discovery]).
+
+%% ===================================================================
+%% Public 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, "rebar3 {{name}}"}, % How to use the plugin
+            {opts, []},                   % list of options understood by the plugin
+            {short_desc, "{{desc}}"},
+            {desc, "{{desc}}"}
+    ]),
+    {ok, rebar_state:add_provider(State, Provider)}.
+
+
+-spec do(rebar_state:t()) -> {ok, rebar_state:t()} | {error, string()}.
+do(State) ->
+    {ok, State}.
+
+-spec format_error(any()) ->  iolist().
+format_error(Reason) ->
+    io_lib:format("~p", [Reason]).

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/rebar.config Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/release.template Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/relx_rebar.config Added

@@ -0,0 +1,33 @@
+{{=@@ @@=}}
+{erl_opts, [debug_info]}.
+{deps, []}.
+
+{relx, [{release, {@@name@@, "0.1.0"},
+         [@@name@@,
+          sasl]},
+
+        {mode, dev},
+
+        %% automatically picked up if the files
+        %% exist but can be set manually, which
+        %% is required if the names aren't exactly
+        %% sys.config and vm.args
+        {sys_config, "./config/sys.config"},
+        {vm_args, "./config/vm.args"}
+
+        %% the .src form of the configuration files do
+        %% not require setting RELX_REPLACE_OS_VARS
+        %% {sys_config_src, "./config/sys.config.src"},
+        %% {vm_args_src, "./config/vm.args.src"}
+]}.
+
+{profiles, [{prod, [{relx,
+                     [%% prod is the default mode when prod
+                      %% profile is used, so does not have
+                      %% to be explicitly included like this
+                      {mode, prod}
+
+                      %% use minimal mode to exclude ERTS
+                      %% {mode, minimal}
+                     ]
+            }]}]}.

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/sup.erl Added

@@ -0,0 +1,36 @@
+{{=@@ @@=}}
+%%%-------------------------------------------------------------------
+%% @doc @@name@@ top level supervisor.
+%% @end
+%%%-------------------------------------------------------------------
+
+-module(@@name@@_sup).
+
+-behaviour(supervisor).
+
+-export([start_link/0]).
+
+-export([init/1]).
+
+-define(SERVER, ?MODULE).
+
+start_link() ->
+    supervisor:start_link({local, ?SERVER}, ?MODULE, []).
+
+%% sup_flags() = #{strategy => strategy(),         % optional
+%%                 intensity => non_neg_integer(), % optional
+%%                 period => pos_integer()}        % optional
+%% child_spec() = #{id => child_id(),       % mandatory
+%%                  start => mfargs(),      % mandatory
+%%                  restart => restart(),   % optional
+%%                  shutdown => shutdown(), % optional
+%%                  type => worker(),       % optional
+%%                  modules => modules()}   % optional
+init([]) ->
+    SupFlags = #{strategy => one_for_all,
+                 intensity => 0,
+                 period => 1},
+    ChildSpecs = [],
+    {ok, {SupFlags, ChildSpecs}}.
+
+%% internal functions

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/sys.config Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/umbrella.template Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/rebar/priv/templates/vm.args Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/ebin/relx.app Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/ebin/relx.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/ebin/rlx_app_info.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/ebin/rlx_assemble.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/ebin/rlx_config.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/ebin/rlx_file_utils.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/ebin/rlx_log.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/ebin/rlx_overlay.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/ebin/rlx_release.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/ebin/rlx_relup.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/ebin/rlx_resolve.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/ebin/rlx_state.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/ebin/rlx_string.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/ebin/rlx_tar.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/ebin/rlx_util.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/priv Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/priv/templates Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/priv/templates/bin Added

@@ -0,0 +1,82 @@
+#!/bin/sh
+
+set -e
+
+SCRIPT=$(readlink "$0" || true)
+if [ -z "$SCRIPT" ]; then
+    SCRIPT=$0
+fi;
+SCRIPT_DIR="$(cd "$(dirname "$SCRIPT")" && pwd -P)"
+RELEASE_ROOT_DIR="$(cd "$SCRIPT_DIR/.." && pwd -P)"
+export REL_NAME="{{ rel_name }}"
+REL_VSN="{{ rel_vsn }}"
+
+# export these to match mix release environment variables
+export RELEASE_NAME="{{ rel_name }}"
+export RELEASE_VSN="{{ rel_vsn }}"
+export RELEASE_PROG="${SCRIPT}"
+
+ERTS_VSN="{{ erts_vsn }}"
+REL_DIR="$RELEASE_ROOT_DIR/releases/$REL_VSN"
+ERL_OPTS="{{ erl_opts }}"
+export ESCRIPT_NAME="${ESCRIPT_NAME-$SCRIPT}"
+
+find_erts_dir() {
+    __erts_dir="$RELEASE_ROOT_DIR/erts-$ERTS_VSN"
+    if [ -d "$__erts_dir" ]; then
+        ERTS_DIR="$__erts_dir";
+    else
+        __erl="$(command -v erl)"
+        code="io:format(\"~s\", [code:root_dir()]), halt()."
+        __erl_root="$("$__erl" -boot no_dot_erlang -noshell -eval "$code")"
+        ERTS_DIR="$__erl_root/erts-$ERTS_VSN"
+    fi
+}
+
+find_sys_config() {
+    __possible_sys="$REL_DIR/sys.config"
+    if [ -f "$__possible_sys" ]; then
+        SYS_CONFIG="$__possible_sys"
+    else 
+       if [ -L "$__possible_sys".orig ]; then
+          mv "$__possible_sys".orig "$__possible_sys"  
+          SYS_CONFIG="$__possible_sys"
+       fi
+    fi
+}
+
+find_vm_args() {
+    __possible_vm_args="$REL_DIR/vm.args"
+    if [ -f "$__possible_vm_args" ]; then
+        VM_ARGS="$__possible_vm_args"
+    else 
+       if [ -L "$__possible_vm_args".orig ]; then
+          mv "$__possible_vm_args".orig "$__possible_vm_args"  
+          VM_ARGS="$__possible_vm_args"
+       fi
+    fi
+}
+
+find_erts_dir
+find_sys_config
+find_vm_args
+export ROOTDIR="$RELEASE_ROOT_DIR"
+export BINDIR="$ERTS_DIR/bin"
+export EMU="beam"
+export PROGNAME="erl"
+export LD_LIBRARY_PATH="$ERTS_DIR/lib:$LD_LIBRARY_PATH"
+ERTS_LIB_DIR="$ERTS_DIR/../lib"
+[ -f "$REL_DIR/$REL_NAME.boot" ] && BOOTFILE="$REL_NAME" || BOOTFILE=start
+cd "$ROOTDIR"
+
+# Save extra arguments
+ARGS=$*
+
+# Build arguments for erlexec
+set -- "$ERL_OPTS"
+[ "$SYS_CONFIG" ] && set -- "$@" -config "$SYS_CONFIG"
+[ "$VM_ARGS" ] && set -- "$@" -args_file "$VM_ARGS"
+set -- "$@" -boot_var ERTS_LIB_DIR "$ERTS_LIB_DIR" -boot "$REL_DIR/$BOOTFILE" "$ARGS"
+
+# Boot the release
+exec "$BINDIR/erlexec" "$@"

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/priv/templates/bin_windows Added

@@ -0,0 +1,108 @@
+@echo off
+:: This is a simple start batch file that runs the release in an Erlang shell
+
+:: Set variables that describe the release
+set rel_name={{ rel_name }}
+set rel_vsn={{ rel_vsn }}
+set erts_vsn={{ erts_vsn }}
+set erl_opts={{ erl_opts }}
+
+:: export these to match mix release environment variables
+set RELEASE_NAME={{ rel_name }}
+set RELEASE_VSN={{ rel_vsn }}
+set RELEASE_PROG=%~nx0
+
+:: Set the root release directory based on the location of this batch file
+set script_dir=%~dp0
+for %%A in ("%script_dir%\..") do (
+  set "release_root_dir=%%~fA"
+)
+set "rel_dir=%release_root_dir%\releases\%rel_vsn%"
+
+call :find_erts_dir
+call :find_sys_config
+call :set_boot_script_var
+
+set "rootdir=%release_root_dir%"
+set "bindir=%erts_dir%\bin"
+set progname=erl
+set erl=%bindir%\erl
+
+cd %rootdir%
+
+:: Write the erl.ini file
+set erl_ini=%erts_dir%\bin\erl.ini
+set converted_bindir=%bindir:\=\\%
+set converted_rootdir=%rootdir:\=\\%
+echo [erlang] > "%erl_ini%"
+echo Bindir=%converted_bindir% >> "%erl_ini%"
+echo Progname=%progname% >> "%erl_ini%"
+echo Rootdir=%converted_rootdir% >> "%erl_ini%"
+
+:: Start the release in an `erl` shell
+set boot=-boot "%boot_script%" -boot_var RELEASE_DIR "%release_root_dir%"
+"%erl%" %erl_opts% %sys_config% %boot% %*
+
+goto :eof
+
+:: Find the ERTS dir
+:find_erts_dir
+set "erts_dir=%release_root_dir%\erts-%erts_vsn%"
+if exist %erts_dir% (
+  goto :set_erts_dir_from_default
+) else (
+  goto :set_erts_dir_from_erl
+)
+goto :eof
+
+:: Set the ERTS dir from the passed in erts_vsn
+:set_erts_dir_from_default
+set erts_dir=%erts_dir%
+set root_dir=%release_root_dir%
+goto :eof
+
+:: Set the ERTS dir from erl
+:set_erts_dir_from_erl
+for /f "delims=" %%i in ('where erl') do (
+  set erl=%%i
+)
+for /f "delims=" %%i in ('call "%erl%" -boot no_dot_erlang -boot_var RELEASE_DIR "%release_root_dir%" -noshell -eval "io:format(\"~s\", [filename:nativename(code:root_dir())])." -s init stop') do (
+  set erl_root=%%i
+)
+set "erts_dir=%erl_root%\erts-%erts_vsn%"
+set rootdir=%erl_root%
+goto :eof
+
+:: Find the sys.config file
+:find_sys_config
+set "possible_sys=%rel_dir%\sys.config"
+if exist "%possible_sys%" (
+  set sys_config=-config "%possible_sys%"
+) else (
+  if exist "%possible_sys%.orig" (
+    ren "%possible_sys%.orig" sys.config
+    set sys_config=-config "%possible_sys%"
+  )
+)
+
+:: Find the vm.args file
+:find_vm_args
+set "possible_vm_args=%rel_dir%\vm.args"
+if exist "%possible_vm_args%" (
+  set vm_args="%possible_vm_args%"
+) else (
+  if exist "%possible_vm_args%.orig" (
+    ren "%possible_vm_args%.orig" vm.args
+    set vm_args="%possible_vm_args%"
+  )
+)
+goto :eof
+
+:: set boot_script variable
+:set_boot_script_var
+if exist "%rel_dir%\%rel_name%.boot" (
+  set "boot_script=%rel_dir%\%rel_name%"
+) else (
+  set "boot_script=%rel_dir%\start"
+)
+goto :eof

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/priv/templates/bin_windows_ps Added

@@ -0,0 +1,48 @@
+#! /usr/bin/pwsh
+# This is a simple start script file that runs the release in an Erlang shell
+
+# Terminate on error
+$ErrorActionPreference = "Stop"
+
+# Set variables that describe the release
+$rel_name = '{{ rel_name }}'
+$rel_vsn = '{{ rel_vsn }}'
+$erts_vsn = '{{ erts_vsn }}'
+$erl_opts = '{{ erl_opts }}'
+
+# export these to match mix release environment variables
+$RELEASE_NAME = '{{ rel_name }}'
+$RELEASE_VERSION = '{{ rel_vsn }}'
+$RELEASE_PROG = $MyInvocation.MyCommand.Name
+
+# Ensure we have PSScriptRoot
+if (!(Test-Path variable:global:PSScriptRoot)) {
+    # Support for powershell 2.0
+    $PSScriptRoot = Split-Path -Parent -Path $MyInvocation.MyCommand.Definition
+}
+
+# Import psutil helper functions
+. $PSScriptRoot\psutil.ps1
+
+# Set the root release directory based on the location of this script
+$rootdir = Split-Path -Parent -Path $PSScriptRoot
+$rel_dir = "$rootdir\releases\$rel_vsn"
+
+$erts_root, $erts_dir = Find-ERTS -RelRoot $rootdir -Vsn $erts_vsn
+$sys_config = Find-FormatConfig -RelDir $rel_dir -File 'sys.config'
+$vm_args = Find-FormatConfig -RelDir $rel_dir -File 'vm.args'
+$boot_script = Find-BootScript -RelDir $rel_dir -RelName $rel_name
+$werl = "$erts_dir\bin\werl.exe"
+
+# Set the ERL_LIBS environment variable
+$env:ERL_LIBS = "$rootdir\lib"
+
+# Start the release in an `erl` shell
+$params = @($erl_opts, '-boot', $boot_script)
+if (![string]::IsNullOrEmpty($sys_config)) { $params += '-config', $sys_config }
+if (![string]::IsNullOrEmpty($vm_args))    { $params += '-args_file', $vm_args }
+$params += $args
+& $werl $params
+
+# Cleanup
+$env:ERL_LIBS = ''

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/priv/templates/builtin_hook_pid Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/priv/templates/builtin_hook_status Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/priv/templates/builtin_hook_wait_for_process Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/priv/templates/builtin_hook_wait_for_vm_start Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/priv/templates/erl_ini Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/priv/templates/erl_script Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/priv/templates/extended_bin Added

@@ -0,0 +1,1008 @@
+#!/bin/sh
+
+set -e
+
+# http://erlang.org/doc/man/run_erl.html
+# If defined, disables input and output flow control for the pty
+# opend by run_erl. Useful if you want to remove any risk of accidentally
+# blocking the flow control by using Ctrl-S (instead of Ctrl-D to detach),
+# which can result in blocking of the entire Beam process, and in the case
+# of running heart as supervisor even the heart process becomes blocked
+# when writing log message to terminal, leaving the heart process unable
+# to do its work.
+RUN_ERL_DISABLE_FLOWCNTRL=${RUN_ERL_DISABLE_FLOWCNTRL:-true}
+export RUN_ERL_DISABLE_FLOWCNTRL
+
+if [ "$TERM" = "dumb" ] || [ -z "$TERM" ]; then
+  export TERM=screen
+fi
+
+# OSX does not support readlink '-f' flag, work
+# around that
+# shellcheck disable=SC2039
+case $OSTYPE in
+    darwin*)
+        SCRIPT=$(readlink "$0" || true)
+    ;;
+    *)
+        SCRIPT=$(readlink -f "$0" || true)
+    ;;
+esac
+[ -z "$SCRIPT" ] && SCRIPT=$0
+SCRIPT_DIR="$(cd "$(dirname "$SCRIPT")" && pwd -P)"
+RELEASE_ROOT_DIR="$(cd "$SCRIPT_DIR/.." && pwd -P)"
+# Make the value available to variable substitution calls below
+export REL_NAME="{{ rel_name }}"
+REL_VSN="{{ rel_vsn }}"
+
+# export these to match mix release environment variables
+export RELEASE_NAME="{{ rel_name }}"
+export RELEASE_VSN="{{ rel_vsn }}"
+export RELEASE_PROG="${SCRIPT}"
+
+ERTS_VSN="{{ erts_vsn }}"
+REL_DIR="$RELEASE_ROOT_DIR/releases/$REL_VSN"
+RUNNER_LOG_DIR="${RUNNER_LOG_DIR:-$RELEASE_ROOT_DIR/log}"
+export ESCRIPT_NAME="${ESCRIPT_NAME-$SCRIPT}"
+
+
+# if RELX_RPC_TIMEOUT is set then use that
+# otherwise check for NODETOOL_TIMEOUT and convert to seconds
+if [ -z "$RELX_RPC_TIMEOUT" ]; then
+    # if NODETOOL_TIMEOUT exists then turn the old nodetool timeout into the rpc timeout
+    if [ -n "$NODETOOL_TIMEOUT" ]; then
+        # will exit the script if NODETOOL_TIMEOUT isn't a number
+        RELX_RPC_TIMEOUT=$((NODETOOL_TIMEOUT / 1000))
+    else
+        RELX_RPC_TIMEOUT=60
+    fi
+fi
+
+export RELX_RPC_TIMEOUT
+
+# start/stop/install/upgrade pre/post hooks
+PRE_START_HOOKS="{{{ pre_start_hooks }}}"
+POST_START_HOOKS="{{{ post_start_hooks }}}"
+PRE_STOP_HOOKS="{{{ pre_stop_hooks }}}"
+POST_STOP_HOOKS="{{{ post_stop_hooks }}}"
+PRE_INSTALL_UPGRADE_HOOKS="{{{ pre_install_upgrade_hooks }}}"
+POST_INSTALL_UPGRADE_HOOKS="{{{ post_install_upgrade_hooks }}}"
+STATUS_HOOK="{{{ status_hook }}}"
+EXTENSIONS="{{{ extensions }}}"
+
+relx_usage() {
+    command="$1"
+
+    case "$command" in
+        rpc)
+            echo "Usage: $REL_NAME rpc [Mod [Fun [Args]]]]"
+            echo "Applies the specified function and returns the result."
+            echo "Mod must be specified. However, start and [] are assumed"
+            echo "for unspecified Fun and Args, respectively. Args is to "
+            echo "be in the same format as for erlang:apply/3 in ERTS."
+            ;;
+        "eval")
+            echo "Usage: $REL_NAME eval [Exprs]"
+            echo "Executes a sequence of Erlang expressions, separated by"
+            echo "comma (,) and ended with a full stop (.)"
+            ;;
+        foreground)
+            echo "Usage: $REL_NAME foreground"
+            echo "Starts the release in the foreground, meaning all output"
+            echo "going to stdout but without an interactive shell."
+            ;;
+        console)
+            echo "Usage: $REL_NAME console"
+            echo "Starts the release in the with an interactive shell."
+            ;;
+        remote_console|remote|remsh)
+            echo "Usage: $REL_NAME remote"
+            echo "Attach a remote shell to an already running Erlang node for this release."
+            ;;
+        unpack)
+            echo "Usage: $REL_NAME unpack [VERSION]"
+            echo "Unpacks a release package VERSION, it assumes that this"
+            echo "release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            ;;
+        install)
+            echo "Usage: $REL_NAME install [VERSION]"
+            echo "Installs a release package VERSION, it assumes that this"
+            echo "release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            echo ""
+            echo "     --no-permanent   Install release package VERSION but"
+            echo "                      don't make it permanent"
+            ;;
+        uninstall)
+            echo "Usage: $REL_NAME uninstall [VERSION]"
+            echo "Uninstalls a release VERSION, it will only accept"
+            echo "versions that are not currently in use"
+            ;;
+        upgrade)
+            echo "Usage: $REL_NAME upgrade [VERSION]"
+            echo "Upgrades the currently running release to VERSION, it assumes"
+            echo "that a release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            echo ""
+            echo "     --no-permanent   Install release package VERSION but"
+            echo "                      don't make it permanent"
+            ;;
+        downgrade)
+            echo "Usage: $REL_NAME downgrade [VERSION]"
+            echo "Downgrades the currently running release to VERSION, it assumes"
+            echo "that a release package tarball has already been deployed at one"
+            echo "of the following locations:"
+            echo "      releases/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>-<version>.tar.gz"
+            echo "      releases/<version>/<relname>.tar.gz"
+            echo ""
+            echo "     --no-permanent   Install release package VERSION but"
+            echo "                      don't make it permanent"
+            ;;
+        status)
+            echo "Usage: $REL_NAME status"
+            echo "Obtains node status information through optionally defined hooks."
+            ;;
+        *)
+            # check for extension
+            IS_EXTENSION=$(relx_is_extension "$command")
+            if [ "$IS_EXTENSION" = "1" ]; then
+                EXTENSION_SCRIPT=$(relx_get_extension_script "$command")
+                relx_run_extension "$EXTENSION_SCRIPT" help
+            else
+                EXTENSIONS=$(echo $EXTENSIONS | sed -e 's/|undefined//g')
+                echo "Usage: ${REL_NAME} [COMMAND] [ARGS]
+
+Commands:
+
+  foreground              Start release with output to stdout
+  remote_console          Connect remote shell to running node
+  rpc [Mod [Fun [Args]]]] Run apply(Mod, Fun, Args) on running node
+  eval [Exprs]            Run expressions on running node
+  stop                    Stop the running node
+  restart                 Restart the applications but not the VM
+  reboot                  Reboot the entire VM
+  pid                     Print the PID of the OS process
+  ping                    Print pong if the node is alive
+  console                 Start the release with an interactive shell
+  console_clean           Start an interactive shell without the release's applications
+  console_boot [File]     Start an interactive shell for boot script [File]
+  daemon                  Start release in the background with run_erl (named pipes)
+  daemon_boot [File]      Start boot script [File] in the background with run_erl (named pipes)
+  daemon_attach           Connect to node started as daemon with to_erl (named pipes)
+  upgrade [Version]       Upgrade the running release to a new version
+  downgrade [Version]     Downgrade the running release to a new version
+  install [Version]       Install a release
+  uninstall [Version]     Uninstall a release
+  unpack [Version]        Unpack a release tarball
+  versions                Print versions of the release available
+  escript                 Run an escript in the same environment as the release
+  status                  Verify node is running and then run status hook scripts
+  $EXTENSIONS"
+            fi
+            ;;
+    esac
+}
+
+find_erts_dir() {
+    __erts_dir="$RELEASE_ROOT_DIR/erts-$ERTS_VSN"
+    if [ -d "$__erts_dir" ]; then
+        ERTS_DIR="$__erts_dir";
+    else
+        __erl="$(command -v erl)"
+        code="io:format(\"~s\", [code:root_dir()]), halt()."
+        __erl_root="$("$__erl" -boot no_dot_erlang -sasl errlog_type error -noshell -eval "$code")"
+        ERTS_DIR="$__erl_root/erts-$ERTS_VSN"
+        if [ ! -d "$ERTS_DIR" ]; then
+            erts_version_code="io:format(\"~s\", [erlang:system_info(version)]), halt()."
+            __erts_version="$("$__erl" -boot no_dot_erlang -sasl errlog_type error -noshell -eval "$erts_version_code")"
+            ERTS_DIR="${__erl_root}/erts-${__erts_version}"
+            if [ -d "$ERTS_DIR" ]; then
+                ERTS_VSN=${__erts_version}
+                echo "Exact ERTS version (${ERTS_VSN}) match not found, instead using ${__erts_version}. The release may fail to run." 1>&2
+            else
+                echo "Can not run the release. There is no ERTS bundled with the release or found on the system."
+                exit 1
+            fi
+        fi
+    fi
+}
+
+find_erl_call() {
+    # users who depend on stdout when running rpc calls must still use nodetool
+    # so we have an overload option to force use of nodetool instead of erl_call
+    if [ "$USE_NODETOOL" ]; then
+        ERL_RPC=relx_nodetool
+    else
+        # only OTP-23 and above have erl_call in the erts bin directory
+        # and only those versions have the features and bug fixes needed
+        # to work properly with this script
+        __erl_call="$ERTS_DIR/bin/erl_call"
+        if [ -f "$__erl_call" ]; then
+            ERL_RPC="$__erl_call";
+        else
+            ERL_RPC=relx_nodetool
+        fi
+    fi
+}
+
+# Get node pid
+relx_get_pid() {
+    if output="$(erl_rpc os getpid 2>/dev/null)"
+    then
+        echo "$output" | sed -e 's/"//g'
+        return 0
+    else
+        echo "$output"
+        return 1
+    fi
+}
+
+ping_or_exit() {
+    if ! erl_rpc erlang is_alive > /dev/null 2>&1; then
+        echo "Node is not running!"
+        exit 1
+    fi
+}
+
+relx_get_nodename() {
+    id="longname$(relx_gen_id)-${NAME}"
+    if [ -z "$COOKIE" ]; then
+        # shellcheck disable=SC2086
+        "$BINDIR/erl" -boot "$REL_DIR"/start_clean \
+                      -mode interactive \
+                      -boot_var SYSTEM_LIB_DIR "$SYSTEM_LIB_DIR" \
+                      -eval '[_,H]=re:split(atom_to_list(node()),"@",[unicode,{return,list}]), io:format("~s~n",[H]), halt()' \
+                      -dist_listen false \
+                      ${START_EPMD} \
+                      -noshell "${NAME_TYPE}" "$id"
+    else
+        # running with setcookie prevents a ~/.erlang.cookie from being created
+        # shellcheck disable=SC2086
+        "$BINDIR/erl" -boot "$REL_DIR"/start_clean \
+                      -mode interactive \
+                      -boot_var SYSTEM_LIB_DIR "$SYSTEM_LIB_DIR" \
+                      -eval '[_,H]=re:split(atom_to_list(node()),"@",[unicode,{return,list}]), io:format("~s~n",[H]), halt()' \
+                      -setcookie "${COOKIE}" \
+                      -dist_listen false \
+                      ${START_EPMD} \
+                      -noshell "${NAME_TYPE}" "$id"
+    fi
+}
+
+# Connect to a remote node
+relx_rem_sh() {
+    # Remove remote_nodename when OTP-23 is the oldest version supported by rebar3/relx.
+    # sort the used erts version against 11.0 to see if it is less than 11.0 (OTP-23)
+    # if it is then we must generate a node name to use for the remote node.
+    # But this feature is only for short names in 23.0 (erts 11.0). It can be used
+    # for long names with 23.1 (erts 11.1) and above.
+    if [ "${NAME_TYPE}" = "-sname" ] && [  "11.0" = "$(printf "%s\n11.0" "${ERTS_VSN}" | sort -V | head -n1)" ] ; then
+
+        remote_nodename="${NAME_TYPE} undefined@${RELX_HOSTNAME}"
+    # if the name type is longnames then make sure this is erts 11.1+
+    elif [ "${NAME_TYPE}" = "-name" ] && [  "11.1" = "$(printf "%s\n11.1" "${ERTS_VSN}" | sort -V | head -n1)" ] ; then
+        remote_nodename="${NAME_TYPE} undefined@${RELX_HOSTNAME}"
+    else
+        # Generate a unique id used to allow multiple remsh to the same node transparently
+        remote_nodename="${NAME_TYPE} remsh$(relx_gen_id)-${NAME}"
+    fi
+
+    # Get the node's ticktime so that we use the same one
+    TICKTIME="$(erl_rpc net_kernel get_net_ticktime)"
+
+    # Setup remote shell command to control node
+    # -dist_listen is new in OTP-23. It keeps the remote node from binding to a listen port
+    # and implies the option -hidden
+    # shellcheck disable=SC2086
+    exec "$BINDIR/erl" ${remote_nodename} -remsh "$NAME" -boot "$REL_DIR"/start_clean -mode interactive \
+         -boot_var SYSTEM_LIB_DIR "$SYSTEM_LIB_DIR" \
+         -setcookie "$COOKIE" -hidden -kernel net_ticktime "$TICKTIME" \
+         -dist_listen false \
+         $DIST_ARGS \
+         $EXTRA_DIST_ARGS
+}
+
+erl_rpc() {
+    case "$ERL_RPC" in
+        "relx_nodetool")
+            relx_nodetool rpc "$@"
+            ;;
+        *)
+            command=$*
+
+            # erl_call -R is recommended for generating dynamic node name but is only available in 23.0+
+            if [  "11.0" = "$(printf "%s\n11.0" "${ERTS_VSN}" | sort -V | head -n1)" ] ; then
+                DYNAMIC_NAME="-R"
+            else
+                DYNAMIC_NAME="-r"
+            fi
+
+            if [ "$ERL_DIST_PORT" ]; then
+                result=$("$ERL_RPC" "${DYNAMIC_NAME}" -c "${COOKIE}" -address "${ERL_DIST_PORT}"  -timeout "${RELX_RPC_TIMEOUT}" -a "${command}")
+            else
+                result=$("$ERL_RPC" "$NAME_TYPE" "$NAME" "${DYNAMIC_NAME}" -c "${COOKIE}" -timeout "${RELX_RPC_TIMEOUT}" -a "${command}")
+            fi
+            code=$?
+            if [ $code -eq 0 ]; then
+                echo "$result"
+            else
+                return $code
+            fi
+            ;;
+    esac
+}
+
+erl_eval() {
+    case "$ERL_RPC" in
+        "relx_nodetool")
+            relx_nodetool eval "$@"
+            ;;
+        *)
+            command=$*
+
+            result=$(echo "${command}" | "$ERL_RPC" "$NAME_TYPE" "$NAME" -R -timeout "${RELX_RPC_TIMEOUT}" -c "${COOKIE}" -e)
+            code=$?
+            if [ $code -eq 0 ]; then
+                echo "$result" | sed 's/^{ok, $.*$}$/\1/'
+            else
+                return $code
+            fi
+            ;;
+    esac
+}
+
+
+# Generate a random id
+relx_gen_id() {
+    dd count=1 bs=4 if=/dev/urandom 2> /dev/null | od -x  | head -n1 | awk '{print $2$3}'
+}
+
+# Control a node with nodetool if erl_call isn't from OTP-23+
+relx_nodetool() {
+    command="$1"; shift
+
+    # Generate a unique id used to allow multiple nodetool calls to the
+    # same node transparently
+    nodetool_id="maint$(relx_gen_id)-${NAME}"
+
+    if [ -z "${START_EPMD}" ]; then
+        ERL_FLAGS="${ERL_FLAGS} ${DIST_ARGS} ${EXTRA_DIST_ARGS} ${NAME_TYPE} $nodetool_id -setcookie ${COOKIE}" \
+                 "$ERTS_DIR/bin/escript" \
+                 "$ROOTDIR/bin/nodetool" \
+                 "$NAME_TYPE" "$NAME" \
+                 "$command" "$@"
+    else
+        # shellcheck disable=SC2086
+        ERL_FLAGS="${ERL_FLAGS} ${DIST_ARGS} ${EXTRA_DIST_ARGS} ${NAME_TYPE} $nodetool_id -setcookie ${COOKIE}" \
+                 "$ERTS_DIR/bin/escript" \
+                 "$ROOTDIR/bin/nodetool" \
+                 $START_EPMD "$NAME_TYPE" "$NAME" "$command" "$@"
+    fi
+}
+
+# Run an escript in the node's environment
+relx_escript() {
+    scriptpath="$1"; shift
+    export RELEASE_ROOT_DIR
+
+    "$ERTS_DIR/bin/escript" "$ROOTDIR/$scriptpath" "$@"
+}
+
+make_out_file_path() {
+    # Use output directory provided in the RELX_OUT_FILE_PATH environment variable
+    # (default to the current location of vm.args and sys.config)
+    DIR=$(dirname "$1")
+    [ -d "${RELX_OUT_FILE_PATH}" ] && DIR="${RELX_OUT_FILE_PATH}"
+    FILE=$(basename "$1")
+    IN="${DIR}/${FILE}"
+
+    PFX=$(echo "$IN"   | awk '{sub(/\.[^.]+$/, "", $0)}1')
+    SFX=$(echo "$FILE" | awk -F . '{if (NF>1) print $NF}')
+    if [ "$RELX_MULTI_NODE" ]; then
+        echo "${PFX}.${NAME}.${SFX}"
+    else
+        echo "${PFX}.${SFX}"
+    fi
+}
+
+# Replace environment variables
+replace_os_vars() {
+    awk '{
+        while(match($0,"[$]{[^}]*}")) {
+            var=substr($0,RSTART+2,RLENGTH -3)
+            slen=split(var,arr,":-")
+            v=arr[1]
+            e=ENVIRON[v]
+            if(slen > 1 && e=="") {
+                i=index(var, ":-"arr[2])
+                def=substr(var,i+2)
+                gsub("[$]{"var"}",def)
+            } else {
+                gsub("[$]{"var"}",e)
+            }
+        }
+    }1' < "$1" > "$2"
+}
+
+add_path() {
+    # Use $CWD/$1 if exists, otherwise releases/VSN/$1
+    IN_FILE_PATH=$2
+    if [ -z "$IN_FILE_PATH" ]; then
+        if [ -f "$RELEASE_ROOT_DIR/$1" ]; then
+            IN_FILE_PATH="$RELEASE_ROOT_DIR/$1"
+        else
+            IN_FILE_PATH="$REL_DIR/$1"
+        fi
+    fi
+    echo "$IN_FILE_PATH"
+}
+
+check_replace_os_vars() {
+    IN_FILE_PATH=$(add_path "$1" "$2")
+    OUT_FILE_PATH="$IN_FILE_PATH"
+    SRC_FILE_PATH="$IN_FILE_PATH.src"
+    ORIG_FILE_PATH="$IN_FILE_PATH.orig"
+    if [ -f "$SRC_FILE_PATH" ]; then
+        OUT_FILE_PATH=$(make_out_file_path "$IN_FILE_PATH")
+        replace_os_vars "$SRC_FILE_PATH" "$OUT_FILE_PATH"
+    elif [ "$RELX_REPLACE_OS_VARS" ]; then
+        OUT_FILE_PATH=$(make_out_file_path "$IN_FILE_PATH")
+        # If vm.args.orig or sys.config.orig is present then use that
+        if [ -f "$ORIG_FILE_PATH" ]; then
+           IN_FILE_PATH="$ORIG_FILE_PATH"
+        fi
+
+        # apply the environment variable substitution to $IN_FILE_PATH
+        # the result is saved to $OUT_FILE_PATH
+        # if they are both the same, then ensure that we don't clobber
+        # the file by saving a backup with the .orig extension
+        if [ "$IN_FILE_PATH" = "$OUT_FILE_PATH" ]; then
+            cp "$IN_FILE_PATH" "$ORIG_FILE_PATH"
+            replace_os_vars "$ORIG_FILE_PATH" "$OUT_FILE_PATH"
+        else
+            replace_os_vars "$IN_FILE_PATH" "$OUT_FILE_PATH"
+        fi
+    else
+        # If vm.arg.orig or sys.config.orig is present then use that
+        if [ -f "$ORIG_FILE_PATH" ]; then
+            OUT_FILE_PATH=$(make_out_file_path "$IN_FILE_PATH")
+            cp "$ORIG_FILE_PATH" "$OUT_FILE_PATH"
+        fi
+    fi
+    echo "$OUT_FILE_PATH"
+}
+
+relx_run_hooks() {
+    HOOKS=$1
+    for hook in $HOOKS
+    do
+        # the scripts arguments at this point are separated
+        # from each other by | , we now replace these
+        # by empty spaces and give them to the `set`
+        # command in order to be able to extract them
+        # separately
+        # shellcheck disable=SC2046
+        set $(echo "$hook" | sed -e 's/|/ /g')
+        HOOK_SCRIPT=$1; shift
+        # all hook locations are expected to be
+        # relative to the start script location
+        # shellcheck disable=SC1090,SC2240
+        [ -f "$SCRIPT_DIR/$HOOK_SCRIPT" ] && . "$SCRIPT_DIR/$HOOK_SCRIPT" "$@"
+    done
+}
+
+relx_disable_hooks() {
+    PRE_START_HOOKS=""
+    POST_START_HOOKS=""
+    PRE_STOP_HOOKS=""
+    POST_STOP_HOOKS=""
+    PRE_INSTALL_UPGRADE_HOOKS=""
+    POST_INSTALL_UPGRADE_HOOKS=""
+    STATUS_HOOK=""
+}
+
+relx_is_extension() {
+    EXTENSION=$1
+    case "$EXTENSION" in
+        {{{ extensions }}})
+            echo "1"
+        ;;
+        *)
+            echo "0"
+        ;;
+    esac
+}
+
+relx_get_extension_script() {
+    EXTENSION=$1
+    # below are the extensions declarations
+    # of the form:
+    # foo_extension="path/to/foo_script";bar_extension="path/to/bar_script"
+    {{{extension_declarations}}}
+    # get the command extension (eg. foo) and
+    # obtain the actual script filename that it
+    # refers to (eg. "path/to/foo_script"
+    eval echo "$""${EXTENSION}_extension"
+}
+
+relx_run_extension() {
+    # drop the first argument which is the name of the
+    # extension script
+    EXTENSION_SCRIPT=$1
+    shift
+    # all extension script locations are expected to be
+    # relative to the start script location
+    # shellcheck disable=SC1090,SC2240
+    [ -f "$SCRIPT_DIR/$EXTENSION_SCRIPT" ] && . "$SCRIPT_DIR/$EXTENSION_SCRIPT" "$@"
+}
+
+# given a list of arguments, identify the internal ones
+#   --relx-disable-hooks
+# and process them accordingly
+process_internal_args() {
+    for arg in "$@"
+    do
+      shift
+      case "$arg" in
+          --relx-disable-hooks)
+            relx_disable_hooks
+            ;;
+          *)
+            ;;
+      esac
+    done
+}
+
+# process internal arguments
+process_internal_args "$@"
+
+find_erts_dir
+find_erl_call
+export ROOTDIR="$RELEASE_ROOT_DIR"
+export BINDIR="$ERTS_DIR/bin"
+export EMU="beam"
+export PROGNAME="erl"
+export LD_LIBRARY_PATH="$ERTS_DIR/lib:$LD_LIBRARY_PATH"
+SYSTEM_LIB_DIR="$(dirname "$ERTS_DIR")/lib"
+
+VMARGS_PATH=$(add_path vm.args "$VMARGS_PATH")
+
+VMARGS_PATH=$(check_replace_os_vars vm.args "$VMARGS_PATH")
+RELX_CONFIG_PATH=$(check_replace_os_vars sys.config "$RELX_CONFIG_PATH")
+
+# Check vm.args and other files referenced via -args_file parameters for:
+#    - nonexisting -args_files
+#    - circular dependencies of -args_files
+#    - relative paths in -args_file parameters
+#    - multiple/mixed occurences of -name and -sname parameters
+#    - missing -name or -sname parameters
+# If all checks pass, extract the target node name
+set +e
+TMP_NAME_ARG=$(awk 'function check_name(file)
+{
+    # if file exists, then it should be readable
+    if (system("test -f "file) == 0 && system("test -r "file) != 0) {
+        print file" not readable"
+        exit 3
+    }
+    while ((getline line<file)>0) {
+        if (line~/^-args_file +/) {
+            gsub(/^-args_file +| *$/, "", line)
+            if (line in files) {
+                print "circular reference to "line" encountered in "file
+                exit 5
+            }
+            files[line]=line
+            check_name(line)
+        }
+        else if (line~/^-s?name +/) {
+            if (name!="") {
+                print "\""line"\" parameter found in "file" but already specified as \""name"\""
+                exit 2
+            }
+            name=line
+        }
+    }
+}
+
+BEGIN {
+    split("", files)
+    name=""
+}
+
+{
+    files[FILENAME]=FILENAME
+    check_name(FILENAME)
+    if (name=="") {
+        print "need to have exactly one of either -name or -sname parameters but none found"
+        exit 1
+    }
+    print name
+    exit 0
+}' "$VMARGS_PATH")
+TMP_NAME_ARG_RC=$?
+case $TMP_NAME_ARG_RC in
+    0) NAME_ARG="$TMP_NAME_ARG";;
+    *) echo "$TMP_NAME_ARG"
+       exit $TMP_NAME_ARG_RC;;
+esac
+unset TMP_NAME_ARG
+unset TMP_NAME_ARG_RC
+set -e
+
+# Perform replacement of variables in ${NAME_ARG}
+NAME_ARG=$(eval echo "${NAME_ARG}")
+
+# Extract the name type and name from the NAME_ARG for REMSH
+NAME_TYPE="$(echo "$NAME_ARG" | awk '{print $1}')"
+NAME="$(echo "$NAME_ARG" | awk '{print $2}')"
+
+# Extract dist arguments
+DIST_ARGS=""
+PROTO_DIST="$(grep '^-proto_dist' "$VMARGS_PATH" || true)"
+if [ "$PROTO_DIST" ]; then
+    DIST_ARGS="${PROTO_DIST}"
+fi
+START_EPMD="$(grep '^-start_epmd' "$VMARGS_PATH" || true)"
+if [ "$START_EPMD" ]; then
+    DIST_ARGS="${DIST_ARGS} ${START_EPMD}"
+fi
+EPMD_MODULE="$(grep '^-epmd_module' "$VMARGS_PATH" || true)"
+if [ "$EPMD_MODULE" ]; then
+    DIST_ARGS="${DIST_ARGS} ${EPMD_MODULE}"
+fi
+
+if [ "$ERL_DIST_PORT" ]; then
+    if [  "11.1" = "$(printf "%s\n11.1" "${ERTS_VSN}" | sort -V | head -n1)" ] ; then
+        # unless set by the user, set start_epmd to false when ERL_DIST_PORT is used
+        if [ ! "$START_EPMD" ]; then
+            EXTRA_DIST_ARGS="-erl_epmd_port ${ERL_DIST_PORT} -start_epmd false"
+        else
+            EXTRA_DIST_ARGS="-erl_epmd_port ${ERL_DIST_PORT}"
+        fi
+    else
+        EXTRA_DIST_ARGS="-kernel inet_dist_listen_min ${ERL_DIST_PORT} -kernel inet_dist_listen_max ${ERL_DIST_PORT}"
+    fi
+fi
+
+# Extract the target cookie
+# Do this before relx_get_nodename so we can use it and not create a ~/.erlang.cookie
+if [ -n "$RELX_COOKIE" ]; then
+    COOKIE="$RELX_COOKIE"
+else
+    COOKIE_ARG="$(grep '^-setcookie' "$VMARGS_PATH" || true)"
+    DEFAULT_COOKIE_FILE="$HOME/.erlang.cookie"
+    if [ -z "$COOKIE_ARG" ]; then
+        if [ -f "$DEFAULT_COOKIE_FILE" ]; then
+            COOKIE="$(cat "$DEFAULT_COOKIE_FILE")"
+        else
+            echo "No cookie is set or found. This limits the scripts functionality, installing, upgrading, rpc and getting a list of versions will not work."
+        fi
+    else
+        # Extract cookie name from COOKIE_ARG
+        COOKIE="$(echo "$COOKIE_ARG" | awk '{print $2}')"
+    fi
+fi
+
+# User can specify an sname without @hostname
+# This will fail when creating remote shell
+# So here we check for @ and add @hostname if missing
+case "${NAME}" in
+    *@*) ;;                             # Nothing to do
+    *)   NAME=${NAME}@$(relx_get_nodename);;  # Add @hostname
+esac
+
+# Export the variable so that it's available in the 'eval' calls
+export NAME
+
+# create a variable of just the hostname part of the nodename
+RELX_HOSTNAME=$(echo "${NAME}" | cut -d'@' -f2)
+
+test -z "$PIPE_DIR" && PIPE_BASE_DIR='/tmp/erl_pipes/'
+PIPE_DIR="${PIPE_DIR:-/tmp/erl_pipes/$NAME/}"
+
+cd "$ROOTDIR"
+
+# Check the first argument for instructions
+case "$1" in
+    start|daemon|daemon_boot)
+        case "$1" in
+            daemon)
+                shift
+                START_OPTION="console"
+                HEART_OPTION="daemon"
+                ;;
+            daemon_boot)
+                shift
+                START_OPTION="console_boot"
+                HEART_OPTION="daemon_boot"
+                ;;
+            start)
+                # TODO, add here the right annoying message asking users to consider
+                # instead using systemd or some such other init system
+                echo "'start' has been deprecated, replaced by 'daemon' and will be removed in the short-term, please consult rebar3.org on why you should be"\
+                     "using 'foreground' and an init tool such as 'systemd'"
+                shift
+                START_OPTION="console"
+                HEART_OPTION="daemon"
+                ;;
+        esac
+
+        ARGS="$(printf "'%s' " "$@")"
+
+        export HEART_COMMAND="\"${RELEASE_ROOT_DIR}/bin/${REL_NAME}\" \"${HEART_OPTION}\" ${ARGS}"
+
+        # shellcheck disable=SC2174
+        test -z "$PIPE_BASE_DIR" || mkdir -m 1777 -p "$PIPE_BASE_DIR"
+        mkdir -p "$PIPE_DIR"
+        if [ ! -w "$PIPE_DIR" ]
+        then
+            echo "failed to start, user '$USER' does not have write privileges on '$PIPE_DIR', either delete it or run node as a different user"
+            exit 1
+        fi
+
+        # Make sure log directory exists
+        mkdir -p "$RUNNER_LOG_DIR"
+
+        relx_run_hooks "$PRE_START_HOOKS"
+        "$BINDIR/run_erl" -daemon "$PIPE_DIR" "$RUNNER_LOG_DIR" \
+                          "exec \"$RELEASE_ROOT_DIR/bin/$REL_NAME\" \"$START_OPTION\" $ARGS --relx-disable-hooks"
+
+        # wait for node to be up before running hooks
+        while ! erl_rpc erlang is_alive > /dev/null 2>&1
+        do
+            sleep 1
+        done
+
+        relx_run_hooks "$POST_START_HOOKS"
+        ;;
+
+    stop)
+        relx_run_hooks "$PRE_STOP_HOOKS"
+        # Wait for the node to completely stop...
+        PID="$(relx_get_pid)"
+        if ! erl_rpc init stop > /dev/null 2>&1; then
+            exit 1
+        fi
+        while kill -s 0 "$PID" 2>/dev/null;
+        do
+            sleep 1
+        done
+
+        # wait for node to be down before running hooks
+        while erl_rpc erlang is_alive > /dev/null 2>&1
+        do
+            sleep 1
+        done
+
+        relx_run_hooks "$POST_STOP_HOOKS"
+        ;;
+
+    restart)
+        ## Restart the VM without exiting the process
+        if ! erl_rpc init restart > /dev/null; then
+            exit 1
+        fi
+        ;;
+
+    reboot)
+        ## Restart the VM completely (uses heart to restart it)
+        if ! erl_rpc init reboot > /dev/null; then
+            exit 1
+        fi
+        ;;
+
+    pid)
+        ## Get the VM's pid
+        if ! relx_get_pid; then
+            exit 1
+        fi
+        ;;
+
+    ping)
+        ## See if the VM is alive
+        ping_or_exit
+
+        echo "pong"
+        ;;
+
+    escript)
+        ## Run an escript under the node's environment
+        shift
+        if ! relx_escript "$@"; then
+            exit 1
+        fi
+        ;;
+
+    daemon_attach|attach)
+        case "$1" in
+            attach)
+                # TODO, add here the right annoying message asking users to consider
+                # instead using systemd or some such other init system
+                echo "'attach' has been deprecated, replaced by 'daemon_attach' and will be removed in the short-term, please consult rebar3.org on why you should be"\
+                     "using 'foreground' and an init tool such as 'systemd'"
+                ;;
+        esac
+        # Make sure a node IS running
+        ping_or_exit
+
+        if [ ! -w "$PIPE_DIR" ]
+        then
+            echo "failed to attach, user '$USER' does not have sufficient privileges on '$PIPE_DIR', please run node as a different user"
+            exit 1
+        fi
+
+        shift
+        exec "$BINDIR/to_erl" "$PIPE_DIR"
+        ;;
+
+    remote_console|remote|remsh)
+        # Make sure a node IS running
+        ping_or_exit
+
+        shift
+        relx_rem_sh
+        ;;
+
+    upgrade|downgrade|install|unpack|uninstall)
+        if [ -z "$2" ]; then
+            echo "Missing version argument"
+            echo "Usage: $REL_NAME $1 {version}"
+            exit 1
+        fi
+
+        COMMAND="$1"; shift
+
+        # Make sure a node IS running
+        ping_or_exit
+
+        relx_run_hooks "$PRE_INSTALL_UPGRADE_HOOKS"
+
+        exec "$BINDIR/escript" "$ROOTDIR/bin/install_upgrade.escript" \
+             "$COMMAND" "{'$REL_NAME', \"$NAME_TYPE\", '$NAME', '$COOKIE'}" "$@"
+
+        relx_run_hooks "$POST_INSTALL_UPGRADE_HOOKS"
+        ;;
+
+    versions)
+        # Make sure a node IS running
+        ping_or_exit
+
+        COMMAND="$1"; shift
+
+        exec "$BINDIR/escript" "$ROOTDIR/bin/install_upgrade.escript" \
+             "versions" "{'$REL_NAME', \"$NAME_TYPE\", '$NAME', '$COOKIE'}" "$@"
+        ;;
+
+    console|console_clean|console_boot|foreground)
+        FOREGROUNDOPTIONS=""
+        # .boot file typically just $REL_NAME (ie, the app name)
+        # however, for debugging, sometimes start_clean.boot is useful.
+        # For e.g. 'setup', one may even want to name another boot script.
+        case "$1" in
+            console)
+                if [ -f "$REL_DIR/$REL_NAME.boot" ]; then
+                  BOOTFILE="$REL_DIR/$REL_NAME"
+                else
+                  BOOTFILE="$REL_DIR/start"
+                fi
+                ;;
+            foreground)
+                # start up the release in the foreground for use by runit
+                # or other supervision services
+                if [ -f "$REL_DIR/$REL_NAME.boot" ]; then
+                  BOOTFILE="$REL_DIR/$REL_NAME"
+                else
+                  BOOTFILE="$REL_DIR/start"
+                fi
+                FOREGROUNDOPTIONS="-noinput +Bd"
+                ;;
+            console_clean)
+                # if not set by user use interactive mode for console_clean
+                CODE_LOADING_MODE="${CODE_LOADING_MODE:-interactive}"
+                BOOTFILE="$REL_DIR/start_clean"
+                ;;
+            console_boot)
+                shift
+                BOOTFILE="$1"
+                shift
+                ;;
+        esac
+
+        # if not set by user or console_clean use embedded
+        CODE_LOADING_MODE="${CODE_LOADING_MODE:-embedded}"
+
+        # Setup beam-required vars
+        EMU="beam"
+        PROGNAME="${0#*/}"
+
+        export EMU
+        export PROGNAME
+
+        # Dump environment info for logging purposes
+        # shellcheck disable=SC2086
+        echo "Exec: $BINDIR/erlexec" $FOREGROUNDOPTIONS \
+            -boot "$BOOTFILE" -mode "$CODE_LOADING_MODE" \
+            -boot_var SYSTEM_LIB_DIR "$SYSTEM_LIB_DIR" \
+            -config "$RELX_CONFIG_PATH" \
+            -args_file "$VMARGS_PATH" \
+            $EXTRA_DIST_ARGS -- "$@"
+        echo "Root: $ROOTDIR"
+
+        # Log the startup
+        echo "$RELEASE_ROOT_DIR"
+        logger -t "${REL_NAME}[$$]" "Starting up"
+
+        relx_run_hooks "$PRE_START_HOOKS"
+        # Start the VM
+        # The variabre FOREGROUNDOPTIONS must NOT be quoted.
+        # shellcheck disable=SC2086
+        exec "$BINDIR/erlexec" $FOREGROUNDOPTIONS \
+            -boot "$BOOTFILE" -mode "$CODE_LOADING_MODE" \
+            -boot_var SYSTEM_LIB_DIR "$SYSTEM_LIB_DIR" \
+            -config "$RELX_CONFIG_PATH" \
+            -args_file "$VMARGS_PATH" \
+            $EXTRA_DIST_ARGS -- "$@"
+        # exec will replace the current image and nothing else gets
+        # executed from this point on, this explains the absence
+        # of the pre start hook
+        ;;
+    rpc)
+        # Make sure a node IS running
+        ping_or_exit
+
+        shift
+
+        erl_rpc "$@"
+        ;;
+    eval)
+        # Make sure a node IS running
+        ping_or_exit
+
+        shift
+
+        erl_eval "$@"
+        ;;
+    status)
+        # Make sure a node IS running
+        ping_or_exit
+
+        # shellcheck disable=SC1090,SC2240
+        [ -n "${STATUS_HOOK}" ] && [ -f "$SCRIPT_DIR/$STATUS_HOOK" ] && . "$SCRIPT_DIR/$STATUS_HOOK" "$@"
+        ;;
+    help)
+        if [ -z "$2" ]; then
+            relx_usage
+            exit 1
+        fi
+
+        TOPIC="$2"; shift
+        relx_usage "$TOPIC"
+        ;;
+    *)
+        # check for extension
+        IS_EXTENSION=$(relx_is_extension "$1")
+        if [ "$IS_EXTENSION" = "1" ]; then
+            EXTENSION_SCRIPT=$(relx_get_extension_script "$1")
+            shift
+            relx_run_extension "$EXTENSION_SCRIPT" "$@"
+            # all extension scripts are expected to exit
+        else
+            relx_usage "$1"
+        fi
+        exit 1
+        ;;
+esac
+
+exit 0

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/priv/templates/extended_bin_windows Added

@@ -0,0 +1,373 @@
+@echo off
+:: This batch file handles managing an Erlang node as a Windows service.
+::
+:: Commands provided:
+::
+:: * install - install the release as a Windows service
+:: * start - start the service and Erlang node
+:: * stop - stop the service and Erlang node
+:: * restart - run the stop command and start command
+:: * uninstall - uninstall the service and kill a running node
+:: * ping - check if the node is running
+:: * console - start the Erlang release in a `werl` Windows shell
+:: * attach - connect to a running node and open an interactive console
+:: * remote_console - alias for attach
+:: * list - display a listing of installed Erlang services
+:: * usage - display available commands
+
+:: Set variables that describe the release
+set rel_name={{ rel_name }}
+set rel_vsn={{ rel_vsn }}
+set erts_vsn={{ erts_vsn }}
+set erl_opts={{ erl_opts }}
+
+:: export these to match mix release environment variables
+set RELEASE_NAME={{ rel_name }}
+set RELEASE_VSN={{ rel_vsn }}
+set RELEASE_PROG=%~nx0
+
+:: Make sure `findstr` is accessible
+set PATH=%PATH%;%SystemRoot%\System32
+
+:: Discover the release root directory from the directory
+:: of this script
+set script_dir=%~dp0
+for %%A in ("%script_dir%\..") do (
+  set release_root_dir=%%~fA
+)
+set "rel_dir=%release_root_dir%\releases\%rel_vsn%"
+
+call :find_erts_dir
+call :find_sys_config
+call :set_boot_script_var
+
+set service_name=%rel_name%_%rel_vsn%
+set bindir=%erts_dir%\bin
+set vm_args=%rel_dir%\vm.args
+set progname=erl.exe
+set clean_boot_script=%rel_dir%\start_clean
+set erlsrv="%bindir%\erlsrv.exe"
+set epmd="%bindir%\epmd.exe"
+set escript="%bindir%\escript.exe"
+set werl="%bindir%\werl.exe"
+set erl="%bindir%\erl.exe"
+set nodetool="%release_root_dir%\bin\nodetool"
+set "extensions0={{ extensions }}"
+set "extensions1=%extensions0:|= %"
+set "extensions=%extensions1: undefined=%"
+
+:: Extract node type and name from vm.args
+for /f "usebackq tokens=1-2" %%I in (`findstr /b "\-name \-sname" "%vm_args%"`) do (
+  set node_type=%%I
+  set node_name=%%J
+)
+
+for /f "delims=@ tokens=1-2" %%I in ("%node_name%") do (
+    set node_name=%%I
+    set hostname=%%J
+)
+
+:: if no hostname is set, attempt to pick one from the env
+if "" == "%hostname%" (
+    if "-sname" == "%node_type%" (
+        if not "" == "%COMPUTERNAME%" (
+            set "hostname=%COMPUTERNAME%"
+        )
+    ) else (
+        if not "" == "%COMPUTERNAME%" (
+            if not "" == "%USERDNSDOMAIN%" (
+                set "hostname=%COMPUTERNAME%.%USERDNSDOMAIN%"
+            )
+        )
+    )
+)
+:: Add @ to hostname if not empty so that we can just concatenate values safely
+if not "" == "%hostname%" (
+    set "hostname=@%hostname%"
+)
+
+:: Extract the target cookie
+:: Do this before relx_get_nodename so we can use it and not create a ~/.erlang.cookie
+for /f "usebackq tokens=1-2" %%I in (`findstr /b \-setcookie "%vm_args%"`) do (
+  set "cookie=%%J"
+)
+set "default_cookie_file=%USERPROFILE%\.erlang.cookie"
+if "%cookie%" == "" (
+        if exist "%default_cookie_file%" (
+                set /p cookie=<%default_cookie_file%
+        ) else (
+                echo No cookie is set or found. This limits the scripts functionality, installing, upgrading, rpc and getting a list of versions will not work.
+        )
+)
+
+:: Write the erl.ini file to set up paths relative to this script
+call :write_ini
+
+:: Collect any additional VM args into erl_opts
+setlocal EnableDelayedExpansion
+for /f "usebackq tokens=1,*" %%I in (`findstr /r "^[^#]" "%vm_args%"`) do (
+  if not "%%I" == "-name" (
+    if not "%%I" == "-sname" (
+      if not "%%I" == "-setcookie" (
+        set erl_opts=!erl_opts! %%I %%J
+      )
+    )
+  )
+)
+endlocal && set erl_opts=%erl_opts%
+
+:: If a start.boot file is not present, copy one from the named .boot file
+if not exist "%rel_dir%\start.boot" (
+  copy "%rel_dir%\%rel_name%.boot" "%rel_dir%\start.boot" >nul
+)
+
+if "%1"=="help" goto usage
+if "%1"=="install" goto install
+if "%1"=="uninstall" goto uninstall
+if "%1"=="start" goto start
+if "%1"=="stop" goto stop
+if "%1"=="restart" call :stop && goto start
+if "%1"=="upgrade" goto relup
+if "%1"=="downgrade" goto relup
+if "%1"=="console" goto console
+if "%1"=="ping" goto ping
+if "%1"=="list" goto list
+if "%1"=="attach" goto attach
+if "%1"=="remote_console" goto attach
+if "%1"=="" goto usage
+
+call :is_extension "%1"
+if "%ERRORLEVEL%"=="0" goto run_extension
+
+echo Unknown command: "%1"
+
+goto :eof
+
+:: Find the ERTS dir
+:find_erts_dir
+set "possible_erts_dir=%release_root_dir%\erts-%erts_vsn%"
+if exist "%possible_erts_dir%" (
+  call :set_erts_dir_from_default
+) else (
+  call :set_erts_dir_from_erl
+)
+goto :eof
+
+:: Set the ERTS dir from the passed in erts_vsn
+:set_erts_dir_from_default
+set "erts_dir=%possible_erts_dir%"
+set "rootdir=%release_root_dir%"
+goto :eof
+
+:: Set the ERTS dir from erl
+:set_erts_dir_from_erl
+for /f "delims=" %%i in ('where erl') do (
+  set "erl=%%i"
+)
+for /f "delims=" %%i in ('call "%erl%" -boot no_dot_erlang -boot_var RELEASE_DIR "%release_root_dir%" -noshell -eval "io:format(\"~s\", [filename:nativename(code:root_dir())])." -s init stop') do (
+  set "erl_root=%%i"
+)
+set "erts_dir=%erl_root%\erts-%erts_vsn%"
+set "rootdir=%erl_root%"
+goto :eof
+
+:: Find the sys.config file
+:find_sys_config
+set "possible_sys=%rel_dir%\sys.config"
+if exist "%possible_sys%" (
+  set sys_config=-config "%possible_sys%"
+) else (
+  if exist "%possible_sys%.orig" (
+    ren "%possible_sys%.orig" sys.config
+    set sys_config=-config "%possible_sys%"
+  )
+)
+goto :eof
+
+:: Find the vm.args file
+:find_vm_args
+if not exist "%vm_args%" (
+  if exist "%vm_args%.orig" (
+    ren "%vm_args%.orig" vm.args
+  )
+)
+goto :eof
+
+:: set boot_script variable
+:set_boot_script_var
+if exist "%rel_dir%\%rel_name%.boot" (
+  set "boot_script=%rel_dir%\%rel_name%"
+) else (
+  set "boot_script=%rel_dir%\start"
+)
+goto :eof
+
+:: Write the erl.ini file
+:write_ini
+set erl_ini=%erts_dir%\bin\erl.ini
+set converted_bindir=%bindir:\=\\%
+set converted_rootdir=%rootdir:\=\\%
+echo [erlang] > "%erl_ini%"
+echo Bindir=%converted_bindir% >> "%erl_ini%"
+echo Progname=%progname% >> "%erl_ini%"
+echo Rootdir=%converted_rootdir% >> "%erl_ini%"
+goto :eof
+
+:: Display usage information
+:usage
+if "%2"=="install" (
+  echo "Usage: %rel_name% install [VERSION]"
+  echo "Installs a release package VERSION, it assumes that this"
+  echo "release package tarball has already been deployed at one"
+  echo "of the following locations:"
+  echo "      releases/<relname>-<version>.tar.gz"
+  echo "      releases/<version>/<relname>-<version>.tar.gz"
+  echo "      releases/<version>/<relname>.tar.gz"
+  echo ""
+  echo "     --no-permanent   Install release package VERSION but"
+  echo "                      don't make it permanent"
+  goto :eof
+)
+if "%2"=="uninstall" (
+  echo "Usage: %rel_name% uninstall [VERSION]"
+  echo "Uninstalls a release VERSION, it will only accept"
+  echo "versions that are not currently in use"
+  goto :eof
+)
+if "%2"=="upgrade" (
+  echo "Usage: %rel_name% upgrade [VERSION]"
+  echo "Upgrades the currently running release to VERSION, it assumes"
+  echo "that a release package tarball has already been deployed at one"
+  echo "of the following locations:"
+  echo "      releases/<relname>-<version>.tar.gz"
+  echo "      releases/<version>/<relname>-<version>.tar.gz"
+  echo "      releases/<version>/<relname>.tar.gz"
+  echo ""
+  echo "     --no-permanent   Install release package VERSION but"
+  echo "                      don't make it permanent"
+  goto :eof
+)
+if "%2"=="downgrade" (
+  echo "Usage: %rel_name% downgrade [VERSION]"
+  echo "Downgrades the currently running release to VERSION, it assumes"
+  echo "that a release package tarball has already been deployed at one"
+  echo "of the following locations:"
+  echo "      releases/<relname>-<version>.tar.gz"
+  echo "      releases/<version>/<relname>-<version>.tar.gz"
+  echo "      releases/<version>/<relname>.tar.gz"
+  echo ""
+  echo "     --no-permanent   Install release package VERSION but"
+  echo "                      don't make it permanent"
+  goto :eof
+)
+call :is_extension "%2"
+if "%ERRORLEVEL%"=="0" (
+  if exist "%script_dir%\extensions\%2.cmd" (
+    call "%script_dir%\extensions\%2.cmd" help
+    goto :eof
+  )
+)
+set commands=install uninstall start stop restart upgrade downgrade console ping list attach remote_console
+if not "%extensions%"=="" (
+  set "commands=%commands% %extensions%"
+)
+echo Usage: %~n0 ^(%commands: =^|%^)
+goto :eof
+
+:: Install the release as a Windows service
+:: or install the specified version passed as argument
+:install
+set args=%erl_opts% -setcookie %cookie% ++ -rootdir \"%rootdir%\"
+set start_erl=%erts_dir%\bin\start_erl.exe
+set description=Erlang node %node_name%%hostname% in %rootdir%
+if "" == "%2" (
+  :: Install the service
+  %erlsrv% add %service_name% %node_type% "%node_name%%hostname%" -c "%description%" -w "%rootdir%" -m "%start_erl%" -args "%args%" -stopaction "init:stop()."
+) else (
+  :: relup and reldown
+  goto relup
+)
+goto :eof
+
+:: Uninstall the Windows service
+:uninstall
+%erlsrv% remove %service_name%
+%epmd% -kill
+goto :eof
+
+:: Start the Windows service
+:start
+%erlsrv% start %service_name%
+goto :eof
+
+:: Stop the Windows service
+:stop
+%erlsrv% stop %service_name%
+goto :eof
+
+:: Relup and reldown
+:relup
+if "" == "%2" (
+  echo Missing version argument
+  echo Usage: %rel_name% %1 {version}
+  set ERRORLEVEL=1
+  exit /b %ERRORLEVEL%
+)
+%escript% "%rootdir%/bin/install_upgrade.escript" "install" "{'%rel_name%', \"%node_type%\", '%node_name%%hostname%', '%cookie%'}" "%2" "%3"
+goto :eof
+
+:: Start a console
+:console
+set boot=-boot "%boot_script%" -boot_var RELEASE_DIR "%release_root_dir%"
+start "%rel_name% console" %werl% %boot% %sys_config%  ^
+       -args_file "%vm_args%"
+goto :eof
+
+:: Ping the running node
+:ping
+%escript% %nodetool% ping %node_type% %node_name%%hostname% -setcookie %cookie%
+goto :eof
+
+:: List installed Erlang services
+:list
+%erlsrv% list %service_name%
+goto :eof
+
+:: Attach to a running node
+:attach
+set boot=-boot "%clean_boot_script%" -boot_var RELEASE_DIR "%release_root_dir%"
+start "%node_name% attach" %werl% %boot% ^
+       -remsh %node_name%%hostname% %node_type% console_%node_name%_%random% -setcookie %cookie%
+goto :eof
+
+:: Run extension script
+:run_extension
+if exist "%script_dir%\extensions\%1.cmd" (
+  set _extension_params=%*
+  call set _extension_params=%%_extension_params:*%1=%%
+  call "%script_dir%\extensions\%1.cmd" %%_extension_params%%
+)
+
+goto :eof
+
+:: Local Functions
+
+:is_extension
+
+set "ext=%~1"
+
+:: Check for entries in the list, not at the ends
+call set "ext_test_1=x%%extensions: %ext% =%%"
+
+:: Check for entry at the start of the list
+call set "ext_test_2=x%%extensions:%ext% =%%"
+
+:: Check for entry at the end of the list
+call set "ext_test_3=x%%extensions: %ext%=%%"
+
+if not "%ext_test_1%"=="x%extensions%" exit /b 0
+if not "%ext_test_2%"=="x%extensions%" exit /b 0
+if not "%ext_test_3%"=="x%extensions%" exit /b 0
+
+exit /b 1
+

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/priv/templates/extended_bin_windows_ps Added

@@ -0,0 +1,467 @@
+#! /usr/bin/pwsh
+# This script handles managing an Erlang node as a Windows service.
+#
+# Commands provided:
+#
+# * install - install the release as a Windows service
+# * start - start the service and Erlang node
+# * stop - stop the service and Erlang node
+# * restart - run the stop command and start command
+# * uninstall - uninstall the service and kill a running node
+# * ping - check if the node is running
+# * console - start the Erlang release in a `werl` Windows shell
+# * attach - connect to a running node and open an interactive console
+# * remote_console - alias for attach
+# * list - display a listing of installed Erlang services
+# * usage - display available commands
+param (
+    [string] $Command
+)
+
+# Terminate on error
+$ErrorActionPreference = "Stop"
+
+# Set variables that describe the release
+$rel_name = '{{ rel_name }}'
+$rel_vsn = '{{ rel_vsn }}'
+$erts_vsn = '{{ erts_vsn }}'
+$erl_opts = '{{ erl_opts }}'
+
+# export these to match mix release environment variables
+$RELEASE_NAME = '{{ rel_name }}'
+$RELEASE_VERSION = '{{ rel_vsn }}'
+$RELEASE_PROG = $MyInvocation.MyCommand.Name
+
+# Ensure we have PSScriptRoot
+if (!(Test-Path variable:global:PSScriptRoot)) {
+    # Support powershell 2.0
+    $PSScriptRoot = Split-Path -Parent -Path $MyInvocation.MyCommand.Definition
+}
+
+# Ensure we have PSCommandPath
+if (!(Test-Path variable:global:PSCommandPath)) {
+    # Support powershell 2.0
+    $PSCommandPath = $MyInvocation.PSCommandPath
+}
+
+$PSCriptName = Split-Path -Leaf -Path $PSCommandPath
+
+# Import psutil helper functions
+. $PSScriptRoot\psutil.ps1
+
+# Set the root release directory based on the location of this batch file
+$rootdir = Split-Path -Parent -Path $PSScriptRoot
+$rel_dir = "$rootdir\releases\$rel_vsn"
+
+$erts_root, $erts_dir = Find-ERTS -RelRoot $rootdir -Vsn $erts_vsn
+$sys_config = Find-FormatConfig -RelDir $rel_dir -File 'sys.config'
+$vm_args = Find-FormatConfig -RelDir $rel_dir -File 'vm.args'
+$boot_script = Find-BootScript -RelDir $rel_dir -RelName $rel_name
+
+$service_name = "${rel_name}_${rel_vsn}"
+$nodetool = "$rootdir\bin\nodetool"
+
+$bindir = "$erts_dir\bin"
+$werl = "$bindir\werl.exe"
+$erl = "$bindir\erl.exe"
+$erlsrv = "$bindir\erlsrv.exe"
+$epmd = "$bindir\epmd.exe"
+$escript = "$bindir\escript.exe"
+
+# Added in OTP-23
+$erl_call = "$bindir\erl_call.exe"
+
+# if RELX_RPC_TIMEOUT is set then use that
+# otherwise check for NODETOOL_TIMEOUT and convert to seconds
+if (Test-Path env:RELX_RPC_TIMEOUT) {
+    $relx_rpc_timeout = $env:RELX_RPC_TIMEOUT
+}
+elseif (Test-Path env:NODETOOL_TIMEOUT) {
+    # will exit the script if NODETOOL_TIMEOUT isn't a number
+    $relx_rpc_timeout = $env:NODETOOL_TIMEOUT / 1000
+}
+else {
+    $relx_rpc_timeout = 60
+}
+
+$extensions = @("{{ extensions }}" -split '[|]' | Where-Object { $_ -ne 'undefined' })
+
+# Run extension script
+function RunExtension() {
+    param(
+        [string]$Name
+    )
+    # Manifest xxx_extension as local variable
+    "{{ extension_declarations }}" -split ";" | ForEach-Object { Invoke-Expression "`$$_" }
+    # Manifest value of xxx_extension as $script
+    $script = Invoke-Expression "`$${Name}_extension"
+    # Execute
+    & "$PSScriptRoot\$script" @args
+}
+
+# Extract node type and name from vm.args
+$node_type, $node_name, $hostname = Get-NodeAndHost $vm_args
+
+# Extract the target cookie
+# Do this before relx_get_nodename so we can use it and not create a ~/.erlang.cookie
+$cookie = Get-Cookie $vm_args
+
+# Collect additional (allowed) VM args into erl_opts for erlsrv/start_erl
+$opts = Get-Content $vm_args `
+    | Select-String '^(#|-name|-sname|-setcookie|-noinput|-noshell)' -NotMatch `
+    | ForEach-Object { $_.line } `
+    | Where-Object { $_.length -gt 0 }
+$erl_opts += "$opts"
+
+# If a start.boot file is not present, copy one from the named .boot file
+if (!(Test-Path "$rel_dir\start.boot")) {
+    Copy-Item "$rel_dir\$rel_name.boot" "$rel_dir\start.boot" | Out-Null
+}
+
+# List of supported commands, help, etc
+$commands = @{
+    'help' = @{
+        'ShortHelp' = 'Show help';
+        'LongHelp' = 'Shows help for <command>';
+        'Usage' = '<command>';
+        'Invoke' = 'Usage';
+        'PassArgs' = $true
+`    };
+    'install' = @{
+        'ShortHelp' = 'Install the service';
+        'LongHelp' = 'Installs release <version> as a windows service';
+        'Usage' = '<version>';
+        'Invoke' = 'Install';
+        'PassArgs' = $true
+`    };
+    'uninstall' = @{
+        'ShortHelp' = 'Uninstall the service';
+        'LongHelp' = 'Uninstalls release <version> as a windows service';
+        'Usage' = '<version>';
+        'Invoke' = 'Uninstall';
+        'PassArgs' = $true
+    };
+    'start' = @{
+        'ShortHelp' = 'Start the service';
+        'LongHelp' = 'Starts the installed windows service';
+        'Usage' = '';
+        'Invoke' = 'Start-SVC';
+        'Aliases' = @('daemon')
+    };
+    'stop' = @{
+        'ShortHelp' = 'Stop the service';
+        'LongHelp' = 'Stops the installed windows service';
+        'Usage' = '';
+        'Invoke' = 'Stop-SVC'
+    };
+    'restart' = @{
+        'ShortHelp' = 'Restart the service';
+        'LongHelp' = 'Restarts the installed windows service';
+        'Usage' = '';
+        'Invoke' = @('Stop-SVC','Start-SVC')
+    };
+    'upgrade' = @{
+        'ShortHelp' = 'Upgrade the running service';
+        'LongHelp' = 'Upgrades the service to release <version>';
+        'Usage' = '<version> [--no-permanent]';
+        'Invoke' = 'Relup';
+        'PassArgs' = $true
+    };
+    'downgrade' = @{
+        'ShortHelp' = 'Downgrade the running service';
+        'LongHelp' = 'Downgrades the service to release <version>';
+        'Usage' = '<version>';
+        'Invoke' = 'Relup';
+        'PassArgs' = $true
+    };
+    'console' = @{
+        'ShortHelp' = 'Start the release with an interactive shell';
+        'LongHelp' = 'Starts release VERSION with an interactive shell';
+        'Usage' = '';
+        'Invoke' = 'Console'
+    };
+    'foreground' = @{
+        'ShortHelp' = 'Start the release with a non-interactive shell';
+        'LongHelp' = 'Starts the release with a non-interactive shell';
+        'Usage' = '';
+        'Invoke' = 'Foreground'
+    };
+    'ping' = @{
+        'ShortHelp' = 'Print pong if the node is alive';
+        'LongHelp' = 'Checks if the service (or console) is running';
+        'Usage' = '';
+        'Invoke' = 'Ping'
+    };
+    'list' = @{
+        'ShortHelp' = 'List installed Erlang services';
+        'LongHelp' = 'Lists all Erlang services installed on this machine';
+        'Usage' = '';
+        'Invoke' = 'List'
+    };
+    'attach' = @{
+        'ShortHelp' = 'Connect remote shell to running node';
+        'LongHelp' = 'Connects to running service or console shell';
+        'Usage' = '';
+        'Invoke' = 'Attach';
+        'Aliases' = @('remote_console', 'remote', 'remsh', 'daemon_attach')
+    };
+    'rpc' = @{
+        'ShortHelp' = 'Applies the specified function and returns the result';
+        'LongHelp' = "Applies the specified function and returns the result.`n" `
+                   + "Mod must be specified. However, start and [] are assumed`n" `
+                   + "for unspecified Fun and Args, respectively. Args is to`n" `
+                   + "be in the same format as for erlang:apply/3 in ERTS."
+        'Usage' = '<mod> [<func> [<args>]]';
+        'Invoke' = @('PingOrExit', 'Rpc');
+        'PassArgs' = $true
+    };
+    'eval' = @{
+        'ShortHelp' = 'Executes a sequence of Erlang expressions';
+        'LongHelp' = 'Executes a sequence of Erlang expressions, separated by`n' `
+                   + 'comma (,) and ended with a full stop (.)'
+        'Usage' = '[<exprs>]';
+        'Invoke' = @('PingOrExit', 'Eval');
+        'PassArgs' = $true
+    };
+    'versions' = @{
+        'ShortHelp' = 'Print versions of the release available';
+        'LongHelp' = 'Print versions of the release available'
+        'Usage' = '';
+        'Invoke' = 'Versions'
+    }
+}
+
+# Build easy aliases
+$aliases = @{}
+$commands.GetEnumerator() | 
+    Where-Object { $_.Value.ContainsKey('Aliases') } | 
+    ForEach-Object { $target = $_.Key; $_.Value.Aliases | Foreach-Object { $aliases += @{ $_ = $target } }; }
+
+# Output usage
+function Usage() {
+    param(
+        [string]$Command
+    )
+    switch ($Command) {
+        {$commands.ContainsKey($Command)} {
+            $cmd = $commands.item($_)
+            "Usage: $PSCriptName $Command $($cmd.Usage)"
+            ""
+            "$($cmd.LongHelp)"
+            ""
+        }
+        {$aliases.ContainsKey($Command)} {
+            $cmd = $commands.item($aliases.item($_))
+            "Usage: $PSCriptName $Command $($cmd.Usage)"
+            ""
+            "$($cmd.LongHelp)"
+            ""
+        }
+        {$extensions -contains $_} { RunExtension $_ help }
+        Default {
+            "Usage: $($MyInvocation.MyCommand.Name) <command> <args>"
+            "Commands:"
+            $commands.keys | Sort-Object | ForEach-Object {
+                @{"$_" = $commands.item($_).ShortHelp }
+            } | Format-Table -HideTableHeaders
+        }
+    }
+}
+
+# Install the service
+function Install() {
+    param(
+        [string]$Version
+    )
+    if (![string]::IsNullOrWhiteSpace($Version)) {
+        # relup and reldown
+        Relup $Version
+        return
+    }
+    # Install the service
+    $args = "$erl_opts -setcookie $cookie ++ -rootdir `"`"$erts_root`"`" -reldir `"`"$rootdir\releases`"`""
+    $start_erl = "$erts_dir\bin\start_erl.exe"
+    $description = "Erlang node ${node_name}${hostname} in $rootdir"
+    $params = @('add', $service_name, $node_type, "${node_name}${hostname}", `
+        '-c', $description, `
+        '-w', $rootdir, `
+        '-m', $start_erl, `
+        #'-d', 'reuse', ` # Add this to debug startup
+        '-e', "ERL_LIBS=$rootdir\lib", `
+        '-stopaction', 'init:stop().', `
+        '-args', $args)
+    & $erlsrv $params
+}
+
+# Uninstall the Windows service
+function Uninstall() {
+    param(
+        [string]$Version
+    )
+    if (![string]::IsNullOrWhiteSpace($Version)) {
+        # relup and reldown
+        Relup $Version
+        return
+    }
+    # Uninstall the Windows service
+    & $erlsrv remove $service_name
+    & $epmd -kill
+}
+
+# Start the Windows service
+function Start-SVC() {
+    & $erlsrv start $service_name
+}
+
+# Stop the Windows service
+function Stop-SVC() {
+    & $erlsrv stop $service_name
+}
+
+# Relup and reldown
+function Relup() {
+    param(
+        [string]$Version
+    )
+    PingOrExit
+    $params = @("$rootdir/bin/install_upgrade.escript", 'install', "{'$rel_name', `"$node_type`", '${node_name}${hostname}', '$cookie'}", $Version)
+    & $escript $params @args
+}
+
+# Start a console
+function Console() {
+    # Set the ERL_LIBS environment variable
+    $env:ERL_LIBS = "$rootdir\lib"
+
+    # Start the release in an `erl` shell
+    $params = @($erl_opts, '-boot', $boot_script)
+    if (![string]::IsNullOrEmpty($sys_config)) { $params += '-config', $sys_config }
+    if (![string]::IsNullOrEmpty($vm_args))    { $params += '-args_file', $vm_args }
+    & $werl $params
+}
+
+# Start a non-interactive console
+function Foreground() {
+    # Set the ERL_LIBS environment variable
+    $env:ERL_LIBS = "$rootdir\lib"
+
+    # Start the release in an `erl` shell
+    $params = @($erl_opts, '-boot', $boot_script, '-noinput', '+Bd')
+    if (![string]::IsNullOrEmpty($sys_config)) { $params += '-config', $sys_config }
+    if (![string]::IsNullOrEmpty($vm_args))    { $params += '-args_file', $vm_args }
+    & $erl $params
+}
+
+# Execute erl_call.exe
+function ErlCall()
+{
+    param(
+        [string]$Type
+    )
+    $params = @($node_type, $node_name, '-R', '-c', $cookie, '-timeout', $relx_rpc_timeout)
+    switch($Type) {
+        '-a' { & $erl_call $params '-a' "`"$args`"" }
+        '-e' { "$args" | & $erl_call $params '-e' }
+        Default {
+            Write-Error "Unsupported erlcall ($_)"
+        }
+    }
+}
+
+# Execute escript.exe nodetool
+function Nodetool()
+{
+    $params = @($node_type, $node_name, '-setcookie', $cookie)
+    & $escript $nodetool $params @args
+}
+
+# Execute an RPC call
+function Rpc()
+{
+    if (Test-Path $erl_call) {
+        ErlCall '-a' @args
+    }
+    else {
+        Nodetool rpc @args
+    }
+}
+
+function Eval()
+{
+    if (Test-Path $erl_call) {
+        ErlCall '-e' @args
+    }
+    else {
+        Nodetool eval @args
+    }
+}
+
+# Ping node and error (exit) if not running
+function PingOrExit() {
+    $result = (Rpc erlang is_alive)
+    if ($result -ne "true") {
+        Write-Error "Node is not running! ($result)"
+    }
+}
+
+# Ping the running node
+function Ping() {
+    PingOrExit
+    "pong"
+}
+
+# List installed Erlang services
+function List() {
+    & $erlsrv 'list' $service_name
+}
+
+# Attach to a running node
+function Attach() {
+    PingOrExit
+    $params = @('-boot', "$rel_dir\start_clean", `
+        '-remsh', "${node_name}${hostname}", `
+        $node_type, "console_${node_name}_$(Get-Random -maximum 99999)", `
+        '-setcookie', $cookie)
+    & $werl $params
+}
+
+# Print versions of the release available
+function Versions()
+{
+    PingOrExit
+    $params = @("$rootdir\bin\install_upgrade.escript", 'versions', "{'$rel_name', `"$node_type`", '${node_name}${hostname}', '$cookie'}")
+    & $escript $params @args
+}
+
+
+# Run a command
+function RunCommand()
+{
+    param(
+        [string]$Name
+    )
+    $cmd = $commands.item($Name)
+    if ($cmd.PassArgs) { $pass_args = $args }
+    $cmd.Invoke | ForEach-Object {
+        & $_ @pass_args
+    }
+}
+
+# Finally, here is where we run the command
+switch ($Command)
+{
+    "" { Usage }
+    {$commands.ContainsKey($_)} {
+        RunCommand $_ @args
+    }
+    {$aliases.ContainsKey($Command)} {
+        RunCommand $aliases.item($_) @args
+    }
+    {$extensions -contains $_} {
+        RunExtension $_ @args
+    }
+    Default {
+        Write-Warning "Unknown command: `"$_`""
+        Usage
+    }
+}

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/priv/templates/install_upgrade_escript Added

@@ -0,0 +1,337 @@
+#!/usr/bin/env escript
+%%! -noinput
+%% -*- mode: erlang;erlang-indent-level: 4;indent-tabs-mode: nil -*-
+%% ex: ft=erlang ts=4 sw=4 et
+
+-define(TIMEOUT, 300000).
+-define(INFO(Fmt,Args), io:format(Fmt,Args)).
+
+main([Command0, DistInfoStr | CommandArgs]) ->
+    %% convert the distribution info arguments string to an erlang term
+    {ok, Tokens, _} = erl_scan:string(DistInfoStr ++ "."),
+    {ok, DistInfo} = erl_parse:parse_term(Tokens),
+    %% convert arguments into a proplist
+    Opts = parse_arguments(CommandArgs),
+    %% invoke the command passed as argument
+    F = case Command0 of
+        "install" -> fun(A, B) -> install(A, B) end;
+        "unpack" -> fun(A, B) -> unpack(A, B) end;
+        "upgrade" -> fun(A, B) -> upgrade(A, B) end;
+        "downgrade" -> fun(A, B) -> downgrade(A, B) end;
+        "uninstall" -> fun(A, B) -> uninstall(A, B) end;
+        "versions" -> fun(A, B) -> versions(A, B) end
+    end,
+    F(DistInfo, Opts);
+main(Args) ->
+    ?INFO("unknown args: ~p\n", [Args]),
+    erlang:halt(1).
+
+unpack({RelName, NameTypeArg, NodeName, Cookie}, Opts) ->
+    TargetNode = start_distribution(NodeName, NameTypeArg, Cookie),
+    Version = proplists:get_value(version, Opts),
+    case unpack_release(RelName, TargetNode, Version) of
+        {ok, Vsn} ->
+            ?INFO("Unpacked successfully: ~p~n", [Vsn]);
+        old ->
+            %% no need to unpack, has been installed previously
+            ?INFO("Release ~s is marked old.~n",[Version]);
+        unpacked ->
+            ?INFO("Release ~s is already unpacked.~n",[Version]);
+        current ->
+            ?INFO("Release ~s is already installed and current.~n",[Version]);
+        permanent ->
+            ?INFO("Release ~s is already installed and set permanent.~n",[Version]);
+        {error, Reason} ->
+            ?INFO("Unpack failed: ~p~n",[Reason]),
+            print_existing_versions(TargetNode),
+            erlang:halt(2)
+    end;
+unpack(_, Args) ->
+    ?INFO("unpack: unknown args ~p\n", [Args]).
+
+install({RelName, NameTypeArg, NodeName, Cookie}, Opts) ->
+    TargetNode = start_distribution(NodeName, NameTypeArg, Cookie),
+    Version = proplists:get_value(version, Opts),
+    case unpack_release(RelName, TargetNode, Version) of
+        {ok, Vsn} ->
+            ?INFO("Unpacked successfully: ~p~n", [Vsn]),
+            check_and_install(TargetNode, Vsn),
+            maybe_permafy(TargetNode, RelName, Vsn, Opts);
+        old ->
+            %% no need to unpack, has been installed previously
+            ?INFO("Release ~s is marked old, switching to it.~n",[Version]),
+            check_and_install(TargetNode, Version),
+            maybe_permafy(TargetNode, RelName, Version, Opts);
+        unpacked ->
+            ?INFO("Release ~s is already unpacked, now installing.~n",[Version]),
+            check_and_install(TargetNode, Version),
+            maybe_permafy(TargetNode, RelName, Version, Opts);
+        current ->
+            case proplists:get_value(permanent, Opts, true) of
+                true ->
+                    ?INFO("Release ~s is already installed and current, making permanent.~n",
+                        [Version]),
+                    permafy(TargetNode, RelName, Version);
+                false ->
+                    ?INFO("Release ~s is already installed and current.~n",
+                        [Version])
+            end;
+        permanent ->
+            %% this release is marked permanent, however it might not the
+            %% one currently running
+            case current_release_version(TargetNode) of
+                Version ->
+                    ?INFO("Release ~s is already installed, running and set permanent.~n",
+                        [Version]);
+                CurrentVersion ->
+                    ?INFO("Release ~s is the currently running version.~n",
+                        [CurrentVersion]),
+                    check_and_install(TargetNode, Version),
+                    maybe_permafy(TargetNode, RelName, Version, Opts)
+            end;
+        {error, Reason} ->
+            ?INFO("Unpack failed: ~p~n",[Reason]),
+            print_existing_versions(TargetNode),
+            erlang:halt(2)
+    end;
+install(_, Args) ->
+    ?INFO("install: unknown args ~p\n", [Args]).
+
+upgrade(DistInfo, Args) ->
+    install(DistInfo, Args).
+
+downgrade(DistInfo, Args) ->
+    install(DistInfo, Args).
+
+uninstall({_RelName, NameTypeArg, NodeName, Cookie}, Opts) ->
+    TargetNode = start_distribution(NodeName, NameTypeArg, Cookie),
+    WhichReleases = which_releases(TargetNode),
+    Version = proplists:get_value(version, Opts),
+    case proplists:get_value(Version, WhichReleases) of
+        undefined ->
+            ?INFO("Release ~s is already uninstalled.~n", [Version]);
+        old ->
+            ?INFO("Release ~s is marked old, uninstalling it.~n", [Version]),
+            remove_release(TargetNode, Version);
+        unpacked ->
+            ?INFO("Release ~s is marked unpacked, uninstalling it~n",
+                [Version]),
+            remove_release(TargetNode, Version);
+        current ->
+            ?INFO("Uninstall failed: Release ~s is marked current.~n", [Version]),
+            erlang:halt(2);
+        permanent ->
+            ?INFO("Uninstall failed: Release ~s is running.~n", [Version]),
+            erlang:halt(2)
+    end;
+uninstall(_, Args) ->
+    ?INFO("uninstall: unknown args ~p\n", [Args]).
+
+versions({_RelName, NameTypeArg, NodeName, Cookie}, []) ->
+    TargetNode = start_distribution(NodeName, NameTypeArg, Cookie),
+    print_existing_versions(TargetNode).
+
+parse_arguments(Args) ->
+    parse_arguments(Args, []).
+
+parse_arguments([], Acc) -> Acc;
+parse_arguments(["--no-permanent"|Rest], Acc) ->
+    parse_arguments(Rest, [{permanent, false}] ++ Acc);
+parse_arguments([VersionStr|Rest], Acc) ->
+    Version = parse_version(VersionStr),
+    parse_arguments(Rest, [{version, Version}] ++ Acc).
+
+unpack_release(RelName, TargetNode, Version) ->
+    WhichReleases = which_releases(TargetNode),
+    case proplists:get_value(Version, WhichReleases) of
+        undefined ->
+            %% not installed, so unpack tarball:
+            %% look for a release package with the intended version in the following order:
+            %%      releases/<relname>-<version>.tar.gz
+            %%      releases/<version>/<relname>-<version>.tar.gz
+            %%      releases/<version>/<relname>.tar.gz
+            case find_and_link_release_package(Version, RelName) of
+                {_, undefined} ->
+                    {error, release_package_not_found};
+                {ReleasePackage, ReleasePackageLink} ->
+                    ?INFO("Release ~s not found, attempting to unpack ~s~n",
+                        [Version, ReleasePackage]),
+                    case rpc:call(TargetNode, release_handler, unpack_release,
+                                  [ReleasePackageLink], ?TIMEOUT) of
+                        {ok, Vsn} -> {ok, Vsn};
+                        {error, _} = Error -> Error
+                    end
+            end;
+        Other -> Other
+    end.
+
+%% 1. look for a release package tarball with the provided version in the following order:
+%%      releases/<relname>-<version>.tar.gz
+%%      releases/<version>/<relname>-<version>.tar.gz
+%%      releases/<version>/<relname>.tar.gz
+%% 2. create a symlink from a fixed location (ie. releases/<version>/<relname>.tar.gz)
+%%    to the release package tarball found in 1.
+%% 3. return a tuple with the paths to the release package and
+%%    to the symlink that is to be provided to release handler
+find_and_link_release_package(Version, RelName) ->
+    RelNameStr = atom_to_list(RelName),
+    %% regardless of the location of the release package, we'll
+    %% always give release handler the same path which is the symlink
+    %% the path to the package link is relative to "releases/" because
+    %% that's what release handler is expecting
+    ReleaseHandlerPackageLink = filename:join(Version, RelNameStr),
+    %% this is the symlink name we'll create once
+    %% we've found where the actual release package is located
+    ReleaseLink = filename:join(["releases", Version,
+                                 RelNameStr ++ ".tar.gz"]),
+    case first_value(fun filelib:is_file/1,
+                     [filename:join(["releases",
+                                     RelNameStr ++ "-" ++ Version ++ ".tar.gz"]),
+                      filename:join(["releases", Version,
+                                     RelNameStr ++ "-" ++ Version ++ ".tar.gz"]),
+                      filename:join(["releases", Version,
+                                     RelNameStr ++ ".tar.gz"])]) of
+        no_value ->
+            {undefined, undefined};
+        %% no need to create the link since the release package we
+        %% found is located in the same place as the link would be
+        {ok, Filename} when is_list(Filename) andalso
+                            Filename =:= ReleaseLink ->
+            {Filename, ReleaseHandlerPackageLink};
+        {ok, Filename} when is_list(Filename) ->
+            %% we now have the location of the release package, however
+            %% release handler expects a fixed nomenclature (<relname>.tar.gz)
+            %% so give it just that by creating a symlink to the tarball
+            %% we found.
+            %% make sure that the dir where we're creating the link in exists
+            ok = filelib:ensure_dir(filename:join([filename:dirname(ReleaseLink), "dummy"])),
+            %% create the symlink pointing to the full path name of the
+            %% release package we found
+            case file:make_symlink(filename:absname(Filename), ReleaseLink) of
+                ok ->
+                    ok;
+                {error, eperm} -> % windows!
+                    {ok,_} = file:copy(filename:absname(Filename), ReleaseLink)
+            end,
+            {Filename, ReleaseHandlerPackageLink}
+    end.
+
+first_value(_Fun, []) -> no_value;
+first_value(Fun, [Value | Rest]) ->
+    case Fun(Value) of
+        false ->
+            first_value(Fun, Rest);
+        true ->
+            {ok, Value}
+    end.
+
+parse_version(V) when is_list(V) ->
+    hd(string:tokens(V,"/")).
+
+check_and_install(TargetNode, Vsn) ->
+    case rpc:call(TargetNode, release_handler,
+                  check_install_release, [Vsn], ?TIMEOUT) of
+        {ok, _OtherVsn, _Desc} ->
+            ok;
+        {error, Reason} ->
+            ?INFO("ERROR: release_handler:check_install_release failed: ~p~n",[Reason]),
+            erlang:halt(3)
+    end,
+    case rpc:call(TargetNode, release_handler, install_release,
+                  [Vsn, [{update_paths, true}]], ?TIMEOUT) of
+        {ok, _, _} ->
+            ?INFO("Installed Release: ~s~n", [Vsn]),
+            ok;
+        {error, {no_such_release, Vsn}} ->
+            VerList =
+                iolist_to_binary(
+                    [io_lib:format("* ~s\t~s~n",[V,S]) ||  {V,S} <- which_releases(TargetNode)]),
+            ?INFO("Installed versions:~n~s", [VerList]),
+            ?INFO("ERROR: Unable to revert to '~s' - not installed.~n", [Vsn]),
+            erlang:halt(2);
+        %% as described in http://erlang.org/doc/man/appup.html, when performing a relup
+        %% with soft purge:
+        %%      If the value is soft_purge, release_handler:install_release/1
+        %%      returns {error,{old_processes,Mod}}
+        {error, {old_processes, Mod}} ->
+            ?INFO("ERROR: unable to install '~s' - old processes still running code from module ~p~n",
+                [Vsn, Mod]),
+            erlang:halt(3);
+        {error, Reason1} ->
+            ?INFO("ERROR: release_handler:install_release failed: ~p~n",[Reason1]),
+            erlang:halt(4)
+    end.
+
+maybe_permafy(TargetNode, RelName, Vsn, Opts) ->
+    case proplists:get_value(permanent, Opts, true) of
+        true ->
+            permafy(TargetNode, RelName, Vsn);
+        false -> ok
+    end.
+
+permafy(TargetNode, RelName, Vsn) ->
+    ok = rpc:call(TargetNode, release_handler,
+                  make_permanent, [Vsn], ?TIMEOUT),
+    file:copy(filename:join(["bin", atom_to_list(RelName)++"-"++Vsn]),
+              filename:join(["bin", atom_to_list(RelName)])),
+    ?INFO("Made release permanent: ~p~n", [Vsn]),
+    ok.
+
+remove_release(TargetNode, Vsn) ->
+    case rpc:call(TargetNode, release_handler, remove_release, [Vsn], ?TIMEOUT) of
+        ok ->
+            ?INFO("Uninstalled Release: ~s~n", [Vsn]),
+            ok;
+        {error, Reason} ->
+            ?INFO("ERROR: release_handler:remove_release failed: ~p~n", [Reason]),
+            erlang:halt(3)
+    end.
+
+which_releases(TargetNode) ->
+    R = rpc:call(TargetNode, release_handler, which_releases, [], ?TIMEOUT),
+    [ {V, S} ||  {_,V,_, S} <- R ].
+
+%% the running release version is either the only one marked `current´
+%% or, if none exists, the one marked `permanent`
+current_release_version(TargetNode) ->
+    R = rpc:call(TargetNode, release_handler, which_releases,
+                [], ?TIMEOUT),
+    Versions = [ {S, V} ||  {_,V,_, S} <- R ],
+    %% current version takes priority over the permanent
+    proplists:get_value(current, Versions,
+        proplists:get_value(permanent, Versions)).
+
+print_existing_versions(TargetNode) ->
+    VerList = iolist_to_binary([
+            io_lib:format("* ~s\t~s~n",[V,S])
+            ||  {V,S} <- which_releases(TargetNode) ]),
+    ?INFO("Installed versions:~n~s", [VerList]).
+
+start_distribution(TargetNode, NameTypeArg, Cookie) ->
+    MyNode = make_script_node(TargetNode),
+    {ok, _Pid} = net_kernel:start([MyNode, get_name_type(NameTypeArg)]),
+    erlang:set_cookie(node(), Cookie),
+    case {net_kernel:connect_node(TargetNode),
+          net_adm:ping(TargetNode)} of
+        {true, pong} ->
+            ok;
+        {_, pang} ->
+            ?INFO("Node ~p not responding to pings.\n", [TargetNode]),
+            erlang:halt(1)
+    end,
+    {ok, Cwd} = file:get_cwd(),
+    ok = rpc:call(TargetNode, file, set_cwd, [Cwd], ?TIMEOUT),
+    TargetNode.
+
+make_script_node(Node) ->
+    [Name, Host] = string:tokens(atom_to_list(Node), "@"),
+    list_to_atom(lists:concat([Name, "_upgrader_", os:getpid(), "@", Host])).
+
+%% get name type from arg
+get_name_type(NameTypeArg) ->
+	case NameTypeArg of
+		"-sname" ->
+			shortnames;
+		_ ->
+			longnames
+	end.

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/priv/templates/nodetool Added

@@ -0,0 +1,196 @@
+#!/usr/bin/env escript
+%% -*- mode: erlang;erlang-indent-level: 4;indent-tabs-mode: nil -*-
+%% ex: ft=erlang ts=4 sw=4 et
+%% -------------------------------------------------------------------
+%%
+%% nodetool: Helper Script for interacting with live nodes
+%%
+%% On releases running with OTP-23+ this escript is not used. Instead,
+%% the `erl_call' command is used. This escript will be removed from
+%% relx when OTP-23 becomes the earliest support version of OTP.
+%%
+%% -------------------------------------------------------------------
+
+main(Args) ->
+    %% Extract the args
+    {RestArgs, TargetNode, StartEpmd} = process_args(Args, [], undefined, true),
+
+    ok = start_epmd(StartEpmd),
+
+    %% See if the node is currently running  -- if it's not, we'll bail
+    case {net_kernel:hidden_connect_node(TargetNode), net_adm:ping(TargetNode)} of
+        {true, pong} ->
+            ok;
+        {_, pang} ->
+            io:format("Node ~p not responding to pings.~n", [TargetNode]),
+            halt(1)
+    end,
+
+    Timeout =
+        case os:getenv("RELX_RPC_TIMEOUT") of
+            false ->
+                60000;
+            StrVal ->
+                try
+                    %% RELX_RPC_TIMEOUT is in seconds
+                    list_to_integer(StrVal) * 1000
+                catch _:_ ->
+                        60000
+                end
+        end,
+
+    case RestArgs of
+        ["rpc", Module, Function | ArgsAsString] ->
+            case consult(lists:flatten(ArgsAsString)) of
+                {error, Reason} ->
+                    io:format("Error parsing arguments `~s`, failed with reason: ~s~n", [ArgsAsString, Reason]);
+                {ok, ParsedArgs} when is_list(ParsedArgs) ->
+                    case rpc:call(TargetNode, list_to_atom(Module),
+                                  list_to_atom(Function), ParsedArgs, Timeout) of
+                        {badrpc, Reason} ->
+                            io:format("RPC to ~p failed: ~p~n", [TargetNode, Reason]),
+                            halt(1);
+                        rpc_ok ->
+                            %% code doesn't want any output
+                            ok;
+                        {rpc_error, Code} when is_integer(Code) ->
+                            %% code failed, halt with a supplied code
+                            halt(Code);
+                        {rpc_error, Code, Output} when is_integer(Code) ->
+                            %% code failed, halt with a supplied code
+                            %% and log output to stderr
+                            io:format(standard_error, "~p~n", [Output]),
+                            halt(Code);
+                        Other ->
+                            io:format("~p~n", [Other])
+                    end;
+                {ok, ParsedArgs} ->
+                    io:format("Error: args `~p` not a list.~n"
+                              "Example to call `foo:bar(1,2,3)` pass `foo bar \"[1, 2, 3].\"`~n", [ParsedArgs])
+            end;
+        ["eval" | ListOfArgs] ->
+            % shells may process args into more than one, and end up stripping
+            % spaces, so this converts all of that to a single string to parse
+            String = binary_to_list(
+                      list_to_binary(
+                        join(ListOfArgs," ")
+                      )
+                    ),
+
+            % then scan and parse the string
+            {ok, Scanned, _} = erl_scan:string(String),
+            {ok, Parsed } = erl_parse:parse_exprs(Scanned),
+
+            % and evaluate it on the remote node
+            case rpc:call(TargetNode, erl_eval, exprs, [Parsed, [] ]) of
+                {value, Value, _} ->
+                    io:format ("~p~n",[Value]);
+                {badrpc, Reason} ->
+                    io:format("RPC to ~p failed: ~p~n", [TargetNode, Reason]),
+                    halt(1)
+            end;
+        Other ->
+            io:format("Other: ~p~n", [Other]),
+            io:format("Usage: nodetool {ping|stop|restart|reboot|rpc|rpcterms|eval [Terms]} [RPC]~n")
+    end,
+    net_kernel:stop().
+
+process_args([], Acc, TargetNode, StartEpmd) ->
+    {lists:reverse(Acc), TargetNode, StartEpmd};
+process_args(["-setcookie", Cookie | Rest], Acc, TargetNode, StartEpmd) ->
+    erlang:set_cookie(node(), list_to_atom(Cookie)),
+    process_args(Rest, Acc, TargetNode, StartEpmd);
+process_args(["-start_epmd", StartEpmd | Rest], Acc, TargetNode, _StartEpmd) ->
+    process_args(Rest, Acc, TargetNode, list_to_atom(StartEpmd));
+process_args(["-name", TargetName | Rest], Acc, _, StartEpmd) ->
+    maybe_start_node(TargetName, longnames),
+    process_args(Rest, Acc, nodename(TargetName), StartEpmd);
+process_args(["-sname", TargetName | Rest], Acc, _, StartEpmd) ->
+    maybe_start_node(TargetName, shortnames),
+    process_args(Rest, Acc, nodename(TargetName), StartEpmd);
+process_args([Arg | Rest], Acc, Opts, StartEpmd) ->
+    process_args(Rest, [Arg | Acc], Opts, StartEpmd).
+
+maybe_start_node(TargetName, Names) ->
+    case erlang:node() of
+        'nonode@nohost' ->
+            ThisNode = append_node_suffix(TargetName, "_maint_"),
+            {ok, _} = net_kernel:start([ThisNode, Names]);
+        _ ->
+            ok
+    end.
+
+start_epmd(true) ->
+    [] = os:cmd("\"" ++ epmd_path() ++ "\" -daemon"),
+    ok;
+start_epmd(_) ->
+    ok.
+
+epmd_path() ->
+    ErtsBinDir = filename:dirname(escript:script_name()),
+    Name = "epmd",
+    case os:find_executable(Name, ErtsBinDir) of
+        false ->
+            case os:find_executable(Name) of
+                false ->
+                    io:format("Could not find epmd.~n"),
+                    halt(1);
+                GlobalEpmd ->
+                    GlobalEpmd
+            end;
+        Epmd ->
+            Epmd
+    end.
+
+
+nodename(Name) ->
+    case re:split(Name, "@", [{return, list}, unicode]) of
+        [_Node, _Host] ->
+            list_to_atom(Name);
+        [Node] ->
+            [_, Host] = re:split(atom_to_list(node()), "@", [{return, list}, unicode]),
+            list_to_atom(lists:concat([Node, "@", Host]))
+    end.
+
+append_node_suffix(Name, Suffix) ->
+    case re:split(Name, "@", [{return, list}, unicode]) of
+        [Node, Host] ->
+            list_to_atom(lists:concat([Node, Suffix, os:getpid(), "@", Host]));
+        [Node] ->
+            list_to_atom(lists:concat([Node, Suffix, os:getpid()]))
+    end.
+
+%% convert string to erlang term
+consult([]) ->
+    {ok, []};
+consult(Bin) when is_binary(Bin)->
+    consult(binary_to_list(Bin));
+consult(Str) when is_list(Str) ->
+    %% add '.' if the string doesn't end in one
+    Normalized =
+        case lists:reverse(Str) of
+            [$. | _] -> Str;
+            R -> lists:reverse([$. | R])
+        end,
+
+    case erl_scan:string(Normalized) of
+        {ok, Tokens, _} ->
+            case erl_parse:parse_term(Tokens) of
+                {ok, Args} ->
+                    {ok, Args};
+                {error, {_, _, ErrorDescriptor}} ->
+                    {error, erl_parse:format_error(ErrorDescriptor)}
+            end;
+        {error, {_, _, ErrorDescriptor}} ->
+            {error, erl_scan:format_error(ErrorDescriptor)}
+    end.
+
+%% string:join/2 copy; string:join/2 is getting obsoleted
+%% and replaced by lists:join/2, but lists:join/2 is too new
+%% for version support (only appeared in 19.0) so it cannot be
+%% used. Instead we just adopt join/2 locally and hope it works
+%% for most unicode use cases anyway.
+join([], Sep) when is_list(Sep) ->
+    [];
+join([H|T], Sep) ->
+    H ++ lists:append([Sep ++ X || X <- T]).

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/priv/templates/psutil Added

@@ -0,0 +1,175 @@
+#! /usr/bin/pwsh
+# Utility functions for powershell script files
+
+function Find-ERTS()
+{
+    param (
+        [Parameter(Mandatory=$true, Position=0)]
+        [string] $RelRoot,
+        [Parameter(Mandatory=$true, Position=1)]
+        [string] $Vsn
+    )
+
+    if (Test-Path "$RelRoot\erts-$Vsn") {
+        # Set the ERTS dir from the passed in erts_vsn
+        return @($RelRoot, "$RelRoot\erts-$Vsn")
+    }
+
+    # Get the ERTS dir from erl
+    $erl = (Get-Command erl).source
+    $erl_root = & $erl -boot no_dot_erlang -noshell -eval 'io:format(\"~s\", [filename:nativename(code:root_dir())]), halt().'
+    if (Test-Path "$erl_root\erts-$Vsn") {
+        return @($erl_root, "$erl_root\erts-$Vsn")
+    }
+
+    # Expected $vsn but not found, get ERTS version installed
+    $erts_vsn = & $erl -boot no_dot_erlang -noshell -eval 'io:format(\"~s\", [erlang:system_info(version)]), halt().'
+    if (!(Test-Path "$erl_root\erts-$erts_vsn")) {
+        Write-Error "Can not run the release. There is no ERTS bundled with the release or found on the system."
+        # Terminates here due to $ErrorActionPreference = "Stop"
+    }
+
+    Write-Warning "Exact ERTS version ($Vsn) match not found, instead using $erts_vsn}. The release may fail to run."
+    return @($erl_root, "$erl_root\erts-$erts_vsn")
+}
+
+function Find-BootScript()
+{
+    param (
+        [Parameter(Mandatory=$true, Position=0)]
+        [string] $RelDir,
+        [Parameter(Mandatory=$true, Position=1)]
+        [string] $RelName
+    )
+
+    if (Test-Path "$RelDir\$RelName.boot") {
+        return "$RelDir\$RelName"
+    }
+
+    if (Test-Path "$RelDir\start.boot") {
+        return "$RelDir\start"
+    }
+
+    Write-Error "No boot script found in $RelDir"
+}
+
+function Find-FormatConfig()
+{
+    param (
+        [Parameter(Mandatory=$true, Position=0)]
+        [string] $RelDir,
+        [Parameter(Mandatory=$true, Position=1)]
+        [string] $File
+    )
+
+    $in = $out = "$RelDir\$File"
+    if (Test-Path "$in.src") {
+        # apply the environment variable substitution
+        Format-OSVars "$in.src" $out
+    }
+    elseif (Test-Path env:RELX_REPLACE_OS_VARS) {
+        # If vm.args.orig or sys.config.orig is present then use that
+        if (Test-Path "$in.orig") {
+            $in = "$in.orig"
+        }
+        # if they are both the same, then ensure that we don't clobber
+        # the file by saving a backup with the .orig extension
+        if ($in -eq $out) {
+            Copy-Item $in "$in.orig"
+        }
+        # apply the environment variable substitution
+        Format-OSVars $in $out
+    }
+    else {
+        # If vm.arg.orig or sys.config.orig is present then use that
+        if (Test-Path "$in.orig") {
+            $in = "$in.orig"
+        }
+        if ($in -ne $out) {
+            Copy-Item $in $out
+        }
+    }
+
+    return $out
+}
+
+function Format-OSVars()
+{
+    param(
+        [Parameter(Mandatory=$true, Position=0)]
+        [string] $In,
+        [Parameter(Mandatory=$true, Position=1)]
+        [string] $Out
+    )
+
+    $content = Get-Content $In
+    $matches = ([regex]'[$]{(?<var>[^}]*)}').Matches($content)
+    foreach ($match in $matches) {
+        $var = $match.groups['var'].value
+        $val = Invoke-Expression "`$env:${var}"
+        $content = $content.replace("`${$var}", $val)
+    }
+    Set-Content -Path $Out -Value $content -Encoding ASCII
+}
+
+function Get-NodeAndHost()
+{
+    param(
+        [string]$vmargs
+    )
+
+    $node_type, $node_name = Get-Content $vmargs `
+        | Select-String '(-s{0,1}name)\s+([^\s]+)' `
+        | ForEach-Object { `
+            @($_.matches[0].groups[1].value, `
+            $_.matches[0].groups[2].value) `
+        }
+
+    if ($node_name -match '@') {
+        $node_name, $hostname = $node_name -split '@' 
+    }
+
+    # if no hostname is set, attempt to pick one from the env
+    if ([string]::IsNullOrEmpty($hostname) -and (Test-Path env:COMPUTERNAME)) {
+        if ($node_type -eq '-sname') {
+            $hostname = $env:COMPUTERNAME
+        }
+        elseif (Test-Path env:USERDNSDOMAIN) {
+            $hostname = "$env:COMPUTERNAME.$env:USERDNSDOMAIN"
+        }
+    }
+
+    # Add @ to hostname if not empty so that we can just concatenate values safely
+    if (![string]::IsNullOrEmpty($hostname)) {
+        $hostname = "@$hostname"
+    }
+
+    # Return to caller
+    @($node_type, $node_name, $hostname)
+}
+
+function Get-Cookie()
+{
+    param(
+        [string]$vmargs
+    )
+
+    $cookie = Get-Content $vmargs `
+        | Select-String '-setcookie\s+([^\s]+)' `
+        | ForEach-Object { `
+            @($_.matches[0].groups[1].value) `
+        }
+
+    if ([string]::IsNullOrEmpty($cookie)) {
+        $default_cookie_file = "$env:USERPROFILE\.erlang.cookie"
+        if (Test-Path $default_cookie_file) {
+            $cookie = Get-Content $default_cookie_file | Select-Object -First 1
+        }
+        else {
+            Write-Warning "No cookie is set or found. This limits the scripts functionality, installing, upgrading, rpc and getting a list of versions will not work."
+            return $null
+        }
+    }
+
+    return $cookie
+}
\ No newline at end of file

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/priv/templates/sys_config Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/relx/priv/templates/vm_args Added

@@ -0,0 +1,30 @@
+## Name of the node
+-sname {{ rel_name }}
+
+## Cookie for distributed erlang
+-setcookie {{ rel_name }}
+
+## Heartbeat management; auto-restarts VM if it dies or becomes unresponsive
+## (Disabled by default..use with caution!)
+##-heart
+
+## Enable kernel poll and a few async threads
+##+K true
+##+A 5
+
+## Increase number of concurrent ports/sockets
+##-env ERL_MAX_PORTS 4096
+
+## Tweak GC to run more often
+##-env ERL_FULLSWEEP_AFTER 10
+
+# +B [c | d | i]
+# Option c makes Ctrl-C interrupt the current shell instead of invoking the emulator break
+# handler. Option d (same as specifying +B without an extra option) disables the break handler. # Option i makes the emulator ignore any break signal.
+# If option c is used with oldshell on Unix, Ctrl-C will restart the shell process rather than
+# interrupt it.
+# Disable the emulator break handler
+# it easy to accidentally type ctrl-c when trying
+# to reach for ctrl-d. ctrl-c on a live node can
+# have very undesirable results
+##+Bi

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/ssl_verify_fun Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/ssl_verify_fun/ebin Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/ssl_verify_fun/ebin/ssl_verify_fingerprint.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/ssl_verify_fun/ebin/ssl_verify_fun.app Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/ssl_verify_fun/ebin/ssl_verify_fun_cert_helpers.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/ssl_verify_fun/ebin/ssl_verify_fun_encodings.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/ssl_verify_fun/ebin/ssl_verify_hostname.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/ssl_verify_fun/ebin/ssl_verify_pk.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/ssl_verify_fun/ebin/ssl_verify_string.beam Added

guam-0.9.11.tar.gz/cache/rebar3/rebar3/lib/ssl_verify_fun/ebin/ssl_verify_util.beam Added

guam-0.9.11.tar.gz/certs Added

guam-0.9.11.tar.gz/certs/ca.cert Added

@@ -0,0 +1,29 @@
+-----BEGIN CERTIFICATE-----
+MIIFCzCCAvOgAwIBAgIUPfspf82d3fQAvXN31KoHb9gmVPswDQYJKoZIhvcNAQEL
+BQAwFTETMBEGA1UECgwKRXhhbXBsZSBDQTAeFw0yMTA2MDYxMTEwNDhaFw0zMTA2
+MDQxMTEwNDhaMBUxEzARBgNVBAoMCkV4YW1wbGUgQ0EwggIiMA0GCSqGSIb3DQEB
+AQUAA4ICDwAwggIKAoICAQCpJCUguKqepGLFsJb9/uvEBW23zJWIadI2+fsN6tTM
+lzjriCW/TtZXphzsIAeyGt5qzmEDZpEo2ZJ2C6eh45RN7LPMmE0wj32nazUvt4Mw
+0C5AjfFo4yC22iVVHYcdBI/QPt9SRMfuwVqedtW2f63960PucAJmF+fzrPrX5okF
+mb//3MUEuFQ29GX7cOxlq/yjHRcVNVjSDbbvviu1jORUmynR+UUTKSBbFPAu0U/b
++hzHpIGpszVRkWyg17IrlEwn0HiilYWxDqBBqqBEvkv2dBhzcwtnKUcX4vgKHqnL
+AKYKUN+ahYSxRu0KAWHvLIDk+cCZFqxDz1ZrZjgK5HMfA+YuZCM7gZIdn2D26RkH
+lSq7+I5K0NUviprt5kLimK9g8b4UjKtwoiJ1sIqi2kzMfso2afChb5kQbbc7utv3
+Ic7kRJWwCqLUJXz3vOM1REX1fU3oOcYc1Qtn9ehBXV+uTTs5m7XU3KvuLr70tN/7
+gzvfE4CPw1oXj1D4S1mkPH46ZgM0NVYdXGwJVp7kIjIOd6kbNPp6LmlzCgcId15v
+7ImwajbonlD+c1PqbBpOPBIuWRriBA+SSg0N53j6gbxlvcm0C0UhbAXnwtLkonU1
+hRF7yJUUK+HjsksH3TxCwz7Xe+GoQSePBluxLI4dibgGvbdRq7knPdbK3GBlvdwS
+AQIDAQABo1MwUTAdBgNVHQ4EFgQUhJlYcZdk1vMbvDm7ZuJW1793UIwwHwYDVR0j
+BBgwFoAUhJlYcZdk1vMbvDm7ZuJW1793UIwwDwYDVR0TAQH/BAUwAwEB/zANBgkq
+hkiG9w0BAQsFAAOCAgEAlctrj+3DXnK40HY5cTnkgWgKXVMM9vg3UXHCZCCgo8CF
+/1FQR6I/ex08a0r3ez1qECgwm32UHwgPPi1xvvxrMDhR0bs4bfeaBKRhzbzUQYd/
+5QS7f43tzLRX+tWac4vBxrlKL6DVEl3TZ4ERfJ8pN4yEmIDmTkEWLkZtg/vwIYql
+7QJHDWbh9VQnPZG20/sFe1/owPJB4eFNjJELA2/ZGPPOU9PvXV/AHDlpzkKLn4ad
+ONuw3XN/S3m5yxQc1iwaFC2IGEGYCrAFg/CcZMAVk8ed6KQIlV59/v8ltyRoNB/q
+bdbsza3jXiV/O5/ZNdyJC6EX32yDB2ViH5OEFr7o3wLZp7nl0+pVXaarR7+Px0/b
+klJMGFKU4AH9Te8CapNZQ28X+dabrk45a4hlMURpxQYRQ0JOuLqcx9eCIEM8Z66/
+4Vz3FXuIORaq/suct7viGa5QsQqOI9uiWr+lUEnv9o3Y+26vJGegkinrrURerAhI
+LZEWOTEzJbucn+iGv1Gf21csrA2vmOtNpnGZ1qNy+0Gj9LHu3u/FJdT+NVcLoLKh
+aEuBwoaIZRWwDo8jk5lo9TH2tYY9j9a4h8gEQu5bnmxCIfJNE1g3qE7azs8eaTuR
+N1qANa/QGO2h5jd7zca987qBCsklBanoMTtZQqoIRp6DOfRXRfm0YfPmJbrdUCQ=
+-----END CERTIFICATE-----

guam-0.9.11.tar.gz/certs/ca.key Added

@@ -0,0 +1,51 @@
+-----BEGIN RSA PRIVATE KEY-----
+MIIJKAIBAAKCAgEAqSQlILiqnqRixbCW/f7rxAVtt8yViGnSNvn7DerUzJc464gl
+v07WV6Yc7CAHshreas5hA2aRKNmSdgunoeOUTeyzzJhNMI99p2s1L7eDMNAuQI3x
+aOMgttolVR2HHQSP0D7fUkTH7sFannbVtn+t/etD7nACZhfn86z61+aJBZm//9zF
+BLhUNvRl+3DsZav8ox0XFTVY0g22774rtYzkVJsp0flFEykgWxTwLtFP2/ocx6SB
+qbM1UZFsoNeyK5RMJ9B4opWFsQ6gQaqgRL5L9nQYc3MLZylHF+L4Ch6pywCmClDf
+moWEsUbtCgFh7yyA5PnAmRasQ89Wa2Y4CuRzHwPmLmQjO4GSHZ9g9ukZB5Uqu/iO
+StDVL4qa7eZC4pivYPG+FIyrcKIidbCKotpMzH7KNmnwoW+ZEG23O7rb9yHO5ESV
+sAqi1CV897zjNURF9X1N6DnGHNULZ/XoQV1frk07OZu11Nyr7i6+9LTf+4M73xOA
+j8NaF49Q+EtZpDx+OmYDNDVWHVxsCVae5CIyDnepGzT6ei5pcwoHCHdeb+yJsGo2
+6J5Q/nNT6mwaTjwSLlka4gQPkkoNDed4+oG8Zb3JtAtFIWwF58LS5KJ1NYURe8iV
+FCvh47JLB908QsM+13vhqEEnjwZbsSyOHYm4Br23Uau5Jz3WytxgZb3cEgECAwEA
+AQKCAgEAi5CMpkRaXQ7thYwh+zGm3xdPolLIrEgNMlnxI1m6/5pkWEz+QK5PxQEH
+ans/fmIXVvA2MrUmYBuvc4JIbxe3XtlKvy6IuuIb39Jhj58QPG37TD8TjOWlL9wu
+4926iGIkPMQ0R9EDXGnlWU5bJ/yQ2C2R3yRDhnSBa5s3XIEYXSuxtvE3DJ8AtlvR
+7rkOBxL0Iq+1RUXApYq1gXtc27CHE5z41A6oRZgw35cWXLtP9waZSs7eQuXhwA2M
+Ief5V2ZFtLCbaiSQrTmRWL3vAuo3CgRfzJuINDZmODqLSuZkWmKNn4N+DiXQCOuq
+WhAr/Euvi8DdgDSqLkXeXD57TdmVdxE6y7XdwzS+3oOfgT+GJrnm2CY8QrfnOR4t
+5VJQrtpuKQOsL9/4qHnQa7XOUdli3iTX4PyO6MePpCuiSnNNiYtUjQjmMpzNfr0M
+YEVtTLBhr7YUCDvP+uZqpN4l++I77qd/kqvvmeRDBpm7x7bMjuuTuZz4b2HHPypG
+y+ac6cavyMgPNpTnn6R+SrY5jRB2mki26YfMyQvakuKAlIe1r7Hr4+mrZxtVZNB5
+kNj0PUtZx0Ig8xVnPtw3LMswI/5rgeJH1LTr2A3XPGucbbuX2nZTMqi9uEvdv+j2
+hSTcV87y5msIj0fXuT4NgvAc4cpHj4Y8UBZV30K8AqsN6Rp7iYUCggEBANuq1JXo
+QfoZxK8/ZDYA/rNtMzSNlCU4SsoErsNXzEKFOKhOaWHjOgit2sZW76TU77gvCnfM
+Ojp93MIj2uY1754GbfUVJO9U/vAYf1fsTxTox9UXuUhzJXBv1ivykiN5OsPWs9Jv
+9QOJDGBO+EDdIJFRUCTQWTh3kZ6L7skxoLLH70oSkTJCIIrutpcRsiZy7SNI+EN5
+4AT0bO8GWFEkKhEIYOVUYYzQVS1SuHNL/3Cwq4kQKxF5LYdV8oXhkfNKwh1zzACg
+F6BCFQF1YHpAdO8wMjeJqTHhv+PLIsRbkz8+OiUIz4EpQaWqZDTKCmgyUV64rHwr
+ym1GcpeEZ62GflMCggEBAMUd7x86CXwsqL3FV2C4drXKwsGzO4ikpdJKveli15se
+svI8MrXBXG+cu5GfxiCVS7y3e1LHE174v8auKuEZWGjqzjbBpvr61rToHJC8qTtO
+Wd5yCdkNScM2wzZ2pc8p7h3ZetHkaqPU+H9fjpzE/14fbAGl0f3WXdiKkk8w6Dq8
+rC9h7EBDkPo7BwfFpY8X+C4klOzOA1zFSQBKk3gtPQCDP2NCAi6IpZJ08ck29Mn+
+VfL2qRNJz4KJUKV3u4C0F+6W/BFJ4XMcMQFMbfzYPFOO9WfuzjK/JeGpJrCGJkyu
+r7n0CFHnhtD3DlkwA9DTNaYjTIxVeGHxg0WxzDGv29sCggEAYdGw2RCUUMsoyuFv
+vpyyzzPRmZVyYyCuLUfoixSN4RFyKYDBbNXDAhppUelkzgIEvgA0qSRIycNCizFs
+SRe7nKNAU+MWj31KCaDfFEgm7yi51Cq8V4bvJSKoPOnIKgPSJ2N0sEEq2mgtGrYP
+1tKhrhSHm90r3flg3zlxHCb9aJ+f71xVTAwmcbfbl2pJ6tVCxHO6GlIrcAloeQha
+S8fO88bHX1g0GICtbYFooe810Pjbai3I//72R03+sZ/BXpXr2zG1ppGj87l5oSyj
+yczqRZkww4qJzay5xrauxMIC0CblvZguz1WP5jX6aYePGtdNZODX7nORsRet78sG
+YD+EAQKCAQBONzuMQ4ZB/KKUcrriSS/poOQ44jrsVJDr6faDplHxXnQZRKPGlUxt
+iV6wQRroEPW1k4Te6tmX5NKMLs4a9eir8QgUmDD/BAuwSy4SjJoGS2fDqbKYqvoq
++Q7rDJdspbGzrHlc0esyyS41tKAtOsot+f/sg3TY6XfhldLKk5iCvh0AzDVnpqff
+cw6uGdJA/nzfKmrhsDmLVUlLUUxE8oZzLqE3bJjbCCPTAo5yjlkB0ece+ptKaQ5r
+OLuEfQcs4clhRg4Neih4eaZEYqR+IPuHGIHuVMcDQe/xJCKTBxgpc2ONQPUQMvO+
+9Vl/MFtDQJvYKceVI9EZ5DB3tj5VNPfjAoIBAD8vQdZAic2WnMAdjWPBb5CpGuMM
+dkQa4FvJkBGCvMhIOY/6pegoxf1/X3X95h00lwnSm2S4UkwZ2OSqCsu3EGJLUYxf
+OOT3xQpNltCajJaszttH0m3WF4dvtZYdek6Ano+AcacKBsJhYjtrowKAWgfIjFET
+lviAj2Ea1Vx7Kv4Xt/6MwzSehLzN10u15IcZwWCLd+8AXetBD3OtHoz0OeWo8wYI
+F7bCZ4+ctI5N5Q5nBPASKo6RcTgGwHLbpG7lHpIsaALd1JsNpPTyxnn2tgQUxs69
+fe5WqvmkdBdiJpM6q/kEipuBVykVAu1iF+3AP5/2KGuDQEpSeZVC5Z1MMkQ=
+-----END RSA PRIVATE KEY-----

guam-0.9.11.tar.gz/certs/ca.srl Added

guam-0.9.11.tar.gz/certs/dhparam4096.pem Added

guam-0.9.11.tar.gz/certs/localhost.cert Added

@@ -0,0 +1,29 @@
+-----BEGIN CERTIFICATE-----
+MIIE5DCCAsygAwIBAgIUCbzs+/IVxhMThiQBdKbJsREsSjcwDQYJKoZIhvcNAQEL
+BQAwFTETMBEGA1UECgwKRXhhbXBsZSBDQTAeFw0yMTA2MDYxMTExMjRaFw0yMTA3
+MDQxMTExMjRaMCkxEzARBgNVBAoMCkV4YW1wbGUgQ0ExEjAQBgNVBAMMCWxvY2Fs
+aG9zdDCCAiIwDQYJKoZIhvcNAQEBBQADggIPADCCAgoCggIBAMQVOinp0oZFX0rx
+m2GuTgVdJ1PNU9esX9b7HoTkE/OtXqeg6fh4v1BzdwFuAIHsowFUEyz5yL+lsHGa
+kUuhT8/PCQtugkUeb3HgU/4WdOKLv74b+DpRI2DVjZ6pYaWes8r7cG22bHR7RZU7
+KCKyVFAGpRm5jpvyq43u6LHXR1HG1AFqE+Oi+VfdzNn81BJWKzakTzMxMVUX9Uad
+Isx+qM4SsE8XILpRygVnLjuqM4l02OZCnKD4+YwHedWUWlef/RpMTbI1Kkw49h3x
+lwakzIELfkyCDUsis1MPvDdKaGsMLm1sDyqCMu/jY0y6/Z+EHBnUpYzC/VTYhd1D
+FKqIfLiT9XvsmlmsBIwlIDn29SU+Pxv+vo3cbAQaAGYOTk0M1Ih05yyyjUe7m7Ax
+eZixoWGKd8c0EWxwI7+l7HxcXxG/ONDghPIVGqs/zdGCOqoD1YI/OPl1XYLjnfy2
+yBdacZg1sx4xNxS+5LrmlBdmx87uiKjZ5cQKyatGzwK9SJg+eb2/Mnn383rFrycd
+aJb8nBbFjF8KbvBMfzmqtaNcas26uhpQybkp2K8vRy529xnrjc/iz6pirldXuYGM
+bZA9vztogvps5w7tmw+xUh02qPjMRjK2RlICbJUcuZHIwyhd6+5mjj4j2DGPASmd
+wMikruKiOpmK1uEyjPGZA/KVxtdzAgMBAAGjGDAWMBQGA1UdEQQNMAuCCWxvY2Fs
+aG9zdDANBgkqhkiG9w0BAQsFAAOCAgEAJgJ0rczY+hmuHpzy/fg6y8Sr46ijiwYw
+Ifl3suaduNDsGeARf3eThRO0HCmz3NHJkCzk7NIM8HpD9Lk+na/UFha0YjezNSMT
+zfEr1jmUCftqnFTE5usM+G5shfztku50Hiwhw+phJP4rLL19nm5gjcRucVpMPr6o
+MAB/hVTwz0ptr9M+GJ/GNzm/wx8eCFYIF/MvCfYFJQmdVtO8GhnpN9IIx9eaSh1N
+JSH73MsiKutCuzV180D+ihLQauX2dTa92RS1Wrtj195Q/0phfCnGJftbog/cmDML
+pqdfpcyqw9ZV3UM6zVJcbps59inyadFfkGJ28Bx3hTPcbNjXUjrX8UXw5bx+DymM
+WjKc4C99UfA+wg0PdSO1MGnPoNHWJa486hZ27uoB/UccDbQ26sx1JcRHLhrDvuTK
+48rAkeElSiqkReQjNCO7V8dXOWdC/WQxrLhEZ+8ep/53hN1F1kA8HB+FstLgnt48
+Wg0q1Hd9Ff4kxqtjkzhMuiLfC94gBEmieFwz2utq3iSei+3aF532ug9gbntsrIhN
+7IMULG+f1K07jxAb6DQbZ+B0bO+snf+HjKu0PVqPVH2EUN1An6FDlgoIFmGbRrV0
+gRhHCzDLjQNjftX1jrlvMXnpRGitS/+h6scNb4JNZk12VIXS9h4T+SW0l3JYf5NT
+bbpZTojbx+4=
+-----END CERTIFICATE-----

guam-0.9.11.tar.gz/certs/localhost.csr Added

@@ -0,0 +1,27 @@
+-----BEGIN CERTIFICATE REQUEST-----
+MIIElTCCAn0CAQAwKTETMBEGA1UECgwKRXhhbXBsZSBDQTESMBAGA1UEAwwJbG9j
+YWxob3N0MIICIjANBgkqhkiG9w0BAQEFAAOCAg8AMIICCgKCAgEAxBU6KenShkVf
+SvGbYa5OBV0nU81T16xf1vsehOQT861ep6Dp+Hi/UHN3AW4AgeyjAVQTLPnIv6Ww
+cZqRS6FPz88JC26CRR5vceBT/hZ04ou/vhv4OlEjYNWNnqlhpZ6zyvtwbbZsdHtF
+lTsoIrJUUAalGbmOm/Krje7osddHUcbUAWoT46L5V93M2fzUElYrNqRPMzExVRf1
+Rp0izH6ozhKwTxcgulHKBWcuO6oziXTY5kKcoPj5jAd51ZRaV5/9GkxNsjUqTDj2
+HfGXBqTMgQt+TIINSyKzUw+8N0poawwubWwPKoIy7+NjTLr9n4QcGdSljML9VNiF
+3UMUqoh8uJP1e+yaWawEjCUgOfb1JT4/G/6+jdxsBBoAZg5OTQzUiHTnLLKNR7ub
+sDF5mLGhYYp3xzQRbHAjv6XsfFxfEb840OCE8hUaqz/N0YI6qgPVgj84+XVdguOd
+/LbIF1pxmDWzHjE3FL7kuuaUF2bHzu6IqNnlxArJq0bPAr1ImD55vb8yeffzesWv
+Jx1olvycFsWMXwpu8Ex/Oaq1o1xqzbq6GlDJuSnYry9HLnb3GeuNz+LPqmKuV1e5
+gYxtkD2/O2iC+mznDu2bD7FSHTao+MxGMrZGUgJslRy5kcjDKF3r7maOPiPYMY8B
+KZ3AyKSu4qI6mYrW4TKM8ZkD8pXG13MCAwEAAaAnMCUGCSqGSIb3DQEJDjEYMBYw
+FAYDVR0RBA0wC4IJbG9jYWxob3N0MA0GCSqGSIb3DQEBCwUAA4ICAQAXvp/ZfVAH
+2+Gja7A6xhI8lM9NEO7HCx9DDR2ZTWXoXLTPxOIWgwy8AnciIfEJ5rQPNgg5B0sz
+O5OCZsaaAwzPhgBaQDBT10hhEPiWDjamZSqHP8LNlEmbDxnfBKeUXRJFeMDyNi+m
+2q1FwJEcxTj/xahhYxk1P9PwGoglrCzMI/4I76I68+WfHtOl1blf7IuIIONFsXNg
+tv2CG+29h+4Qa6NXMMGAEmtD0+6FYdJnSjA7W2L/NKt1OzTgOZ3o5T1MMB/cO81X
+BVspK0uU4Y4ZQkB9L6kFqdBhJYpWtMFPqMu5n+uqiofkLrZsijsMYYljlIiCeaBS
+u3RLQPo0Ov6TF+RVDRNBQvd4LbI5WNkAtMwszEpYxAifFXW/KVgahKCe7BxAivpZ
+TRWIVacmsM+JsUqkU27tuCavjfXQbCQadRMejrTtOCki0NgrryKnwQuPv5mLERV7
+9cx2fb42DzIPZJRiBJ4eVdWvyrjJDFA/7jv3Nzgyc6LMCLHoMvRjXSMeq+ke5ApP
+Z0RwGkj7aTWCsEuqcBOduG4C8RN9wXKLqqeIhMzJ4Nw+to1+rsPl87azYkLEcNP0
+8A44/XLEyJh0UC8fQ7J2ondjYwlPwHFm06LdmQ5+Myr8lNU8zeRS21i4mN2NQitG
+Ty9vWyNpGKnVnSc3qn2HA+hF3OuY3XF33g==
+-----END CERTIFICATE REQUEST-----

guam-0.9.11.tar.gz/certs/localhost.key Added

@@ -0,0 +1,51 @@
+-----BEGIN RSA PRIVATE KEY-----
+MIIJKQIBAAKCAgEAxBU6KenShkVfSvGbYa5OBV0nU81T16xf1vsehOQT861ep6Dp
++Hi/UHN3AW4AgeyjAVQTLPnIv6WwcZqRS6FPz88JC26CRR5vceBT/hZ04ou/vhv4
+OlEjYNWNnqlhpZ6zyvtwbbZsdHtFlTsoIrJUUAalGbmOm/Krje7osddHUcbUAWoT
+46L5V93M2fzUElYrNqRPMzExVRf1Rp0izH6ozhKwTxcgulHKBWcuO6oziXTY5kKc
+oPj5jAd51ZRaV5/9GkxNsjUqTDj2HfGXBqTMgQt+TIINSyKzUw+8N0poawwubWwP
+KoIy7+NjTLr9n4QcGdSljML9VNiF3UMUqoh8uJP1e+yaWawEjCUgOfb1JT4/G/6+
+jdxsBBoAZg5OTQzUiHTnLLKNR7ubsDF5mLGhYYp3xzQRbHAjv6XsfFxfEb840OCE
+8hUaqz/N0YI6qgPVgj84+XVdguOd/LbIF1pxmDWzHjE3FL7kuuaUF2bHzu6IqNnl
+xArJq0bPAr1ImD55vb8yeffzesWvJx1olvycFsWMXwpu8Ex/Oaq1o1xqzbq6GlDJ
+uSnYry9HLnb3GeuNz+LPqmKuV1e5gYxtkD2/O2iC+mznDu2bD7FSHTao+MxGMrZG
+UgJslRy5kcjDKF3r7maOPiPYMY8BKZ3AyKSu4qI6mYrW4TKM8ZkD8pXG13MCAwEA
+AQKCAgBTrbtkp6RwKKrCENl+liQ1pctit/1PzQAZfpFHpQ3er931K3at0tnSO3RN
+5+PPjm0B5B9K0k4Ze1wRHyViYTTuOixh9IcjeBmXP2SYynyXMYxiVQ1Z1caDTJ9j
+VmWViGSx+xu/tloSW4kWZmh6ZiAVBsDueYGii60qpQoo2vZUr8VJ1TsnqiU+mikR
+3hOiv6Mxbm1eK2AiMFc8C1MOcf8X8mHLXtNYsA7Gv4G7dKcJwhPOMB8nkxjr6UTV
+ILptKpmY33dI1ed3H9fob3FEJJAhggYkIFwL9IMSr2RjNB3bkRc/Gx5dxbJ3LVLz
+K9mQeZCEdXsw1wXFb6GxCy+GlzihzTFRV1+1GVtsfbEcyXsYXnmNcNR4YRo4qdSX
+RVRvZtf6+Tedrve9pbbYIxo7BJZPWdueXcwkhqi8i0KiyPr1fs/lPAmZU3BIQFeU
+FvG9AmZ9RG4HHTdQHS83vo8L7DmAfdOusK8r3RpHpDw3NAZOVSdkYv0m0Fssf6vp
+4LpYmhMVjfb5JSKOw1j4VS66k3KQLxtIJXSVjMSSVvF5AhV6x6jlh/32A4y4kLSd
+s3baF9Mqw4WMoIQS31racp1Zg4/5ZYybxtwyQXLLvoV9h4HDX1aNAy2o1kCB4kK4
+0UeaGyDQ2wCgyHrsT7ko28W+5H9d6ZBQx6XpdI4QOIx7XlS2AQKCAQEA5wcURU7l
+c0vPIvnC7+evcyKbgXxUOnCWwYoE5Idr15MdWkFMhZiIHmK2fjqjD8nMl6+s+71j
+LPGwPUgWrO7WFSW00WMyIWlxi5DevZgNYICbBU71G5eZFfrBdF4nXl/1oe60SbLt
+gyv0yBglTiQXV/La2Oug9aaT6xMDNRTSSGIkeYs8xnKqkPl9Ci974c6p8EbGoUx8
+0x/WAsCBi/UhMl0mEF3WopVsb8KSYFP8Q9BZOr87FwASNUNDVihXPzDs2xZQdo4v
+d4KiTHNWFOCEJPG6kJIWpACylv1ff3CLCWjezvNkpwLlaZfVziPiS/ioteiD2UUl
+fek5GEMhqWo2pwKCAQEA2UcrPDpZ7GovmQTUzpiS2Ze00xANytGZPpC7JBrBCBSW
+S/qb3kLWxuuq9r04Ifn2Vo/vhBhDFfdzG1KMPhq36eD8UOZjILY+iALEECbSpC2o
+JsWXSWJ+/3ATAVOUpCW6rMXDfmHqMkrkAlRx8pWi1Vx0R42sCf0Kz4BzaDyfHFsd
+8vBmh10whJors/bDzHnp44TxcomZih9AQWfOKDLriJ9StKxXrVDFHWuUsRp/Wf+i
++HbN2UtiGdeLanuXmD6qCPnVIltHdu2K0axvJCH8QlU8KK6OhLTj9itAv6cpBXlJ
+CkOaIvNGxsCua5kkDlRfoFPk2hNViDIHhu80tI/+VQKCAQBV2RKWQqAOvO/mvkrK
+3RwcO5LvheTCpo3Os1voE85mF/vDSxqFVk3WhLXtqBppxoIpJ5WvIgwVamYkD4Kl
+lkalKxLK8AJz2fvgcd/jMfpejsuMKG/6ZdX0De8PL+GPNzdOiiYicMPDh3T5Wceb
+BtxJySu7iauRPOogYztA4VDWpumI5M2brIZnQt5NB6IQIbySVap/y61iwqTC9wfs
+mxVP4r8/O6+DUOUvjmzYML0/8c8GfoMVo+ggNLNz85+gEq0hKGST+Xf3/+oRYJZv
+QZK5K7449KBHJx817kcrUwXHZFnPKzCOwwu+tjYz2K/BrU/78L/137Tz2dNmiaOb
+kaVnAoIBAQDWaQShSnOyeJa/yaS2upkvYCVwokb5/hvbQbdqyXvzHV2zXHqzugF4
+CteK5O6fmKsegKs7DzYkVyufqrX6EyOqB/r1WmQ3w5+xWAliZu02Vle46wN/x1LL
+fy1CAdiMoy6zj/R6ouUY/A5EvlAzsrYdFj8o3QUIVkx0t60rD6dzs/a55cFHkw5t
+zDWUQc612RiVDHu3K1H4mx4tbOJjiNwk1hQndmqO/UWG4sK4gg1qInoP9izsYRdN
+qQZK7euKsUvZz7AjVzAOjBqRDjgez+q/Cp1zB85b5qWOJuCeP7abUDRjjJJuKuOM
+/lcglt6dxWUYMbGEAdBFthj3btXz2KSBAoIBAQDOogMJNU7w6o7zBYjumvDPN74O
+Hz6EoRcP+sVbdub5fUEqck41AHWgYmvN0hz1y8/Ig8v9cNsqbrVCZ3MfL+Tm38IZ
+W/ttyku1xlYc1giIbkxzjgGUDmmJnZTio1i9Am7+eUVpRuY0TeR59ODENCNVYn67
+EUj6KpmpzXg/69f4uCV6wPQ7q76GUiaPnjBeAAzUCLtUOQBaXRlpqhT9+tIc+CcM
+QBppdnOnBE9k1FwBzLrm7nYgI47qJMikoEuT/i7zlgTN+HzT+Yj2lArgS0KaNYx/
+8aoxKG3VCBvSPSpSMg7DfO9/lSWiccaFlnUwFl/+1P4E2mK7pBNzlI2Nvs+W
+-----END RSA PRIVATE KEY-----

guam-0.9.11.tar.gz/cover.spec Added

guam-0.9.11.tar.gz/imaptest.rb Added

guam-0.9.11.tar.gz/log Added

guam-0.9.11.tar.gz/log/all_runs.html Added

@@ -0,0 +1,131 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+
+<head>
+<title>All test runs in "log" </title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="jquery-latest.js"></script>
+<script type="text/javascript" src="jquery.tablesorter.min.js"></script>
+<script type="text/javascript">
+// Parser for date format, e.g: Wed Jul 4 2012 11:24:15
+var monthNames = {};
+monthNames["Jan"] = "01"; monthNames["Feb"] = "02";
+monthNames["Mar"] = "03"; monthNames["Apr"] = "04";
+monthNames["May"] = "05"; monthNames["Jun"] = "06";
+monthNames["Jul"] = "07"; monthNames["Aug"] = "08";
+monthNames["Sep"] = "09"; monthNames["Oct"] = "10";
+monthNames["Nov"] = "11"; monthNames["Dec"] = "12";
+$.tablesorter.addParser({
+  id: 'CTDateSorter',
+  is: function(s) {
+      return false; },
+  format: function(s) {
+      if (s.length < 2) return 999999999;
+      else {
+          var date = s.match(/(\w{3})\s(\w{3})\s(\d{2})\s(\d{4})\s(\d{2}):(\d{2}):(\d{2})/);
+          var y = date[4]; var mo = monthNames[date[2]]; var d = String(date[3]);
+          var h = String(date[5]); var mi = String(date[6]); var sec = String(date[7]);
+          return (parseInt('' + y + mo + d + h + mi + sec)); }},
+  type: 'numeric' });
+// Parser for general text format
+$.tablesorter.addParser({
+  id: 'CTTextSorter',
+  is: function(s) {
+    return false; },
+  format: function(s) {
+    if (s.length < 1) return 'zzzzzzzz';
+    else if (s == "?") return 'zzzzzzz';
+    else if (s == "-") return 'zzzzzz';
+    else if (s == "FAILED") return 'A';
+    else if (s == "SKIPPED") return 'B';
+    else if (s == "OK") return 'C';
+    else return '' + s; },
+  type: 'text' });
+// Parser for numerical values
+$.tablesorter.addParser({
+  id: 'CTValSorter',
+  is: function(s) {
+    return false; },
+  format: function(s) {
+    if (s.length < 1) return '-2';
+    else if (s == "?") return '-1';
+    else if ((s.search(/(\d{1,})\s/)) >= 0) {
+      var num = s.match(/(\d{1,})\s/);
+      return (parseInt('' + num[1])); }
+    else if ((s.search(/(\d{1,})\.(\d{3})s/)) >= 0) {
+      var num = s.match(/(\d{1,})\.(\d{3})/);
+      if (num[1] == "0") return (parseInt('' + num[2]));
+      else return (parseInt('' + num[1] + num[2])); }
+    else return '' + s; },
+  type: 'numeric' });
+$(document).ready(function() {
+  $("#SortableTable").tablesorter({
+    headers: { 
+      0: { sorter: 'CTDateSorter' },
+      1: { sorter: 'CTTextSorter' },
+      2: { sorter: 'CTTextSorter' },
+      3: { sorter: 'CTValSorter' },
+      4: { sorter: 'CTTextSorter' },
+      5: { sorter: 'CTValSorter' },
+      6: { sorter: 'CTValSorter' },
+      7: { sorter: 'CTValSorter' },
+      8: { sorter: 'CTValSorter' },
+      9: { sorter: 'CTValSorter' }
+    }
+  });
+  $("#SortableTable").trigger("update");
+  $("#SortableTable").trigger("appendCache");
+});
+</script>
+</head>
+<body>
+<center>
+<h1>All test runs in "log"</h1>
+</center>
+<br />
+<center>
+<div id="button_holder" class="btn">
+<a href="index.html">TEST INDEX PAGE</a>
+</div><br /><br />
+<table id="SortableTable">
+<thead>
+<tr>
+<th><b>History</b></th>
+<th><b>Node</b></th>
+<th><b>Label</b></th>
+<th>Tests</th>
+<th><b>Test Names</b></th>
+<th>Total</th>
+<th>Ok</th>
+<th>Failed</th>
+<th>Skipped<br>(User/Auto)</th>
+<th>Missing<br>Suites</th>
+</tr>
+</thead>
+<tbody>
+<tr class="odd">
+<td><a href="ct_run.nonode@nohost.2021-05-18_09.53.45/index.html">Tue May 18 2021 09:53:45</a><td align=center>nonode@nohost</td>
+<td align=center><b>-</b></td>
+<td align=right>1</td>
+<td align=center title='lib.kolab_guam'> lib.kolab_guam</td>
+<td align=right>8</td>
+<td align=right>7</td>
+<td align=right><font color="red">1</font></td>
+<td align=right>0 (0/0)</td>
+<td align=right>0</td>
+</td>
+</tr>
+</tbody>
+</table>
+</center>
+<br /><br />
+<center>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:46<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/console.log Added

@@ -0,0 +1,1169 @@
+2021-06-06 00:52:36.314 [debug] <0.272.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 00:52:36.314 [debug] <0.269.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 00:52:36.317 [debug] <0.278.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 00:52:36.463 [info] <0.289.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 00:52:36.463 [info] <0.289.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 00:52:36.463 [debug] <0.290.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 00:52:36.465 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 00:52:36.465 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 00:52:36.465 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 00:52:36.465 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 00:52:36.465 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,false},{rules,[{filter_groupware,[]},{audit,[]}]}]
+2021-06-06 00:52:36.465 [debug] <0.290.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,false},{rules,[{filter_groupware,[]},{audit,[]}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 00:52:36.466 [info] <0.291.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 00:52:36.471 [debug] <0.291.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 00:52:36.471 [debug] <0.293.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.291.0>
+2021-06-06 00:52:36.471 [info] <0.294.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 00:52:36.471 [debug] <0.294.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 00:52:36.472 [debug] <0.296.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.294.0>
+2021-06-06 00:52:36.472 [info] <0.297.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 00:52:36.472 [debug] <0.297.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 00:52:36.472 [debug] <0.299.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.297.0>
+2021-06-06 00:52:36.472 [info] <0.300.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 00:52:36.472 [debug] <0.300.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 00:52:36.472 [debug] <0.302.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.300.0>
+2021-06-06 00:52:36.472 [info] <0.303.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 00:52:36.472 [debug] <0.303.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 00:52:36.472 [debug] <0.305.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.303.0>
+2021-06-06 00:52:36.806 [debug] <0.265.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 00:52:45.964 [debug] <0.308.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<22,3,1,2,0,1,0,1,252,3,3,178,3,204,0,184,170,180,129,30,1,197,0,21,197,54,159,220,176,83,238,216,156,216,249,2,84,130,203,113,231,87,130,0,0,72,19,2,19,3,19,1,19,4,192,44,192,48,204,169,204,168,192,173,192,43,192,47,192,172,192,35,192,39,192,10,192,20,192,9,192,19,0,157,192,157,0,156,192,156,0,61,0,60,0,53,0,47,0,159,204,170,192,159,0,158,192,158,0,107,0,103,0,57,0,51,0,255,1,0,1,139,0,0,0,14,0,12,0,0,9,108,111,99,97,108,104,111,115,116,0,11,0,4,3,0,1,2,0,10,0,12,0,10,0,29,0,23,0,30,0,25,0,24,0,35,0,0,0,22,0,0,0,23,0,0,0,49,0,0,0,13,0,34,0,32,4,3,5,3,6,3,8,7,8,8,8,9,8,10,8,11,8,4,8,5,8,6,4,1,5,1,6,1,3,3,3,1,0,43,0,9,8,3,4,3,3,3,2,3,1,0,45,0,2,1,1,0,51,0,38,0,36,0,29,0,32,164,126,124,58,194,134,124,10,138,162,57,137,240,242,162,98,15,223,213,232,158,63,122,10,39,70,157,213,8,239,187,31,0,21,0,234,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0>>
+2021-06-06 00:53:13.671 [debug] <0.348.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<22,3,1,2,0,1,0,1,252,3,3,86,164,111,56,1,55,44,17,12,51,240,78,29,248,54,184,193,39,22,14,212,228,202,196,212,204,144,19,21,240,54,68,0,0,72,19,2,19,3,19,1,19,4,192,44,192,48,204,169,204,168,192,173,192,43,192,47,192,172,192,35,192,39,192,10,192,20,192,9,192,19,0,157,192,157,0,156,192,156,0,61,0,60,0,53,0,47,0,159,204,170,192,159,0,158,192,158,0,107,0,103,0,57,0,51,0,255,1,0,1,139,0,0,0,14,0,12,0,0,9,108,111,99,97,108,104,111,115,116,0,11,0,4,3,0,1,2,0,10,0,12,0,10,0,29,0,23,0,30,0,25,0,24,0,35,0,0,0,22,0,0,0,23,0,0,0,49,0,0,0,13,0,34,0,32,4,3,5,3,6,3,8,7,8,8,8,9,8,10,8,11,8,4,8,5,8,6,4,1,5,1,6,1,3,3,3,1,0,43,0,9,8,3,4,3,3,3,2,3,1,0,45,0,2,1,1,0,51,0,38,0,36,0,29,0,32,210,51,253,168,163,77,24,189,175,252,166,126,26,166,140,18,85,222,213,236,132,9,223,37,115,254,160,78,205,250,175,35,0,21,0,234,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0>>
+2021-06-06 00:57:03.715 [debug] <0.349.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 00:57:03.716 [debug] <0.349.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN ">>
+2021-06-06 00:57:03.716 [debug] <0.349.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 00:57:03.716 [debug] <0.349.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 00:57:03.802 [debug] <0.349.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-31112-1622933823-1-11359900958978776135>\r\n">>
+2021-06-06 00:57:03.803 [info] <0.349.0>@kolab_guam_rule_audit:apply_to_server_message:58 LOGIN ATTEMPT: <<"test1@kolab.org">> from "::1", OK
+2021-06-06 01:00:20.945 [debug] <0.269.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 01:00:20.945 [debug] <0.272.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 01:00:20.947 [debug] <0.278.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 01:00:21.096 [info] <0.289.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 01:00:21.096 [info] <0.289.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 01:00:21.097 [debug] <0.290.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 01:00:21.098 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 01:00:21.098 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:00:21.098 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:00:21.098 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 01:00:21.098 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{keyfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"}]}]
+2021-06-06 01:00:21.098 [debug] <0.290.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{keyfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 01:00:21.099 [info] <0.291.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:00:21.104 [debug] <0.291.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:00:21.104 [debug] <0.293.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.291.0>
+2021-06-06 01:00:21.104 [info] <0.294.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:00:21.104 [debug] <0.294.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:00:21.104 [debug] <0.296.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.294.0>
+2021-06-06 01:00:21.104 [info] <0.297.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:00:21.104 [debug] <0.297.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 01:00:21.104 [debug] <0.299.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.297.0>
+2021-06-06 01:00:21.104 [info] <0.300.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:00:21.104 [debug] <0.302.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.300.0>
+2021-06-06 01:00:21.104 [debug] <0.300.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 01:00:21.104 [info] <0.303.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 01:00:21.104 [debug] <0.303.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 01:00:21.104 [debug] <0.305.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.303.0>
+2021-06-06 01:00:21.435 [debug] <0.265.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 01:03:13.600 [debug] <0.269.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 01:03:13.600 [debug] <0.272.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 01:03:13.603 [debug] <0.278.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 01:03:13.731 [info] <0.289.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 01:03:13.731 [info] <0.289.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 01:03:13.732 [debug] <0.290.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 01:03:13.733 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 01:03:13.733 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:03:13.733 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:03:13.734 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 01:03:13.734 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/etc/guam/dh_2048.pem"},{verify,verify_none},{versions,['tlsv1.2','tlsv1.1',tlsv1]},{fail_if_no_peer_cert,false},{honor_cipher_order,true},{ciphers,["ECDHE-ECDSA-AES256-GCM-SHA384","ECDHE-RSA-AES256-GCM-SHA384","ECDHE-ECDSA-AES256-SHA384","ECDHE-RSA-AES256-SHA384","ECDHE-ECDSA-DES-CBC3-SHA","ECDH-ECDSA-AES256-GCM-SHA384","ECDH-RSA-AES256-GCM-SHA384","ECDH-ECDSA-AES256-SHA384","ECDH-RSA-AES256-SHA384","DHE-DSS-AES256-GCM-SHA384","DHE-DSS-AES256-SHA256","AES256-GCM-SHA384","AES256-SHA256","ECDHE-ECDSA-AES128-GCM-SHA256","ECDHE-RSA-AES128-GCM-SHA256","ECDHE-ECDSA-AES128-SHA256","ECDHE-RSA-AES128-SHA256","ECDH-ECDSA-AES128-GCM-SHA256","ECDH-RSA-AES128-GCM-SHA256","ECDH-ECDSA-AES128-SHA256","ECDH-RSA-AES128-SHA256","DHE-DSS-AES128-GCM-SHA256","DHE-DSS-AES128-SHA256","AES128-GCM-SHA256","AES128-SHA256","ECDHE-ECDSA-AES256-SHA","ECDHE-RSA-AES256-SHA","DHE-DSS-AES256-SHA","ECDH-ECDSA-AES256-SHA","ECDH-RSA-AES256-SHA","AES256-SHA","ECDHE-ECDSA-AES128-SHA","ECDHE-RSA-AES128-SHA","DHE-DSS-AES128-SHA","ECDH-ECDSA-AES128-SHA","ECDH-RSA-AES128-SHA","AES128-SHA"]},{client_renegotiation,false},{secure_renegotiate,true}]}]
+2021-06-06 01:03:13.734 [debug] <0.290.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/etc/guam/dh_2048.pem"},{verify,verify_none},{versions,['tlsv1.2','tlsv1.1',tlsv1]},{fail_if_no_peer_cert,false},{honor_cipher_order,true},{ciphers,["ECDHE-ECDSA-AES256-GCM-SHA384","ECDHE-RSA-AES256-GCM-SHA384","ECDHE-ECDSA-AES256-SHA384","ECDHE-RSA-AES256-SHA384","ECDHE-ECDSA-DES-CBC3-SHA","ECDH-ECDSA-AES256-GCM-SHA384","ECDH-RSA-AES256-GCM-SHA384","ECDH-ECDSA-AES256-SHA384","ECDH-RSA-AES256-SHA384","DHE-DSS-AES256-GCM-SHA384","DHE-DSS-AES256-SHA256","AES256-GCM-SHA384","AES256-SHA256","ECDHE-ECDSA-AES128-GCM-SHA256","ECDHE-RSA-AES128-GCM-SHA256","ECDHE-ECDSA-AES128-SHA256","ECDHE-RSA-AES128-SHA256","ECDH-ECDSA-AES128-GCM-SHA256","ECDH-RSA-AES128-GCM-SHA256","ECDH-ECDSA-AES128-SHA256","ECDH-RSA-AES128-SHA256","DHE-DSS-AES128-GCM-SHA256","DHE-DSS-AES128-SHA256","AES128-GCM-SHA256","AES128-SHA256","ECDHE-ECDSA-AES256-SHA","ECDHE-RSA-AES256-SHA","DHE-DSS-AES256-SHA","ECDH-ECDSA-AES256-SHA","ECDH-RSA-AES256-SHA","AES256-SHA","ECDHE-ECDSA-AES128-SHA","ECDHE-RSA-AES128-SHA","DHE-DSS-AES128-SHA","ECDH-ECDSA-AES128-SHA","ECDH-RSA-AES128-SHA","AES128-SHA"]},{client_renegotiation,false},{secure_renegotiate,true}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 01:03:13.734 [info] <0.291.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:03:13.739 [debug] <0.291.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:03:13.739 [debug] <0.293.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.291.0>
+2021-06-06 01:03:13.739 [info] <0.294.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:03:13.740 [debug] <0.294.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:03:13.740 [debug] <0.296.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.294.0>
+2021-06-06 01:03:13.740 [info] <0.297.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:03:13.740 [debug] <0.297.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 01:03:13.740 [debug] <0.299.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.297.0>
+2021-06-06 01:03:13.740 [info] <0.300.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:03:13.740 [debug] <0.300.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 01:03:13.740 [debug] <0.302.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.300.0>
+2021-06-06 01:03:13.740 [info] <0.303.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 01:03:13.740 [debug] <0.303.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 01:03:13.740 [debug] <0.305.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.303.0>
+2021-06-06 01:03:14.092 [debug] <0.265.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 01:03:16.836 [error] <0.311.0>@kolab_guam_session:accept_client:183 gen_server <0.311.0> terminated with reason: no case clause matching {error,{options,{dhfile,"/etc/guam/dh_2048.pem",{error,enoent}}}} in kolab_guam_session:accept_client/1 line 183
+2021-06-06 01:03:16.836 [error] <0.311.0>@kolab_guam_session:accept_client:183 CRASH REPORT Process <0.311.0> with 0 neighbours crashed with reason: no case clause matching {error,{options,{dhfile,"/etc/guam/dh_2048.pem",{error,enoent}}}} in kolab_guam_session:accept_client/1 line 183
+2021-06-06 01:03:16.836 [error] <0.303.0>@kolab_guam_session:accept_client:183 Supervisor {<0.303.0>,kolab_guam_listener} had child session started with {kolab_guam_session,start_link,undefined} at <0.311.0> exit with reason no case clause matching {error,{options,{dhfile,"/etc/guam/dh_2048.pem",{error,enoent}}}} in kolab_guam_session:accept_client/1 line 183 in context child_terminated
+2021-06-06 01:05:06.205 [debug] <0.269.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 01:05:06.205 [debug] <0.272.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 01:05:06.208 [debug] <0.278.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 01:05:06.338 [info] <0.289.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 01:05:06.338 [info] <0.289.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 01:05:06.338 [debug] <0.290.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 01:05:06.340 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 01:05:06.340 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:05:06.340 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:05:06.340 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 01:05:06.340 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none},{versions,['tlsv1.2','tlsv1.1',tlsv1]},{fail_if_no_peer_cert,false},{honor_cipher_order,true},{ciphers,["ECDHE-ECDSA-AES256-GCM-SHA384","ECDHE-RSA-AES256-GCM-SHA384","ECDHE-ECDSA-AES256-SHA384","ECDHE-RSA-AES256-SHA384","ECDHE-ECDSA-DES-CBC3-SHA","ECDH-ECDSA-AES256-GCM-SHA384","ECDH-RSA-AES256-GCM-SHA384","ECDH-ECDSA-AES256-SHA384","ECDH-RSA-AES256-SHA384","DHE-DSS-AES256-GCM-SHA384","DHE-DSS-AES256-SHA256","AES256-GCM-SHA384","AES256-SHA256","ECDHE-ECDSA-AES128-GCM-SHA256","ECDHE-RSA-AES128-GCM-SHA256","ECDHE-ECDSA-AES128-SHA256","ECDHE-RSA-AES128-SHA256","ECDH-ECDSA-AES128-GCM-SHA256","ECDH-RSA-AES128-GCM-SHA256","ECDH-ECDSA-AES128-SHA256","ECDH-RSA-AES128-SHA256","DHE-DSS-AES128-GCM-SHA256","DHE-DSS-AES128-SHA256","AES128-GCM-SHA256","AES128-SHA256","ECDHE-ECDSA-AES256-SHA","ECDHE-RSA-AES256-SHA","DHE-DSS-AES256-SHA","ECDH-ECDSA-AES256-SHA","ECDH-RSA-AES256-SHA","AES256-SHA","ECDHE-ECDSA-AES128-SHA","ECDHE-RSA-AES128-SHA","DHE-DSS-AES128-SHA","ECDH-ECDSA-AES128-SHA","ECDH-RSA-AES128-SHA","AES128-SHA"]},{client_renegotiation,false},{secure_renegotiate,true}]}]
+2021-06-06 01:05:06.340 [debug] <0.290.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none},{versions,['tlsv1.2','tlsv1.1',tlsv1]},{fail_if_no_peer_cert,false},{honor_cipher_order,true},{ciphers,["ECDHE-ECDSA-AES256-GCM-SHA384","ECDHE-RSA-AES256-GCM-SHA384","ECDHE-ECDSA-AES256-SHA384","ECDHE-RSA-AES256-SHA384","ECDHE-ECDSA-DES-CBC3-SHA","ECDH-ECDSA-AES256-GCM-SHA384","ECDH-RSA-AES256-GCM-SHA384","ECDH-ECDSA-AES256-SHA384","ECDH-RSA-AES256-SHA384","DHE-DSS-AES256-GCM-SHA384","DHE-DSS-AES256-SHA256","AES256-GCM-SHA384","AES256-SHA256","ECDHE-ECDSA-AES128-GCM-SHA256","ECDHE-RSA-AES128-GCM-SHA256","ECDHE-ECDSA-AES128-SHA256","ECDHE-RSA-AES128-SHA256","ECDH-ECDSA-AES128-GCM-SHA256","ECDH-RSA-AES128-GCM-SHA256","ECDH-ECDSA-AES128-SHA256","ECDH-RSA-AES128-SHA256","DHE-DSS-AES128-GCM-SHA256","DHE-DSS-AES128-SHA256","AES128-GCM-SHA256","AES128-SHA256","ECDHE-ECDSA-AES256-SHA","ECDHE-RSA-AES256-SHA","DHE-DSS-AES256-SHA","ECDH-ECDSA-AES256-SHA","ECDH-RSA-AES256-SHA","AES256-SHA","ECDHE-ECDSA-AES128-SHA","ECDHE-RSA-AES128-SHA","DHE-DSS-AES128-SHA","ECDH-ECDSA-AES128-SHA","ECDH-RSA-AES128-SHA","AES128-SHA"]},{client_renegotiation,false},{secure_renegotiate,true}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 01:05:06.341 [info] <0.291.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:05:06.346 [debug] <0.291.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:05:06.346 [debug] <0.293.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.291.0>
+2021-06-06 01:05:06.346 [info] <0.294.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:05:06.346 [debug] <0.294.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:05:06.346 [debug] <0.296.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.294.0>
+2021-06-06 01:05:06.346 [info] <0.297.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:05:06.346 [debug] <0.297.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 01:05:06.346 [debug] <0.299.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.297.0>
+2021-06-06 01:05:06.346 [info] <0.300.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:05:06.346 [debug] <0.300.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 01:05:06.346 [debug] <0.302.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.300.0>
+2021-06-06 01:05:06.346 [info] <0.303.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 01:05:06.346 [debug] <0.303.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 01:05:06.346 [debug] <0.305.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.303.0>
+2021-06-06 01:05:06.695 [debug] <0.265.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 01:06:28.582 [debug] <0.272.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 01:06:28.582 [debug] <0.269.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 01:06:28.585 [debug] <0.278.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 01:06:28.719 [info] <0.289.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 01:06:28.719 [info] <0.289.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 01:06:28.720 [debug] <0.290.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 01:06:28.721 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 01:06:28.721 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:06:28.721 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:06:28.721 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 01:06:28.721 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]
+2021-06-06 01:06:28.722 [debug] <0.290.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 01:06:28.722 [info] <0.291.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:06:28.727 [debug] <0.291.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:06:28.727 [debug] <0.293.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.291.0>
+2021-06-06 01:06:28.727 [info] <0.294.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:06:28.727 [debug] <0.294.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:06:28.727 [debug] <0.296.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.294.0>
+2021-06-06 01:06:28.727 [info] <0.297.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:06:28.727 [debug] <0.297.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 01:06:28.727 [debug] <0.299.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.297.0>
+2021-06-06 01:06:28.727 [info] <0.300.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:06:28.727 [debug] <0.300.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 01:06:28.727 [debug] <0.302.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.300.0>
+2021-06-06 01:06:28.727 [info] <0.303.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 01:06:28.728 [debug] <0.303.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 01:06:28.728 [debug] <0.305.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.303.0>
+2021-06-06 01:06:29.073 [debug] <0.265.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 01:06:32.878 [info] <0.311.0>@kolab_guam_session:accept_client:191 Socket closed or timed out during TLS handshake: closed
+2021-06-06 01:06:35.583 [warning] <0.348.0>@kolab_guam_session:accept_client:187 TLS handshake failed with a tls_alert: {bad_record_mac,"TLS server: In state wait_finished at tls_record_1_3.erl:204 generated SERVER ALERT: Fatal - Bad Record MAC\n {record_type_mismatch,21}"}
+2021-06-06 01:21:41.527 [debug] <0.269.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 01:21:41.527 [debug] <0.272.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 01:21:41.530 [debug] <0.278.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 01:21:41.686 [info] <0.289.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 01:21:41.686 [info] <0.289.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 01:21:41.686 [debug] <0.290.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 01:21:41.688 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 01:21:41.688 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:21:41.688 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:21:41.688 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 01:21:41.688 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]
+2021-06-06 01:21:41.688 [debug] <0.290.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 01:21:41.689 [info] <0.291.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:21:41.692 [debug] <0.291.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:21:41.692 [debug] <0.293.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.291.0>
+2021-06-06 01:21:41.692 [info] <0.294.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:21:41.692 [debug] <0.294.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:21:41.692 [debug] <0.296.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.294.0>
+2021-06-06 01:21:41.693 [info] <0.297.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:21:41.693 [debug] <0.297.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 01:21:41.693 [debug] <0.299.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.297.0>
+2021-06-06 01:21:41.693 [info] <0.300.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:21:41.693 [debug] <0.300.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 01:21:41.693 [debug] <0.302.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.300.0>
+2021-06-06 01:21:41.693 [info] <0.303.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 01:21:41.693 [debug] <0.303.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 01:21:41.693 [debug] <0.305.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.303.0>
+2021-06-06 01:21:42.019 [debug] <0.265.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 01:21:43.808 [warning] <0.310.0>@kolab_guam_session:accept_client:187 TLS handshake failed with a tls_alert: {bad_record_mac,"TLS server: In state wait_finished at tls_record_1_3.erl:204 generated SERVER ALERT: Fatal - Bad Record MAC\n {record_type_mismatch,21}"}
+2021-06-06 01:21:52.948 [warning] <0.348.0>@kolab_guam_session:accept_client:187 TLS handshake failed with a tls_alert: {bad_record_mac,"TLS server: In state wait_finished at tls_record_1_3.erl:204 generated SERVER ALERT: Fatal - Bad Record MAC\n {record_type_mismatch,21}"}
+2021-06-06 01:23:55.099 [debug] <0.269.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 01:23:55.099 [debug] <0.272.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 01:23:55.102 [debug] <0.278.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 01:23:55.228 [info] <0.289.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 01:23:55.228 [info] <0.289.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 01:23:55.229 [debug] <0.290.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 01:23:55.230 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 01:23:55.230 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:23:55.230 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:23:55.230 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 01:23:55.230 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]
+2021-06-06 01:23:55.230 [debug] <0.290.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 01:23:55.231 [info] <0.291.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:23:55.234 [debug] <0.291.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:23:55.234 [debug] <0.293.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.291.0>
+2021-06-06 01:23:55.234 [info] <0.294.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:23:55.234 [debug] <0.294.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:23:55.235 [debug] <0.296.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.294.0>
+2021-06-06 01:23:55.235 [info] <0.297.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:23:55.235 [debug] <0.297.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 01:23:55.235 [debug] <0.299.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.297.0>
+2021-06-06 01:23:55.235 [info] <0.300.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:23:55.235 [debug] <0.300.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 01:23:55.235 [debug] <0.302.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.300.0>
+2021-06-06 01:23:55.235 [info] <0.303.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 01:23:55.235 [debug] <0.303.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 01:23:55.235 [debug] <0.305.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.303.0>
+2021-06-06 01:23:55.590 [debug] <0.265.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 01:35:12.784 [info] <0.348.0>@kolab_guam_session:accept_client:191 Socket closed or timed out during TLS handshake: closed
+2021-06-06 01:35:19.718 [debug] <0.344.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN ">>
+2021-06-06 01:35:19.719 [debug] <0.344.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 01:35:19.719 [debug] <0.344.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 01:35:19.740 [error] <0.344.0>@prim_inet:peername gen_server <0.344.0> terminated with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.50>,tls_connection,[{session_id_tracker,<0.361.0>}]},[<0.381.0>,<0.380.0>]})
+2021-06-06 01:35:19.741 [error] <0.344.0>@prim_inet:peername CRASH REPORT Process <0.344.0> with 0 neighbours crashed with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.50>,tls_connection,[{session_id_tracker,<0.361.0>}]},[<0.381.0>,<0.380.0>]})
+2021-06-06 01:35:19.742 [error] <0.303.0>@prim_inet:peername Supervisor {<0.303.0>,kolab_guam_listener} had child session started with {kolab_guam_session,start_link,undefined} at <0.344.0> exit with reason no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.50>,tls_connection,[{session_id_tracker,<0.361.0>}]},[<0.381.0>,<0.380.0>]}) in context child_terminated
+2021-06-06 01:36:51.277 [debug] <0.277.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 01:36:51.277 [debug] <0.280.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 01:36:51.284 [debug] <0.286.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 01:36:51.315 [info] <0.297.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 01:36:51.315 [info] <0.297.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 01:36:51.315 [debug] <0.298.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 01:36:51.317 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 01:36:51.317 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:36:51.317 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:36:51.317 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 01:36:51.317 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]
+2021-06-06 01:36:51.317 [debug] <0.298.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 01:36:51.317 [info] <0.299.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:36:51.321 [debug] <0.299.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:36:51.321 [debug] <0.301.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.299.0>
+2021-06-06 01:36:51.321 [info] <0.302.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:36:51.322 [debug] <0.302.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:36:51.322 [debug] <0.304.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.302.0>
+2021-06-06 01:36:51.322 [info] <0.305.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:36:51.322 [debug] <0.305.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 01:36:51.322 [debug] <0.307.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.305.0>
+2021-06-06 01:36:51.322 [info] <0.308.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:36:51.322 [debug] <0.308.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 01:36:51.322 [debug] <0.310.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.308.0>
+2021-06-06 01:36:51.322 [info] <0.311.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 01:36:51.322 [debug] <0.311.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 01:36:51.322 [debug] <0.313.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.311.0>
+2021-06-06 01:36:51.758 [debug] <0.273.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 01:37:09.672 [info] <0.318.0>@kolab_guam_session:accept_client:191 Socket closed or timed out during TLS handshake: closed
+2021-06-06 01:37:11.473 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 01:37:11.473 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org">>
+2021-06-06 01:37:11.474 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 01:37:11.474 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 01:37:11.486 [error] <0.356.0>@prim_inet:peername gen_server <0.356.0> terminated with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.374.0>,<0.373.0>]})
+2021-06-06 01:37:11.486 [error] <0.356.0>@prim_inet:peername CRASH REPORT Process <0.356.0> with 0 neighbours crashed with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.374.0>,<0.373.0>]})
+2021-06-06 01:37:11.487 [error] <0.311.0>@prim_inet:peername Supervisor {<0.311.0>,kolab_guam_listener} had child session started with {kolab_guam_session,start_link,undefined} at <0.356.0> exit with reason no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.374.0>,<0.373.0>]}) in context child_terminated
+2021-06-06 01:37:22.120 [debug] <0.272.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 01:37:22.120 [debug] <0.269.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 01:37:22.122 [debug] <0.278.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 01:37:22.283 [info] <0.289.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 01:37:22.283 [info] <0.289.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 01:37:22.283 [debug] <0.290.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 01:37:22.285 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 01:37:22.285 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:37:22.285 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:37:22.285 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 01:37:22.285 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]
+2021-06-06 01:37:22.285 [debug] <0.290.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 01:37:22.286 [info] <0.291.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:37:22.290 [debug] <0.291.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:37:22.290 [debug] <0.293.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.291.0>
+2021-06-06 01:37:22.290 [info] <0.294.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:37:22.291 [debug] <0.294.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:37:22.291 [debug] <0.296.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.294.0>
+2021-06-06 01:37:22.291 [info] <0.297.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:37:22.291 [debug] <0.297.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 01:37:22.291 [debug] <0.299.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.297.0>
+2021-06-06 01:37:22.291 [info] <0.300.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:37:22.291 [debug] <0.300.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 01:37:22.291 [debug] <0.302.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.300.0>
+2021-06-06 01:37:22.291 [info] <0.303.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 01:37:22.291 [debug] <0.303.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 01:37:22.291 [debug] <0.305.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.303.0>
+2021-06-06 01:37:22.611 [debug] <0.265.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 01:37:25.995 [debug] <0.311.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 01:37:25.996 [debug] <0.311.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN ">>
+2021-06-06 01:37:25.996 [debug] <0.311.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 01:37:25.996 [debug] <0.311.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 01:37:26.008 [error] <0.311.0>@prim_inet:peername gen_server <0.311.0> terminated with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.359.0>}]},[<0.361.0>,<0.360.0>]})
+2021-06-06 01:37:26.009 [error] <0.311.0>@prim_inet:peername CRASH REPORT Process <0.311.0> with 0 neighbours crashed with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.359.0>}]},[<0.361.0>,<0.360.0>]})
+2021-06-06 01:37:26.009 [error] <0.303.0>@prim_inet:peername Supervisor {<0.303.0>,kolab_guam_listener} had child session started with {kolab_guam_session,start_link,undefined} at <0.311.0> exit with reason no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.359.0>}]},[<0.361.0>,<0.360.0>]}) in context child_terminated
+2021-06-06 01:37:47.145 [debug] <0.280.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 01:37:47.145 [debug] <0.277.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 01:37:47.148 [debug] <0.286.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 01:37:47.170 [info] <0.297.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 01:37:47.170 [info] <0.297.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 01:37:47.171 [debug] <0.298.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 01:37:47.172 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 01:37:47.172 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:37:47.172 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:37:47.172 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 01:37:47.172 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]
+2021-06-06 01:37:47.172 [debug] <0.298.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 01:37:47.173 [info] <0.299.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:37:47.176 [debug] <0.299.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:37:47.177 [debug] <0.301.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.299.0>
+2021-06-06 01:37:47.177 [info] <0.302.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:37:47.177 [debug] <0.302.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:37:47.177 [debug] <0.304.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.302.0>
+2021-06-06 01:37:47.177 [info] <0.305.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:37:47.177 [debug] <0.305.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 01:37:47.177 [debug] <0.307.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.305.0>
+2021-06-06 01:37:47.177 [info] <0.308.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:37:47.177 [debug] <0.308.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 01:37:47.177 [debug] <0.310.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.308.0>
+2021-06-06 01:37:47.177 [info] <0.311.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 01:37:47.177 [debug] <0.311.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 01:37:47.177 [debug] <0.313.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.311.0>
+2021-06-06 01:37:47.633 [debug] <0.273.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 01:37:50.788 [debug] <0.318.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 01:37:50.788 [debug] <0.318.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org">>
+2021-06-06 01:37:50.788 [debug] <0.318.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 01:37:50.789 [debug] <0.318.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 01:37:50.880 [debug] <0.318.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-9745-1622936270-1-16274970311341956971>\r\n">>
+2021-06-06 01:37:50.880 [info] <0.318.0>@kolab_guam_rule_audit:apply_to_server_message:60 LOGIN ATTEMPT: <<"test1@kolab.org">> from "::1", OK
+2021-06-06 01:46:05.721 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 01:46:05.722 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN ">>
+2021-06-06 01:46:05.723 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 01:46:05.723 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems">>
+2021-06-06 01:46:05.723 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 01:46:05.801 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-13642-1622936765-1-14830788704462067159>\r\n">>
+2021-06-06 01:46:05.801 [info] <0.356.0>@kolab_guam_rule_audit:apply_to_server_message:60 LOGIN ATTEMPT: <<"test1@kolab.org">> from "::1", OK
+2021-06-06 01:46:44.865 [debug] <0.280.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 01:46:44.865 [debug] <0.277.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 01:46:44.868 [debug] <0.286.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 01:46:44.890 [info] <0.297.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 01:46:44.890 [info] <0.297.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 01:46:44.890 [debug] <0.298.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 01:46:44.892 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 01:46:44.892 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:46:44.892 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:46:44.892 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 01:46:44.892 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]
+2021-06-06 01:46:44.892 [debug] <0.298.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 01:46:44.893 [info] <0.299.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:46:44.896 [debug] <0.299.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:46:44.896 [debug] <0.301.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.299.0>
+2021-06-06 01:46:44.896 [info] <0.302.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:46:44.896 [debug] <0.302.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:46:44.896 [debug] <0.304.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.302.0>
+2021-06-06 01:46:44.896 [info] <0.305.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:46:44.897 [debug] <0.305.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 01:46:44.897 [debug] <0.307.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.305.0>
+2021-06-06 01:46:44.897 [info] <0.308.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:46:44.897 [debug] <0.308.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 01:46:44.897 [debug] <0.310.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.308.0>
+2021-06-06 01:46:44.897 [info] <0.311.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 01:46:44.897 [debug] <0.311.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 01:46:44.897 [debug] <0.313.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.311.0>
+2021-06-06 01:46:45.356 [debug] <0.273.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 01:46:48.455 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 01:46:48.456 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN ">>
+2021-06-06 01:46:48.456 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 01:46:48.457 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 01:46:48.599 [debug] <0.319.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-3647-1622936808-1-6141913757394841297>\r\n">>
+2021-06-06 01:46:48.599 [info] <0.319.0>@kolab_guam_rule_audit:apply_to_server_message:61 LOGIN ATTEMPT: test1@kolab.org from ::1, OK
+2021-06-06 01:52:40.676 [debug] <0.277.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 01:52:40.676 [debug] <0.280.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 01:52:40.679 [debug] <0.286.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 01:52:40.699 [info] <0.297.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 01:52:40.699 [info] <0.297.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 01:52:40.700 [debug] <0.298.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 01:52:40.701 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 01:52:40.701 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:52:40.701 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:52:40.701 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 01:52:40.701 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]
+2021-06-06 01:52:40.702 [debug] <0.298.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 01:52:40.702 [info] <0.299.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:52:40.705 [debug] <0.299.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:52:40.705 [debug] <0.301.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.299.0>
+2021-06-06 01:52:40.705 [info] <0.302.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:52:40.705 [debug] <0.302.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:52:40.705 [debug] <0.304.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.302.0>
+2021-06-06 01:52:40.705 [info] <0.305.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:52:40.705 [debug] <0.305.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 01:52:40.705 [debug] <0.307.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.305.0>
+2021-06-06 01:52:40.705 [info] <0.308.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:52:40.705 [debug] <0.308.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 01:52:40.705 [debug] <0.310.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.308.0>
+2021-06-06 01:52:40.705 [info] <0.311.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:52:40.705 [debug] <0.311.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 01:52:40.705 [debug] <0.313.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.311.0>
+2021-06-06 01:52:41.167 [debug] <0.273.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 01:52:43.623 [debug] <0.363.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 01:52:43.623 [debug] <0.363.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 01:52:43.624 [debug] <0.363.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 01:52:43.763 [debug] <0.363.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-2213-1622937163-1-5551775169305969750>\r\n">>
+2021-06-06 01:53:16.525 [debug] <0.269.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 01:53:16.525 [debug] <0.272.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 01:53:16.528 [debug] <0.278.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 01:53:16.662 [info] <0.289.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 01:53:16.662 [info] <0.289.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 01:53:16.663 [debug] <0.290.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 01:53:16.664 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 01:53:16.664 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:53:16.664 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:53:16.664 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 01:53:16.664 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]
+2021-06-06 01:53:16.664 [debug] <0.290.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 01:53:16.665 [info] <0.291.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:53:16.668 [debug] <0.291.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:53:16.668 [debug] <0.293.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.291.0>
+2021-06-06 01:53:16.668 [info] <0.294.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:53:16.668 [debug] <0.294.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:53:16.668 [debug] <0.296.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.294.0>
+2021-06-06 01:53:16.668 [info] <0.297.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:53:16.668 [debug] <0.297.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 01:53:16.668 [debug] <0.299.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.297.0>
+2021-06-06 01:53:16.668 [info] <0.300.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:53:16.668 [debug] <0.300.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 01:53:16.668 [debug] <0.302.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.300.0>
+2021-06-06 01:53:16.668 [info] <0.303.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 01:53:16.669 [debug] <0.303.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 01:53:16.669 [debug] <0.305.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.303.0>
+2021-06-06 01:53:17.017 [debug] <0.265.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 01:53:19.219 [debug] <0.310.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN ">>
+2021-06-06 01:53:19.220 [debug] <0.310.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org">>
+2021-06-06 01:53:19.220 [debug] <0.310.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 01:53:19.220 [debug] <0.310.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 01:53:19.339 [debug] <0.310.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-14836-1622937199-1-4759013212092256815>\r\n">>
+2021-06-06 01:53:19.339 [info] <0.310.0>@kolab_guam_rule_audit:apply_to_server_message:61 login: test1@kolab.org from ::1, OK
+2021-06-06 01:53:33.834 [debug] <0.277.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 01:53:33.834 [debug] <0.280.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 01:53:33.837 [debug] <0.286.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 01:53:33.860 [info] <0.297.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 01:53:33.860 [info] <0.297.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 01:53:33.860 [debug] <0.298.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 01:53:33.862 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 01:53:33.862 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:53:33.862 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:53:33.862 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 01:53:33.862 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]
+2021-06-06 01:53:33.862 [debug] <0.298.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 01:53:33.863 [info] <0.299.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:53:33.868 [debug] <0.299.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:53:33.868 [debug] <0.301.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.299.0>
+2021-06-06 01:53:33.868 [info] <0.302.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:53:33.868 [debug] <0.302.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:53:33.868 [debug] <0.304.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.302.0>
+2021-06-06 01:53:33.868 [info] <0.305.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:53:33.868 [debug] <0.305.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 01:53:33.868 [debug] <0.307.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.305.0>
+2021-06-06 01:53:33.868 [info] <0.308.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:53:33.868 [debug] <0.308.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 01:53:33.868 [debug] <0.310.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.308.0>
+2021-06-06 01:53:33.868 [info] <0.311.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 01:53:33.868 [debug] <0.311.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 01:53:33.868 [debug] <0.313.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.311.0>
+2021-06-06 01:53:34.325 [debug] <0.273.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 01:53:37.273 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 01:53:37.273 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN ">>
+2021-06-06 01:53:37.273 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 01:53:37.273 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 01:53:37.287 [error] <0.319.0>@prim_inet:peername gen_server <0.319.0> terminated with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]})
+2021-06-06 01:53:37.288 [error] <0.319.0>@prim_inet:peername CRASH REPORT Process <0.319.0> with 0 neighbours crashed with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]})
+2021-06-06 01:53:37.289 [error] <0.311.0>@prim_inet:peername Supervisor {<0.311.0>,kolab_guam_listener} had child session started with {kolab_guam_session,start_link,undefined} at <0.319.0> exit with reason no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]}) in context child_terminated
+2021-06-06 01:55:16.523 [debug] <0.280.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 01:55:16.523 [debug] <0.277.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 01:55:16.526 [debug] <0.286.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 01:55:16.550 [info] <0.297.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 01:55:16.550 [info] <0.297.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 01:55:16.551 [debug] <0.298.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 01:55:16.553 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 01:55:16.553 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:55:16.553 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:55:16.553 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 01:55:16.553 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]
+2021-06-06 01:55:16.553 [debug] <0.298.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 01:55:16.554 [info] <0.299.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:55:16.557 [debug] <0.299.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:55:16.557 [debug] <0.301.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.299.0>
+2021-06-06 01:55:16.557 [info] <0.302.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:55:16.557 [debug] <0.302.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:55:16.557 [debug] <0.304.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.302.0>
+2021-06-06 01:55:16.557 [info] <0.305.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:55:16.557 [debug] <0.305.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 01:55:16.557 [debug] <0.307.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.305.0>
+2021-06-06 01:55:16.557 [info] <0.308.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:55:16.557 [debug] <0.308.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 01:55:16.557 [debug] <0.310.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.308.0>
+2021-06-06 01:55:16.558 [info] <0.311.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:55:16.558 [debug] <0.311.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 01:55:16.558 [debug] <0.313.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.311.0>
+2021-06-06 01:55:17.012 [debug] <0.273.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 01:55:19.366 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN ">>
+2021-06-06 01:55:19.366 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org">>
+2021-06-06 01:55:19.366 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 01:55:19.366 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems">>
+2021-06-06 01:55:19.367 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 01:55:19.460 [debug] <0.319.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-30887-1622937319-1-15243673130380453827>\r\n">>
+2021-06-06 01:55:55.179 [debug] <0.321.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 01:55:55.180 [debug] <0.321.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN ">>
+2021-06-06 01:55:55.180 [debug] <0.321.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 01:55:55.180 [debug] <0.321.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 01:55:55.355 [debug] <0.321.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-31014-1622937355-1-12867967673134450740>\r\n">>
+2021-06-06 01:56:26.758 [debug] <0.325.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 01:56:26.758 [debug] <0.325.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org">>
+2021-06-06 01:56:26.759 [debug] <0.325.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems">>
+2021-06-06 01:56:26.759 [debug] <0.325.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 01:56:26.871 [debug] <0.325.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-31014-1622937386-1-1867435403709431787>\r\n">>
+2021-06-06 01:56:31.618 [debug] <0.277.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 01:56:31.618 [debug] <0.280.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 01:56:31.621 [debug] <0.286.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 01:56:31.641 [info] <0.297.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 01:56:31.641 [info] <0.297.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 01:56:31.642 [debug] <0.298.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 01:56:31.643 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 01:56:31.643 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:56:31.643 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 01:56:31.643 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 01:56:31.643 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]
+2021-06-06 01:56:31.643 [debug] <0.298.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 01:56:31.644 [info] <0.299.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:56:31.647 [debug] <0.299.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:56:31.647 [debug] <0.301.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.299.0>
+2021-06-06 01:56:31.647 [info] <0.302.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:56:31.647 [debug] <0.302.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 01:56:31.647 [debug] <0.304.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.302.0>
+2021-06-06 01:56:31.647 [info] <0.305.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:56:31.647 [debug] <0.305.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 01:56:31.647 [debug] <0.307.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.305.0>
+2021-06-06 01:56:31.647 [info] <0.308.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 01:56:31.647 [debug] <0.308.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 01:56:31.647 [debug] <0.310.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.308.0>
+2021-06-06 01:56:31.647 [info] <0.311.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 01:56:31.647 [debug] <0.311.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 01:56:31.647 [debug] <0.313.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.311.0>
+2021-06-06 01:56:32.109 [debug] <0.273.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 01:56:33.651 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 01:56:33.652 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN ">>
+2021-06-06 01:56:33.652 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org">>
+2021-06-06 01:56:33.652 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 01:56:33.652 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems">>
+2021-06-06 01:56:33.653 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 01:56:33.668 [error] <0.319.0>@prim_inet:peername gen_server <0.319.0> terminated with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]})
+2021-06-06 01:56:33.669 [error] <0.319.0>@prim_inet:peername CRASH REPORT Process <0.319.0> with 0 neighbours crashed with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]})
+2021-06-06 01:56:33.669 [error] <0.311.0>@prim_inet:peername Supervisor {<0.311.0>,kolab_guam_listener} had child session started with {kolab_guam_session,start_link,undefined} at <0.319.0> exit with reason no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]}) in context child_terminated
+2021-06-06 01:57:06.956 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 01:57:06.956 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org">>
+2021-06-06 01:57:06.957 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 01:57:06.958 [error] <0.356.0>@prim_inet:peername gen_server <0.356.0> terminated with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.48>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.381.0>,<0.380.0>]})
+2021-06-06 01:57:06.958 [error] <0.356.0>@prim_inet:peername CRASH REPORT Process <0.356.0> with 0 neighbours crashed with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.48>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.381.0>,<0.380.0>]})
+2021-06-06 01:57:06.959 [error] <0.311.0>@prim_inet:peername Supervisor {<0.311.0>,kolab_guam_listener} had child session started with {kolab_guam_session,start_link,undefined} at <0.356.0> exit with reason no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.48>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.381.0>,<0.380.0>]}) in context child_terminated
+2021-06-06 02:04:13.471 [debug] <0.277.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 02:04:13.471 [debug] <0.280.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 02:04:13.474 [debug] <0.286.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 02:04:13.496 [info] <0.297.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 02:04:13.496 [info] <0.297.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 02:04:13.497 [debug] <0.298.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 02:04:13.500 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 02:04:13.500 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 02:04:13.500 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 02:04:13.500 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 02:04:13.500 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]
+2021-06-06 02:04:13.500 [debug] <0.298.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 02:04:13.501 [info] <0.299.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:04:13.505 [debug] <0.299.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 02:04:13.505 [debug] <0.301.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.299.0>
+2021-06-06 02:04:13.505 [info] <0.302.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:04:13.505 [debug] <0.302.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 02:04:13.505 [debug] <0.304.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.302.0>
+2021-06-06 02:04:13.505 [info] <0.305.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:04:13.505 [debug] <0.305.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 02:04:13.505 [debug] <0.307.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.305.0>
+2021-06-06 02:04:13.505 [info] <0.308.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:04:13.505 [debug] <0.308.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 02:04:13.505 [debug] <0.310.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.308.0>
+2021-06-06 02:04:13.505 [info] <0.311.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 02:04:13.505 [debug] <0.311.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 02:04:13.505 [debug] <0.313.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.311.0>
+2021-06-06 02:04:13.962 [debug] <0.273.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 02:04:18.100 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 02:04:18.101 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN ">>
+2021-06-06 02:04:18.101 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 02:04:18.101 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 02:04:18.251 [debug] <0.319.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-12662-1622937857-1-9627416330388770128>\r\n">>
+2021-06-06 02:04:18.251 [info] <0.319.0>@kolab_guam_rule_audit:apply_to_server_message:64 login: test1@kolab.org from ::1, OK
+2021-06-06 02:04:38.894 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 02:04:38.895 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 02:04:38.895 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 02:04:39.082 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-31041-1622937878-1-16619715165270304583>\r\n">>
+2021-06-06 02:04:39.083 [info] <0.356.0>@kolab_guam_rule_audit:apply_to_server_message:64 login: test1@kolab.org from ::1, OK
+2021-06-06 02:04:42.185 [debug] <0.277.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 02:04:42.185 [debug] <0.280.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 02:04:42.187 [debug] <0.286.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 02:04:42.208 [info] <0.297.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 02:04:42.208 [info] <0.297.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 02:04:42.209 [debug] <0.298.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 02:04:42.210 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 02:04:42.210 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 02:04:42.210 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 02:04:42.210 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 02:04:42.210 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]
+2021-06-06 02:04:42.210 [debug] <0.298.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 02:04:42.211 [info] <0.299.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:04:42.215 [debug] <0.299.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 02:04:42.215 [debug] <0.301.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.299.0>
+2021-06-06 02:04:42.215 [info] <0.302.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:04:42.215 [debug] <0.302.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 02:04:42.215 [debug] <0.304.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.302.0>
+2021-06-06 02:04:42.215 [info] <0.305.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:04:42.215 [debug] <0.305.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 02:04:42.216 [debug] <0.307.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.305.0>
+2021-06-06 02:04:42.216 [info] <0.308.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:04:42.216 [debug] <0.308.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 02:04:42.216 [debug] <0.310.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.308.0>
+2021-06-06 02:04:42.216 [info] <0.311.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 02:04:42.216 [debug] <0.311.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 02:04:42.216 [debug] <0.313.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.311.0>
+2021-06-06 02:04:42.675 [debug] <0.273.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 02:04:45.045 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 02:04:45.045 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 02:04:45.046 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 02:04:45.180 [debug] <0.319.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-5328-1622937884-1-17530294441466890163>\r\n">>
+2021-06-06 02:04:45.180 [info] <0.319.0>@kolab_guam_rule_audit:apply_to_server_message:64 login: test1@kolab.org from ::1, OK
+2021-06-06 02:06:21.873 [debug] <0.277.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 02:06:21.873 [debug] <0.280.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 02:06:21.876 [debug] <0.286.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 02:06:21.896 [info] <0.297.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 02:06:21.896 [info] <0.297.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 02:06:21.897 [debug] <0.298.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 02:06:21.898 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 02:06:21.898 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 02:06:21.898 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 02:06:21.898 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 02:06:21.898 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]
+2021-06-06 02:06:21.898 [debug] <0.298.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 02:06:21.899 [info] <0.299.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:06:21.903 [debug] <0.299.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 02:06:21.903 [debug] <0.301.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.299.0>
+2021-06-06 02:06:21.903 [info] <0.302.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:06:21.903 [debug] <0.302.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 02:06:21.903 [debug] <0.304.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.302.0>
+2021-06-06 02:06:21.903 [info] <0.305.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:06:21.903 [debug] <0.305.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 02:06:21.903 [debug] <0.307.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.305.0>
+2021-06-06 02:06:21.903 [info] <0.308.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:06:21.903 [debug] <0.308.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 02:06:21.903 [debug] <0.310.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.308.0>
+2021-06-06 02:06:21.903 [info] <0.311.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 02:06:21.903 [debug] <0.311.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 02:06:21.903 [debug] <0.313.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.311.0>
+2021-06-06 02:06:22.364 [debug] <0.273.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 02:06:24.188 [debug] <0.318.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 02:06:24.188 [debug] <0.318.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 02:06:24.189 [debug] <0.318.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 02:06:24.329 [debug] <0.318.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-5328-1622937984-1-16013082916292678165>\r\n">>
+2021-06-06 02:06:24.330 [info] <0.318.0>@kolab_guam_rule_audit:apply_to_server_message:64 login: test1@kolab.org from ::1, OK
+2021-06-06 02:06:56.247 [debug] <0.280.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 02:06:56.247 [debug] <0.277.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 02:06:56.250 [debug] <0.286.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 02:06:56.272 [info] <0.297.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 02:06:56.272 [info] <0.297.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 02:06:56.273 [debug] <0.298.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 02:06:56.275 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 02:06:56.275 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 02:06:56.275 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 02:06:56.275 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 02:06:56.275 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]
+2021-06-06 02:06:56.275 [debug] <0.298.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 02:06:56.275 [info] <0.299.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:06:56.280 [debug] <0.299.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 02:06:56.280 [debug] <0.301.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.299.0>
+2021-06-06 02:06:56.280 [info] <0.302.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:06:56.280 [debug] <0.302.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 02:06:56.280 [debug] <0.304.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.302.0>
+2021-06-06 02:06:56.280 [info] <0.305.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:06:56.280 [debug] <0.305.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 02:06:56.280 [debug] <0.307.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.305.0>
+2021-06-06 02:06:56.280 [info] <0.308.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:06:56.280 [debug] <0.308.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 02:06:56.280 [debug] <0.310.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.308.0>
+2021-06-06 02:06:56.280 [info] <0.311.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 02:06:56.280 [debug] <0.311.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 02:06:56.280 [debug] <0.313.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.311.0>
+2021-06-06 02:06:56.738 [debug] <0.273.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 02:07:01.130 [debug] <0.318.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 02:07:01.130 [debug] <0.318.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN ">>
+2021-06-06 02:07:01.131 [debug] <0.318.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 02:07:01.131 [debug] <0.318.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 02:07:01.257 [debug] <0.318.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-1236-1622938021-1-16956423809719628425>\r\n">>
+2021-06-06 02:07:01.257 [info] <0.318.0>@kolab_guam_rule_audit:extract_username:98 FORMAT ERROR: "~p" [<<"RUBY0001">>,<<"LOGIN">>,<<"test1@kolab.org">>,<<"Welcome2KolabSystems\r\n">>]
+2021-06-06 02:07:01.257 [info] <0.318.0>@kolab_guam_rule_audit:apply_to_server_message:64 login: test1@kolab.org from ::1, OK
+2021-06-06 02:08:04.996 [debug] <0.280.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 02:08:04.996 [debug] <0.277.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 02:08:04.999 [debug] <0.286.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 02:08:05.022 [info] <0.297.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 02:08:05.022 [info] <0.297.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 02:08:05.023 [debug] <0.298.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 02:08:05.024 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 02:08:05.024 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 02:08:05.024 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 02:08:05.024 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 02:08:05.024 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]
+2021-06-06 02:08:05.025 [debug] <0.298.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 02:08:05.025 [info] <0.299.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:08:05.029 [debug] <0.299.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 02:08:05.029 [debug] <0.301.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.299.0>
+2021-06-06 02:08:05.029 [info] <0.302.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:08:05.029 [debug] <0.302.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 02:08:05.029 [debug] <0.304.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.302.0>
+2021-06-06 02:08:05.029 [info] <0.305.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:08:05.029 [debug] <0.305.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 02:08:05.029 [debug] <0.307.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.305.0>
+2021-06-06 02:08:05.029 [info] <0.308.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:08:05.029 [debug] <0.308.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 02:08:05.029 [debug] <0.310.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.308.0>
+2021-06-06 02:08:05.030 [info] <0.311.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 02:08:05.030 [debug] <0.311.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 02:08:05.030 [debug] <0.313.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.311.0>
+2021-06-06 02:08:05.488 [debug] <0.273.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 02:08:07.556 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 02:08:07.557 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN ">>
+2021-06-06 02:08:07.557 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org">>
+2021-06-06 02:08:07.557 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems">>
+2021-06-06 02:08:07.557 [debug] <0.319.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 02:08:07.777 [debug] <0.319.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-13684-1622938087-1-9454287488598061142>\r\n">>
+2021-06-06 02:08:07.777 [info] <0.319.0>@kolab_guam_rule_audit:extract_username:98 <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 02:08:07.790 [error] <0.319.0>@lists:nth:170 gen_server <0.319.0> terminated with reason: no function clause matching lists:nth(2, []) line 170
+2021-06-06 02:08:07.791 [error] <0.319.0>@lists:nth:170 CRASH REPORT Process <0.319.0> with 0 neighbours crashed with reason: no function clause matching lists:nth(2, []) line 170
+2021-06-06 02:08:07.791 [error] <0.311.0>@lists:nth:170 Supervisor {<0.311.0>,kolab_guam_listener} had child session started with {kolab_guam_session,start_link,undefined} at <0.319.0> exit with reason no function clause matching lists:nth(2, []) line 170 in context child_terminated
+2021-06-06 02:15:32.877 [debug] <0.277.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 02:15:32.877 [debug] <0.280.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 02:15:32.881 [debug] <0.286.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 02:15:32.904 [info] <0.297.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 02:15:32.904 [info] <0.297.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 02:15:32.905 [debug] <0.298.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 02:15:32.906 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 02:15:32.906 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 02:15:32.907 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 02:15:32.907 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 02:15:32.907 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]
+2021-06-06 02:15:32.907 [debug] <0.298.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 02:15:32.907 [info] <0.299.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:15:32.911 [debug] <0.299.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 02:15:32.911 [debug] <0.301.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.299.0>
+2021-06-06 02:15:32.912 [info] <0.302.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:15:32.912 [debug] <0.302.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 02:15:32.912 [debug] <0.304.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.302.0>
+2021-06-06 02:15:32.912 [info] <0.305.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:15:32.912 [debug] <0.305.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 02:15:32.912 [debug] <0.307.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.305.0>
+2021-06-06 02:15:32.912 [info] <0.308.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:15:32.912 [debug] <0.308.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 02:15:32.912 [debug] <0.310.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.308.0>
+2021-06-06 02:15:32.912 [info] <0.311.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 02:15:32.912 [debug] <0.311.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 02:15:32.912 [debug] <0.313.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.311.0>
+2021-06-06 02:15:33.368 [debug] <0.273.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 02:15:36.876 [debug] <0.317.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 02:15:36.876 [debug] <0.317.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org">>
+2021-06-06 02:15:36.877 [debug] <0.317.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems">>
+2021-06-06 02:15:36.877 [debug] <0.317.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 02:15:36.961 [debug] <0.317.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-15037-1622938536-1-17393187485653204320>\r\n">>
+2021-06-06 02:15:36.961 [info] <0.317.0>@kolab_guam_rule_audit:extract_username:99 FORMAT ERROR: "~p" [<<"RUBY0001">>,<<"LOGIN">>,<<"test1@kolab.org">>,<<"Welcome2KolabSystems\r\n">>]
+2021-06-06 02:15:36.961 [info] <0.317.0>@kolab_guam_rule_audit:apply_to_server_message:64 login: test1@kolab.org from ::1, OK
+2021-06-06 02:17:16.907 [debug] <0.269.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 02:17:16.907 [debug] <0.272.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 02:17:16.909 [debug] <0.278.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 02:17:17.042 [info] <0.289.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 02:17:17.042 [info] <0.289.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 02:17:17.042 [debug] <0.290.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 02:17:17.044 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 02:17:17.044 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 02:17:17.044 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 02:17:17.044 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 02:17:17.044 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,false},{rules,[{filter_groupware,[]},{audit,[]}]}]
+2021-06-06 02:17:17.044 [debug] <0.290.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,false},{rules,[{filter_groupware,[]},{audit,[]}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 02:17:17.045 [info] <0.291.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:17:17.047 [debug] <0.291.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 02:17:17.047 [debug] <0.293.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.291.0>
+2021-06-06 02:17:17.047 [info] <0.294.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:17:17.048 [debug] <0.294.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 02:17:17.048 [debug] <0.296.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.294.0>
+2021-06-06 02:17:17.048 [info] <0.297.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:17:17.048 [debug] <0.297.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 02:17:17.048 [debug] <0.299.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.297.0>
+2021-06-06 02:17:17.048 [info] <0.300.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 02:17:17.048 [debug] <0.300.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 02:17:17.048 [debug] <0.302.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.300.0>
+2021-06-06 02:17:17.048 [info] <0.303.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 02:17:17.048 [debug] <0.303.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 02:17:17.048 [debug] <0.305.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.303.0>
+2021-06-06 02:17:17.398 [debug] <0.265.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 02:17:19.557 [debug] <0.311.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<22,3,1,2,0,1,0,1,252,3,3,251,161,108,154,171,246,247,214,156,219,62,143,42,172,24,189,88,46,243,20,69,64,221,252,32,168,223,201,120,13,164,175,0,0,72,19,2,19,3,19,1,19,4,192,44,192,48,204,169,204,168,192,173,192,43,192,47,192,172,192,35,192,39,192,10,192,20,192,9,192,19,0,157,192,157,0,156,192,156,0,61,0,60,0,53,0,47,0,159,204,170,192,159,0,158,192,158,0,107,0,103,0,57,0,51,0,255,1,0,1,139,0,0,0,14,0,12,0,0,9,108,111,99,97,108,104,111,115,116,0,11,0,4,3,0,1,2,0,10,0,12,0,10,0,29,0,23,0,30,0,25,0,24,0,35,0,0,0,22,0,0,0,23,0,0,0,49,0,0,0,13,0,34,0,32,4,3,5,3,6,3,8,7,8,8,8,9,8,10,8,11,8,4,8,5,8,6,4,1,5,1,6,1,3,3,3,1,0,43,0,9,8,3,4,3,3,3,2,3,1,0,45,0,2,1,1,0,51,0,38,0,36,0,29,0,32,244,62,204,117,88,186,107,60,24,182,167,138,129,164,142,254,235,61,174,66,171,97,36,86,55,152,222,106,69,175,65,51,0,21,0,234,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0>>
+2021-06-06 02:17:45.523 [debug] <0.348.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 02:17:45.525 [debug] <0.348.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN ">>
+2021-06-06 02:17:45.525 [debug] <0.348.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 02:17:45.525 [debug] <0.348.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 02:17:45.731 [debug] <0.348.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-16628-1622938665-1-9711081009783572200>\r\n">>
+2021-06-06 02:17:45.731 [info] <0.348.0>@kolab_guam_rule_audit:extract_username:96 FORMAT ERROR: "~p" [<<"RUBY0001">>,<<"LOGIN">>,<<"test1@kolab.org">>,<<"Welcome2KolabSystems\r\n">>]
+2021-06-06 02:17:45.732 [info] <0.348.0>@kolab_guam_rule_audit:apply_to_server_message:61 login: test1@kolab.org from ::1, OK
+2021-06-06 02:18:05.639 [debug] <0.349.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 02:18:05.640 [debug] <0.349.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN ">>
+2021-06-06 02:18:05.640 [debug] <0.349.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 02:18:05.640 [debug] <0.349.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 02:18:05.725 [debug] <0.349.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-13655-1622938685-1-14765868409832375494>\r\n">>
+2021-06-06 02:18:05.725 [info] <0.349.0>@kolab_guam_rule_audit:extract_username:96 FORMAT ERROR: "~p" [<<"RUBY0001">>,<<"LOGIN">>,<<"test1@kolab.org">>,<<"Welcome2KolabSystems\r\n">>]
+2021-06-06 02:18:05.725 [info] <0.349.0>@kolab_guam_rule_audit:apply_to_server_message:61 login: test1@kolab.org from ::1, OK
+2021-06-06 13:04:26.889 [debug] <0.277.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 13:04:26.889 [debug] <0.280.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 13:04:26.893 [debug] <0.286.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 13:04:26.916 [info] <0.297.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 13:04:26.916 [info] <0.297.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 13:04:26.916 [debug] <0.298.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 13:04:26.918 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 13:04:26.918 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 13:04:26.918 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 13:04:26.918 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 13:04:26.918 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/guam/certs/localhost.cert"},{cacertfile,"/home/mollekopf/src/guam/certs/ca.cert"},{dhfile,"/home/mollekopf/src/guam/certs/dhparam4096.pem"},{verify,verify_none}]}]
+2021-06-06 13:04:26.918 [debug] <0.298.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/guam/certs/localhost.cert"},{cacertfile,"/home/mollekopf/src/guam/certs/ca.cert"},{dhfile,"/home/mollekopf/src/guam/certs/dhparam4096.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 13:04:26.919 [info] <0.299.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 13:04:26.922 [debug] <0.299.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 13:04:26.922 [debug] <0.301.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.299.0>
+2021-06-06 13:04:26.922 [info] <0.302.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 13:04:26.922 [debug] <0.302.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 13:04:26.923 [debug] <0.304.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.302.0>
+2021-06-06 13:04:26.923 [info] <0.305.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 13:04:26.923 [debug] <0.305.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 13:04:26.923 [debug] <0.307.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.305.0>
+2021-06-06 13:04:26.923 [info] <0.308.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 13:04:26.923 [debug] <0.308.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 13:04:26.923 [debug] <0.310.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.308.0>
+2021-06-06 13:04:26.923 [info] <0.311.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 13:04:26.923 [debug] <0.311.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 13:04:26.923 [debug] <0.313.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.311.0>
+2021-06-06 13:04:27.380 [debug] <0.273.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 13:04:34.775 [error] <0.316.0>@kolab_guam_session:accept_client:183 gen_server <0.316.0> terminated with reason: no case clause matching {error,{options,{keyfile,"/home/mollekopf/src/guam/certs/localhost.cert",[]}}} in kolab_guam_session:accept_client/1 line 183
+2021-06-06 13:04:34.775 [error] <0.316.0>@kolab_guam_session:accept_client:183 CRASH REPORT Process <0.316.0> with 0 neighbours crashed with reason: no case clause matching {error,{options,{keyfile,"/home/mollekopf/src/guam/certs/localhost.cert",[]}}} in kolab_guam_session:accept_client/1 line 183
+2021-06-06 13:04:34.775 [error] <0.311.0>@kolab_guam_session:accept_client:183 Supervisor {<0.311.0>,kolab_guam_listener} had child session started with {kolab_guam_session,start_link,undefined} at <0.316.0> exit with reason no case clause matching {error,{options,{keyfile,"/home/mollekopf/src/guam/certs/localhost.cert",[]}}} in kolab_guam_session:accept_client/1 line 183 in context child_terminated
+2021-06-06 13:05:24.629 [debug] <0.272.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 13:05:24.629 [debug] <0.269.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 13:05:24.632 [debug] <0.278.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 13:05:24.771 [info] <0.289.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 13:05:24.771 [info] <0.289.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 13:05:24.772 [debug] <0.290.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 13:05:24.773 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 13:05:24.773 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 13:05:24.773 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 13:05:24.773 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 13:05:24.773 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/guam/certs/localhost.cert"},{keyfile,"/home/mollekopf/src/guam/certs/localhost.key"},{cacertfile,"/home/mollekopf/src/guam/certs/ca.cert"},{dhfile,"/home/mollekopf/src/guam/certs/dhparam4096.pem"},{verify,verify_none}]}]
+2021-06-06 13:05:24.773 [debug] <0.290.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/guam/certs/localhost.cert"},{keyfile,"/home/mollekopf/src/guam/certs/localhost.key"},{cacertfile,"/home/mollekopf/src/guam/certs/ca.cert"},{dhfile,"/home/mollekopf/src/guam/certs/dhparam4096.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow]}]
+2021-06-06 13:05:24.774 [info] <0.291.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 13:05:24.777 [debug] <0.291.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 13:05:24.777 [debug] <0.293.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.291.0>
+2021-06-06 13:05:24.777 [info] <0.294.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 13:05:24.778 [debug] <0.294.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 13:05:24.778 [debug] <0.296.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.294.0>
+2021-06-06 13:05:24.778 [info] <0.297.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 13:05:24.778 [debug] <0.297.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 13:05:24.778 [debug] <0.299.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.297.0>
+2021-06-06 13:05:24.778 [info] <0.300.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 13:05:24.778 [debug] <0.300.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 13:05:24.778 [debug] <0.302.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.300.0>
+2021-06-06 13:05:24.778 [info] <0.303.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 13:05:24.778 [debug] <0.303.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 13:05:24.778 [debug] <0.305.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.303.0>
+2021-06-06 13:05:25.121 [debug] <0.265.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 13:05:27.324 [debug] <0.311.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 13:05:27.325 [debug] <0.311.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN ">>
+2021-06-06 13:05:27.325 [debug] <0.311.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 13:05:27.325 [debug] <0.311.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 13:05:27.647 [debug] <0.311.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-16294-1622977527-1-4439701004645130225>\r\n">>
+2021-06-06 13:05:27.647 [info] <0.311.0>@kolab_guam_rule_audit:extract_username:96 FORMAT ERROR: "~p" [<<"RUBY0001">>,<<"LOGIN">>,<<"test1@kolab.org">>,<<"Welcome2KolabSystems\r\n">>]
+2021-06-06 13:05:27.648 [info] <0.311.0>@kolab_guam_rule_audit:apply_to_server_message:61 login: test1@kolab.org from ::1, OK
+2021-06-06 13:13:29.116 [debug] <0.272.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-06 13:13:29.116 [debug] <0.269.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-06 13:13:29.119 [debug] <0.278.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-06 13:13:29.244 [info] <0.289.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-06 13:13:29.244 [info] <0.289.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-06 13:13:29.245 [debug] <0.290.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-06 13:13:29.247 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-06 13:13:29.247 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 13:13:29.247 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-06 13:13:29.247 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-06 13:13:29.247 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,false},{rules,[{filter_groupware,[]},{audit,[]}]}]
+2021-06-06 13:13:29.247 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow_tls" with [{port,1997},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/guam/certs/localhost.cert"},{keyfile,"/home/mollekopf/src/guam/certs/localhost.key"},{cacertfile,"/home/mollekopf/src/guam/certs/ca.cert"},{dhfile,"/home/mollekopf/src/guam/certs/dhparam4096.pem"},{verify,verify_none}]}]
+2021-06-06 13:13:29.247 [debug] <0.290.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,false},{rules,[{filter_groupware,[]},{audit,[]}]}]]},permanent,5000,supervisor,[kolabnow]},{kolabnow_tls,{kolab_guam_listener,start_link,[kolabnow_tls,[{port,1997},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/guam/certs/localhost.cert"},{keyfile,"/home/mollekopf/src/guam/certs/localhost.key"},{cacertfile,"/home/mollekopf/src/guam/certs/ca.cert"},{dhfile,"/home/mollekopf/src/guam/certs/dhparam4096.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow_tls]}]
+2021-06-06 13:13:29.249 [info] <0.291.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 13:13:29.252 [debug] <0.291.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 13:13:29.253 [debug] <0.293.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.291.0>
+2021-06-06 13:13:29.253 [info] <0.294.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 13:13:29.253 [debug] <0.294.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-06 13:13:29.253 [debug] <0.296.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.294.0>
+2021-06-06 13:13:29.253 [info] <0.297.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 13:13:29.253 [debug] <0.297.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-06 13:13:29.253 [debug] <0.299.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.297.0>
+2021-06-06 13:13:29.253 [info] <0.300.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-06 13:13:29.253 [debug] <0.300.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-06 13:13:29.253 [debug] <0.302.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.300.0>
+2021-06-06 13:13:29.253 [info] <0.303.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 13:13:29.253 [debug] <0.303.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 13:13:29.253 [debug] <0.305.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.303.0>
+2021-06-06 13:13:29.253 [info] <0.306.0>@kolab_guam_listener:init:45 Starting listener "kolabnow_tls" on port 1997 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-06 13:13:29.253 [debug] <0.306.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-06 13:13:29.253 [debug] <0.308.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.306.0>
+2021-06-06 13:13:29.608 [debug] <0.265.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-06 13:13:40.413 [debug] <0.315.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-06 13:13:40.414 [debug] <0.315.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN ">>
+2021-06-06 13:13:40.414 [debug] <0.315.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-06 13:13:40.414 [debug] <0.315.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-06 13:13:40.797 [debug] <0.315.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-19189-1622978020-1-15763054975417435893>\r\n">>
+2021-06-06 13:13:40.797 [info] <0.315.0>@kolab_guam_rule_audit:extract_username:96 FORMAT ERROR: "~p" [<<"RUBY0001">>,<<"LOGIN">>,<<"test1@kolab.org">>,<<"Welcome2KolabSystems\r\n">>]
+2021-06-06 13:13:40.797 [info] <0.315.0>@kolab_guam_rule_audit:apply_to_server_message:61 login: test1@kolab.org from ::1, OK
+2021-06-07 07:45:55.314 [debug] <0.272.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-07 07:45:55.314 [debug] <0.269.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-07 07:45:55.317 [debug] <0.278.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-07 07:45:55.447 [info] <0.289.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-07 07:45:55.447 [info] <0.289.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-07 07:45:55.448 [debug] <0.290.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-07 07:45:55.455 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-07 07:45:55.455 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-07 07:45:55.455 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-07 07:45:55.455 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-07 07:45:55.455 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,false},{rules,[{filter_groupware,[]},{audit,[]}]}]
+2021-06-07 07:45:55.455 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow_tls" with [{port,1997},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/guam/certs/localhost.cert"},{keyfile,"/home/mollekopf/src/guam/certs/localhost.key"},{cacertfile,"/home/mollekopf/src/guam/certs/ca.cert"},{dhfile,"/home/mollekopf/src/guam/certs/dhparam4096.pem"},{verify,verify_none}]}]
+2021-06-07 07:45:55.455 [debug] <0.290.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,false},{rules,[{filter_groupware,[]},{audit,[]}]}]]},permanent,5000,supervisor,[kolabnow]},{kolabnow_tls,{kolab_guam_listener,start_link,[kolabnow_tls,[{port,1997},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/guam/certs/localhost.cert"},{keyfile,"/home/mollekopf/src/guam/certs/localhost.key"},{cacertfile,"/home/mollekopf/src/guam/certs/ca.cert"},{dhfile,"/home/mollekopf/src/guam/certs/dhparam4096.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow_tls]}]
+2021-06-07 07:45:55.456 [info] <0.291.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-07 07:45:55.459 [debug] <0.291.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-07 07:45:55.459 [debug] <0.293.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.291.0>
+2021-06-07 07:45:55.459 [info] <0.294.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-07 07:45:55.460 [debug] <0.294.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-07 07:45:55.460 [debug] <0.296.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.294.0>
+2021-06-07 07:45:55.460 [info] <0.297.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-07 07:45:55.460 [debug] <0.297.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-07 07:45:55.460 [debug] <0.299.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.297.0>
+2021-06-07 07:45:55.460 [info] <0.300.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-07 07:45:55.460 [debug] <0.300.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-07 07:45:55.460 [debug] <0.302.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.300.0>
+2021-06-07 07:45:55.460 [info] <0.303.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-07 07:45:55.460 [debug] <0.303.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-07 07:45:55.460 [debug] <0.305.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.303.0>
+2021-06-07 07:45:55.460 [info] <0.306.0>@kolab_guam_listener:init:45 Starting listener "kolabnow_tls" on port 1997 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-07 07:45:55.460 [debug] <0.306.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-07 07:45:55.460 [debug] <0.308.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.306.0>
+2021-06-07 07:45:55.805 [debug] <0.265.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-07 07:50:33.371 [warning] <0.313.0>@kolab_guam_session:accept_client:187 TLS handshake failed with a tls_alert: {unknown_ca,"TLS server: In state wait_finished received CLIENT ALERT: Fatal - Unknown CA\n"}
+2021-06-07 07:50:33.941 [warning] <0.353.0>@kolab_guam_session:accept_client:187 TLS handshake failed with a tls_alert: {unknown_ca,"TLS server: In state wait_finished received CLIENT ALERT: Fatal - Unknown CA\n"}
+2021-06-07 07:50:38.999 [warning] <0.354.0>@kolab_guam_session:accept_client:187 TLS handshake failed with a tls_alert: {unknown_ca,"TLS server: In state wait_finished received CLIENT ALERT: Fatal - Unknown CA\n"}
+2021-06-07 07:50:55.402 [warning] <0.356.0>@kolab_guam_session:accept_client:187 TLS handshake failed with a tls_alert: {unknown_ca,"TLS server: In state wait_finished received CLIENT ALERT: Fatal - Unknown CA\n"}
+2021-06-07 07:50:59.547 [warning] <0.358.0>@kolab_guam_session:accept_client:187 TLS handshake failed with a tls_alert: {unknown_ca,"TLS server: In state wait_finished received CLIENT ALERT: Fatal - Unknown CA\n"}
+2021-06-07 07:51:31.247 [warning] <0.359.0>@kolab_guam_session:accept_client:187 TLS handshake failed with a tls_alert: {unknown_ca,"TLS server: In state wait_finished received CLIENT ALERT: Fatal - Unknown CA\n"}
+2021-06-07 08:13:07.803 [debug] <0.272.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-07 08:13:07.803 [debug] <0.269.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-07 08:13:07.806 [debug] <0.278.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-07 08:13:07.977 [info] <0.289.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-07 08:13:07.977 [info] <0.289.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-07 08:13:07.977 [debug] <0.290.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-07 08:13:07.979 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-07 08:13:07.979 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-07 08:13:07.979 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-07 08:13:07.980 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-07 08:13:07.980 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,false},{rules,[{filter_groupware,[]},{audit,[]}]}]
+2021-06-07 08:13:07.980 [debug] <0.290.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow_tls" with [{port,1997},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/guam/certs/localhost.cert"},{keyfile,"/home/mollekopf/src/guam/certs/localhost.key"},{cacertfile,"/home/mollekopf/src/guam/certs/ca.cert"},{dhfile,"/home/mollekopf/src/guam/certs/dhparam4096.pem"},{verify,verify_none}]}]
+2021-06-07 08:13:07.980 [debug] <0.290.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,false},{rules,[{filter_groupware,[]},{audit,[]}]}]]},permanent,5000,supervisor,[kolabnow]},{kolabnow_tls,{kolab_guam_listener,start_link,[kolabnow_tls,[{port,1997},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/guam/certs/localhost.cert"},{keyfile,"/home/mollekopf/src/guam/certs/localhost.key"},{cacertfile,"/home/mollekopf/src/guam/certs/ca.cert"},{dhfile,"/home/mollekopf/src/guam/certs/dhparam4096.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow_tls]}]
+2021-06-07 08:13:07.980 [info] <0.291.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-07 08:13:07.985 [debug] <0.291.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-07 08:13:07.985 [debug] <0.293.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.291.0>
+2021-06-07 08:13:07.985 [info] <0.294.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-07 08:13:07.985 [debug] <0.294.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-07 08:13:07.985 [debug] <0.296.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.294.0>
+2021-06-07 08:13:07.985 [info] <0.297.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-07 08:13:07.985 [debug] <0.297.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-07 08:13:07.985 [debug] <0.299.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.297.0>
+2021-06-07 08:13:07.986 [info] <0.300.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-07 08:13:07.986 [debug] <0.300.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-07 08:13:07.986 [debug] <0.302.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.300.0>
+2021-06-07 08:13:07.986 [info] <0.303.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-07 08:13:07.986 [debug] <0.303.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-07 08:13:07.986 [debug] <0.305.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.303.0>
+2021-06-07 08:13:07.986 [info] <0.306.0>@kolab_guam_listener:init:45 Starting listener "kolabnow_tls" on port 1997 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-07 08:13:07.986 [debug] <0.306.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-07 08:13:07.986 [debug] <0.308.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.306.0>
+2021-06-07 08:13:08.295 [debug] <0.265.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-07 08:13:27.369 [warning] <0.314.0>@kolab_guam_session:accept_client:187 TLS handshake failed with a tls_alert: {unknown_ca,"TLS server: In state wait_finished received CLIENT ALERT: Fatal - Unknown CA\n"}
+2021-06-07 08:23:07.807 [warning] <0.352.0>@kolab_guam_session:accept_client:187 TLS handshake failed with a tls_alert: {unknown_ca,"TLS server: In state wait_finished received CLIENT ALERT: Fatal - Unknown CA\n"}
+2021-06-07 08:28:05.236 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"1 authenticate PLAIN\r\n">>
+2021-06-07 08:28:05.262 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"+ \r\n">>
+2021-06-07 08:28:05.263 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"AHRlc3QxQGtvbGFiLm9yZwBXZWxjb21lMktvbGFiU3lzdGVtcw==\r\n">>
+2021-06-07 08:28:05.527 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"1 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] Success (tls protection) SESSIONID=<cyrus-imapd-3601-1623047275-1-6890301077940684239>\r\n">>
+2021-06-07 08:28:05.527 [info] <0.356.0>@kolab_guam_rule_audit:extract_username:90 FORMAT ERROR: "~p" [<<"1 authenticate PLAIN">>,<<"AHRlc3QxQGtvbGFiLm9yZwBXZWxjb21lMktvbGFiU3lzdGVtcw==">>,<<>>]
+2021-06-07 08:28:05.527 [info] <0.356.0>@kolab_guam_rule_audit:apply_to_server_message:61 login: &#x0;test1@kolab.org&#x0;Welcome2KolabSystems from ::1, OK
+2021-06-07 08:28:05.528 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"2 namespace\r\n">>
+2021-06-07 08:28:05.550 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* NAMESPACE ((\"\" \"/\")) ((\"Other Users/\" \"/\")) ((\"Shared Folders/\" \"/\"))\r\n2 OK Completed\r\n">>
+2021-06-07 08:28:05.554 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"3 ID (\"name\" \"Thunderbird\" \"version\" \"78.10.1\")\r\n">>
+2021-06-07 08:28:05.582 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* ID (\"name\" \"Cyrus IMAPD\" \"version\" \"2.5.15-28-g7d1550bfa-Kolab-2.5.15.28-2.1.el7.kolab_16 7d1550bf 2020-01-29\" \"vendor\" \"Project Cyrus\" \"support-url\" \"http://www.cyrusimap.org\" \"os\" \"Linux\" \"os-version\" \"3.10.0-1160.11.1.el7.x86_64\" \"environment\" \"Built w/Cyrus SASL 2.1.26; Running w/Cyrus SASL 2.1.26; Built w/OpenSSL 1.0.2k-fips  26 Jan 2017; Running w/OpenSSL 1.0.2k-fips  26 Jan 2017; CMU Sieve 2.4; mmap = shared; lock = fcntl; nonblock = fcntl; idle = idled\")\r\n3 OK Completed\r\n">>
+2021-06-07 08:28:05.584 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"4 list \"\" \"*\"\r\n">>
+2021-06-07 08:28:05.919 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* LIST (\\Noinferiors \\HasNoChildren) \"/\" INBOX\r\n* LIST (\\HasChildren) \"/\" Anothermailfolder\r\n* LIST (\\HasChildren) \"/\" Anothermailfolder/Anothersubfolder\r\n* LIST (\\HasNoChildren) \"/\" Anothermailfolder/Anothersubfolder/Anothersubsub\r\n* LIST (\\HasNoChildren) \"/\" Archive\r\n* LIST (\\HasNoChildren) \"/\" Calendar\r\n* LIST (\\HasNoChildren) \"/\" Configuration\r\n* LIST (\\HasNoChildren) \"/\" Contacts\r\n* LIST (\\HasNoChildren) \"/\" Drafts\r\n* LIST (\\HasNoChildren) \"/\" Files\r\n* LIST (\\HasNoChildren) \"/\" Journal\r\n* LIST (\\HasNoChildren) \"/\" Notes\r\n* LIST (\\HasNoChildren) \"/\" Sent\r\n* LIST (\\HasNoChildren) \"/\" \"Sent Items\"\r\n* LIST (\\HasNoChildren) \"/\" \"Sent Messages\"\r\n* LIST (\\HasNoChildren) \"/\" Spam\r\n* LIST (\\HasNoChildren) \"/\" Tasks\r\n* LIST (\\HasNoChildren) \"/\" \"Test AddressBook Collection\"\r\n* LIST (\\HasNoChildren) \"/\" \"Test Calendar Collection\"\r\n* LIST (\\HasNoChildren) \"/\" Trash\r\n* LIST (\\HasNoChildren) \"/\" Untitled\r\n* LIST (\\HasNoChildren) \"/\" newfolder\r\n* LIST (\\HasNoChildren) \"/\" signature\r\n* LIST (\\HasNoChildren) \"/\" unsubscribed\r\n* LIST (\\HasNoChildren) \"/\" \"Shared Folders/shared/lists/kolab.org/announce\"\r\n* LIST (\\HasNoChildren) \"/\" \"Shared Folders/shared/lists/kolab.org/commits\"\r\n* LIST (\\HasNoChildren) \"/\" \"Shared Folders/shared/lists/kolab.org/devel\"\r\n* LIST (\\HasNoChildren) \"/\" \"Shared Folders/shared/lists/kolab.org/format\"\r\n* LIST (\\HasChildren) \"/\" \"Shared Folders/shared/lists/kolab.org/users\"\r\n* LIST (\\HasNoChildren) \"/\" \"Shared Folders/shared/lists/kolab.org/users/de\"\r\n* LIST (\\HasNoChildren) \"/\" \"Shared Folders/shared/lists/kolab.org/users/pt\"\r\n* LIST (\\HasNoChildren) \"/\" \"Shared Folders/shared/test-shared-folder\"\r\n4 OK Completed (0.010 secs 33 calls)\r\n">>
+2021-06-07 08:28:05.921 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"5 lsub \"\" \"*\"\r\n">>
+2021-06-07 08:28:05.945 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* LSUB (\\Noinferiors) \"/\" \"INBOX\"\r\n* LSUB (\\HasChildren) \"/\" \"Anothermailfolder\"\r\n* LSUB (\\HasChildren) \"/\" \"Anothermailfolder/Anothersubfolder\"\r\n* LSUB () \"/\" \"Anothermailfolder/Anothersubfolder/Anothersubsub\"\r\n* LSUB () \"/\" \"Archive\"\r\n* LSUB () \"/\" \"Calendar\"\r\n* LSUB () \"/\" \"Configuration\"\r\n* LSUB () \"/\" \"Contacts\"\r\n* LSUB () \"/\" \"Drafts\"\r\n* LSUB () \"/\" \"Files\"\r\n* LSUB () \"/\" \"Journal\"\r\n* LSUB () \"/\" \"Notes\"\r\n* LSUB () \"/\" \"Sent\"\r\n* LSUB () \"/\" \"Sent Messages\"\r\n* LSUB () \"/\" \"Spam\"\r\n* LSUB () \"/\" \"Tasks\"\r\n* LSUB () \"/\" \"Test AddressBook Collection\"\r\n* LSUB () \"/\" \"Test Calendar Collection\"\r\n* LSUB () \"/\" \"Trash\"\r\n* LSUB () \"/\" \"Untitled\"\r\n* LSUB () \"/\" \"newfolder\"\r\n* LSUB () \"/\" \"signature\"\r\n* LSUB () \"/\" \"Shared Folders/shared/test-shared-folder\"\r\n5 OK Completed (0.000 secs)\r\n">>
+2021-06-07 08:28:05.949 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"6 list \"\" \"Other Users/*\"\r\n">>
+2021-06-07 08:28:05.982 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"6 OK Completed (0.020 secs)\r\n">>
+2021-06-07 08:28:05.984 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"7 lsub \"\" \"Other Users/*\"\r\n">>
+2021-06-07 08:28:06.004 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"7 OK Completed (0.000 secs)\r\n">>
+2021-06-07 08:28:06.005 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"8 list \"\" \"Shared Folders/*\"\r\n">>
+2021-06-07 08:28:06.026 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* LIST (\\HasNoChildren) \"/\" \"Shared Folders/shared/lists/kolab.org/announce\"\r\n* LIST (\\HasNoChildren) \"/\" \"Shared Folders/shared/lists/kolab.org/commits\"\r\n* LIST (\\HasNoChildren) \"/\" \"Shared Folders/shared/lists/kolab.org/devel\"\r\n* LIST (\\HasNoChildren) \"/\" \"Shared Folders/shared/lists/kolab.org/format\"\r\n* LIST (\\HasChildren) \"/\" \"Shared Folders/shared/lists/kolab.org/users\"\r\n* LIST (\\HasNoChildren) \"/\" \"Shared Folders/shared/lists/kolab.org/users/de\"\r\n* LIST (\\HasNoChildren) \"/\" \"Shared Folders/shared/lists/kolab.org/users/pt\"\r\n* LIST (\\HasNoChildren) \"/\" \"Shared Folders/shared/test-shared-folder\"\r\n8 OK Completed (0.000 secs 9 calls)\r\n">>
+2021-06-07 08:28:06.028 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"9 lsub \"\" \"Shared Folders/*\"\r\n">>
+2021-06-07 08:28:06.047 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* LSUB () \"/\" \"Shared Folders/shared/test-shared-folder\"\r\n9 OK Completed (0.000 secs)\r\n">>
+2021-06-07 08:28:06.048 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"10 list \"\" \"INBOX\"\r\n">>
+2021-06-07 08:28:06.065 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* LIST (\\Noinferiors) \"/\" INBOX\r\n10 OK Completed (0.000 secs 3 calls)\r\n">>
+2021-06-07 08:28:06.157 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"11 select \"INBOX\"\r\n">>
+2021-06-07 08:28:06.176 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* 233 EXISTS\r\n* 0 RECENT\r\n* FLAGS (\\Answered \\Flagged \\Draft \\Deleted \\Seen $ATTACHMENT $QUEUED $ERROR $SIGNED $Forwarded NonJunk Junk $MailFlagBit0 $MailFlagBit1 $MailFlagBit2)\r\n* OK [PERMANENTFLAGS (\\Answered \\Flagged \\Draft \\Deleted \\Seen $ATTACHMENT $QUEUED $ERROR $SIGNED $Forwarded NonJunk Junk $MailFlagBit0 $MailFlagBit1 $MailFlagBit2 \\*)] Ok\r\n* OK [UNSEEN 213] Ok\r\n* OK [UIDVALIDITY 1482328916] Ok\r\n* OK [UIDNEXT 333] Ok\r\n* OK [HIGHESTMODSEQ 1825] Ok\r\n* OK [URLMECH INTERNAL] Ok\r\n* OK [ANNOTATIONS 65536] Ok\r\n11 OK [READ-WRITE] Completed\r\n">>
+2021-06-07 08:28:06.177 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"12 myrights \"INBOX\"\r\n">>
+2021-06-07 08:28:06.200 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* MYRIGHTS INBOX lrswipkxtecdan\r\n12 OK Completed\r\n">>
+2021-06-07 08:28:06.202 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"13 getacl \"INBOX\"\r\n">>
+2021-06-07 08:28:06.227 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* ACL INBOX test1@kolab.org lrswipkxtecdan\r\n13 OK Completed\r\n">>
+2021-06-07 08:28:06.228 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"14 getquotaroot \"INBOX\"\r\n">>
+2021-06-07 08:28:06.270 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* QUOTAROOT INBOX INBOX\r\n* QUOTA INBOX (STORAGE 24603 5242880)\r\n14 OK Completed\r\n">>
+2021-06-07 08:28:06.271 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"15 UID fetch 1:* (FLAGS)\r\n">>
+2021-06-07 08:28:06.302 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* 1 FETCH (FLAGS (\\Seen) UID 1)\r\n* 2 FETCH (FLAGS (\\Seen) UID 2)\r\n* 3 FETCH (FLAGS (\\Seen) UID 3)\r\n* 4 FETCH (FLAGS (\\Seen) UID 4)\r\n* 5 FETCH (FLAGS (\\Seen) UID 6)\r\n* 6 FETCH (FLAGS (\\Seen) UID 7)\r\n* 7 FETCH (FLAGS (\\Seen) UID 9)\r\n* 8 FETCH (FLAGS (\\Seen) UID 10)\r\n* 9 FETCH (FLAGS (\\Seen) UID 12)\r\n* 10 FETCH (FLAGS (\\Seen) UID 13)\r\n* 11 FETCH (FLAGS (\\Seen) UID 14)\r\n* 12 FETCH (FLAGS (\\Seen) UID 15)\r\n* 13 FETCH (FLAGS (\\Seen) UID 17)\r\n* 14 FETCH (FLAGS (\\Seen) UID 18)\r\n* 15 FETCH (FLAGS (\\Seen) UID 19)\r\n* 16 FETCH (FLAGS (\\Seen) UID 21)\r\n* 17 FETCH (FLAGS (\\Seen $Forwarded) UID 22)\r\n* 18 FETCH (FLAGS (\\Seen $Forwarded) UID 24)\r\n* 19 FETCH (FLAGS (\\Seen) UID 25)\r\n* 20 FETCH (FLAGS (\\Seen) UID 29)\r\n* 21 FETCH (FLAGS (\\Seen $Forwarded) UID 30)\r\n* 22 FETCH (FLAGS (\\Answered \\Seen) UID 31)\r\n* 23 FETCH (FLAGS (\\Seen) UID 32)\r\n* 24 FETCH (FLAGS (\\Seen) UID 33)\r\n* 25 FETCH (FLAGS (\\Seen) UID 36)\r\n* 26 FETCH (FLAGS (\\Seen) UID 37)\r\n* 27 FETCH (FLAGS (\\Seen) UID 38)\r\n* 28 FETCH (FLAGS (\\Seen) UID 39)\r\n* 29 FETCH (FLAGS (\\Seen) UID 43)\r\n* 30 FETCH (FLAGS (\\Seen) UID 44)\r\n* 31 FETCH (FLAGS (\\Seen) UID 45)\r\n* 32 FETCH (FLAGS (\\Seen) UID 46)\r\n* 33 FETCH (FLAGS (\\Seen) UID 47)\r\n* 34 FETCH (FLAGS (\\Seen) UID 48)\r\n* 35 FETCH (FLAGS (\\Seen) UID 49)\r\n* 36 FETCH (FLAGS (\\Seen) UID 50)\r\n* 37 FETCH (FLAGS (\\Seen) UID 53)\r\n* 38 FETCH (FLAGS (\\Seen) UID 60)\r\n* 39 FETCH (FLAGS (\\Seen NonJunk) UID 61)\r\n* 40 FETCH (FLAGS (\\Seen) UID 62)\r\n* 41 FETCH (FLAGS (\\Seen) UID 63)\r\n* 42 FETCH (FLAGS (\\Seen) UID 64)\r\n* 43 FETCH (FLAGS (\\Seen) UID 65)\r\n* 44 FETCH (FLAGS (\\Seen) UID 66)\r\n* 45 FETCH (FLAGS (\\Seen) UID 67)\r\n* 46 FETCH (FLAGS (\\Seen) UID 68)\r\n* 47 FETCH (FLAGS (\\Seen) UID 69)\r\n* 48 FETCH (FLAGS (\\Seen) UID 70)\r\n* 49 FETCH (FLAGS (\\Seen) UID 71)\r\n* 50 FETCH (FLAGS (\\Seen) UID 72)\r\n* 51 FETCH (FLAGS (\\Seen) UID 73)\r\n* 52 FETCH (FLAGS (\\Seen) UID 75)\r\n* 53 FETCH (FLAGS (\\Seen) UID 76)\r\n* 54 FETCH (FLAGS (\\Seen) UID 77)\r\n* 55 FETCH (FLAGS (\\Seen) UID 78)\r\n* 56 FETCH (FLAGS (\\Seen) UID 79)\r\n* 57 FETCH (FLAGS (\\Seen) UID 80)\r\n* 58 FETCH (FLAGS (\\Seen) UID 81)\r\n* 59 FETCH (FLAGS (\\Seen) UID 82)\r\n* 60 FETCH (FLAGS (\\Seen) UID 83)\r\n* 61 FETCH (FLAGS (\\Seen) UID 84)\r\n* 62 FETCH (FLAGS (\\Seen) UID 87)\r\n* 63 FETCH (FLAGS (\\Seen) UID 90)\r\n* 64 FETCH (FLAGS (\\Seen) UID 91)\r\n* 65 FETCH (FLAGS (\\Seen NonJunk) UID 92)\r\n* 66 FETCH (FLAGS (\\Seen) UID 93)\r\n* 67 FETCH (FLAGS (\\Seen) UID 94)\r\n* 68 FETCH (FLAGS (\\Seen) UID 95)\r\n* 69 FETCH (FLAGS (\\Seen) UID 96)\r\n* 70 FETCH (FLAGS (\\Seen) UID 97)\r\n* 71 FETCH (FLAGS (\\Seen) UID 106)\r\n* 72 FETCH (FLAGS (\\Seen) UID 107)\r\n* 73 FETCH (FLAGS (\\Seen) UID 108)\r\n* 74 FETCH (FLAGS (\\Seen) UID 110)\r\n* 75 FETCH (FLAGS (\\Seen) UID 112)\r\n* 76 FETCH (FLAGS (\\Seen) UID 113)\r\n* 77 FETCH (FLAGS (\\Seen) UID 115)\r\n* 78 FETCH (FLAGS (\\Seen) UID 116)\r\n* 79 FETCH (FLAGS (\\Seen) UID 123)\r\n* 80 FETCH (FLAGS (\\Seen) UID 124)\r\n* 81 FETCH (FLAGS (\\Seen) UID 131)\r\n* 82 FETCH (FLAGS (\\Seen) UID 132)\r\n* 83 FETCH (FLAGS (\\Seen) UID 133)\r\n* 84 FETCH (FLAGS (\\Seen) UID 134)\r\n* 85 FETCH (FLAGS (\\Seen) UID 135)\r\n* 86 FETCH (FLAGS (\\Seen) UID 136)\r\n* 87 FETCH (FLAGS (\\Seen) UID 137)\r\n* 88 FETCH (FLAGS (\\Seen) UID 138)\r\n* 89 FETCH (FLAGS (\\Seen NonJunk) UID 139)\r\n* 90 FETCH (FLAGS (\\Seen) UID 140)\r\n* 91 FETCH (FLAGS (\\Seen) UID 141)\r\n* 92 FETCH (FLAGS (\\Seen) UID 147)\r\n* 93 FETCH (FLAGS (\\Seen) UID 148)\r\n* 94 FETCH (FLAGS (\\Seen) UID 149)\r\n* 95 FETCH (FLAGS (\\Seen) UID 152)\r\n* 96 FETCH (FLAGS (\\Seen) UID 153)\r\n* 97 FETCH (FLAGS (\\Seen) UID 154)\r\n* 98 FETCH (FLAGS (\\Flagged \\Seen) UID 155)\r\n* 99 FETCH (FLAGS (\\Flagged \\Seen) UID 159)\r\n* 100 FETCH (FLAGS (\\Seen) UID 162)\r\n* 101 FETCH (FLAGS (\\Seen) UID 166)\r\n* 102 FETCH (FLAGS (\\Seen NonJunk) UID 169)\r\n* 103 FETCH (FLAGS (\\Seen) UID 171)\r\n* 104 FETCH (FLAGS (\\Seen) UID 174)\r\n* 105 FETCH (FLAGS (\\Seen) UID 175)\r\n* 106 FETCH (FLAGS (\\Seen) UID 177)\r\n* 107 FETCH (FLAGS (\\Seen) UID 182)\r\n* 108 FETCH (FLAGS (\\Seen) UID 183)\r\n* 109 FETCH (FLAGS (\\Seen) UID 184)\r\n* 110 FETCH (FLAGS (\\Seen) UID 185)\r\n* 111 FETCH (FLAGS (\\Seen) UID 186)\r\n* 112 FETCH (FLAGS (\\Seen) UID 187)\r\n* 113 FETCH (...">>
+2021-06-07 08:28:06.305 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"\n* 114 FETCH (FLAGS (\\Seen NonJunk) UID 189)\r\n* 115 FETCH (FLAGS (\\Seen NonJunk) UID 190)\r\n* 116 FETCH (FLAGS (\\Seen NonJunk) UID 191)\r\n* 117 FETCH (FLAGS (\\Seen NonJunk) UID 192)\r\n* 118 FETCH (FLAGS (\\Seen) UID 194)\r\n* 119 FETCH (FLAGS (\\Seen) UID 195)\r\n* 120 FETCH (FLAGS (\\Seen) UID 196)\r\n* 121 FETCH (FLAGS (\\Seen) UID 197)\r\n* 122 FETCH (FLAGS (\\Seen) UID 198)\r\n* 123 FETCH (FLAGS (\\Seen) UID 199)\r\n* 124 FETCH (FLAGS (\\Seen) UID 200)\r\n* 125 FETCH (FLAGS (\\Seen) UID 201)\r\n* 126 FETCH (FLAGS (\\Seen) UID 202)\r\n* 127 FETCH (FLAGS (\\Seen) UID 203)\r\n* 128 FETCH (FLAGS (\\Seen) UID 204)\r\n* 129 FETCH (FLAGS (\\Seen) UID 205)\r\n* 130 FETCH (FLAGS (\\Seen) UID 206)\r\n* 131 FETCH (FLAGS (\\Seen) UID 207)\r\n* 132 FETCH (FLAGS (\\Seen) UID 208)\r\n* 133 FETCH (FLAGS (\\Seen) UID 209)\r\n* 134 FETCH (FLAGS (\\Seen) UID 210)\r\n* 135 FETCH (FLAGS (\\Seen) UID 211)\r\n* 136 FETCH (FLAGS (\\Seen) UID 212)\r\n* 137 FETCH (FLAGS (\\Seen) UID 213)\r\n* 138 FETCH (FLAGS (\\Seen) UID 214)\r\n* 139 FETCH (FLAGS (\\Seen) UID 215)\r\n* 140 FETCH (FLAGS (\\Seen) UID 216)\r\n* 141 FETCH (FLAGS (\\Seen) UID 217)\r\n* 142 FETCH (FLAGS (\\Seen) UID 218)\r\n* 143 FETCH (FLAGS (\\Seen) UID 219)\r\n* 144 FETCH (FLAGS (\\Seen) UID 220)\r\n* 145 FETCH (FLAGS (\\Seen) UID 222)\r\n* 146 FETCH (FLAGS (\\Seen) UID 223)\r\n* 147 FETCH (FLAGS (\\Seen) UID 224)\r\n* 148 FETCH (FLAGS (\\Seen) UID 225)\r\n* 149 FETCH (FLAGS (\\Seen) UID 228)\r\n* 150 FETCH (FLAGS (\\Seen) UID 229)\r\n* 151 FETCH (FLAGS (\\Seen) UID 230)\r\n* 152 FETCH (FLAGS (\\Seen) UID 232)\r\n* 153 FETCH (FLAGS (\\Seen) UID 233)\r\n* 154 FETCH (FLAGS (\\Seen) UID 234)\r\n* 155 FETCH (FLAGS (\\Seen) UID 235)\r\n* 156 FETCH (FLAGS (\\Seen) UID 236)\r\n* 157 FETCH (FLAGS (\\Seen) UID 237)\r\n* 158 FETCH (FLAGS (\\Seen) UID 238)\r\n* 159 FETCH (FLAGS (\\Seen) UID 239)\r\n* 160 FETCH (FLAGS (\\Seen) UID 240)\r\n* 161 FETCH (FLAGS (\\Seen) UID 241)\r\n* 162 FETCH (FLAGS (\\Seen) UID 242)\r\n* 163 FETCH (FLAGS (\\Seen) UID 243)\r\n* 164 FETCH (FLAGS (\\Seen) UID 245)\r\n* 165 FETCH (FLAGS (\\Seen) UID 246)\r\n* 166 FETCH (FLAGS (\\Seen) UID 247)\r\n* 167 FETCH (FLAGS (\\Seen) UID 248)\r\n* 168 FETCH (FLAGS (\\Seen) UID 249)\r\n* 169 FETCH (FLAGS (\\Seen) UID 250)\r\n* 170 FETCH (FLAGS (\\Flagged \\Seen) UID 253)\r\n* 171 FETCH (FLAGS (\\Seen) UID 254)\r\n* 172 FETCH (FLAGS (\\Flagged \\Seen) UID 256)\r\n* 173 FETCH (FLAGS (\\Seen) UID 257)\r\n* 174 FETCH (FLAGS (\\Seen) UID 258)\r\n* 175 FETCH (FLAGS (\\Seen) UID 259)\r\n* 176 FETCH (FLAGS (\\Seen) UID 260)\r\n* 177 FETCH (FLAGS (\\Seen) UID 261)\r\n* 178 FETCH (FLAGS (\\Seen) UID 262)\r\n* 179 FETCH (FLAGS (\\Seen) UID 263)\r\n* 180 FETCH (FLAGS (\\Seen) UID 264)\r\n* 181 FETCH (FLAGS (\\Seen) UID 265)\r\n* 182 FETCH (FLAGS (\\Seen) UID 266)\r\n* 183 FETCH (FLAGS (\\Flagged \\Seen) UID 267)\r\n* 184 FETCH (FLAGS (\\Flagged \\Seen) UID 268)\r\n* 185 FETCH (FLAGS (\\Flagged \\Seen) UID 269)\r\n* 186 FETCH (FLAGS (\\Flagged \\Seen) UID 270)\r\n* 187 FETCH (FLAGS (\\Seen) UID 271)\r\n* 188 FETCH (FLAGS (\\Seen) UID 272)\r\n* 189 FETCH (FLAGS (\\Seen) UID 273)\r\n* 190 FETCH (FLAGS (\\Seen) UID 274)\r\n* 191 FETCH (FLAGS (\\Seen) UID 277)\r\n* 192 FETCH (FLAGS (\\Seen) UID 278)\r\n* 193 FETCH (FLAGS (\\Seen) UID 279)\r\n* 194 FETCH (FLAGS (\\Seen) UID 280)\r\n* 195 FETCH (FLAGS (\\Seen) UID 281)\r\n* 196 FETCH (FLAGS (\\Seen) UID 282)\r\n* 197 FETCH (FLAGS (\\Seen) UID 291)\r\n* 198 FETCH (FLAGS (\\Seen) UID 292)\r\n* 199 FETCH (FLAGS (\\Seen NonJunk) UID 293)\r\n* 200 FETCH (FLAGS (\\Flagged \\Seen) UID 294)\r\n* 201 FETCH (FLAGS (\\Seen) UID 295)\r\n* 202 FETCH (FLAGS (\\Seen) UID 296)\r\n* 203 FETCH (FLAGS (\\Seen) UID 298)\r\n* 204 FETCH (FLAGS (\\Seen) UID 299)\r\n* 205 FETCH (FLAGS (\\Seen) UID 300)\r\n* 206 FETCH (FLAGS (\\Seen) UID 301)\r\n* 207 FETCH (FLAGS (\\Seen) UID 302)\r\n* 208 FETCH (FLAGS (\\Seen) UID 303)\r\n* 209 FETCH (FLAGS (\\Seen) UID 304)\r\n* 210 FETCH (FLAGS (\\Seen) UID 305)\r\n* 211 FETCH (FLAGS (\\Seen) UID 306)\r\n* 212 FETCH (FLAGS (\\Seen) UID 307)\r\n* 213 FETCH (FLAGS (NonJunk) UID 308)\r\n* 214 FETCH (FLAGS (\\Seen) UID 309)\r\n* 215 FETCH (FLAGS (NonJunk) UID 310)\r\n* 216 FETCH (FLAGS (NonJunk) UID 311)\r\n* 217 FETCH (FLAGS (NonJunk) UID 312)\r\n* 218 FETCH (FLAGS (\\Seen) UID 313)\r\n* 219 FETCH (FLAGS (NonJunk) UID 318)\r\n* 220 FETCH (FLAGS (\\Seen) UI...">>
+2021-06-07 08:28:06.306 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"Junk) UID 320)\r\n* 222 FETCH (FLAGS (NonJunk) UID 321)\r\n* 223 FETCH (FLAGS (\\Seen) UID 322)\r\n* 224 FETCH (FLAGS (\\Seen) UID 323)\r\n* 225 FETCH (FLAGS (NonJunk) UID 324)\r\n* 226 FETCH (FLAGS (\\Seen) UID 325)\r\n* 227 FETCH (FLAGS (\\Seen) UID 326)\r\n* 228 FETCH (FLAGS (\\Seen) UID 327)\r\n* 229 FETCH (FLAGS (\\Seen) UID 328)\r\n* 230 FETCH (FLAGS () UID 329)\r\n* 231 FETCH (FLAGS (\\Seen) UID 330)\r\n* 232 FETCH (FLAGS () UID 331)\r\n* 233 FETCH (FLAGS () UID 332)\r\n15 OK Completed (0.000 sec)\r\n">>
+2021-06-07 08:28:06.359 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"16 IDLE\r\n">>
+2021-06-07 08:28:06.378 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"+ idling\r\n">>
+2021-06-07 08:28:13.662 [debug] <0.358.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"1 authenticate PLAIN\r\n">>
+2021-06-07 08:28:13.680 [debug] <0.358.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"+ \r\n">>
+2021-06-07 08:28:13.681 [debug] <0.358.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"AHRlc3QxQGtvbGFiLm9yZwBXZWxjb21lMktvbGFiU3lzdGVtcw==\r\n">>
+2021-06-07 08:28:13.805 [debug] <0.358.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"1 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] Success (tls protection) SESSIONID=<cyrus-imapd-20585-1623047293-1-11139727484364888776>\r\n">>
+2021-06-07 08:28:13.805 [info] <0.358.0>@kolab_guam_rule_audit:extract_username:90 FORMAT ERROR: "~p" [<<"1 authenticate PLAIN">>,<<"AHRlc3QxQGtvbGFiLm9yZwBXZWxjb21lMktvbGFiU3lzdGVtcw==">>,<<>>]
+2021-06-07 08:28:13.805 [info] <0.358.0>@kolab_guam_rule_audit:apply_to_server_message:61 login: &#x0;test1@kolab.org&#x0;Welcome2KolabSystems from ::1, OK
+2021-06-07 08:28:13.806 [debug] <0.358.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"2 ID (\"name\" \"Thunderbird\" \"version\" \"78.10.1\")\r\n">>
+2021-06-07 08:28:13.819 [debug] <0.358.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* ID (\"name\" \"Cyrus IMAPD\" \"version\" \"2.5.15-28-g7d1550bfa-Kolab-2.5.15.28-2.1.el7.kolab_16 7d1550bf 2020-01-29\" \"vendor\" \"Project Cyrus\" \"support-url\" \"http://www.cyrusimap.org\" \"os\" \"Linux\" \"os-version\" \"3.10.0-1160.11.1.el7.x86_64\" \"environment\" \"Built w/Cyrus SASL 2.1.26; Running w/Cyrus SASL 2.1.26; Built w/OpenSSL 1.0.2k-fips  26 Jan 2017; Running w/OpenSSL 1.0.2k-fips  26 Jan 2017; CMU Sieve 2.4; mmap = shared; lock = fcntl; nonblock = fcntl; idle = idled\")\r\n2 OK Completed\r\n">>
+2021-06-07 08:28:13.820 [debug] <0.358.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"3 STATUS \"Spam\" (UIDNEXT MESSAGES UNSEEN RECENT)\r\n">>
+2021-06-07 08:28:14.014 [debug] <0.358.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* STATUS Spam (MESSAGES 0 RECENT 0 UIDNEXT 1 UNSEEN 0)\r\n3 OK Completed\r\n">>
+2021-06-07 08:28:14.319 [debug] <0.358.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"4 STATUS \"Drafts\" (UIDNEXT MESSAGES UNSEEN RECENT)\r\n">>
+2021-06-07 08:28:14.341 [debug] <0.358.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* STATUS Drafts (MESSAGES 26 RECENT 0 UIDNEXT 90 UNSEEN 0)\r\n4 OK Completed\r\n">>
+2021-06-07 08:28:14.721 [debug] <0.358.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"5 STATUS \"Sent Messages\" (UIDNEXT MESSAGES UNSEEN RECENT)\r\n">>
+2021-06-07 08:28:14.738 [debug] <0.358.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* STATUS \"Sent Messages\" (MESSAGES 3 RECENT 0 UIDNEXT 4 UNSEEN 0)\r\n5 OK Completed\r\n">>
+2021-06-07 08:28:15.123 [debug] <0.358.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"6 STATUS \"Anothermailfolder\" (UIDNEXT MESSAGES UNSEEN RECENT)\r\n">>
+2021-06-07 08:28:15.146 [debug] <0.358.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* STATUS Anothermailfolder (MESSAGES 0 RECENT 0 UIDNEXT 1 UNSEEN 0)\r\n6 OK Completed\r\n">>
+2021-06-07 08:28:15.524 [debug] <0.358.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"7 STATUS \"Anothermailfolder/Anothersubfolder\" (UIDNEXT MESSAGES UNSEEN RECENT)\r\n">>
+2021-06-07 08:28:15.546 [debug] <0.358.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* STATUS Anothermailfolder/Anothersubfolder (MESSAGES 0 RECENT 0 UIDNEXT 1 UNSEEN 0)\r\n7 OK Completed\r\n">>
+2021-06-07 08:28:15.927 [debug] <0.358.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"8 STATUS \"Anothermailfolder/Anothersubfolder/Anothersubsub\" (UIDNEXT MESSAGES UNSEEN RECENT)\r\n">>
+2021-06-07 08:28:15.946 [debug] <0.358.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* STATUS Anothermailfolder/Anothersubfolder/Anothersubsub (MESSAGES 0 RECENT 0 UIDNEXT 1 UNSEEN 0)\r\n8 OK Completed\r\n">>
+2021-06-07 08:28:16.335 [debug] <0.358.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"9 STATUS \"Sent\" (UIDNEXT MESSAGES UNSEEN RECENT)\r\n">>
+2021-06-07 08:28:16.366 [debug] <0.358.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* STATUS Sent (MESSAGES 164 RECENT 0 UIDNEXT 251 UNSEEN 0)\r\n9 OK Completed\r\n">>
+2021-06-07 08:28:16.737 [debug] <0.358.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"10 STATUS \"newfolder\" (UIDNEXT MESSAGES UNSEEN RECENT)\r\n">>
+2021-06-07 08:28:16.780 [debug] <0.358.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* STATUS newfolder (MESSAGES 0 RECENT 0 UIDNEXT 1 UNSEEN 0)\r\n10 OK Completed\r\n">>
+2021-06-07 08:28:17.938 [debug] <0.361.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"1 authenticate PLAIN\r\n">>
+2021-06-07 08:28:17.966 [debug] <0.361.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"+ \r\n">>
+2021-06-07 08:28:17.968 [debug] <0.361.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"AHRlc3QxQGtvbGFiLm9yZwBXZWxjb21lMktvbGFiU3lzdGVtcw==\r\n">>
+2021-06-07 08:28:18.213 [debug] <0.361.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"1 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] Success (tls protection) SESSIONID=<cyrus-imapd-22742-1623047296-1-12188370340302002660>\r\n">>
+2021-06-07 08:28:18.213 [info] <0.361.0>@kolab_guam_rule_audit:extract_username:90 FORMAT ERROR: "~p" [<<"1 authenticate PLAIN">>,<<"AHRlc3QxQGtvbGFiLm9yZwBXZWxjb21lMktvbGFiU3lzdGVtcw==">>,<<>>]
+2021-06-07 08:28:18.214 [info] <0.361.0>@kolab_guam_rule_audit:apply_to_server_message:61 login: &#x0;test1@kolab.org&#x0;Welcome2KolabSystems from ::1, OK
+2021-06-07 08:28:18.216 [debug] <0.361.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"2 ID (\"name\" \"Thunderbird\" \"version\" \"78.10.1\")\r\n">>
+2021-06-07 08:28:18.247 [debug] <0.361.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* ID (\"name\" \"Cyrus IMAPD\" \"version\" \"2.5.15-28-g7d1550bfa-Kolab-2.5.15.28-2.1.el7.kolab_16 7d1550bf 2020-01-29\" \"vendor\" \"Project Cyrus\" \"support-url\" \"http://www.cyrusimap.org\" \"os\" \"Linux\" \"os-version\" \"3.10.0-1160.11.1.el7.x86_64\" \"environment\" \"Built w/Cyrus SASL 2.1.26; Running w/Cyrus SASL 2.1.26; Built w/OpenSSL 1.0.2k-fips  26 Jan 2017; Running w/OpenSSL 1.0.2k-fips  26 Jan 2017; CMU Sieve 2.4; mmap = shared; lock = fcntl; nonblock = fcntl; idle = idled\")\r\n2 OK Completed\r\n">>
+2021-06-07 08:28:18.248 [debug] <0.361.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"3 select \"newfolder\"\r\n">>
+2021-06-07 08:28:18.380 [debug] <0.361.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* 0 EXISTS\r\n* 0 RECENT\r\n* FLAGS (\\Answered \\Flagged \\Draft \\Deleted \\Seen)\r\n* OK [PERMANENTFLAGS (\\Answered \\Flagged \\Draft \\Deleted \\Seen \\*)] Ok\r\n* OK [UIDVALIDITY 1620120228] 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\n3 OK [READ-WRITE] Completed\r\n">>
+2021-06-07 08:28:18.382 [debug] <0.361.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"4 myrights \"newfolder\"\r\n">>
+2021-06-07 08:28:18.411 [debug] <0.361.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* MYRIGHTS newfolder lrswipkxtecdan\r\n4 OK Completed\r\n">>
+2021-06-07 08:28:18.413 [debug] <0.361.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"5 getacl \"newfolder\"\r\n">>
+2021-06-07 08:28:18.432 [debug] <0.361.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* ACL newfolder test1@kolab.org lrswipkxtecdan\r\n5 OK Completed\r\n">>
+2021-06-07 08:28:18.435 [debug] <0.361.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"6 getquotaroot \"newfolder\"\r\n">>
+2021-06-07 08:28:18.460 [debug] <0.361.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* QUOTAROOT newfolder INBOX\r\n* QUOTA INBOX (STORAGE 24603 5242880)\r\n6 OK Completed\r\n">>
+2021-06-07 08:28:18.480 [debug] <0.361.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"7 IDLE\r\n">>
+2021-06-07 08:28:18.503 [debug] <0.361.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"+ idling\r\n">>
+2021-06-07 08:28:18.741 [debug] <0.358.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"11 STATUS \"Shared Folders/shared/test-shared-folder\" (UIDNEXT MESSAGES UNSEEN RECENT)\r\n">>
+2021-06-07 08:28:18.897 [debug] <0.358.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* STATUS \"Shared Folders/shared/test-shared-folder\" (MESSAGES 6 RECENT 0 UIDNEXT 7 UNSEEN 4)\r\n11 OK Completed\r\n">>
+2021-06-07 08:28:19.143 [debug] <0.358.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"12 STATUS \"signature\" (UIDNEXT MESSAGES UNSEEN RECENT)\r\n">>
+2021-06-07 08:28:19.160 [debug] <0.358.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* STATUS signature (MESSAGES 2 RECENT 0 UIDNEXT 5 UNSEEN 0)\r\n12 OK Completed\r\n">>
+2021-06-07 08:28:19.543 [debug] <0.358.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"13 STATUS \"Archive\" (UIDNEXT MESSAGES UNSEEN RECENT)\r\n">>
+2021-06-07 08:28:19.570 [debug] <0.358.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* STATUS Archive (MESSAGES 3 RECENT 0 UIDNEXT 4 UNSEEN 0)\r\n13 OK Completed\r\n">>
+2021-06-07 08:31:37.876 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"DONE\r\n">>
+2021-06-07 08:31:37.901 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"16 OK Completed\r\n">>
+2021-06-07 08:31:37.902 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"17 noop\r\n">>
+2021-06-07 08:31:37.929 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"17 OK Completed\r\n">>
+2021-06-07 08:31:37.930 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"18 getquotaroot \"INBOX\"\r\n">>
+2021-06-07 08:31:37.956 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* QUOTAROOT INBOX INBOX\r\n* QUOTA INBOX (STORAGE 24603 5242880)\r\n18 OK Completed\r\n">>
+2021-06-07 08:31:37.957 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"19 UID fetch 333:* (FLAGS)\r\n">>
+2021-06-07 08:31:38.008 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* 233 FETCH (FLAGS () UID 332)\r\n19 OK Completed (0.000 sec)\r\n">>
+2021-06-07 08:31:38.015 [debug] <0.356.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"20 IDLE\r\n">>
+2021-06-07 08:31:38.046 [debug] <0.356.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"+ idling\r\n">>
+2021-06-07 09:08:07.250 [debug] <0.280.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-07 09:08:07.250 [debug] <0.277.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-07 09:08:07.253 [debug] <0.286.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-07 09:08:07.275 [info] <0.297.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-07 09:08:07.275 [info] <0.297.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-07 09:08:07.276 [debug] <0.298.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-07 09:08:07.278 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-07 09:08:07.278 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-07 09:08:07.278 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-07 09:08:07.278 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-07 09:08:07.278 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,false},{rules,[{filter_groupware,[]},{audit,[]}]}]
+2021-06-07 09:08:07.278 [debug] <0.298.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow_tls" with [{port,1997},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/guam/certs/localhost.cert"},{keyfile,"/home/mollekopf/src/guam/certs/localhost.key"},{cacertfile,"/home/mollekopf/src/guam/certs/ca.cert"},{dhfile,"/home/mollekopf/src/guam/certs/dhparam4096.pem"},{verify,verify_none}]}]
+2021-06-07 09:08:07.278 [debug] <0.298.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,false},{rules,[{filter_groupware,[]},{audit,[]}]}]]},permanent,5000,supervisor,[kolabnow]},{kolabnow_tls,{kolab_guam_listener,start_link,[kolabnow_tls,[{port,1997},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"/home/mollekopf/src/guam/certs/localhost.cert"},{keyfile,"/home/mollekopf/src/guam/certs/localhost.key"},{cacertfile,"/home/mollekopf/src/guam/certs/ca.cert"},{dhfile,"/home/mollekopf/src/guam/certs/dhparam4096.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow_tls]}]
+2021-06-07 09:08:07.278 [info] <0.299.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-07 09:08:07.282 [debug] <0.299.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-07 09:08:07.282 [debug] <0.301.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.299.0>
+2021-06-07 09:08:07.282 [info] <0.302.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-07 09:08:07.282 [debug] <0.302.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-07 09:08:07.282 [debug] <0.304.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.302.0>
+2021-06-07 09:08:07.282 [info] <0.305.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-07 09:08:07.282 [debug] <0.305.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-07 09:08:07.282 [debug] <0.307.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.305.0>
+2021-06-07 09:08:07.282 [info] <0.308.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-07 09:08:07.282 [debug] <0.308.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-07 09:08:07.282 [debug] <0.310.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.308.0>
+2021-06-07 09:08:07.282 [info] <0.311.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-07 09:08:07.282 [debug] <0.311.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-07 09:08:07.282 [debug] <0.313.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.311.0>
+2021-06-07 09:08:07.282 [info] <0.314.0>@kolab_guam_listener:init:45 Starting listener "kolabnow_tls" on port 1997 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-07 09:08:07.283 [debug] <0.314.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-07 09:08:07.283 [debug] <0.316.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.314.0>
+2021-06-07 09:08:07.741 [debug] <0.273.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-07 09:08:13.526 [debug] <0.323.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"1 authenticate PLAIN\r\n">>
+2021-06-07 09:08:13.554 [debug] <0.323.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"+ \r\n">>
+2021-06-07 09:08:13.555 [debug] <0.323.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"AHRlc3QxQGtvbGFiLm9yZwBXZWxjb21lMktvbGFiU3lzdGVtcw==\r\n">>
+2021-06-07 09:08:13.790 [debug] <0.323.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"1 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] Success (tls protection) SESSIONID=<cyrus-imapd-11463-1623049693-1-7742459202495778834>\r\n">>
+2021-06-07 09:08:13.790 [info] <0.323.0>@kolab_guam_rule_audit:extract_username:87 Command <<"authenticate">>, Full Buffer  <<"1 authenticate PLAIN\r\nAHRlc3QxQGtvbGFiLm9yZwBXZWxjb21lMktvbGFiU3lzdGVtcw==\r\n">>
+2021-06-07 09:08:13.790 [info] <0.323.0>@kolab_guam_rule_audit:apply_to_server_message:61 login: test1@kolab.org from ::1, OK
+2021-06-07 09:08:13.792 [debug] <0.323.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"2 ID (\"name\" \"Thunderbird\" \"version\" \"78.10.1\")\r\n">>
+2021-06-07 09:08:13.808 [debug] <0.323.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* ID (\"name\" \"Cyrus IMAPD\" \"version\" \"2.5.15-28-g7d1550bfa-Kolab-2.5.15.28-2.1.el7.kolab_16 7d1550bf 2020-01-29\" \"vendor\" \"Project Cyrus\" \"support-url\" \"http://www.cyrusimap.org\" \"os\" \"Linux\" \"os-version\" \"3.10.0-1160.11.1.el7.x86_64\" \"environment\" \"Built w/Cyrus SASL 2.1.26; Running w/Cyrus SASL 2.1.26; Built w/OpenSSL 1.0.2k-fips  26 Jan 2017; Running w/OpenSSL 1.0.2k-fips  26 Jan 2017; CMU Sieve 2.4; mmap = shared; lock = fcntl; nonblock = fcntl; idle = idled\")\r\n2 OK Completed\r\n">>
+2021-06-07 09:08:13.810 [debug] <0.323.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"3 select \"INBOX\"\r\n">>
+2021-06-07 09:08:14.199 [debug] <0.323.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* 233 EXISTS\r\n* 0 RECENT\r\n* FLAGS (\\Answered \\Flagged \\Draft \\Deleted \\Seen $ATTACHMENT $QUEUED $ERROR $SIGNED $Forwarded NonJunk Junk $MailFlagBit0 $MailFlagBit1 $MailFlagBit2)\r\n* OK [PERMANENTFLAGS (\\Answered \\Flagged \\Draft \\Deleted \\Seen $ATTACHMENT $QUEUED $ERROR $SIGNED $Forwarded NonJunk Junk $MailFlagBit0 $MailFlagBit1 $MailFlagBit2 \\*)] Ok\r\n* OK [UNSEEN 213] Ok\r\n* OK [UIDVALIDITY 1482328916] Ok\r\n* OK [UIDNEXT 333] Ok\r\n* OK [HIGHESTMODSEQ 1825] Ok\r\n* OK [URLMECH INTERNAL] Ok\r\n* OK [ANNOTATIONS 65536] Ok\r\n3 OK [READ-WRITE] Completed\r\n">>
+2021-06-07 09:08:14.201 [debug] <0.323.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"4 getquotaroot \"INBOX\"\r\n">>
+2021-06-07 09:08:14.228 [debug] <0.323.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* QUOTAROOT INBOX INBOX\r\n* QUOTA INBOX (STORAGE 24603 5242880)\r\n4 OK Completed\r\n">>
+2021-06-07 09:08:14.230 [debug] <0.323.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"5 UID fetch 1:* (FLAGS)\r\n">>
+2021-06-07 09:08:14.253 [debug] <0.323.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"* 1 FETCH (FLAGS (\\Seen) UID 1)\r\n* 2 FETCH (FLAGS (\\Seen) UID 2)\r\n* 3 FETCH (FLAGS (\\Seen) UID 3)\r\n* 4 FETCH (FLAGS (\\Seen) UID 4)\r\n* 5 FETCH (FLAGS (\\Seen) UID 6)\r\n* 6 FETCH (FLAGS (\\Seen) UID 7)\r\n* 7 FETCH (FLAGS (\\Seen) UID 9)\r\n* 8 FETCH (FLAGS (\\Seen) UID 10)\r\n* 9 FETCH (FLAGS (\\Seen) UID 12)\r\n* 10 FETCH (FLAGS (\\Seen) UID 13)\r\n* 11 FETCH (FLAGS (\\Seen) UID 14)\r\n* 12 FETCH (FLAGS (\\Seen) UID 15)\r\n* 13 FETCH (FLAGS (\\Seen) UID 17)\r\n* 14 FETCH (FLAGS (\\Seen) UID 18)\r\n* 15 FETCH (FLAGS (\\Seen) UID 19)\r\n* 16 FETCH (FLAGS (\\Seen) UID 21)\r\n* 17 FETCH (FLAGS (\\Seen $Forwarded) UID 22)\r\n* 18 FETCH (FLAGS (\\Seen $Forwarded) UID 24)\r\n* 19 FETCH (FLAGS (\\Seen) UID 25)\r\n* 20 FETCH (FLAGS (\\Seen) UID 29)\r\n* 21 FETCH (FLAGS (\\Seen $Forwarded) UID 30)\r\n* 22 FETCH (FLAGS (\\Answered \\Seen) UID 31)\r\n* 23 FETCH (FLAGS (\\Seen) UID 32)\r\n* 24 FETCH (FLAGS (\\Seen) UID 33)\r\n* 25 FETCH (FLAGS (\\Seen) UID 36)\r\n* 26 FETCH (FLAGS (\\Seen) UID 37)\r\n* 27 FETCH (FLAGS (\\Seen) UID 38)\r\n* 28 FETCH (FLAGS (\\Seen) UID 39)\r\n* 29 FETCH (FLAGS (\\Seen) UID 43)\r\n* 30 FETCH (FLAGS (\\Seen) UID 44)\r\n* 31 FETCH (FLAGS (\\Seen) UID 45)\r\n* 32 FETCH (FLAGS (\\Seen) UID 46)\r\n* 33 FETCH (FLAGS (\\Seen) UID 47)\r\n* 34 FETCH (FLAGS (\\Seen) UID 48)\r\n* 35 FETCH (FLAGS (\\Seen) UID 49)\r\n* 36 FETCH (FLAGS (\\Seen) UID 50)\r\n* 37 FETCH (FLAGS (\\Seen) UID 53)\r\n* 38 FETCH (FLAGS (\\Seen) UID 60)\r\n* 39 FETCH (FLAGS (\\Seen NonJunk) UID 61)\r\n* 40 FETCH (FLAGS (\\Seen) UID 62)\r\n* 41 FETCH (FLAGS (\\Seen) UID 63)\r\n* 42 FETCH (FLAGS (\\Seen) UID 64)\r\n* 43 FETCH (FLAGS (\\Seen) UID 65)\r\n* 44 FETCH (FLAGS (\\Seen) UID 66)\r\n* 45 FETCH (FLAGS (\\Seen) UID 67)\r\n* 46 FETCH (FLAGS (\\Seen) UID 68)\r\n* 47 FETCH (FLAGS (\\Seen) UID 69)\r\n* 48 FETCH (FLAGS (\\Seen) UID 70)\r\n* 49 FETCH (FLAGS (\\Seen) UID 71)\r\n* 50 FETCH (FLAGS (\\Seen) UID 72)\r\n* 51 FETCH (FLAGS (\\Seen) UID 73)\r\n* 52 FETCH (FLAGS (\\Seen) UID 75)\r\n* 53 FETCH (FLAGS (\\Seen) UID 76)\r\n* 54 FETCH (FLAGS (\\Seen) UID 77)\r\n* 55 FETCH (FLAGS (\\Seen) UID 78)\r\n* 56 FETCH (FLAGS (\\Seen) UID 79)\r\n* 57 FETCH (FLAGS (\\Seen) UID 80)\r\n* 58 FETCH (FLAGS (\\Seen) UID 81)\r\n* 59 FETCH (FLAGS (\\Seen) UID 82)\r\n* 60 FETCH (FLAGS (\\Seen) UID 83)\r\n* 61 FETCH (FLAGS (\\Seen) UID 84)\r\n* 62 FETCH (FLAGS (\\Seen) UID 87)\r\n* 63 FETCH (FLAGS (\\Seen) UID 90)\r\n* 64 FETCH (FLAGS (\\Seen) UID 91)\r\n* 65 FETCH (FLAGS (\\Seen NonJunk) UID 92)\r\n* 66 FETCH (FLAGS (\\Seen) UID 93)\r\n* 67 FETCH (FLAGS (\\Seen) UID 94)\r\n* 68 FETCH (FLAGS (\\Seen) UID 95)\r\n* 69 FETCH (FLAGS (\\Seen) UID 96)\r\n* 70 FETCH (FLAGS (\\Seen) UID 97)\r\n* 71 FETCH (FLAGS (\\Seen) UID 106)\r\n* 72 FETCH (FLAGS (\\Seen) UID 107)\r\n* 73 FETCH (FLAGS (\\Seen) UID 108)\r\n* 74 FETCH (FLAGS (\\Seen) UID 110)\r\n* 75 FETCH (FLAGS (\\Seen) UID 112)\r\n* 76 FETCH (FLAGS (\\Seen) UID 113)\r\n* 77 FETCH (FLAGS (\\Seen) UID 115)\r\n* 78 FETCH (FLAGS (\\Seen) UID 116)\r\n* 79 FETCH (FLAGS (\\Seen) UID 123)\r\n* 80 FETCH (FLAGS (\\Seen) UID 124)\r\n* 81 FETCH (FLAGS (\\Seen) UID 131)\r\n* 82 FETCH (FLAGS (\\Seen) UID 132)\r\n* 83 FETCH (FLAGS (\\Seen) UID 133)\r\n* 84 FETCH (FLAGS (\\Seen) UID 134)\r\n* 85 FETCH (FLAGS (\\Seen) UID 135)\r\n* 86 FETCH (FLAGS (\\Seen) UID 136)\r\n* 87 FETCH (FLAGS (\\Seen) UID 137)\r\n* 88 FETCH (FLAGS (\\Seen) UID 138)\r\n* 89 FETCH (FLAGS (\\Seen NonJunk) UID 139)\r\n* 90 FETCH (FLAGS (\\Seen) UID 140)\r\n* 91 FETCH (FLAGS (\\Seen) UID 141)\r\n* 92 FETCH (FLAGS (\\Seen) UID 147)\r\n* 93 FETCH (FLAGS (\\Seen) UID 148)\r\n* 94 FETCH (FLAGS (\\Seen) UID 149)\r\n* 95 FETCH (FLAGS (\\Seen) UID 152)\r\n* 96 FETCH (FLAGS (\\Seen) UID 153)\r\n* 97 FETCH (FLAGS (\\Seen) UID 154)\r\n* 98 FETCH (FLAGS (\\Flagged \\Seen) UID 155)\r\n* 99 FETCH (FLAGS (\\Flagged \\Seen) UID 159)\r\n* 100 FETCH (FLAGS (\\Seen) UID 162)\r\n* 101 FETCH (FLAGS (\\Seen) UID 166)\r\n* 102 FETCH (FLAGS (\\Seen NonJunk) UID 169)\r\n* 103 FETCH (FLAGS (\\Seen) UID 171)\r\n* 104 FETCH (FLAGS (\\Seen) UID 174)\r\n* 105 FETCH (FLAGS (\\Seen) UID 175)\r\n* 106 FETCH (FLAGS (\\Seen) UID 177)\r\n* 107 FETCH (FLAGS (\\Seen) UID 182)\r\n* 108 FETCH (FLAGS (\\Seen) UID 183)\r\n* 109 FETCH (FLAGS (\\Seen) UID 184)\r\n* 110 FETCH (FLAGS (\\Seen) UID 185)\r\n* 111 FETCH (FLAGS (\\Seen) UID 186)\r\n* 112 FETCH (FLAGS (\\Seen) UID 187)\r\n* 113 FETCH (...">>
+2021-06-07 09:08:14.268 [debug] <0.323.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"\n* 114 FETCH (FLAGS (\\Seen NonJunk) UID 189)\r\n* 115 FETCH (FLAGS (\\Seen NonJunk) UID 190)\r\n* 116 FETCH (FLAGS (\\Seen NonJunk) UID 191)\r\n* 117 FETCH (FLAGS (\\Seen NonJunk) UID 192)\r\n* 118 FETCH (FLAGS (\\Seen) UID 194)\r\n* 119 FETCH (FLAGS (\\Seen) UID 195)\r\n* 120 FETCH (FLAGS (\\Seen) UID 196)\r\n* 121 FETCH (FLAGS (\\Seen) UID 197)\r\n* 122 FETCH (FLAGS (\\Seen) UID 198)\r\n* 123 FETCH (FLAGS (\\Seen) UID 199)\r\n* 124 FETCH (FLAGS (\\Seen) UID 200)\r\n* 125 FETCH (FLAGS (\\Seen) UID 201)\r\n* 126 FETCH (FLAGS (\\Seen) UID 202)\r\n* 127 FETCH (FLAGS (\\Seen) UID 203)\r\n* 128 FETCH (FLAGS (\\Seen) UID 204)\r\n* 129 FETCH (FLAGS (\\Seen) UID 205)\r\n* 130 FETCH (FLAGS (\\Seen) UID 206)\r\n* 131 FETCH (FLAGS (\\Seen) UID 207)\r\n* 132 FETCH (FLAGS (\\Seen) UID 208)\r\n* 133 FETCH (FLAGS (\\Seen) UID 209)\r\n* 134 FETCH (FLAGS (\\Seen) UID 210)\r\n* 135 FETCH (FLAGS (\\Seen) UID 211)\r\n* 136 FETCH (FLAGS (\\Seen) UID 212)\r\n* 137 FETCH (FLAGS (\\Seen) UID 213)\r\n* 138 FETCH (FLAGS (\\Seen) UID 214)\r\n* 139 FETCH (FLAGS (\\Seen) UID 215)\r\n* 140 FETCH (FLAGS (\\Seen) UID 216)\r\n* 141 FETCH (FLAGS (\\Seen) UID 217)\r\n* 142 FETCH (FLAGS (\\Seen) UID 218)\r\n* 143 FETCH (FLAGS (\\Seen) UID 219)\r\n* 144 FETCH (FLAGS (\\Seen) UID 220)\r\n* 145 FETCH (FLAGS (\\Seen) UID 222)\r\n* 146 FETCH (FLAGS (\\Seen) UID 223)\r\n* 147 FETCH (FLAGS (\\Seen) UID 224)\r\n* 148 FETCH (FLAGS (\\Seen) UID 225)\r\n* 149 FETCH (FLAGS (\\Seen) UID 228)\r\n* 150 FETCH (FLAGS (\\Seen) UID 229)\r\n* 151 FETCH (FLAGS (\\Seen) UID 230)\r\n* 152 FETCH (FLAGS (\\Seen) UID 232)\r\n* 153 FETCH (FLAGS (\\Seen) UID 233)\r\n* 154 FETCH (FLAGS (\\Seen) UID 234)\r\n* 155 FETCH (FLAGS (\\Seen) UID 235)\r\n* 156 FETCH (FLAGS (\\Seen) UID 236)\r\n* 157 FETCH (FLAGS (\\Seen) UID 237)\r\n* 158 FETCH (FLAGS (\\Seen) UID 238)\r\n* 159 FETCH (FLAGS (\\Seen) UID 239)\r\n* 160 FETCH (FLAGS (\\Seen) UID 240)\r\n* 161 FETCH (FLAGS (\\Seen) UID 241)\r\n* 162 FETCH (FLAGS (\\Seen) UID 242)\r\n* 163 FETCH (FLAGS (\\Seen) UID 243)\r\n* 164 FETCH (FLAGS (\\Seen) UID 245)\r\n* 165 FETCH (FLAGS (\\Seen) UID 246)\r\n* 166 FETCH (FLAGS (\\Seen) UID 247)\r\n* 167 FETCH (FLAGS (\\Seen) UID 248)\r\n* 168 FETCH (FLAGS (\\Seen) UID 249)\r\n* 169 FETCH (FLAGS (\\Seen) UID 250)\r\n* 170 FETCH (FLAGS (\\Flagged \\Seen) UID 253)\r\n* 171 FETCH (FLAGS (\\Seen) UID 254)\r\n* 172 FETCH (FLAGS (\\Flagged \\Seen) UID 256)\r\n* 173 FETCH (FLAGS (\\Seen) UID 257)\r\n* 174 FETCH (FLAGS (\\Seen) UID 258)\r\n* 175 FETCH (FLAGS (\\Seen) UID 259)\r\n* 176 FETCH (FLAGS (\\Seen) UID 260)\r\n* 177 FETCH (FLAGS (\\Seen) UID 261)\r\n* 178 FETCH (FLAGS (\\Seen) UID 262)\r\n* 179 FETCH (FLAGS (\\Seen) UID 263)\r\n* 180 FETCH (FLAGS (\\Seen) UID 264)\r\n* 181 FETCH (FLAGS (\\Seen) UID 265)\r\n* 182 FETCH (FLAGS (\\Seen) UID 266)\r\n* 183 FETCH (FLAGS (\\Flagged \\Seen) UID 267)\r\n* 184 FETCH (FLAGS (\\Flagged \\Seen) UID 268)\r\n* 185 FETCH (FLAGS (\\Flagged \\Seen) UID 269)\r\n* 186 FETCH (FLAGS (\\Flagged \\Seen) UID 270)\r\n* 187 FETCH (FLAGS (\\Seen) UID 271)\r\n* 188 FETCH (FLAGS (\\Seen) UID 272)\r\n* 189 FETCH (FLAGS (\\Seen) UID 273)\r\n* 190 FETCH (FLAGS (\\Seen) UID 274)\r\n* 191 FETCH (FLAGS (\\Seen) UID 277)\r\n* 192 FETCH (FLAGS (\\Seen) UID 278)\r\n* 193 FETCH (FLAGS (\\Seen) UID 279)\r\n* 194 FETCH (FLAGS (\\Seen) UID 280)\r\n* 195 FETCH (FLAGS (\\Seen) UID 281)\r\n* 196 FETCH (FLAGS (\\Seen) UID 282)\r\n* 197 FETCH (FLAGS (\\Seen) UID 291)\r\n* 198 FETCH (FLAGS (\\Seen) UID 292)\r\n* 199 FETCH (FLAGS (\\Seen NonJunk) UID 293)\r\n* 200 FETCH (FLAGS (\\Flagged \\Seen) UID 294)\r\n* 201 FETCH (FLAGS (\\Seen) UID 295)\r\n* 202 FETCH (FLAGS (\\Seen) UID 296)\r\n* 203 FETCH (FLAGS (\\Seen) UID 298)\r\n* 204 FETCH (FLAGS (\\Seen) UID 299)\r\n* 205 FETCH (FLAGS (\\Seen) UID 300)\r\n* 206 FETCH (FLAGS (\\Seen) UID 301)\r\n* 207 FETCH (FLAGS (\\Seen) UID 302)\r\n* 208 FETCH (FLAGS (\\Seen) UID 303)\r\n* 209 FETCH (FLAGS (\\Seen) UID 304)\r\n* 210 FETCH (FLAGS (\\Seen) UID 305)\r\n* 211 FETCH (FLAGS (\\Seen) UID 306)\r\n* 212 FETCH (FLAGS (\\Seen) UID 307)\r\n* 213 FETCH (FLAGS (NonJunk) UID 308)\r\n* 214 FETCH (FLAGS (\\Seen) UID 309)\r\n* 215 FETCH (FLAGS (NonJunk) UID 310)\r\n* 216 FETCH (FLAGS (NonJunk) UID 311)\r\n* 217 FETCH (FLAGS (NonJunk) UID 312)\r\n* 218 FETCH (FLAGS (\\Seen) UID 313)\r\n* 219 FETCH (FLAGS (NonJunk) UID 318)\r\n* 220 FETCH (FLAGS (\\Seen) UI...">>
+2021-06-07 09:08:14.268 [debug] <0.323.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"Junk) UID 320)\r\n* 222 FETCH (FLAGS (NonJunk) UID 321)\r\n* 223 FETCH (FLAGS (\\Seen) UID 322)\r\n* 224 FETCH (FLAGS (\\Seen) UID 323)\r\n* 225 FETCH (FLAGS (NonJunk) UID 324)\r\n* 226 FETCH (FLAGS (\\Seen) UID 325)\r\n* 227 FETCH (FLAGS (\\Seen) UID 326)\r\n* 228 FETCH (FLAGS (\\Seen) UID 327)\r\n* 229 FETCH (FLAGS (\\Seen) UID 328)\r\n* 230 FETCH (FLAGS () UID 329)\r\n* 231 FETCH (FLAGS (\\Seen) UID 330)\r\n* 232 FETCH (FLAGS () UID 331)\r\n* 233 FETCH (FLAGS () UID 332)\r\n5 OK Completed (0.010 sec)\r\n">>
+2021-06-07 09:08:14.307 [debug] <0.323.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"6 IDLE\r\n">>
+2021-06-07 09:08:14.326 [debug] <0.323.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"+ idling\r\n">>
+2021-06-07 11:02:40.658 [debug] <0.285.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/error.log"} into lager_event
+2021-06-07 11:02:40.658 [debug] <0.288.0>@lager_handler_watcher:127 Lager installed handler {lager_file_backend,"log/console.log"} into lager_event
+2021-06-07 11:02:40.662 [debug] <0.294.0>@lager_handler_watcher:127 Lager installed handler error_logger_lager_h into error_logger
+2021-06-07 11:02:40.685 [info] <0.305.0>@kolab_guam:start:33 Starting Kolab Guam IMAP session proxy ...
+2021-06-07 11:02:40.685 [info] <0.305.0>@kolab_guam:start:34     Starting the main supervisor ...
+2021-06-07 11:02:40.685 [debug] <0.306.0>@kolab_guam_sup:init:46 Creating listeners ...
+2021-06-07 11:02:40.687 [debug] <0.306.0>@kolab_guam_sup:create_child:53 Making listener "default" with [{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]
+2021-06-07 11:02:40.687 [debug] <0.306.0>@kolab_guam_sup:create_child:53 Making listener "default_tls" with [{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-07 11:02:40.687 [debug] <0.306.0>@kolab_guam_sup:create_child:53 Making listener "kolabsys" with [{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]
+2021-06-07 11:02:40.687 [debug] <0.306.0>@kolab_guam_sup:create_child:53 Making listener "localhost" with [{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]
+2021-06-07 11:02:40.687 [debug] <0.306.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow" with [{port,1996},{imap_server,kolabnow},{implicit_tls,false},{rules,[{filter_groupware,[]},{audit,[]}]}]
+2021-06-07 11:02:40.687 [debug] <0.306.0>@kolab_guam_sup:create_child:53 Making listener "kolabnow_tls" with [{port,1997},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"./certs/localhost.cert"},{keyfile,"./certs/localhost.key"},{cacertfile,"./certs/ca.cert"},{dhfile,"./certs/dhparam4096.pem"},{verify,verify_none}]}]
+2021-06-07 11:02:40.687 [debug] <0.306.0>@kolab_guam_sup:init:49 We have [{default,{kolab_guam_listener,start_link,[default,[{port,1143},{imap_server,default},{rules,[{filter_groupware,[]}]},{listener_pool_size,10},{tls_config,[{certfile,"/etc/ssl/sample.pem"}]}]]},permanent,5000,supervisor,[default]},{default_tls,{kolab_guam_listener,start_link,[default_tls,[{port,1993},{imap_server,default},{rules,[{filter_groupware,[]}]},{implicit_tls,true},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[default_tls]},{kolabsys,{kolab_guam_listener,start_link,[kolabsys,[{port,1994},{imap_server,kolabsys},{rules,[{filter_groupware,[]}]},{tls_config,[{certfile,"/etc/ssl/sample.cert"},{keyfile,"/etc/ssl/sample.key"}]}]]},permanent,5000,supervisor,[kolabsys]},{localhost,{kolab_guam_listener,start_link,[localhost,[{port,1995},{imap_server,localhost},{rules,[{filter_groupware,[]}]}]]},permanent,5000,supervisor,[localhost]},{kolabnow,{kolab_guam_listener,start_link,[kolabnow,[{port,1996},{imap_server,kolabnow},{implicit_tls,false},{rules,[{filter_groupware,[]},{audit,[]}]}]]},permanent,5000,supervisor,[kolabnow]},{kolabnow_tls,{kolab_guam_listener,start_link,[kolabnow_tls,[{port,1997},{imap_server,kolabnow},{implicit_tls,true},{rules,[{filter_groupware,[]},{audit,[]}]},{tls_config,[{certfile,"./certs/localhost.cert"},{keyfile,"./certs/localhost.key"},{cacertfile,"./certs/ca.cert"},{dhfile,"./certs/dhparam4096.pem"},{verify,verify_none}]}]]},permanent,5000,supervisor,[kolabnow_tls]}]
+2021-06-07 11:02:40.688 [info] <0.307.0>@kolab_guam_listener:init:45 Starting listener "default" on port 1143 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-07 11:02:40.691 [debug] <0.307.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-07 11:02:40.691 [debug] <0.309.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.307.0>
+2021-06-07 11:02:40.691 [info] <0.310.0>@kolab_guam_listener:init:45 Starting listener "default_tls" on port 1993 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-07 11:02:40.691 [debug] <0.310.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"192.168.56.101"},{port,143},{tls,no}]
+2021-06-07 11:02:40.692 [debug] <0.312.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.310.0>
+2021-06-07 11:02:40.692 [info] <0.313.0>@kolab_guam_listener:init:45 Starting listener "kolabsys" on port 1994 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-07 11:02:40.692 [debug] <0.313.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabsys.com"},{port,143},{tls,starttls}]
+2021-06-07 11:02:40.692 [debug] <0.315.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.313.0>
+2021-06-07 11:02:40.692 [info] <0.316.0>@kolab_guam_listener:init:45 Starting listener "localhost" on port 1995 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 1 rules
+2021-06-07 11:02:40.692 [debug] <0.316.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"127.0.0.1"},{port,993},{tls,true}]
+2021-06-07 11:02:40.692 [debug] <0.318.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.316.0>
+2021-06-07 11:02:40.692 [info] <0.319.0>@kolab_guam_listener:init:45 Starting listener "kolabnow" on port 1996 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-07 11:02:40.692 [debug] <0.319.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-07 11:02:40.692 [debug] <0.321.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.319.0>
+2021-06-07 11:02:40.692 [info] <0.322.0>@kolab_guam_listener:init:45 Starting listener "kolabnow_tls" on port 1997 ([{keepalive,true},{reuseaddr,true},{active,false},inet6]) with 2 rules
+2021-06-07 11:02:40.692 [debug] <0.322.0>@kolab_guam_listener:init:52 ImapConfig is [{host,"imap.kolabnow.com"},{port,993},{tls,true}]
+2021-06-07 11:02:40.692 [debug] <0.324.0>@kolab_guam_listener:create_initial_listeners:81 Creating session pool of size 10 for listener <0.322.0>
+2021-06-07 11:02:41.147 [debug] <0.281.0>@lager_handler_watcher:127 Lager installed handler lager_backend_throttle into lager_event
+2021-06-07 11:02:49.608 [debug] <0.329.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN">>
+2021-06-07 11:02:49.609 [debug] <0.329.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN ">>
+2021-06-07 11:02:49.609 [debug] <0.329.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org ">>
+2021-06-07 11:02:49.609 [debug] <0.329.0>@kolab_guam_session:process_client_data:268 FROM CLIENT: <<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>
+2021-06-07 11:02:49.737 [debug] <0.329.0>@kolab_guam_session:handle_info:111 FROM SERVER: <<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-23088-1623056569-1-5245386856634523990>\r\n">>
+2021-06-07 11:02:49.737 [info] <0.329.0>@kolab_guam_rule_audit:apply_to_server_message:61 login: test1@kolab.org from ::1, OK

guam-0.9.11.tar.gz/log/console.log.0 Added

guam-0.9.11.tar.gz/log/console.log.1 Added

guam-0.9.11.tar.gz/log/console.log.2 Added

guam-0.9.11.tar.gz/log/console.log.3 Added

guam-0.9.11.tar.gz/log/console.log.4 Added

guam-0.9.11.tar.gz/log/crash.log Added

@@ -0,0 +1,261 @@
+2021-06-06 01:03:16 =ERROR REPORT====
+** Generic server <0.311.0> terminating 
+** Last message in was {'$gen_cast',accept}
+** When Server state == {state,#Port<0.45>,undefined,<0.303.0>,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/etc/guam/dh_2048.pem"},{verify,verify_none},{versions,['tlsv1.2','tlsv1.1',tlsv1]},{fail_if_no_peer_cert,false},{honor_cipher_order,true},{ciphers,["ECDHE-ECDSA-AES256-GCM-SHA384","ECDHE-RSA-AES256-GCM-SHA384","ECDHE-ECDSA-AES256-SHA384","ECDHE-RSA-AES256-SHA384","ECDHE-ECDSA-DES-CBC3-SHA","ECDH-ECDSA-AES256-GCM-SHA384","ECDH-RSA-AES256-GCM-SHA384","ECDH-ECDSA-AES256-SHA384","ECDH-RSA-AES256-SHA384","DHE-DSS-AES256-GCM-SHA384","DHE-DSS-AES256-SHA256","AES256-GCM-SHA384","AES256-SHA256","ECDHE-ECDSA-AES128-GCM-SHA256","ECDHE-RSA-AES128-GCM-SHA256","ECDHE-ECDSA-AES128-SHA256","ECDHE-RSA-AES128-SHA256","ECDH-ECDSA-AES128-GCM-SHA256","ECDH-RSA-AES128-GCM-SHA256","ECDH-ECDSA-AES128-SHA256","ECDH-RSA-AES128-SHA256","DHE-DSS-AES128-GCM-SHA256","DHE-DSS-AES128-SHA256","AES128-GCM-SHA256","AES128-SHA256","ECDHE-ECDSA-AES256-SHA","ECDHE-RSA-AES256-SHA","DHE-DSS-AES256-SHA","ECDH-ECDSA-AES256-SHA","ECDH-RSA-AES256-SHA","AES256-SHA","ECDHE-ECDSA-AES128-SHA","ECDHE-RSA-AES128-SHA","DHE-DSS-AES128-SHA","ECDH-ECDSA-AES128-SHA","ECDH-RSA-AES128-SHA","AES128-SHA"]},{client_renegotiation,false},{secure_renegotiate,true}],true,false,[{host,"imap.kolabnow.com"},{port,993},{tls,true}],[],[{kolab_guam_rule_audit,{state,<<>>,false,<<>>,[],<<>>,<<>>,[<<"LOGIN">>,<<"login">>,<<"AUTHENTICATE">>,<<"authenticate">>]}},{kolab_guam_rule_filter_groupware,{state,undefined,<<>>,false,<<>>,[<<"LIST">>,<<"list">>,<<"XLIST">>,<<"xlist">>,<<"LSUB">>,<<"lsub">>]}}],undefined,undefined,undefined,<<>>,undefined,reset_for_next_client_command,0}
+** Reason for termination ==
+** {{case_clause,{error,{options,{dhfile,"/etc/guam/dh_2048.pem",{error,enoent}}}}},[{kolab_guam_session,accept_client,1,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,183}]},{kolab_guam_session,handle_cast,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,52}]},{gen_server,try_dispatch,4,[{file,"gen_server.erl"},{line,689}]},{gen_server,handle_msg,6,[{file,"gen_server.erl"},{line,765}]},{proc_lib,init_p_do_apply,3,[{file,"proc_lib.erl"},{line,226}]}]}
+2021-06-06 01:03:16 =CRASH REPORT====
+  crasher:
+    initial call: kolab_guam_session:init/1
+    pid: <0.311.0>
+    registered_name: []
+    exception error: {{case_clause,{error,{options,{dhfile,"/etc/guam/dh_2048.pem",{error,enoent}}}}},[{kolab_guam_session,accept_client,1,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,183}]},{kolab_guam_session,handle_cast,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,52}]},{gen_server,try_dispatch,4,[{file,"gen_server.erl"},{line,689}]},{gen_server,handle_msg,6,[{file,"gen_server.erl"},{line,765}]},{proc_lib,init_p_do_apply,3,[{file,"proc_lib.erl"},{line,226}]}]}
+    ancestors: [<0.303.0>,kolab_guam_sup,<0.289.0>]
+    message_queue_len: 0
+    messages: []
+    links: [<0.303.0>]
+    dictionary: []
+    trap_exit: true
+    status: running
+    heap_size: 6772
+    stack_size: 28
+    reductions: 20650
+  neighbours:
+2021-06-06 01:03:16 =SUPERVISOR REPORT====
+     Supervisor: {<0.303.0>,kolab_guam_listener}
+     Context:    child_terminated
+     Reason:     {{case_clause,{error,{options,{dhfile,"/etc/guam/dh_2048.pem",{error,enoent}}}}},[{kolab_guam_session,accept_client,1,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,183}]},{kolab_guam_session,handle_cast,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,52}]},{gen_server,try_dispatch,4,[{file,"gen_server.erl"},{line,689}]},{gen_server,handle_msg,6,[{file,"gen_server.erl"},{line,765}]},{proc_lib,init_p_do_apply,3,[{file,"proc_lib.erl"},{line,226}]}]}
+     Offender:   [{pid,<0.311.0>},{id,session},{mfargs,{kolab_guam_session,start_link,undefined}},{restart_type,temporary},{shutdown,1000},{child_type,worker}]
+
+2021-06-06 01:35:19 =ERROR REPORT====
+** Generic server <0.344.0> terminating 
+** Last message in was {ssl,{sslsocket,{gen_tcp,#Port<0.50>,tls_connection,[{session_id_tracker,<0.361.0>}]},[<0.381.0>,<0.380.0>]},<<"Welcome2KolabSystems\r\n">>}
+** When Server state == {state,undefined,{sslsocket,{gen_tcp,#Port<0.50>,tls_connection,[{session_id_tracker,<0.361.0>}]},[<0.381.0>,<0.380.0>]},<0.303.0>,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}],true,true,[{host,"imap.kolabnow.com"},{port,993},{tls,true}],[],[{kolab_guam_rule_audit,{state,<<>>,false,<<>>,[],<<>>,<<>>,[<<"LOGIN">>,<<"login">>,<<"AUTHENTICATE">>,<<"authenticate">>]}},{kolab_guam_rule_filter_groupware,{state,undefined,<<>>,false,<<>>,[<<"LIST">>,<<"list">>,<<"XLIST">>,<<"xlist">>,<<"LSUB">>,<<"lsub">>]}}],<0.382.0>,undefined,undefined,<<"RUBY0001 LOGIN test1@kolab.org ">>,undefined,reset_for_next_client_command,0}
+** Reason for termination ==
+** {function_clause,[{prim_inet,peername,[{sslsocket,{gen_tcp,#Port<0.50>,tls_connection,[{session_id_tracker,<0.361.0>}]},[<0.381.0>,<0.380.0>]}],[]},{kolab_guam_rule_audit,applies,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,28}]},{kolab_guam_session,check_next_undecided_rule,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,380}]},{kolab_guam_session,apply_ruleset_clientside,7,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,362}]},{kolab_guam_session,process_client_line,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,297}]},{kolab_guam_session,process_lines,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,238}]},{kolab_guam_session,process_client_data,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,271}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,81}]}]}
+2021-06-06 01:35:19 =CRASH REPORT====
+  crasher:
+    initial call: kolab_guam_session:init/1
+    pid: <0.344.0>
+    registered_name: []
+    exception error: {function_clause,[{prim_inet,peername,[{sslsocket,{gen_tcp,#Port<0.50>,tls_connection,[{session_id_tracker,<0.361.0>}]},[<0.381.0>,<0.380.0>]}],[]},{kolab_guam_rule_audit,applies,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,28}]},{kolab_guam_session,check_next_undecided_rule,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,380}]},{kolab_guam_session,apply_ruleset_clientside,7,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,362}]},{kolab_guam_session,process_client_line,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,297}]},{kolab_guam_session,process_lines,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,238}]},{kolab_guam_session,process_client_data,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,271}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,81}]}]}
+    ancestors: [<0.303.0>,kolab_guam_sup,<0.289.0>]
+    message_queue_len: 1
+    messages: [{'EXIT',<0.382.0>,killed}]
+    links: [<0.303.0>]
+    dictionary: []
+    trap_exit: true
+    status: running
+    heap_size: 2586
+    stack_size: 28
+    reductions: 16493
+  neighbours:
+2021-06-06 01:35:19 =SUPERVISOR REPORT====
+     Supervisor: {<0.303.0>,kolab_guam_listener}
+     Context:    child_terminated
+     Reason:     {function_clause,[{prim_inet,peername,[{sslsocket,{gen_tcp,#Port<0.50>,tls_connection,[{session_id_tracker,<0.361.0>}]},[<0.381.0>,<0.380.0>]}],[]},{kolab_guam_rule_audit,applies,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,28}]},{kolab_guam_session,check_next_undecided_rule,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,380}]},{kolab_guam_session,apply_ruleset_clientside,7,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,362}]},{kolab_guam_session,process_client_line,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,297}]},{kolab_guam_session,process_lines,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,238}]},{kolab_guam_session,process_client_data,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,271}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,81}]}]}
+     Offender:   [{pid,<0.344.0>},{id,session},{mfargs,{kolab_guam_session,start_link,undefined}},{restart_type,temporary},{shutdown,1000},{child_type,worker}]
+
+2021-06-06 01:37:11 =ERROR REPORT====
+** Generic server <0.356.0> terminating 
+** Last message in was {ssl,{sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.374.0>,<0.373.0>]},<<"Welcome2KolabSystems\r\n">>}
+** When Server state == {state,undefined,{sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.374.0>,<0.373.0>]},<0.311.0>,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}],true,true,[{host,"imap.kolabnow.com"},{port,993},{tls,true}],[],[{kolab_guam_rule_audit,{state,<<>>,false,<<>>,[],<<>>,<<>>,[<<"LOGIN">>,<<"login">>,<<"AUTHENTICATE">>,<<"authenticate">>]}},{kolab_guam_rule_filter_groupware,{state,undefined,<<>>,false,<<>>,[<<"LIST">>,<<"list">>,<<"XLIST">>,<<"xlist">>,<<"LSUB">>,<<"lsub">>]}}],<0.375.0>,undefined,undefined,<<"RUBY0001 LOGIN test1@kolab.org ">>,undefined,reset_for_next_client_command,0}
+** Reason for termination ==
+** {function_clause,[{prim_inet,peername,[{sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.374.0>,<0.373.0>]}],[]},{kolab_guam_rule_audit,applies,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,30}]},{kolab_guam_session,check_next_undecided_rule,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,380}]},{kolab_guam_session,apply_ruleset_clientside,7,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,362}]},{kolab_guam_session,process_client_line,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,297}]},{kolab_guam_session,process_lines,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,238}]},{kolab_guam_session,process_client_data,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,271}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,81}]}]}
+2021-06-06 01:37:11 =CRASH REPORT====
+  crasher:
+    initial call: kolab_guam_session:init/1
+    pid: <0.356.0>
+    registered_name: []
+    exception error: {function_clause,[{prim_inet,peername,[{sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.374.0>,<0.373.0>]}],[]},{kolab_guam_rule_audit,applies,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,30}]},{kolab_guam_session,check_next_undecided_rule,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,380}]},{kolab_guam_session,apply_ruleset_clientside,7,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,362}]},{kolab_guam_session,process_client_line,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,297}]},{kolab_guam_session,process_lines,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,238}]},{kolab_guam_session,process_client_data,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,271}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,81}]}]}
+    ancestors: [<0.311.0>,kolab_guam_sup,<0.297.0>]
+    message_queue_len: 1
+    messages: [{'EXIT',<0.375.0>,killed}]
+    links: [<0.311.0>]
+    dictionary: []
+    trap_exit: true
+    status: running
+    heap_size: 4185
+    stack_size: 28
+    reductions: 16862
+  neighbours:
+2021-06-06 01:37:11 =SUPERVISOR REPORT====
+     Supervisor: {<0.311.0>,kolab_guam_listener}
+     Context:    child_terminated
+     Reason:     {function_clause,[{prim_inet,peername,[{sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.374.0>,<0.373.0>]}],[]},{kolab_guam_rule_audit,applies,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,30}]},{kolab_guam_session,check_next_undecided_rule,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,380}]},{kolab_guam_session,apply_ruleset_clientside,7,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,362}]},{kolab_guam_session,process_client_line,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,297}]},{kolab_guam_session,process_lines,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,238}]},{kolab_guam_session,process_client_data,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,271}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,81}]}]}
+     Offender:   [{pid,<0.356.0>},{id,session},{mfargs,{kolab_guam_session,start_link,undefined}},{restart_type,temporary},{shutdown,1000},{child_type,worker}]
+
+2021-06-06 01:37:26 =ERROR REPORT====
+** Generic server <0.311.0> terminating 
+** Last message in was {ssl,{sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.359.0>}]},[<0.361.0>,<0.360.0>]},<<"Welcome2KolabSystems\r\n">>}
+** When Server state == {state,undefined,{sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.359.0>}]},[<0.361.0>,<0.360.0>]},<0.303.0>,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}],true,true,[{host,"imap.kolabnow.com"},{port,993},{tls,true}],[],[{kolab_guam_rule_audit,{state,<<>>,false,<<>>,[],<<>>,<<>>,[<<"LOGIN">>,<<"login">>,<<"AUTHENTICATE">>,<<"authenticate">>]}},{kolab_guam_rule_filter_groupware,{state,undefined,<<>>,false,<<>>,[<<"LIST">>,<<"list">>,<<"XLIST">>,<<"xlist">>,<<"LSUB">>,<<"lsub">>]}}],<0.363.0>,undefined,undefined,<<"RUBY0001 LOGIN test1@kolab.org ">>,undefined,reset_for_next_client_command,0}
+** Reason for termination ==
+** {function_clause,[{prim_inet,peername,[{sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.359.0>}]},[<0.361.0>,<0.360.0>]}],[]},{kolab_guam_rule_audit,applies,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,30}]},{kolab_guam_session,check_next_undecided_rule,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,380}]},{kolab_guam_session,apply_ruleset_clientside,7,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,362}]},{kolab_guam_session,process_client_line,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,297}]},{kolab_guam_session,process_lines,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,238}]},{kolab_guam_session,process_client_data,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,271}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,81}]}]}
+2021-06-06 01:37:26 =CRASH REPORT====
+  crasher:
+    initial call: kolab_guam_session:init/1
+    pid: <0.311.0>
+    registered_name: []
+    exception error: {function_clause,[{prim_inet,peername,[{sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.359.0>}]},[<0.361.0>,<0.360.0>]}],[]},{kolab_guam_rule_audit,applies,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,30}]},{kolab_guam_session,check_next_undecided_rule,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,380}]},{kolab_guam_session,apply_ruleset_clientside,7,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,362}]},{kolab_guam_session,process_client_line,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,297}]},{kolab_guam_session,process_lines,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,238}]},{kolab_guam_session,process_client_data,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,271}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,81}]}]}
+    ancestors: [<0.303.0>,kolab_guam_sup,<0.289.0>]
+    message_queue_len: 1
+    messages: [{'EXIT',<0.363.0>,killed}]
+    links: [<0.303.0>]
+    dictionary: []
+    trap_exit: true
+    status: running
+    heap_size: 4185
+    stack_size: 28
+    reductions: 17452
+  neighbours:
+2021-06-06 01:37:26 =SUPERVISOR REPORT====
+     Supervisor: {<0.303.0>,kolab_guam_listener}
+     Context:    child_terminated
+     Reason:     {function_clause,[{prim_inet,peername,[{sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.359.0>}]},[<0.361.0>,<0.360.0>]}],[]},{kolab_guam_rule_audit,applies,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,30}]},{kolab_guam_session,check_next_undecided_rule,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,380}]},{kolab_guam_session,apply_ruleset_clientside,7,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,362}]},{kolab_guam_session,process_client_line,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,297}]},{kolab_guam_session,process_lines,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,238}]},{kolab_guam_session,process_client_data,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,271}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,81}]}]}
+     Offender:   [{pid,<0.311.0>},{id,session},{mfargs,{kolab_guam_session,start_link,undefined}},{restart_type,temporary},{shutdown,1000},{child_type,worker}]
+
+2021-06-06 01:53:37 =ERROR REPORT====
+** Generic server <0.319.0> terminating 
+** Last message in was {ssl,{sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]},<<"Welcome2KolabSystems\r\n">>}
+** When Server state == {state,undefined,{sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]},<0.311.0>,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}],true,true,[{host,"imap.kolabnow.com"},{port,993},{tls,true}],[],[{kolab_guam_rule_audit,{state,<<>>,false,<<>>,[],<<>>,<<>>,[<<"LOGIN">>,<<"login">>,<<"AUTHENTICATE">>,<<"authenticate">>]}},{kolab_guam_rule_filter_groupware,{state,undefined,<<>>,false,<<>>,[<<"LIST">>,<<"list">>,<<"XLIST">>,<<"xlist">>,<<"LSUB">>,<<"lsub">>]}}],<0.371.0>,undefined,undefined,<<"RUBY0001 LOGIN test1@kolab.org ">>,undefined,reset_for_next_client_command,0}
+** Reason for termination ==
+** {function_clause,[{prim_inet,peername,[{sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]}],[]},{kolab_guam_rule_audit,applies,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,31}]},{kolab_guam_session,check_next_undecided_rule,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,380}]},{kolab_guam_session,apply_ruleset_clientside,7,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,362}]},{kolab_guam_session,process_client_line,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,297}]},{kolab_guam_session,process_lines,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,238}]},{kolab_guam_session,process_client_data,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,271}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,81}]}]}
+2021-06-06 01:53:37 =CRASH REPORT====
+  crasher:
+    initial call: kolab_guam_session:init/1
+    pid: <0.319.0>
+    registered_name: []
+    exception error: {function_clause,[{prim_inet,peername,[{sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]}],[]},{kolab_guam_rule_audit,applies,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,31}]},{kolab_guam_session,check_next_undecided_rule,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,380}]},{kolab_guam_session,apply_ruleset_clientside,7,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,362}]},{kolab_guam_session,process_client_line,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,297}]},{kolab_guam_session,process_lines,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,238}]},{kolab_guam_session,process_client_data,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,271}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,81}]}]}
+    ancestors: [<0.311.0>,kolab_guam_sup,<0.297.0>]
+    message_queue_len: 1
+    messages: [{'EXIT',<0.371.0>,killed}]
+    links: [<0.311.0>]
+    dictionary: []
+    trap_exit: true
+    status: running
+    heap_size: 4185
+    stack_size: 28
+    reductions: 17286
+  neighbours:
+2021-06-06 01:53:37 =SUPERVISOR REPORT====
+     Supervisor: {<0.311.0>,kolab_guam_listener}
+     Context:    child_terminated
+     Reason:     {function_clause,[{prim_inet,peername,[{sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]}],[]},{kolab_guam_rule_audit,applies,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,31}]},{kolab_guam_session,check_next_undecided_rule,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,380}]},{kolab_guam_session,apply_ruleset_clientside,7,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,362}]},{kolab_guam_session,process_client_line,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,297}]},{kolab_guam_session,process_lines,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,238}]},{kolab_guam_session,process_client_data,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,271}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,81}]}]}
+     Offender:   [{pid,<0.319.0>},{id,session},{mfargs,{kolab_guam_session,start_link,undefined}},{restart_type,temporary},{shutdown,1000},{child_type,worker}]
+
+2021-06-06 01:56:33 =ERROR REPORT====
+** Generic server <0.319.0> terminating 
+** Last message in was {ssl,{sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]},<<"\r\n">>}
+** When Server state == {state,undefined,{sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]},<0.311.0>,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}],true,true,[{host,"imap.kolabnow.com"},{port,993},{tls,true}],[],[{kolab_guam_rule_audit,{state,<<>>,false,<<>>,[],<<>>,<<>>,[<<"LOGIN">>,<<"login">>,<<"AUTHENTICATE">>,<<"authenticate">>]}},{kolab_guam_rule_filter_groupware,{state,undefined,<<>>,false,<<>>,[<<"LIST">>,<<"list">>,<<"XLIST">>,<<"xlist">>,<<"LSUB">>,<<"lsub">>]}}],<0.371.0>,undefined,undefined,<<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems">>,undefined,reset_for_next_client_command,0}
+** Reason for termination ==
+** {function_clause,[{prim_inet,peername,[{sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]}],[]},{kolab_guam_rule_audit,applies,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,34}]},{kolab_guam_session,check_next_undecided_rule,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,380}]},{kolab_guam_session,apply_ruleset_clientside,7,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,362}]},{kolab_guam_session,process_client_line,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,297}]},{kolab_guam_session,process_lines,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,238}]},{kolab_guam_session,process_client_data,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,271}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,81}]}]}
+2021-06-06 01:56:33 =CRASH REPORT====
+  crasher:
+    initial call: kolab_guam_session:init/1
+    pid: <0.319.0>
+    registered_name: []
+    exception error: {function_clause,[{prim_inet,peername,[{sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]}],[]},{kolab_guam_rule_audit,applies,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,34}]},{kolab_guam_session,check_next_undecided_rule,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,380}]},{kolab_guam_session,apply_ruleset_clientside,7,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,362}]},{kolab_guam_session,process_client_line,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,297}]},{kolab_guam_session,process_lines,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,238}]},{kolab_guam_session,process_client_data,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,271}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,81}]}]}
+    ancestors: [<0.311.0>,kolab_guam_sup,<0.297.0>]
+    message_queue_len: 1
+    messages: [{'EXIT',<0.371.0>,killed}]
+    links: [<0.311.0>]
+    dictionary: []
+    trap_exit: true
+    status: running
+    heap_size: 6772
+    stack_size: 28
+    reductions: 18424
+  neighbours:
+2021-06-06 01:56:33 =SUPERVISOR REPORT====
+     Supervisor: {<0.311.0>,kolab_guam_listener}
+     Context:    child_terminated
+     Reason:     {function_clause,[{prim_inet,peername,[{sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]}],[]},{kolab_guam_rule_audit,applies,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,34}]},{kolab_guam_session,check_next_undecided_rule,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,380}]},{kolab_guam_session,apply_ruleset_clientside,7,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,362}]},{kolab_guam_session,process_client_line,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,297}]},{kolab_guam_session,process_lines,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,238}]},{kolab_guam_session,process_client_data,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,271}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,81}]}]}
+     Offender:   [{pid,<0.319.0>},{id,session},{mfargs,{kolab_guam_session,start_link,undefined}},{restart_type,temporary},{shutdown,1000},{child_type,worker}]
+
+2021-06-06 01:57:06 =ERROR REPORT====
+** Generic server <0.356.0> terminating 
+** Last message in was {ssl,{sslsocket,{gen_tcp,#Port<0.48>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.381.0>,<0.380.0>]},<<" Welcome2KolabSystems\r\n">>}
+** When Server state == {state,undefined,{sslsocket,{gen_tcp,#Port<0.48>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.381.0>,<0.380.0>]},<0.311.0>,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}],true,true,[{host,"imap.kolabnow.com"},{port,993},{tls,true}],[],[{kolab_guam_rule_audit,{state,<<>>,false,<<>>,[],<<>>,<<>>,[<<"LOGIN">>,<<"login">>,<<"AUTHENTICATE">>,<<"authenticate">>]}},{kolab_guam_rule_filter_groupware,{state,undefined,<<>>,false,<<>>,[<<"LIST">>,<<"list">>,<<"XLIST">>,<<"xlist">>,<<"LSUB">>,<<"lsub">>]}}],<0.382.0>,undefined,undefined,<<"RUBY0001 LOGIN test1@kolab.org">>,undefined,reset_for_next_client_command,0}
+** Reason for termination ==
+** {function_clause,[{prim_inet,peername,[{sslsocket,{gen_tcp,#Port<0.48>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.381.0>,<0.380.0>]}],[]},{kolab_guam_rule_audit,applies,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,34}]},{kolab_guam_session,check_next_undecided_rule,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,380}]},{kolab_guam_session,apply_ruleset_clientside,7,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,362}]},{kolab_guam_session,process_client_line,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,297}]},{kolab_guam_session,process_lines,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,238}]},{kolab_guam_session,process_client_data,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,271}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,81}]}]}
+2021-06-06 01:57:06 =CRASH REPORT====
+  crasher:
+    initial call: kolab_guam_session:init/1
+    pid: <0.356.0>
+    registered_name: []
+    exception error: {function_clause,[{prim_inet,peername,[{sslsocket,{gen_tcp,#Port<0.48>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.381.0>,<0.380.0>]}],[]},{kolab_guam_rule_audit,applies,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,34}]},{kolab_guam_session,check_next_undecided_rule,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,380}]},{kolab_guam_session,apply_ruleset_clientside,7,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,362}]},{kolab_guam_session,process_client_line,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,297}]},{kolab_guam_session,process_lines,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,238}]},{kolab_guam_session,process_client_data,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,271}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,81}]}]}
+    ancestors: [<0.311.0>,kolab_guam_sup,<0.297.0>]
+    message_queue_len: 0
+    messages: []
+    links: [<0.311.0>,<0.382.0>]
+    dictionary: []
+    trap_exit: true
+    status: running
+    heap_size: 6772
+    stack_size: 28
+    reductions: 16376
+  neighbours:
+2021-06-06 01:57:06 =SUPERVISOR REPORT====
+     Supervisor: {<0.311.0>,kolab_guam_listener}
+     Context:    child_terminated
+     Reason:     {function_clause,[{prim_inet,peername,[{sslsocket,{gen_tcp,#Port<0.48>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.381.0>,<0.380.0>]}],[]},{kolab_guam_rule_audit,applies,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,34}]},{kolab_guam_session,check_next_undecided_rule,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,380}]},{kolab_guam_session,apply_ruleset_clientside,7,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,362}]},{kolab_guam_session,process_client_line,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,297}]},{kolab_guam_session,process_lines,5,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,238}]},{kolab_guam_session,process_client_data,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,271}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,81}]}]}
+     Offender:   [{pid,<0.356.0>},{id,session},{mfargs,{kolab_guam_session,start_link,undefined}},{restart_type,temporary},{shutdown,1000},{child_type,worker}]
+
+2021-06-06 02:08:07 =ERROR REPORT====
+** Generic server <0.319.0> terminating 
+** Last message in was {imap_server_response,<<"RUBY0001 OK [CAPABILITY IMAP4rev1 LITERAL+ ID ENABLE ACL RIGHTS=kxten QUOTA NAMESPACE UIDPLUS NO_ATOMIC_RENAME UNSELECT CHILDREN MULTIAPPEND BINARY CATENATE CONDSTORE ESEARCH SORT SORT=MODSEQ SORT=DISPLAY SORT=UID THREAD=ORDEREDSUBJECT THREAD=REFERENCES ANNOTATEMORE ANNOTATE-EXPERIMENT-1 METADATA LIST-MYRIGHTS WITHIN QRESYNC SCAN XMOVE MOVE SPECIAL-USE CREATE-SPECIAL-USE URLAUTH URLAUTH=BINARY X-NETSCAPE MUPDATE=mupdate://mupdate.mykolab.com/ LOGINDISABLED AUTH=PLAIN AUTH=LOGIN X-QUOTA=STORAGE X-QUOTA=MESSAGE X-QUOTA=X-ANNOTATION-STORAGE X-QUOTA=X-NUM-FOLDERS IDLE] User logged in SESSIONID=<cyrus-imapd-13684-1622938087-1-9454287488598061142>\r\n">>}
+** When Server state == {state,undefined,{sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]},<0.311.0>,[{certfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{cacertfile,"/home/mollekopf/src/plesk-tests/data/dovecot.pem"},{dhfile,"/home/mollekopf/src/plesk-tests/data/dh_2048.pem"},{verify,verify_none}],true,true,[{host,"imap.kolabnow.com"},{port,993},{tls,true}],[{kolab_guam_rule_audit,{state,<<"RUBY0001">>,true,<<"RUBY0001 LOGIN test1@kolab.org Welcome2KolabSystems\r\n">>,{0,0,0,0,0,0,0,1},<<>>,<<"LOGIN">>,[<<"LOGIN">>,<<"login">>,<<"AUTHENTICATE">>,<<"authenticate">>]}}],[{kolab_guam_rule_filter_groupware,{state,undefined,<<>>,false,<<>>,[<<"LIST">>,<<"list">>,<<"XLIST">>,<<"xlist">>,<<"LSUB">>,<<"lsub">>]}}],<0.371.0>,undefined,undefined,<<>>,{<<"RUBY0001">>,<<"LOGIN">>,<<"test1@kolab.org Welcome2KolabSystems">>},reset_for_next_client_command,0}
+** Reason for termination ==
+** {function_clause,[{lists,nth,[2,[]],[{file,"lists.erl"},{line,170}]},{kolab_guam_rule_audit,apply_to_server_message,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,61}]},{kolab_guam_session,apply_next_rule_serverside,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,345}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,112}]},{gen_server,try_dispatch,4,[{file,"gen_server.erl"},{line,689}]},{gen_server,handle_msg,6,[{file,"gen_server.erl"},{line,765}]},{proc_lib,init_p_do_apply,3,[{file,"proc_lib.erl"},{line,226}]}]}
+2021-06-06 02:08:07 =CRASH REPORT====
+  crasher:
+    initial call: kolab_guam_session:init/1
+    pid: <0.319.0>
+    registered_name: []
+    exception error: {function_clause,[{lists,nth,[2,[]],[{file,"lists.erl"},{line,170}]},{kolab_guam_rule_audit,apply_to_server_message,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,61}]},{kolab_guam_session,apply_next_rule_serverside,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,345}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,112}]},{gen_server,try_dispatch,4,[{file,"gen_server.erl"},{line,689}]},{gen_server,handle_msg,6,[{file,"gen_server.erl"},{line,765}]},{proc_lib,init_p_do_apply,3,[{file,"proc_lib.erl"},{line,226}]}]}
+    ancestors: [<0.311.0>,kolab_guam_sup,<0.297.0>]
+    message_queue_len: 1
+    messages: [{'EXIT',<0.371.0>,killed}]
+    links: [<0.311.0>]
+    dictionary: []
+    trap_exit: true
+    status: running
+    heap_size: 2586
+    stack_size: 28
+    reductions: 22696
+  neighbours:
+2021-06-06 02:08:07 =SUPERVISOR REPORT====
+     Supervisor: {<0.311.0>,kolab_guam_listener}
+     Context:    child_terminated
+     Reason:     {function_clause,[{lists,nth,[2,[]],[{file,"lists.erl"},{line,170}]},{kolab_guam_rule_audit,apply_to_server_message,3,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/rules/kolab_guam_rule_audit.erl"},{line,61}]},{kolab_guam_session,apply_next_rule_serverside,4,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,345}]},{kolab_guam_session,handle_info,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,112}]},{gen_server,try_dispatch,4,[{file,"gen_server.erl"},{line,689}]},{gen_server,handle_msg,6,[{file,"gen_server.erl"},{line,765}]},{proc_lib,init_p_do_apply,3,[{file,"proc_lib.erl"},{line,226}]}]}
+     Offender:   [{pid,<0.319.0>},{id,session},{mfargs,{kolab_guam_session,start_link,undefined}},{restart_type,temporary},{shutdown,1000},{child_type,worker}]
+
+2021-06-06 13:04:34 =ERROR REPORT====
+** Generic server <0.316.0> terminating 
+** Last message in was {'$gen_cast',accept}
+** When Server state == {state,#Port<0.44>,undefined,<0.311.0>,[{certfile,"/home/mollekopf/src/guam/certs/localhost.cert"},{cacertfile,"/home/mollekopf/src/guam/certs/ca.cert"},{dhfile,"/home/mollekopf/src/guam/certs/dhparam4096.pem"},{verify,verify_none}],true,false,[{host,"imap.kolabnow.com"},{port,993},{tls,true}],[],[{kolab_guam_rule_audit,{state,<<>>,false,<<>>,[],<<>>,<<>>,[<<"LOGIN">>,<<"login">>,<<"AUTHENTICATE">>,<<"authenticate">>]}},{kolab_guam_rule_filter_groupware,{state,undefined,<<>>,false,<<>>,[<<"LIST">>,<<"list">>,<<"XLIST">>,<<"xlist">>,<<"LSUB">>,<<"lsub">>]}}],undefined,undefined,undefined,<<>>,undefined,reset_for_next_client_command,0}
+** Reason for termination ==
+** {{case_clause,{error,{options,{keyfile,"/home/mollekopf/src/guam/certs/localhost.cert",[]}}}},[{kolab_guam_session,accept_client,1,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,183}]},{kolab_guam_session,handle_cast,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,52}]},{gen_server,try_dispatch,4,[{file,"gen_server.erl"},{line,689}]},{gen_server,handle_msg,6,[{file,"gen_server.erl"},{line,765}]},{proc_lib,init_p_do_apply,3,[{file,"proc_lib.erl"},{line,226}]}]}
+2021-06-06 13:04:34 =CRASH REPORT====
+  crasher:
+    initial call: kolab_guam_session:init/1
+    pid: <0.316.0>
+    registered_name: []
+    exception error: {{case_clause,{error,{options,{keyfile,"/home/mollekopf/src/guam/certs/localhost.cert",[]}}}},[{kolab_guam_session,accept_client,1,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,183}]},{kolab_guam_session,handle_cast,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,52}]},{gen_server,try_dispatch,4,[{file,"gen_server.erl"},{line,689}]},{gen_server,handle_msg,6,[{file,"gen_server.erl"},{line,765}]},{proc_lib,init_p_do_apply,3,[{file,"proc_lib.erl"},{line,226}]}]}
+    ancestors: [<0.311.0>,kolab_guam_sup,<0.297.0>]
+    message_queue_len: 0
+    messages: []
+    links: [<0.311.0>]
+    dictionary: []
+    trap_exit: true
+    status: running
+    heap_size: 6772
+    stack_size: 28
+    reductions: 14596
+  neighbours:
+2021-06-06 13:04:34 =SUPERVISOR REPORT====
+     Supervisor: {<0.311.0>,kolab_guam_listener}
+     Context:    child_terminated
+     Reason:     {{case_clause,{error,{options,{keyfile,"/home/mollekopf/src/guam/certs/localhost.cert",[]}}}},[{kolab_guam_session,accept_client,1,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,183}]},{kolab_guam_session,handle_cast,2,[{file,"/home/mollekopf/src/guam/apps/kolab_guam/src/kolab_guam_session.erl"},{line,52}]},{gen_server,try_dispatch,4,[{file,"gen_server.erl"},{line,689}]},{gen_server,handle_msg,6,[{file,"gen_server.erl"},{line,765}]},{proc_lib,init_p_do_apply,3,[{file,"proc_lib.erl"},{line,226}]}]}
+     Offender:   [{pid,<0.316.0>},{id,session},{mfargs,{kolab_guam_session,start_link,undefined}},{restart_type,temporary},{shutdown,1000},{child_type,worker}]
+

guam-0.9.11.tar.gz/log/crash.log.0 Added

guam-0.9.11.tar.gz/log/crash.log.1 Added

guam-0.9.11.tar.gz/log/crash.log.2 Added

guam-0.9.11.tar.gz/log/crash.log.3 Added

guam-0.9.11.tar.gz/log/crash.log.4 Added

guam-0.9.11.tar.gz/log/ct.latest.log Added

guam-0.9.11.tar.gz/log/ct_default.css Added

@@ -0,0 +1,209 @@
+/* Stylesheet for Common Test */
+
+body {
+    padding: 10px; margin: 10px;
+    -webkit-font-smoothing: antialiased; 
+    background-color: #FBFFFC;
+}
+
+a:link {
+    color: #2B507D;
+}
+
+a:visited {
+    color: #85ABD5
+}
+
+h1 {
+    font-family: verdana, arial, sans-serif; font-size: 200%; 
+    letter-spacing: -2px; word-spacing: 2px; font-weight: bold;
+    color: #3F3F3F;
+}
+
+h2 {
+    font-family: verdana, arial, sans-serif; font-size: 175%;
+    letter-spacing: -2px; word-spacing: 2px; font-weight: normal;
+    color: #3F3F3F;
+}
+
+h3 {
+    font-family: verdana, arial, sans-serif; font-size: 140%;
+    letter-spacing: -2px; word-spacing: 2px; font-weight: bold;
+    color: #3F3F3F;
+}
+
+h4 {
+    font-family: verdana, arial, sans-serif; font-size: 120%;
+    letter-spacing: -2px; word-spacing: 2px; font-weight: normal;
+    color: #3F3F3F;
+}
+
+p {
+    font-family: "Trebuchet MS", "Lucida Sans Unicode", verdana, arial, sans-serif;
+    font-size: .9em; color: #000000;
+}
+
+ul {
+    list-style-type: none;
+    padding: 0em;
+    margin:  1em;
+}
+li {
+    font-size: 0.95em; color: #000000;
+    margin: .3em 0;
+}
+
+pre {
+    color: black; 
+    font-family: "Monaco", "Andale Mono", "Consolas", monospace;
+    font-size: .8em;
+    }
+
+code {
+    color: black; 
+    font-family: "Monaco", "Andale Mono", "Consolas", monospace;
+    font-size: .8em;
+}
+
+div.mono_sm {
+    font-family: "Courier New", monospace; font-size: .75em;
+    word-spacing: 1px; color: #000000;
+}
+
+div.mono_la {
+    font-family: "Courier New", monospace; font-size: .8em;
+    color: #000000;
+}
+
+div.copyright {
+    padding: 20px 0px 0px 0px; 
+    font-family: "Courier New", monospace; font-size: .7em;
+    color: #000000;
+}
+
+div.ct_internal {
+    background: lightgrey; color: black; 
+    font-family: "Monaco", "Andale Mono", "Consolas", monospace;
+    font-size: .95em;
+    margin: .2em 0 0 0;
+}
+
+div.ct_error_notify { 
+    background: #CC0000;
+    color: #FFFFFF;
+    font-family: "Monaco", "Andale Mono", "Consolas", monospace;
+    font-size: 1.05em;
+    margin: .2em 0 0 0;
+}
+
+div.ct_error_notify a:link {
+    color: #D0D0D0;
+}
+
+div.ct_error_notify a:visited {
+    color: #AAAAAA;
+}
+
+div.default { 
+    background: lightgreen; color: black; 
+    font-family: "Monaco", "Andale Mono", "Consolas", monospace;
+    font-size: 1.05em;
+    margin: .2em 0 0 0;
+}
+
+div.label {
+    font-family: verdana, arial, sans-serif; font-size: 200%; 
+    letter-spacing: -2.5px; word-spacing: 2px;
+    font-weight: bold; color: #2B507D;
+}
+
+table {
+    border-collapse: collapse; border: 6px solid #3F3F3F;
+    background: #FFFFFF;
+    font: .8em/1.2em "Lucida Sans Unicode", verdana, arial, sans-serif; 
+    color: #222;
+}
+
+caption {
+    font-size: 1.3em; font-weight: bold;
+    text-align: center; padding: 1em 4px;
+}
+
+td, th {
+    padding: .5em 7px .5em 7px; line-height: 1.3em; 
+    border-bottom: 3px solid #F5C4C1;
+    border-left: 2px dashed #809FFF;
+}
+
+th {
+    background: #3F3F3F; color: #fff; 
+    font-family: arial, sans-serif; font-size: 120%;
+    letter-spacing: -0.5px;
+    font-weight: bold; text-align: center; 
+    padding-right: .5em; vertical-align: top;
+}
+
+thead th {
+    background: #3F3F3F; color: #fff; 
+    font-family: arial, sans-serif; font-size: 120%;
+    letter-spacing: -0.5px;
+    font-weight: bold; text-align: center; 
+    padding-right: .5em; vertical-align: top;
+    text-decoration: underline;
+}
+
+tfoot td {
+    font-family: arial, sans-serif; font-size: 110%;
+    letter-spacing: -0.5px;
+    font-weight: bold;
+}
+
+.odd td {
+    background: #F3F3F3;
+}
+.odd th {
+    background: #F3F3F3;
+}
+
+td a, td a:link {
+    color: #2B507D;
+}
+
+td a:visited {
+    color: #85ABD5;
+}
+
+tr:hover th[scope=row], tr:hover td { 
+    background-color: #D1D1D1;
+    color: #fff;
+} 
+
+td a:hover, td a:focus {
+    color: #85ABD5;
+}
+
+th a, td a:active {
+    color: #85ABD5;
+}
+
+th + td {
+    padding-left: .5em;
+}
+
+#button_holder {
+    display: block; float: center;
+    font-family: arial, verdana, sans-serif;
+    font-size: 12px; text-shadow: 1px 1px lightgray;
+} 
+
+.btn a {
+    padding: 6px 12px; float: center; 
+    text-decoration: none; color: #3F3F3F;
+    font-weight: bold; border: 3px outset #3F3F3F;
+    background-color: #F3F3F3;
+}
+
+.btn a:hover {
+    color: #fff;
+    background-color: #809FFF;
+}

guam-0.9.11.tar.gz/log/ct_log_cache Added

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45 Added

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/ct_default.css Added

@@ -0,0 +1,209 @@
+/* Stylesheet for Common Test */
+
+body {
+    padding: 10px; margin: 10px;
+    -webkit-font-smoothing: antialiased; 
+    background-color: #FBFFFC;
+}
+
+a:link {
+    color: #2B507D;
+}
+
+a:visited {
+    color: #85ABD5
+}
+
+h1 {
+    font-family: verdana, arial, sans-serif; font-size: 200%; 
+    letter-spacing: -2px; word-spacing: 2px; font-weight: bold;
+    color: #3F3F3F;
+}
+
+h2 {
+    font-family: verdana, arial, sans-serif; font-size: 175%;
+    letter-spacing: -2px; word-spacing: 2px; font-weight: normal;
+    color: #3F3F3F;
+}
+
+h3 {
+    font-family: verdana, arial, sans-serif; font-size: 140%;
+    letter-spacing: -2px; word-spacing: 2px; font-weight: bold;
+    color: #3F3F3F;
+}
+
+h4 {
+    font-family: verdana, arial, sans-serif; font-size: 120%;
+    letter-spacing: -2px; word-spacing: 2px; font-weight: normal;
+    color: #3F3F3F;
+}
+
+p {
+    font-family: "Trebuchet MS", "Lucida Sans Unicode", verdana, arial, sans-serif;
+    font-size: .9em; color: #000000;
+}
+
+ul {
+    list-style-type: none;
+    padding: 0em;
+    margin:  1em;
+}
+li {
+    font-size: 0.95em; color: #000000;
+    margin: .3em 0;
+}
+
+pre {
+    color: black; 
+    font-family: "Monaco", "Andale Mono", "Consolas", monospace;
+    font-size: .8em;
+    }
+
+code {
+    color: black; 
+    font-family: "Monaco", "Andale Mono", "Consolas", monospace;
+    font-size: .8em;
+}
+
+div.mono_sm {
+    font-family: "Courier New", monospace; font-size: .75em;
+    word-spacing: 1px; color: #000000;
+}
+
+div.mono_la {
+    font-family: "Courier New", monospace; font-size: .8em;
+    color: #000000;
+}
+
+div.copyright {
+    padding: 20px 0px 0px 0px; 
+    font-family: "Courier New", monospace; font-size: .7em;
+    color: #000000;
+}
+
+div.ct_internal {
+    background: lightgrey; color: black; 
+    font-family: "Monaco", "Andale Mono", "Consolas", monospace;
+    font-size: .95em;
+    margin: .2em 0 0 0;
+}
+
+div.ct_error_notify { 
+    background: #CC0000;
+    color: #FFFFFF;
+    font-family: "Monaco", "Andale Mono", "Consolas", monospace;
+    font-size: 1.05em;
+    margin: .2em 0 0 0;
+}
+
+div.ct_error_notify a:link {
+    color: #D0D0D0;
+}
+
+div.ct_error_notify a:visited {
+    color: #AAAAAA;
+}
+
+div.default { 
+    background: lightgreen; color: black; 
+    font-family: "Monaco", "Andale Mono", "Consolas", monospace;
+    font-size: 1.05em;
+    margin: .2em 0 0 0;
+}
+
+div.label {
+    font-family: verdana, arial, sans-serif; font-size: 200%; 
+    letter-spacing: -2.5px; word-spacing: 2px;
+    font-weight: bold; color: #2B507D;
+}
+
+table {
+    border-collapse: collapse; border: 6px solid #3F3F3F;
+    background: #FFFFFF;
+    font: .8em/1.2em "Lucida Sans Unicode", verdana, arial, sans-serif; 
+    color: #222;
+}
+
+caption {
+    font-size: 1.3em; font-weight: bold;
+    text-align: center; padding: 1em 4px;
+}
+
+td, th {
+    padding: .5em 7px .5em 7px; line-height: 1.3em; 
+    border-bottom: 3px solid #F5C4C1;
+    border-left: 2px dashed #809FFF;
+}
+
+th {
+    background: #3F3F3F; color: #fff; 
+    font-family: arial, sans-serif; font-size: 120%;
+    letter-spacing: -0.5px;
+    font-weight: bold; text-align: center; 
+    padding-right: .5em; vertical-align: top;
+}
+
+thead th {
+    background: #3F3F3F; color: #fff; 
+    font-family: arial, sans-serif; font-size: 120%;
+    letter-spacing: -0.5px;
+    font-weight: bold; text-align: center; 
+    padding-right: .5em; vertical-align: top;
+    text-decoration: underline;
+}
+
+tfoot td {
+    font-family: arial, sans-serif; font-size: 110%;
+    letter-spacing: -0.5px;
+    font-weight: bold;
+}
+
+.odd td {
+    background: #F3F3F3;
+}
+.odd th {
+    background: #F3F3F3;
+}
+
+td a, td a:link {
+    color: #2B507D;
+}
+
+td a:visited {
+    color: #85ABD5;
+}
+
+tr:hover th[scope=row], tr:hover td { 
+    background-color: #D1D1D1;
+    color: #fff;
+} 
+
+td a:hover, td a:focus {
+    color: #85ABD5;
+}
+
+th a, td a:active {
+    color: #85ABD5;
+}
+
+th + td {
+    padding-left: .5em;
+}
+
+#button_holder {
+    display: block; float: center;
+    font-family: arial, verdana, sans-serif;
+    font-size: 12px; text-shadow: 1px 1px lightgray;
+} 
+
+.btn a {
+    padding: 6px 12px; float: center; 
+    text-decoration: none; color: #3F3F3F;
+    font-weight: bold; border: 3px outset #3F3F3F;
+    background-color: #F3F3F3;
+}
+
+.btn a:hover {
+    color: #fff;
+    background-color: #809FFF;
+}

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/ctlog.html Added

@@ -0,0 +1,142 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+
+<head>
+<title>Common Test Framework Log </title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="jquery-latest.js"></script>
+<script type="text/javascript" src="jquery.tablesorter.min.js"></script>
+<script type="text/javascript">
+// Parser for date format, e.g: Wed Jul 4 2012 11:24:15
+var monthNames = {};
+monthNames["Jan"] = "01"; monthNames["Feb"] = "02";
+monthNames["Mar"] = "03"; monthNames["Apr"] = "04";
+monthNames["May"] = "05"; monthNames["Jun"] = "06";
+monthNames["Jul"] = "07"; monthNames["Aug"] = "08";
+monthNames["Sep"] = "09"; monthNames["Oct"] = "10";
+monthNames["Nov"] = "11"; monthNames["Dec"] = "12";
+$.tablesorter.addParser({
+  id: 'CTDateSorter',
+  is: function(s) {
+      return false; },
+  format: function(s) {
+      if (s.length < 2) return 999999999;
+      else {
+          var date = s.match(/(\w{3})\s(\w{3})\s(\d{2})\s(\d{4})\s(\d{2}):(\d{2}):(\d{2})/);
+          var y = date[4]; var mo = monthNames[date[2]]; var d = String(date[3]);
+          var h = String(date[5]); var mi = String(date[6]); var sec = String(date[7]);
+          return (parseInt('' + y + mo + d + h + mi + sec)); }},
+  type: 'numeric' });
+// Parser for general text format
+$.tablesorter.addParser({
+  id: 'CTTextSorter',
+  is: function(s) {
+    return false; },
+  format: function(s) {
+    if (s.length < 1) return 'zzzzzzzz';
+    else if (s == "?") return 'zzzzzzz';
+    else if (s == "-") return 'zzzzzz';
+    else if (s == "FAILED") return 'A';
+    else if (s == "SKIPPED") return 'B';
+    else if (s == "OK") return 'C';
+    else return '' + s; },
+  type: 'text' });
+// Parser for numerical values
+$.tablesorter.addParser({
+  id: 'CTValSorter',
+  is: function(s) {
+    return false; },
+  format: function(s) {
+    if (s.length < 1) return '-2';
+    else if (s == "?") return '-1';
+    else if ((s.search(/(\d{1,})\s/)) >= 0) {
+      var num = s.match(/(\d{1,})\s/);
+      return (parseInt('' + num[1])); }
+    else if ((s.search(/(\d{1,})\.(\d{3})s/)) >= 0) {
+      var num = s.match(/(\d{1,})\.(\d{3})/);
+      if (num[1] == "0") return (parseInt('' + num[2]));
+      else return (parseInt('' + num[1] + num[2])); }
+    else return '' + s; },
+  type: 'numeric' });
+$(document).ready(function() {
+  $("#SortableTable").tablesorter({
+    headers: { 
+      0: { sorter: 'CTTextSorter' },
+      1: { sorter: 'CTTextSorter' }
+    }
+  });
+  $("#SortableTable").trigger("update");
+  $("#SortableTable").trigger("appendCache");
+});
+</script>
+</head>
+<body>
+<center>
+<h1>Common Test Framework Log</h1>
+</center>
+<br />
+<h4>CONFIGURATION</h4>
+<table id="SortableTable">
+<thead>
+<tr><th>Key</th><th>Value</th></tr>
+</thead>
+<tbody>
+<tr class="odd">
+<td>config</td>
+<td>[]</td>
+</tr>
+<tr class="even">
+<td>event_handler</td>
+<td>[]</td>
+</tr>
+<tr class="odd">
+<td>ct_hooks</td>
+<td>[cth_readable_failonly,cth_readable_compact_shell,cth_retry]</td>
+</tr>
+<tr class="even">
+<td>enable_builtin_hooks</td>
+<td>undefined</td>
+</tr>
+</tbody>
+</table>
+<br /><br />
+<h4>PRE/POST TEST I/O LOG</h4>
+
+<ul>
+<li><a href="misc_io.log.html#pretest">View I/O logged before the test run</a></li>
+<li><a href="misc_io.log.html#posttest">View I/O logged after the test run</a></li>
+</ul>
+<br />
+<h4>PROGRESS LOG</h4>
+<pre>
+</pre>
+<div class="ct_internal"><pre><b>*** CT 2021-05-18 09:53:45.082 *** Common Test Logger started</b></pre></div>
+<pre>
+VERBOSITY LEVELS:
+general level            100
+default                  100
+
+</pre>
+<div class="ct_internal"><pre><b>*** CT 2021-05-18 09:53:45.107 *** TEST INFO</b>
+1 test(s), 8 case(s) in 3 suite(s)
+</pre></div>
+<pre></pre>
+<div class="ct_internal"><pre><b>*** CT 2021-05-18 09:53:45.107 *** TEST INFO</b>
+Timetrap time multiplier = 1
+Timetrap scaling enabled = false
+</pre></div>
+<pre></pre>
+<div class="ct_internal"><pre><b>*** CT 2021-05-18 09:53:46.976 *** Common Test Logger finished</b></pre></div>
+<pre>
+</pre>
+<br /><br />
+<center>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:46<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/index.html Added

@@ -0,0 +1,134 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+
+<head>
+<title>Test Results Tue May 18 2021 09:53:45</title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="jquery-latest.js"></script>
+<script type="text/javascript" src="jquery.tablesorter.min.js"></script>
+<script type="text/javascript">
+// Parser for date format, e.g: Wed Jul 4 2012 11:24:15
+var monthNames = {};
+monthNames["Jan"] = "01"; monthNames["Feb"] = "02";
+monthNames["Mar"] = "03"; monthNames["Apr"] = "04";
+monthNames["May"] = "05"; monthNames["Jun"] = "06";
+monthNames["Jul"] = "07"; monthNames["Aug"] = "08";
+monthNames["Sep"] = "09"; monthNames["Oct"] = "10";
+monthNames["Nov"] = "11"; monthNames["Dec"] = "12";
+$.tablesorter.addParser({
+  id: 'CTDateSorter',
+  is: function(s) {
+      return false; },
+  format: function(s) {
+      if (s.length < 2) return 999999999;
+      else {
+          var date = s.match(/(\w{3})\s(\w{3})\s(\d{2})\s(\d{4})\s(\d{2}):(\d{2}):(\d{2})/);
+          var y = date[4]; var mo = monthNames[date[2]]; var d = String(date[3]);
+          var h = String(date[5]); var mi = String(date[6]); var sec = String(date[7]);
+          return (parseInt('' + y + mo + d + h + mi + sec)); }},
+  type: 'numeric' });
+// Parser for general text format
+$.tablesorter.addParser({
+  id: 'CTTextSorter',
+  is: function(s) {
+    return false; },
+  format: function(s) {
+    if (s.length < 1) return 'zzzzzzzz';
+    else if (s == "?") return 'zzzzzzz';
+    else if (s == "-") return 'zzzzzz';
+    else if (s == "FAILED") return 'A';
+    else if (s == "SKIPPED") return 'B';
+    else if (s == "OK") return 'C';
+    else return '' + s; },
+  type: 'text' });
+// Parser for numerical values
+$.tablesorter.addParser({
+  id: 'CTValSorter',
+  is: function(s) {
+    return false; },
+  format: function(s) {
+    if (s.length < 1) return '-2';
+    else if (s == "?") return '-1';
+    else if ((s.search(/(\d{1,})\s/)) >= 0) {
+      var num = s.match(/(\d{1,})\s/);
+      return (parseInt('' + num[1])); }
+    else if ((s.search(/(\d{1,})\.(\d{3})s/)) >= 0) {
+      var num = s.match(/(\d{1,})\.(\d{3})/);
+      if (num[1] == "0") return (parseInt('' + num[2]));
+      else return (parseInt('' + num[1] + num[2])); }
+    else return '' + s; },
+  type: 'numeric' });
+$(document).ready(function() {
+  $("#SortableTable").tablesorter({
+    headers: { 
+      0: { sorter: 'CTTextSorter' },
+      1: { sorter: 'CTValSorter' },
+      2: { sorter: 'CTValSorter' },
+      3: { sorter: 'CTValSorter' },
+      4: { sorter: 'CTValSorter' }
+    }
+  });
+  $("#SortableTable").trigger("update");
+  $("#SortableTable").trigger("appendCache");
+});
+</script>
+</head>
+<body>
+<center>
+<h1>Test Results</h1>
+</center>
+<center>
+<h3>Tue May 18 2021 09:53:45</h3>
+</center>
+<br />
+
+<center>
+<br /><div id="button_holder" class="btn">
+<a href="ctlog.html">COMMON TEST FRAMEWORK LOG</a>
+</div><br>
+<br /><br /><br />
+<table id="SortableTable">
+<thead>
+<tr>
+<th><b>Test Name</b></th>
+<th>Ok</th>
+<th>Failed</th>
+<th>Skipped<br />(User/Auto)</th>
+<th>Missing<br />Suites</th>
+</tr>
+</thead>
+<tbody>
+<tr class="even">
+<td><a href="lib.kolab_guam.logs/run.2021-05-18_09.53.45/suite.log.html">lib.kolab_guam</a></td>
+<td align=right>7</td>
+<td align=right><font color="red">1</font></td>
+<td align=right>0 (0/0)</td>
+<td align=right>0</td>
+</tr>
+</tbody>
+<tfoot>
+<tr class="odd">
+<td><b>Total</b></td>
+<td align=right><b>7</b></td>
+<td align=right><b>1</b></td>
+<td align=right>0 (0/0)</td>
+<td align=right><b>0</b></td>
+</tr>
+</tfoot>
+</table>
+<br /><hr /><p>
+<a href="../all_runs.html">Test run history
+</a>  |  <a href="../index.html">Top level test index
+</a>
+</p>
+</center>
+<center>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:46<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/jquery-latest.js Added

@@ -0,0 +1,154 @@
+/*!
+ * jQuery JavaScript Library v1.4.2
+ * http://jquery.com/
+ *
+ * Copyright 2010, John Resig
+ * Dual licensed under the MIT or GPL Version 2 licenses.
+ * http://jquery.org/license
+ *
+ * Includes Sizzle.js
+ * http://sizzlejs.com/
+ * Copyright 2010, The Dojo Foundation
+ * Released under the MIT, BSD, and GPL Licenses.
+ *
+ * Date: Sat Feb 13 22:33:48 2010 -0500
+ */
+(function(A,w){function ma(){if(!c.isReady){try{s.documentElement.doScroll("left")}catch(a){setTimeout(ma,1);return}c.ready()}}function Qa(a,b){b.src?c.ajax({url:b.src,async:false,dataType:"script"}):c.globalEval(b.text||b.textContent||b.innerHTML||"");b.parentNode&&b.parentNode.removeChild(b)}function X(a,b,d,f,e,j){var i=a.length;if(typeof b==="object"){for(var o in b)X(a,o,b[o],f,e,d);return a}if(d!==w){f=!j&&f&&c.isFunction(d);for(o=0;o<i;o++)e(a[o],b,f?d.call(a[o],o,e(a[o],b)):d,j);return a}return i?
+e(a[0],b):w}function J(){return(new Date).getTime()}function Y(){return false}function Z(){return true}function na(a,b,d){d[0].type=a;return c.event.handle.apply(b,d)}function oa(a){var b,d=[],f=[],e=arguments,j,i,o,k,n,r;i=c.data(this,"events");if(!(a.liveFired===this||!i||!i.live||a.button&&a.type==="click")){a.liveFired=this;var u=i.live.slice(0);for(k=0;k<u.length;k++){i=u[k];i.origType.replace(O,"")===a.type?f.push(i.selector):u.splice(k--,1)}j=c(a.target).closest(f,a.currentTarget);n=0;for(r=
+j.length;n<r;n++)for(k=0;k<u.length;k++){i=u[k];if(j[n].selector===i.selector){o=j[n].elem;f=null;if(i.preType==="mouseenter"||i.preType==="mouseleave")f=c(a.relatedTarget).closest(i.selector)[0];if(!f||f!==o)d.push({elem:o,handleObj:i})}}n=0;for(r=d.length;n<r;n++){j=d[n];a.currentTarget=j.elem;a.data=j.handleObj.data;a.handleObj=j.handleObj;if(j.handleObj.origHandler.apply(j.elem,e)===false){b=false;break}}return b}}function pa(a,b){return"live."+(a&&a!=="*"?a+".":"")+b.replace(/\./g,"`").replace(/ /g,
+"&")}function qa(a){return!a||!a.parentNode||a.parentNode.nodeType===11}function ra(a,b){var d=0;b.each(function(){if(this.nodeName===(a[d]&&a[d].nodeName)){var f=c.data(a[d++]),e=c.data(this,f);if(f=f&&f.events){delete e.handle;e.events={};for(var j in f)for(var i in f[j])c.event.add(this,j,f[j][i],f[j][i].data)}}})}function sa(a,b,d){var f,e,j;b=b&&b[0]?b[0].ownerDocument||b[0]:s;if(a.length===1&&typeof a[0]==="string"&&a[0].length<512&&b===s&&!ta.test(a[0])&&(c.support.checkClone||!ua.test(a[0]))){e=
+true;if(j=c.fragments[a[0]])if(j!==1)f=j}if(!f){f=b.createDocumentFragment();c.clean(a,b,f,d)}if(e)c.fragments[a[0]]=j?f:1;return{fragment:f,cacheable:e}}function K(a,b){var d={};c.each(va.concat.apply([],va.slice(0,b)),function(){d[this]=a});return d}function wa(a){return"scrollTo"in a&&a.document?a:a.nodeType===9?a.defaultView||a.parentWindow:false}var c=function(a,b){return new c.fn.init(a,b)},Ra=A.jQuery,Sa=A.$,s=A.document,T,Ta=/^[^<]*(<[\w\W]+>)[^>]*$|^#([\w-]+)$/,Ua=/^.[^:#\[\.,]*$/,Va=/\S/,
+Wa=/^(\s|\u00A0)+|(\s|\u00A0)+$/g,Xa=/^<(\w+)\s*\/?>(?:<\/\1>)?$/,P=navigator.userAgent,xa=false,Q=[],L,$=Object.prototype.toString,aa=Object.prototype.hasOwnProperty,ba=Array.prototype.push,R=Array.prototype.slice,ya=Array.prototype.indexOf;c.fn=c.prototype={init:function(a,b){var d,f;if(!a)return this;if(a.nodeType){this.context=this[0]=a;this.length=1;return this}if(a==="body"&&!b){this.context=s;this[0]=s.body;this.selector="body";this.length=1;return this}if(typeof a==="string")if((d=Ta.exec(a))&&
+(d[1]||!b))if(d[1]){f=b?b.ownerDocument||b:s;if(a=Xa.exec(a))if(c.isPlainObject(b)){a=[s.createElement(a[1])];c.fn.attr.call(a,b,true)}else a=[f.createElement(a[1])];else{a=sa([d[1]],[f]);a=(a.cacheable?a.fragment.cloneNode(true):a.fragment).childNodes}return c.merge(this,a)}else{if(b=s.getElementById(d[2])){if(b.id!==d[2])return T.find(a);this.length=1;this[0]=b}this.context=s;this.selector=a;return this}else if(!b&&/^\w+$/.test(a)){this.selector=a;this.context=s;a=s.getElementsByTagName(a);return c.merge(this,
+a)}else return!b||b.jquery?(b||T).find(a):c(b).find(a);else if(c.isFunction(a))return T.ready(a);if(a.selector!==w){this.selector=a.selector;this.context=a.context}return c.makeArray(a,this)},selector:"",jquery:"1.4.2",length:0,size:function(){return this.length},toArray:function(){return R.call(this,0)},get:function(a){return a==null?this.toArray():a<0?this.slice(a)[0]:this[a]},pushStack:function(a,b,d){var f=c();c.isArray(a)?ba.apply(f,a):c.merge(f,a);f.prevObject=this;f.context=this.context;if(b===
+"find")f.selector=this.selector+(this.selector?" ":"")+d;else if(b)f.selector=this.selector+"."+b+"("+d+")";return f},each:function(a,b){return c.each(this,a,b)},ready:function(a){c.bindReady();if(c.isReady)a.call(s,c);else Q&&Q.push(a);return this},eq:function(a){return a===-1?this.slice(a):this.slice(a,+a+1)},first:function(){return this.eq(0)},last:function(){return this.eq(-1)},slice:function(){return this.pushStack(R.apply(this,arguments),"slice",R.call(arguments).join(","))},map:function(a){return this.pushStack(c.map(this,
+function(b,d){return a.call(b,d,b)}))},end:function(){return this.prevObject||c(null)},push:ba,sort:[].sort,splice:[].splice};c.fn.init.prototype=c.fn;c.extend=c.fn.extend=function(){var a=arguments[0]||{},b=1,d=arguments.length,f=false,e,j,i,o;if(typeof a==="boolean"){f=a;a=arguments[1]||{};b=2}if(typeof a!=="object"&&!c.isFunction(a))a={};if(d===b){a=this;--b}for(;b<d;b++)if((e=arguments[b])!=null)for(j in e){i=a[j];o=e[j];if(a!==o)if(f&&o&&(c.isPlainObject(o)||c.isArray(o))){i=i&&(c.isPlainObject(i)||
+c.isArray(i))?i:c.isArray(o)?[]:{};a[j]=c.extend(f,i,o)}else if(o!==w)a[j]=o}return a};c.extend({noConflict:function(a){A.$=Sa;if(a)A.jQuery=Ra;return c},isReady:false,ready:function(){if(!c.isReady){if(!s.body)return setTimeout(c.ready,13);c.isReady=true;if(Q){for(var a,b=0;a=Q[b++];)a.call(s,c);Q=null}c.fn.triggerHandler&&c(s).triggerHandler("ready")}},bindReady:function(){if(!xa){xa=true;if(s.readyState==="complete")return c.ready();if(s.addEventListener){s.addEventListener("DOMContentLoaded",
+L,false);A.addEventListener("load",c.ready,false)}else if(s.attachEvent){s.attachEvent("onreadystatechange",L);A.attachEvent("onload",c.ready);var a=false;try{a=A.frameElement==null}catch(b){}s.documentElement.doScroll&&a&&ma()}}},isFunction:function(a){return $.call(a)==="[object Function]"},isArray:function(a){return $.call(a)==="[object Array]"},isPlainObject:function(a){if(!a||$.call(a)!=="[object Object]"||a.nodeType||a.setInterval)return false;if(a.constructor&&!aa.call(a,"constructor")&&!aa.call(a.constructor.prototype,
+"isPrototypeOf"))return false;var b;for(b in a);return b===w||aa.call(a,b)},isEmptyObject:function(a){for(var b in a)return false;return true},error:function(a){throw a;},parseJSON:function(a){if(typeof a!=="string"||!a)return null;a=c.trim(a);if(/^[\],:{}\s]*$/.test(a.replace(/\\(?:["\\\/bfnrt]|u[0-9a-fA-F]{4})/g,"@").replace(/"[^"\\\n\r]*"|true|false|null|-?\d+(?:\.\d*)?(?:[eE][+\-]?\d+)?/g,"]").replace(/(?:^|:|,)(?:\s*\[)+/g,"")))return A.JSON&&A.JSON.parse?A.JSON.parse(a):(new Function("return "+
+a))();else c.error("Invalid JSON: "+a)},noop:function(){},globalEval:function(a){if(a&&Va.test(a)){var b=s.getElementsByTagName("head")[0]||s.documentElement,d=s.createElement("script");d.type="text/javascript";if(c.support.scriptEval)d.appendChild(s.createTextNode(a));else d.text=a;b.insertBefore(d,b.firstChild);b.removeChild(d)}},nodeName:function(a,b){return a.nodeName&&a.nodeName.toUpperCase()===b.toUpperCase()},each:function(a,b,d){var f,e=0,j=a.length,i=j===w||c.isFunction(a);if(d)if(i)for(f in a){if(b.apply(a[f],
+d)===false)break}else for(;e<j;){if(b.apply(a[e++],d)===false)break}else if(i)for(f in a){if(b.call(a[f],f,a[f])===false)break}else for(d=a[0];e<j&&b.call(d,e,d)!==false;d=a[++e]);return a},trim:function(a){return(a||"").replace(Wa,"")},makeArray:function(a,b){b=b||[];if(a!=null)a.length==null||typeof a==="string"||c.isFunction(a)||typeof a!=="function"&&a.setInterval?ba.call(b,a):c.merge(b,a);return b},inArray:function(a,b){if(b.indexOf)return b.indexOf(a);for(var d=0,f=b.length;d<f;d++)if(b[d]===
+a)return d;return-1},merge:function(a,b){var d=a.length,f=0;if(typeof b.length==="number")for(var e=b.length;f<e;f++)a[d++]=b[f];else for(;b[f]!==w;)a[d++]=b[f++];a.length=d;return a},grep:function(a,b,d){for(var f=[],e=0,j=a.length;e<j;e++)!d!==!b(a[e],e)&&f.push(a[e]);return f},map:function(a,b,d){for(var f=[],e,j=0,i=a.length;j<i;j++){e=b(a[j],j,d);if(e!=null)f[f.length]=e}return f.concat.apply([],f)},guid:1,proxy:function(a,b,d){if(arguments.length===2)if(typeof b==="string"){d=a;a=d[b];b=w}else if(b&&
+!c.isFunction(b)){d=b;b=w}if(!b&&a)b=function(){return a.apply(d||this,arguments)};if(a)b.guid=a.guid=a.guid||b.guid||c.guid++;return b},uaMatch:function(a){a=a.toLowerCase();a=/(webkit)[ \/]([\w.]+)/.exec(a)||/(opera)(?:.*version)?[ \/]([\w.]+)/.exec(a)||/(msie) ([\w.]+)/.exec(a)||!/compatible/.test(a)&&/(mozilla)(?:.*? rv:([\w.]+))?/.exec(a)||[];return{browser:a[1]||"",version:a[2]||"0"}},browser:{}});P=c.uaMatch(P);if(P.browser){c.browser[P.browser]=true;c.browser.version=P.version}if(c.browser.webkit)c.browser.safari=
+true;if(ya)c.inArray=function(a,b){return ya.call(b,a)};T=c(s);if(s.addEventListener)L=function(){s.removeEventListener("DOMContentLoaded",L,false);c.ready()};else if(s.attachEvent)L=function(){if(s.readyState==="complete"){s.detachEvent("onreadystatechange",L);c.ready()}};(function(){c.support={};var a=s.documentElement,b=s.createElement("script"),d=s.createElement("div"),f="script"+J();d.style.display="none";d.innerHTML="   <link/><table></table><a href='/a' style='color:red;float:left;opacity:.55;'>a</a><input type='checkbox'/>";
+var e=d.getElementsByTagName("*"),j=d.getElementsByTagName("a")[0];if(!(!e||!e.length||!j)){c.support={leadingWhitespace:d.firstChild.nodeType===3,tbody:!d.getElementsByTagName("tbody").length,htmlSerialize:!!d.getElementsByTagName("link").length,style:/red/.test(j.getAttribute("style")),hrefNormalized:j.getAttribute("href")==="/a",opacity:/^0.55$/.test(j.style.opacity),cssFloat:!!j.style.cssFloat,checkOn:d.getElementsByTagName("input")[0].value==="on",optSelected:s.createElement("select").appendChild(s.createElement("option")).selected,
+parentNode:d.removeChild(d.appendChild(s.createElement("div"))).parentNode===null,deleteExpando:true,checkClone:false,scriptEval:false,noCloneEvent:true,boxModel:null};b.type="text/javascript";try{b.appendChild(s.createTextNode("window."+f+"=1;"))}catch(i){}a.insertBefore(b,a.firstChild);if(A[f]){c.support.scriptEval=true;delete A[f]}try{delete b.test}catch(o){c.support.deleteExpando=false}a.removeChild(b);if(d.attachEvent&&d.fireEvent){d.attachEvent("onclick",function k(){c.support.noCloneEvent=
+false;d.detachEvent("onclick",k)});d.cloneNode(true).fireEvent("onclick")}d=s.createElement("div");d.innerHTML="<input type='radio' name='radiotest' checked='checked'/>";a=s.createDocumentFragment();a.appendChild(d.firstChild);c.support.checkClone=a.cloneNode(true).cloneNode(true).lastChild.checked;c(function(){var k=s.createElement("div");k.style.width=k.style.paddingLeft="1px";s.body.appendChild(k);c.boxModel=c.support.boxModel=k.offsetWidth===2;s.body.removeChild(k).style.display="none"});a=function(k){var n=
+s.createElement("div");k="on"+k;var r=k in n;if(!r){n.setAttribute(k,"return;");r=typeof n[k]==="function"}return r};c.support.submitBubbles=a("submit");c.support.changeBubbles=a("change");a=b=d=e=j=null}})();c.props={"for":"htmlFor","class":"className",readonly:"readOnly",maxlength:"maxLength",cellspacing:"cellSpacing",rowspan:"rowSpan",colspan:"colSpan",tabindex:"tabIndex",usemap:"useMap",frameborder:"frameBorder"};var G="jQuery"+J(),Ya=0,za={};c.extend({cache:{},expando:G,noData:{embed:true,object:true,
+applet:true},data:function(a,b,d){if(!(a.nodeName&&c.noData[a.nodeName.toLowerCase()])){a=a==A?za:a;var f=a[G],e=c.cache;if(!f&&typeof b==="string"&&d===w)return null;f||(f=++Ya);if(typeof b==="object"){a[G]=f;e[f]=c.extend(true,{},b)}else if(!e[f]){a[G]=f;e[f]={}}a=e[f];if(d!==w)a[b]=d;return typeof b==="string"?a[b]:a}},removeData:function(a,b){if(!(a.nodeName&&c.noData[a.nodeName.toLowerCase()])){a=a==A?za:a;var d=a[G],f=c.cache,e=f[d];if(b){if(e){delete e[b];c.isEmptyObject(e)&&c.removeData(a)}}else{if(c.support.deleteExpando)delete a[c.expando];
+else a.removeAttribute&&a.removeAttribute(c.expando);delete f[d]}}}});c.fn.extend({data:function(a,b){if(typeof a==="undefined"&&this.length)return c.data(this[0]);else if(typeof a==="object")return this.each(function(){c.data(this,a)});var d=a.split(".");d[1]=d[1]?"."+d[1]:"";if(b===w){var f=this.triggerHandler("getData"+d[1]+"!",[d[0]]);if(f===w&&this.length)f=c.data(this[0],a);return f===w&&d[1]?this.data(d[0]):f}else return this.trigger("setData"+d[1]+"!",[d[0],b]).each(function(){c.data(this,
+a,b)})},removeData:function(a){return this.each(function(){c.removeData(this,a)})}});c.extend({queue:function(a,b,d){if(a){b=(b||"fx")+"queue";var f=c.data(a,b);if(!d)return f||[];if(!f||c.isArray(d))f=c.data(a,b,c.makeArray(d));else f.push(d);return f}},dequeue:function(a,b){b=b||"fx";var d=c.queue(a,b),f=d.shift();if(f==="inprogress")f=d.shift();if(f){b==="fx"&&d.unshift("inprogress");f.call(a,function(){c.dequeue(a,b)})}}});c.fn.extend({queue:function(a,b){if(typeof a!=="string"){b=a;a="fx"}if(b===
+w)return c.queue(this[0],a);return this.each(function(){var d=c.queue(this,a,b);a==="fx"&&d[0]!=="inprogress"&&c.dequeue(this,a)})},dequeue:function(a){return this.each(function(){c.dequeue(this,a)})},delay:function(a,b){a=c.fx?c.fx.speeds[a]||a:a;b=b||"fx";return this.queue(b,function(){var d=this;setTimeout(function(){c.dequeue(d,b)},a)})},clearQueue:function(a){return this.queue(a||"fx",[])}});var Aa=/[\n\t]/g,ca=/\s+/,Za=/\r/g,$a=/href|src|style/,ab=/(button|input)/i,bb=/(button|input|object|select|textarea)/i,
+cb=/^(a|area)$/i,Ba=/radio|checkbox/;c.fn.extend({attr:function(a,b){return X(this,a,b,true,c.attr)},removeAttr:function(a){return this.each(function(){c.attr(this,a,"");this.nodeType===1&&this.removeAttribute(a)})},addClass:function(a){if(c.isFunction(a))return this.each(function(n){var r=c(this);r.addClass(a.call(this,n,r.attr("class")))});if(a&&typeof a==="string")for(var b=(a||"").split(ca),d=0,f=this.length;d<f;d++){var e=this[d];if(e.nodeType===1)if(e.className){for(var j=" "+e.className+" ",
+i=e.className,o=0,k=b.length;o<k;o++)if(j.indexOf(" "+b[o]+" ")<0)i+=" "+b[o];e.className=c.trim(i)}else e.className=a}return this},removeClass:function(a){if(c.isFunction(a))return this.each(function(k){var n=c(this);n.removeClass(a.call(this,k,n.attr("class")))});if(a&&typeof a==="string"||a===w)for(var b=(a||"").split(ca),d=0,f=this.length;d<f;d++){var e=this[d];if(e.nodeType===1&&e.className)if(a){for(var j=(" "+e.className+" ").replace(Aa," "),i=0,o=b.length;i<o;i++)j=j.replace(" "+b[i]+" ",
+" ");e.className=c.trim(j)}else e.className=""}return this},toggleClass:function(a,b){var d=typeof a,f=typeof b==="boolean";if(c.isFunction(a))return this.each(function(e){var j=c(this);j.toggleClass(a.call(this,e,j.attr("class"),b),b)});return this.each(function(){if(d==="string")for(var e,j=0,i=c(this),o=b,k=a.split(ca);e=k[j++];){o=f?o:!i.hasClass(e);i[o?"addClass":"removeClass"](e)}else if(d==="undefined"||d==="boolean"){this.className&&c.data(this,"__className__",this.className);this.className=
+this.className||a===false?"":c.data(this,"__className__")||""}})},hasClass:function(a){a=" "+a+" ";for(var b=0,d=this.length;b<d;b++)if((" "+this[b].className+" ").replace(Aa," ").indexOf(a)>-1)return true;return false},val:function(a){if(a===w){var b=this[0];if(b){if(c.nodeName(b,"option"))return(b.attributes.value||{}).specified?b.value:b.text;if(c.nodeName(b,"select")){var d=b.selectedIndex,f=[],e=b.options;b=b.type==="select-one";if(d<0)return null;var j=b?d:0;for(d=b?d+1:e.length;j<d;j++){var i=
+e[j];if(i.selected){a=c(i).val();if(b)return a;f.push(a)}}return f}if(Ba.test(b.type)&&!c.support.checkOn)return b.getAttribute("value")===null?"on":b.value;return(b.value||"").replace(Za,"")}return w}var o=c.isFunction(a);return this.each(function(k){var n=c(this),r=a;if(this.nodeType===1){if(o)r=a.call(this,k,n.val());if(typeof r==="number")r+="";if(c.isArray(r)&&Ba.test(this.type))this.checked=c.inArray(n.val(),r)>=0;else if(c.nodeName(this,"select")){var u=c.makeArray(r);c("option",this).each(function(){this.selected=
+c.inArray(c(this).val(),u)>=0});if(!u.length)this.selectedIndex=-1}else this.value=r}})}});c.extend({attrFn:{val:true,css:true,html:true,text:true,data:true,width:true,height:true,offset:true},attr:function(a,b,d,f){if(!a||a.nodeType===3||a.nodeType===8)return w;if(f&&b in c.attrFn)return c(a)[b](d);f=a.nodeType!==1||!c.isXMLDoc(a);var e=d!==w;b=f&&c.props[b]||b;if(a.nodeType===1){var j=$a.test(b);if(b in a&&f&&!j){if(e){b==="type"&&ab.test(a.nodeName)&&a.parentNode&&c.error("type property can't be changed");
+a[b]=d}if(c.nodeName(a,"form")&&a.getAttributeNode(b))return a.getAttributeNode(b).nodeValue;if(b==="tabIndex")return(b=a.getAttributeNode("tabIndex"))&&b.specified?b.value:bb.test(a.nodeName)||cb.test(a.nodeName)&&a.href?0:w;return a[b]}if(!c.support.style&&f&&b==="style"){if(e)a.style.cssText=""+d;return a.style.cssText}e&&a.setAttribute(b,""+d);a=!c.support.hrefNormalized&&f&&j?a.getAttribute(b,2):a.getAttribute(b);return a===null?w:a}return c.style(a,b,d)}});var O=/\.(.*)$/,db=function(a){return a.replace(/[^\w\s\.\|`]/g,
+function(b){return"\\"+b})};c.event={add:function(a,b,d,f){if(!(a.nodeType===3||a.nodeType===8)){if(a.setInterval&&a!==A&&!a.frameElement)a=A;var e,j;if(d.handler){e=d;d=e.handler}if(!d.guid)d.guid=c.guid++;if(j=c.data(a)){var i=j.events=j.events||{},o=j.handle;if(!o)j.handle=o=function(){return typeof c!=="undefined"&&!c.event.triggered?c.event.handle.apply(o.elem,arguments):w};o.elem=a;b=b.split(" ");for(var k,n=0,r;k=b[n++];){j=e?c.extend({},e):{handler:d,data:f};if(k.indexOf(".")>-1){r=k.split(".");
+k=r.shift();j.namespace=r.slice(0).sort().join(".")}else{r=[];j.namespace=""}j.type=k;j.guid=d.guid;var u=i[k],z=c.event.special[k]||{};if(!u){u=i[k]=[];if(!z.setup||z.setup.call(a,f,r,o)===false)if(a.addEventListener)a.addEventListener(k,o,false);else a.attachEvent&&a.attachEvent("on"+k,o)}if(z.add){z.add.call(a,j);if(!j.handler.guid)j.handler.guid=d.guid}u.push(j);c.event.global[k]=true}a=null}}},global:{},remove:function(a,b,d,f){if(!(a.nodeType===3||a.nodeType===8)){var e,j=0,i,o,k,n,r,u,z=c.data(a),
+C=z&&z.events;if(z&&C){if(b&&b.type){d=b.handler;b=b.type}if(!b||typeof b==="string"&&b.charAt(0)==="."){b=b||"";for(e in C)c.event.remove(a,e+b)}else{for(b=b.split(" ");e=b[j++];){n=e;i=e.indexOf(".")<0;o=[];if(!i){o=e.split(".");e=o.shift();k=new RegExp("(^|\\.)"+c.map(o.slice(0).sort(),db).join("\\.(?:.*\\.)?")+"(\\.|$)")}if(r=C[e])if(d){n=c.event.special[e]||{};for(B=f||0;B<r.length;B++){u=r[B];if(d.guid===u.guid){if(i||k.test(u.namespace)){f==null&&r.splice(B--,1);n.remove&&n.remove.call(a,u)}if(f!=
+null)break}}if(r.length===0||f!=null&&r.length===1){if(!n.teardown||n.teardown.call(a,o)===false)Ca(a,e,z.handle);delete C[e]}}else for(var B=0;B<r.length;B++){u=r[B];if(i||k.test(u.namespace)){c.event.remove(a,n,u.handler,B);r.splice(B--,1)}}}if(c.isEmptyObject(C)){if(b=z.handle)b.elem=null;delete z.events;delete z.handle;c.isEmptyObject(z)&&c.removeData(a)}}}}},trigger:function(a,b,d,f){var e=a.type||a;if(!f){a=typeof a==="object"?a[G]?a:c.extend(c.Event(e),a):c.Event(e);if(e.indexOf("!")>=0){a.type=
+e=e.slice(0,-1);a.exclusive=true}if(!d){a.stopPropagation();c.event.global[e]&&c.each(c.cache,function(){this.events&&this.events[e]&&c.event.trigger(a,b,this.handle.elem)})}if(!d||d.nodeType===3||d.nodeType===8)return w;a.result=w;a.target=d;b=c.makeArray(b);b.unshift(a)}a.currentTarget=d;(f=c.data(d,"handle"))&&f.apply(d,b);f=d.parentNode||d.ownerDocument;try{if(!(d&&d.nodeName&&c.noData[d.nodeName.toLowerCase()]))if(d["on"+e]&&d["on"+e].apply(d,b)===false)a.result=false}catch(j){}if(!a.isPropagationStopped()&&
+f)c.event.trigger(a,b,f,true);else if(!a.isDefaultPrevented()){f=a.target;var i,o=c.nodeName(f,"a")&&e==="click",k=c.event.special[e]||{};if((!k._default||k._default.call(d,a)===false)&&!o&&!(f&&f.nodeName&&c.noData[f.nodeName.toLowerCase()])){try{if(f[e]){if(i=f["on"+e])f["on"+e]=null;c.event.triggered=true;f[e]()}}catch(n){}if(i)f["on"+e]=i;c.event.triggered=false}}},handle:function(a){var b,d,f,e;a=arguments[0]=c.event.fix(a||A.event);a.currentTarget=this;b=a.type.indexOf(".")<0&&!a.exclusive;
+if(!b){d=a.type.split(".");a.type=d.shift();f=new RegExp("(^|\\.)"+d.slice(0).sort().join("\\.(?:.*\\.)?")+"(\\.|$)")}e=c.data(this,"events");d=e[a.type];if(e&&d){d=d.slice(0);e=0;for(var j=d.length;e<j;e++){var i=d[e];if(b||f.test(i.namespace)){a.handler=i.handler;a.data=i.data;a.handleObj=i;i=i.handler.apply(this,arguments);if(i!==w){a.result=i;if(i===false){a.preventDefault();a.stopPropagation()}}if(a.isImmediatePropagationStopped())break}}}return a.result},props:"altKey attrChange attrName bubbles button cancelable charCode clientX clientY ctrlKey currentTarget data detail eventPhase fromElement handler keyCode layerX layerY metaKey newValue offsetX offsetY originalTarget pageX pageY prevValue relatedNode relatedTarget screenX screenY shiftKey srcElement target toElement view wheelDelta which".split(" "),
+fix:function(a){if(a[G])return a;var b=a;a=c.Event(b);for(var d=this.props.length,f;d;){f=this.props[--d];a[f]=b[f]}if(!a.target)a.target=a.srcElement||s;if(a.target.nodeType===3)a.target=a.target.parentNode;if(!a.relatedTarget&&a.fromElement)a.relatedTarget=a.fromElement===a.target?a.toElement:a.fromElement;if(a.pageX==null&&a.clientX!=null){b=s.documentElement;d=s.body;a.pageX=a.clientX+(b&&b.scrollLeft||d&&d.scrollLeft||0)-(b&&b.clientLeft||d&&d.clientLeft||0);a.pageY=a.clientY+(b&&b.scrollTop||
+d&&d.scrollTop||0)-(b&&b.clientTop||d&&d.clientTop||0)}if(!a.which&&(a.charCode||a.charCode===0?a.charCode:a.keyCode))a.which=a.charCode||a.keyCode;if(!a.metaKey&&a.ctrlKey)a.metaKey=a.ctrlKey;if(!a.which&&a.button!==w)a.which=a.button&1?1:a.button&2?3:a.button&4?2:0;return a},guid:1E8,proxy:c.proxy,special:{ready:{setup:c.bindReady,teardown:c.noop},live:{add:function(a){c.event.add(this,a.origType,c.extend({},a,{handler:oa}))},remove:function(a){var b=true,d=a.origType.replace(O,"");c.each(c.data(this,
+"events").live||[],function(){if(d===this.origType.replace(O,""))return b=false});b&&c.event.remove(this,a.origType,oa)}},beforeunload:{setup:function(a,b,d){if(this.setInterval)this.onbeforeunload=d;return false},teardown:function(a,b){if(this.onbeforeunload===b)this.onbeforeunload=null}}}};var Ca=s.removeEventListener?function(a,b,d){a.removeEventListener(b,d,false)}:function(a,b,d){a.detachEvent("on"+b,d)};c.Event=function(a){if(!this.preventDefault)return new c.Event(a);if(a&&a.type){this.originalEvent=
+a;this.type=a.type}else this.type=a;this.timeStamp=J();this[G]=true};c.Event.prototype={preventDefault:function(){this.isDefaultPrevented=Z;var a=this.originalEvent;if(a){a.preventDefault&&a.preventDefault();a.returnValue=false}},stopPropagation:function(){this.isPropagationStopped=Z;var a=this.originalEvent;if(a){a.stopPropagation&&a.stopPropagation();a.cancelBubble=true}},stopImmediatePropagation:function(){this.isImmediatePropagationStopped=Z;this.stopPropagation()},isDefaultPrevented:Y,isPropagationStopped:Y,
+isImmediatePropagationStopped:Y};var Da=function(a){var b=a.relatedTarget;try{for(;b&&b!==this;)b=b.parentNode;if(b!==this){a.type=a.data;c.event.handle.apply(this,arguments)}}catch(d){}},Ea=function(a){a.type=a.data;c.event.handle.apply(this,arguments)};c.each({mouseenter:"mouseover",mouseleave:"mouseout"},function(a,b){c.event.special[a]={setup:function(d){c.event.add(this,b,d&&d.selector?Ea:Da,a)},teardown:function(d){c.event.remove(this,b,d&&d.selector?Ea:Da)}}});if(!c.support.submitBubbles)c.event.special.submit=
+{setup:function(){if(this.nodeName.toLowerCase()!=="form"){c.event.add(this,"click.specialSubmit",function(a){var b=a.target,d=b.type;if((d==="submit"||d==="image")&&c(b).closest("form").length)return na("submit",this,arguments)});c.event.add(this,"keypress.specialSubmit",function(a){var b=a.target,d=b.type;if((d==="text"||d==="password")&&c(b).closest("form").length&&a.keyCode===13)return na("submit",this,arguments)})}else return false},teardown:function(){c.event.remove(this,".specialSubmit")}};
+if(!c.support.changeBubbles){var da=/textarea|input|select/i,ea,Fa=function(a){var b=a.type,d=a.value;if(b==="radio"||b==="checkbox")d=a.checked;else if(b==="select-multiple")d=a.selectedIndex>-1?c.map(a.options,function(f){return f.selected}).join("-"):"";else if(a.nodeName.toLowerCase()==="select")d=a.selectedIndex;return d},fa=function(a,b){var d=a.target,f,e;if(!(!da.test(d.nodeName)||d.readOnly)){f=c.data(d,"_change_data");e=Fa(d);if(a.type!=="focusout"||d.type!=="radio")c.data(d,"_change_data",
+e);if(!(f===w||e===f))if(f!=null||e){a.type="change";return c.event.trigger(a,b,d)}}};c.event.special.change={filters:{focusout:fa,click:function(a){var b=a.target,d=b.type;if(d==="radio"||d==="checkbox"||b.nodeName.toLowerCase()==="select")return fa.call(this,a)},keydown:function(a){var b=a.target,d=b.type;if(a.keyCode===13&&b.nodeName.toLowerCase()!=="textarea"||a.keyCode===32&&(d==="checkbox"||d==="radio")||d==="select-multiple")return fa.call(this,a)},beforeactivate:function(a){a=a.target;c.data(a,
+"_change_data",Fa(a))}},setup:function(){if(this.type==="file")return false;for(var a in ea)c.event.add(this,a+".specialChange",ea[a]);return da.test(this.nodeName)},teardown:function(){c.event.remove(this,".specialChange");return da.test(this.nodeName)}};ea=c.event.special.change.filters}s.addEventListener&&c.each({focus:"focusin",blur:"focusout"},function(a,b){function d(f){f=c.event.fix(f);f.type=b;return c.event.handle.call(this,f)}c.event.special[b]={setup:function(){this.addEventListener(a,
+d,true)},teardown:function(){this.removeEventListener(a,d,true)}}});c.each(["bind","one"],function(a,b){c.fn[b]=function(d,f,e){if(typeof d==="object"){for(var j in d)this[b](j,f,d[j],e);return this}if(c.isFunction(f)){e=f;f=w}var i=b==="one"?c.proxy(e,function(k){c(this).unbind(k,i);return e.apply(this,arguments)}):e;if(d==="unload"&&b!=="one")this.one(d,f,e);else{j=0;for(var o=this.length;j<o;j++)c.event.add(this[j],d,i,f)}return this}});c.fn.extend({unbind:function(a,b){if(typeof a==="object"&&
+!a.preventDefault)for(var d in a)this.unbind(d,a[d]);else{d=0;for(var f=this.length;d<f;d++)c.event.remove(this[d],a,b)}return this},delegate:function(a,b,d,f){return this.live(b,d,f,a)},undelegate:function(a,b,d){return arguments.length===0?this.unbind("live"):this.die(b,null,d,a)},trigger:function(a,b){return this.each(function(){c.event.trigger(a,b,this)})},triggerHandler:function(a,b){if(this[0]){a=c.Event(a);a.preventDefault();a.stopPropagation();c.event.trigger(a,b,this[0]);return a.result}},
+toggle:function(a){for(var b=arguments,d=1;d<b.length;)c.proxy(a,b[d++]);return this.click(c.proxy(a,function(f){var e=(c.data(this,"lastToggle"+a.guid)||0)%d;c.data(this,"lastToggle"+a.guid,e+1);f.preventDefault();return b[e].apply(this,arguments)||false}))},hover:function(a,b){return this.mouseenter(a).mouseleave(b||a)}});var Ga={focus:"focusin",blur:"focusout",mouseenter:"mouseover",mouseleave:"mouseout"};c.each(["live","die"],function(a,b){c.fn[b]=function(d,f,e,j){var i,o=0,k,n,r=j||this.selector,
+u=j?this:c(this.context);if(c.isFunction(f)){e=f;f=w}for(d=(d||"").split(" ");(i=d[o++])!=null;){j=O.exec(i);k="";if(j){k=j[0];i=i.replace(O,"")}if(i==="hover")d.push("mouseenter"+k,"mouseleave"+k);else{n=i;if(i==="focus"||i==="blur"){d.push(Ga[i]+k);i+=k}else i=(Ga[i]||i)+k;b==="live"?u.each(function(){c.event.add(this,pa(i,r),{data:f,selector:r,handler:e,origType:i,origHandler:e,preType:n})}):u.unbind(pa(i,r),e)}}return this}});c.each("blur focus focusin focusout load resize scroll unload click dblclick mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave change select submit keydown keypress keyup error".split(" "),
+function(a,b){c.fn[b]=function(d){return d?this.bind(b,d):this.trigger(b)};if(c.attrFn)c.attrFn[b]=true});A.attachEvent&&!A.addEventListener&&A.attachEvent("onunload",function(){for(var a in c.cache)if(c.cache[a].handle)try{c.event.remove(c.cache[a].handle.elem)}catch(b){}});(function(){function a(g){for(var h="",l,m=0;g[m];m++){l=g[m];if(l.nodeType===3||l.nodeType===4)h+=l.nodeValue;else if(l.nodeType!==8)h+=a(l.childNodes)}return h}function b(g,h,l,m,q,p){q=0;for(var v=m.length;q<v;q++){var t=m[q];
+if(t){t=t[g];for(var y=false;t;){if(t.sizcache===l){y=m[t.sizset];break}if(t.nodeType===1&&!p){t.sizcache=l;t.sizset=q}if(t.nodeName.toLowerCase()===h){y=t;break}t=t[g]}m[q]=y}}}function d(g,h,l,m,q,p){q=0;for(var v=m.length;q<v;q++){var t=m[q];if(t){t=t[g];for(var y=false;t;){if(t.sizcache===l){y=m[t.sizset];break}if(t.nodeType===1){if(!p){t.sizcache=l;t.sizset=q}if(typeof h!=="string"){if(t===h){y=true;break}}else if(k.filter(h,[t]).length>0){y=t;break}}t=t[g]}m[q]=y}}}var f=/((?:$(?:\([^()]+$|[^()]+)+\)|\[(?:\[[^[\]]*\]|['"][^'"]*['"]|[^[\]'"]+)+\]|\\.|[^ >+~,(\[\\]+)+|[>+~])(\s*,\s*)?((?:.|\r|\n)*)/g,
+e=0,j=Object.prototype.toString,i=false,o=true;[0,0].sort(function(){o=false;return 0});var k=function(g,h,l,m){l=l||[];var q=h=h||s;if(h.nodeType!==1&&h.nodeType!==9)return[];if(!g||typeof g!=="string")return l;for(var p=[],v,t,y,S,H=true,M=x(h),I=g;(f.exec(""),v=f.exec(I))!==null;){I=v[3];p.push(v[1]);if(v[2]){S=v[3];break}}if(p.length>1&&r.exec(g))if(p.length===2&&n.relative[p[0]])t=ga(p[0]+p[1],h);else for(t=n.relative[p[0]]?[h]:k(p.shift(),h);p.length;){g=p.shift();if(n.relative[g])g+=p.shift();
+t=ga(g,t)}else{if(!m&&p.length>1&&h.nodeType===9&&!M&&n.match.ID.test(p[0])&&!n.match.ID.test(p[p.length-1])){v=k.find(p.shift(),h,M);h=v.expr?k.filter(v.expr,v.set)[0]:v.set[0]}if(h){v=m?{expr:p.pop(),set:z(m)}:k.find(p.pop(),p.length===1&&(p[0]==="~"||p[0]==="+")&&h.parentNode?h.parentNode:h,M);t=v.expr?k.filter(v.expr,v.set):v.set;if(p.length>0)y=z(t);else H=false;for(;p.length;){var D=p.pop();v=D;if(n.relative[D])v=p.pop();else D="";if(v==null)v=h;n.relative[D](y,v,M)}}else y=[]}y||(y=t);y||k.error(D||
+g);if(j.call(y)==="[object Array]")if(H)if(h&&h.nodeType===1)for(g=0;y[g]!=null;g++){if(y[g]&&(y[g]===true||y[g].nodeType===1&&E(h,y[g])))l.push(t[g])}else for(g=0;y[g]!=null;g++)y[g]&&y[g].nodeType===1&&l.push(t[g]);else l.push.apply(l,y);else z(y,l);if(S){k(S,q,l,m);k.uniqueSort(l)}return l};k.uniqueSort=function(g){if(B){i=o;g.sort(B);if(i)for(var h=1;h<g.length;h++)g[h]===g[h-1]&&g.splice(h--,1)}return g};k.matches=function(g,h){return k(g,null,null,h)};k.find=function(g,h,l){var m,q;if(!g)return[];
+for(var p=0,v=n.order.length;p<v;p++){var t=n.order[p];if(q=n.leftMatch[t].exec(g)){var y=q[1];q.splice(1,1);if(y.substr(y.length-1)!=="\\"){q[1]=(q[1]||"").replace(/\\/g,"");m=n.find[t](q,h,l);if(m!=null){g=g.replace(n.match[t],"");break}}}}m||(m=h.getElementsByTagName("*"));return{set:m,expr:g}};k.filter=function(g,h,l,m){for(var q=g,p=[],v=h,t,y,S=h&&h[0]&&x(h[0]);g&&h.length;){for(var H in n.filter)if((t=n.leftMatch[H].exec(g))!=null&&t[2]){var M=n.filter[H],I,D;D=t[1];y=false;t.splice(1,1);if(D.substr(D.length-
+1)!=="\\"){if(v===p)p=[];if(n.preFilter[H])if(t=n.preFilter[H](t,v,l,p,m,S)){if(t===true)continue}else y=I=true;if(t)for(var U=0;(D=v[U])!=null;U++)if(D){I=M(D,t,U,v);var Ha=m^!!I;if(l&&I!=null)if(Ha)y=true;else v[U]=false;else if(Ha){p.push(D);y=true}}if(I!==w){l||(v=p);g=g.replace(n.match[H],"");if(!y)return[];break}}}if(g===q)if(y==null)k.error(g);else break;q=g}return v};k.error=function(g){throw"Syntax error, unrecognized expression: "+g;};var n=k.selectors={order:["ID","NAME","TAG"],match:{ID:/#((?:[\w\u00c0-\uFFFF-]|\\.)+)/,
+CLASS:/\.((?:[\w\u00c0-\uFFFF-]|\\.)+)/,NAME:/\[name=['"]*((?:[\w\u00c0-\uFFFF-]|\\.)+)['"]*\]/,ATTR:/\[\s*((?:[\w\u00c0-\uFFFF-]|\\.)+)\s*(?:(\S?=)\s*(['"]*)(.*?)\3|)\s*\]/,TAG:/^((?:[\w\u00c0-\uFFFF\*-]|\\.)+)/,CHILD:/:(only|nth|last|first)-child(?:$(even|odd|[\dn+-]*)$)?/,POS:/:(nth|eq|gt|lt|first|last|even|odd)(?:$(\d*)$)?(?=[^-]|$)/,PSEUDO:/:((?:[\w\u00c0-\uFFFF-]|\\.)+)(?:$(['"]?)((?:\([^$]+\)|[^]*)+)\2\))?/},leftMatch:{},attrMap:{"class":"className","for":"htmlFor"},attrHandle:{href:function(g){return g.getAttribute("href")}},
+relative:{"+":function(g,h){var l=typeof h==="string",m=l&&!/\W/.test(h);l=l&&!m;if(m)h=h.toLowerCase();m=0;for(var q=g.length,p;m<q;m++)if(p=g[m]){for(;(p=p.previousSibling)&&p.nodeType!==1;);g[m]=l||p&&p.nodeName.toLowerCase()===h?p||false:p===h}l&&k.filter(h,g,true)},">":function(g,h){var l=typeof h==="string";if(l&&!/\W/.test(h)){h=h.toLowerCase();for(var m=0,q=g.length;m<q;m++){var p=g[m];if(p){l=p.parentNode;g[m]=l.nodeName.toLowerCase()===h?l:false}}}else{m=0;for(q=g.length;m<q;m++)if(p=g[m])g[m]=
+l?p.parentNode:p.parentNode===h;l&&k.filter(h,g,true)}},"":function(g,h,l){var m=e++,q=d;if(typeof h==="string"&&!/\W/.test(h)){var p=h=h.toLowerCase();q=b}q("parentNode",h,m,g,p,l)},"~":function(g,h,l){var m=e++,q=d;if(typeof h==="string"&&!/\W/.test(h)){var p=h=h.toLowerCase();q=b}q("previousSibling",h,m,g,p,l)}},find:{ID:function(g,h,l){if(typeof h.getElementById!=="undefined"&&!l)return(g=h.getElementById(g[1]))?[g]:[]},NAME:function(g,h){if(typeof h.getElementsByName!=="undefined"){var l=[];
+h=h.getElementsByName(g[1]);for(var m=0,q=h.length;m<q;m++)h[m].getAttribute("name")===g[1]&&l.push(h[m]);return l.length===0?null:l}},TAG:function(g,h){return h.getElementsByTagName(g[1])}},preFilter:{CLASS:function(g,h,l,m,q,p){g=" "+g[1].replace(/\\/g,"")+" ";if(p)return g;p=0;for(var v;(v=h[p])!=null;p++)if(v)if(q^(v.className&&(" "+v.className+" ").replace(/[\t\n]/g," ").indexOf(g)>=0))l||m.push(v);else if(l)h[p]=false;return false},ID:function(g){return g[1].replace(/\\/g,"")},TAG:function(g){return g[1].toLowerCase()},
+CHILD:function(g){if(g[1]==="nth"){var h=/(-?)(\d*)n((?:\+|-)?\d*)/.exec(g[2]==="even"&&"2n"||g[2]==="odd"&&"2n+1"||!/\D/.test(g[2])&&"0n+"+g[2]||g[2]);g[2]=h[1]+(h[2]||1)-0;g[3]=h[3]-0}g[0]=e++;return g},ATTR:function(g,h,l,m,q,p){h=g[1].replace(/\\/g,"");if(!p&&n.attrMap[h])g[1]=n.attrMap[h];if(g[2]==="~=")g[4]=" "+g[4]+" ";return g},PSEUDO:function(g,h,l,m,q){if(g[1]==="not")if((f.exec(g[3])||"").length>1||/^\w/.test(g[3]))g[3]=k(g[3],null,null,h);else{g=k.filter(g[3],h,l,true^q);l||m.push.apply(m,
+g);return false}else if(n.match.POS.test(g[0])||n.match.CHILD.test(g[0]))return true;return g},POS:function(g){g.unshift(true);return g}},filters:{enabled:function(g){return g.disabled===false&&g.type!=="hidden"},disabled:function(g){return g.disabled===true},checked:function(g){return g.checked===true},selected:function(g){return g.selected===true},parent:function(g){return!!g.firstChild},empty:function(g){return!g.firstChild},has:function(g,h,l){return!!k(l[3],g).length},header:function(g){return/h\d/i.test(g.nodeName)},
+text:function(g){return"text"===g.type},radio:function(g){return"radio"===g.type},checkbox:function(g){return"checkbox"===g.type},file:function(g){return"file"===g.type},password:function(g){return"password"===g.type},submit:function(g){return"submit"===g.type},image:function(g){return"image"===g.type},reset:function(g){return"reset"===g.type},button:function(g){return"button"===g.type||g.nodeName.toLowerCase()==="button"},input:function(g){return/input|select|textarea|button/i.test(g.nodeName)}},
+setFilters:{first:function(g,h){return h===0},last:function(g,h,l,m){return h===m.length-1},even:function(g,h){return h%2===0},odd:function(g,h){return h%2===1},lt:function(g,h,l){return h<l[3]-0},gt:function(g,h,l){return h>l[3]-0},nth:function(g,h,l){return l[3]-0===h},eq:function(g,h,l){return l[3]-0===h}},filter:{PSEUDO:function(g,h,l,m){var q=h[1],p=n.filters[q];if(p)return p(g,l,h,m);else if(q==="contains")return(g.textContent||g.innerText||a([g])||"").indexOf(h[3])>=0;else if(q==="not"){h=
+h[3];l=0;for(m=h.length;l<m;l++)if(h[l]===g)return false;return true}else k.error("Syntax error, unrecognized expression: "+q)},CHILD:function(g,h){var l=h[1],m=g;switch(l){case "only":case "first":for(;m=m.previousSibling;)if(m.nodeType===1)return false;if(l==="first")return true;m=g;case "last":for(;m=m.nextSibling;)if(m.nodeType===1)return false;return true;case "nth":l=h[2];var q=h[3];if(l===1&&q===0)return true;h=h[0];var p=g.parentNode;if(p&&(p.sizcache!==h||!g.nodeIndex)){var v=0;for(m=p.firstChild;m;m=
+m.nextSibling)if(m.nodeType===1)m.nodeIndex=++v;p.sizcache=h}g=g.nodeIndex-q;return l===0?g===0:g%l===0&&g/l>=0}},ID:function(g,h){return g.nodeType===1&&g.getAttribute("id")===h},TAG:function(g,h){return h==="*"&&g.nodeType===1||g.nodeName.toLowerCase()===h},CLASS:function(g,h){return(" "+(g.className||g.getAttribute("class"))+" ").indexOf(h)>-1},ATTR:function(g,h){var l=h[1];g=n.attrHandle[l]?n.attrHandle[l](g):g[l]!=null?g[l]:g.getAttribute(l);l=g+"";var m=h[2];h=h[4];return g==null?m==="!=":m===
+"="?l===h:m==="*="?l.indexOf(h)>=0:m==="~="?(" "+l+" ").indexOf(h)>=0:!h?l&&g!==false:m==="!="?l!==h:m==="^="?l.indexOf(h)===0:m==="$="?l.substr(l.length-h.length)===h:m==="|="?l===h||l.substr(0,h.length+1)===h+"-":false},POS:function(g,h,l,m){var q=n.setFilters[h[2]];if(q)return q(g,l,h,m)}}},r=n.match.POS;for(var u in n.match){n.match[u]=new RegExp(n.match[u].source+/(?![^\[]*\])(?![^$]*$)/.source);n.leftMatch[u]=new RegExp(/(^(?:.|\r|\n)*?)/.source+n.match[u].source.replace(/\\(\d+)/g,function(g,
+h){return"\\"+(h-0+1)}))}var z=function(g,h){g=Array.prototype.slice.call(g,0);if(h){h.push.apply(h,g);return h}return g};try{Array.prototype.slice.call(s.documentElement.childNodes,0)}catch(C){z=function(g,h){h=h||[];if(j.call(g)==="[object Array]")Array.prototype.push.apply(h,g);else if(typeof g.length==="number")for(var l=0,m=g.length;l<m;l++)h.push(g[l]);else for(l=0;g[l];l++)h.push(g[l]);return h}}var B;if(s.documentElement.compareDocumentPosition)B=function(g,h){if(!g.compareDocumentPosition||
+!h.compareDocumentPosition){if(g==h)i=true;return g.compareDocumentPosition?-1:1}g=g.compareDocumentPosition(h)&4?-1:g===h?0:1;if(g===0)i=true;return g};else if("sourceIndex"in s.documentElement)B=function(g,h){if(!g.sourceIndex||!h.sourceIndex){if(g==h)i=true;return g.sourceIndex?-1:1}g=g.sourceIndex-h.sourceIndex;if(g===0)i=true;return g};else if(s.createRange)B=function(g,h){if(!g.ownerDocument||!h.ownerDocument){if(g==h)i=true;return g.ownerDocument?-1:1}var l=g.ownerDocument.createRange(),m=
+h.ownerDocument.createRange();l.setStart(g,0);l.setEnd(g,0);m.setStart(h,0);m.setEnd(h,0);g=l.compareBoundaryPoints(Range.START_TO_END,m);if(g===0)i=true;return g};(function(){var g=s.createElement("div"),h="script"+(new Date).getTime();g.innerHTML="<a name='"+h+"'/>";var l=s.documentElement;l.insertBefore(g,l.firstChild);if(s.getElementById(h)){n.find.ID=function(m,q,p){if(typeof q.getElementById!=="undefined"&&!p)return(q=q.getElementById(m[1]))?q.id===m[1]||typeof q.getAttributeNode!=="undefined"&&
+q.getAttributeNode("id").nodeValue===m[1]?[q]:w:[]};n.filter.ID=function(m,q){var p=typeof m.getAttributeNode!=="undefined"&&m.getAttributeNode("id");return m.nodeType===1&&p&&p.nodeValue===q}}l.removeChild(g);l=g=null})();(function(){var g=s.createElement("div");g.appendChild(s.createComment(""));if(g.getElementsByTagName("*").length>0)n.find.TAG=function(h,l){l=l.getElementsByTagName(h[1]);if(h[1]==="*"){h=[];for(var m=0;l[m];m++)l[m].nodeType===1&&h.push(l[m]);l=h}return l};g.innerHTML="<a href='#'></a>";
+if(g.firstChild&&typeof g.firstChild.getAttribute!=="undefined"&&g.firstChild.getAttribute("href")!=="#")n.attrHandle.href=function(h){return h.getAttribute("href",2)};g=null})();s.querySelectorAll&&function(){var g=k,h=s.createElement("div");h.innerHTML="<p class='TEST'></p>";if(!(h.querySelectorAll&&h.querySelectorAll(".TEST").length===0)){k=function(m,q,p,v){q=q||s;if(!v&&q.nodeType===9&&!x(q))try{return z(q.querySelectorAll(m),p)}catch(t){}return g(m,q,p,v)};for(var l in g)k[l]=g[l];h=null}}();
+(function(){var g=s.createElement("div");g.innerHTML="<div class='test e'></div><div class='test'></div>";if(!(!g.getElementsByClassName||g.getElementsByClassName("e").length===0)){g.lastChild.className="e";if(g.getElementsByClassName("e").length!==1){n.order.splice(1,0,"CLASS");n.find.CLASS=function(h,l,m){if(typeof l.getElementsByClassName!=="undefined"&&!m)return l.getElementsByClassName(h[1])};g=null}}})();var E=s.compareDocumentPosition?function(g,h){return!!(g.compareDocumentPosition(h)&16)}:
+function(g,h){return g!==h&&(g.contains?g.contains(h):true)},x=function(g){return(g=(g?g.ownerDocument||g:0).documentElement)?g.nodeName!=="HTML":false},ga=function(g,h){var l=[],m="",q;for(h=h.nodeType?[h]:h;q=n.match.PSEUDO.exec(g);){m+=q[0];g=g.replace(n.match.PSEUDO,"")}g=n.relative[g]?g+"*":g;q=0;for(var p=h.length;q<p;q++)k(g,h[q],l);return k.filter(m,l)};c.find=k;c.expr=k.selectors;c.expr[":"]=c.expr.filters;c.unique=k.uniqueSort;c.text=a;c.isXMLDoc=x;c.contains=E})();var eb=/Until$/,fb=/^(?:parents|prevUntil|prevAll)/,
+gb=/,/;R=Array.prototype.slice;var Ia=function(a,b,d){if(c.isFunction(b))return c.grep(a,function(e,j){return!!b.call(e,j,e)===d});else if(b.nodeType)return c.grep(a,function(e){return e===b===d});else if(typeof b==="string"){var f=c.grep(a,function(e){return e.nodeType===1});if(Ua.test(b))return c.filter(b,f,!d);else b=c.filter(b,f)}return c.grep(a,function(e){return c.inArray(e,b)>=0===d})};c.fn.extend({find:function(a){for(var b=this.pushStack("","find",a),d=0,f=0,e=this.length;f<e;f++){d=b.length;
+c.find(a,this[f],b);if(f>0)for(var j=d;j<b.length;j++)for(var i=0;i<d;i++)if(b[i]===b[j]){b.splice(j--,1);break}}return b},has:function(a){var b=c(a);return this.filter(function(){for(var d=0,f=b.length;d<f;d++)if(c.contains(this,b[d]))return true})},not:function(a){return this.pushStack(Ia(this,a,false),"not",a)},filter:function(a){return this.pushStack(Ia(this,a,true),"filter",a)},is:function(a){return!!a&&c.filter(a,this).length>0},closest:function(a,b){if(c.isArray(a)){var d=[],f=this[0],e,j=
+{},i;if(f&&a.length){e=0;for(var o=a.length;e<o;e++){i=a[e];j[i]||(j[i]=c.expr.match.POS.test(i)?c(i,b||this.context):i)}for(;f&&f.ownerDocument&&f!==b;){for(i in j){e=j[i];if(e.jquery?e.index(f)>-1:c(f).is(e)){d.push({selector:i,elem:f});delete j[i]}}f=f.parentNode}}return d}var k=c.expr.match.POS.test(a)?c(a,b||this.context):null;return this.map(function(n,r){for(;r&&r.ownerDocument&&r!==b;){if(k?k.index(r)>-1:c(r).is(a))return r;r=r.parentNode}return null})},index:function(a){if(!a||typeof a===
+"string")return c.inArray(this[0],a?c(a):this.parent().children());return c.inArray(a.jquery?a[0]:a,this)},add:function(a,b){a=typeof a==="string"?c(a,b||this.context):c.makeArray(a);b=c.merge(this.get(),a);return this.pushStack(qa(a[0])||qa(b[0])?b:c.unique(b))},andSelf:function(){return this.add(this.prevObject)}});c.each({parent:function(a){return(a=a.parentNode)&&a.nodeType!==11?a:null},parents:function(a){return c.dir(a,"parentNode")},parentsUntil:function(a,b,d){return c.dir(a,"parentNode",
+d)},next:function(a){return c.nth(a,2,"nextSibling")},prev:function(a){return c.nth(a,2,"previousSibling")},nextAll:function(a){return c.dir(a,"nextSibling")},prevAll:function(a){return c.dir(a,"previousSibling")},nextUntil:function(a,b,d){return c.dir(a,"nextSibling",d)},prevUntil:function(a,b,d){return c.dir(a,"previousSibling",d)},siblings:function(a){return c.sibling(a.parentNode.firstChild,a)},children:function(a){return c.sibling(a.firstChild)},contents:function(a){return c.nodeName(a,"iframe")?
+a.contentDocument||a.contentWindow.document:c.makeArray(a.childNodes)}},function(a,b){c.fn[a]=function(d,f){var e=c.map(this,b,d);eb.test(a)||(f=d);if(f&&typeof f==="string")e=c.filter(f,e);e=this.length>1?c.unique(e):e;if((this.length>1||gb.test(f))&&fb.test(a))e=e.reverse();return this.pushStack(e,a,R.call(arguments).join(","))}});c.extend({filter:function(a,b,d){if(d)a=":not("+a+")";return c.find.matches(a,b)},dir:function(a,b,d){var f=[];for(a=a[b];a&&a.nodeType!==9&&(d===w||a.nodeType!==1||!c(a).is(d));){a.nodeType===
+1&&f.push(a);a=a[b]}return f},nth:function(a,b,d){b=b||1;for(var f=0;a;a=a[d])if(a.nodeType===1&&++f===b)break;return a},sibling:function(a,b){for(var d=[];a;a=a.nextSibling)a.nodeType===1&&a!==b&&d.push(a);return d}});var Ja=/ jQuery\d+="(?:\d+|null)"/g,V=/^\s+/,Ka=/(<([\w:]+)[^>]*?)\/>/g,hb=/^(?:area|br|col|embed|hr|img|input|link|meta|param)$/i,La=/<([\w:]+)/,ib=/<tbody/i,jb=/<|&#?\w+;/,ta=/<script|<object|<embed|<option|<style/i,ua=/checked\s*(?:[^=]|=\s*.checked.)/i,Ma=function(a,b,d){return hb.test(d)?
+a:b+"></"+d+">"},F={option:[1,"<select multiple='multiple'>","</select>"],legend:[1,"<fieldset>","</fieldset>"],thead:[1,"<table>","</table>"],tr:[2,"<table><tbody>","</tbody></table>"],td:[3,"<table><tbody><tr>","</tr></tbody></table>"],col:[2,"<table><tbody></tbody><colgroup>","</colgroup></table>"],area:[1,"<map>","</map>"],_default:[0,"",""]};F.optgroup=F.option;F.tbody=F.tfoot=F.colgroup=F.caption=F.thead;F.th=F.td;if(!c.support.htmlSerialize)F._default=[1,"div<div>","</div>"];c.fn.extend({text:function(a){if(c.isFunction(a))return this.each(function(b){var d=
+c(this);d.text(a.call(this,b,d.text()))});if(typeof a!=="object"&&a!==w)return this.empty().append((this[0]&&this[0].ownerDocument||s).createTextNode(a));return c.text(this)},wrapAll:function(a){if(c.isFunction(a))return this.each(function(d){c(this).wrapAll(a.call(this,d))});if(this[0]){var b=c(a,this[0].ownerDocument).eq(0).clone(true);this[0].parentNode&&b.insertBefore(this[0]);b.map(function(){for(var d=this;d.firstChild&&d.firstChild.nodeType===1;)d=d.firstChild;return d}).append(this)}return this},
+wrapInner:function(a){if(c.isFunction(a))return this.each(function(b){c(this).wrapInner(a.call(this,b))});return this.each(function(){var b=c(this),d=b.contents();d.length?d.wrapAll(a):b.append(a)})},wrap:function(a){return this.each(function(){c(this).wrapAll(a)})},unwrap:function(){return this.parent().each(function(){c.nodeName(this,"body")||c(this).replaceWith(this.childNodes)}).end()},append:function(){return this.domManip(arguments,true,function(a){this.nodeType===1&&this.appendChild(a)})},
+prepend:function(){return this.domManip(arguments,true,function(a){this.nodeType===1&&this.insertBefore(a,this.firstChild)})},before:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,false,function(b){this.parentNode.insertBefore(b,this)});else if(arguments.length){var a=c(arguments[0]);a.push.apply(a,this.toArray());return this.pushStack(a,"before",arguments)}},after:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,false,function(b){this.parentNode.insertBefore(b,
+this.nextSibling)});else if(arguments.length){var a=this.pushStack(this,"after",arguments);a.push.apply(a,c(arguments[0]).toArray());return a}},remove:function(a,b){for(var d=0,f;(f=this[d])!=null;d++)if(!a||c.filter(a,[f]).length){if(!b&&f.nodeType===1){c.cleanData(f.getElementsByTagName("*"));c.cleanData([f])}f.parentNode&&f.parentNode.removeChild(f)}return this},empty:function(){for(var a=0,b;(b=this[a])!=null;a++)for(b.nodeType===1&&c.cleanData(b.getElementsByTagName("*"));b.firstChild;)b.removeChild(b.firstChild);
+return this},clone:function(a){var b=this.map(function(){if(!c.support.noCloneEvent&&!c.isXMLDoc(this)){var d=this.outerHTML,f=this.ownerDocument;if(!d){d=f.createElement("div");d.appendChild(this.cloneNode(true));d=d.innerHTML}return c.clean([d.replace(Ja,"").replace(/=([^="'>\s]+\/)>/g,'="$1">').replace(V,"")],f)[0]}else return this.cloneNode(true)});if(a===true){ra(this,b);ra(this.find("*"),b.find("*"))}return b},html:function(a){if(a===w)return this[0]&&this[0].nodeType===1?this[0].innerHTML.replace(Ja,
+""):null;else if(typeof a==="string"&&!ta.test(a)&&(c.support.leadingWhitespace||!V.test(a))&&!F[(La.exec(a)||["",""])[1].toLowerCase()]){a=a.replace(Ka,Ma);try{for(var b=0,d=this.length;b<d;b++)if(this[b].nodeType===1){c.cleanData(this[b].getElementsByTagName("*"));this[b].innerHTML=a}}catch(f){this.empty().append(a)}}else c.isFunction(a)?this.each(function(e){var j=c(this),i=j.html();j.empty().append(function(){return a.call(this,e,i)})}):this.empty().append(a);return this},replaceWith:function(a){if(this[0]&&
+this[0].parentNode){if(c.isFunction(a))return this.each(function(b){var d=c(this),f=d.html();d.replaceWith(a.call(this,b,f))});if(typeof a!=="string")a=c(a).detach();return this.each(function(){var b=this.nextSibling,d=this.parentNode;c(this).remove();b?c(b).before(a):c(d).append(a)})}else return this.pushStack(c(c.isFunction(a)?a():a),"replaceWith",a)},detach:function(a){return this.remove(a,true)},domManip:function(a,b,d){function f(u){return c.nodeName(u,"table")?u.getElementsByTagName("tbody")[0]||
+u.appendChild(u.ownerDocument.createElement("tbody")):u}var e,j,i=a[0],o=[],k;if(!c.support.checkClone&&arguments.length===3&&typeof i==="string"&&ua.test(i))return this.each(function(){c(this).domManip(a,b,d,true)});if(c.isFunction(i))return this.each(function(u){var z=c(this);a[0]=i.call(this,u,b?z.html():w);z.domManip(a,b,d)});if(this[0]){e=i&&i.parentNode;e=c.support.parentNode&&e&&e.nodeType===11&&e.childNodes.length===this.length?{fragment:e}:sa(a,this,o);k=e.fragment;if(j=k.childNodes.length===
+1?(k=k.firstChild):k.firstChild){b=b&&c.nodeName(j,"tr");for(var n=0,r=this.length;n<r;n++)d.call(b?f(this[n],j):this[n],n>0||e.cacheable||this.length>1?k.cloneNode(true):k)}o.length&&c.each(o,Qa)}return this}});c.fragments={};c.each({appendTo:"append",prependTo:"prepend",insertBefore:"before",insertAfter:"after",replaceAll:"replaceWith"},function(a,b){c.fn[a]=function(d){var f=[];d=c(d);var e=this.length===1&&this[0].parentNode;if(e&&e.nodeType===11&&e.childNodes.length===1&&d.length===1){d[b](this[0]);
+return this}else{e=0;for(var j=d.length;e<j;e++){var i=(e>0?this.clone(true):this).get();c.fn[b].apply(c(d[e]),i);f=f.concat(i)}return this.pushStack(f,a,d.selector)}}});c.extend({clean:function(a,b,d,f){b=b||s;if(typeof b.createElement==="undefined")b=b.ownerDocument||b[0]&&b[0].ownerDocument||s;for(var e=[],j=0,i;(i=a[j])!=null;j++){if(typeof i==="number")i+="";if(i){if(typeof i==="string"&&!jb.test(i))i=b.createTextNode(i);else if(typeof i==="string"){i=i.replace(Ka,Ma);var o=(La.exec(i)||["",
+""])[1].toLowerCase(),k=F[o]||F._default,n=k[0],r=b.createElement("div");for(r.innerHTML=k[1]+i+k[2];n--;)r=r.lastChild;if(!c.support.tbody){n=ib.test(i);o=o==="table"&&!n?r.firstChild&&r.firstChild.childNodes:k[1]==="<table>"&&!n?r.childNodes:[];for(k=o.length-1;k>=0;--k)c.nodeName(o[k],"tbody")&&!o[k].childNodes.length&&o[k].parentNode.removeChild(o[k])}!c.support.leadingWhitespace&&V.test(i)&&r.insertBefore(b.createTextNode(V.exec(i)[0]),r.firstChild);i=r.childNodes}if(i.nodeType)e.push(i);else e=
+c.merge(e,i)}}if(d)for(j=0;e[j];j++)if(f&&c.nodeName(e[j],"script")&&(!e[j].type||e[j].type.toLowerCase()==="text/javascript"))f.push(e[j].parentNode?e[j].parentNode.removeChild(e[j]):e[j]);else{e[j].nodeType===1&&e.splice.apply(e,[j+1,0].concat(c.makeArray(e[j].getElementsByTagName("script"))));d.appendChild(e[j])}return e},cleanData:function(a){for(var b,d,f=c.cache,e=c.event.special,j=c.support.deleteExpando,i=0,o;(o=a[i])!=null;i++)if(d=o[c.expando]){b=f[d];if(b.events)for(var k in b.events)e[k]?
+c.event.remove(o,k):Ca(o,k,b.handle);if(j)delete o[c.expando];else o.removeAttribute&&o.removeAttribute(c.expando);delete f[d]}}});var kb=/z-?index|font-?weight|opacity|zoom|line-?height/i,Na=/alpha$[^)]*$/,Oa=/opacity=([^)]*)/,ha=/float/i,ia=/-([a-z])/ig,lb=/([A-Z])/g,mb=/^-?\d+(?:px)?$/i,nb=/^-?\d/,ob={position:"absolute",visibility:"hidden",display:"block"},pb=["Left","Right"],qb=["Top","Bottom"],rb=s.defaultView&&s.defaultView.getComputedStyle,Pa=c.support.cssFloat?"cssFloat":"styleFloat",ja=
+function(a,b){return b.toUpperCase()};c.fn.css=function(a,b){return X(this,a,b,true,function(d,f,e){if(e===w)return c.curCSS(d,f);if(typeof e==="number"&&!kb.test(f))e+="px";c.style(d,f,e)})};c.extend({style:function(a,b,d){if(!a||a.nodeType===3||a.nodeType===8)return w;if((b==="width"||b==="height")&&parseFloat(d)<0)d=w;var f=a.style||a,e=d!==w;if(!c.support.opacity&&b==="opacity"){if(e){f.zoom=1;b=parseInt(d,10)+""==="NaN"?"":"alpha(opacity="+d*100+")";a=f.filter||c.curCSS(a,"filter")||"";f.filter=
+Na.test(a)?a.replace(Na,b):b}return f.filter&&f.filter.indexOf("opacity=")>=0?parseFloat(Oa.exec(f.filter)[1])/100+"":""}if(ha.test(b))b=Pa;b=b.replace(ia,ja);if(e)f[b]=d;return f[b]},css:function(a,b,d,f){if(b==="width"||b==="height"){var e,j=b==="width"?pb:qb;function i(){e=b==="width"?a.offsetWidth:a.offsetHeight;f!=="border"&&c.each(j,function(){f||(e-=parseFloat(c.curCSS(a,"padding"+this,true))||0);if(f==="margin")e+=parseFloat(c.curCSS(a,"margin"+this,true))||0;else e-=parseFloat(c.curCSS(a,
+"border"+this+"Width",true))||0})}a.offsetWidth!==0?i():c.swap(a,ob,i);return Math.max(0,Math.round(e))}return c.curCSS(a,b,d)},curCSS:function(a,b,d){var f,e=a.style;if(!c.support.opacity&&b==="opacity"&&a.currentStyle){f=Oa.test(a.currentStyle.filter||"")?parseFloat(RegExp.$1)/100+"":"";return f===""?"1":f}if(ha.test(b))b=Pa;if(!d&&e&&e[b])f=e[b];else if(rb){if(ha.test(b))b="float";b=b.replace(lb,"-$1").toLowerCase();e=a.ownerDocument.defaultView;if(!e)return null;if(a=e.getComputedStyle(a,null))f=
+a.getPropertyValue(b);if(b==="opacity"&&f==="")f="1"}else if(a.currentStyle){d=b.replace(ia,ja);f=a.currentStyle[b]||a.currentStyle[d];if(!mb.test(f)&&nb.test(f)){b=e.left;var j=a.runtimeStyle.left;a.runtimeStyle.left=a.currentStyle.left;e.left=d==="fontSize"?"1em":f||0;f=e.pixelLeft+"px";e.left=b;a.runtimeStyle.left=j}}return f},swap:function(a,b,d){var f={};for(var e in b){f[e]=a.style[e];a.style[e]=b[e]}d.call(a);for(e in b)a.style[e]=f[e]}});if(c.expr&&c.expr.filters){c.expr.filters.hidden=function(a){var b=
+a.offsetWidth,d=a.offsetHeight,f=a.nodeName.toLowerCase()==="tr";return b===0&&d===0&&!f?true:b>0&&d>0&&!f?false:c.curCSS(a,"display")==="none"};c.expr.filters.visible=function(a){return!c.expr.filters.hidden(a)}}var sb=J(),tb=/<script(.|\s)*?\/script>/gi,ub=/select|textarea/i,vb=/color|date|datetime|email|hidden|month|number|password|range|search|tel|text|time|url|week/i,N=/=\?(&|$)/,ka=/\?/,wb=/(\?|&)_=.*?(&|$)/,xb=/^(\w+:)?\/\/([^\/?#]+)/,yb=/%20/g,zb=c.fn.load;c.fn.extend({load:function(a,b,d){if(typeof a!==
+"string")return zb.call(this,a);else if(!this.length)return this;var f=a.indexOf(" ");if(f>=0){var e=a.slice(f,a.length);a=a.slice(0,f)}f="GET";if(b)if(c.isFunction(b)){d=b;b=null}else if(typeof b==="object"){b=c.param(b,c.ajaxSettings.traditional);f="POST"}var j=this;c.ajax({url:a,type:f,dataType:"html",data:b,complete:function(i,o){if(o==="success"||o==="notmodified")j.html(e?c("<div />").append(i.responseText.replace(tb,"")).find(e):i.responseText);d&&j.each(d,[i.responseText,o,i])}});return this},
+serialize:function(){return c.param(this.serializeArray())},serializeArray:function(){return this.map(function(){return this.elements?c.makeArray(this.elements):this}).filter(function(){return this.name&&!this.disabled&&(this.checked||ub.test(this.nodeName)||vb.test(this.type))}).map(function(a,b){a=c(this).val();return a==null?null:c.isArray(a)?c.map(a,function(d){return{name:b.name,value:d}}):{name:b.name,value:a}}).get()}});c.each("ajaxStart ajaxStop ajaxComplete ajaxError ajaxSuccess ajaxSend".split(" "),
+function(a,b){c.fn[b]=function(d){return this.bind(b,d)}});c.extend({get:function(a,b,d,f){if(c.isFunction(b)){f=f||d;d=b;b=null}return c.ajax({type:"GET",url:a,data:b,success:d,dataType:f})},getScript:function(a,b){return c.get(a,null,b,"script")},getJSON:function(a,b,d){return c.get(a,b,d,"json")},post:function(a,b,d,f){if(c.isFunction(b)){f=f||d;d=b;b={}}return c.ajax({type:"POST",url:a,data:b,success:d,dataType:f})},ajaxSetup:function(a){c.extend(c.ajaxSettings,a)},ajaxSettings:{url:location.href,
+global:true,type:"GET",contentType:"application/x-www-form-urlencoded",processData:true,async:true,xhr:A.XMLHttpRequest&&(A.location.protocol!=="file:"||!A.ActiveXObject)?function(){return new A.XMLHttpRequest}:function(){try{return new A.ActiveXObject("Microsoft.XMLHTTP")}catch(a){}},accepts:{xml:"application/xml, text/xml",html:"text/html",script:"text/javascript, application/javascript",json:"application/json, text/javascript",text:"text/plain",_default:"*/*"}},lastModified:{},etag:{},ajax:function(a){function b(){e.success&&
+e.success.call(k,o,i,x);e.global&&f("ajaxSuccess",[x,e])}function d(){e.complete&&e.complete.call(k,x,i);e.global&&f("ajaxComplete",[x,e]);e.global&&!--c.active&&c.event.trigger("ajaxStop")}function f(q,p){(e.context?c(e.context):c.event).trigger(q,p)}var e=c.extend(true,{},c.ajaxSettings,a),j,i,o,k=a&&a.context||e,n=e.type.toUpperCase();if(e.data&&e.processData&&typeof e.data!=="string")e.data=c.param(e.data,e.traditional);if(e.dataType==="jsonp"){if(n==="GET")N.test(e.url)||(e.url+=(ka.test(e.url)?
+"&":"?")+(e.jsonp||"callback")+"=?");else if(!e.data||!N.test(e.data))e.data=(e.data?e.data+"&":"")+(e.jsonp||"callback")+"=?";e.dataType="json"}if(e.dataType==="json"&&(e.data&&N.test(e.data)||N.test(e.url))){j=e.jsonpCallback||"jsonp"+sb++;if(e.data)e.data=(e.data+"").replace(N,"="+j+"$1");e.url=e.url.replace(N,"="+j+"$1");e.dataType="script";A[j]=A[j]||function(q){o=q;b();d();A[j]=w;try{delete A[j]}catch(p){}z&&z.removeChild(C)}}if(e.dataType==="script"&&e.cache===null)e.cache=false;if(e.cache===
+false&&n==="GET"){var r=J(),u=e.url.replace(wb,"$1_="+r+"$2");e.url=u+(u===e.url?(ka.test(e.url)?"&":"?")+"_="+r:"")}if(e.data&&n==="GET")e.url+=(ka.test(e.url)?"&":"?")+e.data;e.global&&!c.active++&&c.event.trigger("ajaxStart");r=(r=xb.exec(e.url))&&(r[1]&&r[1]!==location.protocol||r[2]!==location.host);if(e.dataType==="script"&&n==="GET"&&r){var z=s.getElementsByTagName("head")[0]||s.documentElement,C=s.createElement("script");C.src=e.url;if(e.scriptCharset)C.charset=e.scriptCharset;if(!j){var B=
+false;C.onload=C.onreadystatechange=function(){if(!B&&(!this.readyState||this.readyState==="loaded"||this.readyState==="complete")){B=true;b();d();C.onload=C.onreadystatechange=null;z&&C.parentNode&&z.removeChild(C)}}}z.insertBefore(C,z.firstChild);return w}var E=false,x=e.xhr();if(x){e.username?x.open(n,e.url,e.async,e.username,e.password):x.open(n,e.url,e.async);try{if(e.data||a&&a.contentType)x.setRequestHeader("Content-Type",e.contentType);if(e.ifModified){c.lastModified[e.url]&&x.setRequestHeader("If-Modified-Since",
+c.lastModified[e.url]);c.etag[e.url]&&x.setRequestHeader("If-None-Match",c.etag[e.url])}r||x.setRequestHeader("X-Requested-With","XMLHttpRequest");x.setRequestHeader("Accept",e.dataType&&e.accepts[e.dataType]?e.accepts[e.dataType]+", */*":e.accepts._default)}catch(ga){}if(e.beforeSend&&e.beforeSend.call(k,x,e)===false){e.global&&!--c.active&&c.event.trigger("ajaxStop");x.abort();return false}e.global&&f("ajaxSend",[x,e]);var g=x.onreadystatechange=function(q){if(!x||x.readyState===0||q==="abort"){E||
+d();E=true;if(x)x.onreadystatechange=c.noop}else if(!E&&x&&(x.readyState===4||q==="timeout")){E=true;x.onreadystatechange=c.noop;i=q==="timeout"?"timeout":!c.httpSuccess(x)?"error":e.ifModified&&c.httpNotModified(x,e.url)?"notmodified":"success";var p;if(i==="success")try{o=c.httpData(x,e.dataType,e)}catch(v){i="parsererror";p=v}if(i==="success"||i==="notmodified")j||b();else c.handleError(e,x,i,p);d();q==="timeout"&&x.abort();if(e.async)x=null}};try{var h=x.abort;x.abort=function(){x&&h.call(x);
+g("abort")}}catch(l){}e.async&&e.timeout>0&&setTimeout(function(){x&&!E&&g("timeout")},e.timeout);try{x.send(n==="POST"||n==="PUT"||n==="DELETE"?e.data:null)}catch(m){c.handleError(e,x,null,m);d()}e.async||g();return x}},handleError:function(a,b,d,f){if(a.error)a.error.call(a.context||a,b,d,f);if(a.global)(a.context?c(a.context):c.event).trigger("ajaxError",[b,a,f])},active:0,httpSuccess:function(a){try{return!a.status&&location.protocol==="file:"||a.status>=200&&a.status<300||a.status===304||a.status===
+1223||a.status===0}catch(b){}return false},httpNotModified:function(a,b){var d=a.getResponseHeader("Last-Modified"),f=a.getResponseHeader("Etag");if(d)c.lastModified[b]=d;if(f)c.etag[b]=f;return a.status===304||a.status===0},httpData:function(a,b,d){var f=a.getResponseHeader("content-type")||"",e=b==="xml"||!b&&f.indexOf("xml")>=0;a=e?a.responseXML:a.responseText;e&&a.documentElement.nodeName==="parsererror"&&c.error("parsererror");if(d&&d.dataFilter)a=d.dataFilter(a,b);if(typeof a==="string")if(b===
+"json"||!b&&f.indexOf("json")>=0)a=c.parseJSON(a);else if(b==="script"||!b&&f.indexOf("javascript")>=0)c.globalEval(a);return a},param:function(a,b){function d(i,o){if(c.isArray(o))c.each(o,function(k,n){b||/\[\]$/.test(i)?f(i,n):d(i+"["+(typeof n==="object"||c.isArray(n)?k:"")+"]",n)});else!b&&o!=null&&typeof o==="object"?c.each(o,function(k,n){d(i+"["+k+"]",n)}):f(i,o)}function f(i,o){o=c.isFunction(o)?o():o;e[e.length]=encodeURIComponent(i)+"="+encodeURIComponent(o)}var e=[];if(b===w)b=c.ajaxSettings.traditional;
+if(c.isArray(a)||a.jquery)c.each(a,function(){f(this.name,this.value)});else for(var j in a)d(j,a[j]);return e.join("&").replace(yb,"+")}});var la={},Ab=/toggle|show|hide/,Bb=/^([+-]=)?([\d+-.]+)(.*)$/,W,va=[["height","marginTop","marginBottom","paddingTop","paddingBottom"],["width","marginLeft","marginRight","paddingLeft","paddingRight"],["opacity"]];c.fn.extend({show:function(a,b){if(a||a===0)return this.animate(K("show",3),a,b);else{a=0;for(b=this.length;a<b;a++){var d=c.data(this[a],"olddisplay");
+this[a].style.display=d||"";if(c.css(this[a],"display")==="none"){d=this[a].nodeName;var f;if(la[d])f=la[d];else{var e=c("<"+d+" />").appendTo("body");f=e.css("display");if(f==="none")f="block";e.remove();la[d]=f}c.data(this[a],"olddisplay",f)}}a=0;for(b=this.length;a<b;a++)this[a].style.display=c.data(this[a],"olddisplay")||"";return this}},hide:function(a,b){if(a||a===0)return this.animate(K("hide",3),a,b);else{a=0;for(b=this.length;a<b;a++){var d=c.data(this[a],"olddisplay");!d&&d!=="none"&&c.data(this[a],
+"olddisplay",c.css(this[a],"display"))}a=0;for(b=this.length;a<b;a++)this[a].style.display="none";return this}},_toggle:c.fn.toggle,toggle:function(a,b){var d=typeof a==="boolean";if(c.isFunction(a)&&c.isFunction(b))this._toggle.apply(this,arguments);else a==null||d?this.each(function(){var f=d?a:c(this).is(":hidden");c(this)[f?"show":"hide"]()}):this.animate(K("toggle",3),a,b);return this},fadeTo:function(a,b,d){return this.filter(":hidden").css("opacity",0).show().end().animate({opacity:b},a,d)},
+animate:function(a,b,d,f){var e=c.speed(b,d,f);if(c.isEmptyObject(a))return this.each(e.complete);return this[e.queue===false?"each":"queue"](function(){var j=c.extend({},e),i,o=this.nodeType===1&&c(this).is(":hidden"),k=this;for(i in a){var n=i.replace(ia,ja);if(i!==n){a[n]=a[i];delete a[i];i=n}if(a[i]==="hide"&&o||a[i]==="show"&&!o)return j.complete.call(this);if((i==="height"||i==="width")&&this.style){j.display=c.css(this,"display");j.overflow=this.style.overflow}if(c.isArray(a[i])){(j.specialEasing=
+j.specialEasing||{})[i]=a[i][1];a[i]=a[i][0]}}if(j.overflow!=null)this.style.overflow="hidden";j.curAnim=c.extend({},a);c.each(a,function(r,u){var z=new c.fx(k,j,r);if(Ab.test(u))z[u==="toggle"?o?"show":"hide":u](a);else{var C=Bb.exec(u),B=z.cur(true)||0;if(C){u=parseFloat(C[2]);var E=C[3]||"px";if(E!=="px"){k.style[r]=(u||1)+E;B=(u||1)/z.cur(true)*B;k.style[r]=B+E}if(C[1])u=(C[1]==="-="?-1:1)*u+B;z.custom(B,u,E)}else z.custom(B,u,"")}});return true})},stop:function(a,b){var d=c.timers;a&&this.queue([]);
+this.each(function(){for(var f=d.length-1;f>=0;f--)if(d[f].elem===this){b&&d[f](true);d.splice(f,1)}});b||this.dequeue();return this}});c.each({slideDown:K("show",1),slideUp:K("hide",1),slideToggle:K("toggle",1),fadeIn:{opacity:"show"},fadeOut:{opacity:"hide"}},function(a,b){c.fn[a]=function(d,f){return this.animate(b,d,f)}});c.extend({speed:function(a,b,d){var f=a&&typeof a==="object"?a:{complete:d||!d&&b||c.isFunction(a)&&a,duration:a,easing:d&&b||b&&!c.isFunction(b)&&b};f.duration=c.fx.off?0:typeof f.duration===
+"number"?f.duration:c.fx.speeds[f.duration]||c.fx.speeds._default;f.old=f.complete;f.complete=function(){f.queue!==false&&c(this).dequeue();c.isFunction(f.old)&&f.old.call(this)};return f},easing:{linear:function(a,b,d,f){return d+f*a},swing:function(a,b,d,f){return(-Math.cos(a*Math.PI)/2+0.5)*f+d}},timers:[],fx:function(a,b,d){this.options=b;this.elem=a;this.prop=d;if(!b.orig)b.orig={}}});c.fx.prototype={update:function(){this.options.step&&this.options.step.call(this.elem,this.now,this);(c.fx.step[this.prop]||
+c.fx.step._default)(this);if((this.prop==="height"||this.prop==="width")&&this.elem.style)this.elem.style.display="block"},cur:function(a){if(this.elem[this.prop]!=null&&(!this.elem.style||this.elem.style[this.prop]==null))return this.elem[this.prop];return(a=parseFloat(c.css(this.elem,this.prop,a)))&&a>-10000?a:parseFloat(c.curCSS(this.elem,this.prop))||0},custom:function(a,b,d){function f(j){return e.step(j)}this.startTime=J();this.start=a;this.end=b;this.unit=d||this.unit||"px";this.now=this.start;
+this.pos=this.state=0;var e=this;f.elem=this.elem;if(f()&&c.timers.push(f)&&!W)W=setInterval(c.fx.tick,13)},show:function(){this.options.orig[this.prop]=c.style(this.elem,this.prop);this.options.show=true;this.custom(this.prop==="width"||this.prop==="height"?1:0,this.cur());c(this.elem).show()},hide:function(){this.options.orig[this.prop]=c.style(this.elem,this.prop);this.options.hide=true;this.custom(this.cur(),0)},step:function(a){var b=J(),d=true;if(a||b>=this.options.duration+this.startTime){this.now=
+this.end;this.pos=this.state=1;this.update();this.options.curAnim[this.prop]=true;for(var f in this.options.curAnim)if(this.options.curAnim[f]!==true)d=false;if(d){if(this.options.display!=null){this.elem.style.overflow=this.options.overflow;a=c.data(this.elem,"olddisplay");this.elem.style.display=a?a:this.options.display;if(c.css(this.elem,"display")==="none")this.elem.style.display="block"}this.options.hide&&c(this.elem).hide();if(this.options.hide||this.options.show)for(var e in this.options.curAnim)c.style(this.elem,
+e,this.options.orig[e]);this.options.complete.call(this.elem)}return false}else{e=b-this.startTime;this.state=e/this.options.duration;a=this.options.easing||(c.easing.swing?"swing":"linear");this.pos=c.easing[this.options.specialEasing&&this.options.specialEasing[this.prop]||a](this.state,e,0,1,this.options.duration);this.now=this.start+(this.end-this.start)*this.pos;this.update()}return true}};c.extend(c.fx,{tick:function(){for(var a=c.timers,b=0;b<a.length;b++)a[b]()||a.splice(b--,1);a.length||
+c.fx.stop()},stop:function(){clearInterval(W);W=null},speeds:{slow:600,fast:200,_default:400},step:{opacity:function(a){c.style(a.elem,"opacity",a.now)},_default:function(a){if(a.elem.style&&a.elem.style[a.prop]!=null)a.elem.style[a.prop]=(a.prop==="width"||a.prop==="height"?Math.max(0,a.now):a.now)+a.unit;else a.elem[a.prop]=a.now}}});if(c.expr&&c.expr.filters)c.expr.filters.animated=function(a){return c.grep(c.timers,function(b){return a===b.elem}).length};c.fn.offset="getBoundingClientRect"in s.documentElement?
+function(a){var b=this[0];if(a)return this.each(function(e){c.offset.setOffset(this,a,e)});if(!b||!b.ownerDocument)return null;if(b===b.ownerDocument.body)return c.offset.bodyOffset(b);var d=b.getBoundingClientRect(),f=b.ownerDocument;b=f.body;f=f.documentElement;return{top:d.top+(self.pageYOffset||c.support.boxModel&&f.scrollTop||b.scrollTop)-(f.clientTop||b.clientTop||0),left:d.left+(self.pageXOffset||c.support.boxModel&&f.scrollLeft||b.scrollLeft)-(f.clientLeft||b.clientLeft||0)}}:function(a){var b=
+this[0];if(a)return this.each(function(r){c.offset.setOffset(this,a,r)});if(!b||!b.ownerDocument)return null;if(b===b.ownerDocument.body)return c.offset.bodyOffset(b);c.offset.initialize();var d=b.offsetParent,f=b,e=b.ownerDocument,j,i=e.documentElement,o=e.body;f=(e=e.defaultView)?e.getComputedStyle(b,null):b.currentStyle;for(var k=b.offsetTop,n=b.offsetLeft;(b=b.parentNode)&&b!==o&&b!==i;){if(c.offset.supportsFixedPosition&&f.position==="fixed")break;j=e?e.getComputedStyle(b,null):b.currentStyle;
+k-=b.scrollTop;n-=b.scrollLeft;if(b===d){k+=b.offsetTop;n+=b.offsetLeft;if(c.offset.doesNotAddBorder&&!(c.offset.doesAddBorderForTableAndCells&&/^t(able|d|h)$/i.test(b.nodeName))){k+=parseFloat(j.borderTopWidth)||0;n+=parseFloat(j.borderLeftWidth)||0}f=d;d=b.offsetParent}if(c.offset.subtractsBorderForOverflowNotVisible&&j.overflow!=="visible"){k+=parseFloat(j.borderTopWidth)||0;n+=parseFloat(j.borderLeftWidth)||0}f=j}if(f.position==="relative"||f.position==="static"){k+=o.offsetTop;n+=o.offsetLeft}if(c.offset.supportsFixedPosition&&
+f.position==="fixed"){k+=Math.max(i.scrollTop,o.scrollTop);n+=Math.max(i.scrollLeft,o.scrollLeft)}return{top:k,left:n}};c.offset={initialize:function(){var a=s.body,b=s.createElement("div"),d,f,e,j=parseFloat(c.curCSS(a,"marginTop",true))||0;c.extend(b.style,{position:"absolute",top:0,left:0,margin:0,border:0,width:"1px",height:"1px",visibility:"hidden"});b.innerHTML="<div style='position:absolute;top:0;left:0;margin:0;border:5px solid #000;padding:0;width:1px;height:1px;'><div></div></div><table style='position:absolute;top:0;left:0;margin:0;border:5px solid #000;padding:0;width:1px;height:1px;' cellpadding='0' cellspacing='0'><tr><td></td></tr></table>";
+a.insertBefore(b,a.firstChild);d=b.firstChild;f=d.firstChild;e=d.nextSibling.firstChild.firstChild;this.doesNotAddBorder=f.offsetTop!==5;this.doesAddBorderForTableAndCells=e.offsetTop===5;f.style.position="fixed";f.style.top="20px";this.supportsFixedPosition=f.offsetTop===20||f.offsetTop===15;f.style.position=f.style.top="";d.style.overflow="hidden";d.style.position="relative";this.subtractsBorderForOverflowNotVisible=f.offsetTop===-5;this.doesNotIncludeMarginInBodyOffset=a.offsetTop!==j;a.removeChild(b);
+c.offset.initialize=c.noop},bodyOffset:function(a){var b=a.offsetTop,d=a.offsetLeft;c.offset.initialize();if(c.offset.doesNotIncludeMarginInBodyOffset){b+=parseFloat(c.curCSS(a,"marginTop",true))||0;d+=parseFloat(c.curCSS(a,"marginLeft",true))||0}return{top:b,left:d}},setOffset:function(a,b,d){if(/static/.test(c.curCSS(a,"position")))a.style.position="relative";var f=c(a),e=f.offset(),j=parseInt(c.curCSS(a,"top",true),10)||0,i=parseInt(c.curCSS(a,"left",true),10)||0;if(c.isFunction(b))b=b.call(a,
+d,e);d={top:b.top-e.top+j,left:b.left-e.left+i};"using"in b?b.using.call(a,d):f.css(d)}};c.fn.extend({position:function(){if(!this[0])return null;var a=this[0],b=this.offsetParent(),d=this.offset(),f=/^body|html$/i.test(b[0].nodeName)?{top:0,left:0}:b.offset();d.top-=parseFloat(c.curCSS(a,"marginTop",true))||0;d.left-=parseFloat(c.curCSS(a,"marginLeft",true))||0;f.top+=parseFloat(c.curCSS(b[0],"borderTopWidth",true))||0;f.left+=parseFloat(c.curCSS(b[0],"borderLeftWidth",true))||0;return{top:d.top-
+f.top,left:d.left-f.left}},offsetParent:function(){return this.map(function(){for(var a=this.offsetParent||s.body;a&&!/^body|html$/i.test(a.nodeName)&&c.css(a,"position")==="static";)a=a.offsetParent;return a})}});c.each(["Left","Top"],function(a,b){var d="scroll"+b;c.fn[d]=function(f){var e=this[0],j;if(!e)return null;if(f!==w)return this.each(function(){if(j=wa(this))j.scrollTo(!a?f:c(j).scrollLeft(),a?f:c(j).scrollTop());else this[d]=f});else return(j=wa(e))?"pageXOffset"in j?j[a?"pageYOffset":
+"pageXOffset"]:c.support.boxModel&&j.document.documentElement[d]||j.document.body[d]:e[d]}});c.each(["Height","Width"],function(a,b){var d=b.toLowerCase();c.fn["inner"+b]=function(){return this[0]?c.css(this[0],d,false,"padding"):null};c.fn["outer"+b]=function(f){return this[0]?c.css(this[0],d,false,f?"margin":"border"):null};c.fn[d]=function(f){var e=this[0];if(!e)return f==null?null:this;if(c.isFunction(f))return this.each(function(j){var i=c(this);i[d](f.call(this,j,i[d]()))});return"scrollTo"in
+e&&e.document?e.document.compatMode==="CSS1Compat"&&e.document.documentElement["client"+b]||e.document.body["client"+b]:e.nodeType===9?Math.max(e.documentElement["client"+b],e.body["scroll"+b],e.documentElement["scroll"+b],e.body["offset"+b],e.documentElement["offset"+b]):f===w?c.css(e,d):this.css(d,typeof f==="string"?f:f+"px")}});A.jQuery=A.$=c})(window);

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/jquery.tablesorter.min.js Added

@@ -0,0 +1,4 @@
+
+(function($){$.extend({tablesorter:new
+function(){var parsers=[],widgets=[];this.defaults={cssHeader:"header",cssAsc:"headerSortUp",cssDesc:"headerSortDown",cssChildRow:"expand-child",sortInitialOrder:"asc",sortMultiSortKey:"shiftKey",sortForce:null,sortAppend:null,sortLocaleCompare:true,textExtraction:"simple",parsers:{},widgets:[],widgetZebra:{css:["even","odd"]},headers:{},widthFixed:false,cancelSelection:true,sortList:[],headerList:[],dateFormat:"us",decimal:'/\.|\,/g',onRenderHeader:null,selectorHeaders:'thead th',debug:false};function benchmark(s,d){log(s+","+(new Date().getTime()-d.getTime())+"ms");}this.benchmark=benchmark;function log(s){if(typeof console!="undefined"&&typeof console.debug!="undefined"){console.log(s);}else{alert(s);}}function buildParserCache(table,$headers){if(table.config.debug){var parsersDebug="";}if(table.tBodies.length==0)return;var rows=table.tBodies[0].rows;if(rows[0]){var list=[],cells=rows[0].cells,l=cells.length;for(var i=0;i<l;i++){var p=false;if($.metadata&&($($headers[i]).metadata()&&$($headers[i]).metadata().sorter)){p=getParserById($($headers[i]).metadata().sorter);}else if((table.config.headers[i]&&table.config.headers[i].sorter)){p=getParserById(table.config.headers[i].sorter);}if(!p){p=detectParserForColumn(table,rows,-1,i);}if(table.config.debug){parsersDebug+="column:"+i+" parser:"+p.id+"\n";}list.push(p);}}if(table.config.debug){log(parsersDebug);}return list;};function detectParserForColumn(table,rows,rowIndex,cellIndex){var l=parsers.length,node=false,nodeValue=false,keepLooking=true;while(nodeValue==''&&keepLooking){rowIndex++;if(rows[rowIndex]){node=getNodeFromRowAndCellIndex(rows,rowIndex,cellIndex);nodeValue=trimAndGetNodeText(table.config,node);if(table.config.debug){log('Checking if value was empty on row:'+rowIndex);}}else{keepLooking=false;}}for(var i=1;i<l;i++){if(parsers[i].is(nodeValue,table,node)){return parsers[i];}}return parsers[0];}function getNodeFromRowAndCellIndex(rows,rowIndex,cellIndex){return rows[rowIndex].cells[cellIndex];}function trimAndGetNodeText(config,node){return $.trim(getElementText(config,node));}function getParserById(name){var l=parsers.length;for(var i=0;i<l;i++){if(parsers[i].id.toLowerCase()==name.toLowerCase()){return parsers[i];}}return false;}function buildCache(table){if(table.config.debug){var cacheTime=new Date();}var totalRows=(table.tBodies[0]&&table.tBodies[0].rows.length)||0,totalCells=(table.tBodies[0].rows[0]&&table.tBodies[0].rows[0].cells.length)||0,parsers=table.config.parsers,cache={row:[],normalized:[]};for(var i=0;i<totalRows;++i){var c=$(table.tBodies[0].rows[i]),cols=[];if(c.hasClass(table.config.cssChildRow)){cache.row[cache.row.length-1]=cache.row[cache.row.length-1].add(c);continue;}cache.row.push(c);for(var j=0;j<totalCells;++j){cols.push(parsers[j].format(getElementText(table.config,c[0].cells[j]),table,c[0].cells[j]));}cols.push(cache.normalized.length);cache.normalized.push(cols);cols=null;};if(table.config.debug){benchmark("Building cache for "+totalRows+" rows:",cacheTime);}return cache;};function getElementText(config,node){var text="";if(!node)return"";if(!config.supportsTextContent)config.supportsTextContent=node.textContent||false;if(config.textExtraction=="simple"){if(config.supportsTextContent){text=node.textContent;}else{if(node.childNodes[0]&&node.childNodes[0].hasChildNodes()){text=node.childNodes[0].innerHTML;}else{text=node.innerHTML;}}}else{if(typeof(config.textExtraction)=="function"){text=config.textExtraction(node);}else{text=$(node).text();}}return text;}function appendToTable(table,cache){if(table.config.debug){var appendTime=new Date()}var c=cache,r=c.row,n=c.normalized,totalRows=n.length,checkCell=(n[0].length-1),tableBody=$(table.tBodies[0]),rows=[];for(var i=0;i<totalRows;i++){var pos=n[i][checkCell];rows.push(r[pos]);if(!table.config.appender){var l=r[pos].length;for(var j=0;j<l;j++){tableBody[0].appendChild(r[pos][j]);}}}if(table.config.appender){table.config.appender(table,rows);}rows=null;if(table.config.debug){benchmark("Rebuilt table:",appendTime);}applyWidget(table);setTimeout(function(){$(table).trigger("sortEnd");},0);};function buildHeaders(table){if(table.config.debug){var time=new Date();}var meta=($.metadata)?true:false;var header_index=computeTableHeaderCellIndexes(table);$tableHeaders=$(table.config.selectorHeaders,table).each(function(index){this.column=header_index[this.parentNode.rowIndex+"-"+this.cellIndex];this.order=formatSortingOrder(table.config.sortInitialOrder);this.count=this.order;if(checkHeaderMetadata(this)||checkHeaderOptions(table,index))this.sortDisabled=true;if(checkHeaderOptionsSortingLocked(table,index))this.order=this.lockedOrder=checkHeaderOptionsSortingLocked(table,index);if(!this.sortDisabled){var $th=$(this).addClass(table.config.cssHeader);if(table.config.onRenderHeader)table.config.onRenderHeader.apply($th);}table.config.headerList[index]=this;});if(table.config.debug){benchmark("Built headers:",time);log($tableHeaders);}return $tableHeaders;};function computeTableHeaderCellIndexes(t){var matrix=[];var lookup={};var thead=t.getElementsByTagName('THEAD')[0];var trs=thead.getElementsByTagName('TR');for(var i=0;i<trs.length;i++){var cells=trs[i].cells;for(var j=0;j<cells.length;j++){var c=cells[j];var rowIndex=c.parentNode.rowIndex;var cellId=rowIndex+"-"+c.cellIndex;var rowSpan=c.rowSpan||1;var colSpan=c.colSpan||1
+var firstAvailCol;if(typeof(matrix[rowIndex])=="undefined"){matrix[rowIndex]=[];}for(var k=0;k<matrix[rowIndex].length+1;k++){if(typeof(matrix[rowIndex][k])=="undefined"){firstAvailCol=k;break;}}lookup[cellId]=firstAvailCol;for(var k=rowIndex;k<rowIndex+rowSpan;k++){if(typeof(matrix[k])=="undefined"){matrix[k]=[];}var matrixrow=matrix[k];for(var l=firstAvailCol;l<firstAvailCol+colSpan;l++){matrixrow[l]="x";}}}}return lookup;}function checkCellColSpan(table,rows,row){var arr=[],r=table.tHead.rows,c=r[row].cells;for(var i=0;i<c.length;i++){var cell=c[i];if(cell.colSpan>1){arr=arr.concat(checkCellColSpan(table,headerArr,row++));}else{if(table.tHead.length==1||(cell.rowSpan>1||!r[row+1])){arr.push(cell);}}}return arr;};function checkHeaderMetadata(cell){if(($.metadata)&&($(cell).metadata().sorter===false)){return true;};return false;}function checkHeaderOptions(table,i){if((table.config.headers[i])&&(table.config.headers[i].sorter===false)){return true;};return false;}function checkHeaderOptionsSortingLocked(table,i){if((table.config.headers[i])&&(table.config.headers[i].lockedOrder))return table.config.headers[i].lockedOrder;return false;}function applyWidget(table){var c=table.config.widgets;var l=c.length;for(var i=0;i<l;i++){getWidgetById(c[i]).format(table);}}function getWidgetById(name){var l=widgets.length;for(var i=0;i<l;i++){if(widgets[i].id.toLowerCase()==name.toLowerCase()){return widgets[i];}}};function formatSortingOrder(v){if(typeof(v)!="Number"){return(v.toLowerCase()=="desc")?1:0;}else{return(v==1)?1:0;}}function isValueInArray(v,a){var l=a.length;for(var i=0;i<l;i++){if(a[i][0]==v){return true;}}return false;}function setHeadersCss(table,$headers,list,css){$headers.removeClass(css[0]).removeClass(css[1]);var h=[];$headers.each(function(offset){if(!this.sortDisabled){h[this.column]=$(this);}});var l=list.length;for(var i=0;i<l;i++){h[list[i][0]].addClass(css[list[i][1]]);}}function fixColumnWidth(table,$headers){var c=table.config;if(c.widthFixed){var colgroup=$('<colgroup>');$("tr:first td",table.tBodies[0]).each(function(){colgroup.append($('<col>').css('width',$(this).width()));});$(table).prepend(colgroup);};}function updateHeaderSortCount(table,sortList){var c=table.config,l=sortList.length;for(var i=0;i<l;i++){var s=sortList[i],o=c.headerList[s[0]];o.count=s[1];o.count++;}}function multisort(table,sortList,cache){if(table.config.debug){var sortTime=new Date();}var dynamicExp="var sortWrapper = function(a,b) {",l=sortList.length;for(var i=0;i<l;i++){var c=sortList[i][0];var order=sortList[i][1];var s=(table.config.parsers[c].type=="text")?((order==0)?makeSortFunction("text","asc",c):makeSortFunction("text","desc",c)):((order==0)?makeSortFunction("numeric","asc",c):makeSortFunction("numeric","desc",c));var e="e"+i;dynamicExp+="var "+e+" = "+s;dynamicExp+="if("+e+") { return "+e+"; } ";dynamicExp+="else { ";}var orgOrderCol=cache.normalized[0].length-1;dynamicExp+="return a["+orgOrderCol+"]-b["+orgOrderCol+"];";for(var i=0;i<l;i++){dynamicExp+="}; ";}dynamicExp+="return 0; ";dynamicExp+="}; ";if(table.config.debug){benchmark("Evaling expression:"+dynamicExp,new Date());}eval(dynamicExp);cache.normalized.sort(sortWrapper);if(table.config.debug){benchmark("Sorting on "+sortList.toString()+" and dir "+order+" time:",sortTime);}return cache;};function makeSortFunction(type,direction,index){var a="a["+index+"]",b="b["+index+"]";if(type=='text'&&direction=='asc'){return"("+a+" == "+b+" ? 0 : ("+a+" === null ? Number.POSITIVE_INFINITY : ("+b+" === null ? Number.NEGATIVE_INFINITY : ("+a+" < "+b+") ? -1 : 1 )));";}else if(type=='text'&&direction=='desc'){return"("+a+" == "+b+" ? 0 : ("+a+" === null ? Number.POSITIVE_INFINITY : ("+b+" === null ? Number.NEGATIVE_INFINITY : ("+b+" < "+a+") ? -1 : 1 )));";}else if(type=='numeric'&&direction=='asc'){return"("+a+" === null && "+b+" === null) ? 0 :("+a+" === null ? Number.POSITIVE_INFINITY : ("+b+" === null ? Number.NEGATIVE_INFINITY : "+a+" - "+b+"));";}else if(type=='numeric'&&direction=='desc'){return"("+a+" === null && "+b+" === null) ? 0 :("+a+" === null ? Number.POSITIVE_INFINITY : ("+b+" === null ? Number.NEGATIVE_INFINITY : "+b+" - "+a+"));";}};function makeSortText(i){return"((a["+i+"] < b["+i+"]) ? -1 : ((a["+i+"] > b["+i+"]) ? 1 : 0));";};function makeSortTextDesc(i){return"((b["+i+"] < a["+i+"]) ? -1 : ((b["+i+"] > a["+i+"]) ? 1 : 0));";};function makeSortNumeric(i){return"a["+i+"]-b["+i+"];";};function makeSortNumericDesc(i){return"b["+i+"]-a["+i+"];";};function sortText(a,b){if(table.config.sortLocaleCompare)return a.localeCompare(b);return((a<b)?-1:((a>b)?1:0));};function sortTextDesc(a,b){if(table.config.sortLocaleCompare)return b.localeCompare(a);return((b<a)?-1:((b>a)?1:0));};function sortNumeric(a,b){return a-b;};function sortNumericDesc(a,b){return b-a;};function getCachedSortType(parsers,i){return parsers[i].type;};this.construct=function(settings){return this.each(function(){if(!this.tHead||!this.tBodies)return;var $this,$document,$headers,cache,config,shiftDown=0,sortOrder;this.config={};config=$.extend(this.config,$.tablesorter.defaults,settings);$this=$(this);$.data(this,"tablesorter",config);$headers=buildHeaders(this);this.config.parsers=buildParserCache(this,$headers);cache=buildCache(this);var sortCSS=[config.cssDesc,config.cssAsc];fixColumnWidth(this);$headers.click(function(e){var totalRows=($this[0].tBodies[0]&&$this[0].tBodies[0].rows.length)||0;if(!this.sortDisabled&&totalRows>0){$this.trigger("sortStart");var $cell=$(this);var i=this.column;this.order=this.count++%2;if(this.lockedOrder)this.order=this.lockedOrder;if(!e[config.sortMultiSortKey]){config.sortList=[];if(config.sortForce!=null){var a=config.sortForce;for(var j=0;j<a.length;j++){if(a[j][0]!=i){config.sortList.push(a[j]);}}}config.sortList.push([i,this.order]);}else{if(isValueInArray(i,config.sortList)){for(var j=0;j<config.sortList.length;j++){var s=config.sortList[j],o=config.headerList[s[0]];if(s[0]==i){o.count=s[1];o.count++;s[1]=o.count%2;}}}else{config.sortList.push([i,this.order]);}};setTimeout(function(){setHeadersCss($this[0],$headers,config.sortList,sortCSS);appendToTable($this[0],multisort($this[0],config.sortList,cache));},1);return false;}}).mousedown(function(){if(config.cancelSelection){this.onselectstart=function(){return false};return false;}});$this.bind("update",function(){var me=this;setTimeout(function(){me.config.parsers=buildParserCache(me,$headers);cache=buildCache(me);},1);}).bind("updateCell",function(e,cell){var config=this.config;var pos=[(cell.parentNode.rowIndex-1),cell.cellIndex];cache.normalized[pos[0]][pos[1]]=config.parsers[pos[1]].format(getElementText(config,cell),cell);}).bind("sorton",function(e,list){$(this).trigger("sortStart");config.sortList=list;var sortList=config.sortList;updateHeaderSortCount(this,sortList);setHeadersCss(this,$headers,sortList,sortCSS);appendToTable(this,multisort(this,sortList,cache));}).bind("appendCache",function(){appendToTable(this,cache);}).bind("applyWidgetId",function(e,id){getWidgetById(id).format(this);}).bind("applyWidgets",function(){applyWidget(this);});if($.metadata&&($(this).metadata()&&$(this).metadata().sortlist)){config.sortList=$(this).metadata().sortlist;}if(config.sortList.length>0){$this.trigger("sorton",[config.sortList]);}applyWidget(this);});};this.addParser=function(parser){var l=parsers.length,a=true;for(var i=0;i<l;i++){if(parsers[i].id.toLowerCase()==parser.id.toLowerCase()){a=false;}}if(a){parsers.push(parser);};};this.addWidget=function(widget){widgets.push(widget);};this.formatFloat=function(s){var i=parseFloat(s);return(isNaN(i))?0:i;};this.formatInt=function(s){var i=parseInt(s);return(isNaN(i))?0:i;};this.isDigit=function(s,config){return/^[-+]?\d*$/.test($.trim(s.replace(/[,.']/g,'')));};this.clearTableBody=function(table){if($.browser.msie){function empty(){while(this.firstChild)this.removeChild(this.firstChild);}empty.apply(table.tBodies[0]);}else{table.tBodies[0].innerHTML="";}};}});$.fn.extend({tablesorter:$.tablesorter.construct});var ts=$.tablesorter;ts.addParser({id:"text",is:function(s){return true;},format:function(s){return $.trim(s.toLocaleLowerCase());},type:"text"});ts.addParser({id:"digit",is:function(s,table){var c=table.config;return $.tablesorter.isDigit(s,c);},format:function(s){return $.tablesorter.formatFloat(s);},type:"numeric"});ts.addParser({id:"currency",is:function(s){return/^[£$€?.]/.test(s);},format:function(s){return $.tablesorter.formatFloat(s.replace(new RegExp(/[£$€]/g),""));},type:"numeric"});ts.addParser({id:"ipAddress",is:function(s){return/^\d{2,3}[\.]\d{2,3}[\.]\d{2,3}[\.]\d{2,3}$/.test(s);},format:function(s){var a=s.split("."),r="",l=a.length;for(var i=0;i<l;i++){var item=a[i];if(item.length==2){r+="0"+item;}else{r+=item;}}return $.tablesorter.formatFloat(r);},type:"numeric"});ts.addParser({id:"url",is:function(s){return/^(https?|ftp|file):\/\/$/.test(s);},format:function(s){return jQuery.trim(s.replace(new RegExp(/(https?|ftp|file):\/\//),''));},type:"text"});ts.addParser({id:"isoDate",is:function(s){return/^\d{4}[\/-]\d{1,2}[\/-]\d{1,2}$/.test(s);},format:function(s){return $.tablesorter.formatFloat((s!="")?new Date(s.replace(new RegExp(/-/g),"/")).getTime():"0");},type:"numeric"});ts.addParser({id:"percent",is:function(s){return/\%$/.test($.trim(s));},format:function(s){return $.tablesorter.formatFloat(s.replace(new RegExp(/%/g),""));},type:"numeric"});ts.addParser({id:"usLongDate",is:function(s){return s.match(new RegExp(/^[A-Za-z]{3,10}\.? [0-9]{1,2}, ([0-9]{4}|'?[0-9]{2}) (([0-2]?[0-9]:[0-5][0-9])|([0-1]?[0-9]:[0-5][0-9]\s(AM|PM)))$/));},format:function(s){return $.tablesorter.formatFloat(new Date(s).getTime());},type:"numeric"});ts.addParser({id:"shortDate",is:function(s){return/\d{1,2}[\/\-]\d{1,2}[\/\-]\d{2,4}/.test(s);},format:function(s,table){var c=table.config;s=s.replace(/\-/g,"/");if(c.dateFormat=="us"){s=s.replace(/(\d{1,2})[\/\-](\d{1,2})[\/\-](\d{4})/,"$3/$1/$2");}else if(c.dateFormat=="uk"){s=s.replace(/(\d{1,2})[\/\-](\d{1,2})[\/\-](\d{4})/,"$3/$2/$1");}else if(c.dateFormat=="dd/mm/yy"||c.dateFormat=="dd-mm-yy"){s=s.replace(/(\d{1,2})[\/\-](\d{1,2})[\/\-](\d{2})/,"$1/$2/$3");}return $.tablesorter.formatFloat(new Date(s).getTime());},type:"numeric"});ts.addParser({id:"time",is:function(s){return/^(([0-2]?[0-9]:[0-5][0-9])|([0-1]?[0-9]:[0-5][0-9]\s(am|pm)))$/.test(s);},format:function(s){return $.tablesorter.formatFloat(new Date("2000/01/01 "+s).getTime());},type:"numeric"});ts.addParser({id:"metadata",is:function(s){return false;},format:function(s,table,cell){var c=table.config,p=(!c.parserMetadataName)?'sortValue':c.parserMetadataName;return $(cell).metadata()[p];},type:"numeric"});ts.addWidget({id:"zebra",format:function(table){if(table.config.debug){var time=new Date();}var $tr,row=-1,odd;$("tr:visible",table.tBodies[0]).each(function(i){$tr=$(this);if(!$tr.hasClass(table.config.cssChildRow))row++;odd=(row%2==0);$tr.removeClass(table.config.widgetZebra.css[odd?0:1]).addClass(table.config.widgetZebra.css[odd?1:0])});if(table.config.debug){$.tablesorter.benchmark("Applying Zebra widget",time);}}});})(jQuery);
\ No newline at end of file

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/last_name Added

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/last_test.html Added

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs Added

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/kolab_guam_rules_suite.src.html Added

@@ -0,0 +1,263 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
+
+<html>
+<head>
+<meta http-equiv="Content-Type" content="text/html;charset=utf-8"/></meta>
+<title>/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_rules_SUITE.erl</title>
+</head>
+
+<body bgcolor="white" text="black" link="blue" vlink="purple" alink="red">
+<pre>
+<a name="1"/>    1: <i>%% Copyright 2015 Kolab Systems AG (http://www.kolabsys.com)</i>
+<a name="2"/>    2: <i>%%</i>
+<a name="3"/>    3: <i>%% Aaron Seigo (Kolab Systems) &lt;seigo a kolabsys.com&gt;</i>
+<a name="4"/>    4: <i>%%</i>
+<a name="5"/>    5: <i>%% This program is free software: you can redistribute it and/or modify</i>
+<a name="6"/>    6: <i>%% it under the terms of the GNU General Public License as published by</i>
+<a name="7"/>    7: <i>%% the Free Software Foundation, either version 3 of the License, or</i>
+<a name="8"/>    8: <i>%% (at your option) any later version.</i>
+<a name="9"/>    9: <i>%%</i>
+<a name="10"/>   10: <i>%% This program is distributed in the hope that it will be useful,</i>
+<a name="11"/>   11: <i>%% but WITHOUT ANY WARRANTY; without even the implied warranty of</i>
+<a name="12"/>   12: <i>%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the</i>
+<a name="13"/>   13: <i>%% GNU General Public License for more details.</i>
+<a name="14"/>   14: <i>%%</i>
+<a name="15"/>   15: <i>%% You should have received a copy of the GNU General Public License</i>
+<a name="16"/>   16: <i>%% along with this program.  If not, see &lt;http://www.gnu.org/licenses/&gt;.</i>
+<a name="17"/>   17: 
+<a name="18"/>   18: <b>-module</b>(kolab_guam_rules_SUITE).
+<a name="19"/>   19: 
+<a name="20"/>   20: <i>% easier than exporting by name</i>
+<a name="21"/>   21: <b>-compile</b>(export_all).
+<a name="22"/>   22: 
+<a name="23"/>   23: <i>% required for common_test to work</i>
+<a name="24"/>   24: <b>-include_lib</b>(&quot;common_test/include/ct.hrl&quot;).
+<a name="25"/>   25: <b>-include</b>(&quot;../src/rules/kolab_guam_rule_filter_groupware.hrl&quot;).
+<a name="26"/>   26: <i>% -include(&quot;../src/rules/kolab_guam_rule_audit.hrl&quot;).</i>
+<a name="27"/>   27: 
+<a name="28"/>   28: <i>%%%%%%%%%%%%%%%%%%%%%%%%%%%</i>
+<a name="29"/>   29: <i>%% common test callbacks %%</i>
+<a name="30"/>   30: <i>%%%%%%%%%%%%%%%%%%%%%%%%%%%</i>
+<a name="31"/>   31: 
+<a name="32"/>   32: <i>% Specify a list of all unit test functions</i>
+<a name="all-0"/><a name="all-last_expr"/><a name="33"/>   33: <b>all</b>() -&gt; [
+<a name="34"/>   34:           kolab_guam_rule_filter_groupware_responsefiltering_test,
+<a name="35"/>   35:           kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test,
+<a name="36"/>   36:           kolab_guam_rule_audit_test
+<a name="37"/>   37:          ].
+<a name="38"/>   38: 
+<a name="39"/>   39: <i>% required, but can just return Config. this is a suite level setup function.</i>
+<a name="init_per_suite-1"/><a name="40"/>   40: <b>init_per_suite</b>(Config) -&gt;
+<a name="init_per_suite-last_expr"/><a name="41"/>   41:         Config.
+<a name="42"/>   42: 
+<a name="43"/>   43: <i>% required, but can just return Config. this is a suite level tear down function.</i>
+<a name="end_per_suite-1"/><a name="44"/>   44: <b>end_per_suite</b>(Config) -&gt;
+<a name="end_per_suite-last_expr"/><a name="45"/>   45:         Config.
+<a name="46"/>   46: 
+<a name="47"/>   47: <i>% optional, can do function level setup for all functions,</i>
+<a name="48"/>   48: <i>% or for individual functions by matching on TestCase.</i>
+<a name="init_per_testcase-2"/><a name="49"/>   49: <b>init_per_testcase</b>(_TestCase, Config) -&gt;
+<a name="init_per_testcase-last_expr"/><a name="50"/>   50:         Config.
+<a name="51"/>   51: 
+<a name="52"/>   52: <i>% optional, can do function level tear down for all functions,</i>
+<a name="53"/>   53: <i>% or for individual functions by matching on TestCase.</i>
+<a name="end_per_testcase-2"/><a name="54"/>   54: <b>end_per_testcase</b>(_TestCase, Config) -&gt;
+<a name="end_per_testcase-last_expr"/><a name="55"/>   55:         Config.
+<a name="56"/>   56: 
+<a name="57"/>   57: <i>% c(&quot;apps/kolab_guam/test/kolab_guam_sup_tests.erl&quot;). eunit:test(kolab_guam_sup_tests).</i>
+<a name="58"/>   58: 
+<a name="kolab_guam_rule_filter_groupware_responsefiltering_test-1"/><a name="59"/>   59: <b>kolab_guam_rule_filter_groupware_responsefiltering_test</b>(_TestConfig) -&gt;
+<a name="60"/>   60:     %% Data to be fed into the test, one tuple per iteration
+<a name="61"/>   61:     %% Tuple format: { [] = folder_blacklist, input_data, correct_output }
+<a name="62"/>   62:     Data = [
+<a name="63"/>   63:         {
+<a name="64"/>   64:             [
+<a name="65"/>   65:              {&lt;&lt;&quot;Calendar&quot;&gt;&gt;, &lt;&lt;&quot;Calendar/&quot;&gt;&gt;},
+<a name="66"/>   66:              {&lt;&lt;&quot;Calendar/Personal Calendar&quot;&gt;&gt;, &lt;&lt;&quot;Calendar/Personal Calendar/&quot;&gt;&gt;},
+<a name="67"/>   67:              {&lt;&lt;&quot;Configuration&quot;&gt;&gt;, &lt;&lt;&quot;Configuration/&quot;&gt;&gt;},
+<a name="68"/>   68:              {&lt;&lt;&quot;Contacts&quot;&gt;&gt;, &lt;&lt;&quot;Contacts/&quot;&gt;&gt;},
+<a name="69"/>   69:              {&lt;&lt;&quot;Contacts/Personal Contacts&quot;&gt;&gt;, &lt;&lt;&quot;Contacts/Personal Contacts/&quot;&gt;&gt;},
+<a name="70"/>   70:              {&lt;&lt;&quot;Files&quot;&gt;&gt;, &lt;&lt;&quot;Files/&quot;&gt;&gt;},
+<a name="71"/>   71:              {&lt;&lt;&quot;Journal&quot;&gt;&gt;, &lt;&lt;&quot;Journal/&quot;&gt;&gt;},
+<a name="72"/>   72:              {&lt;&lt;&quot;Notes&quot;&gt;&gt;, &lt;&lt;&quot;Notes/&quot;&gt;&gt;},
+<a name="73"/>   73:              {&lt;&lt;&quot;Tasks&quot;&gt;&gt;, &lt;&lt;&quot;Tasks/&quot;&gt;&gt;}
+<a name="74"/>   74:             ],
+<a name="75"/>   75:             &lt;&lt;&quot;* LIST (\\Noinferiors \\Subscribed) \&quot;/\&quot; INBOX\r\n* LIST (\\Subscribed) \&quot;/\&quot; Archive\r\n* LIST (\\Subscribed \\HasChildren) \&quot;/\&quot; Calendar\r\n* LIST (\\Subscribed) \&quot;/\&quot; \&quot;Calendar/Personal Calendar\&quot;\r\n* LIST (\\Subscribed) \&quot;/\&quot; Configuration\r\n* LIST (\\Subscribed \\HasChildren) \&quot;/\&quot; Contacts\r\n* LIST (\\Subscribed) \&quot;/\&quot; \&quot;Contacts/Personal Contacts\&quot;\r\n* LIST (\\Subscribed) \&quot;/\&quot; Drafts\r\n* LIST (\\Subscribed) \&quot;/\&quot; Files\r\n* LIST (\\Subscribed) \&quot;/\&quot; Journal\r\n* LIST (\\Subscribed) \&quot;/\&quot; Notes\r\n* LIST (\\Subscribed) \&quot;/\&quot; Sent\r\n* LIST (\\Subscribed) \&quot;/\&quot; Spam\r\n* LIST (\\Subscribed) \&quot;/\&quot; Tasks\r\n* LIST (\\Subscribed) \&quot;/\&quot; Trash\r\n7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;,
+<a name="76"/>   76:             &lt;&lt;&quot;* LIST (\\Noinferiors \\Subscribed) \&quot;/\&quot; INBOX\r\n* LIST (\\Subscribed) \&quot;/\&quot; Archive\r\n* LIST (\\Subscribed) \&quot;/\&quot; Drafts\r\n* LIST (\\Subscribed) \&quot;/\&quot; Sent\r\n* LIST (\\Subscribed) \&quot;/\&quot; Spam\r\n* LIST (\\Subscribed) \&quot;/\&quot; Trash\r\n7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="77"/>   77:         }
+<a name="78"/>   78:     ],
+<a name="79"/>   79: 
+<a name="80"/>   80:     %% setup boilerplate
+<a name="81"/>   81:     Config = {},
+<a name="82"/>   82:     State = kolab_guam_rule_filter_groupware:new(Config),
+<a name="83"/>   83:     ServerConfig = kolab_guam_sup:default_imap_server_config(),
+<a name="84"/>   84:     { ok, ImapSession } = eimap:start_link(ServerConfig),
+<a name="85"/>   85: 
+<a name="86"/>   86:     %% create the rule, ready for testing
+<a name="87"/>   87:     ClientData = &lt;&lt;&quot;7 list (subscribed) \&quot;\&quot; \&quot;*\&quot; return (special-use)&quot;&gt;&gt;,
+<a name="88"/>   88:     Split = eimap_utils:split_command_into_components(ClientData),
+<a name="89"/>   89:     { _, ReadyState } = kolab_guam_rule_filter_groupware:apply_to_client_message(ImapSession, ClientData, Split, State),
+<a name="90"/>   90: 
+<a name="91"/>   91:     %% run the dataset through the rule
+<a name="kolab_guam_rule_filter_groupware_responsefiltering_test-last_expr"/><a name="92"/>   92: <b>    lists:foreach</b>(fun({ Blacklist, Input, Filtered }) -&gt;
+<a name="93"/>   93:                         BlacklistState = ReadyState#state{ blacklist = Blacklist },
+<a name="94"/>   94:                         { Filtered, _NewState } = kolab_guam_rule_filter_groupware:apply_to_server_message(ImapSession, Input, BlacklistState) end,
+<a name="95"/>   95:                   Data).
+<a name="96"/>   96: 
+<a name="kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test-1"/><a name="97"/>   97: <b>kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test</b>(_TestConfig) -&gt;
+<a name="98"/>   98:     %% Data to be fed into the test, one tuple per iteration
+<a name="99"/>   99:     %% Tuple format: { [] = folder_blacklist, [] = input_data_packets, correct_output }
+<a name="100"/>  100:     Data = [
+<a name="101"/>  101:         {
+<a name="102"/>  102:             [
+<a name="103"/>  103:              {&lt;&lt;&quot;Calendar&quot;&gt;&gt;, &lt;&lt;&quot;Calendar/&quot;&gt;&gt;},
+<a name="104"/>  104:              {&lt;&lt;&quot;Calendar/Personal Calendar&quot;&gt;&gt;, &lt;&lt;&quot;Calendar/Personal Calendar/&quot;&gt;&gt;},
+<a name="105"/>  105:              {&lt;&lt;&quot;Configuration&quot;&gt;&gt;, &lt;&lt;&quot;Configuration/&quot;&gt;&gt;},
+<a name="106"/>  106:              {&lt;&lt;&quot;Contacts&quot;&gt;&gt;, &lt;&lt;&quot;Contacts/&quot;&gt;&gt;},
+<a name="107"/>  107:              {&lt;&lt;&quot;Contacts/Personal Contacts&quot;&gt;&gt;, &lt;&lt;&quot;Contacts/Personal Contacts/&quot;&gt;&gt;},
+<a name="108"/>  108:              {&lt;&lt;&quot;Files&quot;&gt;&gt;, &lt;&lt;&quot;Files/&quot;&gt;&gt;},
+<a name="109"/>  109:              {&lt;&lt;&quot;Journal&quot;&gt;&gt;, &lt;&lt;&quot;Journal/&quot;&gt;&gt;},
+<a name="110"/>  110:              {&lt;&lt;&quot;Notes&quot;&gt;&gt;, &lt;&lt;&quot;Notes/&quot;&gt;&gt;},
+<a name="111"/>  111:              {&lt;&lt;&quot;Tasks&quot;&gt;&gt;, &lt;&lt;&quot;Tasks/&quot;&gt;&gt;}
+<a name="112"/>  112:             ],
+<a name="113"/>  113:             [
+<a name="114"/>  114:                 &lt;&lt;&quot;* LIST (\\Noinferiors \\Subscribed) \&quot;/\&quot; INBOX\r\n* LIST (\\Subscribed) \&quot;/\&quot; Archive\r\n* LIST (\\Subscribed \\HasChildren) \&quot;/\&quot; Calendar\r\n* LIST (\\Subscribed) \&quot;/\&quot; \&quot;Calendar/Personal Calendar\&quot;\r\n* LIST (\\Subscribed) \&quot;/\&quot; Configuration\r\n* LIST (\\Subscribed \\HasChildren) \&quot;/\&quot; Contacts\r\n* LIST (\\Subscribed) \&quot;/\&quot; \&quot;Contacts/Personal Contacts\&quot;\r\n* LIST (\\Subscribed) \&quot;/\&quot; Drafts\r\n* LIST (\\Subscribed) \&quot;/\&quot; Files\r\n* LIST (\\Subscribed) \&quot;/\&quot; Journal\r\n* LIST (\\Subscribed)&quot;&gt;&gt;,
+<a name="115"/>  115:                 &lt;&lt;&quot; \&quot;/\&quot; Notes\r\n* LIST (\\Subscribed) \&quot;/\&quot; Sent\r\n* LIST (\\Subscribed) \&quot;/\&quot; Spam\r\n* LIST (\\Subscribed) \&quot;/\&quot; Tasks\r\n* LIST (\\Subscribed) \&quot;/\&quot; Trash\r\n7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="116"/>  116:             ],
+<a name="117"/>  117:             &lt;&lt;&quot;* LIST (\\Noinferiors \\Subscribed) \&quot;/\&quot; INBOX\r\n* LIST (\\Subscribed) \&quot;/\&quot; Archive\r\n* LIST (\\Subscribed) \&quot;/\&quot; Drafts\r\n* LIST (\\Subscribed) \&quot;/\&quot; Sent\r\n* LIST (\\Subscribed) \&quot;/\&quot; Spam\r\n* LIST (\\Subscribed) \&quot;/\&quot; Trash\r\n7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="118"/>  118:         },
+<a name="119"/>  119:         %Filter complete packet
+<a name="120"/>  120:         {
+<a name="121"/>  121:             [
+<a name="122"/>  122:              {&lt;&lt;&quot;Calendar&quot;&gt;&gt;, &lt;&lt;&quot;Calendar/&quot;&gt;&gt;}
+<a name="123"/>  123:             ],
+<a name="124"/>  124:             [
+<a name="125"/>  125:                 &lt;&lt;&quot;* LIST (\\Subscribed \\HasChildren) \&quot;/\&quot; Calendar\r\n&quot;&gt;&gt;,
+<a name="126"/>  126:                 &lt;&lt;&quot;7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="127"/>  127:             ],
+<a name="128"/>  128:             &lt;&lt;&quot;7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="129"/>  129:         },
+<a name="130"/>  130:         %Test folder names with square brackes
+<a name="131"/>  131:         {
+<a name="132"/>  132:             [
+<a name="133"/>  133:              {&lt;&lt;&quot;[Calendar]&quot;&gt;&gt;,&lt;&lt;&quot;[Calendar]/&quot;&gt;&gt;}
+<a name="134"/>  134:             ],
+<a name="135"/>  135:             [
+<a name="136"/>  136:                 &lt;&lt;&quot;* LSUB () \&quot;.\&quot; INBOX\r\n* LSUB () \&quot;.\&quot; \&quot;[Stuff].Sent Mail.Sent\&quot;\r\n* LSUB () \&quot;.\&quot; [Calendar]\r\nwgku OK Lsub completed (0.001 + 0.000 secs).\r\n&quot;&gt;&gt;
+<a name="137"/>  137:             ],
+<a name="138"/>  138:             &lt;&lt;&quot;* LSUB () \&quot;.\&quot; INBOX\r\n* LSUB () \&quot;.\&quot; \&quot;[Stuff].Sent Mail.Sent\&quot;\r\nwgku OK Lsub completed (0.001 + 0.000 secs).\r\n&quot;&gt;&gt;
+<a name="139"/>  139:         },
+<a name="140"/>  140:         %Split CR and LF
+<a name="141"/>  141:         {
+<a name="142"/>  142:             [
+<a name="143"/>  143:              {&lt;&lt;&quot;Calendar&quot;&gt;&gt;, &lt;&lt;&quot;Calendar/&quot;&gt;&gt;}
+<a name="144"/>  144:             ],
+<a name="145"/>  145:             [
+<a name="146"/>  146:                 &lt;&lt;&quot;* LIST (\\Noinferiors \\Subscribed) \&quot;/\&quot; INBOX\r&quot;&gt;&gt;,
+<a name="147"/>  147:                 &lt;&lt;&quot;\n* LIST (\\Subscribed \\HasChildren) \&quot;/\&quot; Calendar\r&quot;&gt;&gt;,
+<a name="148"/>  148:                 &lt;&lt;&quot;\n7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="149"/>  149:             ],
+<a name="150"/>  150:             &lt;&lt;&quot;* LIST (\\Noinferiors \\Subscribed) \&quot;/\&quot; INBOX\r\n7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="151"/>  151:         },
+<a name="152"/>  152:         %Numeric folders
+<a name="153"/>  153:         {
+<a name="154"/>  154:             [
+<a name="155"/>  155:             ],
+<a name="156"/>  156:             [
+<a name="157"/>  157:                 &lt;&lt;&quot;* LIST () \&quot;/\&quot; 2017\r\n&quot;&gt;&gt;,
+<a name="158"/>  158:                 &lt;&lt;&quot;7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="159"/>  159: 
+<a name="160"/>  160:             ],
+<a name="161"/>  161:             &lt;&lt;&quot;* LIST () \&quot;/\&quot; 2017\r\n7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="162"/>  162:         },
+<a name="163"/>  163:         %LIST-EXTENDED + LIST-STATUS response (as used by evolution)
+<a name="164"/>  164:         {
+<a name="165"/>  165:             [
+<a name="166"/>  166:              {&lt;&lt;&quot;Calendar&quot;&gt;&gt;, &lt;&lt;&quot;Calendar/&quot;&gt;&gt;},
+<a name="167"/>  167:              {&lt;&lt;&quot;Calendar/Calendar2/&quot;&gt;&gt;, &lt;&lt;&quot;Calendar/Calendar2/&quot;&gt;&gt;}
+<a name="168"/>  168:             ],
+<a name="169"/>  169:             [
+<a name="170"/>  170:                 &lt;&lt;&quot;* LIST (\\Noinferiors \\Subscribed) \&quot;/\&quot; INBOX\r\n&quot;&gt;&gt;,
+<a name="171"/>  171:                 &lt;&lt;&quot;* STATUS \&quot;INBOX\&quot; (MESSAGES 17 UNSEEN 16)\r\n&quot;&gt;&gt;,
+<a name="172"/>  172:                 &lt;&lt;&quot;* LIST (\\Subscribed \\HasChildren) \&quot;/\&quot; Calendar (CHILDINFO (\&quot;SUBSCRIBED\&quot;))\r\n&quot;&gt;&gt;,
+<a name="173"/>  173:                 &lt;&lt;&quot;* STATUS \&quot;Calendar\&quot; (MESSAGES 17 UNSEEN 16)\r\n&quot;&gt;&gt;,
+<a name="174"/>  174:                 &lt;&lt;&quot;* LIST (\\Subscribed \\HasNoChildren) \&quot;/\&quot; Calendar/Calendar2\r\n&quot;&gt;&gt;,
+<a name="175"/>  175:                 &lt;&lt;&quot;* STATUS \&quot;Calendar/Calendar2\&quot; (MESSAGES 17 UNSEEN 16)\r\n&quot;&gt;&gt;,
+<a name="176"/>  176:                 &lt;&lt;&quot;7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="177"/>  177:             ],
+<a name="178"/>  178:             &lt;&lt;&quot;* LIST (\\Noinferiors \\Subscribed) \&quot;/\&quot; INBOX\r\n* STATUS \&quot;INBOX\&quot; (MESSAGES 17 UNSEEN 16)\r\n7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="179"/>  179:         },
+<a name="180"/>  180:         %String literals
+<a name="181"/>  181:         %FIXME Filtering on string literals is broken, it will attempt to filter on {8}Calendar
+<a name="182"/>  182:         %It doesn't currently matter though, because there's no literals in folder names (not normally anyways)
+<a name="183"/>  183:         {
+<a name="184"/>  184:             [
+<a name="185"/>  185:              %{&lt;&lt;&quot;Calendar&quot;&gt;&gt;, &lt;&lt;&quot;Calendar/&quot;&gt;&gt;}
+<a name="186"/>  186:             ],
+<a name="187"/>  187:             [
+<a name="188"/>  188:                 %&lt;&lt;&quot;* LIST (\Subscribed) \&quot;/\&quot; {8}Calendar\r\n&quot;&gt;&gt;,
+<a name="189"/>  189:                 &lt;&lt;&quot;* LIST (\Subscribed) \&quot;/\&quot; {6}\r\n&quot;&gt;&gt;,
+<a name="190"/>  190:                 &lt;&lt;&quot;Folder\r\n&quot;&gt;&gt;
+<a name="191"/>  191:             ],
+<a name="192"/>  192:             &lt;&lt;&quot;* LIST (\Subscribed) \&quot;/\&quot; {6}\r\nFolder\r\n&quot;&gt;&gt;
+<a name="193"/>  193:         }
+<a name="194"/>  194:     ],
+<a name="195"/>  195:     %% setup boilerplate
+<a name="196"/>  196:     Config = {},
+<a name="197"/>  197:     State = kolab_guam_rule_filter_groupware:new(Config),
+<a name="198"/>  198:     ServerConfig = kolab_guam_sup:default_imap_server_config(),
+<a name="199"/>  199:     { ok, ImapSession } = eimap:start_link(ServerConfig),
+<a name="200"/>  200: 
+<a name="201"/>  201:     %% create the rule, ready for testing
+<a name="202"/>  202:     ClientData = &lt;&lt;&quot;7 list (subscribed) \&quot;\&quot; \&quot;*\&quot; return (special-use)&quot;&gt;&gt;,
+<a name="203"/>  203:     Split = eimap_utils:split_command_into_components(ClientData),
+<a name="204"/>  204:     { _, ReadyState } = kolab_guam_rule_filter_groupware:apply_to_client_message(ImapSession, ClientData, Split, State),
+<a name="205"/>  205: 
+<a name="206"/>  206:     %% run the dataset through the rule
+<a name="kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test-last_expr"/><a name="207"/>  207: <b>    lists:foreach</b>(fun({ Blacklist, Input, Filtered }) -&gt;
+<a name="208"/>  208:                           BlacklistState = ReadyState#state{ blacklist = Blacklist },
+<a name="209"/>  209:                           Filtered = filter_groupware_packets(ImapSession, BlacklistState, Input, &lt;&lt;&gt;&gt;) end,
+<a name="210"/>  210:                   Data).
+<a name="211"/>  211: 
+<a name="filter_groupware_packets-4"/><a name="212"/>  212: <b>filter_groupware_packets</b>(_ImapSession, _ReadyState, [], Buffer) -&gt; Buffer;
+<a name="213"/>  213: <b>filter_groupware_packets</b>(ImapSession, ReadyState, [Input|More], Buffer) -&gt;
+<a name="214"/>  214:     { Processed, State } = kolab_guam_rule_filter_groupware:apply_to_server_message(ImapSession, Input, ReadyState),
+<a name="filter_groupware_packets-last_expr"/><a name="215"/>  215: <b>    filter_groupware_packets</b>(ImapSession, State, More, &lt;&lt;Buffer/binary, Processed/binary&gt;&gt;).
+<a name="216"/>  216: 
+<a name="kolab_guam_rule_audit_test-1"/><a name="217"/>  217: <b>kolab_guam_rule_audit_test</b>(_TestConfig) -&gt;
+<a name="218"/>  218:     %% Data to be fed into the test, one tuple per iteration
+<a name="219"/>  219:     %% Tuple format: { client_data, server_data, LoginAttemptSucceeded }
+<a name="220"/>  220:     Data = [
+<a name="221"/>  221:         {
+<a name="222"/>  222:             &lt;&lt;&quot;a001 LOGIN SMITH SESAME&quot;&gt;&gt;,
+<a name="223"/>  223:             &lt;&lt;&quot;a001 OK LOGIN completed&quot;&gt;&gt;,
+<a name="224"/>  224:             true
+<a name="225"/>  225:         },
+<a name="226"/>  226:         {
+<a name="227"/>  227:             &lt;&lt;&quot;a001 LOGIN SMITH SESAME&quot;&gt;&gt;,
+<a name="228"/>  228:             &lt;&lt;&quot;a001 NO LOGIN completed&quot;&gt;&gt;,
+<a name="229"/>  229:             false
+<a name="230"/>  230:         },
+<a name="231"/>  231:         {
+<a name="232"/>  232:             &lt;&lt;&quot;a001 LOGIN SMITH SESAME&quot;&gt;&gt;,
+<a name="233"/>  233:             &lt;&lt;&quot;a001 BAD LOGIN completed&quot;&gt;&gt;,
+<a name="234"/>  234:             false
+<a name="235"/>  235:         }
+<a name="236"/>  236:     ],
+<a name="237"/>  237: 
+<a name="238"/>  238:     %% setup boilerplate
+<a name="239"/>  239:     Config = {},
+<a name="240"/>  240:     State = kolab_guam_rule_audit:new(Config),
+<a name="241"/>  241:     ServerConfig = kolab_guam_sup:default_imap_server_config(),
+<a name="242"/>  242:     { ok, ImapSession } = eimap:start_link(ServerConfig),
+<a name="243"/>  243: 
+<a name="244"/>  244:     %% run the dataset through the rule
+<a name="245"/>  245:     lists:foreach(fun({ ClientData, ServerData, LoginAttemptSucceeded }) -&gt;
+<a name="246"/>  246:                         Split = eimap_utils:split_command_into_components(ClientData),
+<a name="247"/>  247:                         { _, ReadyState } = kolab_guam_rule_audit:apply_to_client_message(ImapSession, ClientData, Split, State),
+<a name="248"/>  248:                         { _Filtered, _NewState } = kolab_guam_rule_filter_groupware:apply_to_server_message(ImapSession, ServerData, ReadyState) end,
+<a name="249"/>  249:                   Data),
+<a name="kolab_guam_rule_audit_test-last_expr"/><a name="250"/>  250:     true = false.
+</pre>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/kolab_guam_session_suite.src.html Added

@@ -0,0 +1,383 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
+
+<html>
+<head>
+<meta http-equiv="Content-Type" content="text/html;charset=utf-8"/></meta>
+<title>/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_session_SUITE.erl</title>
+</head>
+
+<body bgcolor="white" text="black" link="blue" vlink="purple" alink="red">
+<pre>
+<a name="1"/>    1: <i>%% Copyright 2015 Kolab Systems AG (http://www.kolabsys.com)</i>
+<a name="2"/>    2: <i>%%</i>
+<a name="3"/>    3: <i>%% Christian Mollekopf (Kolab Systems) &lt;mollekopf@kolabsystems.com&gt;</i>
+<a name="4"/>    4: <i>%%</i>
+<a name="5"/>    5: <i>%% This program is free software: you can redistribute it and/or modify</i>
+<a name="6"/>    6: <i>%% it under the terms of the GNU General Public License as published by</i>
+<a name="7"/>    7: <i>%% the Free Software Foundation, either version 3 of the License, or</i>
+<a name="8"/>    8: <i>%% (at your option) any later version.</i>
+<a name="9"/>    9: <i>%%</i>
+<a name="10"/>   10: <i>%% This program is distributed in the hope that it will be useful,</i>
+<a name="11"/>   11: <i>%% but WITHOUT ANY WARRANTY; without even the implied warranty of</i>
+<a name="12"/>   12: <i>%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the</i>
+<a name="13"/>   13: <i>%% GNU General Public License for more details.</i>
+<a name="14"/>   14: <i>%%</i>
+<a name="15"/>   15: <i>%% You should have received a copy of the GNU General Public License</i>
+<a name="16"/>   16: <i>%% along with this program.  If not, see &lt;http://www.gnu.org/licenses/&gt;.</i>
+<a name="17"/>   17: 
+<a name="18"/>   18: <b>-module</b>(kolab_guam_session_SUITE).
+<a name="19"/>   19: 
+<a name="20"/>   20: <i>% easier than exporting by name</i>
+<a name="21"/>   21: <b>-compile</b>(export_all).
+<a name="22"/>   22: 
+<a name="23"/>   23: <i>% required for common_test to work</i>
+<a name="24"/>   24: <b>-include_lib</b>(&quot;common_test/include/ct.hrl&quot;).
+<a name="25"/>   25: <b>-include</b>(&quot;../src/kolab_guam_session.hrl&quot;).
+<a name="26"/>   26: 
+<a name="27"/>   27: 
+<a name="28"/>   28: <i>%%%%%%%%%%%%%%%%%%%%%%%%%%%</i>
+<a name="29"/>   29: <i>%% common test callbacks %%</i>
+<a name="30"/>   30: <i>%%%%%%%%%%%%%%%%%%%%%%%%%%%</i>
+<a name="31"/>   31: 
+<a name="32"/>   32: <i>% Specify a list of all unit test functions</i>
+<a name="all-0"/><a name="all-last_expr"/><a name="33"/>   33: <b>all</b>() -&gt; [
+<a name="34"/>   34:           kolab_guam_session_test_client,
+<a name="35"/>   35:           kolab_guam_session_test_server,
+<a name="36"/>   36:           kolab_guam_session_test_client_benchmark
+<a name="37"/>   37:          ].
+<a name="38"/>   38: 
+<a name="39"/>   39: <i>% required, but can just return Config. this is a suite level setup function.</i>
+<a name="init_per_suite-1"/><a name="40"/>   40: <b>init_per_suite</b>(Config) -&gt;
+<a name="init_per_suite-last_expr"/><a name="41"/>   41:         Config.
+<a name="42"/>   42: 
+<a name="43"/>   43: <i>% required, but can just return Config. this is a suite level tear down function.</i>
+<a name="end_per_suite-1"/><a name="44"/>   44: <b>end_per_suite</b>(Config) -&gt;
+<a name="end_per_suite-last_expr"/><a name="45"/>   45:         Config.
+<a name="46"/>   46: 
+<a name="47"/>   47: <i>% optional, can do function level setup for all functions,</i>
+<a name="48"/>   48: <i>% or for individual functions by matching on TestCase.</i>
+<a name="init_per_testcase-2"/><a name="49"/>   49: <b>init_per_testcase</b>(_TestCase, Config) -&gt;
+<a name="init_per_testcase-last_expr"/><a name="50"/>   50:         Config.
+<a name="51"/>   51: 
+<a name="52"/>   52: <i>% optional, can do function level tear down for all functions,</i>
+<a name="53"/>   53: <i>% or for individual functions by matching on TestCase.</i>
+<a name="end_per_testcase-2"/><a name="54"/>   54: <b>end_per_testcase</b>(_TestCase, Config) -&gt;
+<a name="end_per_testcase-last_expr"/><a name="55"/>   55:         Config.
+<a name="56"/>   56: 
+<a name="57"/>   57: 
+<a name="kolab_guam_session_test_client-1"/><a name="58"/>   58: <b>kolab_guam_session_test_client</b>(_TestConfig) -&gt;
+<a name="59"/>   59:     %% setup boilerplate
+<a name="60"/>   60:     ServerConfig = kolab_guam_sup:default_imap_server_config(),
+<a name="61"/>   61:     { ok, ImapSession } = eimap:start_link(ServerConfig),
+<a name="62"/>   62:     { ok, Socket } = gen_tcp:listen(9964, [ { reuseaddr, true }, {active, false}, inet6 ]),
+<a name="63"/>   63: 
+<a name="64"/>   64:     lager:start(),
+<a name="65"/>   65:     lager:set_loglevel(lager_console_backend, debug),
+<a name="66"/>   66: 
+<a name="67"/>   67:     ActiveRules = [{ kolab_guam_rule_filter_groupware, kolab_guam_rule_filter_groupware:new({}) }],
+<a name="68"/>   68: 
+<a name="69"/>   69:     State = #state{
+<a name="70"/>   70:       socket = Socket,
+<a name="71"/>   71:       server_config = ServerConfig,
+<a name="72"/>   72:       imap_session = ImapSession
+<a name="73"/>   73:     },
+<a name="74"/>   74: 
+<a name="75"/>   75:     %handle_info
+<a name="76"/>   76:     {noreply, #state{
+<a name="77"/>   77:       server_config = ServerConfig,
+<a name="78"/>   78:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="79"/>   79:       current_command_split = undefined,
+<a name="80"/>   80:       command_split_reset_trigger = [] %FIXME ?
+<a name="81"/>   81:      }} = kolab_guam_session:handle_info({tcp, Socket, &lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\ny3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;}, State#state{ rules_deciding = [] }),
+<a name="82"/>   82: 
+<a name="83"/>   83:     % Run without rules
+<a name="84"/>   84:     {&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\ny3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;, #state{
+<a name="85"/>   85:       server_config = ServerConfig,
+<a name="86"/>   86:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="87"/>   87:       current_command_split = undefined,
+<a name="88"/>   88:       command_split_reset_trigger = [] %FIXME ?
+<a name="89"/>   89:      }} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\ny3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;, State#state{ rules_deciding = [] }),
+<a name="90"/>   90: 
+<a name="91"/>   91: 
+<a name="92"/>   92:     % Activate filtering
+<a name="93"/>   93:     {&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\n&quot;&gt;&gt;, #state{
+<a name="94"/>   94:       server_config = ServerConfig,
+<a name="95"/>   95:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="96"/>   96:       current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;ID&quot;&gt;&gt;,&lt;&lt;&quot;(\&quot;name\&quot; \&quot;Test\&quot;)&quot;&gt;&gt;},
+<a name="97"/>   97:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="98"/>   98:       rules_deciding = [],
+<a name="99"/>   99:       rules_active = [{kolab_guam_rule_filter_groupware, _}]
+<a name="100"/>  100:      }} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\n&quot;&gt;&gt;, State#state{ rules_deciding = ActiveRules }),
+<a name="101"/>  101: 
+<a name="102"/>  102: 
+<a name="103"/>  103:     % Append
+<a name="104"/>  104:     {&lt;&lt;&quot;y1 APPEND INBOX {30+}\r\n0123&quot;&gt;&gt;, #state{
+<a name="105"/>  105:       server_config = ServerConfig,
+<a name="106"/>  106:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="107"/>  107:       current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;APPEND&quot;&gt;&gt;,&lt;&lt;&quot;INBOX {30+}&quot;&gt;&gt;},
+<a name="108"/>  108:       command_split_reset_trigger = reset_for_next_client_command
+<a name="109"/>  109:      } = IntermediateState4} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;y1 APPEND INBOX {30+}\r\n0123&quot;&gt;&gt;, State#state{ rules_deciding = ActiveRules }),
+<a name="110"/>  110: 
+<a name="111"/>  111:     {&lt;&lt;&quot;456789&quot;&gt;&gt;, #state{
+<a name="112"/>  112:       server_config = ServerConfig,
+<a name="113"/>  113:       buffered_client_data = &lt;&lt;&gt;&gt;, %This ensures we aren't buffering during the continuation
+<a name="114"/>  114:       current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;APPEND&quot;&gt;&gt;,&lt;&lt;&quot;INBOX {30+}&quot;&gt;&gt;},
+<a name="115"/>  115:       command_split_reset_trigger = reset_for_next_client_command
+<a name="116"/>  116:      } = IntermediateState5} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;456789&quot;&gt;&gt;, IntermediateState4),
+<a name="117"/>  117: 
+<a name="118"/>  118:     {&lt;&lt;&quot;0123456789012345678&quot;&gt;&gt;, #state{
+<a name="119"/>  119:       server_config = ServerConfig,
+<a name="120"/>  120:       buffered_client_data = &lt;&lt;&gt;&gt;, %This ensures we aren't buffering during the continuation
+<a name="121"/>  121:       current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;APPEND&quot;&gt;&gt;,&lt;&lt;&quot;INBOX {30+}&quot;&gt;&gt;},
+<a name="122"/>  122:       command_split_reset_trigger = reset_for_next_client_command
+<a name="123"/>  123:      } = IntermediateState6} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;0123456789012345678&quot;&gt;&gt;, IntermediateState5),
+<a name="124"/>  124: 
+<a name="125"/>  125:     {&lt;&lt;&quot;9\r\ny2 ENABLE QRESYNC\r\n&quot;&gt;&gt;, #state{
+<a name="126"/>  126:       server_config = ServerConfig,
+<a name="127"/>  127:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="128"/>  128:       current_command_split = {&lt;&lt;&quot;y2&quot;&gt;&gt;,&lt;&lt;&quot;ENABLE&quot;&gt;&gt;,&lt;&lt;&quot;QRESYNC&quot;&gt;&gt;},
+<a name="129"/>  129:       command_split_reset_trigger = reset_for_next_client_command
+<a name="130"/>  130:      }} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;9\r\ny2 ENABLE QRESYNC\r\n&quot;&gt;&gt;, IntermediateState6),
+<a name="131"/>  131: 
+<a name="132"/>  132:     % Append2
+<a name="133"/>  133:     {&lt;&lt;&quot;y1 APPEND INBOX {36+}\r\n0123&quot;&gt;&gt;, #state{
+<a name="134"/>  134:       server_config = ServerConfig,
+<a name="135"/>  135:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="136"/>  136:       current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;APPEND&quot;&gt;&gt;,&lt;&lt;&quot;INBOX {36+}&quot;&gt;&gt;},
+<a name="137"/>  137:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="138"/>  138:       continuation_bytes = 32
+<a name="139"/>  139:      } = IntermediateState7} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;y1 APPEND INBOX {36+}\r\n0123&quot;&gt;&gt;, State#state{ rules_deciding = ActiveRules }),
+<a name="140"/>  140: 
+<a name="141"/>  141:     {&lt;&lt;&quot;456789\r\n0123456789\r\n0123456789&quot;&gt;&gt;, #state{
+<a name="142"/>  142:       server_config = ServerConfig,
+<a name="143"/>  143:       buffered_client_data = &lt;&lt;&gt;&gt;, %This ensures we aren't buffering during the continuation
+<a name="144"/>  144:       current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;APPEND&quot;&gt;&gt;,&lt;&lt;&quot;INBOX {36+}&quot;&gt;&gt;},
+<a name="145"/>  145:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="146"/>  146:       continuation_bytes = 2
+<a name="147"/>  147:      } = IntermediateState8} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;456789\r\n0123456789\r\n0123456789&quot;&gt;&gt;, IntermediateState7),
+<a name="148"/>  148: 
+<a name="149"/>  149:     {&lt;&lt;&quot;\r\n&quot;&gt;&gt;, #state{
+<a name="150"/>  150:       server_config = ServerConfig,
+<a name="151"/>  151:       buffered_client_data = &lt;&lt;&gt;&gt;, %This ensures we aren't buffering during the continuation
+<a name="152"/>  152:       current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;APPEND&quot;&gt;&gt;,&lt;&lt;&quot;INBOX {36+}&quot;&gt;&gt;},
+<a name="153"/>  153:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="154"/>  154:       continuation_bytes = 0
+<a name="155"/>  155:      }} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;\r\n&quot;&gt;&gt;, IntermediateState8),
+<a name="156"/>  156: 
+<a name="157"/>  157: 
+<a name="158"/>  158:     % Don't activate filtering
+<a name="159"/>  159:     {&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test/KOLAB\&quot;)\r\n&quot;&gt;&gt;, #state{
+<a name="160"/>  160:       server_config = ServerConfig,
+<a name="161"/>  161:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="162"/>  162:       current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;ID&quot;&gt;&gt;,&lt;&lt;&quot;(\&quot;name\&quot; \&quot;Test/KOLAB\&quot;)&quot;&gt;&gt;},
+<a name="163"/>  163:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="164"/>  164:       rules_deciding = [],
+<a name="165"/>  165:       rules_active = []
+<a name="166"/>  166:      }} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test/KOLAB\&quot;)\r\n&quot;&gt;&gt;, State#state{ rules_deciding = ActiveRules }),
+<a name="167"/>  167: 
+<a name="168"/>  168: 
+<a name="169"/>  169:     % Lone tag in a packet. Can/Could happen with iPhone apparently. (See commit 89f9dc93757c68032ed17f42838858bdfaefa408)
+<a name="170"/>  170:     {&lt;&lt;&gt;&gt;, #state{ buffered_client_data = &lt;&lt;&quot;y1&quot;&gt;&gt;, rules_active = [] } = IntermediateState1} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;y1&quot;&gt;&gt;, State#state{ rules_deciding = ActiveRules }),
+<a name="171"/>  171:     {&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\n&quot;&gt;&gt;, #state{
+<a name="172"/>  172:       server_config = ServerConfig,
+<a name="173"/>  173:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="174"/>  174:       current_command_split = {&lt;&lt;&quot;y2&quot;&gt;&gt;,&lt;&lt;&quot;ENABLE&quot;&gt;&gt;,&lt;&lt;&quot;QRESYNC&quot;&gt;&gt;},
+<a name="175"/>  175:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="176"/>  176:       rules_deciding = [],
+<a name="177"/>  177:       rules_active = [{kolab_guam_rule_filter_groupware, _}]
+<a name="178"/>  178:      }} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot; ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\n&quot;&gt;&gt;, IntermediateState1),
+<a name="179"/>  179: 
+<a name="180"/>  180: 
+<a name="181"/>  181:     % Lone tag in a packet, but with a \r\n before. See guam-0.9.2-stalling-client-buffer-and-split-command-handling.patch (This triggers the odd List buffering case)
+<a name="182"/>  182:     {&lt;&lt;&quot;\r\n&quot;&gt;&gt;, #state{ buffered_client_data = &lt;&lt;&quot;y1 &quot;&gt;&gt;, rules_active = [] } = IntermediateState2} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;\r\ny1 &quot;&gt;&gt;, State#state{ rules_deciding = ActiveRules }),
+<a name="183"/>  183:     {&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\n&quot;&gt;&gt;, #state{
+<a name="184"/>  184:       server_config = ServerConfig,
+<a name="185"/>  185:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="186"/>  186:       current_command_split = {&lt;&lt;&quot;y2&quot;&gt;&gt;,&lt;&lt;&quot;ENABLE&quot;&gt;&gt;,&lt;&lt;&quot;QRESYNC&quot;&gt;&gt;},
+<a name="187"/>  187:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="188"/>  188:       rules_deciding = [],
+<a name="189"/>  189:       rules_active = [{kolab_guam_rule_filter_groupware, _}]
+<a name="190"/>  190:      }} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\n&quot;&gt;&gt;, IntermediateState2),
+<a name="191"/>  191: 
+<a name="192"/>  192: 
+<a name="193"/>  193:     % Empty line (should be considered a complete command and should not be buffered)
+<a name="194"/>  194:     {&lt;&lt;&quot;\r\n&quot;&gt;&gt;, #state{ buffered_client_data = &lt;&lt;&gt;&gt;, rules_active = [] } = IntermediateState3} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;\r\n&quot;&gt;&gt;, State#state{ rules_deciding = ActiveRules }),
+<a name="195"/>  195:     {&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\n&quot;&gt;&gt;, #state{
+<a name="196"/>  196:       server_config = ServerConfig,
+<a name="197"/>  197:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="198"/>  198:       current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;ID&quot;&gt;&gt;,&lt;&lt;&quot;(\&quot;name\&quot; \&quot;Test\&quot;)&quot;&gt;&gt;},
+<a name="199"/>  199:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="200"/>  200:       rules_deciding = [],
+<a name="201"/>  201:       rules_active = [{kolab_guam_rule_filter_groupware, _}]
+<a name="202"/>  202:      }} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\n&quot;&gt;&gt;, IntermediateState3),
+<a name="203"/>  203: 
+<a name="204"/>  204: 
+<a name="205"/>  205:     % Activate with multi-line packet
+<a name="206"/>  206:     {&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\ny3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;, #state{
+<a name="207"/>  207:       server_config = ServerConfig,
+<a name="208"/>  208:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="209"/>  209:       current_command_split = {&lt;&lt;&quot;y3&quot;&gt;&gt;,&lt;&lt;&quot;LIST&quot;&gt;&gt;,&lt;&lt;&quot;\&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))&quot;&gt;&gt;},
+<a name="210"/>  210:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="211"/>  211:       rules_deciding = [],
+<a name="212"/>  212:       % Make sure that we have processed y3 in here (and don't stop processing at y1)
+<a name="213"/>  213:       rules_active = [{kolab_guam_rule_filter_groupware, {state,undefined,&lt;&lt;&quot;y3&quot;&gt;&gt;,true,&lt;&lt;&gt;&gt;,[&lt;&lt;&quot;LIST&quot;&gt;&gt;,&lt;&lt;&quot;list&quot;&gt;&gt;,&lt;&lt;&quot;XLIST&quot;&gt;&gt;,&lt;&lt;&quot;xlist&quot;&gt;&gt;,&lt;&lt;&quot;LSUB&quot;&gt;&gt;,&lt;&lt;&quot;lsub&quot;&gt;&gt;]}}]
+<a name="214"/>  214:       % rules_active = [{kolab_guam_rule_filter_groupware, _}]
+<a name="215"/>  215:      }} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\ny3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;, State#state{ rules_deciding = ActiveRules }),
+<a name="216"/>  216: 
+<a name="217"/>  217: 
+<a name="218"/>  218:     % Test various packet splits
+<a name="219"/>  219:     PacketsSplits = [
+<a name="220"/>  220:         [&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\n&quot;&gt;&gt;, &lt;&lt;&quot;y2 ENABLE QRESYNC\r\n&quot;&gt;&gt;, &lt;&lt;&quot;y3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;],
+<a name="221"/>  221:         [&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\ny3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;],
+<a name="222"/>  222:         [&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)&quot;&gt;&gt;, &lt;&lt;&quot;\r\ny2&quot;&gt;&gt;, &lt;&lt;&quot; ENABLE QRESYNC\r\ny3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;],
+<a name="223"/>  223:         [&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)&quot;&gt;&gt;, &lt;&lt;&quot;\r\n&quot;&gt;&gt;, &lt;&lt;&quot;y2 ENABLE QRESYNC\r\ny3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;],
+<a name="224"/>  224:         [&lt;&lt;&quot;y1&quot;&gt;&gt;, &lt;&lt;&quot; &quot;&gt;&gt;, &lt;&lt;&quot;ID&quot;&gt;&gt;, &lt;&lt;&quot; (\&quot;name\&quot; \&quot;Test\&quot;)\r\n&quot;&gt;&gt;, &lt;&lt;&quot;y2 ENABLE QRESYNC\r\ny3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;]
+<a name="225"/>  225:     ],
+<a name="226"/>  226: 
+<a name="227"/>  227:      lists:foldl(fun(Packets, _) -&gt;
+<a name="228"/>  228:                     try_packets(Packets, Socket, ServerConfig, State#state{ rules_deciding = ActiveRules })
+<a name="229"/>  229:                 end,
+<a name="230"/>  230:                 undefined,
+<a name="231"/>  231:                 PacketsSplits),
+<a name="232"/>  232: 
+<a name="233"/>  233: 
+<a name="kolab_guam_session_test_client-last_expr"/><a name="234"/>  234: <b>    lager:info</b>(&quot;Done&quot;).
+<a name="235"/>  235: 
+<a name="236"/>  236: 
+<a name="try_packets-4"/><a name="237"/>  237: <b>try_packets</b>(Packets, Socket, ServerConfig, State) -&gt;
+<a name="238"/>  238:     #state{
+<a name="239"/>  239:       server_config = ServerConfig,
+<a name="240"/>  240:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="241"/>  241:       current_command_split = {&lt;&lt;&quot;y3&quot;&gt;&gt;,&lt;&lt;&quot;LIST&quot;&gt;&gt;,&lt;&lt;&quot;\&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))&quot;&gt;&gt;},
+<a name="242"/>  242:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="243"/>  243:       rules_deciding = [],
+<a name="244"/>  244:       % Make sure that we have processed y3 in here (and don't stop processing at y1)
+<a name="245"/>  245:       rules_active = [{kolab_guam_rule_filter_groupware, {state,undefined,&lt;&lt;&quot;y3&quot;&gt;&gt;,true,&lt;&lt;&gt;&gt;,[&lt;&lt;&quot;LIST&quot;&gt;&gt;,&lt;&lt;&quot;list&quot;&gt;&gt;,&lt;&lt;&quot;XLIST&quot;&gt;&gt;,&lt;&lt;&quot;xlist&quot;&gt;&gt;,&lt;&lt;&quot;LSUB&quot;&gt;&gt;,&lt;&lt;&quot;lsub&quot;&gt;&gt;]}}]
+<a name="try_packets-last_expr"/><a name="246"/>  246: <b>     } = lists:foldl</b>(fun(Packet, _State) -&gt;
+<a name="247"/>  247:                         {_, NewState} = kolab_guam_session:handle_info({tcp, Socket, Packet}, _State),
+<a name="248"/>  248:                         NewState
+<a name="249"/>  249:                     end,
+<a name="250"/>  250:                     State,
+<a name="251"/>  251:                     Packets).
+<a name="252"/>  252: 
+<a name="253"/>  253: 
+<a name="kolab_guam_session_test_server-1"/><a name="254"/>  254: <b>kolab_guam_session_test_server</b>(_TestConfig) -&gt;
+<a name="255"/>  255:     %% setup boilerplate
+<a name="256"/>  256:     % gen_tcp:connect
+<a name="257"/>  257:     ServerConfig = kolab_guam_sup:default_imap_server_config(),
+<a name="258"/>  258:     { ok, ImapSession } = eimap:start_link(ServerConfig),
+<a name="259"/>  259:     { ok, Socket } = gen_tcp:listen(9964, [ { reuseaddr, true }, {active, false}, inet6 ]),
+<a name="260"/>  260: 
+<a name="261"/>  261:     lager:start(),
+<a name="262"/>  262:     lager:set_loglevel(lager_console_backend, debug),
+<a name="263"/>  263: 
+<a name="264"/>  264:     ActiveRules = [{ kolab_guam_rule_filter_groupware, kolab_guam_rule_filter_groupware:new({}) }],
+<a name="265"/>  265: 
+<a name="266"/>  266:     State = #state{
+<a name="267"/>  267:       socket = Socket,
+<a name="268"/>  268:       server_config = ServerConfig,
+<a name="269"/>  269:       imap_session = ImapSession
+<a name="270"/>  270:     },
+<a name="271"/>  271: 
+<a name="272"/>  272: 
+<a name="273"/>  273:     % This should trigger a metadata request
+<a name="274"/>  274:     {noreply, #state{
+<a name="275"/>  275:       server_config = ServerConfig,
+<a name="276"/>  276:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="277"/>  277:       % current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;ID&quot;&gt;&gt;,&lt;&lt;&quot;(\&quot;name\&quot; \&quot;Test\&quot;)&quot;&gt;&gt;},
+<a name="278"/>  278:       current_command_split = {&lt;&lt;&quot;y3&quot;&gt;&gt;,&lt;&lt;&quot;LIST&quot;&gt;&gt;,&lt;&lt;&quot;\&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))&quot;&gt;&gt;},
+<a name="279"/>  279:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="280"/>  280:       rules_deciding = [],
+<a name="281"/>  281:       rules_active = [{kolab_guam_rule_filter_groupware, _}]
+<a name="282"/>  282:     } = IntermediateState1} = kolab_guam_session:handle_info({tcp, Socket, &lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\ny3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;}, State#state{ rules_deciding = ActiveRules }),
+<a name="283"/>  283: 
+<a name="284"/>  284: 
+<a name="285"/>  285:     {noreply, #state{
+<a name="286"/>  286:       server_config = ServerConfig,
+<a name="287"/>  287:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="288"/>  288:       % current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;ID&quot;&gt;&gt;,&lt;&lt;&quot;(\&quot;name\&quot; \&quot;Test\&quot;)&quot;&gt;&gt;},
+<a name="289"/>  289:       current_command_split = undefined,
+<a name="290"/>  290:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="291"/>  291:       rules_deciding = [],
+<a name="292"/>  292:       rules_active = [{kolab_guam_rule_filter_groupware, _}]
+<a name="293"/>  293:     } = IntermediateState2} = kolab_guam_session:handle_info({imap_server_response, &lt;&lt;&quot;* ID (\&quot;name\&quot; \&quot;Cyrus IMAPD\&quot;)\n\ry1 OK Completed\r\n&quot;&gt;&gt;}, IntermediateState1),
+<a name="294"/>  294: 
+<a name="295"/>  295:     {noreply, #state{
+<a name="296"/>  296:       server_config = ServerConfig,
+<a name="297"/>  297:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="298"/>  298:       % current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;ID&quot;&gt;&gt;,&lt;&lt;&quot;(\&quot;name\&quot; \&quot;Test\&quot;)&quot;&gt;&gt;},
+<a name="299"/>  299:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="300"/>  300:       rules_deciding = [],
+<a name="301"/>  301:       rules_active = [{kolab_guam_rule_filter_groupware, _}]
+<a name="302"/>  302:     }} = kolab_guam_session:handle_info({imap_server_response, &lt;&lt;&quot;* METADATA INBOX (/shared/vendor/kolab/folder-type \&quot;mail\&quot;)\r\n&quot;&gt;&gt;}, IntermediateState2),
+<a name="303"/>  303: 
+<a name="304"/>  304: <i>% &lt;&lt;&quot;* METADATA Archive (/shared/vendor/kolab/folder-type NIL)\r\n&quot;&gt;</i>
+<a name="305"/>  305: <i>% &lt;&lt;&quot;* METADATA Calendar (/shared/vendor/kolab/folder-type \&quot;event\&quot;)\r\n&quot;&gt;</i>
+<a name="306"/>  306: <i>% &lt;&lt;&quot;EG0001 OK Completed\r\n&quot;&gt;&gt;</i>
+<a name="307"/>  307: 
+<a name="kolab_guam_session_test_server-last_expr"/><a name="308"/>  308: <b>    lager:info</b>(&quot;Done&quot;).
+<a name="309"/>  309: 
+<a name="310"/>  310: 
+<a name="311"/>  311: 
+<a name="kolab_guam_session_test_client_benchmark-1"/><a name="312"/>  312: <b>kolab_guam_session_test_client_benchmark</b>(_TestConfig) -&gt;
+<a name="313"/>  313:     %% setup boilerplate
+<a name="314"/>  314:     ServerConfig = kolab_guam_sup:default_imap_server_config(),
+<a name="315"/>  315:     { ok, ImapSession } = eimap:start_link(ServerConfig),
+<a name="316"/>  316:     { ok, Socket } = gen_tcp:listen(9964, [ { reuseaddr, true }, {active, false}, inet6 ]),
+<a name="317"/>  317: 
+<a name="318"/>  318:     lager:start(),
+<a name="319"/>  319:     lager:set_loglevel(lager_console_backend, debug),
+<a name="320"/>  320: 
+<a name="321"/>  321:     ActiveRules = [{ kolab_guam_rule_filter_groupware, kolab_guam_rule_filter_groupware:new({}) }],
+<a name="322"/>  322: 
+<a name="323"/>  323:     State = #state{
+<a name="324"/>  324:       socket = Socket,
+<a name="325"/>  325:       server_config = ServerConfig,
+<a name="326"/>  326:       imap_session = ImapSession
+<a name="327"/>  327:     },
+<a name="328"/>  328: 
+<a name="329"/>  329:     Count = 70,
+<a name="330"/>  330:     % We used to have a factor of 10 in runtime between \r\n (causing line splits), and just \n (not causing line splits)
+<a name="331"/>  331:     Payload = &lt;&lt;&quot;0123456789\r\n&quot;&gt;&gt;,
+<a name="332"/>  332:     Data = list_to_binary(lists:duplicate(Count, Payload)),
+<a name="333"/>  333:     BinaryCount = list_to_binary(integer_to_list(Count * size(Payload) + 36)),
+<a name="334"/>  334:     ExpectedCommandSplit = {&lt;&lt;&quot;y1&quot;&gt;&gt;, &lt;&lt;&quot;APPEND&quot;&gt;&gt;, list_to_binary([&lt;&lt;&quot;INBOX {&quot;&gt;&gt;, BinaryCount, &lt;&lt;&quot;}&quot;&gt;&gt;])},
+<a name="335"/>  335: 
+<a name="336"/>  336:     S = os:timestamp(),
+<a name="337"/>  337: 
+<a name="338"/>  338:     % Append
+<a name="339"/>  339:     {noreply, #state{
+<a name="340"/>  340:       server_config = ServerConfig,
+<a name="341"/>  341:       current_command_split = ExpectedCommandSplit,
+<a name="342"/>  342:       command_split_reset_trigger = reset_for_next_client_command
+<a name="343"/>  343:      } = IntermediateState4} = kolab_guam_session:handle_info({tcp, Socket, list_to_binary([&lt;&lt;&quot;y1 APPEND INBOX {&quot;&gt;&gt;, BinaryCount, &lt;&lt;&quot;}\r\n0123&quot;&gt;&gt;])}, State#state{ rules_deciding = ActiveRules }),
+<a name="344"/>  344: 
+<a name="345"/>  345:     {noreply, #state{
+<a name="346"/>  346:       server_config = ServerConfig,
+<a name="347"/>  347:       current_command_split = ExpectedCommandSplit,
+<a name="348"/>  348:       command_split_reset_trigger = reset_for_next_client_command
+<a name="349"/>  349:      } = IntermediateState5} = kolab_guam_session:handle_info({tcp, Socket, &lt;&lt;&quot;456789\r\n0123456789\r\n0123456789&quot;&gt;&gt;}, IntermediateState4),
+<a name="350"/>  350: 
+<a name="351"/>  351: 
+<a name="352"/>  352:     {noreply, #state{
+<a name="353"/>  353:       server_config = ServerConfig,
+<a name="354"/>  354:       current_command_split = ExpectedCommandSplit,
+<a name="355"/>  355:       command_split_reset_trigger = reset_for_next_client_command
+<a name="356"/>  356:      } = IntermediateState6} = kolab_guam_session:handle_info({tcp, Socket, &lt;&lt;&quot;\r\n&quot;&gt;&gt;}, IntermediateState5),
+<a name="357"/>  357: 
+<a name="358"/>  358:     {noreply, #state{
+<a name="359"/>  359:       server_config = ServerConfig,
+<a name="360"/>  360:       current_command_split = ExpectedCommandSplit,
+<a name="361"/>  361:       command_split_reset_trigger = reset_for_next_client_command
+<a name="362"/>  362:      }} = kolab_guam_session:handle_info({tcp, Socket, Data}, IntermediateState6),
+<a name="363"/>  363: 
+<a name="364"/>  364: 
+<a name="365"/>  365:     E = os:timestamp(),
+<a name="366"/>  366:     X = timer:now_diff(E,S),
+<a name="367"/>  367:     lager:info(&quot;Runtime: ~p usecs&quot;, [X]),
+<a name="368"/>  368: 
+<a name="369"/>  369: 
+<a name="kolab_guam_session_test_client_benchmark-last_expr"/><a name="370"/>  370: <b>    lager:info</b>(&quot;Done&quot;).
+</pre>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/kolab_guam_sup_suite.src.html Added

@@ -0,0 +1,91 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
+
+<html>
+<head>
+<meta http-equiv="Content-Type" content="text/html;charset=utf-8"/></meta>
+<title>/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_sup_SUITE.erl</title>
+</head>
+
+<body bgcolor="white" text="black" link="blue" vlink="purple" alink="red">
+<pre>
+<a name="1"/>    1: <i>%% Copyright 2015 Kolab Systems AG (http://www.kolabsys.com)</i>
+<a name="2"/>    2: <i>%%</i>
+<a name="3"/>    3: <i>%% Aaron Seigo (Kolab Systems) &lt;seigo a kolabsys.com&gt;</i>
+<a name="4"/>    4: <i>%%</i>
+<a name="5"/>    5: <i>%% This program is free software: you can redistribute it and/or modify</i>
+<a name="6"/>    6: <i>%% it under the terms of the GNU General Public License as published by</i>
+<a name="7"/>    7: <i>%% the Free Software Foundation, either version 3 of the License, or</i>
+<a name="8"/>    8: <i>%% (at your option) any later version.</i>
+<a name="9"/>    9: <i>%%</i>
+<a name="10"/>   10: <i>%% This program is distributed in the hope that it will be useful,</i>
+<a name="11"/>   11: <i>%% but WITHOUT ANY WARRANTY; without even the implied warranty of</i>
+<a name="12"/>   12: <i>%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the</i>
+<a name="13"/>   13: <i>%% GNU General Public License for more details.</i>
+<a name="14"/>   14: <i>%%</i>
+<a name="15"/>   15: <i>%% You should have received a copy of the GNU General Public License</i>
+<a name="16"/>   16: <i>%% along with this program.  If not, see &lt;http://www.gnu.org/licenses/&gt;.</i>
+<a name="17"/>   17: 
+<a name="18"/>   18: <b>-module</b>(kolab_guam_sup_SUITE).
+<a name="19"/>   19: 
+<a name="20"/>   20: <i>% easier than exporting by name</i>
+<a name="21"/>   21: <b>-compile</b>(export_all).
+<a name="22"/>   22: 
+<a name="23"/>   23: <i>% required for common_test to work</i>
+<a name="24"/>   24: <b>-include_lib</b>(&quot;common_test/include/ct.hrl&quot;).
+<a name="25"/>   25: 
+<a name="26"/>   26: <i>%%%%%%%%%%%%%%%%%%%%%%%%%%%</i>
+<a name="27"/>   27: <i>%% common test callbacks %%</i>
+<a name="28"/>   28: <i>%%%%%%%%%%%%%%%%%%%%%%%%%%%</i>
+<a name="29"/>   29: 
+<a name="30"/>   30: <i>% Specify a list of all unit test functions</i>
+<a name="all-0"/><a name="all-last_expr"/><a name="31"/>   31: <b>all</b>() -&gt; [default_imap_server_config_test, imap_server_config_test].
+<a name="32"/>   32: 
+<a name="33"/>   33: <i>% required, but can just return Config. this is a suite level setup function.</i>
+<a name="init_per_suite-1"/><a name="34"/>   34: <b>init_per_suite</b>(Config) -&gt;
+<a name="35"/>   35:         application:set_env(kolab_guam, imap_servers, [
+<a name="36"/>   36:                 { default, [
+<a name="37"/>   37:                                 { host, &quot;192.168.56.102&quot; },
+<a name="38"/>   38:                                 { port, 994 },
+<a name="39"/>   39:                                 { tls, true }
+<a name="40"/>   40:                            ]
+<a name="41"/>   41:                 },
+<a name="42"/>   42:                 { test_default, [
+<a name="43"/>   43:                                 { host, &quot;192.168.56.101&quot; },
+<a name="44"/>   44:                                 { port, 993 },
+<a name="45"/>   45:                                 { tls, false }
+<a name="46"/>   46:                            ]
+<a name="47"/>   47:                 }
+<a name="48"/>   48:             ]
+<a name="49"/>   49:         ),
+<a name="init_per_suite-last_expr"/><a name="50"/>   50:         Config.
+<a name="51"/>   51: 
+<a name="52"/>   52: <i>% required, but can just return Config. this is a suite level tear down function.</i>
+<a name="end_per_suite-1"/><a name="53"/>   53: <b>end_per_suite</b>(Config) -&gt;
+<a name="end_per_suite-last_expr"/><a name="54"/>   54:         Config.
+<a name="55"/>   55: 
+<a name="56"/>   56: <i>% optional, can do function level setup for all functions,</i>
+<a name="57"/>   57: <i>% or for individual functions by matching on TestCase.</i>
+<a name="init_per_testcase-2"/><a name="58"/>   58: <b>init_per_testcase</b>(_TestCase, Config) -&gt;
+<a name="init_per_testcase-last_expr"/><a name="59"/>   59:         Config.
+<a name="60"/>   60: 
+<a name="61"/>   61: <i>% optional, can do function level tear down for all functions,</i>
+<a name="62"/>   62: <i>% or for individual functions by matching on TestCase.</i>
+<a name="end_per_testcase-2"/><a name="63"/>   63: <b>end_per_testcase</b>(_TestCase, Config) -&gt;
+<a name="end_per_testcase-last_expr"/><a name="64"/>   64:         Config.
+<a name="65"/>   65: 
+<a name="default_imap_server_config_test-1"/><a name="66"/>   66: <b>default_imap_server_config_test</b>(_TestConfig) -&gt;
+<a name="67"/>   67:     Expected = [ { host, &quot;192.168.56.102&quot; }, { port, 994 }, { tls, true } ],
+<a name="default_imap_server_config_test-last_expr"/><a name="68"/>   68: <b>    Expected = kolab_guam_sup:default_imap_server_config</b>().
+<a name="69"/>   69: 
+<a name="imap_server_config_test-1"/><a name="70"/>   70: <b>imap_server_config_test</b>(_TestConfig) -&gt;
+<a name="71"/>   71:     Configs = [
+<a name="72"/>   72:         {
+<a name="73"/>   73:             test_default,
+<a name="74"/>   74:             [ { host, &quot;192.168.56.101&quot; }, { port, 993 }, { tls, false } ]
+<a name="75"/>   75:         }
+<a name="76"/>   76:     ],
+<a name="imap_server_config_test-last_expr"/><a name="77"/>   77: <b>    lists:foreach</b>(fun({ Config, Record }) -&gt; Record = kolab_guam_sup:imap_server_config(Config) end, Configs).
+<a name="78"/>   78: 
+</pre>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/last_link.html Added

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/last_name Added

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45 Added

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/cover.html Added

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_rules_suite.end_per_suite.html Added

@@ -0,0 +1,69 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<title>Test kolab_guam_rules_SUITE:end_per_suite result</title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="../../ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="../../jquery-latest.js"></script>
+<script type="text/javascript" src="../../jquery.tablesorter.min.js"></script>
+</head>
+<body>
+
+<a name="top"></a><pre>
+=== Config function: <a href="kolab_guam_rules_suite.src.html#end_per_suite-1">kolab_guam_rules_SUITE:end_per_suite/1</a> (click for source code)
+
+=== Config value:
+
+    [{watchdog,&lt;0.333.0&gt;},
+     {tc_logfile,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_rules_suite.end_per_suite.html"},
+     {tc_group_properties,[]},
+     {tc_group_path,[]},
+     {data_dir,"/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_rules_SUITE_data/"},
+     {priv_dir,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private/"}]
+
+=== Current directory is "/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45"
+
+=== Started at 2021-05-18 09:53:45
+
+<br />
+<a name="end"></a>
+
+
+=== Ended at 2021-05-18 09:53:45
+=== successfully completed test case
+=== === Returned value: [{watchdog,&lt;0.348.0&gt;},
+                     {tc_group_result,
+                         [{ok,[{kolab_guam_rules_SUITE,
+                                   kolab_guam_rule_filter_groupware_responsefiltering_test},
+                               {kolab_guam_rules_SUITE,
+                                   kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test}]},
+                          {skipped,[]},
+                          {failed,
+                              [{kolab_guam_rules_SUITE,
+                                   kolab_guam_rule_audit_test}]}]},
+                     {tc_logfile,
+                         "/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_rules_suite.end_per_suite.html"},
+                     {tc_group_properties,[]},
+                     {tc_group_path,[]},
+                     {data_dir,
+                         "/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_rules_SUITE_data/"},
+                     {priv_dir,
+                         "/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private/"}]
+=== 
+=== Total execution time of group: 0.106s
+
+</pre>
+<center>
+<br /><hr /><p>
+<a href="../../../all_runs.html">Test run history
+</a>  |  <a href="../../../index.html">Top level test index
+</a>  |  <a href="../../../suite.log.latest.html">Latest test result</a>
+</p>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:45<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_rules_suite.init_per_suite.html Added

@@ -0,0 +1,53 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<title>Test kolab_guam_rules_SUITE:init_per_suite result</title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="../../ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="../../jquery-latest.js"></script>
+<script type="text/javascript" src="../../jquery.tablesorter.min.js"></script>
+</head>
+<body>
+
+<a name="top"></a><pre>
+=== Config function: <a href="kolab_guam_rules_suite.src.html#init_per_suite-1">kolab_guam_rules_SUITE:init_per_suite/1</a> (click for source code)
+
+=== Config value:
+
+    [{tc_logfile,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_rules_suite.init_per_suite.html"},
+     {tc_group_properties,[]},
+     {tc_group_path,[]},
+     {data_dir,"/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_rules_SUITE_data/"},
+     {priv_dir,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private/"}]
+
+=== Current directory is "/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45"
+
+=== Started at 2021-05-18 09:53:45
+
+<br />
+<a name="end"></a>
+
+
+=== Ended at 2021-05-18 09:53:45
+=== successfully completed test case
+=== === Returned value: [{watchdog,&lt;0.333.0&gt;},
+                     {tc_logfile,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_rules_suite.init_per_suite.html"},
+                     {tc_group_properties,[]},
+                     {tc_group_path,[]},
+                     {data_dir,"/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_rules_SUITE_data/"},
+                     {priv_dir,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private/"}]
+</pre>
+<center>
+<br /><hr /><p>
+<a href="../../../all_runs.html">Test run history
+</a>  |  <a href="../../../index.html">Top level test index
+</a>  |  <a href="../../../suite.log.latest.html">Latest test result</a>
+</p>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:45<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_rules_suite.kolab_guam_rule_audit_test.html Added

@@ -0,0 +1,68 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<title>Test kolab_guam_rules_SUITE:kolab_guam_rule_audit_test result</title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="../../ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="../../jquery-latest.js"></script>
+<script type="text/javascript" src="../../jquery.tablesorter.min.js"></script>
+</head>
+<body>
+
+<a name="top"></a><pre>
+=== Test case: <a href="kolab_guam_rules_suite.src.html#kolab_guam_rule_audit_test-1">kolab_guam_rules_SUITE:kolab_guam_rule_audit_test/1</a> (click for source code)
+
+=== Config value:
+
+    [{watchdog,&lt;0.333.0&gt;},
+     {tc_logfile,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_rules_suite.kolab_guam_rule_audit_test.html"},
+     {tc_group_properties,[]},
+     {tc_group_path,[]},
+     {data_dir,"/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_rules_SUITE_data/"},
+     {priv_dir,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private/"}]
+
+=== Current directory is "/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45"
+
+=== Started at 2021-05-18 09:53:45
+
+<br />
+Client sent: LOGIN SMITH SESAME true
+Client sent: LOGIN SMITH SESAME true
+Client sent: LOGIN SMITH SESAME true
+
+</pre>
+<div class="ct_error_notify"><pre><b>*** CT Error Notification 2021-05-18 09:53:45.355 ***</b>
+kolab_guam_rules_SUITE:kolab_guam_rule_audit_test failed on line 250
+Reason: {badmatch,false}
+
+<a href="#end">Full error description and stacktrace</a>
+</pre></div>
+<pre>
+<a name="end"></a>
+
+
+=== Ended at 2021-05-18 09:53:45
+=== Location: [{kolab_guam_rules_SUITE,kolab_guam_rule_audit_test,<a href="kolab_guam_rules_suite.src.html#250">250</a>},
+              {test_server,ts_tc,1784},
+              {test_server,run_test_case_eval1,1293},
+              {test_server,run_test_case_eval,1225}]
+=== === Reason: no match of right hand side value false
+  in function  kolab_guam_rules_SUITE:kolab_guam_rule_audit_test/1 (/home/mollekopf/src/guam/apps/kolab_guam/test/kolab_guam_rules_SUITE.erl, line 250)
+  in call from test_server:ts_tc/3 (test_server.erl, line 1784)
+  in call from test_server:run_test_case_eval1/6 (test_server.erl, line 1293)
+  in call from test_server:run_test_case_eval/9 (test_server.erl, line 1225)
+</pre>
+<center>
+<br /><hr /><p>
+<a href="../../../all_runs.html">Test run history
+</a>  |  <a href="../../../index.html">Top level test index
+</a>  |  <a href="../../../suite.log.latest.html">Latest test result</a>
+</p>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:45<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_rules_suite.kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test.html Added

@@ -0,0 +1,49 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<title>Test kolab_guam_rules_SUITE:kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test result</title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="../../ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="../../jquery-latest.js"></script>
+<script type="text/javascript" src="../../jquery.tablesorter.min.js"></script>
+</head>
+<body>
+
+<a name="top"></a><pre>
+=== Test case: <a href="kolab_guam_rules_suite.src.html#kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test-1">kolab_guam_rules_SUITE:kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test/1</a> (click for source code)
+
+=== Config value:
+
+    [{watchdog,&lt;0.333.0&gt;},
+     {tc_logfile,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_rules_suite.kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test.html"},
+     {tc_group_properties,[]},
+     {tc_group_path,[]},
+     {data_dir,"/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_rules_SUITE_data/"},
+     {priv_dir,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private/"}]
+
+=== Current directory is "/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45"
+
+=== Started at 2021-05-18 09:53:45
+
+<br />
+<a name="end"></a>
+
+
+=== Ended at 2021-05-18 09:53:45
+=== successfully completed test case
+=== === Returned value: ok
+</pre>
+<center>
+<br /><hr /><p>
+<a href="../../../all_runs.html">Test run history
+</a>  |  <a href="../../../index.html">Top level test index
+</a>  |  <a href="../../../suite.log.latest.html">Latest test result</a>
+</p>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:45<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_rules_suite.kolab_guam_rule_filter_groupware_responsefiltering_test.html Added

@@ -0,0 +1,49 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<title>Test kolab_guam_rules_SUITE:kolab_guam_rule_filter_groupware_responsefiltering_test result</title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="../../ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="../../jquery-latest.js"></script>
+<script type="text/javascript" src="../../jquery.tablesorter.min.js"></script>
+</head>
+<body>
+
+<a name="top"></a><pre>
+=== Test case: <a href="kolab_guam_rules_suite.src.html#kolab_guam_rule_filter_groupware_responsefiltering_test-1">kolab_guam_rules_SUITE:kolab_guam_rule_filter_groupware_responsefiltering_test/1</a> (click for source code)
+
+=== Config value:
+
+    [{watchdog,&lt;0.333.0&gt;},
+     {tc_logfile,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_rules_suite.kolab_guam_rule_filter_groupware_responsefiltering_test.html"},
+     {tc_group_properties,[]},
+     {tc_group_path,[]},
+     {data_dir,"/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_rules_SUITE_data/"},
+     {priv_dir,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private/"}]
+
+=== Current directory is "/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45"
+
+=== Started at 2021-05-18 09:53:45
+
+<br />
+<a name="end"></a>
+
+
+=== Ended at 2021-05-18 09:53:45
+=== successfully completed test case
+=== === Returned value: ok
+</pre>
+<center>
+<br /><hr /><p>
+<a href="../../../all_runs.html">Test run history
+</a>  |  <a href="../../../index.html">Top level test index
+</a>  |  <a href="../../../suite.log.latest.html">Latest test result</a>
+</p>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:45<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_rules_suite.src.html Added

@@ -0,0 +1,263 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
+
+<html>
+<head>
+<meta http-equiv="Content-Type" content="text/html;charset=utf-8"/></meta>
+<title>/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_rules_SUITE.erl</title>
+</head>
+
+<body bgcolor="white" text="black" link="blue" vlink="purple" alink="red">
+<pre>
+<a name="1"/>    1: <i>%% Copyright 2015 Kolab Systems AG (http://www.kolabsys.com)</i>
+<a name="2"/>    2: <i>%%</i>
+<a name="3"/>    3: <i>%% Aaron Seigo (Kolab Systems) &lt;seigo a kolabsys.com&gt;</i>
+<a name="4"/>    4: <i>%%</i>
+<a name="5"/>    5: <i>%% This program is free software: you can redistribute it and/or modify</i>
+<a name="6"/>    6: <i>%% it under the terms of the GNU General Public License as published by</i>
+<a name="7"/>    7: <i>%% the Free Software Foundation, either version 3 of the License, or</i>
+<a name="8"/>    8: <i>%% (at your option) any later version.</i>
+<a name="9"/>    9: <i>%%</i>
+<a name="10"/>   10: <i>%% This program is distributed in the hope that it will be useful,</i>
+<a name="11"/>   11: <i>%% but WITHOUT ANY WARRANTY; without even the implied warranty of</i>
+<a name="12"/>   12: <i>%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the</i>
+<a name="13"/>   13: <i>%% GNU General Public License for more details.</i>
+<a name="14"/>   14: <i>%%</i>
+<a name="15"/>   15: <i>%% You should have received a copy of the GNU General Public License</i>
+<a name="16"/>   16: <i>%% along with this program.  If not, see &lt;http://www.gnu.org/licenses/&gt;.</i>
+<a name="17"/>   17: 
+<a name="18"/>   18: <b>-module</b>(kolab_guam_rules_SUITE).
+<a name="19"/>   19: 
+<a name="20"/>   20: <i>% easier than exporting by name</i>
+<a name="21"/>   21: <b>-compile</b>(export_all).
+<a name="22"/>   22: 
+<a name="23"/>   23: <i>% required for common_test to work</i>
+<a name="24"/>   24: <b>-include_lib</b>(&quot;common_test/include/ct.hrl&quot;).
+<a name="25"/>   25: <b>-include</b>(&quot;../src/rules/kolab_guam_rule_filter_groupware.hrl&quot;).
+<a name="26"/>   26: <i>% -include(&quot;../src/rules/kolab_guam_rule_audit.hrl&quot;).</i>
+<a name="27"/>   27: 
+<a name="28"/>   28: <i>%%%%%%%%%%%%%%%%%%%%%%%%%%%</i>
+<a name="29"/>   29: <i>%% common test callbacks %%</i>
+<a name="30"/>   30: <i>%%%%%%%%%%%%%%%%%%%%%%%%%%%</i>
+<a name="31"/>   31: 
+<a name="32"/>   32: <i>% Specify a list of all unit test functions</i>
+<a name="all-0"/><a name="all-last_expr"/><a name="33"/>   33: <b>all</b>() -&gt; [
+<a name="34"/>   34:           kolab_guam_rule_filter_groupware_responsefiltering_test,
+<a name="35"/>   35:           kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test,
+<a name="36"/>   36:           kolab_guam_rule_audit_test
+<a name="37"/>   37:          ].
+<a name="38"/>   38: 
+<a name="39"/>   39: <i>% required, but can just return Config. this is a suite level setup function.</i>
+<a name="init_per_suite-1"/><a name="40"/>   40: <b>init_per_suite</b>(Config) -&gt;
+<a name="init_per_suite-last_expr"/><a name="41"/>   41:         Config.
+<a name="42"/>   42: 
+<a name="43"/>   43: <i>% required, but can just return Config. this is a suite level tear down function.</i>
+<a name="end_per_suite-1"/><a name="44"/>   44: <b>end_per_suite</b>(Config) -&gt;
+<a name="end_per_suite-last_expr"/><a name="45"/>   45:         Config.
+<a name="46"/>   46: 
+<a name="47"/>   47: <i>% optional, can do function level setup for all functions,</i>
+<a name="48"/>   48: <i>% or for individual functions by matching on TestCase.</i>
+<a name="init_per_testcase-2"/><a name="49"/>   49: <b>init_per_testcase</b>(_TestCase, Config) -&gt;
+<a name="init_per_testcase-last_expr"/><a name="50"/>   50:         Config.
+<a name="51"/>   51: 
+<a name="52"/>   52: <i>% optional, can do function level tear down for all functions,</i>
+<a name="53"/>   53: <i>% or for individual functions by matching on TestCase.</i>
+<a name="end_per_testcase-2"/><a name="54"/>   54: <b>end_per_testcase</b>(_TestCase, Config) -&gt;
+<a name="end_per_testcase-last_expr"/><a name="55"/>   55:         Config.
+<a name="56"/>   56: 
+<a name="57"/>   57: <i>% c(&quot;apps/kolab_guam/test/kolab_guam_sup_tests.erl&quot;). eunit:test(kolab_guam_sup_tests).</i>
+<a name="58"/>   58: 
+<a name="kolab_guam_rule_filter_groupware_responsefiltering_test-1"/><a name="59"/>   59: <b>kolab_guam_rule_filter_groupware_responsefiltering_test</b>(_TestConfig) -&gt;
+<a name="60"/>   60:     %% Data to be fed into the test, one tuple per iteration
+<a name="61"/>   61:     %% Tuple format: { [] = folder_blacklist, input_data, correct_output }
+<a name="62"/>   62:     Data = [
+<a name="63"/>   63:         {
+<a name="64"/>   64:             [
+<a name="65"/>   65:              {&lt;&lt;&quot;Calendar&quot;&gt;&gt;, &lt;&lt;&quot;Calendar/&quot;&gt;&gt;},
+<a name="66"/>   66:              {&lt;&lt;&quot;Calendar/Personal Calendar&quot;&gt;&gt;, &lt;&lt;&quot;Calendar/Personal Calendar/&quot;&gt;&gt;},
+<a name="67"/>   67:              {&lt;&lt;&quot;Configuration&quot;&gt;&gt;, &lt;&lt;&quot;Configuration/&quot;&gt;&gt;},
+<a name="68"/>   68:              {&lt;&lt;&quot;Contacts&quot;&gt;&gt;, &lt;&lt;&quot;Contacts/&quot;&gt;&gt;},
+<a name="69"/>   69:              {&lt;&lt;&quot;Contacts/Personal Contacts&quot;&gt;&gt;, &lt;&lt;&quot;Contacts/Personal Contacts/&quot;&gt;&gt;},
+<a name="70"/>   70:              {&lt;&lt;&quot;Files&quot;&gt;&gt;, &lt;&lt;&quot;Files/&quot;&gt;&gt;},
+<a name="71"/>   71:              {&lt;&lt;&quot;Journal&quot;&gt;&gt;, &lt;&lt;&quot;Journal/&quot;&gt;&gt;},
+<a name="72"/>   72:              {&lt;&lt;&quot;Notes&quot;&gt;&gt;, &lt;&lt;&quot;Notes/&quot;&gt;&gt;},
+<a name="73"/>   73:              {&lt;&lt;&quot;Tasks&quot;&gt;&gt;, &lt;&lt;&quot;Tasks/&quot;&gt;&gt;}
+<a name="74"/>   74:             ],
+<a name="75"/>   75:             &lt;&lt;&quot;* LIST (\\Noinferiors \\Subscribed) \&quot;/\&quot; INBOX\r\n* LIST (\\Subscribed) \&quot;/\&quot; Archive\r\n* LIST (\\Subscribed \\HasChildren) \&quot;/\&quot; Calendar\r\n* LIST (\\Subscribed) \&quot;/\&quot; \&quot;Calendar/Personal Calendar\&quot;\r\n* LIST (\\Subscribed) \&quot;/\&quot; Configuration\r\n* LIST (\\Subscribed \\HasChildren) \&quot;/\&quot; Contacts\r\n* LIST (\\Subscribed) \&quot;/\&quot; \&quot;Contacts/Personal Contacts\&quot;\r\n* LIST (\\Subscribed) \&quot;/\&quot; Drafts\r\n* LIST (\\Subscribed) \&quot;/\&quot; Files\r\n* LIST (\\Subscribed) \&quot;/\&quot; Journal\r\n* LIST (\\Subscribed) \&quot;/\&quot; Notes\r\n* LIST (\\Subscribed) \&quot;/\&quot; Sent\r\n* LIST (\\Subscribed) \&quot;/\&quot; Spam\r\n* LIST (\\Subscribed) \&quot;/\&quot; Tasks\r\n* LIST (\\Subscribed) \&quot;/\&quot; Trash\r\n7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;,
+<a name="76"/>   76:             &lt;&lt;&quot;* LIST (\\Noinferiors \\Subscribed) \&quot;/\&quot; INBOX\r\n* LIST (\\Subscribed) \&quot;/\&quot; Archive\r\n* LIST (\\Subscribed) \&quot;/\&quot; Drafts\r\n* LIST (\\Subscribed) \&quot;/\&quot; Sent\r\n* LIST (\\Subscribed) \&quot;/\&quot; Spam\r\n* LIST (\\Subscribed) \&quot;/\&quot; Trash\r\n7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="77"/>   77:         }
+<a name="78"/>   78:     ],
+<a name="79"/>   79: 
+<a name="80"/>   80:     %% setup boilerplate
+<a name="81"/>   81:     Config = {},
+<a name="82"/>   82:     State = kolab_guam_rule_filter_groupware:new(Config),
+<a name="83"/>   83:     ServerConfig = kolab_guam_sup:default_imap_server_config(),
+<a name="84"/>   84:     { ok, ImapSession } = eimap:start_link(ServerConfig),
+<a name="85"/>   85: 
+<a name="86"/>   86:     %% create the rule, ready for testing
+<a name="87"/>   87:     ClientData = &lt;&lt;&quot;7 list (subscribed) \&quot;\&quot; \&quot;*\&quot; return (special-use)&quot;&gt;&gt;,
+<a name="88"/>   88:     Split = eimap_utils:split_command_into_components(ClientData),
+<a name="89"/>   89:     { _, ReadyState } = kolab_guam_rule_filter_groupware:apply_to_client_message(ImapSession, ClientData, Split, State),
+<a name="90"/>   90: 
+<a name="91"/>   91:     %% run the dataset through the rule
+<a name="kolab_guam_rule_filter_groupware_responsefiltering_test-last_expr"/><a name="92"/>   92: <b>    lists:foreach</b>(fun({ Blacklist, Input, Filtered }) -&gt;
+<a name="93"/>   93:                         BlacklistState = ReadyState#state{ blacklist = Blacklist },
+<a name="94"/>   94:                         { Filtered, _NewState } = kolab_guam_rule_filter_groupware:apply_to_server_message(ImapSession, Input, BlacklistState) end,
+<a name="95"/>   95:                   Data).
+<a name="96"/>   96: 
+<a name="kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test-1"/><a name="97"/>   97: <b>kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test</b>(_TestConfig) -&gt;
+<a name="98"/>   98:     %% Data to be fed into the test, one tuple per iteration
+<a name="99"/>   99:     %% Tuple format: { [] = folder_blacklist, [] = input_data_packets, correct_output }
+<a name="100"/>  100:     Data = [
+<a name="101"/>  101:         {
+<a name="102"/>  102:             [
+<a name="103"/>  103:              {&lt;&lt;&quot;Calendar&quot;&gt;&gt;, &lt;&lt;&quot;Calendar/&quot;&gt;&gt;},
+<a name="104"/>  104:              {&lt;&lt;&quot;Calendar/Personal Calendar&quot;&gt;&gt;, &lt;&lt;&quot;Calendar/Personal Calendar/&quot;&gt;&gt;},
+<a name="105"/>  105:              {&lt;&lt;&quot;Configuration&quot;&gt;&gt;, &lt;&lt;&quot;Configuration/&quot;&gt;&gt;},
+<a name="106"/>  106:              {&lt;&lt;&quot;Contacts&quot;&gt;&gt;, &lt;&lt;&quot;Contacts/&quot;&gt;&gt;},
+<a name="107"/>  107:              {&lt;&lt;&quot;Contacts/Personal Contacts&quot;&gt;&gt;, &lt;&lt;&quot;Contacts/Personal Contacts/&quot;&gt;&gt;},
+<a name="108"/>  108:              {&lt;&lt;&quot;Files&quot;&gt;&gt;, &lt;&lt;&quot;Files/&quot;&gt;&gt;},
+<a name="109"/>  109:              {&lt;&lt;&quot;Journal&quot;&gt;&gt;, &lt;&lt;&quot;Journal/&quot;&gt;&gt;},
+<a name="110"/>  110:              {&lt;&lt;&quot;Notes&quot;&gt;&gt;, &lt;&lt;&quot;Notes/&quot;&gt;&gt;},
+<a name="111"/>  111:              {&lt;&lt;&quot;Tasks&quot;&gt;&gt;, &lt;&lt;&quot;Tasks/&quot;&gt;&gt;}
+<a name="112"/>  112:             ],
+<a name="113"/>  113:             [
+<a name="114"/>  114:                 &lt;&lt;&quot;* LIST (\\Noinferiors \\Subscribed) \&quot;/\&quot; INBOX\r\n* LIST (\\Subscribed) \&quot;/\&quot; Archive\r\n* LIST (\\Subscribed \\HasChildren) \&quot;/\&quot; Calendar\r\n* LIST (\\Subscribed) \&quot;/\&quot; \&quot;Calendar/Personal Calendar\&quot;\r\n* LIST (\\Subscribed) \&quot;/\&quot; Configuration\r\n* LIST (\\Subscribed \\HasChildren) \&quot;/\&quot; Contacts\r\n* LIST (\\Subscribed) \&quot;/\&quot; \&quot;Contacts/Personal Contacts\&quot;\r\n* LIST (\\Subscribed) \&quot;/\&quot; Drafts\r\n* LIST (\\Subscribed) \&quot;/\&quot; Files\r\n* LIST (\\Subscribed) \&quot;/\&quot; Journal\r\n* LIST (\\Subscribed)&quot;&gt;&gt;,
+<a name="115"/>  115:                 &lt;&lt;&quot; \&quot;/\&quot; Notes\r\n* LIST (\\Subscribed) \&quot;/\&quot; Sent\r\n* LIST (\\Subscribed) \&quot;/\&quot; Spam\r\n* LIST (\\Subscribed) \&quot;/\&quot; Tasks\r\n* LIST (\\Subscribed) \&quot;/\&quot; Trash\r\n7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="116"/>  116:             ],
+<a name="117"/>  117:             &lt;&lt;&quot;* LIST (\\Noinferiors \\Subscribed) \&quot;/\&quot; INBOX\r\n* LIST (\\Subscribed) \&quot;/\&quot; Archive\r\n* LIST (\\Subscribed) \&quot;/\&quot; Drafts\r\n* LIST (\\Subscribed) \&quot;/\&quot; Sent\r\n* LIST (\\Subscribed) \&quot;/\&quot; Spam\r\n* LIST (\\Subscribed) \&quot;/\&quot; Trash\r\n7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="118"/>  118:         },
+<a name="119"/>  119:         %Filter complete packet
+<a name="120"/>  120:         {
+<a name="121"/>  121:             [
+<a name="122"/>  122:              {&lt;&lt;&quot;Calendar&quot;&gt;&gt;, &lt;&lt;&quot;Calendar/&quot;&gt;&gt;}
+<a name="123"/>  123:             ],
+<a name="124"/>  124:             [
+<a name="125"/>  125:                 &lt;&lt;&quot;* LIST (\\Subscribed \\HasChildren) \&quot;/\&quot; Calendar\r\n&quot;&gt;&gt;,
+<a name="126"/>  126:                 &lt;&lt;&quot;7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="127"/>  127:             ],
+<a name="128"/>  128:             &lt;&lt;&quot;7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="129"/>  129:         },
+<a name="130"/>  130:         %Test folder names with square brackes
+<a name="131"/>  131:         {
+<a name="132"/>  132:             [
+<a name="133"/>  133:              {&lt;&lt;&quot;[Calendar]&quot;&gt;&gt;,&lt;&lt;&quot;[Calendar]/&quot;&gt;&gt;}
+<a name="134"/>  134:             ],
+<a name="135"/>  135:             [
+<a name="136"/>  136:                 &lt;&lt;&quot;* LSUB () \&quot;.\&quot; INBOX\r\n* LSUB () \&quot;.\&quot; \&quot;[Stuff].Sent Mail.Sent\&quot;\r\n* LSUB () \&quot;.\&quot; [Calendar]\r\nwgku OK Lsub completed (0.001 + 0.000 secs).\r\n&quot;&gt;&gt;
+<a name="137"/>  137:             ],
+<a name="138"/>  138:             &lt;&lt;&quot;* LSUB () \&quot;.\&quot; INBOX\r\n* LSUB () \&quot;.\&quot; \&quot;[Stuff].Sent Mail.Sent\&quot;\r\nwgku OK Lsub completed (0.001 + 0.000 secs).\r\n&quot;&gt;&gt;
+<a name="139"/>  139:         },
+<a name="140"/>  140:         %Split CR and LF
+<a name="141"/>  141:         {
+<a name="142"/>  142:             [
+<a name="143"/>  143:              {&lt;&lt;&quot;Calendar&quot;&gt;&gt;, &lt;&lt;&quot;Calendar/&quot;&gt;&gt;}
+<a name="144"/>  144:             ],
+<a name="145"/>  145:             [
+<a name="146"/>  146:                 &lt;&lt;&quot;* LIST (\\Noinferiors \\Subscribed) \&quot;/\&quot; INBOX\r&quot;&gt;&gt;,
+<a name="147"/>  147:                 &lt;&lt;&quot;\n* LIST (\\Subscribed \\HasChildren) \&quot;/\&quot; Calendar\r&quot;&gt;&gt;,
+<a name="148"/>  148:                 &lt;&lt;&quot;\n7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="149"/>  149:             ],
+<a name="150"/>  150:             &lt;&lt;&quot;* LIST (\\Noinferiors \\Subscribed) \&quot;/\&quot; INBOX\r\n7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="151"/>  151:         },
+<a name="152"/>  152:         %Numeric folders
+<a name="153"/>  153:         {
+<a name="154"/>  154:             [
+<a name="155"/>  155:             ],
+<a name="156"/>  156:             [
+<a name="157"/>  157:                 &lt;&lt;&quot;* LIST () \&quot;/\&quot; 2017\r\n&quot;&gt;&gt;,
+<a name="158"/>  158:                 &lt;&lt;&quot;7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="159"/>  159: 
+<a name="160"/>  160:             ],
+<a name="161"/>  161:             &lt;&lt;&quot;* LIST () \&quot;/\&quot; 2017\r\n7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="162"/>  162:         },
+<a name="163"/>  163:         %LIST-EXTENDED + LIST-STATUS response (as used by evolution)
+<a name="164"/>  164:         {
+<a name="165"/>  165:             [
+<a name="166"/>  166:              {&lt;&lt;&quot;Calendar&quot;&gt;&gt;, &lt;&lt;&quot;Calendar/&quot;&gt;&gt;},
+<a name="167"/>  167:              {&lt;&lt;&quot;Calendar/Calendar2/&quot;&gt;&gt;, &lt;&lt;&quot;Calendar/Calendar2/&quot;&gt;&gt;}
+<a name="168"/>  168:             ],
+<a name="169"/>  169:             [
+<a name="170"/>  170:                 &lt;&lt;&quot;* LIST (\\Noinferiors \\Subscribed) \&quot;/\&quot; INBOX\r\n&quot;&gt;&gt;,
+<a name="171"/>  171:                 &lt;&lt;&quot;* STATUS \&quot;INBOX\&quot; (MESSAGES 17 UNSEEN 16)\r\n&quot;&gt;&gt;,
+<a name="172"/>  172:                 &lt;&lt;&quot;* LIST (\\Subscribed \\HasChildren) \&quot;/\&quot; Calendar (CHILDINFO (\&quot;SUBSCRIBED\&quot;))\r\n&quot;&gt;&gt;,
+<a name="173"/>  173:                 &lt;&lt;&quot;* STATUS \&quot;Calendar\&quot; (MESSAGES 17 UNSEEN 16)\r\n&quot;&gt;&gt;,
+<a name="174"/>  174:                 &lt;&lt;&quot;* LIST (\\Subscribed \\HasNoChildren) \&quot;/\&quot; Calendar/Calendar2\r\n&quot;&gt;&gt;,
+<a name="175"/>  175:                 &lt;&lt;&quot;* STATUS \&quot;Calendar/Calendar2\&quot; (MESSAGES 17 UNSEEN 16)\r\n&quot;&gt;&gt;,
+<a name="176"/>  176:                 &lt;&lt;&quot;7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="177"/>  177:             ],
+<a name="178"/>  178:             &lt;&lt;&quot;* LIST (\\Noinferiors \\Subscribed) \&quot;/\&quot; INBOX\r\n* STATUS \&quot;INBOX\&quot; (MESSAGES 17 UNSEEN 16)\r\n7 OK Completed (0.000 secs 15 calls)\r\n&quot;&gt;&gt;
+<a name="179"/>  179:         },
+<a name="180"/>  180:         %String literals
+<a name="181"/>  181:         %FIXME Filtering on string literals is broken, it will attempt to filter on {8}Calendar
+<a name="182"/>  182:         %It doesn't currently matter though, because there's no literals in folder names (not normally anyways)
+<a name="183"/>  183:         {
+<a name="184"/>  184:             [
+<a name="185"/>  185:              %{&lt;&lt;&quot;Calendar&quot;&gt;&gt;, &lt;&lt;&quot;Calendar/&quot;&gt;&gt;}
+<a name="186"/>  186:             ],
+<a name="187"/>  187:             [
+<a name="188"/>  188:                 %&lt;&lt;&quot;* LIST (\Subscribed) \&quot;/\&quot; {8}Calendar\r\n&quot;&gt;&gt;,
+<a name="189"/>  189:                 &lt;&lt;&quot;* LIST (\Subscribed) \&quot;/\&quot; {6}\r\n&quot;&gt;&gt;,
+<a name="190"/>  190:                 &lt;&lt;&quot;Folder\r\n&quot;&gt;&gt;
+<a name="191"/>  191:             ],
+<a name="192"/>  192:             &lt;&lt;&quot;* LIST (\Subscribed) \&quot;/\&quot; {6}\r\nFolder\r\n&quot;&gt;&gt;
+<a name="193"/>  193:         }
+<a name="194"/>  194:     ],
+<a name="195"/>  195:     %% setup boilerplate
+<a name="196"/>  196:     Config = {},
+<a name="197"/>  197:     State = kolab_guam_rule_filter_groupware:new(Config),
+<a name="198"/>  198:     ServerConfig = kolab_guam_sup:default_imap_server_config(),
+<a name="199"/>  199:     { ok, ImapSession } = eimap:start_link(ServerConfig),
+<a name="200"/>  200: 
+<a name="201"/>  201:     %% create the rule, ready for testing
+<a name="202"/>  202:     ClientData = &lt;&lt;&quot;7 list (subscribed) \&quot;\&quot; \&quot;*\&quot; return (special-use)&quot;&gt;&gt;,
+<a name="203"/>  203:     Split = eimap_utils:split_command_into_components(ClientData),
+<a name="204"/>  204:     { _, ReadyState } = kolab_guam_rule_filter_groupware:apply_to_client_message(ImapSession, ClientData, Split, State),
+<a name="205"/>  205: 
+<a name="206"/>  206:     %% run the dataset through the rule
+<a name="kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test-last_expr"/><a name="207"/>  207: <b>    lists:foreach</b>(fun({ Blacklist, Input, Filtered }) -&gt;
+<a name="208"/>  208:                           BlacklistState = ReadyState#state{ blacklist = Blacklist },
+<a name="209"/>  209:                           Filtered = filter_groupware_packets(ImapSession, BlacklistState, Input, &lt;&lt;&gt;&gt;) end,
+<a name="210"/>  210:                   Data).
+<a name="211"/>  211: 
+<a name="filter_groupware_packets-4"/><a name="212"/>  212: <b>filter_groupware_packets</b>(_ImapSession, _ReadyState, [], Buffer) -&gt; Buffer;
+<a name="213"/>  213: <b>filter_groupware_packets</b>(ImapSession, ReadyState, [Input|More], Buffer) -&gt;
+<a name="214"/>  214:     { Processed, State } = kolab_guam_rule_filter_groupware:apply_to_server_message(ImapSession, Input, ReadyState),
+<a name="filter_groupware_packets-last_expr"/><a name="215"/>  215: <b>    filter_groupware_packets</b>(ImapSession, State, More, &lt;&lt;Buffer/binary, Processed/binary&gt;&gt;).
+<a name="216"/>  216: 
+<a name="kolab_guam_rule_audit_test-1"/><a name="217"/>  217: <b>kolab_guam_rule_audit_test</b>(_TestConfig) -&gt;
+<a name="218"/>  218:     %% Data to be fed into the test, one tuple per iteration
+<a name="219"/>  219:     %% Tuple format: { client_data, server_data, LoginAttemptSucceeded }
+<a name="220"/>  220:     Data = [
+<a name="221"/>  221:         {
+<a name="222"/>  222:             &lt;&lt;&quot;a001 LOGIN SMITH SESAME&quot;&gt;&gt;,
+<a name="223"/>  223:             &lt;&lt;&quot;a001 OK LOGIN completed&quot;&gt;&gt;,
+<a name="224"/>  224:             true
+<a name="225"/>  225:         },
+<a name="226"/>  226:         {
+<a name="227"/>  227:             &lt;&lt;&quot;a001 LOGIN SMITH SESAME&quot;&gt;&gt;,
+<a name="228"/>  228:             &lt;&lt;&quot;a001 NO LOGIN completed&quot;&gt;&gt;,
+<a name="229"/>  229:             false
+<a name="230"/>  230:         },
+<a name="231"/>  231:         {
+<a name="232"/>  232:             &lt;&lt;&quot;a001 LOGIN SMITH SESAME&quot;&gt;&gt;,
+<a name="233"/>  233:             &lt;&lt;&quot;a001 BAD LOGIN completed&quot;&gt;&gt;,
+<a name="234"/>  234:             false
+<a name="235"/>  235:         }
+<a name="236"/>  236:     ],
+<a name="237"/>  237: 
+<a name="238"/>  238:     %% setup boilerplate
+<a name="239"/>  239:     Config = {},
+<a name="240"/>  240:     State = kolab_guam_rule_audit:new(Config),
+<a name="241"/>  241:     ServerConfig = kolab_guam_sup:default_imap_server_config(),
+<a name="242"/>  242:     { ok, ImapSession } = eimap:start_link(ServerConfig),
+<a name="243"/>  243: 
+<a name="244"/>  244:     %% run the dataset through the rule
+<a name="245"/>  245:     lists:foreach(fun({ ClientData, ServerData, LoginAttemptSucceeded }) -&gt;
+<a name="246"/>  246:                         Split = eimap_utils:split_command_into_components(ClientData),
+<a name="247"/>  247:                         { _, ReadyState } = kolab_guam_rule_audit:apply_to_client_message(ImapSession, ClientData, Split, State),
+<a name="248"/>  248:                         { _Filtered, _NewState } = kolab_guam_rule_filter_groupware:apply_to_server_message(ImapSession, ServerData, ReadyState) end,
+<a name="249"/>  249:                   Data),
+<a name="kolab_guam_rule_audit_test-last_expr"/><a name="250"/>  250:     true = false.
+</pre>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_session_suite.end_per_suite.html Added

@@ -0,0 +1,69 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<title>Test kolab_guam_session_SUITE:end_per_suite result</title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="../../ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="../../jquery-latest.js"></script>
+<script type="text/javascript" src="../../jquery.tablesorter.min.js"></script>
+</head>
+<body>
+
+<a name="top"></a><pre>
+=== Config function: <a href="kolab_guam_session_suite.src.html#end_per_suite-1">kolab_guam_session_SUITE:end_per_suite/1</a> (click for source code)
+
+=== Config value:
+
+    [{watchdog,&lt;0.352.0&gt;},
+     {tc_logfile,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_session_suite.end_per_suite.html"},
+     {tc_group_properties,[]},
+     {tc_group_path,[]},
+     {data_dir,"/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_session_SUITE_data/"},
+     {priv_dir,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private/"}]
+
+=== Current directory is "/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45"
+
+=== Started at 2021-05-18 09:53:45
+
+<br />
+<a name="end"></a>
+
+
+=== Ended at 2021-05-18 09:53:45
+=== successfully completed test case
+=== === Returned value: [{watchdog,&lt;0.407.0&gt;},
+                     {tc_group_result,
+                         [{ok,[{kolab_guam_session_SUITE,
+                                   kolab_guam_session_test_client},
+                               {kolab_guam_session_SUITE,
+                                   kolab_guam_session_test_server},
+                               {kolab_guam_session_SUITE,
+                                   kolab_guam_session_test_client_benchmark}]},
+                          {skipped,[]},
+                          {failed,[]}]},
+                     {tc_logfile,
+                         "/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_session_suite.end_per_suite.html"},
+                     {tc_group_properties,[]},
+                     {tc_group_path,[]},
+                     {data_dir,
+                         "/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_session_SUITE_data/"},
+                     {priv_dir,
+                         "/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private/"}]
+=== 
+=== Total execution time of group: 0.183s
+
+</pre>
+<center>
+<br /><hr /><p>
+<a href="../../../all_runs.html">Test run history
+</a>  |  <a href="../../../index.html">Top level test index
+</a>  |  <a href="../../../suite.log.latest.html">Latest test result</a>
+</p>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:45<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_session_suite.init_per_suite.html Added

@@ -0,0 +1,53 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<title>Test kolab_guam_session_SUITE:init_per_suite result</title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="../../ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="../../jquery-latest.js"></script>
+<script type="text/javascript" src="../../jquery.tablesorter.min.js"></script>
+</head>
+<body>
+
+<a name="top"></a><pre>
+=== Config function: <a href="kolab_guam_session_suite.src.html#init_per_suite-1">kolab_guam_session_SUITE:init_per_suite/1</a> (click for source code)
+
+=== Config value:
+
+    [{tc_logfile,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_session_suite.init_per_suite.html"},
+     {tc_group_properties,[]},
+     {tc_group_path,[]},
+     {data_dir,"/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_session_SUITE_data/"},
+     {priv_dir,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private/"}]
+
+=== Current directory is "/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45"
+
+=== Started at 2021-05-18 09:53:45
+
+<br />
+<a name="end"></a>
+
+
+=== Ended at 2021-05-18 09:53:45
+=== successfully completed test case
+=== === Returned value: [{watchdog,&lt;0.352.0&gt;},
+                     {tc_logfile,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_session_suite.init_per_suite.html"},
+                     {tc_group_properties,[]},
+                     {tc_group_path,[]},
+                     {data_dir,"/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_session_SUITE_data/"},
+                     {priv_dir,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private/"}]
+</pre>
+<center>
+<br /><hr /><p>
+<a href="../../../all_runs.html">Test run history
+</a>  |  <a href="../../../index.html">Top level test index
+</a>  |  <a href="../../../suite.log.latest.html">Latest test result</a>
+</p>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:45<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_session_suite.kolab_guam_session_test_client.html Added

@@ -0,0 +1,56 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<title>Test kolab_guam_session_SUITE:kolab_guam_session_test_client result</title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="../../ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="../../jquery-latest.js"></script>
+<script type="text/javascript" src="../../jquery.tablesorter.min.js"></script>
+</head>
+<body>
+
+<a name="top"></a><pre>
+=== Test case: <a href="kolab_guam_session_suite.src.html#kolab_guam_session_test_client-1">kolab_guam_session_SUITE:kolab_guam_session_test_client/1</a> (click for source code)
+
+=== Config value:
+
+    [{watchdog,&lt;0.352.0&gt;},
+     {tc_logfile,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_session_suite.kolab_guam_session_test_client.html"},
+     {tc_group_properties,[]},
+     {tc_group_path,[]},
+     {data_dir,"/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_session_SUITE_data/"},
+     {priv_dir,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private/"}]
+
+=== Current directory is "/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45"
+
+=== Started at 2021-05-18 09:53:45
+
+<br />
+
+</pre>
+<div class="default"><pre><b>*** User 2021-05-18 09:53:45.515 ***</b>
+09:53:45.514 [info] Done
+
+</pre></div>
+<pre>
+<a name="end"></a>
+
+
+=== Ended at 2021-05-18 09:53:45
+=== successfully completed test case
+=== === Returned value: ok
+</pre>
+<center>
+<br /><hr /><p>
+<a href="../../../all_runs.html">Test run history
+</a>  |  <a href="../../../index.html">Top level test index
+</a>  |  <a href="../../../suite.log.latest.html">Latest test result</a>
+</p>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:45<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_session_suite.kolab_guam_session_test_client_benchmark.html Added

@@ -0,0 +1,63 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<title>Test kolab_guam_session_SUITE:kolab_guam_session_test_client_benchmark result</title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="../../ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="../../jquery-latest.js"></script>
+<script type="text/javascript" src="../../jquery.tablesorter.min.js"></script>
+</head>
+<body>
+
+<a name="top"></a><pre>
+=== Test case: <a href="kolab_guam_session_suite.src.html#kolab_guam_session_test_client_benchmark-1">kolab_guam_session_SUITE:kolab_guam_session_test_client_benchmark/1</a> (click for source code)
+
+=== Config value:
+
+    [{watchdog,&lt;0.352.0&gt;},
+     {tc_logfile,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_session_suite.kolab_guam_session_test_client_benchmark.html"},
+     {tc_group_properties,[]},
+     {tc_group_path,[]},
+     {data_dir,"/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_session_SUITE_data/"},
+     {priv_dir,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private/"}]
+
+=== Current directory is "/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45"
+
+=== Started at 2021-05-18 09:53:45
+
+<br />
+
+</pre>
+<div class="default"><pre><b>*** User 2021-05-18 09:53:45.565 ***</b>
+09:53:45.565 [info] Runtime: 116 usecs
+
+</pre></div>
+<pre>
+
+</pre>
+<div class="default"><pre><b>*** User 2021-05-18 09:53:45.565 ***</b>
+09:53:45.565 [info] Done
+
+</pre></div>
+<pre>
+<a name="end"></a>
+
+
+=== Ended at 2021-05-18 09:53:45
+=== successfully completed test case
+=== === Returned value: ok
+</pre>
+<center>
+<br /><hr /><p>
+<a href="../../../all_runs.html">Test run history
+</a>  |  <a href="../../../index.html">Top level test index
+</a>  |  <a href="../../../suite.log.latest.html">Latest test result</a>
+</p>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:45<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_session_suite.kolab_guam_session_test_server.html Added

@@ -0,0 +1,56 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<title>Test kolab_guam_session_SUITE:kolab_guam_session_test_server result</title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="../../ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="../../jquery-latest.js"></script>
+<script type="text/javascript" src="../../jquery.tablesorter.min.js"></script>
+</head>
+<body>
+
+<a name="top"></a><pre>
+=== Test case: <a href="kolab_guam_session_suite.src.html#kolab_guam_session_test_server-1">kolab_guam_session_SUITE:kolab_guam_session_test_server/1</a> (click for source code)
+
+=== Config value:
+
+    [{watchdog,&lt;0.352.0&gt;},
+     {tc_logfile,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_session_suite.kolab_guam_session_test_server.html"},
+     {tc_group_properties,[]},
+     {tc_group_path,[]},
+     {data_dir,"/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_session_SUITE_data/"},
+     {priv_dir,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private/"}]
+
+=== Current directory is "/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45"
+
+=== Started at 2021-05-18 09:53:45
+
+<br />
+
+</pre>
+<div class="default"><pre><b>*** User 2021-05-18 09:53:45.539 ***</b>
+09:53:45.539 [info] Done
+
+</pre></div>
+<pre>
+<a name="end"></a>
+
+
+=== Ended at 2021-05-18 09:53:45
+=== successfully completed test case
+=== === Returned value: ok
+</pre>
+<center>
+<br /><hr /><p>
+<a href="../../../all_runs.html">Test run history
+</a>  |  <a href="../../../index.html">Top level test index
+</a>  |  <a href="../../../suite.log.latest.html">Latest test result</a>
+</p>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:45<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_session_suite.src.html Added

@@ -0,0 +1,383 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
+
+<html>
+<head>
+<meta http-equiv="Content-Type" content="text/html;charset=utf-8"/></meta>
+<title>/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_session_SUITE.erl</title>
+</head>
+
+<body bgcolor="white" text="black" link="blue" vlink="purple" alink="red">
+<pre>
+<a name="1"/>    1: <i>%% Copyright 2015 Kolab Systems AG (http://www.kolabsys.com)</i>
+<a name="2"/>    2: <i>%%</i>
+<a name="3"/>    3: <i>%% Christian Mollekopf (Kolab Systems) &lt;mollekopf@kolabsystems.com&gt;</i>
+<a name="4"/>    4: <i>%%</i>
+<a name="5"/>    5: <i>%% This program is free software: you can redistribute it and/or modify</i>
+<a name="6"/>    6: <i>%% it under the terms of the GNU General Public License as published by</i>
+<a name="7"/>    7: <i>%% the Free Software Foundation, either version 3 of the License, or</i>
+<a name="8"/>    8: <i>%% (at your option) any later version.</i>
+<a name="9"/>    9: <i>%%</i>
+<a name="10"/>   10: <i>%% This program is distributed in the hope that it will be useful,</i>
+<a name="11"/>   11: <i>%% but WITHOUT ANY WARRANTY; without even the implied warranty of</i>
+<a name="12"/>   12: <i>%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the</i>
+<a name="13"/>   13: <i>%% GNU General Public License for more details.</i>
+<a name="14"/>   14: <i>%%</i>
+<a name="15"/>   15: <i>%% You should have received a copy of the GNU General Public License</i>
+<a name="16"/>   16: <i>%% along with this program.  If not, see &lt;http://www.gnu.org/licenses/&gt;.</i>
+<a name="17"/>   17: 
+<a name="18"/>   18: <b>-module</b>(kolab_guam_session_SUITE).
+<a name="19"/>   19: 
+<a name="20"/>   20: <i>% easier than exporting by name</i>
+<a name="21"/>   21: <b>-compile</b>(export_all).
+<a name="22"/>   22: 
+<a name="23"/>   23: <i>% required for common_test to work</i>
+<a name="24"/>   24: <b>-include_lib</b>(&quot;common_test/include/ct.hrl&quot;).
+<a name="25"/>   25: <b>-include</b>(&quot;../src/kolab_guam_session.hrl&quot;).
+<a name="26"/>   26: 
+<a name="27"/>   27: 
+<a name="28"/>   28: <i>%%%%%%%%%%%%%%%%%%%%%%%%%%%</i>
+<a name="29"/>   29: <i>%% common test callbacks %%</i>
+<a name="30"/>   30: <i>%%%%%%%%%%%%%%%%%%%%%%%%%%%</i>
+<a name="31"/>   31: 
+<a name="32"/>   32: <i>% Specify a list of all unit test functions</i>
+<a name="all-0"/><a name="all-last_expr"/><a name="33"/>   33: <b>all</b>() -&gt; [
+<a name="34"/>   34:           kolab_guam_session_test_client,
+<a name="35"/>   35:           kolab_guam_session_test_server,
+<a name="36"/>   36:           kolab_guam_session_test_client_benchmark
+<a name="37"/>   37:          ].
+<a name="38"/>   38: 
+<a name="39"/>   39: <i>% required, but can just return Config. this is a suite level setup function.</i>
+<a name="init_per_suite-1"/><a name="40"/>   40: <b>init_per_suite</b>(Config) -&gt;
+<a name="init_per_suite-last_expr"/><a name="41"/>   41:         Config.
+<a name="42"/>   42: 
+<a name="43"/>   43: <i>% required, but can just return Config. this is a suite level tear down function.</i>
+<a name="end_per_suite-1"/><a name="44"/>   44: <b>end_per_suite</b>(Config) -&gt;
+<a name="end_per_suite-last_expr"/><a name="45"/>   45:         Config.
+<a name="46"/>   46: 
+<a name="47"/>   47: <i>% optional, can do function level setup for all functions,</i>
+<a name="48"/>   48: <i>% or for individual functions by matching on TestCase.</i>
+<a name="init_per_testcase-2"/><a name="49"/>   49: <b>init_per_testcase</b>(_TestCase, Config) -&gt;
+<a name="init_per_testcase-last_expr"/><a name="50"/>   50:         Config.
+<a name="51"/>   51: 
+<a name="52"/>   52: <i>% optional, can do function level tear down for all functions,</i>
+<a name="53"/>   53: <i>% or for individual functions by matching on TestCase.</i>
+<a name="end_per_testcase-2"/><a name="54"/>   54: <b>end_per_testcase</b>(_TestCase, Config) -&gt;
+<a name="end_per_testcase-last_expr"/><a name="55"/>   55:         Config.
+<a name="56"/>   56: 
+<a name="57"/>   57: 
+<a name="kolab_guam_session_test_client-1"/><a name="58"/>   58: <b>kolab_guam_session_test_client</b>(_TestConfig) -&gt;
+<a name="59"/>   59:     %% setup boilerplate
+<a name="60"/>   60:     ServerConfig = kolab_guam_sup:default_imap_server_config(),
+<a name="61"/>   61:     { ok, ImapSession } = eimap:start_link(ServerConfig),
+<a name="62"/>   62:     { ok, Socket } = gen_tcp:listen(9964, [ { reuseaddr, true }, {active, false}, inet6 ]),
+<a name="63"/>   63: 
+<a name="64"/>   64:     lager:start(),
+<a name="65"/>   65:     lager:set_loglevel(lager_console_backend, debug),
+<a name="66"/>   66: 
+<a name="67"/>   67:     ActiveRules = [{ kolab_guam_rule_filter_groupware, kolab_guam_rule_filter_groupware:new({}) }],
+<a name="68"/>   68: 
+<a name="69"/>   69:     State = #state{
+<a name="70"/>   70:       socket = Socket,
+<a name="71"/>   71:       server_config = ServerConfig,
+<a name="72"/>   72:       imap_session = ImapSession
+<a name="73"/>   73:     },
+<a name="74"/>   74: 
+<a name="75"/>   75:     %handle_info
+<a name="76"/>   76:     {noreply, #state{
+<a name="77"/>   77:       server_config = ServerConfig,
+<a name="78"/>   78:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="79"/>   79:       current_command_split = undefined,
+<a name="80"/>   80:       command_split_reset_trigger = [] %FIXME ?
+<a name="81"/>   81:      }} = kolab_guam_session:handle_info({tcp, Socket, &lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\ny3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;}, State#state{ rules_deciding = [] }),
+<a name="82"/>   82: 
+<a name="83"/>   83:     % Run without rules
+<a name="84"/>   84:     {&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\ny3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;, #state{
+<a name="85"/>   85:       server_config = ServerConfig,
+<a name="86"/>   86:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="87"/>   87:       current_command_split = undefined,
+<a name="88"/>   88:       command_split_reset_trigger = [] %FIXME ?
+<a name="89"/>   89:      }} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\ny3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;, State#state{ rules_deciding = [] }),
+<a name="90"/>   90: 
+<a name="91"/>   91: 
+<a name="92"/>   92:     % Activate filtering
+<a name="93"/>   93:     {&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\n&quot;&gt;&gt;, #state{
+<a name="94"/>   94:       server_config = ServerConfig,
+<a name="95"/>   95:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="96"/>   96:       current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;ID&quot;&gt;&gt;,&lt;&lt;&quot;(\&quot;name\&quot; \&quot;Test\&quot;)&quot;&gt;&gt;},
+<a name="97"/>   97:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="98"/>   98:       rules_deciding = [],
+<a name="99"/>   99:       rules_active = [{kolab_guam_rule_filter_groupware, _}]
+<a name="100"/>  100:      }} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\n&quot;&gt;&gt;, State#state{ rules_deciding = ActiveRules }),
+<a name="101"/>  101: 
+<a name="102"/>  102: 
+<a name="103"/>  103:     % Append
+<a name="104"/>  104:     {&lt;&lt;&quot;y1 APPEND INBOX {30+}\r\n0123&quot;&gt;&gt;, #state{
+<a name="105"/>  105:       server_config = ServerConfig,
+<a name="106"/>  106:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="107"/>  107:       current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;APPEND&quot;&gt;&gt;,&lt;&lt;&quot;INBOX {30+}&quot;&gt;&gt;},
+<a name="108"/>  108:       command_split_reset_trigger = reset_for_next_client_command
+<a name="109"/>  109:      } = IntermediateState4} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;y1 APPEND INBOX {30+}\r\n0123&quot;&gt;&gt;, State#state{ rules_deciding = ActiveRules }),
+<a name="110"/>  110: 
+<a name="111"/>  111:     {&lt;&lt;&quot;456789&quot;&gt;&gt;, #state{
+<a name="112"/>  112:       server_config = ServerConfig,
+<a name="113"/>  113:       buffered_client_data = &lt;&lt;&gt;&gt;, %This ensures we aren't buffering during the continuation
+<a name="114"/>  114:       current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;APPEND&quot;&gt;&gt;,&lt;&lt;&quot;INBOX {30+}&quot;&gt;&gt;},
+<a name="115"/>  115:       command_split_reset_trigger = reset_for_next_client_command
+<a name="116"/>  116:      } = IntermediateState5} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;456789&quot;&gt;&gt;, IntermediateState4),
+<a name="117"/>  117: 
+<a name="118"/>  118:     {&lt;&lt;&quot;0123456789012345678&quot;&gt;&gt;, #state{
+<a name="119"/>  119:       server_config = ServerConfig,
+<a name="120"/>  120:       buffered_client_data = &lt;&lt;&gt;&gt;, %This ensures we aren't buffering during the continuation
+<a name="121"/>  121:       current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;APPEND&quot;&gt;&gt;,&lt;&lt;&quot;INBOX {30+}&quot;&gt;&gt;},
+<a name="122"/>  122:       command_split_reset_trigger = reset_for_next_client_command
+<a name="123"/>  123:      } = IntermediateState6} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;0123456789012345678&quot;&gt;&gt;, IntermediateState5),
+<a name="124"/>  124: 
+<a name="125"/>  125:     {&lt;&lt;&quot;9\r\ny2 ENABLE QRESYNC\r\n&quot;&gt;&gt;, #state{
+<a name="126"/>  126:       server_config = ServerConfig,
+<a name="127"/>  127:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="128"/>  128:       current_command_split = {&lt;&lt;&quot;y2&quot;&gt;&gt;,&lt;&lt;&quot;ENABLE&quot;&gt;&gt;,&lt;&lt;&quot;QRESYNC&quot;&gt;&gt;},
+<a name="129"/>  129:       command_split_reset_trigger = reset_for_next_client_command
+<a name="130"/>  130:      }} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;9\r\ny2 ENABLE QRESYNC\r\n&quot;&gt;&gt;, IntermediateState6),
+<a name="131"/>  131: 
+<a name="132"/>  132:     % Append2
+<a name="133"/>  133:     {&lt;&lt;&quot;y1 APPEND INBOX {36+}\r\n0123&quot;&gt;&gt;, #state{
+<a name="134"/>  134:       server_config = ServerConfig,
+<a name="135"/>  135:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="136"/>  136:       current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;APPEND&quot;&gt;&gt;,&lt;&lt;&quot;INBOX {36+}&quot;&gt;&gt;},
+<a name="137"/>  137:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="138"/>  138:       continuation_bytes = 32
+<a name="139"/>  139:      } = IntermediateState7} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;y1 APPEND INBOX {36+}\r\n0123&quot;&gt;&gt;, State#state{ rules_deciding = ActiveRules }),
+<a name="140"/>  140: 
+<a name="141"/>  141:     {&lt;&lt;&quot;456789\r\n0123456789\r\n0123456789&quot;&gt;&gt;, #state{
+<a name="142"/>  142:       server_config = ServerConfig,
+<a name="143"/>  143:       buffered_client_data = &lt;&lt;&gt;&gt;, %This ensures we aren't buffering during the continuation
+<a name="144"/>  144:       current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;APPEND&quot;&gt;&gt;,&lt;&lt;&quot;INBOX {36+}&quot;&gt;&gt;},
+<a name="145"/>  145:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="146"/>  146:       continuation_bytes = 2
+<a name="147"/>  147:      } = IntermediateState8} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;456789\r\n0123456789\r\n0123456789&quot;&gt;&gt;, IntermediateState7),
+<a name="148"/>  148: 
+<a name="149"/>  149:     {&lt;&lt;&quot;\r\n&quot;&gt;&gt;, #state{
+<a name="150"/>  150:       server_config = ServerConfig,
+<a name="151"/>  151:       buffered_client_data = &lt;&lt;&gt;&gt;, %This ensures we aren't buffering during the continuation
+<a name="152"/>  152:       current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;APPEND&quot;&gt;&gt;,&lt;&lt;&quot;INBOX {36+}&quot;&gt;&gt;},
+<a name="153"/>  153:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="154"/>  154:       continuation_bytes = 0
+<a name="155"/>  155:      }} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;\r\n&quot;&gt;&gt;, IntermediateState8),
+<a name="156"/>  156: 
+<a name="157"/>  157: 
+<a name="158"/>  158:     % Don't activate filtering
+<a name="159"/>  159:     {&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test/KOLAB\&quot;)\r\n&quot;&gt;&gt;, #state{
+<a name="160"/>  160:       server_config = ServerConfig,
+<a name="161"/>  161:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="162"/>  162:       current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;ID&quot;&gt;&gt;,&lt;&lt;&quot;(\&quot;name\&quot; \&quot;Test/KOLAB\&quot;)&quot;&gt;&gt;},
+<a name="163"/>  163:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="164"/>  164:       rules_deciding = [],
+<a name="165"/>  165:       rules_active = []
+<a name="166"/>  166:      }} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test/KOLAB\&quot;)\r\n&quot;&gt;&gt;, State#state{ rules_deciding = ActiveRules }),
+<a name="167"/>  167: 
+<a name="168"/>  168: 
+<a name="169"/>  169:     % Lone tag in a packet. Can/Could happen with iPhone apparently. (See commit 89f9dc93757c68032ed17f42838858bdfaefa408)
+<a name="170"/>  170:     {&lt;&lt;&gt;&gt;, #state{ buffered_client_data = &lt;&lt;&quot;y1&quot;&gt;&gt;, rules_active = [] } = IntermediateState1} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;y1&quot;&gt;&gt;, State#state{ rules_deciding = ActiveRules }),
+<a name="171"/>  171:     {&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\n&quot;&gt;&gt;, #state{
+<a name="172"/>  172:       server_config = ServerConfig,
+<a name="173"/>  173:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="174"/>  174:       current_command_split = {&lt;&lt;&quot;y2&quot;&gt;&gt;,&lt;&lt;&quot;ENABLE&quot;&gt;&gt;,&lt;&lt;&quot;QRESYNC&quot;&gt;&gt;},
+<a name="175"/>  175:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="176"/>  176:       rules_deciding = [],
+<a name="177"/>  177:       rules_active = [{kolab_guam_rule_filter_groupware, _}]
+<a name="178"/>  178:      }} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot; ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\n&quot;&gt;&gt;, IntermediateState1),
+<a name="179"/>  179: 
+<a name="180"/>  180: 
+<a name="181"/>  181:     % Lone tag in a packet, but with a \r\n before. See guam-0.9.2-stalling-client-buffer-and-split-command-handling.patch (This triggers the odd List buffering case)
+<a name="182"/>  182:     {&lt;&lt;&quot;\r\n&quot;&gt;&gt;, #state{ buffered_client_data = &lt;&lt;&quot;y1 &quot;&gt;&gt;, rules_active = [] } = IntermediateState2} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;\r\ny1 &quot;&gt;&gt;, State#state{ rules_deciding = ActiveRules }),
+<a name="183"/>  183:     {&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\n&quot;&gt;&gt;, #state{
+<a name="184"/>  184:       server_config = ServerConfig,
+<a name="185"/>  185:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="186"/>  186:       current_command_split = {&lt;&lt;&quot;y2&quot;&gt;&gt;,&lt;&lt;&quot;ENABLE&quot;&gt;&gt;,&lt;&lt;&quot;QRESYNC&quot;&gt;&gt;},
+<a name="187"/>  187:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="188"/>  188:       rules_deciding = [],
+<a name="189"/>  189:       rules_active = [{kolab_guam_rule_filter_groupware, _}]
+<a name="190"/>  190:      }} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\n&quot;&gt;&gt;, IntermediateState2),
+<a name="191"/>  191: 
+<a name="192"/>  192: 
+<a name="193"/>  193:     % Empty line (should be considered a complete command and should not be buffered)
+<a name="194"/>  194:     {&lt;&lt;&quot;\r\n&quot;&gt;&gt;, #state{ buffered_client_data = &lt;&lt;&gt;&gt;, rules_active = [] } = IntermediateState3} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;\r\n&quot;&gt;&gt;, State#state{ rules_deciding = ActiveRules }),
+<a name="195"/>  195:     {&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\n&quot;&gt;&gt;, #state{
+<a name="196"/>  196:       server_config = ServerConfig,
+<a name="197"/>  197:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="198"/>  198:       current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;ID&quot;&gt;&gt;,&lt;&lt;&quot;(\&quot;name\&quot; \&quot;Test\&quot;)&quot;&gt;&gt;},
+<a name="199"/>  199:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="200"/>  200:       rules_deciding = [],
+<a name="201"/>  201:       rules_active = [{kolab_guam_rule_filter_groupware, _}]
+<a name="202"/>  202:      }} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\n&quot;&gt;&gt;, IntermediateState3),
+<a name="203"/>  203: 
+<a name="204"/>  204: 
+<a name="205"/>  205:     % Activate with multi-line packet
+<a name="206"/>  206:     {&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\ny3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;, #state{
+<a name="207"/>  207:       server_config = ServerConfig,
+<a name="208"/>  208:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="209"/>  209:       current_command_split = {&lt;&lt;&quot;y3&quot;&gt;&gt;,&lt;&lt;&quot;LIST&quot;&gt;&gt;,&lt;&lt;&quot;\&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))&quot;&gt;&gt;},
+<a name="210"/>  210:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="211"/>  211:       rules_deciding = [],
+<a name="212"/>  212:       % Make sure that we have processed y3 in here (and don't stop processing at y1)
+<a name="213"/>  213:       rules_active = [{kolab_guam_rule_filter_groupware, {state,undefined,&lt;&lt;&quot;y3&quot;&gt;&gt;,true,&lt;&lt;&gt;&gt;,[&lt;&lt;&quot;LIST&quot;&gt;&gt;,&lt;&lt;&quot;list&quot;&gt;&gt;,&lt;&lt;&quot;XLIST&quot;&gt;&gt;,&lt;&lt;&quot;xlist&quot;&gt;&gt;,&lt;&lt;&quot;LSUB&quot;&gt;&gt;,&lt;&lt;&quot;lsub&quot;&gt;&gt;]}}]
+<a name="214"/>  214:       % rules_active = [{kolab_guam_rule_filter_groupware, _}]
+<a name="215"/>  215:      }} = kolab_guam_session:process_client_data(Socket, &lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\ny3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;, State#state{ rules_deciding = ActiveRules }),
+<a name="216"/>  216: 
+<a name="217"/>  217: 
+<a name="218"/>  218:     % Test various packet splits
+<a name="219"/>  219:     PacketsSplits = [
+<a name="220"/>  220:         [&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\n&quot;&gt;&gt;, &lt;&lt;&quot;y2 ENABLE QRESYNC\r\n&quot;&gt;&gt;, &lt;&lt;&quot;y3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;],
+<a name="221"/>  221:         [&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\ny3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;],
+<a name="222"/>  222:         [&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)&quot;&gt;&gt;, &lt;&lt;&quot;\r\ny2&quot;&gt;&gt;, &lt;&lt;&quot; ENABLE QRESYNC\r\ny3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;],
+<a name="223"/>  223:         [&lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)&quot;&gt;&gt;, &lt;&lt;&quot;\r\n&quot;&gt;&gt;, &lt;&lt;&quot;y2 ENABLE QRESYNC\r\ny3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;],
+<a name="224"/>  224:         [&lt;&lt;&quot;y1&quot;&gt;&gt;, &lt;&lt;&quot; &quot;&gt;&gt;, &lt;&lt;&quot;ID&quot;&gt;&gt;, &lt;&lt;&quot; (\&quot;name\&quot; \&quot;Test\&quot;)\r\n&quot;&gt;&gt;, &lt;&lt;&quot;y2 ENABLE QRESYNC\r\ny3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;]
+<a name="225"/>  225:     ],
+<a name="226"/>  226: 
+<a name="227"/>  227:      lists:foldl(fun(Packets, _) -&gt;
+<a name="228"/>  228:                     try_packets(Packets, Socket, ServerConfig, State#state{ rules_deciding = ActiveRules })
+<a name="229"/>  229:                 end,
+<a name="230"/>  230:                 undefined,
+<a name="231"/>  231:                 PacketsSplits),
+<a name="232"/>  232: 
+<a name="233"/>  233: 
+<a name="kolab_guam_session_test_client-last_expr"/><a name="234"/>  234: <b>    lager:info</b>(&quot;Done&quot;).
+<a name="235"/>  235: 
+<a name="236"/>  236: 
+<a name="try_packets-4"/><a name="237"/>  237: <b>try_packets</b>(Packets, Socket, ServerConfig, State) -&gt;
+<a name="238"/>  238:     #state{
+<a name="239"/>  239:       server_config = ServerConfig,
+<a name="240"/>  240:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="241"/>  241:       current_command_split = {&lt;&lt;&quot;y3&quot;&gt;&gt;,&lt;&lt;&quot;LIST&quot;&gt;&gt;,&lt;&lt;&quot;\&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))&quot;&gt;&gt;},
+<a name="242"/>  242:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="243"/>  243:       rules_deciding = [],
+<a name="244"/>  244:       % Make sure that we have processed y3 in here (and don't stop processing at y1)
+<a name="245"/>  245:       rules_active = [{kolab_guam_rule_filter_groupware, {state,undefined,&lt;&lt;&quot;y3&quot;&gt;&gt;,true,&lt;&lt;&gt;&gt;,[&lt;&lt;&quot;LIST&quot;&gt;&gt;,&lt;&lt;&quot;list&quot;&gt;&gt;,&lt;&lt;&quot;XLIST&quot;&gt;&gt;,&lt;&lt;&quot;xlist&quot;&gt;&gt;,&lt;&lt;&quot;LSUB&quot;&gt;&gt;,&lt;&lt;&quot;lsub&quot;&gt;&gt;]}}]
+<a name="try_packets-last_expr"/><a name="246"/>  246: <b>     } = lists:foldl</b>(fun(Packet, _State) -&gt;
+<a name="247"/>  247:                         {_, NewState} = kolab_guam_session:handle_info({tcp, Socket, Packet}, _State),
+<a name="248"/>  248:                         NewState
+<a name="249"/>  249:                     end,
+<a name="250"/>  250:                     State,
+<a name="251"/>  251:                     Packets).
+<a name="252"/>  252: 
+<a name="253"/>  253: 
+<a name="kolab_guam_session_test_server-1"/><a name="254"/>  254: <b>kolab_guam_session_test_server</b>(_TestConfig) -&gt;
+<a name="255"/>  255:     %% setup boilerplate
+<a name="256"/>  256:     % gen_tcp:connect
+<a name="257"/>  257:     ServerConfig = kolab_guam_sup:default_imap_server_config(),
+<a name="258"/>  258:     { ok, ImapSession } = eimap:start_link(ServerConfig),
+<a name="259"/>  259:     { ok, Socket } = gen_tcp:listen(9964, [ { reuseaddr, true }, {active, false}, inet6 ]),
+<a name="260"/>  260: 
+<a name="261"/>  261:     lager:start(),
+<a name="262"/>  262:     lager:set_loglevel(lager_console_backend, debug),
+<a name="263"/>  263: 
+<a name="264"/>  264:     ActiveRules = [{ kolab_guam_rule_filter_groupware, kolab_guam_rule_filter_groupware:new({}) }],
+<a name="265"/>  265: 
+<a name="266"/>  266:     State = #state{
+<a name="267"/>  267:       socket = Socket,
+<a name="268"/>  268:       server_config = ServerConfig,
+<a name="269"/>  269:       imap_session = ImapSession
+<a name="270"/>  270:     },
+<a name="271"/>  271: 
+<a name="272"/>  272: 
+<a name="273"/>  273:     % This should trigger a metadata request
+<a name="274"/>  274:     {noreply, #state{
+<a name="275"/>  275:       server_config = ServerConfig,
+<a name="276"/>  276:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="277"/>  277:       % current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;ID&quot;&gt;&gt;,&lt;&lt;&quot;(\&quot;name\&quot; \&quot;Test\&quot;)&quot;&gt;&gt;},
+<a name="278"/>  278:       current_command_split = {&lt;&lt;&quot;y3&quot;&gt;&gt;,&lt;&lt;&quot;LIST&quot;&gt;&gt;,&lt;&lt;&quot;\&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))&quot;&gt;&gt;},
+<a name="279"/>  279:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="280"/>  280:       rules_deciding = [],
+<a name="281"/>  281:       rules_active = [{kolab_guam_rule_filter_groupware, _}]
+<a name="282"/>  282:     } = IntermediateState1} = kolab_guam_session:handle_info({tcp, Socket, &lt;&lt;&quot;y1 ID (\&quot;name\&quot; \&quot;Test\&quot;)\r\ny2 ENABLE QRESYNC\r\ny3 LIST \&quot;\&quot; \&quot;%\&quot; RETURN (SUBSCRIBED))\r\n&quot;&gt;&gt;}, State#state{ rules_deciding = ActiveRules }),
+<a name="283"/>  283: 
+<a name="284"/>  284: 
+<a name="285"/>  285:     {noreply, #state{
+<a name="286"/>  286:       server_config = ServerConfig,
+<a name="287"/>  287:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="288"/>  288:       % current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;ID&quot;&gt;&gt;,&lt;&lt;&quot;(\&quot;name\&quot; \&quot;Test\&quot;)&quot;&gt;&gt;},
+<a name="289"/>  289:       current_command_split = undefined,
+<a name="290"/>  290:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="291"/>  291:       rules_deciding = [],
+<a name="292"/>  292:       rules_active = [{kolab_guam_rule_filter_groupware, _}]
+<a name="293"/>  293:     } = IntermediateState2} = kolab_guam_session:handle_info({imap_server_response, &lt;&lt;&quot;* ID (\&quot;name\&quot; \&quot;Cyrus IMAPD\&quot;)\n\ry1 OK Completed\r\n&quot;&gt;&gt;}, IntermediateState1),
+<a name="294"/>  294: 
+<a name="295"/>  295:     {noreply, #state{
+<a name="296"/>  296:       server_config = ServerConfig,
+<a name="297"/>  297:       buffered_client_data = &lt;&lt;&gt;&gt;,
+<a name="298"/>  298:       % current_command_split = {&lt;&lt;&quot;y1&quot;&gt;&gt;,&lt;&lt;&quot;ID&quot;&gt;&gt;,&lt;&lt;&quot;(\&quot;name\&quot; \&quot;Test\&quot;)&quot;&gt;&gt;},
+<a name="299"/>  299:       command_split_reset_trigger = reset_for_next_client_command,
+<a name="300"/>  300:       rules_deciding = [],
+<a name="301"/>  301:       rules_active = [{kolab_guam_rule_filter_groupware, _}]
+<a name="302"/>  302:     }} = kolab_guam_session:handle_info({imap_server_response, &lt;&lt;&quot;* METADATA INBOX (/shared/vendor/kolab/folder-type \&quot;mail\&quot;)\r\n&quot;&gt;&gt;}, IntermediateState2),
+<a name="303"/>  303: 
+<a name="304"/>  304: <i>% &lt;&lt;&quot;* METADATA Archive (/shared/vendor/kolab/folder-type NIL)\r\n&quot;&gt;</i>
+<a name="305"/>  305: <i>% &lt;&lt;&quot;* METADATA Calendar (/shared/vendor/kolab/folder-type \&quot;event\&quot;)\r\n&quot;&gt;</i>
+<a name="306"/>  306: <i>% &lt;&lt;&quot;EG0001 OK Completed\r\n&quot;&gt;&gt;</i>
+<a name="307"/>  307: 
+<a name="kolab_guam_session_test_server-last_expr"/><a name="308"/>  308: <b>    lager:info</b>(&quot;Done&quot;).
+<a name="309"/>  309: 
+<a name="310"/>  310: 
+<a name="311"/>  311: 
+<a name="kolab_guam_session_test_client_benchmark-1"/><a name="312"/>  312: <b>kolab_guam_session_test_client_benchmark</b>(_TestConfig) -&gt;
+<a name="313"/>  313:     %% setup boilerplate
+<a name="314"/>  314:     ServerConfig = kolab_guam_sup:default_imap_server_config(),
+<a name="315"/>  315:     { ok, ImapSession } = eimap:start_link(ServerConfig),
+<a name="316"/>  316:     { ok, Socket } = gen_tcp:listen(9964, [ { reuseaddr, true }, {active, false}, inet6 ]),
+<a name="317"/>  317: 
+<a name="318"/>  318:     lager:start(),
+<a name="319"/>  319:     lager:set_loglevel(lager_console_backend, debug),
+<a name="320"/>  320: 
+<a name="321"/>  321:     ActiveRules = [{ kolab_guam_rule_filter_groupware, kolab_guam_rule_filter_groupware:new({}) }],
+<a name="322"/>  322: 
+<a name="323"/>  323:     State = #state{
+<a name="324"/>  324:       socket = Socket,
+<a name="325"/>  325:       server_config = ServerConfig,
+<a name="326"/>  326:       imap_session = ImapSession
+<a name="327"/>  327:     },
+<a name="328"/>  328: 
+<a name="329"/>  329:     Count = 70,
+<a name="330"/>  330:     % We used to have a factor of 10 in runtime between \r\n (causing line splits), and just \n (not causing line splits)
+<a name="331"/>  331:     Payload = &lt;&lt;&quot;0123456789\r\n&quot;&gt;&gt;,
+<a name="332"/>  332:     Data = list_to_binary(lists:duplicate(Count, Payload)),
+<a name="333"/>  333:     BinaryCount = list_to_binary(integer_to_list(Count * size(Payload) + 36)),
+<a name="334"/>  334:     ExpectedCommandSplit = {&lt;&lt;&quot;y1&quot;&gt;&gt;, &lt;&lt;&quot;APPEND&quot;&gt;&gt;, list_to_binary([&lt;&lt;&quot;INBOX {&quot;&gt;&gt;, BinaryCount, &lt;&lt;&quot;}&quot;&gt;&gt;])},
+<a name="335"/>  335: 
+<a name="336"/>  336:     S = os:timestamp(),
+<a name="337"/>  337: 
+<a name="338"/>  338:     % Append
+<a name="339"/>  339:     {noreply, #state{
+<a name="340"/>  340:       server_config = ServerConfig,
+<a name="341"/>  341:       current_command_split = ExpectedCommandSplit,
+<a name="342"/>  342:       command_split_reset_trigger = reset_for_next_client_command
+<a name="343"/>  343:      } = IntermediateState4} = kolab_guam_session:handle_info({tcp, Socket, list_to_binary([&lt;&lt;&quot;y1 APPEND INBOX {&quot;&gt;&gt;, BinaryCount, &lt;&lt;&quot;}\r\n0123&quot;&gt;&gt;])}, State#state{ rules_deciding = ActiveRules }),
+<a name="344"/>  344: 
+<a name="345"/>  345:     {noreply, #state{
+<a name="346"/>  346:       server_config = ServerConfig,
+<a name="347"/>  347:       current_command_split = ExpectedCommandSplit,
+<a name="348"/>  348:       command_split_reset_trigger = reset_for_next_client_command
+<a name="349"/>  349:      } = IntermediateState5} = kolab_guam_session:handle_info({tcp, Socket, &lt;&lt;&quot;456789\r\n0123456789\r\n0123456789&quot;&gt;&gt;}, IntermediateState4),
+<a name="350"/>  350: 
+<a name="351"/>  351: 
+<a name="352"/>  352:     {noreply, #state{
+<a name="353"/>  353:       server_config = ServerConfig,
+<a name="354"/>  354:       current_command_split = ExpectedCommandSplit,
+<a name="355"/>  355:       command_split_reset_trigger = reset_for_next_client_command
+<a name="356"/>  356:      } = IntermediateState6} = kolab_guam_session:handle_info({tcp, Socket, &lt;&lt;&quot;\r\n&quot;&gt;&gt;}, IntermediateState5),
+<a name="357"/>  357: 
+<a name="358"/>  358:     {noreply, #state{
+<a name="359"/>  359:       server_config = ServerConfig,
+<a name="360"/>  360:       current_command_split = ExpectedCommandSplit,
+<a name="361"/>  361:       command_split_reset_trigger = reset_for_next_client_command
+<a name="362"/>  362:      }} = kolab_guam_session:handle_info({tcp, Socket, Data}, IntermediateState6),
+<a name="363"/>  363: 
+<a name="364"/>  364: 
+<a name="365"/>  365:     E = os:timestamp(),
+<a name="366"/>  366:     X = timer:now_diff(E,S),
+<a name="367"/>  367:     lager:info(&quot;Runtime: ~p usecs&quot;, [X]),
+<a name="368"/>  368: 
+<a name="369"/>  369: 
+<a name="kolab_guam_session_test_client_benchmark-last_expr"/><a name="370"/>  370: <b>    lager:info</b>(&quot;Done&quot;).
+</pre>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_sup_suite.default_imap_server_config_test.html Added

@@ -0,0 +1,49 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<title>Test kolab_guam_sup_SUITE:default_imap_server_config_test result</title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="../../ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="../../jquery-latest.js"></script>
+<script type="text/javascript" src="../../jquery.tablesorter.min.js"></script>
+</head>
+<body>
+
+<a name="top"></a><pre>
+=== Test case: <a href="kolab_guam_sup_suite.src.html#default_imap_server_config_test-1">kolab_guam_sup_SUITE:default_imap_server_config_test/1</a> (click for source code)
+
+=== Config value:
+
+    [{watchdog,&lt;0.411.0&gt;},
+     {tc_logfile,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_sup_suite.default_imap_server_config_test.html"},
+     {tc_group_properties,[]},
+     {tc_group_path,[]},
+     {data_dir,"/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_sup_SUITE_data/"},
+     {priv_dir,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private/"}]
+
+=== Current directory is "/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45"
+
+=== Started at 2021-05-18 09:53:45
+
+<br />
+<a name="end"></a>
+
+
+=== Ended at 2021-05-18 09:53:45
+=== successfully completed test case
+=== === Returned value: [{host,"192.168.56.102"},{port,994},{tls,true}]
+</pre>
+<center>
+<br /><hr /><p>
+<a href="../../../all_runs.html">Test run history
+</a>  |  <a href="../../../index.html">Top level test index
+</a>  |  <a href="../../../suite.log.latest.html">Latest test result</a>
+</p>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:45<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_sup_suite.end_per_suite.html Added

@@ -0,0 +1,67 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<title>Test kolab_guam_sup_SUITE:end_per_suite result</title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="../../ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="../../jquery-latest.js"></script>
+<script type="text/javascript" src="../../jquery.tablesorter.min.js"></script>
+</head>
+<body>
+
+<a name="top"></a><pre>
+=== Config function: <a href="kolab_guam_sup_suite.src.html#end_per_suite-1">kolab_guam_sup_SUITE:end_per_suite/1</a> (click for source code)
+
+=== Config value:
+
+    [{watchdog,&lt;0.411.0&gt;},
+     {tc_logfile,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_sup_suite.end_per_suite.html"},
+     {tc_group_properties,[]},
+     {tc_group_path,[]},
+     {data_dir,"/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_sup_SUITE_data/"},
+     {priv_dir,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private/"}]
+
+=== Current directory is "/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45"
+
+=== Started at 2021-05-18 09:53:45
+
+<br />
+<a name="end"></a>
+
+
+=== Ended at 2021-05-18 09:53:45
+=== successfully completed test case
+=== === Returned value: [{watchdog,&lt;0.420.0&gt;},
+                     {tc_group_result,
+                         [{ok,[{kolab_guam_sup_SUITE,
+                                   default_imap_server_config_test},
+                               {kolab_guam_sup_SUITE,
+                                   imap_server_config_test}]},
+                          {skipped,[]},
+                          {failed,[]}]},
+                     {tc_logfile,
+                         "/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_sup_suite.end_per_suite.html"},
+                     {tc_group_properties,[]},
+                     {tc_group_path,[]},
+                     {data_dir,
+                         "/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_sup_SUITE_data/"},
+                     {priv_dir,
+                         "/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private/"}]
+=== 
+=== Total execution time of group: 0.100s
+
+</pre>
+<center>
+<br /><hr /><p>
+<a href="../../../all_runs.html">Test run history
+</a>  |  <a href="../../../index.html">Top level test index
+</a>  |  <a href="../../../suite.log.latest.html">Latest test result</a>
+</p>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:45<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_sup_suite.imap_server_config_test.html Added

@@ -0,0 +1,49 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<title>Test kolab_guam_sup_SUITE:imap_server_config_test result</title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="../../ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="../../jquery-latest.js"></script>
+<script type="text/javascript" src="../../jquery.tablesorter.min.js"></script>
+</head>
+<body>
+
+<a name="top"></a><pre>
+=== Test case: <a href="kolab_guam_sup_suite.src.html#imap_server_config_test-1">kolab_guam_sup_SUITE:imap_server_config_test/1</a> (click for source code)
+
+=== Config value:
+
+    [{watchdog,&lt;0.411.0&gt;},
+     {tc_logfile,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_sup_suite.imap_server_config_test.html"},
+     {tc_group_properties,[]},
+     {tc_group_path,[]},
+     {data_dir,"/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_sup_SUITE_data/"},
+     {priv_dir,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private/"}]
+
+=== Current directory is "/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45"
+
+=== Started at 2021-05-18 09:53:45
+
+<br />
+<a name="end"></a>
+
+
+=== Ended at 2021-05-18 09:53:45
+=== successfully completed test case
+=== === Returned value: ok
+</pre>
+<center>
+<br /><hr /><p>
+<a href="../../../all_runs.html">Test run history
+</a>  |  <a href="../../../index.html">Top level test index
+</a>  |  <a href="../../../suite.log.latest.html">Latest test result</a>
+</p>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:45<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_sup_suite.init_per_suite.html Added

@@ -0,0 +1,53 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<title>Test kolab_guam_sup_SUITE:init_per_suite result</title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="../../ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="../../jquery-latest.js"></script>
+<script type="text/javascript" src="../../jquery.tablesorter.min.js"></script>
+</head>
+<body>
+
+<a name="top"></a><pre>
+=== Config function: <a href="kolab_guam_sup_suite.src.html#init_per_suite-1">kolab_guam_sup_SUITE:init_per_suite/1</a> (click for source code)
+
+=== Config value:
+
+    [{tc_logfile,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_sup_suite.init_per_suite.html"},
+     {tc_group_properties,[]},
+     {tc_group_path,[]},
+     {data_dir,"/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_sup_SUITE_data/"},
+     {priv_dir,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private/"}]
+
+=== Current directory is "/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45"
+
+=== Started at 2021-05-18 09:53:45
+
+<br />
+<a name="end"></a>
+
+
+=== Ended at 2021-05-18 09:53:45
+=== successfully completed test case
+=== === Returned value: [{watchdog,&lt;0.411.0&gt;},
+                     {tc_logfile,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_sup_suite.init_per_suite.html"},
+                     {tc_group_properties,[]},
+                     {tc_group_path,[]},
+                     {data_dir,"/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_sup_SUITE_data/"},
+                     {priv_dir,"/home/mollekopf/src/guam/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private/"}]
+</pre>
+<center>
+<br /><hr /><p>
+<a href="../../../all_runs.html">Test run history
+</a>  |  <a href="../../../index.html">Top level test index
+</a>  |  <a href="../../../suite.log.latest.html">Latest test result</a>
+</p>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:45<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/kolab_guam_sup_suite.src.html Added

@@ -0,0 +1,91 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
+
+<html>
+<head>
+<meta http-equiv="Content-Type" content="text/html;charset=utf-8"/></meta>
+<title>/home/mollekopf/src/guam/_build/test/lib/kolab_guam/test/kolab_guam_sup_SUITE.erl</title>
+</head>
+
+<body bgcolor="white" text="black" link="blue" vlink="purple" alink="red">
+<pre>
+<a name="1"/>    1: <i>%% Copyright 2015 Kolab Systems AG (http://www.kolabsys.com)</i>
+<a name="2"/>    2: <i>%%</i>
+<a name="3"/>    3: <i>%% Aaron Seigo (Kolab Systems) &lt;seigo a kolabsys.com&gt;</i>
+<a name="4"/>    4: <i>%%</i>
+<a name="5"/>    5: <i>%% This program is free software: you can redistribute it and/or modify</i>
+<a name="6"/>    6: <i>%% it under the terms of the GNU General Public License as published by</i>
+<a name="7"/>    7: <i>%% the Free Software Foundation, either version 3 of the License, or</i>
+<a name="8"/>    8: <i>%% (at your option) any later version.</i>
+<a name="9"/>    9: <i>%%</i>
+<a name="10"/>   10: <i>%% This program is distributed in the hope that it will be useful,</i>
+<a name="11"/>   11: <i>%% but WITHOUT ANY WARRANTY; without even the implied warranty of</i>
+<a name="12"/>   12: <i>%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the</i>
+<a name="13"/>   13: <i>%% GNU General Public License for more details.</i>
+<a name="14"/>   14: <i>%%</i>
+<a name="15"/>   15: <i>%% You should have received a copy of the GNU General Public License</i>
+<a name="16"/>   16: <i>%% along with this program.  If not, see &lt;http://www.gnu.org/licenses/&gt;.</i>
+<a name="17"/>   17: 
+<a name="18"/>   18: <b>-module</b>(kolab_guam_sup_SUITE).
+<a name="19"/>   19: 
+<a name="20"/>   20: <i>% easier than exporting by name</i>
+<a name="21"/>   21: <b>-compile</b>(export_all).
+<a name="22"/>   22: 
+<a name="23"/>   23: <i>% required for common_test to work</i>
+<a name="24"/>   24: <b>-include_lib</b>(&quot;common_test/include/ct.hrl&quot;).
+<a name="25"/>   25: 
+<a name="26"/>   26: <i>%%%%%%%%%%%%%%%%%%%%%%%%%%%</i>
+<a name="27"/>   27: <i>%% common test callbacks %%</i>
+<a name="28"/>   28: <i>%%%%%%%%%%%%%%%%%%%%%%%%%%%</i>
+<a name="29"/>   29: 
+<a name="30"/>   30: <i>% Specify a list of all unit test functions</i>
+<a name="all-0"/><a name="all-last_expr"/><a name="31"/>   31: <b>all</b>() -&gt; [default_imap_server_config_test, imap_server_config_test].
+<a name="32"/>   32: 
+<a name="33"/>   33: <i>% required, but can just return Config. this is a suite level setup function.</i>
+<a name="init_per_suite-1"/><a name="34"/>   34: <b>init_per_suite</b>(Config) -&gt;
+<a name="35"/>   35:         application:set_env(kolab_guam, imap_servers, [
+<a name="36"/>   36:                 { default, [
+<a name="37"/>   37:                                 { host, &quot;192.168.56.102&quot; },
+<a name="38"/>   38:                                 { port, 994 },
+<a name="39"/>   39:                                 { tls, true }
+<a name="40"/>   40:                            ]
+<a name="41"/>   41:                 },
+<a name="42"/>   42:                 { test_default, [
+<a name="43"/>   43:                                 { host, &quot;192.168.56.101&quot; },
+<a name="44"/>   44:                                 { port, 993 },
+<a name="45"/>   45:                                 { tls, false }
+<a name="46"/>   46:                            ]
+<a name="47"/>   47:                 }
+<a name="48"/>   48:             ]
+<a name="49"/>   49:         ),
+<a name="init_per_suite-last_expr"/><a name="50"/>   50:         Config.
+<a name="51"/>   51: 
+<a name="52"/>   52: <i>% required, but can just return Config. this is a suite level tear down function.</i>
+<a name="end_per_suite-1"/><a name="53"/>   53: <b>end_per_suite</b>(Config) -&gt;
+<a name="end_per_suite-last_expr"/><a name="54"/>   54:         Config.
+<a name="55"/>   55: 
+<a name="56"/>   56: <i>% optional, can do function level setup for all functions,</i>
+<a name="57"/>   57: <i>% or for individual functions by matching on TestCase.</i>
+<a name="init_per_testcase-2"/><a name="58"/>   58: <b>init_per_testcase</b>(_TestCase, Config) -&gt;
+<a name="init_per_testcase-last_expr"/><a name="59"/>   59:         Config.
+<a name="60"/>   60: 
+<a name="61"/>   61: <i>% optional, can do function level tear down for all functions,</i>
+<a name="62"/>   62: <i>% or for individual functions by matching on TestCase.</i>
+<a name="end_per_testcase-2"/><a name="63"/>   63: <b>end_per_testcase</b>(_TestCase, Config) -&gt;
+<a name="end_per_testcase-last_expr"/><a name="64"/>   64:         Config.
+<a name="65"/>   65: 
+<a name="default_imap_server_config_test-1"/><a name="66"/>   66: <b>default_imap_server_config_test</b>(_TestConfig) -&gt;
+<a name="67"/>   67:     Expected = [ { host, &quot;192.168.56.102&quot; }, { port, 994 }, { tls, true } ],
+<a name="default_imap_server_config_test-last_expr"/><a name="68"/>   68: <b>    Expected = kolab_guam_sup:default_imap_server_config</b>().
+<a name="69"/>   69: 
+<a name="imap_server_config_test-1"/><a name="70"/>   70: <b>imap_server_config_test</b>(_TestConfig) -&gt;
+<a name="71"/>   71:     Configs = [
+<a name="72"/>   72:         {
+<a name="73"/>   73:             test_default,
+<a name="74"/>   74:             [ { host, &quot;192.168.56.101&quot; }, { port, 993 }, { tls, false } ]
+<a name="75"/>   75:         }
+<a name="76"/>   76:     ],
+<a name="imap_server_config_test-last_expr"/><a name="77"/>   77: <b>    lists:foreach</b>(fun({ Config, Record }) -&gt; Record = kolab_guam_sup:imap_server_config(Config) end, Configs).
+<a name="78"/>   78: 
+</pre>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/log_private Added

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/suite.log Added

@@ -0,0 +1,126 @@
+=== Suite started at 2021-05-18 09:53:45
+=== Starting test, 8 test cases
+=cases         8
+=user          mollekopf
+=host          nohost
+=hosts         nohost 
+=emulator_vsn  11.2
+=emulator      beam
+=otp_release   23
+=started       2021-05-18 09:53:45
+=case          kolab_guam_rules_SUITE:init_per_suite
+=logfile       kolab_guam_rules_suite.init_per_suite.html
+=started       2021-05-18 09:53:45
+=ended         2021-05-18 09:53:45
+=result        ok
+=elapsed       0.0
+=case          kolab_guam_rules_SUITE:kolab_guam_rule_filter_groupware_responsefiltering_test
+=logfile       kolab_guam_rules_suite.kolab_guam_rule_filter_groupware_responsefiltering_test.html
+=started       2021-05-18 09:53:45
+=ended         2021-05-18 09:53:45
+=result        ok
+=elapsed       0.004104
+=case          kolab_guam_rules_SUITE:kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test
+=logfile       kolab_guam_rules_suite.kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test.html
+=started       2021-05-18 09:53:45
+=ended         2021-05-18 09:53:45
+=result        ok
+=elapsed       2.95e-4
+=case          kolab_guam_rules_SUITE:kolab_guam_rule_audit_test
+=logfile       kolab_guam_rules_suite.kolab_guam_rule_audit_test.html
+=started       2021-05-18 09:53:45
+=ended         2021-05-18 09:53:45
+=result        failed: {{badmatch,false},
+                        [{kolab_guam_rules_SUITE,kolab_guam_rule_audit_test,
+                             1,
+                             [{file,
+                                  "/home/mollekopf/src/guam/apps/kolab_guam/test/kolab_guam_rules_SUITE.erl"},
+                              {line,250}]},
+                         {test_server,ts_tc,3,
+                             [{file,"test_server.erl"},{line,1784}]},
+                         {test_server,run_test_case_eval1,6,
+                             [{file,"test_server.erl"},{line,1293}]},
+                         {test_server,run_test_case_eval,9,
+                             [{file,"test_server.erl"},{line,1225}]}]}, [{kolab_guam_rules_SUITE,
+                                                                          kolab_guam_rule_audit_test,
+                                                                          250},
+                                                                         {test_server,
+                                                                          ts_tc,
+                                                                          1784},
+                                                                         {test_server,
+                                                                          run_test_case_eval1,
+                                                                          1293},
+                                                                         {test_server,
+                                                                          run_test_case_eval,
+                                                                          1225}]
+=== *** FAILED test case 3 of 8 ***
+=case          kolab_guam_rules_SUITE:end_per_suite
+=logfile       kolab_guam_rules_suite.end_per_suite.html
+=started       2021-05-18 09:53:45
+=ended         2021-05-18 09:53:45
+=result        ok
+=elapsed       0.0
+=group_time    0.106s
+=case          kolab_guam_session_SUITE:init_per_suite
+=logfile       kolab_guam_session_suite.init_per_suite.html
+=started       2021-05-18 09:53:45
+=ended         2021-05-18 09:53:45
+=result        ok
+=elapsed       0.0
+=case          kolab_guam_session_SUITE:kolab_guam_session_test_client
+=logfile       kolab_guam_session_suite.kolab_guam_session_test_client.html
+=started       2021-05-18 09:53:45
+=ended         2021-05-18 09:53:45
+=result        ok
+=elapsed       0.076606
+=case          kolab_guam_session_SUITE:kolab_guam_session_test_server
+=logfile       kolab_guam_session_suite.kolab_guam_session_test_server.html
+=started       2021-05-18 09:53:45
+=ended         2021-05-18 09:53:45
+=result        ok
+=elapsed       2.32e-4
+=case          kolab_guam_session_SUITE:kolab_guam_session_test_client_benchmark
+=logfile       kolab_guam_session_suite.kolab_guam_session_test_client_benchmark.html
+=started       2021-05-18 09:53:45
+=ended         2021-05-18 09:53:45
+=result        ok
+=elapsed       0.001957
+=case          kolab_guam_session_SUITE:end_per_suite
+=logfile       kolab_guam_session_suite.end_per_suite.html
+=started       2021-05-18 09:53:45
+=ended         2021-05-18 09:53:45
+=result        ok
+=elapsed       0.0
+=group_time    0.183s
+=case          kolab_guam_sup_SUITE:init_per_suite
+=logfile       kolab_guam_sup_suite.init_per_suite.html
+=started       2021-05-18 09:53:45
+=ended         2021-05-18 09:53:45
+=result        ok
+=elapsed       2.3e-5
+=case          kolab_guam_sup_SUITE:default_imap_server_config_test
+=logfile       kolab_guam_sup_suite.default_imap_server_config_test.html
+=started       2021-05-18 09:53:45
+=ended         2021-05-18 09:53:45
+=result        ok
+=elapsed       3.2e-5
+=case          kolab_guam_sup_SUITE:imap_server_config_test
+=logfile       kolab_guam_sup_suite.imap_server_config_test.html
+=started       2021-05-18 09:53:45
+=ended         2021-05-18 09:53:45
+=result        ok
+=elapsed       3.5e-5
+=case          kolab_guam_sup_SUITE:end_per_suite
+=logfile       kolab_guam_sup_suite.end_per_suite.html
+=started       2021-05-18 09:53:45
+=ended         2021-05-18 09:53:45
+=result        ok
+=elapsed       2.0e-6
+=group_time    0.100s
+=== TEST COMPLETE, 7 ok, 1 failed of 8 test cases
+
+=finished      2021-05-18 09:53:45
+=failed        1
+=successful    7
+=user_skipped  0
+=auto_skipped  0

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/suite.log.html Added

@@ -0,0 +1,131 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<title>Test lib.kolab_guam results</title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="../../ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="../../jquery-latest.js"></script>
+<script type="text/javascript" src="../../jquery.tablesorter.min.js"></script>
+<script type="text/javascript">
+// Parser for date format, e.g: Wed Jul 4 2012 11:24:15
+var monthNames = {};
+monthNames["Jan"] = "01"; monthNames["Feb"] = "02";
+monthNames["Mar"] = "03"; monthNames["Apr"] = "04";
+monthNames["May"] = "05"; monthNames["Jun"] = "06";
+monthNames["Jul"] = "07"; monthNames["Aug"] = "08";
+monthNames["Sep"] = "09"; monthNames["Oct"] = "10";
+monthNames["Nov"] = "11"; monthNames["Dec"] = "12";
+$.tablesorter.addParser({
+  id: 'CTDateSorter',
+  is: function(s) {
+      return false; },
+  format: function(s) {
+      if (s.length < 2) return 999999999;
+      else {
+          var date = s.match(/(\w{3})\s(\w{3})\s(\d{2})\s(\d{4})\s(\d{2}):(\d{2}):(\d{2})/);
+          var y = date[4]; var mo = monthNames[date[2]]; var d = String(date[3]);
+          var h = String(date[5]); var mi = String(date[6]); var sec = String(date[7]);
+          return (parseInt('' + y + mo + d + h + mi + sec)); }},
+  type: 'numeric' });
+// Parser for general text format
+$.tablesorter.addParser({
+  id: 'CTTextSorter',
+  is: function(s) {
+    return false; },
+  format: function(s) {
+    if (s.length < 1) return 'zzzzzzzz';
+    else if (s == "?") return 'zzzzzzz';
+    else if (s == "-") return 'zzzzzz';
+    else if (s == "FAILED") return 'A';
+    else if (s == "SKIPPED") return 'B';
+    else if (s == "OK") return 'C';
+    else return '' + s; },
+  type: 'text' });
+// Parser for numerical values
+$.tablesorter.addParser({
+  id: 'CTValSorter',
+  is: function(s) {
+    return false; },
+  format: function(s) {
+    if (s.length < 1) return '-2';
+    else if (s == "?") return '-1';
+    else if ((s.search(/(\d{1,})\s/)) >= 0) {
+      var num = s.match(/(\d{1,})\s/);
+      return (parseInt('' + num[1])); }
+    else if ((s.search(/(\d{1,})\.(\d{3})s/)) >= 0) {
+      var num = s.match(/(\d{1,})\.(\d{3})/);
+      if (num[1] == "0") return (parseInt('' + num[2]));
+      else return (parseInt('' + num[1] + num[2])); }
+    else return '' + s; },
+  type: 'numeric' });
+$(document).ready(function() {
+  $("#SortableTable").tablesorter({
+    headers: { 
+      0: { sorter: 'CTValSorter' },
+      1: { sorter: 'CTTextSorter' },
+      2: { sorter: 'CTTextSorter' },
+      3: { sorter: 'CTTextSorter' },
+      5: { sorter: 'CTValSorter' },
+      6: { sorter: 'CTTextSorter' },
+      7: { sorter: 'CTTextSorter' }
+    }
+  });
+  $("#SortableTable").trigger("update");
+  $("#SortableTable").trigger("appendCache");
+});
+</script>
+</head>
+<body>
+
+<h1>Results for <i>lib.kolab_guam</i></h1>
+<h4>Test started at 2021-05-18 09:53:45</h4>
+<p><b>Host info:</b><br />
+Run by mollekopf on nohost<br />Used Erlang v11.2 in "/usr/lib64/erlang"</p>
+<p><ul>
+<li><a href="suite.log">Full textual log</a></li>
+<li><a href="cover.html">Coverage log</a></li>
+<li><a href="unexpected_io.log.html">Unexpected I/O log</a></li>
+</ul></p>
+<p><i>Executing <b>8</b> test cases...</i>
+<br />
+</p>
+<table id="SortableTable">
+<thead>
+<tr><th>Num</th><th>Module</th><th>Group</th><th>Case</th><th>Log</th><th>Time</th><th>Result</th><th>Comment</th></tr>
+</thead>
+<tbody>
+<tr class="odd"><td><font color="black"></font></td><td><font color="black">kolab_guam_rules_SUITE</font></td><td><font color="black"></font></td><td><a href="kolab_guam_rules_suite.init_per_suite.html">init_per_suite</a></td><td><a href="kolab_guam_rules_suite.init_per_suite.html#top">&lt;</a> <a href="kolab_guam_rules_suite.init_per_suite.html#end">&gt;</a></td><td><font color="black">0.000s</font></td><td><font color="green">Ok</font></td><td></td></tr>
+<tr class="even"><td><font color="black">1</font></td><td><font color="black">kolab_guam_rules_SUITE</font></td><td><font color="black"></font></td><td><a href="kolab_guam_rules_suite.kolab_guam_rule_filter_groupware_responsefiltering_test.html">kolab_guam_rule_filter_groupware_responsefiltering_test</a></td><td><a href="kolab_guam_rules_suite.kolab_guam_rule_filter_groupware_responsefiltering_test.html#top">&lt;</a> <a href="kolab_guam_rules_suite.kolab_guam_rule_filter_groupware_responsefiltering_test.html#end">&gt;</a></td><td><font color="black">0.004s</font></td><td><font color="green">Ok</font></td><td></td></tr>
+<tr class="odd"><td><font color="black">2</font></td><td><font color="black">kolab_guam_rules_SUITE</font></td><td><font color="black"></font></td><td><a href="kolab_guam_rules_suite.kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test.html">kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test</a></td><td><a href="kolab_guam_rules_suite.kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test.html#top">&lt;</a> <a href="kolab_guam_rules_suite.kolab_guam_rule_filter_groupware_responsefiltering_multipacket_test.html#end">&gt;</a></td><td><font color="black">0.000s</font></td><td><font color="green">Ok</font></td><td></td></tr>
+<tr class="even"><td><font color="black">3</font></td><td><font color="black">kolab_guam_rules_SUITE</font></td><td><font color="black"></font></td><td><a href="kolab_guam_rules_suite.kolab_guam_rule_audit_test.html">kolab_guam_rule_audit_test</a></td><td><a href="kolab_guam_rules_suite.kolab_guam_rule_audit_test.html#top">&lt;</a> <a href="kolab_guam_rules_suite.kolab_guam_rule_audit_test.html#end">&gt;</a></td><td><font color="black">0.001s</font></td><td><font color="red">FAILED</font></td><td><font color="red">{kolab_guam_rules_SUITE,kolab_guam_rule_audit_test,<a href="kolab_guam_rules_suite.src.html#250">250</a>}</font><br /><font color="green"><font color="brown">{badmatch,false}</font></font></td></tr>
+<tr class="odd"><td><font color="black"></font></td><td><font color="black">kolab_guam_rules_SUITE</font></td><td><font color="black"></font></td><td><a href="kolab_guam_rules_suite.end_per_suite.html">end_per_suite</a></td><td><a href="kolab_guam_rules_suite.end_per_suite.html#top">&lt;</a> <a href="kolab_guam_rules_suite.end_per_suite.html#end">&gt;</a></td><td><font color="black">0.000s</font></td><td><font color="green">Ok</font></td><td></td></tr>
+<tr class="even"><td><font color="black"></font></td><td><font color="black">kolab_guam_session_SUITE</font></td><td><font color="black"></font></td><td><a href="kolab_guam_session_suite.init_per_suite.html">init_per_suite</a></td><td><a href="kolab_guam_session_suite.init_per_suite.html#top">&lt;</a> <a href="kolab_guam_session_suite.init_per_suite.html#end">&gt;</a></td><td><font color="black">0.000s</font></td><td><font color="green">Ok</font></td><td></td></tr>
+<tr class="odd"><td><font color="black">4</font></td><td><font color="black">kolab_guam_session_SUITE</font></td><td><font color="black"></font></td><td><a href="kolab_guam_session_suite.kolab_guam_session_test_client.html">kolab_guam_session_test_client</a></td><td><a href="kolab_guam_session_suite.kolab_guam_session_test_client.html#top">&lt;</a> <a href="kolab_guam_session_suite.kolab_guam_session_test_client.html#end">&gt;</a></td><td><font color="black">0.077s</font></td><td><font color="green">Ok</font></td><td></td></tr>
+<tr class="even"><td><font color="black">5</font></td><td><font color="black">kolab_guam_session_SUITE</font></td><td><font color="black"></font></td><td><a href="kolab_guam_session_suite.kolab_guam_session_test_server.html">kolab_guam_session_test_server</a></td><td><a href="kolab_guam_session_suite.kolab_guam_session_test_server.html#top">&lt;</a> <a href="kolab_guam_session_suite.kolab_guam_session_test_server.html#end">&gt;</a></td><td><font color="black">0.000s</font></td><td><font color="green">Ok</font></td><td></td></tr>
+<tr class="odd"><td><font color="black">6</font></td><td><font color="black">kolab_guam_session_SUITE</font></td><td><font color="black"></font></td><td><a href="kolab_guam_session_suite.kolab_guam_session_test_client_benchmark.html">kolab_guam_session_test_client_benchmark</a></td><td><a href="kolab_guam_session_suite.kolab_guam_session_test_client_benchmark.html#top">&lt;</a> <a href="kolab_guam_session_suite.kolab_guam_session_test_client_benchmark.html#end">&gt;</a></td><td><font color="black">0.002s</font></td><td><font color="green">Ok</font></td><td></td></tr>
+<tr class="even"><td><font color="black"></font></td><td><font color="black">kolab_guam_session_SUITE</font></td><td><font color="black"></font></td><td><a href="kolab_guam_session_suite.end_per_suite.html">end_per_suite</a></td><td><a href="kolab_guam_session_suite.end_per_suite.html#top">&lt;</a> <a href="kolab_guam_session_suite.end_per_suite.html#end">&gt;</a></td><td><font color="black">0.000s</font></td><td><font color="green">Ok</font></td><td></td></tr>
+<tr class="odd"><td><font color="black"></font></td><td><font color="black">kolab_guam_sup_SUITE</font></td><td><font color="black"></font></td><td><a href="kolab_guam_sup_suite.init_per_suite.html">init_per_suite</a></td><td><a href="kolab_guam_sup_suite.init_per_suite.html#top">&lt;</a> <a href="kolab_guam_sup_suite.init_per_suite.html#end">&gt;</a></td><td><font color="black">0.000s</font></td><td><font color="green">Ok</font></td><td></td></tr>
+<tr class="even"><td><font color="black">7</font></td><td><font color="black">kolab_guam_sup_SUITE</font></td><td><font color="black"></font></td><td><a href="kolab_guam_sup_suite.default_imap_server_config_test.html">default_imap_server_config_test</a></td><td><a href="kolab_guam_sup_suite.default_imap_server_config_test.html#top">&lt;</a> <a href="kolab_guam_sup_suite.default_imap_server_config_test.html#end">&gt;</a></td><td><font color="black">0.000s</font></td><td><font color="green">Ok</font></td><td></td></tr>
+<tr class="odd"><td><font color="black">8</font></td><td><font color="black">kolab_guam_sup_SUITE</font></td><td><font color="black"></font></td><td><a href="kolab_guam_sup_suite.imap_server_config_test.html">imap_server_config_test</a></td><td><a href="kolab_guam_sup_suite.imap_server_config_test.html#top">&lt;</a> <a href="kolab_guam_sup_suite.imap_server_config_test.html#end">&gt;</a></td><td><font color="black">0.000s</font></td><td><font color="green">Ok</font></td><td></td></tr>
+<tr class="even"><td><font color="black"></font></td><td><font color="black">kolab_guam_sup_SUITE</font></td><td><font color="black"></font></td><td><a href="kolab_guam_sup_suite.end_per_suite.html">end_per_suite</a></td><td><a href="kolab_guam_sup_suite.end_per_suite.html#top">&lt;</a> <a href="kolab_guam_sup_suite.end_per_suite.html#end">&gt;</a></td><td><font color="black">0.000s</font></td><td><font color="green">Ok</font></td><td></td></tr>
+
+</tbody>
+<tfoot>
+<tr><td></td><td><b>TOTAL</b></td><td></td><td></td><td></td><td>0.535s</td><td><b>FAILED</b></td><td>7 Ok, 1 Failed of 8</td></tr>
+</tfoot>
+
+</table>
+<center>
+<br /><hr /><p>
+<a href="../../../all_runs.html">Test run history
+</a>  |  <a href="../../../index.html">Top level test index
+</a>  |  <a href="../../../suite.log.latest.html">Latest test result</a>
+</p>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:45<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/suite.summary Added

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/unexpected_io.log.html Added

@@ -0,0 +1,30 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<title>Unexpected I/O log</title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="../../ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="../../jquery-latest.js"></script>
+<script type="text/javascript" src="../../jquery.tablesorter.min.js"></script>
+</head>
+<body>
+
+<br />
+<h3>Unexpected I/O</h3>
+<pre>
+
+</pre>
+<center>
+<br /><hr /><p>
+<a href="../../../all_runs.html">Test run history
+</a>  |  <a href="../../../index.html">Top level test index
+</a>  |  <a href="../../../suite.log.latest.html">Latest test result</a>
+</p>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:45<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/log Added

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/log/console.log Added

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/log/crash.log Added

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/log/error.log Added

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/misc_io.log.html Added

@@ -0,0 +1,37 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+<title>Pre/post-test I/O log</title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="/home/mollekopf/src/guam/log/ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="/home/mollekopf/src/guam/log/jquery-latest.js"></script>
+<script type="text/javascript" src="/home/mollekopf/src/guam/log/jquery.tablesorter.min.js"></script>
+</head>
+<body>
+
+<a name="pretest"></a>
+<br />
+<h3>PRE-TEST LOG</h3>
+<pre>
+
+<a name="posttest"></a>
+</pre>
+<br />
+<h3>POST-TEST LOG</h3>
+<pre>
+
+</pre>
+<center>
+<br /><hr /><p>
+<a href="../all_runs.html">Test run history
+</a>  |  <a href="../index.html">Top level test index
+</a>  |  <a href="../suite.log.latest.html">Latest test result</a>
+</p>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:45<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/ct_run.nonode@nohost.2021-05-18_09.53.45/totals.info Added

guam-0.9.11.tar.gz/log/error.log Added

@@ -0,0 +1,27 @@
+2021-06-06 01:03:16.836 [error] <0.311.0>@kolab_guam_session:accept_client:183 gen_server <0.311.0> terminated with reason: no case clause matching {error,{options,{dhfile,"/etc/guam/dh_2048.pem",{error,enoent}}}} in kolab_guam_session:accept_client/1 line 183
+2021-06-06 01:03:16.836 [error] <0.311.0>@kolab_guam_session:accept_client:183 CRASH REPORT Process <0.311.0> with 0 neighbours crashed with reason: no case clause matching {error,{options,{dhfile,"/etc/guam/dh_2048.pem",{error,enoent}}}} in kolab_guam_session:accept_client/1 line 183
+2021-06-06 01:03:16.836 [error] <0.303.0>@kolab_guam_session:accept_client:183 Supervisor {<0.303.0>,kolab_guam_listener} had child session started with {kolab_guam_session,start_link,undefined} at <0.311.0> exit with reason no case clause matching {error,{options,{dhfile,"/etc/guam/dh_2048.pem",{error,enoent}}}} in kolab_guam_session:accept_client/1 line 183 in context child_terminated
+2021-06-06 01:35:19.740 [error] <0.344.0>@prim_inet:peername gen_server <0.344.0> terminated with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.50>,tls_connection,[{session_id_tracker,<0.361.0>}]},[<0.381.0>,<0.380.0>]})
+2021-06-06 01:35:19.741 [error] <0.344.0>@prim_inet:peername CRASH REPORT Process <0.344.0> with 0 neighbours crashed with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.50>,tls_connection,[{session_id_tracker,<0.361.0>}]},[<0.381.0>,<0.380.0>]})
+2021-06-06 01:35:19.742 [error] <0.303.0>@prim_inet:peername Supervisor {<0.303.0>,kolab_guam_listener} had child session started with {kolab_guam_session,start_link,undefined} at <0.344.0> exit with reason no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.50>,tls_connection,[{session_id_tracker,<0.361.0>}]},[<0.381.0>,<0.380.0>]}) in context child_terminated
+2021-06-06 01:37:11.486 [error] <0.356.0>@prim_inet:peername gen_server <0.356.0> terminated with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.374.0>,<0.373.0>]})
+2021-06-06 01:37:11.486 [error] <0.356.0>@prim_inet:peername CRASH REPORT Process <0.356.0> with 0 neighbours crashed with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.374.0>,<0.373.0>]})
+2021-06-06 01:37:11.487 [error] <0.311.0>@prim_inet:peername Supervisor {<0.311.0>,kolab_guam_listener} had child session started with {kolab_guam_session,start_link,undefined} at <0.356.0> exit with reason no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.374.0>,<0.373.0>]}) in context child_terminated
+2021-06-06 01:37:26.008 [error] <0.311.0>@prim_inet:peername gen_server <0.311.0> terminated with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.359.0>}]},[<0.361.0>,<0.360.0>]})
+2021-06-06 01:37:26.009 [error] <0.311.0>@prim_inet:peername CRASH REPORT Process <0.311.0> with 0 neighbours crashed with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.359.0>}]},[<0.361.0>,<0.360.0>]})
+2021-06-06 01:37:26.009 [error] <0.303.0>@prim_inet:peername Supervisor {<0.303.0>,kolab_guam_listener} had child session started with {kolab_guam_session,start_link,undefined} at <0.311.0> exit with reason no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.46>,tls_connection,[{session_id_tracker,<0.359.0>}]},[<0.361.0>,<0.360.0>]}) in context child_terminated
+2021-06-06 01:53:37.287 [error] <0.319.0>@prim_inet:peername gen_server <0.319.0> terminated with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]})
+2021-06-06 01:53:37.288 [error] <0.319.0>@prim_inet:peername CRASH REPORT Process <0.319.0> with 0 neighbours crashed with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]})
+2021-06-06 01:53:37.289 [error] <0.311.0>@prim_inet:peername Supervisor {<0.311.0>,kolab_guam_listener} had child session started with {kolab_guam_session,start_link,undefined} at <0.319.0> exit with reason no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]}) in context child_terminated
+2021-06-06 01:56:33.668 [error] <0.319.0>@prim_inet:peername gen_server <0.319.0> terminated with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]})
+2021-06-06 01:56:33.669 [error] <0.319.0>@prim_inet:peername CRASH REPORT Process <0.319.0> with 0 neighbours crashed with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]})
+2021-06-06 01:56:33.669 [error] <0.311.0>@prim_inet:peername Supervisor {<0.311.0>,kolab_guam_listener} had child session started with {kolab_guam_session,start_link,undefined} at <0.319.0> exit with reason no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.45>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.369.0>,<0.368.0>]}) in context child_terminated
+2021-06-06 01:57:06.958 [error] <0.356.0>@prim_inet:peername gen_server <0.356.0> terminated with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.48>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.381.0>,<0.380.0>]})
+2021-06-06 01:57:06.958 [error] <0.356.0>@prim_inet:peername CRASH REPORT Process <0.356.0> with 0 neighbours crashed with reason: no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.48>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.381.0>,<0.380.0>]})
+2021-06-06 01:57:06.959 [error] <0.311.0>@prim_inet:peername Supervisor {<0.311.0>,kolab_guam_listener} had child session started with {kolab_guam_session,start_link,undefined} at <0.356.0> exit with reason no function clause matching prim_inet:peername({sslsocket,{gen_tcp,#Port<0.48>,tls_connection,[{session_id_tracker,<0.367.0>}]},[<0.381.0>,<0.380.0>]}) in context child_terminated
+2021-06-06 02:08:07.790 [error] <0.319.0>@lists:nth:170 gen_server <0.319.0> terminated with reason: no function clause matching lists:nth(2, []) line 170
+2021-06-06 02:08:07.791 [error] <0.319.0>@lists:nth:170 CRASH REPORT Process <0.319.0> with 0 neighbours crashed with reason: no function clause matching lists:nth(2, []) line 170
+2021-06-06 02:08:07.791 [error] <0.311.0>@lists:nth:170 Supervisor {<0.311.0>,kolab_guam_listener} had child session started with {kolab_guam_session,start_link,undefined} at <0.319.0> exit with reason no function clause matching lists:nth(2, []) line 170 in context child_terminated
+2021-06-06 13:04:34.775 [error] <0.316.0>@kolab_guam_session:accept_client:183 gen_server <0.316.0> terminated with reason: no case clause matching {error,{options,{keyfile,"/home/mollekopf/src/guam/certs/localhost.cert",[]}}} in kolab_guam_session:accept_client/1 line 183
+2021-06-06 13:04:34.775 [error] <0.316.0>@kolab_guam_session:accept_client:183 CRASH REPORT Process <0.316.0> with 0 neighbours crashed with reason: no case clause matching {error,{options,{keyfile,"/home/mollekopf/src/guam/certs/localhost.cert",[]}}} in kolab_guam_session:accept_client/1 line 183
+2021-06-06 13:04:34.775 [error] <0.311.0>@kolab_guam_session:accept_client:183 Supervisor {<0.311.0>,kolab_guam_listener} had child session started with {kolab_guam_session,start_link,undefined} at <0.316.0> exit with reason no case clause matching {error,{options,{keyfile,"/home/mollekopf/src/guam/certs/localhost.cert",[]}}} in kolab_guam_session:accept_client/1 line 183 in context child_terminated

guam-0.9.11.tar.gz/log/error.log.0 Added

guam-0.9.11.tar.gz/log/error.log.1 Added

guam-0.9.11.tar.gz/log/error.log.2 Added

guam-0.9.11.tar.gz/log/error.log.3 Added

guam-0.9.11.tar.gz/log/error.log.4 Added

guam-0.9.11.tar.gz/log/index.html Added

@@ -0,0 +1,145 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+
+<head>
+<title>Test Results </title>
+<meta http-equiv="cache-control" content="no-cache"></meta>
+<meta http-equiv="content-type" content="text/html; charset=utf-8"></meta>
+<link rel="stylesheet" href="ct_default.css" type="text/css"></link>
+<script type="text/javascript" src="jquery-latest.js"></script>
+<script type="text/javascript" src="jquery.tablesorter.min.js"></script>
+<script type="text/javascript">
+// Parser for date format, e.g: Wed Jul 4 2012 11:24:15
+var monthNames = {};
+monthNames["Jan"] = "01"; monthNames["Feb"] = "02";
+monthNames["Mar"] = "03"; monthNames["Apr"] = "04";
+monthNames["May"] = "05"; monthNames["Jun"] = "06";
+monthNames["Jul"] = "07"; monthNames["Aug"] = "08";
+monthNames["Sep"] = "09"; monthNames["Oct"] = "10";
+monthNames["Nov"] = "11"; monthNames["Dec"] = "12";
+$.tablesorter.addParser({
+  id: 'CTDateSorter',
+  is: function(s) {
+      return false; },
+  format: function(s) {
+      if (s.length < 2) return 999999999;
+      else {
+          var date = s.match(/(\w{3})\s(\w{3})\s(\d{2})\s(\d{4})\s(\d{2}):(\d{2}):(\d{2})/);
+          var y = date[4]; var mo = monthNames[date[2]]; var d = String(date[3]);
+          var h = String(date[5]); var mi = String(date[6]); var sec = String(date[7]);
+          return (parseInt('' + y + mo + d + h + mi + sec)); }},
+  type: 'numeric' });
+// Parser for general text format
+$.tablesorter.addParser({
+  id: 'CTTextSorter',
+  is: function(s) {
+    return false; },
+  format: function(s) {
+    if (s.length < 1) return 'zzzzzzzz';
+    else if (s == "?") return 'zzzzzzz';
+    else if (s == "-") return 'zzzzzz';
+    else if (s == "FAILED") return 'A';
+    else if (s == "SKIPPED") return 'B';
+    else if (s == "OK") return 'C';
+    else return '' + s; },
+  type: 'text' });
+// Parser for numerical values
+$.tablesorter.addParser({
+  id: 'CTValSorter',
+  is: function(s) {
+    return false; },
+  format: function(s) {
+    if (s.length < 1) return '-2';
+    else if (s == "?") return '-1';
+    else if ((s.search(/(\d{1,})\s/)) >= 0) {
+      var num = s.match(/(\d{1,})\s/);
+      return (parseInt('' + num[1])); }
+    else if ((s.search(/(\d{1,})\.(\d{3})s/)) >= 0) {
+      var num = s.match(/(\d{1,})\.(\d{3})/);
+      if (num[1] == "0") return (parseInt('' + num[2]));
+      else return (parseInt('' + num[1] + num[2])); }
+    else return '' + s; },
+  type: 'numeric' });
+$(document).ready(function() {
+  $("#SortableTable").tablesorter({
+    headers: { 
+      0: { sorter: 'CTTextSorter' },
+      1: { sorter: 'CTTextSorter' },
+      2: { sorter: 'CTDateSorter' },
+      3: { sorter: 'CTValSorter' },
+      4: { sorter: 'CTValSorter' },
+      5: { sorter: 'CTValSorter' },
+      6: { sorter: 'CTValSorter' },
+      7: { sorter: 'CTTextSorter' },
+      8: { sorter: 'CTTextSorter' },
+      9: { sorter: 'CTTextSorter' }
+    }
+  });
+  $("#SortableTable").trigger("update");
+  $("#SortableTable").trigger("appendCache");
+});
+</script>
+</head>
+<body>
+<center>
+<h1>Test Results</h1>
+</center>
+<br />
+<center>
+<div id="button_holder" class="btn">
+<a href="all_runs.html">ALL RUNS</a>
+</div><br /><br />
+<table id="SortableTable">
+<thead>
+<tr>
+<th>Test Name</th>
+<th>Label</th>
+<th>Test Run Started</th>
+<th>Ok</th>
+<th>Failed</th>
+<th>Skipped<br>(User/Auto)</th>
+<th>Missing<br>Suites</th>
+<th>Node</th>
+<th>CT Log</th>
+<th>Old Runs</th>
+</tr>
+</thead>
+<tbody>
+<tr class="odd">
+<td><a href="ct_run.nonode@nohost.2021-05-18_09.53.45/lib.kolab_guam.logs/run.2021-05-18_09.53.45/suite.log.html">lib.kolab_guam</a></td>
+<td align=center><b>-</b></td>
+<td>Tue May 18 2021 09:53:45</td>
+<td align=right>7</td>
+<td align=right><font color="red">1</font></td>
+<td align=right>0 (0/0)</td>
+<td align=right>0</td>
+<td align=right>nonode@nohost</td>
+<td><a href="ct_run.nonode@nohost.2021-05-18_09.53.45/ctlog.html">CT Log</a></td>
+<td>none</td>
+</tr>
+</tbody>
+<tfoot>
+<tr class="even">
+<td><b>Total</b></td>
+<td>&nbsp;</td>
+<td>&nbsp;</td>
+<td align=right><b>7</b></td>
+<td align=right><b>1</b></td>
+<td align=right>0 (0/0)</td>
+<td align=right><b>0</b></td>
+<td>&nbsp;</td>
+<td>&nbsp;</td>
+<td>&nbsp;</td>
+</tr>
+</tfoot>
+</table>
+</center>
+<br /><br />
+<center>
+<div class="copyright">Copyright &copy; 2021 <a href="http://www.erlang.org">Open Telecom Platform</a><br />
+Updated: Tue May 18 2021 09:53:46<br />
+</div>
+</center>
+</body>
+</html>

guam-0.9.11.tar.gz/log/jquery-latest.js Added

@@ -0,0 +1,154 @@
+/*!
+ * jQuery JavaScript Library v1.4.2
+ * http://jquery.com/
+ *
+ * Copyright 2010, John Resig
+ * Dual licensed under the MIT or GPL Version 2 licenses.
+ * http://jquery.org/license
+ *
+ * Includes Sizzle.js
+ * http://sizzlejs.com/
+ * Copyright 2010, The Dojo Foundation
+ * Released under the MIT, BSD, and GPL Licenses.
+ *
+ * Date: Sat Feb 13 22:33:48 2010 -0500
+ */
+(function(A,w){function ma(){if(!c.isReady){try{s.documentElement.doScroll("left")}catch(a){setTimeout(ma,1);return}c.ready()}}function Qa(a,b){b.src?c.ajax({url:b.src,async:false,dataType:"script"}):c.globalEval(b.text||b.textContent||b.innerHTML||"");b.parentNode&&b.parentNode.removeChild(b)}function X(a,b,d,f,e,j){var i=a.length;if(typeof b==="object"){for(var o in b)X(a,o,b[o],f,e,d);return a}if(d!==w){f=!j&&f&&c.isFunction(d);for(o=0;o<i;o++)e(a[o],b,f?d.call(a[o],o,e(a[o],b)):d,j);return a}return i?
+e(a[0],b):w}function J(){return(new Date).getTime()}function Y(){return false}function Z(){return true}function na(a,b,d){d[0].type=a;return c.event.handle.apply(b,d)}function oa(a){var b,d=[],f=[],e=arguments,j,i,o,k,n,r;i=c.data(this,"events");if(!(a.liveFired===this||!i||!i.live||a.button&&a.type==="click")){a.liveFired=this;var u=i.live.slice(0);for(k=0;k<u.length;k++){i=u[k];i.origType.replace(O,"")===a.type?f.push(i.selector):u.splice(k--,1)}j=c(a.target).closest(f,a.currentTarget);n=0;for(r=
+j.length;n<r;n++)for(k=0;k<u.length;k++){i=u[k];if(j[n].selector===i.selector){o=j[n].elem;f=null;if(i.preType==="mouseenter"||i.preType==="mouseleave")f=c(a.relatedTarget).closest(i.selector)[0];if(!f||f!==o)d.push({elem:o,handleObj:i})}}n=0;for(r=d.length;n<r;n++){j=d[n];a.currentTarget=j.elem;a.data=j.handleObj.data;a.handleObj=j.handleObj;if(j.handleObj.origHandler.apply(j.elem,e)===false){b=false;break}}return b}}function pa(a,b){return"live."+(a&&a!=="*"?a+".":"")+b.replace(/\./g,"`").replace(/ /g,
+"&")}function qa(a){return!a||!a.parentNode||a.parentNode.nodeType===11}function ra(a,b){var d=0;b.each(function(){if(this.nodeName===(a[d]&&a[d].nodeName)){var f=c.data(a[d++]),e=c.data(this,f);if(f=f&&f.events){delete e.handle;e.events={};for(var j in f)for(var i in f[j])c.event.add(this,j,f[j][i],f[j][i].data)}}})}function sa(a,b,d){var f,e,j;b=b&&b[0]?b[0].ownerDocument||b[0]:s;if(a.length===1&&typeof a[0]==="string"&&a[0].length<512&&b===s&&!ta.test(a[0])&&(c.support.checkClone||!ua.test(a[0]))){e=
+true;if(j=c.fragments[a[0]])if(j!==1)f=j}if(!f){f=b.createDocumentFragment();c.clean(a,b,f,d)}if(e)c.fragments[a[0]]=j?f:1;return{fragment:f,cacheable:e}}function K(a,b){var d={};c.each(va.concat.apply([],va.slice(0,b)),function(){d[this]=a});return d}function wa(a){return"scrollTo"in a&&a.document?a:a.nodeType===9?a.defaultView||a.parentWindow:false}var c=function(a,b){return new c.fn.init(a,b)},Ra=A.jQuery,Sa=A.$,s=A.document,T,Ta=/^[^<]*(<[\w\W]+>)[^>]*$|^#([\w-]+)$/,Ua=/^.[^:#\[\.,]*$/,Va=/\S/,
+Wa=/^(\s|\u00A0)+|(\s|\u00A0)+$/g,Xa=/^<(\w+)\s*\/?>(?:<\/\1>)?$/,P=navigator.userAgent,xa=false,Q=[],L,$=Object.prototype.toString,aa=Object.prototype.hasOwnProperty,ba=Array.prototype.push,R=Array.prototype.slice,ya=Array.prototype.indexOf;c.fn=c.prototype={init:function(a,b){var d,f;if(!a)return this;if(a.nodeType){this.context=this[0]=a;this.length=1;return this}if(a==="body"&&!b){this.context=s;this[0]=s.body;this.selector="body";this.length=1;return this}if(typeof a==="string")if((d=Ta.exec(a))&&
+(d[1]||!b))if(d[1]){f=b?b.ownerDocument||b:s;if(a=Xa.exec(a))if(c.isPlainObject(b)){a=[s.createElement(a[1])];c.fn.attr.call(a,b,true)}else a=[f.createElement(a[1])];else{a=sa([d[1]],[f]);a=(a.cacheable?a.fragment.cloneNode(true):a.fragment).childNodes}return c.merge(this,a)}else{if(b=s.getElementById(d[2])){if(b.id!==d[2])return T.find(a);this.length=1;this[0]=b}this.context=s;this.selector=a;return this}else if(!b&&/^\w+$/.test(a)){this.selector=a;this.context=s;a=s.getElementsByTagName(a);return c.merge(this,
+a)}else return!b||b.jquery?(b||T).find(a):c(b).find(a);else if(c.isFunction(a))return T.ready(a);if(a.selector!==w){this.selector=a.selector;this.context=a.context}return c.makeArray(a,this)},selector:"",jquery:"1.4.2",length:0,size:function(){return this.length},toArray:function(){return R.call(this,0)},get:function(a){return a==null?this.toArray():a<0?this.slice(a)[0]:this[a]},pushStack:function(a,b,d){var f=c();c.isArray(a)?ba.apply(f,a):c.merge(f,a);f.prevObject=this;f.context=this.context;if(b===
+"find")f.selector=this.selector+(this.selector?" ":"")+d;else if(b)f.selector=this.selector+"."+b+"("+d+")";return f},each:function(a,b){return c.each(this,a,b)},ready:function(a){c.bindReady();if(c.isReady)a.call(s,c);else Q&&Q.push(a);return this},eq:function(a){return a===-1?this.slice(a):this.slice(a,+a+1)},first:function(){return this.eq(0)},last:function(){return this.eq(-1)},slice:function(){return this.pushStack(R.apply(this,arguments),"slice",R.call(arguments).join(","))},map:function(a){return this.pushStack(c.map(this,
+function(b,d){return a.call(b,d,b)}))},end:function(){return this.prevObject||c(null)},push:ba,sort:[].sort,splice:[].splice};c.fn.init.prototype=c.fn;c.extend=c.fn.extend=function(){var a=arguments[0]||{},b=1,d=arguments.length,f=false,e,j,i,o;if(typeof a==="boolean"){f=a;a=arguments[1]||{};b=2}if(typeof a!=="object"&&!c.isFunction(a))a={};if(d===b){a=this;--b}for(;b<d;b++)if((e=arguments[b])!=null)for(j in e){i=a[j];o=e[j];if(a!==o)if(f&&o&&(c.isPlainObject(o)||c.isArray(o))){i=i&&(c.isPlainObject(i)||
+c.isArray(i))?i:c.isArray(o)?[]:{};a[j]=c.extend(f,i,o)}else if(o!==w)a[j]=o}return a};c.extend({noConflict:function(a){A.$=Sa;if(a)A.jQuery=Ra;return c},isReady:false,ready:function(){if(!c.isReady){if(!s.body)return setTimeout(c.ready,13);c.isReady=true;if(Q){for(var a,b=0;a=Q[b++];)a.call(s,c);Q=null}c.fn.triggerHandler&&c(s).triggerHandler("ready")}},bindReady:function(){if(!xa){xa=true;if(s.readyState==="complete")return c.ready();if(s.addEventListener){s.addEventListener("DOMContentLoaded",
+L,false);A.addEventListener("load",c.ready,false)}else if(s.attachEvent){s.attachEvent("onreadystatechange",L);A.attachEvent("onload",c.ready);var a=false;try{a=A.frameElement==null}catch(b){}s.documentElement.doScroll&&a&&ma()}}},isFunction:function(a){return $.call(a)==="[object Function]"},isArray:function(a){return $.call(a)==="[object Array]"},isPlainObject:function(a){if(!a||$.call(a)!=="[object Object]"||a.nodeType||a.setInterval)return false;if(a.constructor&&!aa.call(a,"constructor")&&!aa.call(a.constructor.prototype,
+"isPrototypeOf"))return false;var b;for(b in a);return b===w||aa.call(a,b)},isEmptyObject:function(a){for(var b in a)return false;return true},error:function(a){throw a;},parseJSON:function(a){if(typeof a!=="string"||!a)return null;a=c.trim(a);if(/^[\],:{}\s]*$/.test(a.replace(/\\(?:["\\\/bfnrt]|u[0-9a-fA-F]{4})/g,"@").replace(/"[^"\\\n\r]*"|true|false|null|-?\d+(?:\.\d*)?(?:[eE][+\-]?\d+)?/g,"]").replace(/(?:^|:|,)(?:\s*\[)+/g,"")))return A.JSON&&A.JSON.parse?A.JSON.parse(a):(new Function("return "+
+a))();else c.error("Invalid JSON: "+a)},noop:function(){},globalEval:function(a){if(a&&Va.test(a)){var b=s.getElementsByTagName("head")[0]||s.documentElement,d=s.createElement("script");d.type="text/javascript";if(c.support.scriptEval)d.appendChild(s.createTextNode(a));else d.text=a;b.insertBefore(d,b.firstChild);b.removeChild(d)}},nodeName:function(a,b){return a.nodeName&&a.nodeName.toUpperCase()===b.toUpperCase()},each:function(a,b,d){var f,e=0,j=a.length,i=j===w||c.isFunction(a);if(d)if(i)for(f in a){if(b.apply(a[f],
+d)===false)break}else for(;e<j;){if(b.apply(a[e++],d)===false)break}else if(i)for(f in a){if(b.call(a[f],f,a[f])===false)break}else for(d=a[0];e<j&&b.call(d,e,d)!==false;d=a[++e]);return a},trim:function(a){return(a||"").replace(Wa,"")},makeArray:function(a,b){b=b||[];if(a!=null)a.length==null||typeof a==="string"||c.isFunction(a)||typeof a!=="function"&&a.setInterval?ba.call(b,a):c.merge(b,a);return b},inArray:function(a,b){if(b.indexOf)return b.indexOf(a);for(var d=0,f=b.length;d<f;d++)if(b[d]===
+a)return d;return-1},merge:function(a,b){var d=a.length,f=0;if(typeof b.length==="number")for(var e=b.length;f<e;f++)a[d++]=b[f];else for(;b[f]!==w;)a[d++]=b[f++];a.length=d;return a},grep:function(a,b,d){for(var f=[],e=0,j=a.length;e<j;e++)!d!==!b(a[e],e)&&f.push(a[e]);return f},map:function(a,b,d){for(var f=[],e,j=0,i=a.length;j<i;j++){e=b(a[j],j,d);if(e!=null)f[f.length]=e}return f.concat.apply([],f)},guid:1,proxy:function(a,b,d){if(arguments.length===2)if(typeof b==="string"){d=a;a=d[b];b=w}else if(b&&
+!c.isFunction(b)){d=b;b=w}if(!b&&a)b=function(){return a.apply(d||this,arguments)};if(a)b.guid=a.guid=a.guid||b.guid||c.guid++;return b},uaMatch:function(a){a=a.toLowerCase();a=/(webkit)[ \/]([\w.]+)/.exec(a)||/(opera)(?:.*version)?[ \/]([\w.]+)/.exec(a)||/(msie) ([\w.]+)/.exec(a)||!/compatible/.test(a)&&/(mozilla)(?:.*? rv:([\w.]+))?/.exec(a)||[];return{browser:a[1]||"",version:a[2]||"0"}},browser:{}});P=c.uaMatch(P);if(P.browser){c.browser[P.browser]=true;c.browser.version=P.version}if(c.browser.webkit)c.browser.safari=
+true;if(ya)c.inArray=function(a,b){return ya.call(b,a)};T=c(s);if(s.addEventListener)L=function(){s.removeEventListener("DOMContentLoaded",L,false);c.ready()};else if(s.attachEvent)L=function(){if(s.readyState==="complete"){s.detachEvent("onreadystatechange",L);c.ready()}};(function(){c.support={};var a=s.documentElement,b=s.createElement("script"),d=s.createElement("div"),f="script"+J();d.style.display="none";d.innerHTML="   <link/><table></table><a href='/a' style='color:red;float:left;opacity:.55;'>a</a><input type='checkbox'/>";
+var e=d.getElementsByTagName("*"),j=d.getElementsByTagName("a")[0];if(!(!e||!e.length||!j)){c.support={leadingWhitespace:d.firstChild.nodeType===3,tbody:!d.getElementsByTagName("tbody").length,htmlSerialize:!!d.getElementsByTagName("link").length,style:/red/.test(j.getAttribute("style")),hrefNormalized:j.getAttribute("href")==="/a",opacity:/^0.55$/.test(j.style.opacity),cssFloat:!!j.style.cssFloat,checkOn:d.getElementsByTagName("input")[0].value==="on",optSelected:s.createElement("select").appendChild(s.createElement("option")).selected,
+parentNode:d.removeChild(d.appendChild(s.createElement("div"))).parentNode===null,deleteExpando:true,checkClone:false,scriptEval:false,noCloneEvent:true,boxModel:null};b.type="text/javascript";try{b.appendChild(s.createTextNode("window."+f+"=1;"))}catch(i){}a.insertBefore(b,a.firstChild);if(A[f]){c.support.scriptEval=true;delete A[f]}try{delete b.test}catch(o){c.support.deleteExpando=false}a.removeChild(b);if(d.attachEvent&&d.fireEvent){d.attachEvent("onclick",function k(){c.support.noCloneEvent=
+false;d.detachEvent("onclick",k)});d.cloneNode(true).fireEvent("onclick")}d=s.createElement("div");d.innerHTML="<input type='radio' name='radiotest' checked='checked'/>";a=s.createDocumentFragment();a.appendChild(d.firstChild);c.support.checkClone=a.cloneNode(true).cloneNode(true).lastChild.checked;c(function(){var k=s.createElement("div");k.style.width=k.style.paddingLeft="1px";s.body.appendChild(k);c.boxModel=c.support.boxModel=k.offsetWidth===2;s.body.removeChild(k).style.display="none"});a=function(k){var n=
+s.createElement("div");k="on"+k;var r=k in n;if(!r){n.setAttribute(k,"return;");r=typeof n[k]==="function"}return r};c.support.submitBubbles=a("submit");c.support.changeBubbles=a("change");a=b=d=e=j=null}})();c.props={"for":"htmlFor","class":"className",readonly:"readOnly",maxlength:"maxLength",cellspacing:"cellSpacing",rowspan:"rowSpan",colspan:"colSpan",tabindex:"tabIndex",usemap:"useMap",frameborder:"frameBorder"};var G="jQuery"+J(),Ya=0,za={};c.extend({cache:{},expando:G,noData:{embed:true,object:true,
+applet:true},data:function(a,b,d){if(!(a.nodeName&&c.noData[a.nodeName.toLowerCase()])){a=a==A?za:a;var f=a[G],e=c.cache;if(!f&&typeof b==="string"&&d===w)return null;f||(f=++Ya);if(typeof b==="object"){a[G]=f;e[f]=c.extend(true,{},b)}else if(!e[f]){a[G]=f;e[f]={}}a=e[f];if(d!==w)a[b]=d;return typeof b==="string"?a[b]:a}},removeData:function(a,b){if(!(a.nodeName&&c.noData[a.nodeName.toLowerCase()])){a=a==A?za:a;var d=a[G],f=c.cache,e=f[d];if(b){if(e){delete e[b];c.isEmptyObject(e)&&c.removeData(a)}}else{if(c.support.deleteExpando)delete a[c.expando];
+else a.removeAttribute&&a.removeAttribute(c.expando);delete f[d]}}}});c.fn.extend({data:function(a,b){if(typeof a==="undefined"&&this.length)return c.data(this[0]);else if(typeof a==="object")return this.each(function(){c.data(this,a)});var d=a.split(".");d[1]=d[1]?"."+d[1]:"";if(b===w){var f=this.triggerHandler("getData"+d[1]+"!",[d[0]]);if(f===w&&this.length)f=c.data(this[0],a);return f===w&&d[1]?this.data(d[0]):f}else return this.trigger("setData"+d[1]+"!",[d[0],b]).each(function(){c.data(this,
+a,b)})},removeData:function(a){return this.each(function(){c.removeData(this,a)})}});c.extend({queue:function(a,b,d){if(a){b=(b||"fx")+"queue";var f=c.data(a,b);if(!d)return f||[];if(!f||c.isArray(d))f=c.data(a,b,c.makeArray(d));else f.push(d);return f}},dequeue:function(a,b){b=b||"fx";var d=c.queue(a,b),f=d.shift();if(f==="inprogress")f=d.shift();if(f){b==="fx"&&d.unshift("inprogress");f.call(a,function(){c.dequeue(a,b)})}}});c.fn.extend({queue:function(a,b){if(typeof a!=="string"){b=a;a="fx"}if(b===
+w)return c.queue(this[0],a);return this.each(function(){var d=c.queue(this,a,b);a==="fx"&&d[0]!=="inprogress"&&c.dequeue(this,a)})},dequeue:function(a){return this.each(function(){c.dequeue(this,a)})},delay:function(a,b){a=c.fx?c.fx.speeds[a]||a:a;b=b||"fx";return this.queue(b,function(){var d=this;setTimeout(function(){c.dequeue(d,b)},a)})},clearQueue:function(a){return this.queue(a||"fx",[])}});var Aa=/[\n\t]/g,ca=/\s+/,Za=/\r/g,$a=/href|src|style/,ab=/(button|input)/i,bb=/(button|input|object|select|textarea)/i,
+cb=/^(a|area)$/i,Ba=/radio|checkbox/;c.fn.extend({attr:function(a,b){return X(this,a,b,true,c.attr)},removeAttr:function(a){return this.each(function(){c.attr(this,a,"");this.nodeType===1&&this.removeAttribute(a)})},addClass:function(a){if(c.isFunction(a))return this.each(function(n){var r=c(this);r.addClass(a.call(this,n,r.attr("class")))});if(a&&typeof a==="string")for(var b=(a||"").split(ca),d=0,f=this.length;d<f;d++){var e=this[d];if(e.nodeType===1)if(e.className){for(var j=" "+e.className+" ",
+i=e.className,o=0,k=b.length;o<k;o++)if(j.indexOf(" "+b[o]+" ")<0)i+=" "+b[o];e.className=c.trim(i)}else e.className=a}return this},removeClass:function(a){if(c.isFunction(a))return this.each(function(k){var n=c(this);n.removeClass(a.call(this,k,n.attr("class")))});if(a&&typeof a==="string"||a===w)for(var b=(a||"").split(ca),d=0,f=this.length;d<f;d++){var e=this[d];if(e.nodeType===1&&e.className)if(a){for(var j=(" "+e.className+" ").replace(Aa," "),i=0,o=b.length;i<o;i++)j=j.replace(" "+b[i]+" ",
+" ");e.className=c.trim(j)}else e.className=""}return this},toggleClass:function(a,b){var d=typeof a,f=typeof b==="boolean";if(c.isFunction(a))return this.each(function(e){var j=c(this);j.toggleClass(a.call(this,e,j.attr("class"),b),b)});return this.each(function(){if(d==="string")for(var e,j=0,i=c(this),o=b,k=a.split(ca);e=k[j++];){o=f?o:!i.hasClass(e);i[o?"addClass":"removeClass"](e)}else if(d==="undefined"||d==="boolean"){this.className&&c.data(this,"__className__",this.className);this.className=
+this.className||a===false?"":c.data(this,"__className__")||""}})},hasClass:function(a){a=" "+a+" ";for(var b=0,d=this.length;b<d;b++)if((" "+this[b].className+" ").replace(Aa," ").indexOf(a)>-1)return true;return false},val:function(a){if(a===w){var b=this[0];if(b){if(c.nodeName(b,"option"))return(b.attributes.value||{}).specified?b.value:b.text;if(c.nodeName(b,"select")){var d=b.selectedIndex,f=[],e=b.options;b=b.type==="select-one";if(d<0)return null;var j=b?d:0;for(d=b?d+1:e.length;j<d;j++){var i=
+e[j];if(i.selected){a=c(i).val();if(b)return a;f.push(a)}}return f}if(Ba.test(b.type)&&!c.support.checkOn)return b.getAttribute("value")===null?"on":b.value;return(b.value||"").replace(Za,"")}return w}var o=c.isFunction(a);return this.each(function(k){var n=c(this),r=a;if(this.nodeType===1){if(o)r=a.call(this,k,n.val());if(typeof r==="number")r+="";if(c.isArray(r)&&Ba.test(this.type))this.checked=c.inArray(n.val(),r)>=0;else if(c.nodeName(this,"select")){var u=c.makeArray(r);c("option",this).each(function(){this.selected=
+c.inArray(c(this).val(),u)>=0});if(!u.length)this.selectedIndex=-1}else this.value=r}})}});c.extend({attrFn:{val:true,css:true,html:true,text:true,data:true,width:true,height:true,offset:true},attr:function(a,b,d,f){if(!a||a.nodeType===3||a.nodeType===8)return w;if(f&&b in c.attrFn)return c(a)[b](d);f=a.nodeType!==1||!c.isXMLDoc(a);var e=d!==w;b=f&&c.props[b]||b;if(a.nodeType===1){var j=$a.test(b);if(b in a&&f&&!j){if(e){b==="type"&&ab.test(a.nodeName)&&a.parentNode&&c.error("type property can't be changed");
+a[b]=d}if(c.nodeName(a,"form")&&a.getAttributeNode(b))return a.getAttributeNode(b).nodeValue;if(b==="tabIndex")return(b=a.getAttributeNode("tabIndex"))&&b.specified?b.value:bb.test(a.nodeName)||cb.test(a.nodeName)&&a.href?0:w;return a[b]}if(!c.support.style&&f&&b==="style"){if(e)a.style.cssText=""+d;return a.style.cssText}e&&a.setAttribute(b,""+d);a=!c.support.hrefNormalized&&f&&j?a.getAttribute(b,2):a.getAttribute(b);return a===null?w:a}return c.style(a,b,d)}});var O=/\.(.*)$/,db=function(a){return a.replace(/[^\w\s\.\|`]/g,
+function(b){return"\\"+b})};c.event={add:function(a,b,d,f){if(!(a.nodeType===3||a.nodeType===8)){if(a.setInterval&&a!==A&&!a.frameElement)a=A;var e,j;if(d.handler){e=d;d=e.handler}if(!d.guid)d.guid=c.guid++;if(j=c.data(a)){var i=j.events=j.events||{},o=j.handle;if(!o)j.handle=o=function(){return typeof c!=="undefined"&&!c.event.triggered?c.event.handle.apply(o.elem,arguments):w};o.elem=a;b=b.split(" ");for(var k,n=0,r;k=b[n++];){j=e?c.extend({},e):{handler:d,data:f};if(k.indexOf(".")>-1){r=k.split(".");
+k=r.shift();j.namespace=r.slice(0).sort().join(".")}else{r=[];j.namespace=""}j.type=k;j.guid=d.guid;var u=i[k],z=c.event.special[k]||{};if(!u){u=i[k]=[];if(!z.setup||z.setup.call(a,f,r,o)===false)if(a.addEventListener)a.addEventListener(k,o,false);else a.attachEvent&&a.attachEvent("on"+k,o)}if(z.add){z.add.call(a,j);if(!j.handler.guid)j.handler.guid=d.guid}u.push(j);c.event.global[k]=true}a=null}}},global:{},remove:function(a,b,d,f){if(!(a.nodeType===3||a.nodeType===8)){var e,j=0,i,o,k,n,r,u,z=c.data(a),
+C=z&&z.events;if(z&&C){if(b&&b.type){d=b.handler;b=b.type}if(!b||typeof b==="string"&&b.charAt(0)==="."){b=b||"";for(e in C)c.event.remove(a,e+b)}else{for(b=b.split(" ");e=b[j++];){n=e;i=e.indexOf(".")<0;o=[];if(!i){o=e.split(".");e=o.shift();k=new RegExp("(^|\\.)"+c.map(o.slice(0).sort(),db).join("\\.(?:.*\\.)?")+"(\\.|$)")}if(r=C[e])if(d){n=c.event.special[e]||{};for(B=f||0;B<r.length;B++){u=r[B];if(d.guid===u.guid){if(i||k.test(u.namespace)){f==null&&r.splice(B--,1);n.remove&&n.remove.call(a,u)}if(f!=
+null)break}}if(r.length===0||f!=null&&r.length===1){if(!n.teardown||n.teardown.call(a,o)===false)Ca(a,e,z.handle);delete C[e]}}else for(var B=0;B<r.length;B++){u=r[B];if(i||k.test(u.namespace)){c.event.remove(a,n,u.handler,B);r.splice(B--,1)}}}if(c.isEmptyObject(C)){if(b=z.handle)b.elem=null;delete z.events;delete z.handle;c.isEmptyObject(z)&&c.removeData(a)}}}}},trigger:function(a,b,d,f){var e=a.type||a;if(!f){a=typeof a==="object"?a[G]?a:c.extend(c.Event(e),a):c.Event(e);if(e.indexOf("!")>=0){a.type=
+e=e.slice(0,-1);a.exclusive=true}if(!d){a.stopPropagation();c.event.global[e]&&c.each(c.cache,function(){this.events&&this.events[e]&&c.event.trigger(a,b,this.handle.elem)})}if(!d||d.nodeType===3||d.nodeType===8)return w;a.result=w;a.target=d;b=c.makeArray(b);b.unshift(a)}a.currentTarget=d;(f=c.data(d,"handle"))&&f.apply(d,b);f=d.parentNode||d.ownerDocument;try{if(!(d&&d.nodeName&&c.noData[d.nodeName.toLowerCase()]))if(d["on"+e]&&d["on"+e].apply(d,b)===false)a.result=false}catch(j){}if(!a.isPropagationStopped()&&
+f)c.event.trigger(a,b,f,true);else if(!a.isDefaultPrevented()){f=a.target;var i,o=c.nodeName(f,"a")&&e==="click",k=c.event.special[e]||{};if((!k._default||k._default.call(d,a)===false)&&!o&&!(f&&f.nodeName&&c.noData[f.nodeName.toLowerCase()])){try{if(f[e]){if(i=f["on"+e])f["on"+e]=null;c.event.triggered=true;f[e]()}}catch(n){}if(i)f["on"+e]=i;c.event.triggered=false}}},handle:function(a){var b,d,f,e;a=arguments[0]=c.event.fix(a||A.event);a.currentTarget=this;b=a.type.indexOf(".")<0&&!a.exclusive;
+if(!b){d=a.type.split(".");a.type=d.shift();f=new RegExp("(^|\\.)"+d.slice(0).sort().join("\\.(?:.*\\.)?")+"(\\.|$)")}e=c.data(this,"events");d=e[a.type];if(e&&d){d=d.slice(0);e=0;for(var j=d.length;e<j;e++){var i=d[e];if(b||f.test(i.namespace)){a.handler=i.handler;a.data=i.data;a.handleObj=i;i=i.handler.apply(this,arguments);if(i!==w){a.result=i;if(i===false){a.preventDefault();a.stopPropagation()}}if(a.isImmediatePropagationStopped())break}}}return a.result},props:"altKey attrChange attrName bubbles button cancelable charCode clientX clientY ctrlKey currentTarget data detail eventPhase fromElement handler keyCode layerX layerY metaKey newValue offsetX offsetY originalTarget pageX pageY prevValue relatedNode relatedTarget screenX screenY shiftKey srcElement target toElement view wheelDelta which".split(" "),
+fix:function(a){if(a[G])return a;var b=a;a=c.Event(b);for(var d=this.props.length,f;d;){f=this.props[--d];a[f]=b[f]}if(!a.target)a.target=a.srcElement||s;if(a.target.nodeType===3)a.target=a.target.parentNode;if(!a.relatedTarget&&a.fromElement)a.relatedTarget=a.fromElement===a.target?a.toElement:a.fromElement;if(a.pageX==null&&a.clientX!=null){b=s.documentElement;d=s.body;a.pageX=a.clientX+(b&&b.scrollLeft||d&&d.scrollLeft||0)-(b&&b.clientLeft||d&&d.clientLeft||0);a.pageY=a.clientY+(b&&b.scrollTop||
+d&&d.scrollTop||0)-(b&&b.clientTop||d&&d.clientTop||0)}if(!a.which&&(a.charCode||a.charCode===0?a.charCode:a.keyCode))a.which=a.charCode||a.keyCode;if(!a.metaKey&&a.ctrlKey)a.metaKey=a.ctrlKey;if(!a.which&&a.button!==w)a.which=a.button&1?1:a.button&2?3:a.button&4?2:0;return a},guid:1E8,proxy:c.proxy,special:{ready:{setup:c.bindReady,teardown:c.noop},live:{add:function(a){c.event.add(this,a.origType,c.extend({},a,{handler:oa}))},remove:function(a){var b=true,d=a.origType.replace(O,"");c.each(c.data(this,
+"events").live||[],function(){if(d===this.origType.replace(O,""))return b=false});b&&c.event.remove(this,a.origType,oa)}},beforeunload:{setup:function(a,b,d){if(this.setInterval)this.onbeforeunload=d;return false},teardown:function(a,b){if(this.onbeforeunload===b)this.onbeforeunload=null}}}};var Ca=s.removeEventListener?function(a,b,d){a.removeEventListener(b,d,false)}:function(a,b,d){a.detachEvent("on"+b,d)};c.Event=function(a){if(!this.preventDefault)return new c.Event(a);if(a&&a.type){this.originalEvent=
+a;this.type=a.type}else this.type=a;this.timeStamp=J();this[G]=true};c.Event.prototype={preventDefault:function(){this.isDefaultPrevented=Z;var a=this.originalEvent;if(a){a.preventDefault&&a.preventDefault();a.returnValue=false}},stopPropagation:function(){this.isPropagationStopped=Z;var a=this.originalEvent;if(a){a.stopPropagation&&a.stopPropagation();a.cancelBubble=true}},stopImmediatePropagation:function(){this.isImmediatePropagationStopped=Z;this.stopPropagation()},isDefaultPrevented:Y,isPropagationStopped:Y,
+isImmediatePropagationStopped:Y};var Da=function(a){var b=a.relatedTarget;try{for(;b&&b!==this;)b=b.parentNode;if(b!==this){a.type=a.data;c.event.handle.apply(this,arguments)}}catch(d){}},Ea=function(a){a.type=a.data;c.event.handle.apply(this,arguments)};c.each({mouseenter:"mouseover",mouseleave:"mouseout"},function(a,b){c.event.special[a]={setup:function(d){c.event.add(this,b,d&&d.selector?Ea:Da,a)},teardown:function(d){c.event.remove(this,b,d&&d.selector?Ea:Da)}}});if(!c.support.submitBubbles)c.event.special.submit=
+{setup:function(){if(this.nodeName.toLowerCase()!=="form"){c.event.add(this,"click.specialSubmit",function(a){var b=a.target,d=b.type;if((d==="submit"||d==="image")&&c(b).closest("form").length)return na("submit",this,arguments)});c.event.add(this,"keypress.specialSubmit",function(a){var b=a.target,d=b.type;if((d==="text"||d==="password")&&c(b).closest("form").length&&a.keyCode===13)return na("submit",this,arguments)})}else return false},teardown:function(){c.event.remove(this,".specialSubmit")}};
+if(!c.support.changeBubbles){var da=/textarea|input|select/i,ea,Fa=function(a){var b=a.type,d=a.value;if(b==="radio"||b==="checkbox")d=a.checked;else if(b==="select-multiple")d=a.selectedIndex>-1?c.map(a.options,function(f){return f.selected}).join("-"):"";else if(a.nodeName.toLowerCase()==="select")d=a.selectedIndex;return d},fa=function(a,b){var d=a.target,f,e;if(!(!da.test(d.nodeName)||d.readOnly)){f=c.data(d,"_change_data");e=Fa(d);if(a.type!=="focusout"||d.type!=="radio")c.data(d,"_change_data",
+e);if(!(f===w||e===f))if(f!=null||e){a.type="change";return c.event.trigger(a,b,d)}}};c.event.special.change={filters:{focusout:fa,click:function(a){var b=a.target,d=b.type;if(d==="radio"||d==="checkbox"||b.nodeName.toLowerCase()==="select")return fa.call(this,a)},keydown:function(a){var b=a.target,d=b.type;if(a.keyCode===13&&b.nodeName.toLowerCase()!=="textarea"||a.keyCode===32&&(d==="checkbox"||d==="radio")||d==="select-multiple")return fa.call(this,a)},beforeactivate:function(a){a=a.target;c.data(a,
+"_change_data",Fa(a))}},setup:function(){if(this.type==="file")return false;for(var a in ea)c.event.add(this,a+".specialChange",ea[a]);return da.test(this.nodeName)},teardown:function(){c.event.remove(this,".specialChange");return da.test(this.nodeName)}};ea=c.event.special.change.filters}s.addEventListener&&c.each({focus:"focusin",blur:"focusout"},function(a,b){function d(f){f=c.event.fix(f);f.type=b;return c.event.handle.call(this,f)}c.event.special[b]={setup:function(){this.addEventListener(a,
+d,true)},teardown:function(){this.removeEventListener(a,d,true)}}});c.each(["bind","one"],function(a,b){c.fn[b]=function(d,f,e){if(typeof d==="object"){for(var j in d)this[b](j,f,d[j],e);return this}if(c.isFunction(f)){e=f;f=w}var i=b==="one"?c.proxy(e,function(k){c(this).unbind(k,i);return e.apply(this,arguments)}):e;if(d==="unload"&&b!=="one")this.one(d,f,e);else{j=0;for(var o=this.length;j<o;j++)c.event.add(this[j],d,i,f)}return this}});c.fn.extend({unbind:function(a,b){if(typeof a==="object"&&
+!a.preventDefault)for(var d in a)this.unbind(d,a[d]);else{d=0;for(var f=this.length;d<f;d++)c.event.remove(this[d],a,b)}return this},delegate:function(a,b,d,f){return this.live(b,d,f,a)},undelegate:function(a,b,d){return arguments.length===0?this.unbind("live"):this.die(b,null,d,a)},trigger:function(a,b){return this.each(function(){c.event.trigger(a,b,this)})},triggerHandler:function(a,b){if(this[0]){a=c.Event(a);a.preventDefault();a.stopPropagation();c.event.trigger(a,b,this[0]);return a.result}},
+toggle:function(a){for(var b=arguments,d=1;d<b.length;)c.proxy(a,b[d++]);return this.click(c.proxy(a,function(f){var e=(c.data(this,"lastToggle"+a.guid)||0)%d;c.data(this,"lastToggle"+a.guid,e+1);f.preventDefault();return b[e].apply(this,arguments)||false}))},hover:function(a,b){return this.mouseenter(a).mouseleave(b||a)}});var Ga={focus:"focusin",blur:"focusout",mouseenter:"mouseover",mouseleave:"mouseout"};c.each(["live","die"],function(a,b){c.fn[b]=function(d,f,e,j){var i,o=0,k,n,r=j||this.selector,
+u=j?this:c(this.context);if(c.isFunction(f)){e=f;f=w}for(d=(d||"").split(" ");(i=d[o++])!=null;){j=O.exec(i);k="";if(j){k=j[0];i=i.replace(O,"")}if(i==="hover")d.push("mouseenter"+k,"mouseleave"+k);else{n=i;if(i==="focus"||i==="blur"){d.push(Ga[i]+k);i+=k}else i=(Ga[i]||i)+k;b==="live"?u.each(function(){c.event.add(this,pa(i,r),{data:f,selector:r,handler:e,origType:i,origHandler:e,preType:n})}):u.unbind(pa(i,r),e)}}return this}});c.each("blur focus focusin focusout load resize scroll unload click dblclick mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave change select submit keydown keypress keyup error".split(" "),
+function(a,b){c.fn[b]=function(d){return d?this.bind(b,d):this.trigger(b)};if(c.attrFn)c.attrFn[b]=true});A.attachEvent&&!A.addEventListener&&A.attachEvent("onunload",function(){for(var a in c.cache)if(c.cache[a].handle)try{c.event.remove(c.cache[a].handle.elem)}catch(b){}});(function(){function a(g){for(var h="",l,m=0;g[m];m++){l=g[m];if(l.nodeType===3||l.nodeType===4)h+=l.nodeValue;else if(l.nodeType!==8)h+=a(l.childNodes)}return h}function b(g,h,l,m,q,p){q=0;for(var v=m.length;q<v;q++){var t=m[q];
+if(t){t=t[g];for(var y=false;t;){if(t.sizcache===l){y=m[t.sizset];break}if(t.nodeType===1&&!p){t.sizcache=l;t.sizset=q}if(t.nodeName.toLowerCase()===h){y=t;break}t=t[g]}m[q]=y}}}function d(g,h,l,m,q,p){q=0;for(var v=m.length;q<v;q++){var t=m[q];if(t){t=t[g];for(var y=false;t;){if(t.sizcache===l){y=m[t.sizset];break}if(t.nodeType===1){if(!p){t.sizcache=l;t.sizset=q}if(typeof h!=="string"){if(t===h){y=true;break}}else if(k.filter(h,[t]).length>0){y=t;break}}t=t[g]}m[q]=y}}}var f=/((?:$(?:\([^()]+$|[^()]+)+\)|\[(?:\[[^[\]]*\]|['"][^'"]*['"]|[^[\]'"]+)+\]|\\.|[^ >+~,(\[\\]+)+|[>+~])(\s*,\s*)?((?:.|\r|\n)*)/g,
+e=0,j=Object.prototype.toString,i=false,o=true;[0,0].sort(function(){o=false;return 0});var k=function(g,h,l,m){l=l||[];var q=h=h||s;if(h.nodeType!==1&&h.nodeType!==9)return[];if(!g||typeof g!=="string")return l;for(var p=[],v,t,y,S,H=true,M=x(h),I=g;(f.exec(""),v=f.exec(I))!==null;){I=v[3];p.push(v[1]);if(v[2]){S=v[3];break}}if(p.length>1&&r.exec(g))if(p.length===2&&n.relative[p[0]])t=ga(p[0]+p[1],h);else for(t=n.relative[p[0]]?[h]:k(p.shift(),h);p.length;){g=p.shift();if(n.relative[g])g+=p.shift();
+t=ga(g,t)}else{if(!m&&p.length>1&&h.nodeType===9&&!M&&n.match.ID.test(p[0])&&!n.match.ID.test(p[p.length-1])){v=k.find(p.shift(),h,M);h=v.expr?k.filter(v.expr,v.set)[0]:v.set[0]}if(h){v=m?{expr:p.pop(),set:z(m)}:k.find(p.pop(),p.length===1&&(p[0]==="~"||p[0]==="+")&&h.parentNode?h.parentNode:h,M);t=v.expr?k.filter(v.expr,v.set):v.set;if(p.length>0)y=z(t);else H=false;for(;p.length;){var D=p.pop();v=D;if(n.relative[D])v=p.pop();else D="";if(v==null)v=h;n.relative[D](y,v,M)}}else y=[]}y||(y=t);y||k.error(D||
+g);if(j.call(y)==="[object Array]")if(H)if(h&&h.nodeType===1)for(g=0;y[g]!=null;g++){if(y[g]&&(y[g]===true||y[g].nodeType===1&&E(h,y[g])))l.push(t[g])}else for(g=0;y[g]!=null;g++)y[g]&&y[g].nodeType===1&&l.push(t[g]);else l.push.apply(l,y);else z(y,l);if(S){k(S,q,l,m);k.uniqueSort(l)}return l};k.uniqueSort=function(g){if(B){i=o;g.sort(B);if(i)for(var h=1;h<g.length;h++)g[h]===g[h-1]&&g.splice(h--,1)}return g};k.matches=function(g,h){return k(g,null,null,h)};k.find=function(g,h,l){var m,q;if(!g)return[];
+for(var p=0,v=n.order.length;p<v;p++){var t=n.order[p];if(q=n.leftMatch[t].exec(g)){var y=q[1];q.splice(1,1);if(y.substr(y.length-1)!=="\\"){q[1]=(q[1]||"").replace(/\\/g,"");m=n.find[t](q,h,l);if(m!=null){g=g.replace(n.match[t],"");break}}}}m||(m=h.getElementsByTagName("*"));return{set:m,expr:g}};k.filter=function(g,h,l,m){for(var q=g,p=[],v=h,t,y,S=h&&h[0]&&x(h[0]);g&&h.length;){for(var H in n.filter)if((t=n.leftMatch[H].exec(g))!=null&&t[2]){var M=n.filter[H],I,D;D=t[1];y=false;t.splice(1,1);if(D.substr(D.length-
+1)!=="\\"){if(v===p)p=[];if(n.preFilter[H])if(t=n.preFilter[H](t,v,l,p,m,S)){if(t===true)continue}else y=I=true;if(t)for(var U=0;(D=v[U])!=null;U++)if(D){I=M(D,t,U,v);var Ha=m^!!I;if(l&&I!=null)if(Ha)y=true;else v[U]=false;else if(Ha){p.push(D);y=true}}if(I!==w){l||(v=p);g=g.replace(n.match[H],"");if(!y)return[];break}}}if(g===q)if(y==null)k.error(g);else break;q=g}return v};k.error=function(g){throw"Syntax error, unrecognized expression: "+g;};var n=k.selectors={order:["ID","NAME","TAG"],match:{ID:/#((?:[\w\u00c0-\uFFFF-]|\\.)+)/,
+CLASS:/\.((?:[\w\u00c0-\uFFFF-]|\\.)+)/,NAME:/\[name=['"]*((?:[\w\u00c0-\uFFFF-]|\\.)+)['"]*\]/,ATTR:/\[\s*((?:[\w\u00c0-\uFFFF-]|\\.)+)\s*(?:(\S?=)\s*(['"]*)(.*?)\3|)\s*\]/,TAG:/^((?:[\w\u00c0-\uFFFF\*-]|\\.)+)/,CHILD:/:(only|nth|last|first)-child(?:$(even|odd|[\dn+-]*)$)?/,POS:/:(nth|eq|gt|lt|first|last|even|odd)(?:$(\d*)$)?(?=[^-]|$)/,PSEUDO:/:((?:[\w\u00c0-\uFFFF-]|\\.)+)(?:$(['"]?)((?:\([^$]+\)|[^]*)+)\2\))?/},leftMatch:{},attrMap:{"class":"className","for":"htmlFor"},attrHandle:{href:function(g){return g.getAttribute("href")}},
+relative:{"+":function(g,h){var l=typeof h==="string",m=l&&!/\W/.test(h);l=l&&!m;if(m)h=h.toLowerCase();m=0;for(var q=g.length,p;m<q;m++)if(p=g[m]){for(;(p=p.previousSibling)&&p.nodeType!==1;);g[m]=l||p&&p.nodeName.toLowerCase()===h?p||false:p===h}l&&k.filter(h,g,true)},">":function(g,h){var l=typeof h==="string";if(l&&!/\W/.test(h)){h=h.toLowerCase();for(var m=0,q=g.length;m<q;m++){var p=g[m];if(p){l=p.parentNode;g[m]=l.nodeName.toLowerCase()===h?l:false}}}else{m=0;for(q=g.length;m<q;m++)if(p=g[m])g[m]=
+l?p.parentNode:p.parentNode===h;l&&k.filter(h,g,true)}},"":function(g,h,l){var m=e++,q=d;if(typeof h==="string"&&!/\W/.test(h)){var p=h=h.toLowerCase();q=b}q("parentNode",h,m,g,p,l)},"~":function(g,h,l){var m=e++,q=d;if(typeof h==="string"&&!/\W/.test(h)){var p=h=h.toLowerCase();q=b}q("previousSibling",h,m,g,p,l)}},find:{ID:function(g,h,l){if(typeof h.getElementById!=="undefined"&&!l)return(g=h.getElementById(g[1]))?[g]:[]},NAME:function(g,h){if(typeof h.getElementsByName!=="undefined"){var l=[];
+h=h.getElementsByName(g[1]);for(var m=0,q=h.length;m<q;m++)h[m].getAttribute("name")===g[1]&&l.push(h[m]);return l.length===0?null:l}},TAG:function(g,h){return h.getElementsByTagName(g[1])}},preFilter:{CLASS:function(g,h,l,m,q,p){g=" "+g[1].replace(/\\/g,"")+" ";if(p)return g;p=0;for(var v;(v=h[p])!=null;p++)if(v)if(q^(v.className&&(" "+v.className+" ").replace(/[\t\n]/g," ").indexOf(g)>=0))l||m.push(v);else if(l)h[p]=false;return false},ID:function(g){return g[1].replace(/\\/g,"")},TAG:function(g){return g[1].toLowerCase()},
+CHILD:function(g){if(g[1]==="nth"){var h=/(-?)(\d*)n((?:\+|-)?\d*)/.exec(g[2]==="even"&&"2n"||g[2]==="odd"&&"2n+1"||!/\D/.test(g[2])&&"0n+"+g[2]||g[2]);g[2]=h[1]+(h[2]||1)-0;g[3]=h[3]-0}g[0]=e++;return g},ATTR:function(g,h,l,m,q,p){h=g[1].replace(/\\/g,"");if(!p&&n.attrMap[h])g[1]=n.attrMap[h];if(g[2]==="~=")g[4]=" "+g[4]+" ";return g},PSEUDO:function(g,h,l,m,q){if(g[1]==="not")if((f.exec(g[3])||"").length>1||/^\w/.test(g[3]))g[3]=k(g[3],null,null,h);else{g=k.filter(g[3],h,l,true^q);l||m.push.apply(m,
+g);return false}else if(n.match.POS.test(g[0])||n.match.CHILD.test(g[0]))return true;return g},POS:function(g){g.unshift(true);return g}},filters:{enabled:function(g){return g.disabled===false&&g.type!=="hidden"},disabled:function(g){return g.disabled===true},checked:function(g){return g.checked===true},selected:function(g){return g.selected===true},parent:function(g){return!!g.firstChild},empty:function(g){return!g.firstChild},has:function(g,h,l){return!!k(l[3],g).length},header:function(g){return/h\d/i.test(g.nodeName)},
+text:function(g){return"text"===g.type},radio:function(g){return"radio"===g.type},checkbox:function(g){return"checkbox"===g.type},file:function(g){return"file"===g.type},password:function(g){return"password"===g.type},submit:function(g){return"submit"===g.type},image:function(g){return"image"===g.type},reset:function(g){return"reset"===g.type},button:function(g){return"button"===g.type||g.nodeName.toLowerCase()==="button"},input:function(g){return/input|select|textarea|button/i.test(g.nodeName)}},
+setFilters:{first:function(g,h){return h===0},last:function(g,h,l,m){return h===m.length-1},even:function(g,h){return h%2===0},odd:function(g,h){return h%2===1},lt:function(g,h,l){return h<l[3]-0},gt:function(g,h,l){return h>l[3]-0},nth:function(g,h,l){return l[3]-0===h},eq:function(g,h,l){return l[3]-0===h}},filter:{PSEUDO:function(g,h,l,m){var q=h[1],p=n.filters[q];if(p)return p(g,l,h,m);else if(q==="contains")return(g.textContent||g.innerText||a([g])||"").indexOf(h[3])>=0;else if(q==="not"){h=
+h[3];l=0;for(m=h.length;l<m;l++)if(h[l]===g)return false;return true}else k.error("Syntax error, unrecognized expression: "+q)},CHILD:function(g,h){var l=h[1],m=g;switch(l){case "only":case "first":for(;m=m.previousSibling;)if(m.nodeType===1)return false;if(l==="first")return true;m=g;case "last":for(;m=m.nextSibling;)if(m.nodeType===1)return false;return true;case "nth":l=h[2];var q=h[3];if(l===1&&q===0)return true;h=h[0];var p=g.parentNode;if(p&&(p.sizcache!==h||!g.nodeIndex)){var v=0;for(m=p.firstChild;m;m=
+m.nextSibling)if(m.nodeType===1)m.nodeIndex=++v;p.sizcache=h}g=g.nodeIndex-q;return l===0?g===0:g%l===0&&g/l>=0}},ID:function(g,h){return g.nodeType===1&&g.getAttribute("id")===h},TAG:function(g,h){return h==="*"&&g.nodeType===1||g.nodeName.toLowerCase()===h},CLASS:function(g,h){return(" "+(g.className||g.getAttribute("class"))+" ").indexOf(h)>-1},ATTR:function(g,h){var l=h[1];g=n.attrHandle[l]?n.attrHandle[l](g):g[l]!=null?g[l]:g.getAttribute(l);l=g+"";var m=h[2];h=h[4];return g==null?m==="!=":m===
+"="?l===h:m==="*="?l.indexOf(h)>=0:m==="~="?(" "+l+" ").indexOf(h)>=0:!h?l&&g!==false:m==="!="?l!==h:m==="^="?l.indexOf(h)===0:m==="$="?l.substr(l.length-h.length)===h:m==="|="?l===h||l.substr(0,h.length+1)===h+"-":false},POS:function(g,h,l,m){var q=n.setFilters[h[2]];if(q)return q(g,l,h,m)}}},r=n.match.POS;for(var u in n.match){n.match[u]=new RegExp(n.match[u].source+/(?![^\[]*\])(?![^$]*$)/.source);n.leftMatch[u]=new RegExp(/(^(?:.|\r|\n)*?)/.source+n.match[u].source.replace(/\\(\d+)/g,function(g,
+h){return"\\"+(h-0+1)}))}var z=function(g,h){g=Array.prototype.slice.call(g,0);if(h){h.push.apply(h,g);return h}return g};try{Array.prototype.slice.call(s.documentElement.childNodes,0)}catch(C){z=function(g,h){h=h||[];if(j.call(g)==="[object Array]")Array.prototype.push.apply(h,g);else if(typeof g.length==="number")for(var l=0,m=g.length;l<m;l++)h.push(g[l]);else for(l=0;g[l];l++)h.push(g[l]);return h}}var B;if(s.documentElement.compareDocumentPosition)B=function(g,h){if(!g.compareDocumentPosition||
+!h.compareDocumentPosition){if(g==h)i=true;return g.compareDocumentPosition?-1:1}g=g.compareDocumentPosition(h)&4?-1:g===h?0:1;if(g===0)i=true;return g};else if("sourceIndex"in s.documentElement)B=function(g,h){if(!g.sourceIndex||!h.sourceIndex){if(g==h)i=true;return g.sourceIndex?-1:1}g=g.sourceIndex-h.sourceIndex;if(g===0)i=true;return g};else if(s.createRange)B=function(g,h){if(!g.ownerDocument||!h.ownerDocument){if(g==h)i=true;return g.ownerDocument?-1:1}var l=g.ownerDocument.createRange(),m=
+h.ownerDocument.createRange();l.setStart(g,0);l.setEnd(g,0);m.setStart(h,0);m.setEnd(h,0);g=l.compareBoundaryPoints(Range.START_TO_END,m);if(g===0)i=true;return g};(function(){var g=s.createElement("div"),h="script"+(new Date).getTime();g.innerHTML="<a name='"+h+"'/>";var l=s.documentElement;l.insertBefore(g,l.firstChild);if(s.getElementById(h)){n.find.ID=function(m,q,p){if(typeof q.getElementById!=="undefined"&&!p)return(q=q.getElementById(m[1]))?q.id===m[1]||typeof q.getAttributeNode!=="undefined"&&
+q.getAttributeNode("id").nodeValue===m[1]?[q]:w:[]};n.filter.ID=function(m,q){var p=typeof m.getAttributeNode!=="undefined"&&m.getAttributeNode("id");return m.nodeType===1&&p&&p.nodeValue===q}}l.removeChild(g);l=g=null})();(function(){var g=s.createElement("div");g.appendChild(s.createComment(""));if(g.getElementsByTagName("*").length>0)n.find.TAG=function(h,l){l=l.getElementsByTagName(h[1]);if(h[1]==="*"){h=[];for(var m=0;l[m];m++)l[m].nodeType===1&&h.push(l[m]);l=h}return l};g.innerHTML="<a href='#'></a>";
+if(g.firstChild&&typeof g.firstChild.getAttribute!=="undefined"&&g.firstChild.getAttribute("href")!=="#")n.attrHandle.href=function(h){return h.getAttribute("href",2)};g=null})();s.querySelectorAll&&function(){var g=k,h=s.createElement("div");h.innerHTML="<p class='TEST'></p>";if(!(h.querySelectorAll&&h.querySelectorAll(".TEST").length===0)){k=function(m,q,p,v){q=q||s;if(!v&&q.nodeType===9&&!x(q))try{return z(q.querySelectorAll(m),p)}catch(t){}return g(m,q,p,v)};for(var l in g)k[l]=g[l];h=null}}();
+(function(){var g=s.createElement("div");g.innerHTML="<div class='test e'></div><div class='test'></div>";if(!(!g.getElementsByClassName||g.getElementsByClassName("e").length===0)){g.lastChild.className="e";if(g.getElementsByClassName("e").length!==1){n.order.splice(1,0,"CLASS");n.find.CLASS=function(h,l,m){if(typeof l.getElementsByClassName!=="undefined"&&!m)return l.getElementsByClassName(h[1])};g=null}}})();var E=s.compareDocumentPosition?function(g,h){return!!(g.compareDocumentPosition(h)&16)}:
+function(g,h){return g!==h&&(g.contains?g.contains(h):true)},x=function(g){return(g=(g?g.ownerDocument||g:0).documentElement)?g.nodeName!=="HTML":false},ga=function(g,h){var l=[],m="",q;for(h=h.nodeType?[h]:h;q=n.match.PSEUDO.exec(g);){m+=q[0];g=g.replace(n.match.PSEUDO,"")}g=n.relative[g]?g+"*":g;q=0;for(var p=h.length;q<p;q++)k(g,h[q],l);return k.filter(m,l)};c.find=k;c.expr=k.selectors;c.expr[":"]=c.expr.filters;c.unique=k.uniqueSort;c.text=a;c.isXMLDoc=x;c.contains=E})();var eb=/Until$/,fb=/^(?:parents|prevUntil|prevAll)/,
+gb=/,/;R=Array.prototype.slice;var Ia=function(a,b,d){if(c.isFunction(b))return c.grep(a,function(e,j){return!!b.call(e,j,e)===d});else if(b.nodeType)return c.grep(a,function(e){return e===b===d});else if(typeof b==="string"){var f=c.grep(a,function(e){return e.nodeType===1});if(Ua.test(b))return c.filter(b,f,!d);else b=c.filter(b,f)}return c.grep(a,function(e){return c.inArray(e,b)>=0===d})};c.fn.extend({find:function(a){for(var b=this.pushStack("","find",a),d=0,f=0,e=this.length;f<e;f++){d=b.length;
+c.find(a,this[f],b);if(f>0)for(var j=d;j<b.length;j++)for(var i=0;i<d;i++)if(b[i]===b[j]){b.splice(j--,1);break}}return b},has:function(a){var b=c(a);return this.filter(function(){for(var d=0,f=b.length;d<f;d++)if(c.contains(this,b[d]))return true})},not:function(a){return this.pushStack(Ia(this,a,false),"not",a)},filter:function(a){return this.pushStack(Ia(this,a,true),"filter",a)},is:function(a){return!!a&&c.filter(a,this).length>0},closest:function(a,b){if(c.isArray(a)){var d=[],f=this[0],e,j=
+{},i;if(f&&a.length){e=0;for(var o=a.length;e<o;e++){i=a[e];j[i]||(j[i]=c.expr.match.POS.test(i)?c(i,b||this.context):i)}for(;f&&f.ownerDocument&&f!==b;){for(i in j){e=j[i];if(e.jquery?e.index(f)>-1:c(f).is(e)){d.push({selector:i,elem:f});delete j[i]}}f=f.parentNode}}return d}var k=c.expr.match.POS.test(a)?c(a,b||this.context):null;return this.map(function(n,r){for(;r&&r.ownerDocument&&r!==b;){if(k?k.index(r)>-1:c(r).is(a))return r;r=r.parentNode}return null})},index:function(a){if(!a||typeof a===
+"string")return c.inArray(this[0],a?c(a):this.parent().children());return c.inArray(a.jquery?a[0]:a,this)},add:function(a,b){a=typeof a==="string"?c(a,b||this.context):c.makeArray(a);b=c.merge(this.get(),a);return this.pushStack(qa(a[0])||qa(b[0])?b:c.unique(b))},andSelf:function(){return this.add(this.prevObject)}});c.each({parent:function(a){return(a=a.parentNode)&&a.nodeType!==11?a:null},parents:function(a){return c.dir(a,"parentNode")},parentsUntil:function(a,b,d){return c.dir(a,"parentNode",
+d)},next:function(a){return c.nth(a,2,"nextSibling")},prev:function(a){return c.nth(a,2,"previousSibling")},nextAll:function(a){return c.dir(a,"nextSibling")},prevAll:function(a){return c.dir(a,"previousSibling")},nextUntil:function(a,b,d){return c.dir(a,"nextSibling",d)},prevUntil:function(a,b,d){return c.dir(a,"previousSibling",d)},siblings:function(a){return c.sibling(a.parentNode.firstChild,a)},children:function(a){return c.sibling(a.firstChild)},contents:function(a){return c.nodeName(a,"iframe")?
+a.contentDocument||a.contentWindow.document:c.makeArray(a.childNodes)}},function(a,b){c.fn[a]=function(d,f){var e=c.map(this,b,d);eb.test(a)||(f=d);if(f&&typeof f==="string")e=c.filter(f,e);e=this.length>1?c.unique(e):e;if((this.length>1||gb.test(f))&&fb.test(a))e=e.reverse();return this.pushStack(e,a,R.call(arguments).join(","))}});c.extend({filter:function(a,b,d){if(d)a=":not("+a+")";return c.find.matches(a,b)},dir:function(a,b,d){var f=[];for(a=a[b];a&&a.nodeType!==9&&(d===w||a.nodeType!==1||!c(a).is(d));){a.nodeType===
+1&&f.push(a);a=a[b]}return f},nth:function(a,b,d){b=b||1;for(var f=0;a;a=a[d])if(a.nodeType===1&&++f===b)break;return a},sibling:function(a,b){for(var d=[];a;a=a.nextSibling)a.nodeType===1&&a!==b&&d.push(a);return d}});var Ja=/ jQuery\d+="(?:\d+|null)"/g,V=/^\s+/,Ka=/(<([\w:]+)[^>]*?)\/>/g,hb=/^(?:area|br|col|embed|hr|img|input|link|meta|param)$/i,La=/<([\w:]+)/,ib=/<tbody/i,jb=/<|&#?\w+;/,ta=/<script|<object|<embed|<option|<style/i,ua=/checked\s*(?:[^=]|=\s*.checked.)/i,Ma=function(a,b,d){return hb.test(d)?
+a:b+"></"+d+">"},F={option:[1,"<select multiple='multiple'>","</select>"],legend:[1,"<fieldset>","</fieldset>"],thead:[1,"<table>","</table>"],tr:[2,"<table><tbody>","</tbody></table>"],td:[3,"<table><tbody><tr>","</tr></tbody></table>"],col:[2,"<table><tbody></tbody><colgroup>","</colgroup></table>"],area:[1,"<map>","</map>"],_default:[0,"",""]};F.optgroup=F.option;F.tbody=F.tfoot=F.colgroup=F.caption=F.thead;F.th=F.td;if(!c.support.htmlSerialize)F._default=[1,"div<div>","</div>"];c.fn.extend({text:function(a){if(c.isFunction(a))return this.each(function(b){var d=
+c(this);d.text(a.call(this,b,d.text()))});if(typeof a!=="object"&&a!==w)return this.empty().append((this[0]&&this[0].ownerDocument||s).createTextNode(a));return c.text(this)},wrapAll:function(a){if(c.isFunction(a))return this.each(function(d){c(this).wrapAll(a.call(this,d))});if(this[0]){var b=c(a,this[0].ownerDocument).eq(0).clone(true);this[0].parentNode&&b.insertBefore(this[0]);b.map(function(){for(var d=this;d.firstChild&&d.firstChild.nodeType===1;)d=d.firstChild;return d}).append(this)}return this},
+wrapInner:function(a){if(c.isFunction(a))return this.each(function(b){c(this).wrapInner(a.call(this,b))});return this.each(function(){var b=c(this),d=b.contents();d.length?d.wrapAll(a):b.append(a)})},wrap:function(a){return this.each(function(){c(this).wrapAll(a)})},unwrap:function(){return this.parent().each(function(){c.nodeName(this,"body")||c(this).replaceWith(this.childNodes)}).end()},append:function(){return this.domManip(arguments,true,function(a){this.nodeType===1&&this.appendChild(a)})},
+prepend:function(){return this.domManip(arguments,true,function(a){this.nodeType===1&&this.insertBefore(a,this.firstChild)})},before:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,false,function(b){this.parentNode.insertBefore(b,this)});else if(arguments.length){var a=c(arguments[0]);a.push.apply(a,this.toArray());return this.pushStack(a,"before",arguments)}},after:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,false,function(b){this.parentNode.insertBefore(b,
+this.nextSibling)});else if(arguments.length){var a=this.pushStack(this,"after",arguments);a.push.apply(a,c(arguments[0]).toArray());return a}},remove:function(a,b){for(var d=0,f;(f=this[d])!=null;d++)if(!a||c.filter(a,[f]).length){if(!b&&f.nodeType===1){c.cleanData(f.getElementsByTagName("*"));c.cleanData([f])}f.parentNode&&f.parentNode.removeChild(f)}return this},empty:function(){for(var a=0,b;(b=this[a])!=null;a++)for(b.nodeType===1&&c.cleanData(b.getElementsByTagName("*"));b.firstChild;)b.removeChild(b.firstChild);
+return this},clone:function(a){var b=this.map(function(){if(!c.support.noCloneEvent&&!c.isXMLDoc(this)){var d=this.outerHTML,f=this.ownerDocument;if(!d){d=f.createElement("div");d.appendChild(this.cloneNode(true));d=d.innerHTML}return c.clean([d.replace(Ja,"").replace(/=([^="'>\s]+\/)>/g,'="$1">').replace(V,"")],f)[0]}else return this.cloneNode(true)});if(a===true){ra(this,b);ra(this.find("*"),b.find("*"))}return b},html:function(a){if(a===w)return this[0]&&this[0].nodeType===1?this[0].innerHTML.replace(Ja,
+""):null;else if(typeof a==="string"&&!ta.test(a)&&(c.support.leadingWhitespace||!V.test(a))&&!F[(La.exec(a)||["",""])[1].toLowerCase()]){a=a.replace(Ka,Ma);try{for(var b=0,d=this.length;b<d;b++)if(this[b].nodeType===1){c.cleanData(this[b].getElementsByTagName("*"));this[b].innerHTML=a}}catch(f){this.empty().append(a)}}else c.isFunction(a)?this.each(function(e){var j=c(this),i=j.html();j.empty().append(function(){return a.call(this,e,i)})}):this.empty().append(a);return this},replaceWith:function(a){if(this[0]&&
+this[0].parentNode){if(c.isFunction(a))return this.each(function(b){var d=c(this),f=d.html();d.replaceWith(a.call(this,b,f))});if(typeof a!=="string")a=c(a).detach();return this.each(function(){var b=this.nextSibling,d=this.parentNode;c(this).remove();b?c(b).before(a):c(d).append(a)})}else return this.pushStack(c(c.isFunction(a)?a():a),"replaceWith",a)},detach:function(a){return this.remove(a,true)},domManip:function(a,b,d){function f(u){return c.nodeName(u,"table")?u.getElementsByTagName("tbody")[0]||
+u.appendChild(u.ownerDocument.createElement("tbody")):u}var e,j,i=a[0],o=[],k;if(!c.support.checkClone&&arguments.length===3&&typeof i==="string"&&ua.test(i))return this.each(function(){c(this).domManip(a,b,d,true)});if(c.isFunction(i))return this.each(function(u){var z=c(this);a[0]=i.call(this,u,b?z.html():w);z.domManip(a,b,d)});if(this[0]){e=i&&i.parentNode;e=c.support.parentNode&&e&&e.nodeType===11&&e.childNodes.length===this.length?{fragment:e}:sa(a,this,o);k=e.fragment;if(j=k.childNodes.length===
+1?(k=k.firstChild):k.firstChild){b=b&&c.nodeName(j,"tr");for(var n=0,r=this.length;n<r;n++)d.call(b?f(this[n],j):this[n],n>0||e.cacheable||this.length>1?k.cloneNode(true):k)}o.length&&c.each(o,Qa)}return this}});c.fragments={};c.each({appendTo:"append",prependTo:"prepend",insertBefore:"before",insertAfter:"after",replaceAll:"replaceWith"},function(a,b){c.fn[a]=function(d){var f=[];d=c(d);var e=this.length===1&&this[0].parentNode;if(e&&e.nodeType===11&&e.childNodes.length===1&&d.length===1){d[b](this[0]);
+return this}else{e=0;for(var j=d.length;e<j;e++){var i=(e>0?this.clone(true):this).get();c.fn[b].apply(c(d[e]),i);f=f.concat(i)}return this.pushStack(f,a,d.selector)}}});c.extend({clean:function(a,b,d,f){b=b||s;if(typeof b.createElement==="undefined")b=b.ownerDocument||b[0]&&b[0].ownerDocument||s;for(var e=[],j=0,i;(i=a[j])!=null;j++){if(typeof i==="number")i+="";if(i){if(typeof i==="string"&&!jb.test(i))i=b.createTextNode(i);else if(typeof i==="string"){i=i.replace(Ka,Ma);var o=(La.exec(i)||["",
+""])[1].toLowerCase(),k=F[o]||F._default,n=k[0],r=b.createElement("div");for(r.innerHTML=k[1]+i+k[2];n--;)r=r.lastChild;if(!c.support.tbody){n=ib.test(i);o=o==="table"&&!n?r.firstChild&&r.firstChild.childNodes:k[1]==="<table>"&&!n?r.childNodes:[];for(k=o.length-1;k>=0;--k)c.nodeName(o[k],"tbody")&&!o[k].childNodes.length&&o[k].parentNode.removeChild(o[k])}!c.support.leadingWhitespace&&V.test(i)&&r.insertBefore(b.createTextNode(V.exec(i)[0]),r.firstChild);i=r.childNodes}if(i.nodeType)e.push(i);else e=
+c.merge(e,i)}}if(d)for(j=0;e[j];j++)if(f&&c.nodeName(e[j],"script")&&(!e[j].type||e[j].type.toLowerCase()==="text/javascript"))f.push(e[j].parentNode?e[j].parentNode.removeChild(e[j]):e[j]);else{e[j].nodeType===1&&e.splice.apply(e,[j+1,0].concat(c.makeArray(e[j].getElementsByTagName("script"))));d.appendChild(e[j])}return e},cleanData:function(a){for(var b,d,f=c.cache,e=c.event.special,j=c.support.deleteExpando,i=0,o;(o=a[i])!=null;i++)if(d=o[c.expando]){b=f[d];if(b.events)for(var k in b.events)e[k]?
+c.event.remove(o,k):Ca(o,k,b.handle);if(j)delete o[c.expando];else o.removeAttribute&&o.removeAttribute(c.expando);delete f[d]}}});var kb=/z-?index|font-?weight|opacity|zoom|line-?height/i,Na=/alpha$[^)]*$/,Oa=/opacity=([^)]*)/,ha=/float/i,ia=/-([a-z])/ig,lb=/([A-Z])/g,mb=/^-?\d+(?:px)?$/i,nb=/^-?\d/,ob={position:"absolute",visibility:"hidden",display:"block"},pb=["Left","Right"],qb=["Top","Bottom"],rb=s.defaultView&&s.defaultView.getComputedStyle,Pa=c.support.cssFloat?"cssFloat":"styleFloat",ja=
+function(a,b){return b.toUpperCase()};c.fn.css=function(a,b){return X(this,a,b,true,function(d,f,e){if(e===w)return c.curCSS(d,f);if(typeof e==="number"&&!kb.test(f))e+="px";c.style(d,f,e)})};c.extend({style:function(a,b,d){if(!a||a.nodeType===3||a.nodeType===8)return w;if((b==="width"||b==="height")&&parseFloat(d)<0)d=w;var f=a.style||a,e=d!==w;if(!c.support.opacity&&b==="opacity"){if(e){f.zoom=1;b=parseInt(d,10)+""==="NaN"?"":"alpha(opacity="+d*100+")";a=f.filter||c.curCSS(a,"filter")||"";f.filter=
+Na.test(a)?a.replace(Na,b):b}return f.filter&&f.filter.indexOf("opacity=")>=0?parseFloat(Oa.exec(f.filter)[1])/100+"":""}if(ha.test(b))b=Pa;b=b.replace(ia,ja);if(e)f[b]=d;return f[b]},css:function(a,b,d,f){if(b==="width"||b==="height"){var e,j=b==="width"?pb:qb;function i(){e=b==="width"?a.offsetWidth:a.offsetHeight;f!=="border"&&c.each(j,function(){f||(e-=parseFloat(c.curCSS(a,"padding"+this,true))||0);if(f==="margin")e+=parseFloat(c.curCSS(a,"margin"+this,true))||0;else e-=parseFloat(c.curCSS(a,
+"border"+this+"Width",true))||0})}a.offsetWidth!==0?i():c.swap(a,ob,i);return Math.max(0,Math.round(e))}return c.curCSS(a,b,d)},curCSS:function(a,b,d){var f,e=a.style;if(!c.support.opacity&&b==="opacity"&&a.currentStyle){f=Oa.test(a.currentStyle.filter||"")?parseFloat(RegExp.$1)/100+"":"";return f===""?"1":f}if(ha.test(b))b=Pa;if(!d&&e&&e[b])f=e[b];else if(rb){if(ha.test(b))b="float";b=b.replace(lb,"-$1").toLowerCase();e=a.ownerDocument.defaultView;if(!e)return null;if(a=e.getComputedStyle(a,null))f=
+a.getPropertyValue(b);if(b==="opacity"&&f==="")f="1"}else if(a.currentStyle){d=b.replace(ia,ja);f=a.currentStyle[b]||a.currentStyle[d];if(!mb.test(f)&&nb.test(f)){b=e.left;var j=a.runtimeStyle.left;a.runtimeStyle.left=a.currentStyle.left;e.left=d==="fontSize"?"1em":f||0;f=e.pixelLeft+"px";e.left=b;a.runtimeStyle.left=j}}return f},swap:function(a,b,d){var f={};for(var e in b){f[e]=a.style[e];a.style[e]=b[e]}d.call(a);for(e in b)a.style[e]=f[e]}});if(c.expr&&c.expr.filters){c.expr.filters.hidden=function(a){var b=
+a.offsetWidth,d=a.offsetHeight,f=a.nodeName.toLowerCase()==="tr";return b===0&&d===0&&!f?true:b>0&&d>0&&!f?false:c.curCSS(a,"display")==="none"};c.expr.filters.visible=function(a){return!c.expr.filters.hidden(a)}}var sb=J(),tb=/<script(.|\s)*?\/script>/gi,ub=/select|textarea/i,vb=/color|date|datetime|email|hidden|month|number|password|range|search|tel|text|time|url|week/i,N=/=\?(&|$)/,ka=/\?/,wb=/(\?|&)_=.*?(&|$)/,xb=/^(\w+:)?\/\/([^\/?#]+)/,yb=/%20/g,zb=c.fn.load;c.fn.extend({load:function(a,b,d){if(typeof a!==
+"string")return zb.call(this,a);else if(!this.length)return this;var f=a.indexOf(" ");if(f>=0){var e=a.slice(f,a.length);a=a.slice(0,f)}f="GET";if(b)if(c.isFunction(b)){d=b;b=null}else if(typeof b==="object"){b=c.param(b,c.ajaxSettings.traditional);f="POST"}var j=this;c.ajax({url:a,type:f,dataType:"html",data:b,complete:function(i,o){if(o==="success"||o==="notmodified")j.html(e?c("<div />").append(i.responseText.replace(tb,"")).find(e):i.responseText);d&&j.each(d,[i.responseText,o,i])}});return this},
+serialize:function(){return c.param(this.serializeArray())},serializeArray:function(){return this.map(function(){return this.elements?c.makeArray(this.elements):this}).filter(function(){return this.name&&!this.disabled&&(this.checked||ub.test(this.nodeName)||vb.test(this.type))}).map(function(a,b){a=c(this).val();return a==null?null:c.isArray(a)?c.map(a,function(d){return{name:b.name,value:d}}):{name:b.name,value:a}}).get()}});c.each("ajaxStart ajaxStop ajaxComplete ajaxError ajaxSuccess ajaxSend".split(" "),
+function(a,b){c.fn[b]=function(d){return this.bind(b,d)}});c.extend({get:function(a,b,d,f){if(c.isFunction(b)){f=f||d;d=b;b=null}return c.ajax({type:"GET",url:a,data:b,success:d,dataType:f})},getScript:function(a,b){return c.get(a,null,b,"script")},getJSON:function(a,b,d){return c.get(a,b,d,"json")},post:function(a,b,d,f){if(c.isFunction(b)){f=f||d;d=b;b={}}return c.ajax({type:"POST",url:a,data:b,success:d,dataType:f})},ajaxSetup:function(a){c.extend(c.ajaxSettings,a)},ajaxSettings:{url:location.href,
+global:true,type:"GET",contentType:"application/x-www-form-urlencoded",processData:true,async:true,xhr:A.XMLHttpRequest&&(A.location.protocol!=="file:"||!A.ActiveXObject)?function(){return new A.XMLHttpRequest}:function(){try{return new A.ActiveXObject("Microsoft.XMLHTTP")}catch(a){}},accepts:{xml:"application/xml, text/xml",html:"text/html",script:"text/javascript, application/javascript",json:"application/json, text/javascript",text:"text/plain",_default:"*/*"}},lastModified:{},etag:{},ajax:function(a){function b(){e.success&&
+e.success.call(k,o,i,x);e.global&&f("ajaxSuccess",[x,e])}function d(){e.complete&&e.complete.call(k,x,i);e.global&&f("ajaxComplete",[x,e]);e.global&&!--c.active&&c.event.trigger("ajaxStop")}function f(q,p){(e.context?c(e.context):c.event).trigger(q,p)}var e=c.extend(true,{},c.ajaxSettings,a),j,i,o,k=a&&a.context||e,n=e.type.toUpperCase();if(e.data&&e.processData&&typeof e.data!=="string")e.data=c.param(e.data,e.traditional);if(e.dataType==="jsonp"){if(n==="GET")N.test(e.url)||(e.url+=(ka.test(e.url)?
+"&":"?")+(e.jsonp||"callback")+"=?");else if(!e.data||!N.test(e.data))e.data=(e.data?e.data+"&":"")+(e.jsonp||"callback")+"=?";e.dataType="json"}if(e.dataType==="json"&&(e.data&&N.test(e.data)||N.test(e.url))){j=e.jsonpCallback||"jsonp"+sb++;if(e.data)e.data=(e.data+"").replace(N,"="+j+"$1");e.url=e.url.replace(N,"="+j+"$1");e.dataType="script";A[j]=A[j]||function(q){o=q;b();d();A[j]=w;try{delete A[j]}catch(p){}z&&z.removeChild(C)}}if(e.dataType==="script"&&e.cache===null)e.cache=false;if(e.cache===
+false&&n==="GET"){var r=J(),u=e.url.replace(wb,"$1_="+r+"$2");e.url=u+(u===e.url?(ka.test(e.url)?"&":"?")+"_="+r:"")}if(e.data&&n==="GET")e.url+=(ka.test(e.url)?"&":"?")+e.data;e.global&&!c.active++&&c.event.trigger("ajaxStart");r=(r=xb.exec(e.url))&&(r[1]&&r[1]!==location.protocol||r[2]!==location.host);if(e.dataType==="script"&&n==="GET"&&r){var z=s.getElementsByTagName("head")[0]||s.documentElement,C=s.createElement("script");C.src=e.url;if(e.scriptCharset)C.charset=e.scriptCharset;if(!j){var B=
+false;C.onload=C.onreadystatechange=function(){if(!B&&(!this.readyState||this.readyState==="loaded"||this.readyState==="complete")){B=true;b();d();C.onload=C.onreadystatechange=null;z&&C.parentNode&&z.removeChild(C)}}}z.insertBefore(C,z.firstChild);return w}var E=false,x=e.xhr();if(x){e.username?x.open(n,e.url,e.async,e.username,e.password):x.open(n,e.url,e.async);try{if(e.data||a&&a.contentType)x.setRequestHeader("Content-Type",e.contentType);if(e.ifModified){c.lastModified[e.url]&&x.setRequestHeader("If-Modified-Since",
+c.lastModified[e.url]);c.etag[e.url]&&x.setRequestHeader("If-None-Match",c.etag[e.url])}r||x.setRequestHeader("X-Requested-With","XMLHttpRequest");x.setRequestHeader("Accept",e.dataType&&e.accepts[e.dataType]?e.accepts[e.dataType]+", */*":e.accepts._default)}catch(ga){}if(e.beforeSend&&e.beforeSend.call(k,x,e)===false){e.global&&!--c.active&&c.event.trigger("ajaxStop");x.abort();return false}e.global&&f("ajaxSend",[x,e]);var g=x.onreadystatechange=function(q){if(!x||x.readyState===0||q==="abort"){E||
+d();E=true;if(x)x.onreadystatechange=c.noop}else if(!E&&x&&(x.readyState===4||q==="timeout")){E=true;x.onreadystatechange=c.noop;i=q==="timeout"?"timeout":!c.httpSuccess(x)?"error":e.ifModified&&c.httpNotModified(x,e.url)?"notmodified":"success";var p;if(i==="success")try{o=c.httpData(x,e.dataType,e)}catch(v){i="parsererror";p=v}if(i==="success"||i==="notmodified")j||b();else c.handleError(e,x,i,p);d();q==="timeout"&&x.abort();if(e.async)x=null}};try{var h=x.abort;x.abort=function(){x&&h.call(x);
+g("abort")}}catch(l){}e.async&&e.timeout>0&&setTimeout(function(){x&&!E&&g("timeout")},e.timeout);try{x.send(n==="POST"||n==="PUT"||n==="DELETE"?e.data:null)}catch(m){c.handleError(e,x,null,m);d()}e.async||g();return x}},handleError:function(a,b,d,f){if(a.error)a.error.call(a.context||a,b,d,f);if(a.global)(a.context?c(a.context):c.event).trigger("ajaxError",[b,a,f])},active:0,httpSuccess:function(a){try{return!a.status&&location.protocol==="file:"||a.status>=200&&a.status<300||a.status===304||a.status===
+1223||a.status===0}catch(b){}return false},httpNotModified:function(a,b){var d=a.getResponseHeader("Last-Modified"),f=a.getResponseHeader("Etag");if(d)c.lastModified[b]=d;if(f)c.etag[b]=f;return a.status===304||a.status===0},httpData:function(a,b,d){var f=a.getResponseHeader("content-type")||"",e=b==="xml"||!b&&f.indexOf("xml")>=0;a=e?a.responseXML:a.responseText;e&&a.documentElement.nodeName==="parsererror"&&c.error("parsererror");if(d&&d.dataFilter)a=d.dataFilter(a,b);if(typeof a==="string")if(b===
+"json"||!b&&f.indexOf("json")>=0)a=c.parseJSON(a);else if(b==="script"||!b&&f.indexOf("javascript")>=0)c.globalEval(a);return a},param:function(a,b){function d(i,o){if(c.isArray(o))c.each(o,function(k,n){b||/\[\]$/.test(i)?f(i,n):d(i+"["+(typeof n==="object"||c.isArray(n)?k:"")+"]",n)});else!b&&o!=null&&typeof o==="object"?c.each(o,function(k,n){d(i+"["+k+"]",n)}):f(i,o)}function f(i,o){o=c.isFunction(o)?o():o;e[e.length]=encodeURIComponent(i)+"="+encodeURIComponent(o)}var e=[];if(b===w)b=c.ajaxSettings.traditional;
+if(c.isArray(a)||a.jquery)c.each(a,function(){f(this.name,this.value)});else for(var j in a)d(j,a[j]);return e.join("&").replace(yb,"+")}});var la={},Ab=/toggle|show|hide/,Bb=/^([+-]=)?([\d+-.]+)(.*)$/,W,va=[["height","marginTop","marginBottom","paddingTop","paddingBottom"],["width","marginLeft","marginRight","paddingLeft","paddingRight"],["opacity"]];c.fn.extend({show:function(a,b){if(a||a===0)return this.animate(K("show",3),a,b);else{a=0;for(b=this.length;a<b;a++){var d=c.data(this[a],"olddisplay");
+this[a].style.display=d||"";if(c.css(this[a],"display")==="none"){d=this[a].nodeName;var f;if(la[d])f=la[d];else{var e=c("<"+d+" />").appendTo("body");f=e.css("display");if(f==="none")f="block";e.remove();la[d]=f}c.data(this[a],"olddisplay",f)}}a=0;for(b=this.length;a<b;a++)this[a].style.display=c.data(this[a],"olddisplay")||"";return this}},hide:function(a,b){if(a||a===0)return this.animate(K("hide",3),a,b);else{a=0;for(b=this.length;a<b;a++){var d=c.data(this[a],"olddisplay");!d&&d!=="none"&&c.data(this[a],
+"olddisplay",c.css(this[a],"display"))}a=0;for(b=this.length;a<b;a++)this[a].style.display="none";return this}},_toggle:c.fn.toggle,toggle:function(a,b){var d=typeof a==="boolean";if(c.isFunction(a)&&c.isFunction(b))this._toggle.apply(this,arguments);else a==null||d?this.each(function(){var f=d?a:c(this).is(":hidden");c(this)[f?"show":"hide"]()}):this.animate(K("toggle",3),a,b);return this},fadeTo:function(a,b,d){return this.filter(":hidden").css("opacity",0).show().end().animate({opacity:b},a,d)},
+animate:function(a,b,d,f){var e=c.speed(b,d,f);if(c.isEmptyObject(a))return this.each(e.complete);return this[e.queue===false?"each":"queue"](function(){var j=c.extend({},e),i,o=this.nodeType===1&&c(this).is(":hidden"),k=this;for(i in a){var n=i.replace(ia,ja);if(i!==n){a[n]=a[i];delete a[i];i=n}if(a[i]==="hide"&&o||a[i]==="show"&&!o)return j.complete.call(this);if((i==="height"||i==="width")&&this.style){j.display=c.css(this,"display");j.overflow=this.style.overflow}if(c.isArray(a[i])){(j.specialEasing=
+j.specialEasing||{})[i]=a[i][1];a[i]=a[i][0]}}if(j.overflow!=null)this.style.overflow="hidden";j.curAnim=c.extend({},a);c.each(a,function(r,u){var z=new c.fx(k,j,r);if(Ab.test(u))z[u==="toggle"?o?"show":"hide":u](a);else{var C=Bb.exec(u),B=z.cur(true)||0;if(C){u=parseFloat(C[2]);var E=C[3]||"px";if(E!=="px"){k.style[r]=(u||1)+E;B=(u||1)/z.cur(true)*B;k.style[r]=B+E}if(C[1])u=(C[1]==="-="?-1:1)*u+B;z.custom(B,u,E)}else z.custom(B,u,"")}});return true})},stop:function(a,b){var d=c.timers;a&&this.queue([]);
+this.each(function(){for(var f=d.length-1;f>=0;f--)if(d[f].elem===this){b&&d[f](true);d.splice(f,1)}});b||this.dequeue();return this}});c.each({slideDown:K("show",1),slideUp:K("hide",1),slideToggle:K("toggle",1),fadeIn:{opacity:"show"},fadeOut:{opacity:"hide"}},function(a,b){c.fn[a]=function(d,f){return this.animate(b,d,f)}});c.extend({speed:function(a,b,d){var f=a&&typeof a==="object"?a:{complete:d||!d&&b||c.isFunction(a)&&a,duration:a,easing:d&&b||b&&!c.isFunction(b)&&b};f.duration=c.fx.off?0:typeof f.duration===
+"number"?f.duration:c.fx.speeds[f.duration]||c.fx.speeds._default;f.old=f.complete;f.complete=function(){f.queue!==false&&c(this).dequeue();c.isFunction(f.old)&&f.old.call(this)};return f},easing:{linear:function(a,b,d,f){return d+f*a},swing:function(a,b,d,f){return(-Math.cos(a*Math.PI)/2+0.5)*f+d}},timers:[],fx:function(a,b,d){this.options=b;this.elem=a;this.prop=d;if(!b.orig)b.orig={}}});c.fx.prototype={update:function(){this.options.step&&this.options.step.call(this.elem,this.now,this);(c.fx.step[this.prop]||
+c.fx.step._default)(this);if((this.prop==="height"||this.prop==="width")&&this.elem.style)this.elem.style.display="block"},cur:function(a){if(this.elem[this.prop]!=null&&(!this.elem.style||this.elem.style[this.prop]==null))return this.elem[this.prop];return(a=parseFloat(c.css(this.elem,this.prop,a)))&&a>-10000?a:parseFloat(c.curCSS(this.elem,this.prop))||0},custom:function(a,b,d){function f(j){return e.step(j)}this.startTime=J();this.start=a;this.end=b;this.unit=d||this.unit||"px";this.now=this.start;
+this.pos=this.state=0;var e=this;f.elem=this.elem;if(f()&&c.timers.push(f)&&!W)W=setInterval(c.fx.tick,13)},show:function(){this.options.orig[this.prop]=c.style(this.elem,this.prop);this.options.show=true;this.custom(this.prop==="width"||this.prop==="height"?1:0,this.cur());c(this.elem).show()},hide:function(){this.options.orig[this.prop]=c.style(this.elem,this.prop);this.options.hide=true;this.custom(this.cur(),0)},step:function(a){var b=J(),d=true;if(a||b>=this.options.duration+this.startTime){this.now=
+this.end;this.pos=this.state=1;this.update();this.options.curAnim[this.prop]=true;for(var f in this.options.curAnim)if(this.options.curAnim[f]!==true)d=false;if(d){if(this.options.display!=null){this.elem.style.overflow=this.options.overflow;a=c.data(this.elem,"olddisplay");this.elem.style.display=a?a:this.options.display;if(c.css(this.elem,"display")==="none")this.elem.style.display="block"}this.options.hide&&c(this.elem).hide();if(this.options.hide||this.options.show)for(var e in this.options.curAnim)c.style(this.elem,
+e,this.options.orig[e]);this.options.complete.call(this.elem)}return false}else{e=b-this.startTime;this.state=e/this.options.duration;a=this.options.easing||(c.easing.swing?"swing":"linear");this.pos=c.easing[this.options.specialEasing&&this.options.specialEasing[this.prop]||a](this.state,e,0,1,this.options.duration);this.now=this.start+(this.end-this.start)*this.pos;this.update()}return true}};c.extend(c.fx,{tick:function(){for(var a=c.timers,b=0;b<a.length;b++)a[b]()||a.splice(b--,1);a.length||
+c.fx.stop()},stop:function(){clearInterval(W);W=null},speeds:{slow:600,fast:200,_default:400},step:{opacity:function(a){c.style(a.elem,"opacity",a.now)},_default:function(a){if(a.elem.style&&a.elem.style[a.prop]!=null)a.elem.style[a.prop]=(a.prop==="width"||a.prop==="height"?Math.max(0,a.now):a.now)+a.unit;else a.elem[a.prop]=a.now}}});if(c.expr&&c.expr.filters)c.expr.filters.animated=function(a){return c.grep(c.timers,function(b){return a===b.elem}).length};c.fn.offset="getBoundingClientRect"in s.documentElement?
+function(a){var b=this[0];if(a)return this.each(function(e){c.offset.setOffset(this,a,e)});if(!b||!b.ownerDocument)return null;if(b===b.ownerDocument.body)return c.offset.bodyOffset(b);var d=b.getBoundingClientRect(),f=b.ownerDocument;b=f.body;f=f.documentElement;return{top:d.top+(self.pageYOffset||c.support.boxModel&&f.scrollTop||b.scrollTop)-(f.clientTop||b.clientTop||0),left:d.left+(self.pageXOffset||c.support.boxModel&&f.scrollLeft||b.scrollLeft)-(f.clientLeft||b.clientLeft||0)}}:function(a){var b=
+this[0];if(a)return this.each(function(r){c.offset.setOffset(this,a,r)});if(!b||!b.ownerDocument)return null;if(b===b.ownerDocument.body)return c.offset.bodyOffset(b);c.offset.initialize();var d=b.offsetParent,f=b,e=b.ownerDocument,j,i=e.documentElement,o=e.body;f=(e=e.defaultView)?e.getComputedStyle(b,null):b.currentStyle;for(var k=b.offsetTop,n=b.offsetLeft;(b=b.parentNode)&&b!==o&&b!==i;){if(c.offset.supportsFixedPosition&&f.position==="fixed")break;j=e?e.getComputedStyle(b,null):b.currentStyle;
+k-=b.scrollTop;n-=b.scrollLeft;if(b===d){k+=b.offsetTop;n+=b.offsetLeft;if(c.offset.doesNotAddBorder&&!(c.offset.doesAddBorderForTableAndCells&&/^t(able|d|h)$/i.test(b.nodeName))){k+=parseFloat(j.borderTopWidth)||0;n+=parseFloat(j.borderLeftWidth)||0}f=d;d=b.offsetParent}if(c.offset.subtractsBorderForOverflowNotVisible&&j.overflow!=="visible"){k+=parseFloat(j.borderTopWidth)||0;n+=parseFloat(j.borderLeftWidth)||0}f=j}if(f.position==="relative"||f.position==="static"){k+=o.offsetTop;n+=o.offsetLeft}if(c.offset.supportsFixedPosition&&
+f.position==="fixed"){k+=Math.max(i.scrollTop,o.scrollTop);n+=Math.max(i.scrollLeft,o.scrollLeft)}return{top:k,left:n}};c.offset={initialize:function(){var a=s.body,b=s.createElement("div"),d,f,e,j=parseFloat(c.curCSS(a,"marginTop",true))||0;c.extend(b.style,{position:"absolute",top:0,left:0,margin:0,border:0,width:"1px",height:"1px",visibility:"hidden"});b.innerHTML="<div style='position:absolute;top:0;left:0;margin:0;border:5px solid #000;padding:0;width:1px;height:1px;'><div></div></div><table style='position:absolute;top:0;left:0;margin:0;border:5px solid #000;padding:0;width:1px;height:1px;' cellpadding='0' cellspacing='0'><tr><td></td></tr></table>";
+a.insertBefore(b,a.firstChild);d=b.firstChild;f=d.firstChild;e=d.nextSibling.firstChild.firstChild;this.doesNotAddBorder=f.offsetTop!==5;this.doesAddBorderForTableAndCells=e.offsetTop===5;f.style.position="fixed";f.style.top="20px";this.supportsFixedPosition=f.offsetTop===20||f.offsetTop===15;f.style.position=f.style.top="";d.style.overflow="hidden";d.style.position="relative";this.subtractsBorderForOverflowNotVisible=f.offsetTop===-5;this.doesNotIncludeMarginInBodyOffset=a.offsetTop!==j;a.removeChild(b);
+c.offset.initialize=c.noop},bodyOffset:function(a){var b=a.offsetTop,d=a.offsetLeft;c.offset.initialize();if(c.offset.doesNotIncludeMarginInBodyOffset){b+=parseFloat(c.curCSS(a,"marginTop",true))||0;d+=parseFloat(c.curCSS(a,"marginLeft",true))||0}return{top:b,left:d}},setOffset:function(a,b,d){if(/static/.test(c.curCSS(a,"position")))a.style.position="relative";var f=c(a),e=f.offset(),j=parseInt(c.curCSS(a,"top",true),10)||0,i=parseInt(c.curCSS(a,"left",true),10)||0;if(c.isFunction(b))b=b.call(a,
+d,e);d={top:b.top-e.top+j,left:b.left-e.left+i};"using"in b?b.using.call(a,d):f.css(d)}};c.fn.extend({position:function(){if(!this[0])return null;var a=this[0],b=this.offsetParent(),d=this.offset(),f=/^body|html$/i.test(b[0].nodeName)?{top:0,left:0}:b.offset();d.top-=parseFloat(c.curCSS(a,"marginTop",true))||0;d.left-=parseFloat(c.curCSS(a,"marginLeft",true))||0;f.top+=parseFloat(c.curCSS(b[0],"borderTopWidth",true))||0;f.left+=parseFloat(c.curCSS(b[0],"borderLeftWidth",true))||0;return{top:d.top-
+f.top,left:d.left-f.left}},offsetParent:function(){return this.map(function(){for(var a=this.offsetParent||s.body;a&&!/^body|html$/i.test(a.nodeName)&&c.css(a,"position")==="static";)a=a.offsetParent;return a})}});c.each(["Left","Top"],function(a,b){var d="scroll"+b;c.fn[d]=function(f){var e=this[0],j;if(!e)return null;if(f!==w)return this.each(function(){if(j=wa(this))j.scrollTo(!a?f:c(j).scrollLeft(),a?f:c(j).scrollTop());else this[d]=f});else return(j=wa(e))?"pageXOffset"in j?j[a?"pageYOffset":
+"pageXOffset"]:c.support.boxModel&&j.document.documentElement[d]||j.document.body[d]:e[d]}});c.each(["Height","Width"],function(a,b){var d=b.toLowerCase();c.fn["inner"+b]=function(){return this[0]?c.css(this[0],d,false,"padding"):null};c.fn["outer"+b]=function(f){return this[0]?c.css(this[0],d,false,f?"margin":"border"):null};c.fn[d]=function(f){var e=this[0];if(!e)return f==null?null:this;if(c.isFunction(f))return this.each(function(j){var i=c(this);i[d](f.call(this,j,i[d]()))});return"scrollTo"in
+e&&e.document?e.document.compatMode==="CSS1Compat"&&e.document.documentElement["client"+b]||e.document.body["client"+b]:e.nodeType===9?Math.max(e.documentElement["client"+b],e.body["scroll"+b],e.documentElement["scroll"+b],e.body["offset"+b],e.documentElement["offset"+b]):f===w?c.css(e,d):this.css(d,typeof f==="string"?f:f+"px")}});A.jQuery=A.$=c})(window);

guam-0.9.11.tar.gz/log/jquery.tablesorter.min.js Added

@@ -0,0 +1,4 @@
+
+(function($){$.extend({tablesorter:new
+function(){var parsers=[],widgets=[];this.defaults={cssHeader:"header",cssAsc:"headerSortUp",cssDesc:"headerSortDown",cssChildRow:"expand-child",sortInitialOrder:"asc",sortMultiSortKey:"shiftKey",sortForce:null,sortAppend:null,sortLocaleCompare:true,textExtraction:"simple",parsers:{},widgets:[],widgetZebra:{css:["even","odd"]},headers:{},widthFixed:false,cancelSelection:true,sortList:[],headerList:[],dateFormat:"us",decimal:'/\.|\,/g',onRenderHeader:null,selectorHeaders:'thead th',debug:false};function benchmark(s,d){log(s+","+(new Date().getTime()-d.getTime())+"ms");}this.benchmark=benchmark;function log(s){if(typeof console!="undefined"&&typeof console.debug!="undefined"){console.log(s);}else{alert(s);}}function buildParserCache(table,$headers){if(table.config.debug){var parsersDebug="";}if(table.tBodies.length==0)return;var rows=table.tBodies[0].rows;if(rows[0]){var list=[],cells=rows[0].cells,l=cells.length;for(var i=0;i<l;i++){var p=false;if($.metadata&&($($headers[i]).metadata()&&$($headers[i]).metadata().sorter)){p=getParserById($($headers[i]).metadata().sorter);}else if((table.config.headers[i]&&table.config.headers[i].sorter)){p=getParserById(table.config.headers[i].sorter);}if(!p){p=detectParserForColumn(table,rows,-1,i);}if(table.config.debug){parsersDebug+="column:"+i+" parser:"+p.id+"\n";}list.push(p);}}if(table.config.debug){log(parsersDebug);}return list;};function detectParserForColumn(table,rows,rowIndex,cellIndex){var l=parsers.length,node=false,nodeValue=false,keepLooking=true;while(nodeValue==''&&keepLooking){rowIndex++;if(rows[rowIndex]){node=getNodeFromRowAndCellIndex(rows,rowIndex,cellIndex);nodeValue=trimAndGetNodeText(table.config,node);if(table.config.debug){log('Checking if value was empty on row:'+rowIndex);}}else{keepLooking=false;}}for(var i=1;i<l;i++){if(parsers[i].is(nodeValue,table,node)){return parsers[i];}}return parsers[0];}function getNodeFromRowAndCellIndex(rows,rowIndex,cellIndex){return rows[rowIndex].cells[cellIndex];}function trimAndGetNodeText(config,node){return $.trim(getElementText(config,node));}function getParserById(name){var l=parsers.length;for(var i=0;i<l;i++){if(parsers[i].id.toLowerCase()==name.toLowerCase()){return parsers[i];}}return false;}function buildCache(table){if(table.config.debug){var cacheTime=new Date();}var totalRows=(table.tBodies[0]&&table.tBodies[0].rows.length)||0,totalCells=(table.tBodies[0].rows[0]&&table.tBodies[0].rows[0].cells.length)||0,parsers=table.config.parsers,cache={row:[],normalized:[]};for(var i=0;i<totalRows;++i){var c=$(table.tBodies[0].rows[i]),cols=[];if(c.hasClass(table.config.cssChildRow)){cache.row[cache.row.length-1]=cache.row[cache.row.length-1].add(c);continue;}cache.row.push(c);for(var j=0;j<totalCells;++j){cols.push(parsers[j].format(getElementText(table.config,c[0].cells[j]),table,c[0].cells[j]));}cols.push(cache.normalized.length);cache.normalized.push(cols);cols=null;};if(table.config.debug){benchmark("Building cache for "+totalRows+" rows:",cacheTime);}return cache;};function getElementText(config,node){var text="";if(!node)return"";if(!config.supportsTextContent)config.supportsTextContent=node.textContent||false;if(config.textExtraction=="simple"){if(config.supportsTextContent){text=node.textContent;}else{if(node.childNodes[0]&&node.childNodes[0].hasChildNodes()){text=node.childNodes[0].innerHTML;}else{text=node.innerHTML;}}}else{if(typeof(config.textExtraction)=="function"){text=config.textExtraction(node);}else{text=$(node).text();}}return text;}function appendToTable(table,cache){if(table.config.debug){var appendTime=new Date()}var c=cache,r=c.row,n=c.normalized,totalRows=n.length,checkCell=(n[0].length-1),tableBody=$(table.tBodies[0]),rows=[];for(var i=0;i<totalRows;i++){var pos=n[i][checkCell];rows.push(r[pos]);if(!table.config.appender){var l=r[pos].length;for(var j=0;j<l;j++){tableBody[0].appendChild(r[pos][j]);}}}if(table.config.appender){table.config.appender(table,rows);}rows=null;if(table.config.debug){benchmark("Rebuilt table:",appendTime);}applyWidget(table);setTimeout(function(){$(table).trigger("sortEnd");},0);};function buildHeaders(table){if(table.config.debug){var time=new Date();}var meta=($.metadata)?true:false;var header_index=computeTableHeaderCellIndexes(table);$tableHeaders=$(table.config.selectorHeaders,table).each(function(index){this.column=header_index[this.parentNode.rowIndex+"-"+this.cellIndex];this.order=formatSortingOrder(table.config.sortInitialOrder);this.count=this.order;if(checkHeaderMetadata(this)||checkHeaderOptions(table,index))this.sortDisabled=true;if(checkHeaderOptionsSortingLocked(table,index))this.order=this.lockedOrder=checkHeaderOptionsSortingLocked(table,index);if(!this.sortDisabled){var $th=$(this).addClass(table.config.cssHeader);if(table.config.onRenderHeader)table.config.onRenderHeader.apply($th);}table.config.headerList[index]=this;});if(table.config.debug){benchmark("Built headers:",time);log($tableHeaders);}return $tableHeaders;};function computeTableHeaderCellIndexes(t){var matrix=[];var lookup={};var thead=t.getElementsByTagName('THEAD')[0];var trs=thead.getElementsByTagName('TR');for(var i=0;i<trs.length;i++){var cells=trs[i].cells;for(var j=0;j<cells.length;j++){var c=cells[j];var rowIndex=c.parentNode.rowIndex;var cellId=rowIndex+"-"+c.cellIndex;var rowSpan=c.rowSpan||1;var colSpan=c.colSpan||1
+var firstAvailCol;if(typeof(matrix[rowIndex])=="undefined"){matrix[rowIndex]=[];}for(var k=0;k<matrix[rowIndex].length+1;k++){if(typeof(matrix[rowIndex][k])=="undefined"){firstAvailCol=k;break;}}lookup[cellId]=firstAvailCol;for(var k=rowIndex;k<rowIndex+rowSpan;k++){if(typeof(matrix[k])=="undefined"){matrix[k]=[];}var matrixrow=matrix[k];for(var l=firstAvailCol;l<firstAvailCol+colSpan;l++){matrixrow[l]="x";}}}}return lookup;}function checkCellColSpan(table,rows,row){var arr=[],r=table.tHead.rows,c=r[row].cells;for(var i=0;i<c.length;i++){var cell=c[i];if(cell.colSpan>1){arr=arr.concat(checkCellColSpan(table,headerArr,row++));}else{if(table.tHead.length==1||(cell.rowSpan>1||!r[row+1])){arr.push(cell);}}}return arr;};function checkHeaderMetadata(cell){if(($.metadata)&&($(cell).metadata().sorter===false)){return true;};return false;}function checkHeaderOptions(table,i){if((table.config.headers[i])&&(table.config.headers[i].sorter===false)){return true;};return false;}function checkHeaderOptionsSortingLocked(table,i){if((table.config.headers[i])&&(table.config.headers[i].lockedOrder))return table.config.headers[i].lockedOrder;return false;}function applyWidget(table){var c=table.config.widgets;var l=c.length;for(var i=0;i<l;i++){getWidgetById(c[i]).format(table);}}function getWidgetById(name){var l=widgets.length;for(var i=0;i<l;i++){if(widgets[i].id.toLowerCase()==name.toLowerCase()){return widgets[i];}}};function formatSortingOrder(v){if(typeof(v)!="Number"){return(v.toLowerCase()=="desc")?1:0;}else{return(v==1)?1:0;}}function isValueInArray(v,a){var l=a.length;for(var i=0;i<l;i++){if(a[i][0]==v){return true;}}return false;}function setHeadersCss(table,$headers,list,css){$headers.removeClass(css[0]).removeClass(css[1]);var h=[];$headers.each(function(offset){if(!this.sortDisabled){h[this.column]=$(this);}});var l=list.length;for(var i=0;i<l;i++){h[list[i][0]].addClass(css[list[i][1]]);}}function fixColumnWidth(table,$headers){var c=table.config;if(c.widthFixed){var colgroup=$('<colgroup>');$("tr:first td",table.tBodies[0]).each(function(){colgroup.append($('<col>').css('width',$(this).width()));});$(table).prepend(colgroup);};}function updateHeaderSortCount(table,sortList){var c=table.config,l=sortList.length;for(var i=0;i<l;i++){var s=sortList[i],o=c.headerList[s[0]];o.count=s[1];o.count++;}}function multisort(table,sortList,cache){if(table.config.debug){var sortTime=new Date();}var dynamicExp="var sortWrapper = function(a,b) {",l=sortList.length;for(var i=0;i<l;i++){var c=sortList[i][0];var order=sortList[i][1];var s=(table.config.parsers[c].type=="text")?((order==0)?makeSortFunction("text","asc",c):makeSortFunction("text","desc",c)):((order==0)?makeSortFunction("numeric","asc",c):makeSortFunction("numeric","desc",c));var e="e"+i;dynamicExp+="var "+e+" = "+s;dynamicExp+="if("+e+") { return "+e+"; } ";dynamicExp+="else { ";}var orgOrderCol=cache.normalized[0].length-1;dynamicExp+="return a["+orgOrderCol+"]-b["+orgOrderCol+"];";for(var i=0;i<l;i++){dynamicExp+="}; ";}dynamicExp+="return 0; ";dynamicExp+="}; ";if(table.config.debug){benchmark("Evaling expression:"+dynamicExp,new Date());}eval(dynamicExp);cache.normalized.sort(sortWrapper);if(table.config.debug){benchmark("Sorting on "+sortList.toString()+" and dir "+order+" time:",sortTime);}return cache;};function makeSortFunction(type,direction,index){var a="a["+index+"]",b="b["+index+"]";if(type=='text'&&direction=='asc'){return"("+a+" == "+b+" ? 0 : ("+a+" === null ? Number.POSITIVE_INFINITY : ("+b+" === null ? Number.NEGATIVE_INFINITY : ("+a+" < "+b+") ? -1 : 1 )));";}else if(type=='text'&&direction=='desc'){return"("+a+" == "+b+" ? 0 : ("+a+" === null ? Number.POSITIVE_INFINITY : ("+b+" === null ? Number.NEGATIVE_INFINITY : ("+b+" < "+a+") ? -1 : 1 )));";}else if(type=='numeric'&&direction=='asc'){return"("+a+" === null && "+b+" === null) ? 0 :("+a+" === null ? Number.POSITIVE_INFINITY : ("+b+" === null ? Number.NEGATIVE_INFINITY : "+a+" - "+b+"));";}else if(type=='numeric'&&direction=='desc'){return"("+a+" === null && "+b+" === null) ? 0 :("+a+" === null ? Number.POSITIVE_INFINITY : ("+b+" === null ? Number.NEGATIVE_INFINITY : "+b+" - "+a+"));";}};function makeSortText(i){return"((a["+i+"] < b["+i+"]) ? -1 : ((a["+i+"] > b["+i+"]) ? 1 : 0));";};function makeSortTextDesc(i){return"((b["+i+"] < a["+i+"]) ? -1 : ((b["+i+"] > a["+i+"]) ? 1 : 0));";};function makeSortNumeric(i){return"a["+i+"]-b["+i+"];";};function makeSortNumericDesc(i){return"b["+i+"]-a["+i+"];";};function sortText(a,b){if(table.config.sortLocaleCompare)return a.localeCompare(b);return((a<b)?-1:((a>b)?1:0));};function sortTextDesc(a,b){if(table.config.sortLocaleCompare)return b.localeCompare(a);return((b<a)?-1:((b>a)?1:0));};function sortNumeric(a,b){return a-b;};function sortNumericDesc(a,b){return b-a;};function getCachedSortType(parsers,i){return parsers[i].type;};this.construct=function(settings){return this.each(function(){if(!this.tHead||!this.tBodies)return;var $this,$document,$headers,cache,config,shiftDown=0,sortOrder;this.config={};config=$.extend(this.config,$.tablesorter.defaults,settings);$this=$(this);$.data(this,"tablesorter",config);$headers=buildHeaders(this);this.config.parsers=buildParserCache(this,$headers);cache=buildCache(this);var sortCSS=[config.cssDesc,config.cssAsc];fixColumnWidth(this);$headers.click(function(e){var totalRows=($this[0].tBodies[0]&&$this[0].tBodies[0].rows.length)||0;if(!this.sortDisabled&&totalRows>0){$this.trigger("sortStart");var $cell=$(this);var i=this.column;this.order=this.count++%2;if(this.lockedOrder)this.order=this.lockedOrder;if(!e[config.sortMultiSortKey]){config.sortList=[];if(config.sortForce!=null){var a=config.sortForce;for(var j=0;j<a.length;j++){if(a[j][0]!=i){config.sortList.push(a[j]);}}}config.sortList.push([i,this.order]);}else{if(isValueInArray(i,config.sortList)){for(var j=0;j<config.sortList.length;j++){var s=config.sortList[j],o=config.headerList[s[0]];if(s[0]==i){o.count=s[1];o.count++;s[1]=o.count%2;}}}else{config.sortList.push([i,this.order]);}};setTimeout(function(){setHeadersCss($this[0],$headers,config.sortList,sortCSS);appendToTable($this[0],multisort($this[0],config.sortList,cache));},1);return false;}}).mousedown(function(){if(config.cancelSelection){this.onselectstart=function(){return false};return false;}});$this.bind("update",function(){var me=this;setTimeout(function(){me.config.parsers=buildParserCache(me,$headers);cache=buildCache(me);},1);}).bind("updateCell",function(e,cell){var config=this.config;var pos=[(cell.parentNode.rowIndex-1),cell.cellIndex];cache.normalized[pos[0]][pos[1]]=config.parsers[pos[1]].format(getElementText(config,cell),cell);}).bind("sorton",function(e,list){$(this).trigger("sortStart");config.sortList=list;var sortList=config.sortList;updateHeaderSortCount(this,sortList);setHeadersCss(this,$headers,sortList,sortCSS);appendToTable(this,multisort(this,sortList,cache));}).bind("appendCache",function(){appendToTable(this,cache);}).bind("applyWidgetId",function(e,id){getWidgetById(id).format(this);}).bind("applyWidgets",function(){applyWidget(this);});if($.metadata&&($(this).metadata()&&$(this).metadata().sortlist)){config.sortList=$(this).metadata().sortlist;}if(config.sortList.length>0){$this.trigger("sorton",[config.sortList]);}applyWidget(this);});};this.addParser=function(parser){var l=parsers.length,a=true;for(var i=0;i<l;i++){if(parsers[i].id.toLowerCase()==parser.id.toLowerCase()){a=false;}}if(a){parsers.push(parser);};};this.addWidget=function(widget){widgets.push(widget);};this.formatFloat=function(s){var i=parseFloat(s);return(isNaN(i))?0:i;};this.formatInt=function(s){var i=parseInt(s);return(isNaN(i))?0:i;};this.isDigit=function(s,config){return/^[-+]?\d*$/.test($.trim(s.replace(/[,.']/g,'')));};this.clearTableBody=function(table){if($.browser.msie){function empty(){while(this.firstChild)this.removeChild(this.firstChild);}empty.apply(table.tBodies[0]);}else{table.tBodies[0].innerHTML="";}};}});$.fn.extend({tablesorter:$.tablesorter.construct});var ts=$.tablesorter;ts.addParser({id:"text",is:function(s){return true;},format:function(s){return $.trim(s.toLocaleLowerCase());},type:"text"});ts.addParser({id:"digit",is:function(s,table){var c=table.config;return $.tablesorter.isDigit(s,c);},format:function(s){return $.tablesorter.formatFloat(s);},type:"numeric"});ts.addParser({id:"currency",is:function(s){return/^[£$€?.]/.test(s);},format:function(s){return $.tablesorter.formatFloat(s.replace(new RegExp(/[£$€]/g),""));},type:"numeric"});ts.addParser({id:"ipAddress",is:function(s){return/^\d{2,3}[\.]\d{2,3}[\.]\d{2,3}[\.]\d{2,3}$/.test(s);},format:function(s){var a=s.split("."),r="",l=a.length;for(var i=0;i<l;i++){var item=a[i];if(item.length==2){r+="0"+item;}else{r+=item;}}return $.tablesorter.formatFloat(r);},type:"numeric"});ts.addParser({id:"url",is:function(s){return/^(https?|ftp|file):\/\/$/.test(s);},format:function(s){return jQuery.trim(s.replace(new RegExp(/(https?|ftp|file):\/\//),''));},type:"text"});ts.addParser({id:"isoDate",is:function(s){return/^\d{4}[\/-]\d{1,2}[\/-]\d{1,2}$/.test(s);},format:function(s){return $.tablesorter.formatFloat((s!="")?new Date(s.replace(new RegExp(/-/g),"/")).getTime():"0");},type:"numeric"});ts.addParser({id:"percent",is:function(s){return/\%$/.test($.trim(s));},format:function(s){return $.tablesorter.formatFloat(s.replace(new RegExp(/%/g),""));},type:"numeric"});ts.addParser({id:"usLongDate",is:function(s){return s.match(new RegExp(/^[A-Za-z]{3,10}\.? [0-9]{1,2}, ([0-9]{4}|'?[0-9]{2}) (([0-2]?[0-9]:[0-5][0-9])|([0-1]?[0-9]:[0-5][0-9]\s(AM|PM)))$/));},format:function(s){return $.tablesorter.formatFloat(new Date(s).getTime());},type:"numeric"});ts.addParser({id:"shortDate",is:function(s){return/\d{1,2}[\/\-]\d{1,2}[\/\-]\d{2,4}/.test(s);},format:function(s,table){var c=table.config;s=s.replace(/\-/g,"/");if(c.dateFormat=="us"){s=s.replace(/(\d{1,2})[\/\-](\d{1,2})[\/\-](\d{4})/,"$3/$1/$2");}else if(c.dateFormat=="uk"){s=s.replace(/(\d{1,2})[\/\-](\d{1,2})[\/\-](\d{4})/,"$3/$2/$1");}else if(c.dateFormat=="dd/mm/yy"||c.dateFormat=="dd-mm-yy"){s=s.replace(/(\d{1,2})[\/\-](\d{1,2})[\/\-](\d{2})/,"$1/$2/$3");}return $.tablesorter.formatFloat(new Date(s).getTime());},type:"numeric"});ts.addParser({id:"time",is:function(s){return/^(([0-2]?[0-9]:[0-5][0-9])|([0-1]?[0-9]:[0-5][0-9]\s(am|pm)))$/.test(s);},format:function(s){return $.tablesorter.formatFloat(new Date("2000/01/01 "+s).getTime());},type:"numeric"});ts.addParser({id:"metadata",is:function(s){return false;},format:function(s,table,cell){var c=table.config,p=(!c.parserMetadataName)?'sortValue':c.parserMetadataName;return $(cell).metadata()[p];},type:"numeric"});ts.addWidget({id:"zebra",format:function(table){if(table.config.debug){var time=new Date();}var $tr,row=-1,odd;$("tr:visible",table.tBodies[0]).each(function(i){$tr=$(this);if(!$tr.hasClass(table.config.cssChildRow))row++;odd=(row%2==0);$tr.removeClass(table.config.widgetZebra.css[odd?0:1]).addClass(table.config.widgetZebra.css[odd?1:0])});if(table.config.debug){$.tablesorter.benchmark("Applying Zebra widget",time);}}});})(jQuery);
\ No newline at end of file

guam-0.9.11.tar.gz/log/retry.spec Added

guam-0.9.11.tar.gz/log/suite.log.latest.html Added

guam-0.9.11.tar.gz/log/variables-nonode@nohost Added

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

guam-0.9.11.tar.gz/rebar.lock Added

guam-0.9.11.tar.gz/rebar3.crashdump Added

guam-0.9.11.tar.gz/test.spec Added

Changes of Revision 2